-
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveForm.tlb b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveForm.tlb
deleted file mode 100644
index 9700cd76efc56031c42abebc3c6778cdb5710043..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveForm.tlb and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.dpr
deleted file mode 100644
index a899cbd17a9a22a48c1bd3316f404c708046edad..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.dpr
+++ /dev/null
@@ -1,53 +0,0 @@
-{*******************************************************}
-{ Active Form Demo }
-{ By: }
-{ Eran Bodankin (bsalsa) bsalsa@bsalsa.com }
-{ Enjoy! }
-{ Documentation and updated versions: }
-{ http://www.bsalsa.com }
-{*******************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-library prjActiveForm;
-
-uses
- ComServ,
- ActiveFormProj1_TLB in 'ActiveFormProj1_TLB.pas',
- ActiveFormImpl1 in 'ActiveFormImpl1.pas' {ActiveFormX: TActiveForm} {ActiveFormX: CoClass},
- prjActiveFormDemo_TLB in 'prjActiveFormDemo_TLB.pas';
-
-{$E ocx}
-
-exports
- DllGetClassObject,
- DllCanUnloadNow,
- DllRegisterServer,
- DllUnregisterServer;
-
-{$R *.TLB}
-
-//{$R *.RES}
-
-begin
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.ridl b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.ridl
deleted file mode 100644
index c5138e61a096878dfb31adf342b8924a299c3954..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.ridl
+++ /dev/null
@@ -1,24 +0,0 @@
-// ************************************************************************ //
-// WARNING
-// -------
-// This file is generated by the Type Library importer or Type Libary Editor.
-// Barring syntax errors, the Editor will parse modifications made to the file.
-// However, when applying changes via the Editor this file will be regenerated
-// and comments or formatting changes will be lost.
-// ************************************************************************ //
-// File generated on 19.05.2009 06:35:57 (- $Rev: 12980 $, 601660584).
-
-[
- uuid(FE4BADD5-F458-4A6F-9C99-3B74ECBA3967),
- version(1.0),
- helpstring("prjActiveFormDemo Library")
-
-]
-library prjActiveFormDemo
-{
-
- importlib("stdole2.tlb");
-
-
-
-};
\ No newline at end of file
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.tlb b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.tlb
deleted file mode 100644
index 238d9d47c015777a8b0adb5a82bd967db91cedd1..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo.tlb and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo_TLB.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo_TLB.pas
deleted file mode 100644
index 5c2ada0129727f30c24fb7ef3c6fb14182e027da..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/13 - ActiveX_Form_Demo/prjActiveFormDemo_TLB.pas
+++ /dev/null
@@ -1,49 +0,0 @@
-unit prjActiveFormDemo_TLB;
-
-// ************************************************************************ //
-// WARNING
-// -------
-// The types declared in this file were generated from data read from a
-// Type Library. If this type library is explicitly or indirectly (via
-// another type library referring to this type library) re-imported, or the
-// 'Refresh' command of the Type Library Editor activated while editing the
-// Type Library, the contents of this file will be regenerated and all
-// manual modifications will be lost.
-// ************************************************************************ //
-
-// PASTLWTR : $Revision: 1.88.1.0.1.0 $
-// File generated on 19.05.2009 06:22:38 from Type Library described below.
-
-// ************************************************************************ //
-// Type Lib: C:\Users\smot\Documents\Delphi\Components\EmbeddedWB\Demos\EmbeddedWB Demos\13 - ActiveX_Form_Demo\prjActiveFormDemo.tlb (1)
-// IID\LCID: {FE4BADD5-F458-4A6F-9C99-3B74ECBA3967}\0
-// Helpfile:
-// DepndLst:
-// (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb)
-// (2) v4.0 StdVCL, (C:\Windows\system32\stdvcl40.dll)
-// ************************************************************************ //
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
-interface
-
-uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
-
-// *********************************************************************//
-// GUIDS declared in the TypeLibrary. Following prefixes are used:
-// Type Libraries : LIBID_xxxx
-// CoClasses : CLASS_xxxx
-// DISPInterfaces : DIID_xxxx
-// Non-DISP interfaces: IID_xxxx
-// *********************************************************************//
-const
- // TypeLibrary Major and minor versions
- prjActiveFormDemoMajorVersion = 1;
- prjActiveFormDemoMinorVersion = 0;
-
- LIBID_prjActiveFormDemo: TGUID = '{FE4BADD5-F458-4A6F-9C99-3B74ECBA3967}';
-
-
-implementation
-
-uses ComObj;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/prjExecScriptExDemo.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/prjExecScriptExDemo.dpr
deleted file mode 100644
index e675031c573d0c60f92a4ae705ff87f5658da7eb..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/prjExecScriptExDemo.dpr
+++ /dev/null
@@ -1,47 +0,0 @@
-//*************************************************************
-// EmbeddedWB - Tabs Demo *
-// *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the demo under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjExecScriptExDemo;
-
-uses
- Forms,
- uMain in 'uMain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.dfm
deleted file mode 100644
index 6f03ed7e5af7eea0b76dde4ee9e61891950a9e2e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.dfm
+++ /dev/null
@@ -1,146 +0,0 @@
-object Form1: TForm1
- Left = 236
- Top = 168
- BorderStyle = bsDialog
- Caption = 'EmbeddedWB - ExecScriptEx Demo'
- ClientHeight = 448
- ClientWidth = 653
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 653
- Height = 41
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 12
- Width = 8
- Height = 13
- Caption = 'x:'
- end
- object Button1: TButton
- Left = 99
- Top = 8
- Width = 121
- Height = 24
- Caption = 'Execute Script'
- TabOrder = 0
- OnClick = Button1Click
- end
- object edPara: TEdit
- Left = 24
- Top = 8
- Width = 65
- Height = 21
- TabOrder = 1
- Text = '5'
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 41
- Width = 313
- Height = 407
- Align = alLeft
- TabOrder = 1
- object Memo1: TMemo
- Left = 1
- Top = 23
- Width = 311
- Height = 383
- Align = alClient
- BorderStyle = bsNone
- Lines.Strings = (
- ' '
- '
'
- 'Test Script '
- ' '
- ' '
- ' TEST Script: eval(x * x) '
- '')
- ReadOnly = True
- TabOrder = 0
- end
- object Panel4: TPanel
- Left = 1
- Top = 1
- Width = 311
- Height = 22
- Align = alTop
- Caption = 'Script'
- TabOrder = 1
- end
- end
- object Panel3: TPanel
- Left = 313
- Top = 41
- Width = 340
- Height = 407
- Align = alClient
- TabOrder = 2
- object EmbeddedWB1: TEmbeddedWB
- Left = 1
- Top = 23
- Width = 338
- Height = 383
- Align = alClient
- TabOrder = 0
- Silent = False
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [DontUse3DBorders, DontUseScrollBars, ForceFlatScrollBars, EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- ' '
- ' '
- 'Test Script '
- ' '
- ' '
- ' TEST Script: eval(x * x) '
- '')
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C0000007D430000112A00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel5: TPanel
- Left = 1
- Top = 1
- Width = 338
- Height = 22
- Align = alTop
- Caption = 'EmbeddedWB'
- TabOrder = 1
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.pas
deleted file mode 100644
index dbf83c74dcaca92a3fa8220740684ee5861180ad..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/14 - ExecScriptEx_Demo/uMain.pas
+++ /dev/null
@@ -1,85 +0,0 @@
-//***************************************************************
-// EmbeddedWB ExecScriptEx Demo *
-// *
-// Freeware Demo *
-// by *
-// Thomas Stutz (smot) -(smot777@yahoo.com) *
-// *
-// *
-//***************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit uMain;
-
-{$I EWB_jedi.inc}
-
-interface
-
-uses
- Windows, StdCtrls, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Dialogs, Forms, SysUtils,
- Classes, ExtCtrls, Controls;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Button1: TButton;
- edPara: TEdit;
- Label1: TLabel;
- Panel2: TPanel;
- Memo1: TMemo;
- Panel3: TPanel;
- EmbeddedWB1: TEmbeddedWB;
- Panel4: TPanel;
- Panel5: TPanel;
- procedure Button1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- vResult: OleVariant;
- Para1: string;
-begin
- Para1 := edPara.Text;
- vResult := EmbeddedWB1.ExecScriptEx('evaluate', [Para1]);
- ShowMessage('Result from the Script: ' + IntToStr(vResult));
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- EmbeddedWB1.HTMLCode.Assign(Memo1.Lines);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/prjHTMLListenerDemo.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/prjHTMLListenerDemo.dpr
deleted file mode 100644
index b904d7defd85d4da84b43ebfbdbccbfc75554817..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/prjHTMLListenerDemo.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program prjHTMLListenerDemo;
-
-uses
- Forms,
- uMain in 'uMain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.dfm
deleted file mode 100644
index 245fe2db93d084b798b329a63f1d2a6bb6af6d84..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.dfm
+++ /dev/null
@@ -1,103 +0,0 @@
-object Form1: TForm1
- Left = 245
- Top = 214
- Width = 747
- Height = 584
- Caption = 'TEmbeddedWB - HTMLListener Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 65
- Width = 739
- Height = 485
- Align = alClient
- TabOrder = 0
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- OnDocumentComplete = EmbeddedWB1DocumentComplete
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C0000003E4B00009B3400000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 739
- Height = 65
- Align = alTop
- TabOrder = 1
- DesignSize = (
- 739
- 65)
- object lblClickedOnElement: TLabel
- Left = 14
- Top = 8
- Width = 97
- Height = 13
- Caption = '[Clicked on Element]'
- end
- object lblElementUndertheMouse: TLabel
- Left = 14
- Top = 32
- Width = 127
- Height = 13
- Caption = '[Element under the Mouse]'
- end
- object btnEnableDisable: TButton
- Left = 603
- Top = 16
- Width = 115
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'Disable Events'
- TabOrder = 0
- OnClick = btnEnableDisableClick
- end
- end
- object HtmlListener1: THtmlListener
- Handlers = <
- item
- EventID = eiOnClick
- OnHandle = HtmlListener1HandlersOnClickHandle
- end
- item
- EventID = eiOnSelect
- end
- item
- EventID = eiOnMouseMove
- OnHandle = HtmlListener1HandlersOnMouseMoveHandle
- end
- item
- EventID = eiUnknown
- end>
- SinkKind = skDocument
- Left = 528
- Top = 12
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.pas
deleted file mode 100644
index 4a80201089ad6a7cd0c3a9fe5eaf6ba13ded89dd..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/15 - THTMLListener_Demo/uMain.pas
+++ /dev/null
@@ -1,163 +0,0 @@
-unit uMain;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Controls, Forms,
- Dialogs, EwbBehaviorsComp, EwbEventsComp, EwbEvents, OleCtrls, SHDocVw_EWB, MSHTML_EWB, EwbCore,
- EmbeddedWB, StdCtrls, ComObj, ActiveX, ExtCtrls;
-
-
-
-type
- TForm1 = class(TForm)
- EmbeddedWB1: TEmbeddedWB;
- Panel1: TPanel;
- btnEnableDisable: TButton;
- lblClickedOnElement: TLabel;
- lblElementUndertheMouse: TLabel;
- HtmlListener1: THtmlListener;
- procedure HtmlListener1HandlersOnClickHandle(Sender: TObject;
- Event: IHTMLEventObj);
- procedure FormCreate(Sender: TObject);
- procedure HtmlListener1HandlersOnMouseMoveHandle(Sender: TObject;
- Event: IHTMLEventObj);
- procedure EmbeddedWB1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- procedure btnEnableDisableClick(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- private
- { Private declarations }
- HubLinksList: TInterfaceList;
- FEventsEnabled: Boolean;
- HubLink: IHubLink;
- procedure DisconnectHtmlListeners;
- procedure ConnectHtmlListeners;
- procedure ConnectHtmlListener(ASender: TObject; Doc: IHTMLDocument2);
- public
- { Public declarations }
- end;
-
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- FEventsEnabled := True;
- HubLinksList := TInterfaceList.Create;
- EmbeddedWB1.Navigate('www.google.com');
-end;
-
-procedure TForm1.HtmlListener1HandlersOnClickHandle(Sender: TObject;
- Event: IHTMLEventObj);
-begin
- lblClickedOnElement.Caption := Format('Clicked on Element with Tag: [%s]', [Event.srcElement.tagName])
-end;
-
-procedure TForm1.HtmlListener1HandlersOnMouseMoveHandle(Sender: TObject;
- Event: IHTMLEventObj);
-begin
- lblElementUndertheMouse.Caption := Format('Element under the Mouse [%s]', [Event.srcElement.tagName])
-end;
-
-procedure TForm1.DisconnectHtmlListeners;
-var
- i: Integer;
-begin
- for i := HubLinksList.Count - 1 downto 0 do
- begin
- (HubLinksList[i] as IHubLink).Disconnect;
- HubLinksList.Remove(HubLinksList[i]);
- end;
-end;
-
-procedure TForm1.ConnectHtmlListener(ASender: TObject; Doc: IHTMLDocument2);
-var
- CPC: IConnectionPointContainer;
-begin
- if Assigned(Doc) then
- begin
- Doc.QueryInterface(IConnectionPointContainer, CPC);
- if Assigned(CPC) then
- begin
- HubLink := HtmlListener1.Connect2(CPC);
- HubLinksList.Add(HubLink);
- end;
- end;
-end;
-
-procedure TForm1.ConnectHtmlListeners;
-var
- i: Integer;
- WB: IWebbrowser2;
- HTMLDoc: IHTMLDocument2;
-begin
- for i := 0 to EmbeddedWB1.FrameCount - 1 do
- begin
- WB := EmbeddedWB1.GetFrame(i);
- if Assigned(WB) then
- begin
- if Succeeded(WB.Document.QueryInterface(IHTMLDocument2, HTMLDoc)) then
- ConnectHtmlListener(nil, HTMLDoc);
- end;
- end;
-end;
-
-procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- with ASender as TEmbeddedWB do
- if pDisp = DefaultInterface then
- begin
- DisconnectHtmlListeners;
- end;
-end;
-
-procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-var
- WB: IWebbrowser;
- HTMLDoc: IHTMLDocument2;
-begin
- if FEventsEnabled then
- begin
- WB := (pDisp as IWebBrowser);
- if Assigned(WB) then
- if Succeeded(WB.Document.QueryInterface(IHTMLDocument2, HTMLDoc)) then
- ConnectHtmlListener(ASender, HTMLDoc);
- end;
-end;
-
-procedure TForm1.btnEnableDisableClick(Sender: TObject);
-begin
- if FEventsEnabled then
- begin
- DisconnectHtmlListeners;
- btnEnableDisable.Caption := 'Enable Events';
- FEventsEnabled := False;
- end else
- begin
- ConnectHtmlListeners;
- btnEnableDisable.Caption := 'Disable Events';
- FEventsEnabled := True;
- end;
-end;
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- DisconnectHtmlListeners;
- HubLinksList.Free;
-end;
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.dfm
deleted file mode 100644
index c4abca85d94b55aa708c1b901e495415ae7ab054..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.dfm
+++ /dev/null
@@ -1,255 +0,0 @@
-object Form1: TForm1
- Left = 303
- Top = 383
- Width = 906
- Height = 464
- Caption = 'TEmbeddedWB - EwbControl Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label3: TLabel
- Left = 168
- Top = 16
- Width = 71
- Height = 13
- Caption = '[active Control]'
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 160
- Top = 56
- Width = 281
- Height = 297
- TabOrder = 0
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- 'http://bsalsa.com/test/FlashTest.htm')
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C000000F7260000B21E00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object EmbeddedWB2: TEmbeddedWB
- Left = 448
- Top = 56
- Width = 265
- Height = 297
- TabOrder = 1
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- 'http://bsalsa.com/test/FlashTest.htm')
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C000000021F0000810F00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object ListBox1: TListBox
- Left = 745
- Top = 0
- Width = 153
- Height = 430
- Align = alRight
- ItemHeight = 13
- TabOrder = 2
- end
- object Button2: TButton
- Left = 581
- Top = 13
- Width = 131
- Height = 28
- Caption = 'Show Form2'
- TabOrder = 3
- OnClick = Button2Click
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 153
- Height = 430
- Align = alLeft
- TabOrder = 4
- object Image1: TImage
- Left = 16
- Top = 8
- Width = 28
- Height = 28
- AutoSize = True
- Picture.Data = {
- 07544269746D617066090000424D660900000000000036000000280000001C00
- 00001C0000000100180000000000300900000000000000000000000000000000
- 0000FF00FF99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC
- 99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8
- AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8AC99A8ACFFFFFFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF99A8ACFFFF
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA4
- A0A0A4A0A0A4A0A0A4A0A0A4A0A0A4A0A0A4A0A0A4A0A099A8AC99A8ACA4A0A0
- FF00FFFF00FFC0DCC0FF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFA4A0A099A8AC80806080806080806080806080
- 6060406040A4A0A0C0DCC099A8AC806060FF00FFFF00FFFF00FFC0DCC0FF00FF
- FF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0A0
- A0C0A080F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6C0C080808040C0A0A0FF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF99A8ACFFFFFFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6C0C0
- 80C0A060C08060C0A0A0A4A0A0FF00FFFF00FFC0A0A0A4A0A0A4A0A0A4A0A0C0
- A0A0C0A0A0C0DCC0FF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFFF00FF
- C0C080F0CAA6F0CAA6C0A060C0A060C08040C08040806020808060F0FBFFFF00
- FFFF00FFFF00FFFF00FFFF00FFA4A0A0A4A0A0A4A0A0D8E9ECF0FBFFFF00FF99
- A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFC0C060F0CAA6C0A060C08040C08040
- C06020C06020C06020804020806040C0DCC0FF00FFC0DCC0FF00FFF0FBFFF0FB
- FFA4A0A0C0C0A0A4A0A0D8E9ECF0FBFFFF00FF99A8ACFFFFFFFF00FFFF00FFFF
- 00FFC0C0A0C0C040C0A060C08040C06040C06020C06020C06020C06020804020
- 804040C0A0A0FF00FFC0DCC0FF00FFA4A0A0A4A0A0C0A0A0C0DCC0D8E9ECC0A0
- A0F0FBFFFF00FF99A8ACFFFFFFFF00FFFF00FFFF00FF40C040C0A040C08040C0
- 6020C06020C06020C06020C06020C06020804020804020D8E9ECC0DCC0C0DCC0
- C0DCC0C0C0A0C0A080C0DCC0D8E9ECD8E9ECD8E9ECC0DCC0FF00FF99A8ACFFFF
- FFFF00FFFF00FFC0C08000E02040C020C08020C06020C06020C06020C06020C0
- 6020C06020804020806040F0FBFFF0FBFFC0DCC0C0DCC0F0FBFFF0FBFFC0DCC0
- C0DCC0C0DCC0C0DCC0C0DCC0FF00FF99A8ACFFFFFFFF00FFFF00FF80C06000E0
- 2000C020C08020C06020C06020C06020C06040C08040C06040806020806040F0
- FBFFFFFFFFA4A0A0F0FBFFF0FBFFF0FBFFF0FBFFD8E9ECD8E9ECF0FBFFC0DCC0
- FF00FF99A8ACFFFFFFFF00FFFF00FF40C04000C02040C020808020C06020C080
- 40C08040C08040C08040C08040C08040806040C0A0A080A080A4A0A0F0FBFFF0
- FBFFF0FBFFF0FBFFC0DCC0808060C0DCC0FF00FFFF00FF99A8ACFFFFFFFF00FF
- FF00FF40C02000C02000A02080A040C08040C08040C0A060C0A060C0A060C0A0
- 60C0A060C0A060C0804000600080A0A0FFFFFFC0DCC0F0FBFFD8E9ECF0FBFFC0
- 6020F0CAA6FF00FFFF00FF99A8ACFFFFFFFF00FFFF00FF40C02040A02080A020
- C08040C08040C0A060C0C080C0C080C0C080C0C080C0C080F0CAA6C0C06000A0
- 2080A080FFFFFF408060406020D8E9ECF0FBFFC08020F0CAA6FF00FFFF00FF99
- A8ACFFFFFFFF00FFFF00FF40C02080A020C08040C0A040C0C080F0CAA6F0CAA6
- F0CAA6F0CAA6C0C080F0CAA6C0C080C0C08040C06040A06080C06040A0400080
- 20408040C08040C08020C0DCC0FF00FFFF00FF99A8ACFFFFFFFF00FFFF00FF40
- A040808020C0A040C0A080F0CAA6F0CAA6F0CAA6F0CAA6C0DCC0C0DCC0C0DCC0
- C0DCC0C0DCC0C0DCC080E0A080E08080E08040C040808040C08020C08040F0FB
- FFFF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFC0A080C08040C0A060F0CAA6F0
- CAA6F0CAA6F0CAA6F0CAA6F0FBFFF0FBFFF0FBFFF0FBFFF0FBFFC0DCC0C0DCC0
- C0DCC0C0DCC0C0C0A040C04040A020C0A060FF00FFFF00FFFF00FF99A8ACFFFF
- FFFF00FFFF00FFF0CAA6C0A040C0A080F0CAA6F0FBFFF0CAA6F0CAA6C0DCC0F0
- FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFC0DCC080C060
- 80A040C0C0A0FF00FFFF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFC0A0
- 60C0C080F0CAA6F0FBFFF0FBFFF0FBFFF0CAA6F0FBFFF0FBFFF0FBFFF0FBFFF0
- FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFF80C08080C040FF00FFFF00FFFF00FF
- FF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFC0DCC0C0A060F0CAA6FFFFFFFFFF
- FFFFFFFFFFFFFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0FBFFF0
- FBFFC0DCC080C060C0DCC0FF00FFFF00FFFF00FFFF00FF99A8ACFFFFFFFF00FF
- FF00FFFF00FFFF00FFF0CAA6C0C080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFF0FBFFF0FBFFFFFFFFFFFFFFFFFFFFFFFFFFF0FBFFC0C080C0DCC0FF00FFFF
- 00FFFF00FFFF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFFF00FF
- F0CAA6C0C080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFC0DCC0C0C0A0FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF99
- A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF0CAA6F0CAA6F0CAA6
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FBFFC0DCC0C0DCC0C0DCC0FF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
- F0CAA6FF00FFFF00FFC0DCC0FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FF99A8ACFFFFFFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF99A8ACFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- Transparent = True
- end
- object Label1: TLabel
- Left = 16
- Top = 64
- Width = 101
- Height = 13
- Caption = '+ MouseWheelFix'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 16
- Top = 139
- Width = 86
- Height = 13
- Caption = '+ FocusControl'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object chkFocusControl: TCheckBox
- Left = 24
- Top = 158
- Width = 97
- Height = 17
- Caption = 'Active'
- TabOrder = 0
- OnClick = chkFocusControlClick
- end
- object ChkMouseWheelFix: TCheckBox
- Left = 24
- Top = 88
- Width = 105
- Height = 17
- Caption = 'Active'
- TabOrder = 1
- OnClick = ChkMouseWheelFixClick
- end
- object chkActiveFormOnly: TCheckBox
- Left = 24
- Top = 109
- Width = 109
- Height = 17
- Caption = 'ActiveFormOnly'
- TabOrder = 2
- OnClick = chkActiveFormOnlyClick
- end
- end
- object EwbControl1: TEwbControl
- OnMouseWheel = EwbControl1MouseWheel
- InternetFeatures = [ObjectCaching, Behaviors, DisableMkProtocol, GetUrlDomFilePathUnencoded, DisableLegacyCompression, XmlHttp]
- Left = 16
- Top = 8
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 680
- Top = 384
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.pas
deleted file mode 100644
index a8c216229def5e00783538a8eb3fc08805ec6acd..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit1.pas
+++ /dev/null
@@ -1,100 +0,0 @@
-unit Unit1;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Controls, Forms,
- Dialogs, StdCtrls, EwbControlComponent, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB,
- ExtCtrls, Graphics;
-
-type
- TForm1 = class(TForm)
- EmbeddedWB1: TEmbeddedWB;
- EmbeddedWB2: TEmbeddedWB;
- EwbControl1: TEwbControl;
- ListBox1: TListBox;
- Timer1: TTimer;
- Button2: TButton;
- Panel1: TPanel;
- chkFocusControl: TCheckBox;
- ChkMouseWheelFix: TCheckBox;
- chkActiveFormOnly: TCheckBox;
- Image1: TImage;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- procedure ChkMouseWheelFixClick(Sender: TObject);
- procedure chkFocusControlClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure EwbControl1MouseWheel(p: TPoint; hwndFromPoint: HWND;
- lp: Integer; var Handled: Boolean);
- procedure Button2Click(Sender: TObject);
- procedure chkActiveFormOnlyClick(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
- private
- { Private declarations }
-
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-uses
- EwbCoreTools, Unit2;
-
-procedure TForm1.ChkMouseWheelFixClick(Sender: TObject);
-begin
- EwbControl1.MouseWheelFix.Active := ChkMouseWheelFix.Checked;
-end;
-
-procedure TForm1.chkFocusControlClick(Sender: TObject);
-begin
- EwbControl1.FocusControl.Active := ChkFocusControl.Checked;
-end;
-
-procedure TForm1.chkActiveFormOnlyClick(Sender: TObject);
-begin
- EwbControl1.MouseWheelFix.ActiveFormOnly := chkActiveFormOnly.Checked;
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-var
- i: ShortInt;
-begin
- for i := 0 to 50 do Listbox1.Items.Add(Inttostr(i));
- ChkMouseWheelFix.Checked := EwbControl1.MouseWheelFix.Active;
- ChkFocusControl.Checked := EwbControl1.FocusControl.Active;
-end;
-
-procedure TForm1.EwbControl1MouseWheel(p: TPoint; hwndFromPoint: HWND;
- lp: Integer; var Handled: Boolean);
-begin
- if GetWinClass(hwndFromPoint) = 'TListBox' then
- begin
- Windows.SetFocus(hwndFromPoint);
- Handled := True;
- end;
-end;
-
-procedure TForm1.Timer1Timer(Sender: TObject);
-begin
- try
- Label3.caption := Screen.ActiveControl.Name;
- except
- end;
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- Form2.Show;
-end;
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.dfm
deleted file mode 100644
index f8dad8a33c7189fb0574521b1afc7da66fd4ac72..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.dfm
+++ /dev/null
@@ -1,63 +0,0 @@
-object Form2: TForm2
- Left = 304
- Top = 235
- Width = 435
- Height = 363
- Caption = 'Form2'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object EmbeddedWB1: TEmbeddedWB
- Left = 16
- Top = 24
- Width = 281
- Height = 233
- TabOrder = 0
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- 'http://bsalsa.com/test/FlashTest.htm')
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C000000F7260000B21E00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Memo1: TMemo
- Left = 312
- Top = 24
- Width = 97
- Height = 233
- Lines.Strings = (
- 'Memo1')
- TabOrder = 1
- end
- object Button1: TButton
- Left = 176
- Top = 288
- Width = 75
- Height = 25
- Caption = 'close'
- TabOrder = 2
- OnClick = Button1Click
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.pas
deleted file mode 100644
index da4c2b8db5c3f243ab2810ef64fa12003b6cc14b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/Unit2.pas
+++ /dev/null
@@ -1,33 +0,0 @@
-unit Unit2;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Controls, Forms,
- Dialogs, StdCtrls, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB;
-
-type
- TForm2 = class(TForm)
- EmbeddedWB1: TEmbeddedWB;
- Memo1: TMemo;
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form2: TForm2;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.Button1Click(Sender: TObject);
-begin
- Close;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/prjEWBControlDemo.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/prjEWBControlDemo.dpr
deleted file mode 100644
index e89029d7541c79f7c8aa94aff513ac5eb7b3b963..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/16 - TEWBControl_Demo/prjEWBControlDemo.dpr
+++ /dev/null
@@ -1,15 +0,0 @@
-program prjEWBControlDemo;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1},
- Unit2 in 'Unit2.pas' {Form2};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TForm2, Form2);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/Filters.ini b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/Filters.ini
deleted file mode 100644
index 8776d63d7c3490dbd2880f26c76599f840ef570c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/Filters.ini
+++ /dev/null
@@ -1,85 +0,0 @@
-[items]
-OnAllowFocusChange=0
-OnAuthenticate=0
-OnBeforeNavigate2=0
-OnBusyWait=0
-OnClientToHostWindow=0
-OnCloseQuery=0
-OnCommandExec=0
-OnCommandStateChange=0
-OnDocumentComplete=0
-OnDocWindowActivate=0
-OnDownloadBegin=0
-OnDownloadComplete=0
-OnDragDrop=0
-OnDragEnter=0
-OnDragLeave=0
-OnDragOver=0
-OnDragOver2=0
-OnDropEvent=0
-OnEnableModeless=0
-OnEndDrag=0
-OnEnter=0
-OnEvaluateNewWindow=0
-OnExit=0
-OnFileDownload=0
-OnFilterDataObject=0
-OnFilterPopupMenu=0
-OnFrameWindowActivate=0
-OnGetDropTarget=0
-OnGetExternal=0
-OnGetHostInfo=0
-OnGetIDsOfNames=0
-OnGetTypeInfo=0
-OnGetTypeInfoCount=0
-OnHideUI=0
-OnInvoke=0
-OnKeyDown=0
-OnKeyUp=0
-OnMaskedCtrlChar=0
-OnMessage=0
-OnMouseDown=0
-OnMouseUp=0
-OnMove=0
-OnMoveBy=0
-OnNavigateComplete2=0
-OnNavigateError=0
-OnNewWindow2=0
-OnNewWindow3=0
-OnPopulateNSTable=0
-OnPrintTemplateInstantiation=0
-OnPrintTemplateTeardown=0
-OnPrivacyImpactedStateChange=0
-OnProgressChange=0
-OnQueryService=0
-OnQuit=0
-OnRefresh=0
-OnResize=0
-OnResizeBorder=0
-OnResizeBy=0
-OnScriptError=0
-OnSetPhishingFilterStatus=0
-OnSetSecureLockIcon=0
-OnShowContextMenu=0
-OnShowDialog=0
-OnShowHelpRequest=0
-OnShowMessage=0
-OnShowUI=0
-OnStartDrag=0
-OnStatusTextChange=0
-OnTitleChange=0
-OnTranslateAccelerator=0
-OnTranslateUrl=0
-OnUnload=0
-OnUpdatePageStatus=0
-OnUpdateUI=0
-OnVisible=0
-OnWindowClosing=0
-OnWindowSetHeight=0
-OnWindowSetLeft=0
-OnWindowSetResizable=0
-OnWindowSetTop=0
-OnWindowSetWidth=0
-OnWindowStateChanged=0
-OnZoomPercentChange=0
-OnClick=1
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/prjEventsTestDemo.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/prjEventsTestDemo.dpr
deleted file mode 100644
index 62320e68da527b46e1a7fe3a13e5abfdfdcb9059..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/prjEventsTestDemo.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program prjEventsTestDemo;
-
-uses
- Forms,
- umain in 'umain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/umain.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/umain.dfm
deleted file mode 100644
index 8c2590892d478bac059f858d6fe4efa6e5dae301..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/umain.dfm
+++ /dev/null
@@ -1,711 +0,0 @@
-object Form1: TForm1
- Left = 183
- Top = 127
- Width = 1036
- Height = 780
- Caption = 'Events Test Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 705
- Top = 80
- Width = 3
- Height = 645
- Cursor = crHSplit
- Align = alRight
- end
- object Panel1: TPanel
- Left = 0
- Top = 38
- Width = 1020
- Height = 42
- Align = alTop
- TabOrder = 0
- object lblFocus: TLabel
- Left = 664
- Top = 13
- Width = 66
- Height = 13
- Caption = 'ActiveControl:'
- end
- object IEAddress1: TIEAddress
- Left = 8
- Top = 11
- Width = 561
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- EmbeddedWB = EWB
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 0
- Text = 'www.google.com'
- TextOnLoad = tlUserDefine
- TextOnShow = 'www.google.com'
- end
- object btnGo: TButton
- Left = 588
- Top = 9
- Width = 57
- Height = 23
- Caption = 'GO!'
- TabOrder = 1
- OnClick = btnGoClick
- end
- end
- object PageControl1: TPageControl
- Left = 708
- Top = 80
- Width = 312
- Height = 645
- ActivePage = TabSheet2
- Align = alRight
- TabOrder = 1
- object TabSheet1: TTabSheet
- Caption = 'Events'
- object ListBox1: TListBox
- Left = 0
- Top = 46
- Width = 304
- Height = 571
- Align = alClient
- ItemHeight = 13
- TabOrder = 0
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 304
- Height = 46
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object SpeedButton1: TSpeedButton
- Left = 8
- Top = 16
- Width = 113
- Height = 22
- Caption = 'Clear Eventlist'
- OnClick = SpeedButton1Click
- end
- object Button4: TButton
- Left = 136
- Top = 16
- Width = 161
- Height = 22
- Caption = 'Copy Events to Clipboard'
- TabOrder = 0
- OnClick = Button4Click
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Filter'
- ImageIndex = 1
- object CheckListBox1: TCheckListBox
- Left = 0
- Top = 65
- Width = 304
- Height = 552
- Align = alClient
- ItemHeight = 13
- Items.Strings = (
- 'OnAllowFocusChange'
- 'OnAuthenticate'
- 'OnBeforeNavigate2'
- 'OnBusyWait'
- 'OnClick'
- 'OnClientToHostWindow'
- 'OnCloseQuery'
- 'OnCommandExec'
- 'OnCommandStateChange'
- 'OnDocumentComplete'
- 'OnDocWindowActivate'
- 'OnDownloadBegin'
- 'OnDownloadComplete'
- 'OnDragDrop'
- 'OnDragEnter'
- 'OnDragLeave'
- 'OnDragOver'
- 'OnDragOver2'
- 'OnDropEvent'
- 'OnEnableModeless'
- 'OnEndDrag'
- 'OnEnter'
- 'OnEvaluateNewWindow'
- 'OnExit'
- 'OnFileDownload'
- 'OnFilterDataObject'
- 'OnFilterPopupMenu'
- 'OnFrameWindowActivate'
- 'OnGetDropTarget'
- 'OnGetExternal'
- 'OnGetHostInfo'
- 'OnGetIDsOfNames'
- 'OnGetTypeInfo'
- 'OnGetTypeInfoCount'
- 'OnHideUI'
- 'OnInvoke'
- 'OnKeyDown'
- 'OnKeyUp'
- 'OnMaskedCtrlChar'
- 'OnMessage'
- 'OnMove'
- 'OnMoveBy'
- 'OnNavigateComplete2'
- 'OnNavigateError'
- 'OnNewWindow2'
- 'OnNewWindow3'
- 'OnPopulateNSTable'
- 'OnPrintTemplateInstantiation'
- 'OnPrintTemplateTeardown'
- 'OnPrivacyImpactedStateChange'
- 'OnProgressChange'
- 'OnQueryService'
- 'OnQuit'
- 'OnRefresh'
- 'OnResize'
- 'OnResizeBorder'
- 'OnResizeBy'
- 'OnScriptError'
- 'OnSetPhishingFilterStatus'
- 'OnSetSecureLockIcon'
- 'OnShowContextMenu'
- 'OnShowDialog'
- 'OnShowHelpRequest'
- 'OnShowMessage'
- 'OnShowUI'
- 'OnStartDrag'
- 'OnStatusTextChange'
- 'OnTitleChange'
- 'OnTranslateAccelerator'
- 'OnTranslateUrl'
- 'OnUnload'
- 'OnUpdatePageStatus'
- 'OnUpdateUI'
- 'OnVisible'
- 'OnWindowClosing'
- 'OnWindowSetHeight'
- 'OnWindowSetLeft'
- 'OnWindowSetResizable'
- 'OnWindowSetTop'
- 'OnWindowSetWidth'
- 'OnWindowStateChanged'
- 'OnZoomPercentChange')
- Sorted = True
- TabOrder = 0
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 304
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object btnSaveFilters: TSpeedButton
- Left = 8
- Top = 8
- Width = 149
- Height = 22
- Caption = 'Save Filters to File'
- OnClick = btnSaveFiltersClick
- end
- object btnLoadFilters: TSpeedButton
- Left = 176
- Top = 8
- Width = 121
- Height = 22
- Caption = 'Load Filters from File'
- OnClick = btnLoadFiltersClick
- end
- object chkFilterCheckAll: TCheckBox
- Left = 3
- Top = 40
- Width = 119
- Height = 17
- Caption = 'Select All Filters'
- TabOrder = 0
- OnClick = chkFilterCheckAllClick
- end
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Tests'
- ImageIndex = 2
- object Button1: TButton
- Left = 8
- Top = 8
- Width = 265
- Height = 25
- Caption = 'Hide / Show EWB'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 8
- Top = 40
- Width = 265
- Height = 25
- Caption = 'Navigate http://www.microsoft.com/surface/'
- TabOrder = 1
- OnClick = Button2Click
- end
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 725
- Width = 1020
- Height = 19
- Panels = <
- item
- Width = 50
- end>
- SimplePanel = False
- end
- object Panel4: TPanel
- Left = 0
- Top = 80
- Width = 705
- Height = 645
- Align = alClient
- TabOrder = 3
- object EWB: TEmbeddedWB
- Left = 1
- Top = 1
- Width = 703
- Height = 626
- Align = alClient
- TabOrder = 0
- OnDragDrop = EWBDragDrop
- OnDragOver = EWBDragOver
- OnEndDrag = EWBEndDrag
- OnEnter = EWBEnter
- OnExit = EWBExit
- OnStartDrag = EWBStartDrag
- OnStatusTextChange = EWBStatusTextChange
- OnProgressChange = EWBProgressChange
- OnCommandStateChange = EWBCommandStateChange
- OnDownloadBegin = EWBDownloadBegin
- OnDownloadComplete = EWBDownloadComplete
- OnTitleChange = EWBTitleChange
- OnBeforeNavigate2 = EWBBeforeNavigate2
- OnNewWindow2 = EWBNewWindow2
- OnNavigateComplete2 = EWBNavigateComplete2
- OnDocumentComplete = EWBDocumentComplete
- OnQuit = EWBQuit
- OnVisible = EWBVisible
- OnWindowSetResizable = EWBWindowSetResizable
- OnWindowSetLeft = EWBWindowSetLeft
- OnWindowSetTop = EWBWindowSetTop
- OnWindowSetWidth = EWBWindowSetWidth
- OnWindowSetHeight = EWBWindowSetHeight
- OnWindowClosing = EWBWindowClosing
- OnClientToHostWindow = EWBClientToHostWindow
- OnSetSecureLockIcon = EWBSetSecureLockIcon
- OnFileDownload = EWBFileDownload
- OnNavigateError = EWBNavigateError
- OnPrintTemplateInstantiation = EWBPrintTemplateInstantiation
- OnPrintTemplateTeardown = EWBPrintTemplateTeardown
- OnUpdatePageStatus = EWBUpdatePageStatus
- OnPrivacyImpactedStateChange = EWBPrivacyImpactedStateChange
- OnNewWindow3 = EWBNewWindow3
- OnAllowFocusChange = EWBAllowFocusChange
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- OnGetIDsOfNames = EWBGetIDsOfNames
- OnGetTypeInfo = EWBGetTypeInfo
- OnGetTypeInfoCount = EWBGetTypeInfoCount
- OnInvoke = EWBInvoke
- OnShowHelpRequest = EWBShowHelpRequest
- OnShowMessage = EWBShowMessage
- OnFilterDataObject = EWBFilterDataObject
- OnGetExternal = EWBGetExternal
- OnGetHostInfo = EWBGetHostInfo
- OnEnableModeless = EWBEnableModeless
- OnZoomPercentChange = EWBZoomPercentChange
- OnGetDropTarget = EWBGetDropTarget
- OnHideUI = EWBHideUI
- OnOnDocWindowActivate = EWBOnDocWindowActivate
- OnOnFrameWindowActivate = EWBOnFrameWindowActivate
- OnResizeBorder = EWBResizeBorder
- OnShowContextMenu = EWBShowContextMenu
- OnShowUI = EWBShowUI
- OnTranslateAccelerator = EWBTranslateAccelerator
- OnTranslateUrl = EWBTranslateUrl
- OnUpdateUI = EWBUpdateUI
- OnDragEnter = EWBDragEnter
- OnDragLeave = EWBDragLeave
- OnDragOver2 = EWBDragOver2
- OnDropEvent = EWBDropEvent
- OnScriptError = EWBScriptError
- OnQueryService = EWBQueryService
- OnEvaluateNewWindow = EWBEvaluateNewWindow
- OnFilterPopupMenu = EWBFilterPopupMenu
- OnMaskedCtrlChar = EWBMaskedCtrlChar
- OnMove = EWBMove
- OnMoveBy = EWBMoveBy
- OnResize = EWBResize
- OnResizeBy = EWBResizeBy
- OnPopulateNSTable = EWBPopulateNSTable
- OnAuthenticate = EWBAuthenticate
- About = ' EmbeddedWB http://bsalsa.com/'
- OnCloseQuery = EWBCloseQuery
- OnMessage = EWBMessage
- OnShowDialog = EWBShowDialog
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- OnBusyWait = EWBBusyWait
- OnKeyDown = EWBKeyDown
- OnKeyUp = EWBKeyUp
- OnClick = EWBClick
- ControlData = {
- 4C000000883B0000EA3700000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object ProgressBar1: TProgressBar
- Left = 1
- Top = 627
- Width = 703
- Height = 17
- Align = alBottom
- Min = 0
- Max = 100
- TabOrder = 1
- end
- end
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 1020
- Height = 38
- Cursor = crHandPoint
- AutoSize = True
- ButtonHeight = 36
- ButtonWidth = 45
- Flat = True
- Images = ImageListToolBar
- ShowCaptions = True
- TabOrder = 4
- Transparent = True
- Wrapable = False
- object ToolbtnBack: TToolButton
- Left = 0
- Top = 0
- Hint = 'Navigate Back'
- Caption = 'Back'
- Enabled = False
- ImageIndex = 3
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolbtnBackClick
- end
- object ToolBtnForward: TToolButton
- Left = 45
- Top = 0
- Hint = 'Navigate Forward'
- Caption = 'Forward'
- Enabled = False
- ImageIndex = 4
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnForwardClick
- end
- object ToolBtnStop: TToolButton
- Left = 90
- Top = 0
- Hint = 'Stop loading'
- Caption = ' Stop'
- Enabled = False
- ImageIndex = 0
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnStopClick
- end
- object ToolButton10: TToolButton
- Left = 135
- Top = 0
- Width = 8
- Caption = 'ToolButton10'
- ImageIndex = 10
- Style = tbsSeparator
- end
- object ToolBtnRefresh: TToolButton
- Left = 143
- Top = 0
- Hint = 'Refresh Active Tab'
- Caption = 'Refresh'
- ImageIndex = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnRefreshClick
- end
- object ToolBtnHome: TToolButton
- Left = 188
- Top = 0
- Caption = 'Home'
- ImageIndex = 1
- OnClick = ToolBtnHomeClick
- end
- object ToolButton11: TToolButton
- Left = 233
- Top = 0
- Width = 8
- Caption = 'ToolButton11'
- ImageIndex = 10
- Style = tbsSeparator
- end
- object ToolBtnSearch: TToolButton
- Left = 241
- Top = 0
- Hint = 'Search...'
- Caption = 'Search'
- ImageIndex = 5
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnSearchClick
- end
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 835
- Top = 8
- end
- object ImageListToolBar: TImageList
- Left = 870
- Top = 6
- Bitmap = {
- 494C01010A000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 0000000000003600000028000000400000003000000001001000000000000018
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000106600540048B47200000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000B56A005C017D21680048B4660000000000000000FF7F5A6B9452
- 31463146B5567B6FFF7F00000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000B5760060E07840682068806C235C00000000FF7F7B6FAC5561588164
- 8164615860508B413146BD770000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00007A7B2058807C21704068217900583062000000001867A270A278A278A278
- A278A278A27881688250AD359C73000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- BC7F6464407C406C406CE1780058736A00000000BD77A278A278A278A278A278
- A278A278A278A278A27882501042FF7F00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 746A00742078217C60780054187300000000FF7FE478A278A278897900000000
- 0000DE7BA278A278A278A2706A515A6B00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000FF7F
- 7B6BE86000782074425C7A77000000000000387FA278A278517A000000000000
- 00004771A278A278A278A2786050524A00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000FF7F5B6B
- 1A6BFA5E495DC760BC7B0000000000000000E478A278A2780000000000000000
- C36CA278A278E478A278A2788168CE3900000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000FF7F3A6B3A67
- FB5E1D6B0000000000000000000000000000A278A2788164000000000000C36C
- A278A278E478BD774779A278A278CE3900000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000FF7F3C673A671B63
- 1B6700000000000000000000000000000000A278A278815C00000000C36CA278
- A278E478000000008979A278A278104200000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000FF7F3C6B3B671B631A63
- 000000000000000000000000000000000000A278A278826C9B7BE474A278A278
- E47800000000FF7FA278A278A278F75E00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000007B6F1963F95E3A677B6B0000
- 000000000000000000000000000000000000AB7DA278A278A270A278A278E478
- 000000000000F766A278A2780665BD7700000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000FF7FB656FF7FBE77F85E00000000
- 0000000000000000000000000000000000000000A278A278A278A278E4780000
- 00000000B46EA278A278A2783967000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F85EBE77DF7FB7567D7300000000
- 0000000000000000000000000000000000000000517EA278A278A27881686154
- 61588168A278A278A2787266FF7F000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000096569656BE77000000000000
- 000000000000000000000000000000000000000000002F7EA278A278A278A278
- A278A278A278A2785172FF7F0000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000DE7F2679A278A278
- A278A2788979DE7B000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000020016005
- A005A00560052001000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000445EE15500000000
- 0000000000000000015A025A00000000000000000000000080058005410AC10E
- C10EC10EC10E400AA005A0050000000000000000000000000000000000000000
- 000000000000000000006B2D4A29945200000000007C00000000000000000000
- 0000000000000000104200400040000000000000000003564E770973E1550000
- 0000000000006462937B836603560000000000000000A109E109C10EE10EC10E
- C00AC10EC10EE10EE10E000A2001000000000000000000000000000000000000
- 0000000000000000292529253146EF3D00000000007C00400000000000000000
- 0000000000000040007C0040000000000000000000000000A866CF7F0A73E155
- 000000008666D67F6B7FA8660000000000000000A1090112E21AC212C10EC00A
- C10AC10EC10EC10EC10EE10E000A800500000000000000000000000000000000
- 000000000000E71C524A3967734ED65A000000001042007C0000000000000000
- 000000000040007C0000000000000000000000000000000003566C7BAD7F4C77
- 025AA766D87FAD7F6C7BC0510000000000000000A109E426E322C21AC10EE51A
- DB73FD772C37C10EC10EC10EE10E800500000000000000000000000000000000
- 00000000A5146B2D1863186394520000000000001042007C0040000000000000
- 00000040007C000000000000000000000000000000000000000003568A7F8E7F
- 6E7BD67FD37F8B7F03560000000000000000C109631E052FE322C112C10EC212
- 7353FF7FFE7F2B33C10EC10EE10E410A60050000000000000000000000000000
- 00000000E71C3146524AB55600000000000000000000007C007C000000000000
- 0040007C0000000000000000000000000000000000000000000000000356697F
- 8E7FB17FD37F035600000000000000000000C109C52E0533E426C112C10EC10E
- C10E714BFF7FFE7B2B33C10EC10EA10A60050000000000000000000000000000
- 0000AD352925AD3594520000000000000000000000001042007C007C00000040
- 007C00000000000000000000000000000000000000000000E1550356447F457F
- 697F8E7FD27F6F7703560356000000000000010E06370637D96FB96BB86BB96B
- B86BB867FF7FFF7FFE7B4D3FC10EC10E80050000524A2A1D5342B6525442B02D
- 630C4A250000000000000000000000000000000000000000007C007C007C007C
- 0000000000000000000000000000000000000000C051455E4E778C7F667F437F
- 667F6B7F8E7FD37FB17FE86EE86EC051000022122B43283BFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FB763C10EC10EA0050000091D1236FF77DF73DF6F9F6B
- 091DAD3500000000000000000000000000000000000000001042007C007C007C
- 000000000000000000000000000000000000245A306FFB7FF97FD27FAD7F667F
- 437F667F8B7FCF7FF47FF47F6C7B306FC051410E4D4B4B474D4B4E4F4E4F4E4F
- 4C477257FF7FFF7F955FE526E216C10E8005524E7D67BF73FD46FD4E1D4BFB4A
- BF6BAF2D00000000000000000000000000000000000000000040007C007C007C
- 004000000000000000000000000000000000C051C051C051C051C051C0514E77
- 457F437FE572C051C051C051C051C051C051410E2C43935F073B063707370737
- 4E4BFD77FF7F935BE426E31EE216810A800574469F679F6BFD46FD4AFD461C4F
- FF6F333A0000000000000000000000000000000000000040007C007C1042007C
- 007C00400000000000000000000000000000000000000000000000000000C051
- 8C7F457F215E0000000000000000000000000000A41EB76B7053053305332A43
- FE7FFF7F935BE426E322C31A021B010A000074467F5F7F635E5F5E5B5E5F7F63
- BF67964A000000000000000000000000000000400040007C007C000000000000
- 007C007C007C000000000000000000000000000000000000000000000000C051
- B17F697F025A0000000000000000000000000000A41E4E47DA73705306370737
- B76795630533E42AE4260323A21A010A000074465E5B5F5BBF6BDF6F9F675E5F
- DF63543E0000000000000000000000000000007C007C10420000000000000000
- 00001042007C007C007C0000000000000000000000000000000000000000C051
- D57F2B77E15500000000000000000000000000000000A41E704FDB77B5634D4B
- 2A43283F293F293F2737C426E10D000000000000B64E3E53FE7FFE7FDF777F63
- 9546734E00000000000000000000000000001042000000000000000000000000
- 00000000000010420040007C007C00400000000000000000000000000000C051
- D77FCB6AC051000000000000000000000000000000000000A41EA41EB563D96F
- B76B9463925B4C4BC52AC52A00000000000000009352D74ABF6BFF739F5F5D53
- 734E000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000C051
- B97BCC6AC05100000000000000000000000000000000000000000000C626A41E
- A41EA41EA41E842200000000000000000000000000000000D652D652D652D652
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 255E0356000000000000000000000000000000000000000000000000AD316208
- 000000000000AE39000000000000000000000000000000000000932993299329
- 9329000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000C0000001
- 400140010001C00000000000000000000000000000000000000000000000620C
- 8410A518631000000000000000000000000000000000000093293A32DD3EDC46
- 9A3A9329932993299329000000000000000000009435712D712D712D712D712D
- 712D712D712D712D712D712D50250000000000000000000000010001E0056006
- 600660066006E005200120010000000000000000000000004208082594567A73
- BE7F9D7F5A777352082142080000000000000000000093299A3A9D32DD423D53
- 1D47162ECC18EE1C9329932993290000000000009435BF677E5F5E5B5E533D4F
- 1D4B1D47FD42FD3EFD3E1D435025000000000000000020058005800680068006
- 60066006800680068006A001C0000000000000000000420800009D77D6626B41
- E73409396B41B5667B77000042080000000000009329BC3EDD3A9D32DD469E63
- 3E4F1636CC18CC183832BD3A3936932900000000942DBF6F9E637E5F5E5B1847
- C001C001D73AFD42FD3E1D4350250000000000002005A009A10E800A60066006
- 600660066006600680068006A001200100000000000029259B77412807552861
- 0761E664C75C854801289C7729250000000093291E433E3FDD3A9D321E4FBF6B
- 9F5B383ACC18CC183832BD3A9A36932900000000942DDF739E67C001384BC001
- 1843F842C001D736FD421D4350250000000000002005A21AA116810E6006092B
- FD77DA6FA2126006600660068006200100006B2D00009452D56649516A654969
- 2765E668E768C75CA544B666735200006B2D93293E433E3FDE3A9E2E1E4FDF77
- BF6B7842AB14CC183832BD3A9A36932900000000D435FF7BBF6FC001C001384F
- 5E5B5E57F742C0011D471D4350250000000040010112C222A116800AE826FE7B
- FF7F5047800A6006600660068006E00500014208630C596F6A3DCC65AA6D8A71
- 686D2771E770E768C75C4B417B77630C210093293E433F3FBC3E343E1E4FFF7B
- DF77DA522F21ED183836BD3A9A36932900000000D435FF7FDF73C001C001C001
- 7E5F5E5B5E533D4F1D4B3E4750250000000040018222C326A21AE826FE7BFF7F
- 4E3F6006600660066006600680064006000100008410BD7F28352F72EC71EC75
- CB7568790775E76CE7600A41DE7F8410420093293F3F19472772A2796D6AFF77
- DF77DF739E63DC46DC42BC3E9A369329000000001736FF7FDF7BBF73BF6F9E67
- 9E63C001C001C0013D4F3E4B502500000000A005C42AC32A4E4BFE7BFF7FFE7F
- B663965F955B955B955B965B80066006200100008410DD7F6A3D9172707A707A
- 4E7AAB754975086DE760E738BD7FA41000009329D05A857E637E037EA17DAD7A
- FF77DF77BF6B9E633D53DD429A3A9131000000001736FF7FFF7FC001795FBE6F
- 9E67384FC001C0015E535E53502500000000C109E736E52EB767FF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7F800660064001420C630C596FAD41167B157FF37E
- 9076EC718B714969085D6A3D596F620C4208057A257E657E857E247EE27DA17D
- CE7AFF77DF77BF6B9F5BDA52CF3D9035000000005A36FF7FFF7F9967C001795F
- 595BC001384FC0017E5B3D53502500000000E0050A3F083BE52E945FFF7FFF7F
- 7053E72E082FE82EE82EE82A800E60060001AD3900009352B45A3773997F157F
- 9076EC6DAB6D8B690751D66293560000CE390000057E257E657E857E247EE27D
- A17DCE7AFF77FF7739678B4D6C3D0000000000005A36FF7FFF7FFF7F9967C001
- C001595B9F6BBF673B5BB64A502500000000E005E9367053C42AC326725BFF7F
- DC77093BA21AA11AA1168112800A2006000100000000E61C9B77492D1673167B
- 91760E6ECC65495141289D7708210000000000000000057A257E657E657E247E
- E27DA17DCF7E14734655474500000000000000007B3AFF7FFF7FFF7FFF7FFF7F
- DF77DF737D67942D942D942D942D000000000000621295634D47A226C3267157
- FF7FFE7BE52AA21A81168112A10EA005000000000000210400049B77B556AC39
- 483148358A3DB45E9B730000420800000000000000000000257E657E857E657E
- 037EE27DA17D43712359000000000000000000007B3AFF7FFF7FFF7FFF7FFF7F
- FF7FFF7B1B5F942D7C2A3C1AB62500000000000062120A3BD86F2C47C42AC326
- 725B9563C326A21EA21AC116610EA00500000000000000004208072194567B73
- DE7FBD7F596FB5564A25630C0000000000000000000000000000257E657E857E
- 647EE4796150E468000000000000000000000000BC3EFF7FFF7FFF7FFF7FFF7F
- FF7FFF7F1B63942DDF2EF72D0000000000000000000062122D47DA73935B0A3F
- E732E52EE632E52EE426821A8005000000000000000000000000000000006310
- 84148414430C00000000000000000000000000000000000000000000257E657E
- 00000000013CC468000000000000000000000000BC3EDF7BDF77DF77DF77DF77
- DE77DE771B63942D1836000000000000000000000000000062126212935BB76B
- 9463925B6F4F093F631E631E00000000000000000000000000000000AD398310
- 0000000084108C31000000000000000000000000000000000000000000000000
- 000000002140C468000000000000000000000000BC3E39363936393639363936
- 393639363936942D0000000000000000000000000000000000000000831A6212
- 621262126212221600000000000000000000424D3E000000000000003E000000
- 2800000040000000300000000100010000000000800100000000000000000000
- 000000000000000000000000FFFFFF00FFE1FFFF00000000FFC0F00F00000000
- FF80C00700000000FF00C00300000000FE01800100000000FE03070100000000
- FC070F0100000000F80F1E0100000000F07F1C0100000000E0FF186100000000
- C1FF00C10000000083FF01C10000000007FF83830000000007FF800300000000
- 8FFFC00700000000FFFFE01F00000000F81FFFFFFFFFE7E7E007FFF19FE3C3C3
- C003FFE19FC7E1878001FFC18F8FE0078001FF838F1FF00F0000FF87C63FF81F
- 0000FF0FC07FE0070000807FE0FF80010000807FE1FF00000000007FE0FF0000
- 0000007FC07FFC3F8001007F0E1FFC3F8001007F1F07FC3FC003807F7FC1FC3F
- E00780FFFFFFFC3FF81FE1FFFFFFFE7FF81FF0FFFFFFF81FF00FE00F8003E007
- E007C0038003C003C00380018003800180010001800380010000000180030000
- 0000000180030000000000018003000000000001800300000000000180030000
- 00008003800300008001C00780038001C003E00F80038001E007F01F8007C003
- F00FF99F800FE007F81FFF9F801FF81F00000000000000000000000000000000
- 000000000000}
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/umain.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/umain.pas
deleted file mode 100644
index 64d4920f1194b08ef3bb0cb61f094c2ea8ac56e0..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/17 - EWB Events Logger_Demo/umain.pas
+++ /dev/null
@@ -1,1020 +0,0 @@
-unit umain;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Controls, Forms,
- Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw_EWB, EwbCore, ActiveX, EmbeddedWB,
- IEAddress, ComObj, URLMon, EwbAcc, CheckLst, ComCtrls, Buttons, ToolWin,
- ImgList;
-
-type
- TForm1 = class(TForm)
- Timer1: TTimer;
- Panel1: TPanel;
- lblFocus: TLabel;
- IEAddress1: TIEAddress;
- btnGo: TButton;
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- ListBox1: TListBox;
- TabSheet2: TTabSheet;
- CheckListBox1: TCheckListBox;
- Panel2: TPanel;
- chkFilterCheckAll: TCheckBox;
- Panel3: TPanel;
- SpeedButton1: TSpeedButton;
- StatusBar1: TStatusBar;
- btnSaveFilters: TSpeedButton;
- btnLoadFilters: TSpeedButton;
- Splitter1: TSplitter;
- TabSheet3: TTabSheet;
- Button1: TButton;
- Panel4: TPanel;
- EWB: TEmbeddedWB;
- ProgressBar1: TProgressBar;
- Button2: TButton;
- ImageListToolBar: TImageList;
- ToolBar1: TToolBar;
- ToolbtnBack: TToolButton;
- ToolBtnForward: TToolButton;
- ToolBtnStop: TToolButton;
- ToolButton10: TToolButton;
- ToolBtnRefresh: TToolButton;
- ToolBtnHome: TToolButton;
- ToolButton11: TToolButton;
- ToolBtnSearch: TToolButton;
- Button4: TButton;
- procedure Timer1Timer(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure EWBAllowFocusChange(Sender: TObject;
- var Value: LongBool);
- procedure EWBAuthenticate(Sender: TCustomEmbeddedWB;
- var hwnd: HWND; var szUserName, szPassWord: WideString;
- var Rezult: HRESULT);
- procedure EWBBeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- procedure EWBClientToHostWindow(ASender: TObject; var CX,
- CY: Integer);
- procedure EWBCloseQuery(Sender: TObject;
- var CanClose: Boolean);
- procedure EWBCommandExec(Sender: TObject; CmdGroup: PGUID;
- nCmdID, nCmdexecopt: Cardinal; const vaIn: OleVariant;
- var vaOut: OleVariant; var Rezult: HRESULT);
- procedure EWBCommandStateChange(ASender: TObject;
- Command: Integer; Enable: WordBool);
- procedure EWBDocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- procedure EWBDownloadBegin(Sender: TObject);
- procedure EWBDownloadComplete(Sender: TObject);
- procedure EWBDragDrop(Sender, Source: TObject; X, Y: Integer);
- procedure EWBDragEnter(Sender: TObject;
- const dataObj: IDataObject; grfKeyState: Integer; pt: TPoint;
- var dwEffect: Integer; var Rezult: HRESULT);
- procedure EWBDragOver(Sender, Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean);
- procedure EWBDragLeave(Sender: TObject);
- procedure EWBDropEvent(Sender: TObject;
- const dataObj: IDataObject; grfKeyState: Integer; pt: TPoint;
- var dwEffect: Integer; var Rezult: HRESULT);
- procedure EWBDragOver2(Sender: TObject; grfKeyState: Integer;
- pt: TPoint; var dwEffect: Integer; var Rezult: HRESULT);
- procedure EWBEnableModeless(Sender: TCustomEmbeddedWB;
- const fEnable: LongBool);
- procedure EWBEndDrag(Sender, Target: TObject; X, Y: Integer);
- procedure EWBEnter(Sender: TObject);
- procedure EWBEvaluateNewWindow(Sender: TCustomEmbeddedWB;
- pszUrl, pszName, pszUrlContext, pszFeatures: PWideChar;
- fReplace: LongBool; dwFlags, dwUserActionTime: Cardinal;
- var Rezult: HRESULT);
- procedure EWBExit(Sender: TObject);
- procedure EWBFileDownload(Sender: TCustomEmbeddedWB;
- pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal;
- pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar;
- uiCP: Cardinal; var Rezult: HRESULT);
- procedure EWBFilterDataObject(Sender: TCustomEmbeddedWB;
- const pDO: IDataObject; var ppDORet: IDataObject);
- procedure EWBFilterPopupMenu(Sender: TObject; ID: Cardinal; Menu: HMENU;
- const Context: IDispatch);
- procedure EWBGetDropTarget(Sender: TCustomEmbeddedWB; var DropTarget: IDropTarget);
- procedure EWBGetExternal(Sender: TCustomEmbeddedWB;
- var ppDispatch: IDispatch);
- procedure EWBGetHostInfo(Sender: TCustomEmbeddedWB;
- var pInfo: TDOCHOSTUIINFO);
- procedure EWBGetIDsOfNames(Sender: TObject; const IID: TGUID;
- Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer;
- var Rezult: HRESULT);
- procedure EWBGetTypeInfo(Sender: TObject; Index,
- LocaleID: Integer; var TypeInfo: ITypeInfo; var Rezult: HRESULT);
- procedure EWBGetTypeInfoCount(Sender: TObject;
- var Count: Integer; var Rezult: HRESULT);
- procedure EWBHideUI(Sender: TObject; var Rezult: HRESULT);
- procedure EWBInvoke(Sender: TObject; DispID: Integer;
- const IID: TGUID; LocaleID: Integer; Flags: Word;
- var Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer;
- var Rezult: HRESULT);
- procedure EWBMaskedCtrlChar(Sender: TCustomEmbeddedWB;
- MaskedChar: Char);
- procedure EWBMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean);
- procedure EWBMove(Sender: TCustomEmbeddedWB; cx, cy: Integer);
- procedure EWBMoveBy(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
- procedure EWBNavigateComplete2(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- procedure EWBNavigateError(ASender: TObject;
- const pDisp: IDispatch; var URL, Frame, StatusCode: OleVariant;
- var Cancel: WordBool);
- procedure EWBNewWindow2(ASender: TObject;
- var ppDisp: IDispatch; var Cancel: WordBool);
- procedure EWBNewWindow3(ASender: TObject;
- var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
- const bstrUrlContext, bstrUrl: WideString);
- procedure EWBOnDocWindowActivate(Sender: TCustomEmbeddedWB;
- const fActivate: LongBool);
- procedure EWBOnFrameWindowActivate(Sender: TCustomEmbeddedWB;
- const fActivate: LongBool);
- procedure EWBPopulateNSTable(Sender: TObject);
- procedure EWBPrintTemplateInstantiation(ASender: TObject;
- const pDisp: IDispatch);
- procedure EWBPrintTemplateTeardown(ASender: TObject;
- const pDisp: IDispatch);
- procedure EWBPrivacyImpactedStateChange(ASender: TObject;
- bImpacted: WordBool);
- procedure EWBProgressChange(ASender: TObject; Progress,
- ProgressMax: Integer);
- procedure EWBQuit(Sender: TObject);
- procedure EWBRefresh(Sender: TCustomEmbeddedWB; CmdID: Integer;
- var Cancel: Boolean);
- procedure EWBResize(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
- procedure EWBResizeBorder(Sender: TCustomEmbeddedWB;
- const prcBorder: PRect; const pUIWindow: IOleInPlaceUIWindow;
- const fRameWindow: LongBool);
- procedure EWBResizeBy(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
- procedure EWBScriptError(Sender: TObject; ErrorLine,
- ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string;
- var ScriptErrorAction: TScriptErrorAction);
- procedure EWBSetSecureLockIcon(ASender: TObject;
- SecureLockIcon: Integer);
- function EWBShowHelpRequest(Sender: TObject; HWND: Cardinal;
- pszHelpFile: PWideChar; uCommand, dwData: Integer; ptMouse: TPoint;
- var pDispatchObjectHit: IDispatch): HRESULT;
- function EWBShowMessage(Sender: TObject; HWND: Cardinal; lpstrText,
- lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
- dwHelpContext: Integer; var plResult: Integer): HRESULT;
- procedure EWBShowUI(Sender: TCustomEmbeddedWB;
- const dwID: Cardinal; const pActiveObject: IOleInPlaceActiveObject;
- const pCommandTarget: IOleCommandTarget;
- const pFrame: IOleInPlaceFrame; const pDoc: IOleInPlaceUIWindow;
- var Rezult: HRESULT);
- procedure EWBStartDrag(Sender: TObject;
- var DragObject: TDragObject);
- procedure EWBStatusTextChange(ASender: TObject;
- const Text: WideString);
- procedure EWBTitleChange(ASender: TObject;
- const Text: WideString);
- procedure EWBTranslateAccelerator(Sender: TCustomEmbeddedWB;
- const lpMsg: PMsg; const pguidCmdGroup: PGUID;
- const nCmdID: Cardinal; var Done: Boolean);
- procedure EWBTranslateUrl(Sender: TCustomEmbeddedWB;
- const pchURLIn: PWideChar; var ppchURLOut: WideString);
- procedure EWBUnload(Sender: TObject);
- procedure EWBUpdatePageStatus(ASender: TObject;
- const pDisp: IDispatch; var nPage, fDone: OleVariant);
- procedure EWBUpdateUI(Sender: TObject; var Rezult: HRESULT);
- procedure EWBVisible(ASender: TObject; Visible: WordBool);
- procedure EWBWindowClosing(ASender: TObject;
- IsChildWindow: WordBool; var Cancel: WordBool);
- procedure EWBWindowSetHeight(ASender: TObject;
- Height: Integer);
- procedure EWBWindowSetLeft(ASender: TObject; Left: Integer);
- procedure EWBWindowSetResizable(ASender: TObject;
- Resizable: WordBool);
- procedure EWBWindowSetTop(ASender: TObject; Top: Integer);
- procedure EWBWindowSetWidth(ASender: TObject; Width: Integer);
- function EWBZoomPercentChange(Sender: TCustomEmbeddedWB;
- const ulZoomPercent: Cardinal): HRESULT;
- procedure chkFilterCheckAllClick(Sender: TObject);
- procedure SpeedButton1Click(Sender: TObject);
- procedure btnSaveFiltersClick(Sender: TObject);
- procedure btnLoadFiltersClick(Sender: TObject);
- procedure btnGoClick(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure ToolBtnRefreshClick(Sender: TObject);
- procedure ToolbtnBackClick(Sender: TObject);
- procedure ToolBtnForwardClick(Sender: TObject);
- procedure ToolBtnStopClick(Sender: TObject);
- procedure ToolBtnHomeClick(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure EWBBusyWait(Sender: TEmbeddedWB; AStartTime: Cardinal;
- var TimeOut: Cardinal; var Cancel: Boolean);
- procedure EWBShowDialog(Sender: TObject; h: Cardinal; StyleEx: Integer;
- OldCaption: string; var NewCaption: WideString; var Cancel: Boolean);
- procedure EWBWindowStateChanged(Sender: TObject; dwWindowStateFlags,
- dwValidFlagsMask: Cardinal);
- procedure EWBSetPhishingFilterStatus(Sender: TObject;
- PhishingFilterStatus: Integer);
- procedure EWBMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure EWBMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure EWBKeyDown(Sender: TObject; var Key: Word; ScanCode: Word;
- Shift: TShiftState);
- procedure EWBKeyUp(Sender: TObject; var Key: Word; ScanCode: Word;
- Shift: TShiftState);
- procedure EWBQueryService(Sender: TObject; const rsid, iid: TGUID;
- var Obj: IUnknown);
- procedure EWBShowContextMenu(Sender: TCustomEmbeddedWB;
- const dwID: Cardinal; const ppt: PPoint;
- const CommandTarget: IUnknown; const Context: IDispatch;
- var Result: HRESULT);
- procedure EWBClick(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure ToolBtnSearchClick(Sender: TObject);
- private
- { Private declarations }
- iBeforeNavigate2: Integer;
- iOnDownloadBegin: Integer;
- iOnDownloadComplete: Integer;
- iOnNavigateComplete2: Integer;
- procedure SelectFilters(CheckAll: Boolean);
- procedure LogEvent(Sender: TObject; const s: string; Param1: string = ''; Param2: string = ''; Param3: string = ''; ForceLog: Boolean = False);
- function IsEventFilterChecked(const s: string): Boolean;
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-uses
- IniFiles, Clipbrd, EWBTools;
-
-{$R *.dfm}
-
-
-procedure TForm1.EWBAllowFocusChange(Sender: TObject;
- var Value: LongBool);
-begin
- // Queries for permission to grab the focus when loading the page or when a
- // script attempts to focus an element.
- LogEvent(Sender, 'OnAllowFocusChange');
-end;
-
-procedure TForm1.EWBAuthenticate(Sender: TCustomEmbeddedWB;
- var hwnd: HWND; var szUserName, szPassWord: WideString;
- var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnAuthenticate');
-end;
-
-procedure TForm1.EWBBeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- Inc(iBeforeNavigate2);
- LogEvent(ASender, 'OnBeforeNavigate2', ' (' + IntToStr(iBeforeNavigate2) + ')');
-end;
-
-procedure TForm1.EWBClick(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- LogEvent(Sender, 'OnClick');
-end;
-
-procedure TForm1.EWBClientToHostWindow(ASender: TObject; var CX,
- CY: Integer);
-begin
- LogEvent(ASender, 'OnClientToHostWindow');
-end;
-
-procedure TForm1.EWBCloseQuery(Sender: TObject;
- var CanClose: Boolean);
-begin
- LogEvent(Sender, 'OnCloseQuery');
-end;
-
-procedure TForm1.EWBCommandExec(Sender: TObject; CmdGroup: PGUID;
- nCmdID, nCmdexecopt: Cardinal; const vaIn: OleVariant;
- var vaOut: OleVariant; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnCommandExec');
-end;
-
-function BoolEnableToStr(B: Boolean): string;
-const
- cSimpleBoolStrs: array [Boolean] of String = ('Enable = True', 'Enable = False');
-begin
- Result := cSimpleBoolStrs[B];
-end;
-
-procedure TForm1.EWBCommandStateChange(ASender: TObject;
- Command: Integer; Enable: WordBool);
-const
- CSC_UPDATECOMMANDS = -1;
-begin
- case Command of
- CSC_NAVIGATEBACK:
- begin
- ToolbtnBack.Enabled := Enable;
- LogEvent(ASender, 'OnCommandStateChange', 'CSC_NAVIGATEBACK', BoolEnableToStr(Enable));
- end;
- CSC_NAVIGATEFORWARD:
- begin
- ToolbtnForward.Enabled := Enable;
- LogEvent(ASender, 'OnCommandStateChange', 'CSC_NAVIGATEFORWARD', BoolEnableToStr(Enable));
- end;
- CSC_UPDATECOMMANDS:
- begin
- ToolbtnStop.Enabled := Enable;
- LogEvent(ASender, 'OnCommandStateChange', 'CSC_UPDATECOMMANDS', BoolEnableToStr(Enable));
- end;
- end;
-end;
-
-procedure TForm1.EWBDocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-var
- CurWebrowser: IWebBrowser;
- TopWebBrowser: IWebBrowser;
- Document: OLEvariant;
- WindowName: string;
-begin
- CurWebrowser := pDisp as IWebBrowser;
- TopWebBrowser := (ASender as TEmbeddedWB).DefaultInterface;
- if CurWebrowser = TopWebBrowser then
- LogEvent(ASender, 'OnDocumentComplete', 'All frames loaded.')
- else
- begin
- Document := CurWebrowser.Document;
- WindowName := Document.ParentWindow.Name;
- LogEvent(ASender, 'OnDocumentComplete', 'Frame ' + WindowName);
- end;
-end;
-
-procedure TForm1.EWBDownloadBegin(Sender: TObject);
-begin
- Inc(iOnDownloadBegin);
- LogEvent(Sender, 'OnDownloadBegin', ' (' + IntToStr(iOnDownloadBegin) + ')');
-end;
-
-procedure TForm1.EWBDownloadComplete(Sender: TObject);
-begin
- Inc(iOnDownloadComplete);
- LogEvent(Sender, 'OnDownloadComplete', ' (' + IntToStr(iOnDownloadComplete) + ')');
-end;
-
-procedure TForm1.EWBDragDrop(Sender, Source: TObject; X,
- Y: Integer);
-begin
- LogEvent(Sender, 'OnDragDrop');
-end;
-
-procedure TForm1.EWBDragEnter(Sender: TObject;
- const dataObj: IDataObject; grfKeyState: Integer; pt: TPoint;
- var dwEffect: Integer; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnDragEnter');
-end;
-
-procedure TForm1.EWBDragOver(Sender, Source: TObject; X,
- Y: Integer; State: TDragState; var Accept: Boolean);
-begin
- LogEvent(Sender, 'OnDragOver');
-end;
-
-procedure TForm1.EWBDragLeave(Sender: TObject);
-begin
- LogEvent(Sender, 'OnDragLeave');
-end;
-
-procedure TForm1.EWBDropEvent(Sender: TObject;
- const dataObj: IDataObject; grfKeyState: Integer; pt: TPoint;
- var dwEffect: Integer; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnDropEvent');
-end;
-
-procedure TForm1.EWBDragOver2(Sender: TObject;
- grfKeyState: Integer; pt: TPoint; var dwEffect: Integer;
- var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnDragOver2');
-end;
-
-procedure TForm1.EWBEnableModeless(Sender: TCustomEmbeddedWB;
- const fEnable: LongBool);
-begin
- LogEvent(Sender, 'OnEnableModeless');
-end;
-
-procedure TForm1.EWBEndDrag(Sender, Target: TObject; X,
- Y: Integer);
-begin
- LogEvent(Sender, 'OnEndDrag');
-end;
-
-procedure TForm1.EWBEnter(Sender: TObject);
-begin
- LogEvent(Sender, 'OnEnter');
-end;
-
-procedure TForm1.EWBEvaluateNewWindow(Sender: TCustomEmbeddedWB;
- pszUrl, pszName, pszUrlContext, pszFeatures: PWideChar;
- fReplace: LongBool; dwFlags, dwUserActionTime: Cardinal;
- var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnEvaluateNewWindow');
-end;
-
-procedure TForm1.EWBExit(Sender: TObject);
-begin
- LogEvent(Sender, 'OnExit');
-end;
-
-procedure TForm1.EWBFileDownload(Sender: TCustomEmbeddedWB;
- pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal;
- pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal;
- var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnFileDownload');
-end;
-
-procedure TForm1.EWBFilterDataObject(Sender: TCustomEmbeddedWB;
- const pDO: IDataObject; var ppDORet: IDataObject);
-begin
- LogEvent(Sender, 'OnFilterDataObject');
-end;
-
-procedure TForm1.EWBFilterPopupMenu(Sender: TObject; ID: Cardinal; Menu: HMENU;
- const Context: IDispatch);
-begin
- LogEvent(Sender, 'OnFilterPopupMenu');
-end;
-
-procedure TForm1.EWBGetDropTarget(Sender: TCustomEmbeddedWB; var DropTarget: IDropTarget);
-begin
- LogEvent(Sender, 'OnGetDropTarget');
-end;
-
-procedure TForm1.EWBGetExternal(Sender: TCustomEmbeddedWB;
- var ppDispatch: IDispatch);
-begin
- LogEvent(Sender, 'OnGetExternal');
-end;
-
-procedure TForm1.EWBGetHostInfo(Sender: TCustomEmbeddedWB;
- var pInfo: TDOCHOSTUIINFO);
-begin
- LogEvent(Sender, 'OnGetHostInfo');
-end;
-
-procedure TForm1.EWBGetIDsOfNames(Sender: TObject;
- const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer;
- DispIDs: Pointer; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnGetIDsOfNames');
-end;
-
-procedure TForm1.EWBGetTypeInfo(Sender: TObject; Index,
- LocaleID: Integer; var TypeInfo: ITypeInfo; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnGetTypeInfo');
-end;
-
-procedure TForm1.EWBGetTypeInfoCount(Sender: TObject;
- var Count: Integer; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnGetTypeInfoCount');
-end;
-
-procedure TForm1.EWBHideUI(Sender: TObject; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnHideUI');
-end;
-
-procedure TForm1.EWBInvoke(Sender: TObject; DispID: Integer;
- const IID: TGUID; LocaleID: Integer; Flags: Word;
- var Params: tagDISPPARAMS; VarResult, ExcepInfo, ArgErr: Pointer;
- var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnInvoke');
-end;
-
-procedure TForm1.EWBMaskedCtrlChar(Sender: TCustomEmbeddedWB;
- MaskedChar: Char);
-begin
- LogEvent(Sender, 'OnMaskedCtrlChar');
-end;
-
-procedure TForm1.EWBMessage(Sender: TObject; var Msg: TMessage;
- var Handled: Boolean);
-begin
- LogEvent(Sender, 'OnMessage', IntToStr(Msg.Msg), IntToHex(Msg.LParam, 4), IntToHex(Msg.WParam, 4))
-end;
-
-procedure TForm1.EWBMove(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
-begin
- LogEvent(Sender, 'OnMove');
-end;
-
-procedure TForm1.EWBMoveBy(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
-begin
- LogEvent(Sender, 'OnMoveBy');
-end;
-
-procedure TForm1.EWBNavigateComplete2(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-begin
- Inc(iOnNavigateComplete2);
- LogEvent(ASender, 'OnNavigateComplete2', ' (' + IntToStr(iOnNavigateComplete2) + ')');
-end;
-
-procedure TForm1.EWBNavigateError(ASender: TObject;
- const pDisp: IDispatch; var URL, Frame, StatusCode: OleVariant;
- var Cancel: WordBool);
-begin
- LogEvent(ASender, 'OnNavigateError');
-end;
-
-procedure TForm1.EWBNewWindow2(ASender: TObject;
- var ppDisp: IDispatch; var Cancel: WordBool);
-begin
- LogEvent(ASender, 'OnNewWindow2');
-end;
-
-procedure TForm1.EWBNewWindow3(ASender: TObject;
- var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
- const bstrUrlContext, bstrUrl: WideString);
-begin
- LogEvent(ASender, 'OnNewWindow3');
-end;
-
-procedure TForm1.EWBOnDocWindowActivate(Sender: TCustomEmbeddedWB;
- const fActivate: LongBool);
-begin
- LogEvent(Sender, 'OnDocWindowActivate');
-end;
-
-procedure TForm1.EWBOnFrameWindowActivate(
- Sender: TCustomEmbeddedWB; const fActivate: LongBool);
-begin
- LogEvent(Sender, 'OnFrameWindowActivate');
-end;
-
-procedure TForm1.EWBPopulateNSTable(Sender: TObject);
-begin
- LogEvent(Sender, 'OnPopulateNSTable');
-end;
-
-procedure TForm1.EWBPrintTemplateInstantiation(ASender: TObject;
- const pDisp: IDispatch);
-begin
- LogEvent(ASender, 'OnPrintTemplateInstantiation');
-end;
-
-procedure TForm1.EWBPrintTemplateTeardown(ASender: TObject;
- const pDisp: IDispatch);
-begin
- LogEvent(ASender, 'OnPrintTemplateTeardown');
-end;
-
-procedure TForm1.EWBPrivacyImpactedStateChange(ASender: TObject;
- bImpacted: WordBool);
-begin
- LogEvent(ASender, 'OnPrivacyImpactedStateChange');
-end;
-
-procedure TForm1.EWBProgressChange(ASender: TObject; Progress,
- ProgressMax: Integer);
-begin
- if ProgressMax <> 0 then
- ProgressBar1.Position := Trunc((Progress / ProgressMax) * 100) + 1
- else
- ProgressBar1.Position := 0;
-
- LogEvent(ASender, 'OnProgressChange', IntToStr(Progress) + '/' + IntToStr(ProgressMax));
-end;
-
-
-procedure TForm1.EWBQuit(Sender: TObject);
-begin
- LogEvent(Sender, 'OnQuit');
-end;
-
-procedure TForm1.EWBRefresh(Sender: TCustomEmbeddedWB;
- CmdID: Integer; var Cancel: Boolean);
-begin
- LogEvent(Sender, 'OnRefresh');
-end;
-
-procedure TForm1.EWBResize(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
-begin
- LogEvent(Sender, 'OnResize');
-end;
-
-procedure TForm1.EWBResizeBorder(Sender: TCustomEmbeddedWB;
- const prcBorder: PRect; const pUIWindow: IOleInPlaceUIWindow;
- const fRameWindow: LongBool);
-begin
- LogEvent(Sender, 'OnResizeBorder');
-end;
-
-procedure TForm1.EWBResizeBy(Sender: TCustomEmbeddedWB; cx,
- cy: Integer);
-begin
- LogEvent(Sender, 'OnResizeBy');
-end;
-
-procedure TForm1.EWBScriptError(Sender: TObject; ErrorLine,
- ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string;
- var ScriptErrorAction: TScriptErrorAction);
-begin
- LogEvent(Sender, 'OnScriptError');
-end;
-
-procedure TForm1.EWBSetSecureLockIcon(ASender: TObject;
- SecureLockIcon: Integer);
-begin
- LogEvent(ASender, 'OnSetSecureLockIcon');
-end;
-
-function TForm1.EWBShowHelpRequest(Sender: TObject; HWND: Cardinal;
- pszHelpFile: PWideChar; uCommand, dwData: Integer; ptMouse: TPoint;
- var pDispatchObjectHit: IDispatch): HRESULT;
-begin
- Result := S_FALSE;
- LogEvent(Sender, 'OnShowHelpRequest');
-end;
-
-function TForm1.EWBShowMessage(Sender: TObject; HWND: Cardinal; lpstrText,
- lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
- dwHelpContext: Integer; var plResult: Integer): HRESULT;
-begin
- Result := S_FALSE;
- LogEvent(Sender, 'OnShowMessage');
-end;
-
-procedure TForm1.EWBShowUI(Sender: TCustomEmbeddedWB;
- const dwID: Cardinal; const pActiveObject: IOleInPlaceActiveObject;
- const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
- const pDoc: IOleInPlaceUIWindow; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnShowUI');
-end;
-
-procedure TForm1.EWBStartDrag(Sender: TObject;
- var DragObject: TDragObject);
-begin
- LogEvent(Sender, 'OnStartDrag');
-end;
-
-procedure TForm1.EWBStatusTextChange(ASender: TObject;
- const Text: WideString);
-begin
- LogEvent(ASender, 'OnStatusTextChange');
- StatusBar1.Panels[0].Text := Text;
-end;
-
-
-procedure TForm1.EWBTitleChange(ASender: TObject;
- const Text: WideString);
-begin
- LogEvent(ASender, 'OnTitleChange');
- Caption := Text;
-end;
-
-procedure TForm1.EWBTranslateAccelerator(Sender: TCustomEmbeddedWB;
- const lpMsg: PMsg; const pguidCmdGroup: PGUID; const nCmdID: Cardinal;
- var Done: Boolean);
-var
- tempC: array[1..2] of Char;
- KeyState: TKeyboardState;
-begin
- GetKeyboardState(KeyState);
- if ToAscii(lpMsg.wParam, MapVirtualKey(lpMsg.wParam, 0), keyState, @tempC[1], 0) > 0 then
- LogEvent(Sender, 'OnTranslateAccelerator', IntToStr(lpMsg.message), tempC[1])
- else
- LogEvent(Sender, 'OnTranslateAccelerator', IntToStr(lpMsg.message), IntToStr(lpMsg.wParam))
-end;
-
-procedure TForm1.EWBTranslateUrl(Sender: TCustomEmbeddedWB;
- const pchURLIn: PWideChar; var ppchURLOut: WideString);
-begin
- LogEvent(Sender, 'OnTranslateUrl');
-end;
-
-procedure TForm1.EWBUnload(Sender: TObject);
-begin
- LogEvent(Sender, 'OnUnload');
-end;
-
-procedure TForm1.EWBUpdatePageStatus(ASender: TObject;
- const pDisp: IDispatch; var nPage, fDone: OleVariant);
-begin
- LogEvent(ASender, 'OnUpdatePageStatus');
-end;
-
-procedure TForm1.EWBUpdateUI(Sender: TObject; var Rezult: HRESULT);
-begin
- LogEvent(Sender, 'OnUpdateUI');
-end;
-
-procedure TForm1.EWBVisible(ASender: TObject; Visible: WordBool);
-begin
- LogEvent(ASender, 'OnVisible');
-end;
-
-procedure TForm1.EWBWindowClosing(ASender: TObject;
- IsChildWindow: WordBool; var Cancel: WordBool);
-begin
- LogEvent(ASender, 'OnWindowClosing');
-end;
-
-procedure TForm1.EWBWindowSetHeight(ASender: TObject;
- Height: Integer);
-begin
- LogEvent(ASender, 'OnWindowSetHeight');
-end;
-
-procedure TForm1.EWBWindowSetLeft(ASender: TObject; Left: Integer);
-begin
- LogEvent(ASender, 'OnWindowSetLeft');
-end;
-
-procedure TForm1.EWBWindowSetResizable(ASender: TObject;
- Resizable: WordBool);
-begin
- LogEvent(ASender, 'OnWindowSetResizable');
-end;
-
-procedure TForm1.EWBWindowSetTop(ASender: TObject; Top: Integer);
-begin
- LogEvent(ASender, 'OnWindowSetTop');
-end;
-
-procedure TForm1.EWBShowDialog(Sender: TObject; h: Cardinal;
- StyleEx: Integer; OldCaption: string; var NewCaption: WideString;
- var Cancel: Boolean);
-begin
- LogEvent(Sender, 'OnShowDialog');
-end;
-
-procedure TForm1.EWBWindowSetWidth(ASender: TObject;
- Width: Integer);
-begin
- LogEvent(ASender, 'OnWindowSetWidth');
-end;
-
-function TForm1.EWBZoomPercentChange(Sender: TCustomEmbeddedWB;
- const ulZoomPercent: Cardinal): HRESULT;
-begin
- Result := S_OK;
- LogEvent(Sender, 'OnZoomPercentChange');
-end;
-
-procedure TForm1.EWBBusyWait(Sender: TEmbeddedWB; AStartTime: Cardinal;
- var TimeOut: Cardinal; var Cancel: Boolean);
-begin
- LogEvent(Sender, 'OnBusyWait', IntToStr(GetTickCount - AStartTime));
-end;
-
-// WindowStateChanged is available only in Microsoft Windows XP Service
-// Pack 2 (SP2) or later.
-
-procedure TForm1.EWBWindowStateChanged(Sender: TObject; dwWindowStateFlags,
- dwValidFlagsMask: Cardinal);
-begin
- LogEvent(Sender, 'OnWindowStateChanged');
-end;
-
-// IE7
-
-procedure TForm1.EWBSetPhishingFilterStatus(Sender: TObject;
- PhishingFilterStatus: Integer);
-begin
- LogEvent(Sender, 'OnSetPhishingFilterStatus');
-end;
-
-procedure TForm1.EWBQueryService(Sender: TObject; const rsid, iid: TGUID;
- var Obj: IUnknown);
-begin
- LogEvent(Sender, 'OnQueryService');
-end;
-
-procedure TForm1.EWBShowContextMenu(Sender: TCustomEmbeddedWB;
- const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IUnknown;
- const Context: IDispatch; var Result: HRESULT);
-begin
- LogEvent(Sender, 'OnShowContextMenu');
-end;
-
-procedure TForm1.EWBMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- LogEvent(Sender, 'OnMouseDown');
-end;
-
-procedure TForm1.EWBMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- LogEvent(Sender, 'OnMouseUp');
-end;
-
-
-procedure TForm1.EWBKeyDown(Sender: TObject; var Key: Word; ScanCode: Word;
- Shift: TShiftState);
-begin
- LogEvent(Sender, 'OnKeyDown', Char(Key), IntToStr(ScanCode));
-end;
-
-procedure TForm1.EWBKeyUp(Sender: TObject; var Key: Word; ScanCode: Word;
- Shift: TShiftState);
-begin
- LogEvent(Sender, 'OnKeyUp', Char(Key), IntToStr(ScanCode));
-end;
-
-procedure TForm1.SpeedButton1Click(Sender: TObject);
-begin
- Listbox1.Clear;
- iBeforeNavigate2 := 0;
- iBeforeNavigate2 := 0;
- iOnDownloadBegin := 0;
- iOnDownloadComplete := 0;
- iOnNavigateComplete2 := 0;
-end;
-
-procedure TForm1.btnSaveFiltersClick(Sender: TObject);
-var
- i: Integer;
- IniPath: string;
- ini: TIniFile;
-begin
- IniPath := ExtractFilePath(Application.ExeName) + 'Filters.ini';
- ini := TIniFile.Create(IniPath);
- try
- for i := 0 to Checklistbox1.Items.Count - 1 do
- ini.WriteBool('items', Checklistbox1.Items[i], Checklistbox1.Checked[i]);
- finally
- ini.Free;
- end;
-end;
-
-procedure TForm1.btnLoadFiltersClick(Sender: TObject);
-var
- i: Integer;
- IniPath: string;
- ini: TIniFile;
-begin
- IniPath := ExtractFilePath(Application.ExeName) + 'Filters.ini';
- if FileExists(IniPath) then
- begin
- ini := TIniFile.Create(IniPath);
- try
- ini.ReadSection('items', Checklistbox1.Items);
- for i := 0 to Pred(Checklistbox1.Items.Count) do
- CheckListbox1.Checked[i] := ini.ReadBool('items', Checklistbox1.Items[i], False);
- finally
- ini.Free;
- end;
- end;
-end;
-
-
-procedure TForm1.SelectFilters(CheckAll: Boolean);
-var
- i: integer;
-begin
- for i := 0 to CheckListBox1.Items.Count - 1 do
- begin
- CheckListBox1.Checked[i] := CheckAll;
- end;
-end;
-
-function TForm1.IsEventFilterChecked(const s: string): Boolean;
-var
- i: integer;
-begin
- Result := False;
- if not Assigned(CheckListBox1) then Exit;
- i := CheckListBox1.Items.IndexOf(s);
- if i <> -1 then
- begin
- Result := CheckListBox1.Checked[i];
- end;
-end;
-
-procedure TForm1.LogEvent(Sender: TObject; const s: string; Param1: string = ''; Param2: string = ''; Param3: string = ''; ForceLog: Boolean = False);
-begin
- if Application.Terminated then Exit;
- if Assigned(ListBox1) then
- if IsEventFilterChecked(s) or ForceLog then
- begin
- ListBox1.ItemIndex := ListBox1.Items.add(FormatDateTime('hh:mm:ss', now) + ' : ' +
- s + ' ' + Param1 + ' ' + Param2 + ' ' + Param3);
- end;
-end;
-
-procedure TForm1.chkFilterCheckAllClick(Sender: TObject);
-begin
- SelectFilters(chkFilterCheckAll.Checked);
-end;
-
-procedure TForm1.Timer1Timer(Sender: TObject);
-var
- Control: TWinControl;
-begin
- Control := ActiveControl;
- if Control <> nil then
- lblFocus.Caption := 'Active Control: ' + ActiveControl.Name
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- btnLoadFiltersClick(nil);
- PageControl1.ActivePageIndex := 0;
-end;
-
-procedure TForm1.btnGoClick(Sender: TObject);
-begin
- EWB.Go(IEAddress1.Text);
- LogEvent(EWB, '** WBTop complete***', '', '', '', True);
-end;
-
-function WaitForBrowserTimeOut(WB: TEmbeddedWB; const iTimeOut: Cardinal = 6000): Boolean;
-var
- t1, t2: Cardinal;
-begin
- t1 := GetTickCOunt;
- repeat
- Application.ProcessMessages;
- t2 := GetTickCOunt;
- Sleep(10);
- until (WB.ReadyState = READYSTATE_COMPLETE) or (Application.Terminated) or (t2 - t1 > iTimeOut);
- Result := WB.ReadyState = READYSTATE_COMPLETE;
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- EWB.Visible := not EWB.Visible;
-end;
-
-procedure TForm1.ToolBtnRefreshClick(Sender: TObject);
-begin
- EWB.Refresh2;
-end;
-
-procedure TForm1.ToolbtnBackClick(Sender: TObject);
-begin
- EWB.GoBack;
-end;
-
-procedure TForm1.ToolBtnForwardClick(Sender: TObject);
-begin
- EWB.GoForward;
-end;
-
-procedure TForm1.ToolBtnStopClick(Sender: TObject);
-begin
- EWB.Stop;
-end;
-
-procedure TForm1.ToolBtnHomeClick(Sender: TObject);
-begin
- EWB.GoHome;
-end;
-
-procedure TForm1.ToolBtnSearchClick(Sender: TObject);
-begin
- EWB.ShowFindDialog;
-end;
-
-procedure TForm1.Button4Click(Sender: TObject);
-begin
- ClipBoard.SetTextbuf(PChar(Listbox1.Items.Text));
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- EWB.Go('http://www.microsoft.com/surface/');
- if WaitForBrowserTimeOut(EWB) then
- LogEvent(EWB, '** WBTop complete***', '', '', '', True)
- else
- LogEvent(EWB, '** WBTop complete Timout reached***', '', '', '', True)
-end;
-
-
-
-
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/prjSysLV32RepDemo.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/prjSysLV32RepDemo.dpr
deleted file mode 100644
index 94dd6a7a474dc671507f687fc746711a50df085b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/prjSysLV32RepDemo.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program prjSysLV32RepDemo;
-
-uses
- Forms,
- uMain in 'uMain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.dfm
deleted file mode 100644
index 03285ffade724457052042f56f84356a45ebb961..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.dfm
+++ /dev/null
@@ -1,94 +0,0 @@
-object Form1: TForm1
- Left = 305
- Top = 362
- Width = 696
- Height = 480
- Caption = 'EmbeddedWB SysListView Replacement Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 688
- Height = 41
- Align = alTop
- TabOrder = 0
- object BitBtn1: TBitBtn
- Left = 8
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Go "c:\"'
- TabOrder = 0
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = 96
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Go Google'
- TabOrder = 1
- OnClick = BitBtn2Click
- end
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 41
- Width = 688
- Height = 405
- Align = alClient
- TabOrder = 1
- Silent = False
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- OnPreRefresh = EmbeddedWB1PreRefresh
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- 'www.google.com')
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C0000001B470000DC2900000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object ListView1: TListView
- Left = 14
- Top = 272
- Width = 163
- Height = 153
- Columns = <
- item
- Width = 300
- end
- item
- Width = 150
- end>
- SmallImages = ImageList1
- TabOrder = 2
- ViewStyle = vsReport
- Visible = False
- end
- object ImageList1: TImageList
- Left = 24
- Top = 216
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.pas
deleted file mode 100644
index 48400a2217012d954d119db4a33d987e062c4383..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/18 - SysListView32 Replacement_Demo/uMain.pas
+++ /dev/null
@@ -1,118 +0,0 @@
-unit uMain;
-
-interface
-
-uses
- Windows, Forms, Messages, StdCtrls, Buttons,
- ExtCtrls, Classes, SysUtils, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Controls,
- ComCtrls, ImgList, Graphics;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- BitBtn1: TBitBtn;
- BitBtn2: TBitBtn;
- ImageList1: TImageList;
- EmbeddedWB1: TEmbeddedWB;
- ListView1: TListView;
- procedure BitBtn1Click(Sender: TObject);
- procedure BitBtn2Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure EmbeddedWB1PreRefresh(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-uses
- ShellApi;
-
-procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList);
-var
- i: Integer;
- Icon: TIcon;
- SearchRec: TSearchRec;
- ListItem: TListItem;
- FileInfo: SHFILEINFO;
-begin
- // Create a temporary TIcon
- Icon := TIcon.Create;
- ListView.Items.BeginUpdate;
- try
- // search for the first file
- i := FindFirst(strPath + '*.*', faAnyFile, SearchRec);
- while i = 0 do
- begin
- with ListView do
- begin
- // On directories and volumes
- if ((SearchRec.Attr and FaDirectory <> FaDirectory) and
- (SearchRec.Attr and FaVolumeId <> FaVolumeID)) then
- begin
- ListItem := ListView.Items.Add;
- //Get The DisplayName
- SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_DISPLAYNAME);
- Listitem.Caption := FileInfo.szDisplayName;
- // Get The TypeName
- SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_TYPENAME);
- ListItem.SubItems.Add(FileInfo.szTypeName);
- //Get The Icon That Represents The File
- SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
- icon.Handle := FileInfo.hIcon;
- ListItem.ImageIndex := ImageList.AddIcon(Icon);
- // Destroy the Icon
- DestroyIcon(FileInfo.hIcon);
- end;
- end;
- i := FindNext(SearchRec);
- end;
- finally
- Icon.Free;
- ListView.Items.EndUpdate;
- end;
-end;
-
-procedure TForm1.EmbeddedWB1PreRefresh(Sender: TObject);
-var
- Path: string;
-begin
- ListView1.Visible := EmbeddedWB1.GetIEWin('SysListView32') <> 0;
- if ListView1.Visible then
- begin
- Path := StringReplace(EmbeddedWB1.LocationURL,'file:///','',[rfIgnoreCase]);
- Path := StringReplace(Path,'/','\',[rfIgnoreCase]);
- ImageList1.Clear;
- LV_InsertFiles(Path, ListView1, ImageList1);
- end;
- EmbeddedWB1.Enabled := not ListView1.Visible;
-end;
-
-procedure TForm1.BitBtn1Click(Sender: TObject);
-begin
- EmbeddedWB1.Go('c:\');
-end;
-
-procedure TForm1.BitBtn2Click(Sender: TObject);
-begin
- EmbeddedWB1.Go('www.google.com');
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- ListView1.Align := alClient;
-end;
-
-end.
-
-
\ No newline at end of file
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.dfm b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.dfm
deleted file mode 100644
index 6ca720391f6338d44ab6cbac2143377023b73c74..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.dfm
+++ /dev/null
@@ -1,57 +0,0 @@
-object Form1: TForm1
- Left = 292
- Top = 122
- Width = 473
- Height = 434
- Caption = 'Drag a Link to a PageControl TabSheet'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 457
- Height = 398
- ActivePage = TabSheet1
- Align = alClient
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'TabSheet1'
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 0
- Width = 449
- Height = 370
- Align = alClient
- TabOrder = 0
- OnDownloadComplete = EmbeddedWB1DownloadComplete
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- 'http://www.google.com/')
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C00000027390000CA2700000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.pas b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.pas
deleted file mode 100644
index 78c55c8384ddaf2c5b4df6c70a4825b12ab13f0d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/frmMain.pas
+++ /dev/null
@@ -1,208 +0,0 @@
-unit frmMain;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, ComCtrls, ActiveX, ShlObj, ComObj, StdCtrls, OleCtrls,
- SHDocVw_EWB, EwbCore, EmbeddedWB;
-
-type
- TForm1 = class(TForm, IDropTarget)
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- EmbeddedWB1: TEmbeddedWB;
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure EmbeddedWB1DownloadComplete(Sender: TObject);
- private
- { Private declarations }
- function GetPageControlDropIndex(PageControl: TPageControl; P: TPoint): Integer;
- procedure DoDrop(data: string; pt: TPoint);
- function CreateNewTabBrowser(Url: string; idx: Integer): TTabSheet;
- // IDropTarget
- function DragEnter(const dataObj: IDataObject;
- grfKeyState: Longint;
- pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
- function DragOver(grfKeyState: Longint;
- pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
- function DragLeave: HRESULT; stdcall;
- function Drop(const dataObj: IDataObject;
- grfKeyState: Longint; pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
- // IUnknown
- // Ignore reference counting
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
- NewTab: TTabSheet;
- DesignTimeWB: TEmbeddedWB;
-
-implementation
-
-{$R *.DFM}
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- {Allow window to accept drop events}
- OleCheck(RegisterDragDrop(Handle, Form1));
-end;
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- {Finished accepting drops}
- RevokeDragDrop(Handle);
-end;
-
-function TForm1.GetPageControlDropIndex(PageControl: TPageControl; P: TPoint): Integer;
-const
- TCM_GETITEMRECT = $130A;
-var
- i: Integer;
- r: TRect;
-begin
- Result := -1;
- with PageControl do
- begin
- p := ScreenToClient(p);
- for i := 0 to PageCount - 1 do
- begin
- Perform(TCM_GETITEMRECT, i, LPARAM(@r));
- if PtInRect(r, Point(P.X, P.Y)) then
- begin
- Result := i;
- Exit;
- end;
- end;
- end;
-end;
-
-procedure TForm1.EmbeddedWB1DownloadComplete(Sender: TObject);
-var
- EWB: TEmbeddedWB;
-begin
- EWB := (Sender as TEmbeddedWB);
- if EWB.LocationName <> '' then
- (EWB.Parent as TTabSheet).Caption := EWB.LocationName;
-end;
-
-function TForm1.CreateNewTabBrowser(Url: string; idx: Integer): TTabSheet;
-begin
- NewTab := TTabSheet.Create(PageControl1);
- with NewTab do
- begin
- PageControl := PageControl1;
- Parent := PageControl1;
- PageIndex := idx;
- Caption := 'Loading...';
- end;
- DesignTimeWB := TEmbeddedWB.Create(NewTab);
- TControl(DesignTimeWB).Parent := NewTab;
- with DesignTimeWB do
- begin
- EnableMessageHandler := True;
- LoadSettings;
- OnDownloadComplete := EmbeddedWB1DownloadComplete;
- Align := alClient;
- if Trim(URL) <> '' then
- DesignTimeWB.NavigateWait(URL);
- end;
- PageControl1.ActivePage := NewTab;
- Result := NewTab;
-end;
-
-// IDropTarget
-
-function TForm1.DragOver(grfKeyState: Longint;
- pt: TPoint;
- var dwEffect: Longint): HRESULT;
-begin
- dwEffect := DROPEFFECT_LINK;
- if FindVCLWindow(pt) is TPageControl then
- Result := S_OK
- else
- Result := S_FALSE;
-end;
-
-function TForm1.DragEnter(const dataObj: IDataObject;
- grfKeyState: Longint;
- pt: TPoint;
- var dwEffect: Longint): HRESULT;
-begin
- dwEffect := DROPEFFECT_LINK;
- Result := S_OK;
-end;
-
-procedure TForm1.DoDrop(data: string; pt: TPoint);
-var
- idx: Integer;
-// TabSheet: TTabSheet;
-begin
- idx := GetPageControlDropIndex(PageControl1, pt);
- if idx <> -1 then
- begin
- CreateNewTabBrowser(data, idx);
- end;
-end;
-
-function TForm1.DragLeave: HRESULT;
-begin
- Result := S_OK;
-end;
-
-function TForm1._AddRef: Integer;
-begin
- Result := 1;
-end;
-
-function TForm1._Release: Integer;
-begin
- Result := 1;
-end;
-
-function TForm1.Drop(const dataObj: IDataObject;
- grfKeyState: Longint;
- pt: TPoint;
- var dwEffect: Longint): HRESULT;
-var
- aFmtEtc: TFORMATETC;
- aStgMed: TSTGMEDIUM;
- pData: PChar;
-begin
- {Make certain the data rendering is available}
- if (dataObj = nil) then
- raise Exception.Create('IDataObject-Pointer is not valid!');
- with aFmtEtc do
- begin
- cfFormat := CF_TEXT;
- ptd := nil;
- dwAspect := DVASPECT_CONTENT;
- lindex := -1;
- tymed := TYMED_HGLOBAL;
- end;
- {Get the data}
- OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
- try
- {Lock the global memory handle to get a pointer to the data}
- pData := GlobalLock(aStgMed.hGlobal);
- DoDrop(pData, pt);
- finally
- {Finished with the pointer}
- GlobalUnlock(aStgMed.hGlobal);
- {Free the memory}
- ReleaseStgMedium(aStgMed);
- end;
- Result := S_OK;
-end;
-
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/prjDragLinkToPageControl.dpr b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/prjDragLinkToPageControl.dpr
deleted file mode 100644
index 1281713ce336b94e0cb45eafe03bfe0161933cfc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/19 - DragLink To PageControl_Demo/prjDragLinkToPageControl.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program prjDragLinkToPageControl;
-
-uses
- Forms,
- frmMain in 'frmMain.pas' {Form1};
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/EmbeddedWBDemos.bpg b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/EmbeddedWBDemos.bpg
deleted file mode 100644
index 31adca61a78d54feb968af86bbd102b02ece363a..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/EmbeddedWBDemos.bpg
+++ /dev/null
@@ -1,76 +0,0 @@
-#------------------------------------------------------------------------------
-VERSION = BWS.01
-#------------------------------------------------------------------------------
-!ifndef ROOT
-ROOT = $(MAKEDIR)\..
-!endif
-#------------------------------------------------------------------------------
-MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
-DCC = $(ROOT)\bin\dcc32.exe $**
-BRCC = $(ROOT)\bin\brcc32.exe $**
-#------------------------------------------------------------------------------
-PROJECTS = prjSDIDemo.exe prjMDIDemo.exe prjNewWinTabs1Demo.exe \
- prjNewWinTabs2Demo.exe prjEvalNewWindowDemo.exe PrjRightClick_Demo.exe \
- prjDragDropDemo.exe prjElementsUnderMouseDemo.exe prjPrintPreviewTemplateDemo.exe \
- prjPrintingOptionsDemo.exe prjMoveResizeDemo.exe prjMSHTML_EventsDemo.exe \
- prjActiveFormDemo.exe prjExecScriptExDemo.exe prjHTMLListenerDemo.exe \
- prjEWBControlDemo.exe prjEventsTestDemo.exe prjSysLV32RepDemo.exe
-
-#------------------------------------------------------------------------------
-default: $(PROJECTS)
-#------------------------------------------------------------------------------
-
-prjSDIDemo.exe: 01 - New_Window_SDI_Demo\prjSDIDemo.dpr
- $(DCC)
-
-prjMDIDemo.exe: 02 - New_Window_MDI_Demo\prjMDIDemo.dpr
- $(DCC)
-
-prjNewWinTabs1Demo.exe: 03 - New_Window_Tabs_Demo_1\prjNewWinTabs1Demo.dpr
- $(DCC)
-
-prjNewWinTabs2Demo.exe: 04 - New_Window_Tabs_Demo_2\prjNewWinTabs2Demo.dpr
- $(DCC)
-
-prjEvalNewWindowDemo.exe: 05 - OnEvaluateNewWindow_Demo\prjEvalNewWindowDemo.dpr
- $(DCC)
-
-PrjRightClick_Demo.exe: 06 - RightClick_Shortcuts_Demo\PrjRightClick_Demo.dpr
- $(DCC)
-
-prjDragDropDemo.exe: 07 - DragNDrop_Demo\prjDragDropDemo.dpr
- $(DCC)
-
-prjElementsUnderMouseDemo.exe: 08 - Elements_Under_Mouse_Demo\prjElementsUnderMouseDemo.dpr
- $(DCC)
-
-prjPrintPreviewTemplateDemo.exe: 09 - PrintPreviewFromTemplate_Demo\prjPrintPreviewTemplateDemo.dpr
- $(DCC)
-
-prjPrintingOptionsDemo.exe: 10 - PrintingOptions_Demo\prjPrintingOptionsDemo.dpr
- $(DCC)
-
-prjMoveResizeDemo.exe: 11 - moveto, moveby, resizeto, resizeby_Demo\prjMoveResizeDemo.dpr
- $(DCC)
-
-prjMSHTML_EventsDemo.exe: 12 - MSHTML_Events_Demo\prjMSHTML_EventsDemo.dpr
- $(DCC)
-
-prjActiveFormDemo.exe: 13 - ActiveX_Form_Demo\prjActiveFormDemo.dpr
- $(DCC)
-
-prjExecScriptExDemo.exe: 14 - ExecScriptEx_Demo\prjExecScriptExDemo.dpr
- $(DCC)
-
-prjHTMLListenerDemo.exe: 15 - THtmlListener_Demo\prjHTMLListenerDemo.dpr
- $(DCC)
-
-prjEWBControlDemo.exe: 16 - TEWBControl_Demo\prjEWBControlDemo.dpr
- $(DCC)
-
-prjEventsTestDemo.exe: 17 - EWB Events Logger_Demo\prjEventsTestDemo.dpr
- $(DCC)
-
-prjSysLV32RepDemo.exe: 18 - SysListView32 Replacement_Demo\prjSysLV32RepDemo.dpr
- $(DCC)
-
diff --git a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/EmbeddedWBDemos.groupproj b/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/EmbeddedWBDemos.groupproj
deleted file mode 100644
index 82772d31e5e09c592ee5aebc1adde5d510253794..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/EmbeddedWB Demos/EmbeddedWBDemos.groupproj
+++ /dev/null
@@ -1,240 +0,0 @@
-
-
- {B89BABB2-2C99-494C-AE8C-0450D49BF2B0}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Default.Personality.12
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/windows/src/ext/embeddedwb/Demos/Mega Demo/Demo.dfm b/windows/src/ext/embeddedwb/Demos/Mega Demo/Demo.dfm
deleted file mode 100644
index 608937f0af69dfef84ba0e459362aacafe807bc2..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Mega Demo/Demo.dfm
+++ /dev/null
@@ -1,3846 +0,0 @@
-object frmMain: TfrmMain
- Left = 162
- Top = 214
- Caption = 'EmbeddedWB Component Pack - Mega Demo'
- ClientHeight = 724
- ClientWidth = 973
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- WindowState = wsMaximized
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object SplitterACC: TSplitter
- Left = 401
- Top = 110
- Width = 2
- Height = 595
- ExplicitHeight = 598
- end
- object PanelWEB: TPanel
- Left = 403
- Top = 110
- Width = 570
- Height = 595
- Align = alClient
- TabOrder = 0
- object pctrlWB: TPageControl
- Left = 1
- Top = 1
- Width = 568
- Height = 593
- ActivePage = TabBrowser
- Align = alClient
- TabOrder = 0
- object TabBrowser: TTabSheet
- Caption = 'Web Browser'
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 0
- Width = 560
- Height = 565
- Align = alClient
- DragMode = dmAutomatic
- TabOrder = 0
- Silent = False
- OnStatusTextChange = EmbeddedWB1StatusTextChange
- OnProgressChange = EmbeddedWB1ProgressChange
- OnCommandStateChange = EmbeddedWB1CommandStateChange
- OnDownloadBegin = EmbeddedWB1DownloadBegin
- OnDownloadComplete = EmbeddedWB1DownloadComplete
- OnTitleChange = EmbeddedWB1TitleChange
- OnPropertyChange = EmbeddedWB1PropertyChange
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- OnNewWindow2 = EmbeddedWB1NewWindow2
- OnNavigateComplete2 = EmbeddedWB1NavigateComplete2
- OnDocumentComplete = EmbeddedWB1DocumentComplete
- OnVisible = EmbeddedWB1Visible
- OnFullScreen = EmbeddedWB1FullScreen
- OnSetSecureLockIcon = EmbeddedWB1SetSecureLockIcon
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnableThemes]
- OnScriptError = EmbeddedWB1ScriptError
- About = ' EmbeddedWB http://bsalsa.com/'
- OnShowDialog = EmbeddedWB1ShowDialog
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.33 from: http://www.bsalsa.com/'
- ExplicitWidth = 568
- ExplicitHeight = 568
- ControlData = {
- 4C000000EA370000742000000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- end
- object TabEditor: TTabSheet
- Caption = 'Editor'
- ImageIndex = 1
- TabVisible = False
- object Label3: TLabel
- Left = 0
- Top = 532
- Width = 560
- Height = 16
- Align = alBottom
- Caption =
- ' This is a Toolbar Component which is placed INSIDE the TRi' +
- 'chEditWB (As Well As The ProgressBars )'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- ExplicitTop = 552
- ExplicitWidth = 605
- end
- object ProgressBar2: TProgressBar
- Left = 0
- Top = 22
- Width = 17
- Height = 510
- Align = alLeft
- Orientation = pbVertical
- TabOrder = 0
- end
- object ProgressBar3: TProgressBar
- Left = 0
- Top = 548
- Width = 560
- Height = 17
- Align = alBottom
- TabOrder = 1
- end
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 560
- Height = 22
- ButtonHeight = 21
- ButtonWidth = 34
- Caption = 'ToolBar1'
- ShowCaptions = True
- TabOrder = 2
- object ToolButton1: TToolButton
- Left = 0
- Top = 0
- AutoSize = True
- Caption = 'File'
- MenuItem = File1
- ParentShowHint = False
- ShowHint = True
- end
- object ToolButton2: TToolButton
- Left = 27
- Top = 0
- Caption = 'Edit'
- MenuItem = Edit
- end
- object ToolButton3: TToolButton
- Left = 61
- Top = 0
- Caption = 'Tools'
- MenuItem = Tools
- end
- object ToolButton4: TToolButton
- Left = 95
- Top = 0
- Caption = 'Add'
- MenuItem = Add
- end
- object ToolButton5: TToolButton
- Left = 129
- Top = 0
- Caption = 'Fonts'
- MenuItem = Fonts
- Wrap = True
- end
- end
- object RichEditWB1: TRichEditWB
- Left = 17
- Top = 22
- Width = 543
- Height = 510
- Hint =
- 'File Name: Untitled. | '#10#13'Position: Line: 1 Col: 1. | '#10#13'Mod' +
- 'ified. | '#10#13'Caps Lock: Off. | '#10#13'NumLock: Off. | '#10#13'Insert: Off. | ' +
- #10#13'Total Lines Count: 5. |'
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Lines.Strings = ()
- ParentFont = False
- ParentShowHint = False
- ScrollBars = ssBoth
- ShowHint = True
- TabOrder = 3
- WordWrap = False
- AutoNavigate = True
- FileName = 'Untitled'
- HighlightHTML = True
- HighlightURL = True
- HighlightXML = True
- SupprtMoreThen64KB = False
- TextAlignment = taLeftJustify
- HideCaret = False
- Themes = tDefault
- end
- end
- object TabImage: TTabSheet
- Caption = 'Page Image'
- ImageIndex = 2
- TabVisible = False
- object ImageViewer: TImage
- Left = 0
- Top = 0
- Width = 560
- Height = 565
- Align = alClient
- ExplicitWidth = 511
- ExplicitHeight = 567
- end
- end
- object TabLinks: TTabSheet
- Caption = 'Links Checker'
- ImageIndex = 3
- TabVisible = False
- object PanelLinksTop: TPanel
- Left = 0
- Top = 0
- Width = 560
- Height = 508
- Align = alClient
- TabOrder = 0
- object StringGrid1: TStringGrid
- Left = 1
- Top = 1
- Width = 558
- Height = 506
- Align = alClient
- ColCount = 3
- DefaultRowHeight = 15
- FixedCols = 0
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
- TabOrder = 0
- ColWidths = (
- 258
- 263
- 118)
- end
- end
- object PanelLinksBottum: TPanel
- Left = 0
- Top = 508
- Width = 560
- Height = 57
- Align = alBottom
- TabOrder = 1
- object Button1: TButton
- Left = 282
- Top = 16
- Width = 103
- Height = 25
- Caption = 'Check Links'
- TabOrder = 0
- OnClick = Button1Click
- end
- object RadioButton1: TRadioButton
- Left = 16
- Top = 32
- Width = 113
- Height = 17
- Caption = 'Synchronous'
- TabOrder = 1
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 16
- Top = 8
- Width = 113
- Height = 17
- Caption = 'Asynchronous'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = RadioButton2Click
- end
- end
- end
- end
- end
- object PanelAcc: TPanel
- Left = 0
- Top = 110
- Width = 401
- Height = 595
- Align = alLeft
- TabOrder = 1
- Visible = False
- object Splitter2: TSplitter
- Left = 1
- Top = 25
- Width = 399
- Height = 2
- Cursor = crVSplit
- Align = alTop
- end
- object pnlFav: TPanel
- Left = 1
- Top = 1
- Width = 399
- Height = 24
- Align = alTop
- TabOrder = 0
- object sbRebuildView: TSpeedButton
- Left = 0
- Top = 0
- Width = 23
- Height = 22
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF003CA7839BCAFDF9F7FFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0F58BB1B
- 93FF0050C75076B8E9EAF0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFF5C7EBB0056C71784F21985FF2692FF0984FF2472CD6283BFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0B4CAC118CFF2E98FF67B8FF6D
- B7FF0787FFA2DCFF295CAFF7F8FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- 3061B01693FF5AB0FF57A0EA0E4BADA7D6FDC6EDFF1B4FA9FFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFD4D6E50067DA55B4FF378ADF788FC1CCD0E462
- A9E4003CA2FFFFFFFFFFFFFFFFFFFFFFFF1A72BCD2D7E6FFFFFFFFFFFF5C7EBC
- 1F99FF79C7FF5B7BBBFFFFFFECF0F72457ABFFFFFFFFFFFFFFFFFFFFFFFF225B
- AF2387F6004ED2E3E5EC001D980E73DF42B7FF8AB9E42C6EBF003A9EFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFF1455B0D0F3FF1384FF30ACFF0032AAE4E6EF0045C4
- 47C2FFB8E3FD205DB4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB3C6E36684BF0571
- D11E84FF0F5DC28AA3CEFFFFFFD2D4E53CACE61D56B0FFFFFFFFFFFFFFFFFFFF
- FFFD0543A2BCCBE4FFFFFF5F7FBA1E9BFF2B89FF4673BAFFFFFFFFFFFFFFFFFF
- B5C1DFFFFFFFFFFFFFFFFFFFFFFFFE004CA82CCFFF939DC9617BB71194EE318B
- FF2F79DDC6CEE0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFB0C56AD3C
- D8FF39C0FF0E7BCD1BA6FD2C92FF88BFFF3463B1FFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFE6E7F10B69BD41E5FF3AC8FF36BBFF42BBFF7BC9FF91C3F52456
- ACFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFBEDD0E67BA33B9EC56
- E3FF61D4FF86B9E93A6EBB7794C7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF9DA7D12664B477BAE53C81CAFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFC5CCE4225CB0E7EBF5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
- OnClick = sbRebuildViewClick
- end
- end
- object PageCtrl: TPageControl
- Left = 1
- Top = 27
- Width = 399
- Height = 567
- ActivePage = TabFavoritesTV
- Align = alClient
- TabOrder = 1
- OnChange = PageCtrlChange
- object TabEvents: TTabSheet
- Caption = 'Events Log'
- object lvEventLog: TListBox
- Left = 0
- Top = 0
- Width = 391
- Height = 539
- Align = alClient
- ItemHeight = 13
- TabOrder = 0
- end
- end
- object TabFavoritesLV: TTabSheet
- Caption = 'FavoritesLV'
- ImageIndex = 1
- object FavoritesListView1: TFavoritesListView
- Left = 0
- Top = 0
- Width = 391
- Height = 539
- ResolveUrl = IntShCut
- Channels = False
- EmbeddedWB = EmbeddedWB1
- PopupMenuMode = pmm_System
- Align = alClient
- ParentShowHint = False
- TabOrder = 0
- end
- end
- object TabFavoritesTV: TTabSheet
- Caption = 'FavoritesTV'
- ImageIndex = 2
- object FavoritesTree1: TFavoritesTree
- Left = 0
- Top = 0
- Width = 391
- Height = 539
- PopupMenuMode = pmm_System
- EmbeddedWB = EmbeddedWB1
- ImportFavorites = ImportFavorite1
- ExportFavorites = ExportFavorite1
- Localization.NodeOrganiseFavorites = 'Organize favorites'
- Localization.NodeAddToFavorites = 'Add To favorites'
- Localization.NodeImportFavorites = 'Import favorites'
- Localization.NodeExportFavorites = 'Export favorites'
- Localization.NodeTools = 'Tools'
- Localization.NodeFavorites = 'Favorites'
- Localization.TextLinks = 'Links'
- Localization.TextImported = 'Imported'
- Options = [foShowRoot, foShowItems, foShowOrganize, foShowAdd, foShowImport, foShowExport]
- Align = alClient
- Indent = 19
- ParentColor = False
- TabOrder = 0
- TabStop = True
- OnNodeAdded = FavoritesTree1NodeAdded
- OnExpanded = FavoritesTree1Expanded
- end
- end
- object TabHistoryLV: TTabSheet
- Caption = 'HistoryLV'
- ImageIndex = 3
- object HistoryListView1: THistoryListView
- Left = 0
- Top = 0
- Width = 391
- Height = 539
- EmbeddedWB = EmbeddedWB1
- Align = alClient
- ParentShowHint = False
- TabOrder = 0
- end
- end
- object TabFTP: TTabSheet
- Caption = 'Local Folders'
- ImageIndex = 4
- object EmbeddedWB2: TEmbeddedWB
- Left = 0
- Top = 49
- Width = 391
- Height = 490
- Align = alClient
- DragMode = dmAutomatic
- TabOrder = 0
- Silent = False
- OnCommandStateChange = EmbeddedWB2CommandStateChange
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.33 from: http://www.bsalsa.com/'
- ExplicitHeight = 493
- ControlData = {
- 4C000000911400008C2900000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 391
- Height = 49
- Align = alTop
- TabOrder = 1
- object sbRefresh: TSpeedButton
- Left = 32
- Top = 0
- Width = 33
- Height = 41
- Glyph.Data = {
- 360C0000424D360C000000000000360000002800000020000000200000000100
- 180000000000000C0000120B0000120B00000000000000000000FF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EB1908EB1908EB1908EB1908EB1908EB1908EB190
- 8EB1908EB1908EB1908EB1908EB1908EB1908EB1908EB1908EB1908EB1908EB1
- 908EB1908EB1908EB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
- FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
- FEFEFEFEFEFEFEFEB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
- FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
- FEFEFEFEFEFEFEFEB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFC
- FBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFEFCFBFE
- FCFBFEFCFBFEFCFBB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEFBF8FEFBF8FEFBF8FEFBF8007000FEFBF8FEFB
- F8ADD5AA3699360070000070000070001C881CADD5AAFEFBF8FEFBF8FEFBF8FE
- FBF8FEFBF8FEFBF8B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEFAF6FEFAF6FEFAF6FEFAF600700045A14455AA
- 5300700000700000700000700000700000700000700088C283FEFAF6FEFAF6FE
- FAF6FEFAF6FEFAF6B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF8F3FEF8F3FEF8F3FEF8F30070000070000070
- 0000700000700000700045A043ADD4A6ADD4A665B162077807ADD4A6FEF8F3FE
- F8F3FEF8F3FEF8F3B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF7F2FEF7F2FEF7F2FEF7F20070000070000070
- 0000700000700076B870FEF7F2FEF7F2FEF7F2FEF7F2D4E5CB369835FEF7F2FE
- F7F2FEF7F2FEF7F2B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF6EFFEF6EFFEF6EFFEF6EF0070000070000070
- 000070001C881BFEF6EFFEF6EFFEF6EFFEF6EFFEF6EFFEF6EFE9EDDCFEF6EFFE
- F6EFFEF6EFFEF6EFB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF4EDFEF4EDFEF4EDFEF4ED0070000070000070
- 0000700000700088C07FFEF4EDFEF4EDFEF4EDFEF4EDFEF4EDFEF4EDFEF4EDFE
- F4EDFEF4EDFEF4EDB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF3EAFEF3EAFEF3EAFEF3EA0070000070000070
- 00007000007000007000007000FEF3EAFEF3EAFEF3EAFEF3EAFEF3EAFEF3EAFE
- F3EAFEF3EAFEF3EAB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF3E7FEF3E7FEF3E7FEF3E7FEF3E7FEF3E7FEF3
- E7FEF3E7FEF3E7007000007000007000007000007000007000007000FEF3E7FE
- F3E7FEF3E7FEF3E7B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF2E6FEF2E6FEF2E6FEF2E6FEF2E6FEF2E6FEF2
- E6FEF2E6FEF2E6FEF2E688BF7B007000007000007000007000007000FEF2E6FE
- F2E6FEF2E6FEF2E6B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEF0E3FEF0E3FEF0E3FEF0E3E9E7D0FEF0E3FEF0
- E3FEF0E3FEF0E3FEF0E3FEF0E31C871A007000007000007000007000FEF0E3FE
- F0E3FEF0E3FEF0E3B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFEEFE1FEEFE1FEEFE1FEEFE1369631D4DEBCFEEF
- E1FEEFE1FEEFE1FEEFE176B569007000007000007000007000007000FEEFE1FE
- EFE1FEEFE1FEEFE1B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFEEDEFFEEDEFFEEDEFFEEDEADCC9807780666AC
- 59ADCC98ADCC98469D3E007000007000007000007000007000007000FFEEDEFF
- EEDEFFEEDEFFEEDEB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFEDDCFFEDDCFFEDDCFFEDDCFFEDDC88BB760070
- 0000700000700000700000700000700000700056A44A469D3D007000FFEDDCFF
- EDDCFFEDDCFFEDDCB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFEBDAFFEBDAFFEBDAFFEBDAFFEBDAFFEBDAADCA
- 961C8618007000007000007000379530ADCA96FFEBDAFFEBDA007000FFEBDAFF
- EBDAFFEBDAFFEBDAB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEA
- D8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FFEAD8FF
- EAD8FFEAD8FFEAD8B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE9D5FFE9D5FFE9D5FFE9D5FFE9D5FFE9D5FFE9
- D5FFE9D5FFE9D5FFE9D5FFE9D5FFE9D5FFE9D5FFE9D5FEE9D4FEE7D4FEE7D4FE
- E7D4FEE7D4FEE7D4B1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE7D3FFE7D3FFE7D3FFE7D3FFE7D3FFE7D3FFE7
- D3FFE7D3FFE7D3FFE7D3FFE7D3FFE7D3FEE6D1E5CEBAE1CAB7DDC7B4D9C4B1D5
- C0ADD1BCABD0BBAAB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE6D0FFE6D0FFE6D0FFE6D0FFE6D0FFE6D0FFE6
- D0FFE6D0FFE6D0FFE6D0FFE6D0FFE6D0FBE3CCCCB7A3C2AD9AB7A492AD9A8AA3
- 918299897A9D897EB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE5CFFFE5CFFFE5CFFFE5CFFFE5CFFFE5CFFFE5
- CFFFE5CFFFE5CFFFE5CFFFE5CFFFE5CFFFE5CFBDA996AC98889D8A7B8C7D6E7D
- 6E62907F75BFA39CB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE3CCFFE3CCFFE3CCFFE3CCFFE3CCFFE3CCFFE3
- CCFFE3CCFFE3CCFFE3CCFFE3CCFFE3CCFFE3CCFAF0E7FEFEFEF7F6F4E9E5E1ED
- E0DACEB2ABB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE3CAFFE3CAFFE3CAFFE3CAFFE3CAFFE3CAFFE3
- CAFFE3CAFFE3CAFFE3CAFFE3CAFFE3CAFFE3CAEBD8C6FEFEFEFEFEFCF2E7E2CE
- B2ACB1908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE2C7FFE2C7FFE2C7FFE2C7FFE2C7FFE2C7FFE2
- C7FFE2C7FFE2C7FFE2C7FFE2C7FFE2C7FFE2C7D9C1ACFEFEFEFEF8F4D0B6B0B1
- 908EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE1C5FFE1C5FFE1C5FFE1C5FFE1C5FFE1C5FFE1
- C5FFE1C5FFE1C5FFE1C5FFE1C5FFE1C5FFE1C5D1B7A1FEFAF7D0B7B1B1908EFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFE0C2FFE0C2FFE0C2FFE0C2FFE0C2FFE0C2FFE0
- C2FFE0C2FFE0C2FFE0C2FFE0C2FFE0C2FFE0C2D1BDABD0B7B1B1908EFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EFFDEC1FFDEC1FFDEC1FFDEC1FFDEC1FFDEC1FFDE
- C1FFDEC1FFDEC1FFDEC1FFDEC1FFDEC1FAD9BDC0A69EB1908EFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFB1908EB1908EB1908EB1908EB1908EB1908EB1908EB190
- 8EB1908EB1908EB1908EB1908EB1908EB1908EB1908EFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
- ParentShowHint = False
- ShowHint = True
- OnClick = sbRefreshClick
- end
- object sbConnect: TSpeedButton
- Left = 64
- Top = 2
- Width = 33
- Height = 39
- Glyph.Data = {
- 9E020000424D9E0200000000000036000000280000000E0000000E0000000100
- 1800000000006802000000000000000000000000000000000000FFFFFFFFFFFF
- FFFFFFFFFFFF79B17C2A882A0078000078002A892A79B27CFFFFFFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFA2C8A600780027A73340D3544DEE6248EC5A34CE
- 401BA420007800A2C8A6FFFFFFFFFFFF0000FFFFFFA0C8A50A7F0D51DE6D53E5
- 6F36BB4543CC5043CF4E41D14B41E44F33D33C057E06A0C8A5FFFFFF0000FFFF
- FF0078005AE17A5EE97A1A9120ADCEAD228B2337B63E42C54A3EC4453ED84933
- D33C007800FFFFFF000073AD7733AB466EF69457DC691B9120FFFFFFF2F7F280
- B5801A921E3FC1463EC34340E34D1AA31F73AD7700002586275FDD8266EA835C
- E1701D9323FFFFFFFFFFFFFFFFFFC9DEC943984327A32B3FD04933CE3E258627
- 00000078007FFDAD69EC8563E87A1F9527FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- 80B58029AD3145EB57007800000000780085FDB56FF18D6AF083229829FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF80B5802BAE354AED5F00780000002085226CDE93
- 78F79A70F78D239A2DFFFFFFFFFFFFFFFFFFC9DEC9318F332DA83349D6593ED2
- 502085220000579E5C3EAD548BFDBA73FA90249A2EFFFFFFF2F7F271AD712098
- 274CCF5A4BCF5757EE7224A73064A46A0000FFFFFF00780079E7A384FCAE259A
- 30ADCEAD258F2949C95957DB6851D6615AE7754DDD69007800FFFFFF0000FFFF
- FF82B28C0D801377E7A27CEEA952C96D64E57F63E77D61E67B69F48E56E07608
- 7F0D82B28CFFFFFF0000FFFFFFFFFFFF7EB0890078003DAD5370E69A80FDB07A
- FDA95BDC7E30AB430078007EB088FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFAA
- C6BA559E5D19831C00780000780019831B499950FFFFFFFFFFFFFFFFFFFFFFFF
- 0000}
- ParentShowHint = False
- ShowHint = True
- OnClick = sbConnectClick
- end
- object sbUp: TSpeedButton
- Left = 0
- Top = 3
- Width = 33
- Height = 38
- Glyph.Data = {
- 360C0000424D360C000000000000360000002800000020000000200000000100
- 180000000000000C0000120B0000120B00000000000000000000FF00FF0B7FBA
- 0B7FBA0B7FBA0B7FBA0B7FBAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA1387BF
- A9DCEF42B5E735A9DD2399D00B7FBA0B7FBA0B7FBA0B7FBA0B7FBAFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA0B7FBA
- A0D3E757C7F657C7F657C7F657C7F651C1F04ABBED35A9DD279DD10B7FBA0B7F
- BA0B7FBA0B7FBA0B7FBAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA279DD1
- 43A3CE90DAF757C7F657C7F657C7F657C7F657C7F657C7F657C7F656C6F451C1
- F045B7E935A9DD2398CF0B7FBA0B7FBA0B7FBA0B7FBA0B7FBAFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA39AFD9
- 1688BFBFE9F857C7F657C7F657C7F657C7F657C7F657C7F657C7F657C7F657C7
- F657C7F657C7F657C7F656C6F451C1F045B7E931A4DA2398CF0B7FBA0B7FBA0B
- 7FBA0B7FBA0B7FBAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA37ACD8
- 188FC58FCAE260CBF657C7F657C7F657C7F657C7F657C7F657C7F657C7F657C7
- F657C7F657C7F657C7F657C7F657C7F657C7F657C7F657C7F656C6F451C1F041
- B4E52DA0D7168AC50B7FBAFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA37ACD8
- 2EA4D43198C792DDF75ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65ACB
- F65ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65ACBF65A
- CBF652C4EF3CAFE10B7FBAFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA37ACD8
- 3CADD71488BFC2EAF75ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65ECF
- F65ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65ECFF65E
- CFF657C9F247BAE90B7FBAFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA39AFD9
- 3EADD91990C67DC9E273D8F763D3F663D3F663D3F663D3F663D3F663D3F663D3
- F663D3F663D3F663D3F663D3F663D3F663D3F663D3F663D3F663D3F663D3F663
- D3F65BCCF24CBFE935AADA0B7FBAFF00FFFF00FFFF00FFFF00FF0B7FBA39ADDA
- 40AFDC34A9D72792C5A3E7F867D8F667D8F667D8F667D8F667D8F667D8F667D8
- F667D8F667D8F667D8F667D8F667D8F667D8F667D8F667D8F667D8F667D8F667
- D8F65FD1F24DC1E766D5F40F83BCFF00FFFF00FFFF00FFFF00FF0B7FBA3BAFDD
- 41B0E041B0E01387BFC5E9F46ADCF76ADCF76ADCF76ADCF76ADCF76ADCF76ADC
- F76ADCF76ADCF76ADCF76ADCF76ADCF76ADCF76ADCF76ADCF76ADCF76ADCF76A
- DCF764D5F34DC1E76BDAF6289FCF0B7FBAFF00FFFF00FFFF00FF0B7FBA3CB0E0
- 43B2E243B2E22198CC62B4D77EE2F86EE0F76EE0F76EE0F76EE0F76EE0F76EE0
- F76EE0F76EE0F76EE0F76EE0F76EE0F76EE0F76EE0F76EE0F76EE0F76EE0F76E
- E0F767D9F351C5E670E0F65DCFEB0B7FBAFF00FFFF00FFFF00FF0B7FBA3CB0E0
- 46B4E646B4E63CB0E02390C4C7F2F873E3F773E3F773E3F773E3F773E3F72D92
- 62004B000C651B26895262D0D073E3F773E3F773E3F773E3F773E3F773E3F773
- E3F76BDDF358CCE776E5F676E5F60B7FBAFF00FFFF00FFFF00FF0B7FBA3FB1E1
- 48B5E948B5E948B5E91287BF95CEE3A5EFFA76E7F876E7F876E7F876E7F876E7
- F8349C80035406004B00004E00136E2862D0D076E7F876E7F876E7F876E7F876
- E7F86FE1F358CCE77BEBF77BEBF742B8DC0B7FBAFF00FFFF00FF0B7FBA48B4E3
- 4AB6ED4AB6ED4AB6ED2DA0D71284BCA0D3E7D8F2F7DAF8FBD0F6FBB8F4FAB8F4
- FAA0F0FA65CBBC0D661B005B00006600004B003296637EEBF87EEBF87EEBF87E
- EBF877E5F362D1E786EFF786EFF786EFF70F83BCFF00FFFF00FF0B7FBA53B7E5
- 4CB8EF4CB8EF4CB8EF4CB8EF39AAE11C92C90B7FBA0B7FBA0B7FBA0B7FBA0B7F
- BA6EBADAC0E3EFA6E7E5035406036D03047B0500550028834391EEFA91EEFA91
- EEFA89E7F473D4E99FF3F89FF3F89FF3F839A3CE0B7FBAFF00FF0B7FBA5FBBE6
- 51BDF051BDF051BDF051BDF051BDF051BDF051BDF056C4F357C6F347BAE941B4
- E52DA3D41287BF79BFDD96C6AB004E00118C120E8B0F0156012D8343A5EFFAA5
- EFFA9DE9F486D7E9BBF6F8BBF6F8BBF6F899E1EE0B7FBAFF00FF0B7FBA83CFEF
- 56C4F256C4F256C4F256C4F256C4F256C4F256C4F256C4F256C4F256C4F256C4
- F256C4F24BBBEA188FC539A3CE16651A0C780F229C231B961C005701499863BA
- F2FAB2EDF89DD8E9D8F8FAD8F8FAD8F8FAD8F8FA0B7FBAFF00FF0B7FBAAAE5F8
- 5CCAF35CCAF35CCAF35CCAF35CCAF35CCAF35CCAF35CCAF35CCAF35CCAF35CCA
- F35CCAF35CCAF35CCAF32DA3D409694C06680637AB3B37AB3B1C9521004B0091
- CFBDBFF2FA9DD8E9E0F8FAE0F8FAE0F8FAE0F8FA72C0DD0B7FBA0B7FBAAAE5F8
- 62CFF362CFF362CFF362CFF362CFF362CFF362CFF362CFF362CFF362CFF362CF
- F362CFF362CFF362CFF35ECFF6349C80005A0150B8534FBC554BBD540C780F1C
- 6C25B4DCEBC5E3EFF7FBFCF7FBFCF7FBFCEFFBFBEFFBFB0B7FBA0B7FBAAFE9F8
- 68D5F468D5F468D5F468D5F468D5F468D5F468D5F468D5F468D5F468D5F468D5
- F468D5F468D5F468D5F468D5F446B0A6015C0267C96F67C96F67C96F34B64201
- 510108758C0B7FBA0B7FBA0B7FBA0B7FBA0B7FBA0B7FBA0B7FBA0B7FBAB2EDF8
- 6DDCF46DDCF46DDCF46DDCF46DDCF46DDCF46DDCF46DDCF46DDCF46DDCF46DDC
- F46DDCF46DDCF46DDCF46DDCF42B8F6003670481D38880D5897FD88A6AD47908
- 740F2486510B7FBAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBAB2EDF8
- 74E2F674E2F674E2F674E2F674E2F674E2F674E2F674E2F674E2F674E2F674E2
- F674E2F674E2F674E2F674E2F6136E2818842199E0A199E0A197E3A397E3A322
- A131075B0F0B7FBAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBABFF2FA
- 79E9F679E9F679E9F679E9F679E9F679E9F679E9F679E9F679E9F679E9F6004B
- 00005200005A01015C02025E03025E034AB653B2EABAB2EABAAFEBB8ACEDBA6F
- E2882C9336004B00004B00004B00004B00FF00FFFF00FFFF00FF0B7FBAA9DCEF
- 87EFF77FEEF77FEEF77FEEF77FEEF77FEEF77FEEF77FEEF77FEEF77FEEF7BBF4
- FA004F0072BA74D1EFD4D1EFD4D0F0D4D0F0D4CBF2D1C9F2D0C5F3CFC5F3CFBF
- F7CEBFF7CEBFF7CE5DD47A025403FF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA
- C4F7FA80EFF780EFF780EFF780EFF780EFF780EFF780EFF780EFF73EB5D80B7F
- BA0B7FBA004F0076BF7AD5F3D9D5F3D9D7F4DCD8F6DDD9F7E0D9F7E0D8F8E0D5
- FAE0D3FBE05DD47A025403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0B7FBA
- 62B4D79DF3F880EFF780EFF780EFF780EFF780EFF780EFF780EFF71990C60B7F
- BAFF00FFFF00FF0050017AC481D7F4DCD8F6DDD9F7E0DAF8E1DCFAE3DDFBE5DE
- FCE75ABD6C025403FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- 0B7FBA62B4D76EBADA8FCAE29DD8E996D8EA96D8EAC7F2F87DC9E20B7FBAFF00
- FFFF00FFFF00FFFF00FF0151017FC988D9F7E0DAF8E1DCFAE3DDFBE5D4FCE042
- B156004B00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FF0B7FBA0B7FBA0B7FBA0B7FBA0B7FBA0B7FBA0B7FBA0B7FBAFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FF0152024FB15CDCFAE3DDFBE5D4FCE03BB15000
- 4B00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FF004B0050AD5CD4FCE03BB150004B00FF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF004B00188421004B00FF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF004B00FF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
- ParentShowHint = False
- ShowHint = True
- OnClick = sbUpClick
- end
- object Label1: TLabel
- Left = 208
- Top = 8
- Width = 50
- Height = 13
- Caption = 'Password:'
- end
- object Label2: TLabel
- Left = 208
- Top = 32
- Width = 26
- Height = 13
- Caption = 'User:'
- end
- object edtUser: TEdit
- Left = 264
- Top = 0
- Width = 121
- Height = 21
- TabOrder = 0
- Text = 'anonymous'
- end
- object edtPassword: TEdit
- Left = 264
- Top = 24
- Width = 121
- Height = 21
- TabOrder = 1
- Text = 'anonymous'
- end
- end
- end
- end
- end
- object PanelTop: TPanel
- Left = 0
- Top = 0
- Width = 973
- Height = 110
- Align = alTop
- Alignment = taLeftJustify
- TabOrder = 2
- object MainToolBar: TToolBar
- Left = 1
- Top = 1
- Width = 971
- Height = 36
- Cursor = crHandPoint
- AutoSize = True
- ButtonHeight = 36
- ButtonWidth = 69
- EdgeBorders = [ebRight]
- Images = ilToolBar
- ParentShowHint = False
- ShowCaptions = True
- ShowHint = True
- TabOrder = 0
- Transparent = True
- object ToolbtnBack: TToolButton
- Left = 0
- Top = 0
- Hint = 'Navigate Back'
- Caption = 'Back'
- Enabled = False
- ImageIndex = 4
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolbtnBackClick
- end
- object ToolBtnForward: TToolButton
- Left = 69
- Top = 0
- Hint = 'Navigate Forward'
- AutoSize = True
- Caption = 'Forward'
- Enabled = False
- ImageIndex = 3
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnForwardClick
- end
- object ToolBtnStop: TToolButton
- Left = 120
- Top = 0
- Hint = 'Stop loading'
- Caption = ' Stop'
- Enabled = False
- ImageIndex = 0
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnStopClick
- end
- object ToolButton10: TToolButton
- Left = 189
- Top = 0
- Width = 8
- Caption = 'ToolButton10'
- ImageIndex = 10
- Style = tbsSeparator
- end
- object ToolBtnRefresh: TToolButton
- Left = 197
- Top = 0
- Hint = 'Refresh Active Tab'
- AutoSize = True
- Caption = 'Refresh'
- ImageIndex = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnRefreshClick
- end
- object ToolBtnHome: TToolButton
- Left = 246
- Top = 0
- Hint = 'Go Home'
- Caption = 'Home'
- ImageIndex = 1
- OnClick = ToolBtnHomeClick
- end
- object ToolButton11: TToolButton
- Left = 315
- Top = 0
- Width = 8
- Caption = 'ToolButton11'
- ImageIndex = 10
- Style = tbsSeparator
- end
- object ToolBtnSearch: TToolButton
- Left = 323
- Top = 0
- Hint = 'Search...'
- AutoSize = True
- Caption = 'Search'
- ImageIndex = 5
- ParentShowHint = False
- ShowHint = True
- OnClick = ToolBtnSearchClick
- end
- object ToolBtnAccesories: TToolButton
- Left = 367
- Top = 0
- Hint = 'Show Favorites'
- AutoSize = True
- Caption = 'Accessories'
- ImageIndex = 8
- ParentShowHint = False
- ShowHint = True
- Style = tbsCheck
- OnClick = ToolBtnAccesoriesClick
- end
- object tbBlock: TToolButton
- Left = 434
- Top = 0
- Hint = 'Block Popups'
- AutoSize = True
- Caption = 'Block Popups'
- ImageIndex = 9
- Style = tbsCheck
- end
- object Spacer: TToolButton
- Left = 507
- Top = 0
- Width = 10
- Caption = 'Spacer'
- ImageIndex = 10
- Style = tbsSeparator
- end
- object PanelSecurity: TPanel
- Left = 517
- Top = 0
- Width = 298
- Height = 36
- Align = alLeft
- TabOrder = 0
- object GroupBox1: TGroupBox
- Left = 1
- Top = 1
- Width = 296
- Height = 34
- Align = alLeft
- Caption = 'Page Security Status:'
- TabOrder = 0
- object imgZone: TImage
- Left = 56
- Top = 16
- Width = 25
- Height = 17
- end
- object ImgSSL: TImage
- Left = 128
- Top = 16
- Width = 25
- Height = 19
- Picture.Data = {
- 055449636F6E0000010001001010000001002000680400001600000028000000
- 1000000020000000010020000000000000000000130B0000130B000000000000
- 0000000000000000000000000D162735131D327C111D337E111D337D111D337D
- 111D337D111D337D111D337D111D337D111E337D121E337F0B101B5100000110
- 000000000000000000000000345B8BDC3095D3FF1D92DBFF1D8EDAFF1B8BDAFF
- 1987DAFF1783DAFF1680DAFF137CDAFF1179DBFF1274D4FF1E487EE80302022C
- 0000000000000000000000003C7AADF525C7FFFF1ABCFFFF18B6FFFF15B1FFFF
- 12ABFFFF0FA5FFFF0CA0FFFF099BFFFF0695FFFF0393FFFF165CA6FA04000032
- 0000000000000000000000003977AAF023BFFFFF1EBDFFFF1CB8FFFF19B3FFFF
- 16AEFFFF14A9FFFF11A3FFFF0E9EFFFF0C99FFFF0997FFFF175DA3F604000031
- 0000000000000000000000003D7BA9F029C9FFFF21C3FFFF22C3FFFF21C1FFFF
- 20C0FFFF20BEFFFF1BB6FFFF13A7FFFF0F9FFFFF0C9FFFFF1960A2F604000031
- 0000000000000000000000003F84AFF032D9FFFF2AD3FFFF2BD3FFFF2BD3FFFF
- 2BD3FFFF2BD4FFFF2CD4FFFF26CBFFFF17B0FFFF0FA4FFFF1B66A7F604000031
- 0000000000000000000000004396C0F037E9FFFF30E3FFFF31E3FFFF31E3FFFF
- 31E3FFFF31E3FFFF31E3FFFF32E5FFFF2EDFFFFF18BAFFFF1B73B7F604020332
- 00000000000000000000000050A7D0FA5BFDFFFF46F7FFFF49F8FFFF4CFAFFFF
- 4CF9FFFF4CF8FFFF4CF9FFFF49F8FFFF49FAFFFF47F3FFFF2C91CAFF0203072E
- 0000000000000000000000003393D2A95FC1E5F46FD1EAFF68CAE6FF5EC9EAEF
- 5ECFF3E85CC9EAE85DCAECEA67CAE6FE6ED0EAFF5CC5E8F72A7CADB10104080D
- 0000000000000000000000001F8DD80354759A92CACDD6FF9C9DA9FC21283866
- 104770232997E4232478B630838491F2C2C9D4FF404556A9020E170700000000
- 000000000000000000000000000000008564637DF1EDEBFFBBAAA8FC200F0B47
- 000000000000000006131D0594807CEFEAE4E3FF473330990000000000000000
- 000000000000000000000000000000008C6D6C7FF2F2F2FFC6B9B9FE261A1A60
- 00000000000000001A0C0A1FA69797F5EDEAEAFF493A3A970000000000000000
- 000000000000000000000000000000008A6B6B53DED7D7FFF0EDEDFF756262C3
- 120B0B430C07072D6B5555A9D7D2D2FFE2D8D8FF3D2E2E6A0000000000000000
- 000000000000000000000000000000008C6D6D0CB29C9CD4FFFFFFFFE7E2E2FF
- B1A1A1EDAB9B9BEAD7D1D1FFFCFDFDFFA99696DD100B0B1A0000000000000000
- 00000000000000000000000000000000000000009A7C7C3AC4B3B3E4F8F7F7FF
- FEFFFFFFFBFCFCFFFAF7F7FFC6B3B3EA3F323245000000000000000000000000
- 000000000000000000000000000000000000000000000000A1848427B29A9A93
- C6B5B5CDC8B7B7CF9E89899B5343433200000000000000000000000000000000
- 00000000FFFF0000C0030000C0030000C0030000C0030000C0030000C0030000
- C0030000C0030000E3C70000F3C70000F3C70000F18F0000F00FFFFFF81FFFFF
- FC3FFFFF}
- Visible = False
- end
- object lblZone: TLabel
- Left = 8
- Top = 16
- Width = 3
- Height = 13
- ParentShowHint = False
- ShowHint = True
- end
- object lblSSL: TLabel
- Left = 104
- Top = 16
- Width = 3
- Height = 13
- end
- object lblLevel: TLabel
- Left = 160
- Top = 16
- Width = 3
- Height = 13
- end
- object imgUn: TImage
- Left = 104
- Top = 16
- Width = 17
- Height = 17
- Picture.Data = {
- 055449636F6E0000010001001010000001002000680400001600000028000000
- 1000000020000000010020000000000000000000130B0000130B000000000000
- 0000000000000000090F1A281B2C4B991F3A62B41D385FB01D385FB01D385FB0
- 1D385FB01D385FB01D375FB01D375FB01D375FB01E3861B31728459F060A1245
- 0000000500000000294572913E9BD4FF1FA8F0FF1A9FEBFF199BEBFF1797EBFF
- 1594EBFF128FEBFF118BEBFF0F88EBFF0D84EBFF0881F0FF1572D2FF192D4D9E
- 00000009000000002B49779738B6EEFF1BC2FFFF1BBAFFFF18B5FFFF15B0FFFF
- 13AAFFFF10A5FFFF0EA1FFFF0B9CFFFF0997FFFF0496FFFF0B84EBFF1A2F51A2
- 0000000A000000002B49769638B2EFFF1CC0FFFF1FBDFFFF1DBAFFFF1BB6FFFF
- 19B2FFFF16ADFFFF12A6FFFF0FA0FFFF0E9DFFFF0A9CFFFF1089EBFF192F50A1
- 00000009000000002B4975963FBFEEFF24CCFFFF25C8FFFF25C8FFFF25C7FFFF
- 25C7FFFF25C7FFFF22C3FFFF1AB4FFFF12A3FFFF0DA2FFFF148FEBFF192F50A1
- 00000009000000002C55869646CDF1FF2DDDFFFF2ED8FFFF2ED8FFFF2ED9FFFF
- 2ED9FFFF2ED9FFFF2FDAFFFF2FDAFFFF26CBFFFF14AFFFFF1596EFFF1A375BA1
- 00000009000000002E6CA29751E1F5FF33F1FFFF34ECFFFF34ECFFFF34ECFFFF
- 34ECFFFF34ECFFFF34ECFFFF34ECFFFF35EFFFFF2CE4FFFF1EAFF6FF1B4770A2
- 0000000A000000002D7FBE906BDBF2FF6AFFFFFF60FEFFFF61FEFFFF61FDFFFF
- 5EF5FEFF5EF4FDFF5EF5FEFF58F6FFFF52F0FEFF5AFBFFFF4FD7FFFF1C588894
- 00000000000000002A8FD5240000000000000000000000000000000000000000
- 3698D880369FE37E3797D6815F8AABDD86B3CFFF6A8FADF326527390061C2A20
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000004F5D77018A655FB7D7CFCBFF997D7AE01005042400000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000005000001746161BBDAD9D9FF9D8B8BE3130B0B3100000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000140C0C1B8E7B7BDEECEDEDFF998787DB0B05052200000000
- 0000000000000000000000000000000000000000998604FF998604FF998604FF
- 2C2020602F2323547B6565BBCFC8C8FFF4F0F0FF756262AF0000000600000000
- 0000000000000000000000000000000093747437998604FFFFFFFFFFF1EEEEFF
- CFC3C3FDCCC0C0FDE6E4E4FFFCFCFCFFC0ADADEE312525400000000000000000
- 00000000000000000000000000000000000000009A7E7E44C1AEAEE0ECE7E7FF
- FDFDFDFFFFFFFFFFF1EBEBFFB9A6A6E040333351000000000000000000000000
- 000000000000000000000000000000000000000000000000A3868616AA8F8F62
- BAA2A295837373937562625E5647471400000000000000000000000000000000
- 00000000C0030000800100008001000080010000800100008001000080010000
- 80010000FC830000FFC78044E3C70000E3C70000E1870000F00F0000F81F0000
- FE7F0000}
- Visible = False
- end
- end
- end
- end
- object PanelMiddle: TPanel
- Left = 1
- Top = 37
- Width = 971
- Height = 36
- Align = alTop
- TabOrder = 1
- object PanelSearch: TPanel
- Left = 754
- Top = 1
- Width = 216
- Height = 34
- Align = alRight
- TabOrder = 0
- DesignSize = (
- 216
- 34)
- object spdBtnGoogleSearch: TSpeedButton
- Left = 167
- Top = 7
- Width = 41
- Height = 18
- Hint = 'Navigate to a Webpage'
- Anchors = [akTop, akRight]
- Caption = 'GO'
- Flat = True
- Glyph.Data = {
- AA030000424DAA03000000000000360000002800000011000000110000000100
- 1800000000007403000000000000000000000000000000000001FFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF44B53C44B53C44B53C44B53C44B53C
- 44B53C44B53C44B53C44B53C44B53C44B53C44B53C44B53C44B53C44B53C001A
- DC00FFFFFFD65B37FFF3FFE3FFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFBF5FFFFFFFFF8FFF4F4FFFFFFFF00FFFFFFD26B15FFFFEEFF
- FFF7FFFFF7FFF6E4BC73578F251AA02C13C53113BF3F16CB2A0EB4421DA98462
- F6F6E4FFFFFF00000000FFFFFFDB5F19F4FFFEE1FFF8FCE6E08B2628A4160BD9
- 8F89FFF9E7F3FFFCF3FFEFFFFFEEFAD2AF561300FFFFFF00000000000000FFFF
- FFF7561FFFFFFFFFF9E7C52E209F120FFFD7BCFBFFF7FFFFFFEDF4FFFFFFFFFF
- FAFBFFE5D0801F15FFFFFFFFFFFFFFFFFF00FFFFFFD96022EAFFF4D6A47ABD25
- 00C78F7CF6FFEDFFFFF8FFF8FFF4FFFEFECEC2B13731AA2A15B63325D08F86F4
- FFFE1924D200FFFFFFD15E1BFFFFF3DB6E42962200F4FBF8FFFFFFFFF1F7FFFF
- FFFFFFF3F6FFE8E3DBC4F9EACAFFE5D0F2D3CAE9FFFD0023C700FFFFFFE16114
- FFFFEECB5B26B0491CF8FAFFF6F0FFF4FFFEFFFFF3FFF5FFF8FFFEF8FFFEFFFF
- F8FFFFFFE9FFFDD9F8FF2F20D600FFFFFFD65327FFFFEEB96E22B15A1CE9FFFD
- F8FFFEFFF8FFFFF5FFFFFFFFFFF8FFFAF5FFFFFFFFF4FFFEEAFFF4F8FAFF1218
- DD00FFFFFFE85821FFFFF7E99A6FB5381CFFF5FFF8FFFEF4FFFEFFF8FFFFFFF3
- FFFFF3F4F4FFFFFFF8F4FFFEEDFFF7FFF8FF0E14CB00FFFFFFE7681DFFFBF5DF
- 9981933B17F9D9D3FFFFF7E6FFF8F7FFF0E1FFF8F3FFF4FFF5FFFFFAFBFFFFFF
- F3FFF4E9FFFD002ACD00FFFFFFCA5C20E3FFFEFFFFF8D88565993523FFF9EAE3
- FFFEEFFEFAFFFFFFFFFFF8FFFFFFF3DCCDD4D2CAF3FFF4F3F9FF0F28D200FFFF
- FFCF6315F8FFFEF6FFEDFFF5C1CA7446BA3313FFEBDDFFFFE9FFFFFFFFFFE9FF
- D7C98C381C743029FFEEEEFFF3FF0710D100FFFFFFF65C15FFFFF8FFFFF8FFFF
- EEFFF2D7E99E7EAF685AB13A24C6321AB13604B86031EFAC6FF0DEBFF3FFF4E6
- F8FF0026CE00FFFFFFD85B2FEBFAF6FFFFFFF7F5FBE3FFFEFFFFE9FFFFF8FFF6
- E4ECDFE1FFFFF3F8F0F0FFFFF8FFF5FFF8FAFFF9F1FF222ECC00FFFFFFE86307
- 4AB65639B64855AD4F45B34D50B84339B35541B14D52B54D44B53C3DB8504AB9
- 473BB44C40B72D44B53C44B53C00}
- ParentShowHint = False
- ShowHint = True
- OnClick = spdBtnGoogleSearchClick
- end
- object edtSearch: TEdit
- Left = 8
- Top = 4
- Width = 161
- Height = 21
- TabOrder = 0
- Text = 'Search In Google'
- OnDblClick = edtSearchDblClick
- end
- end
- object PaneAddress: TPanel
- Left = 1
- Top = 1
- Width = 753
- Height = 34
- Align = alClient
- TabOrder = 1
- DesignSize = (
- 753
- 34)
- object btnGo: TSpeedButton
- Left = 443
- Top = 5
- Width = 41
- Height = 22
- Hint = 'Navigate to a Webpage'
- Caption = 'GO'
- Flat = True
- Glyph.Data = {
- 9E020000424D9E0200000000000036000000280000000E0000000E0000000100
- 1800000000006802000000000000000000000000000000000000FFFFFFFFFFFF
- FFFFFFFFFFFF79B17C2A882A0078000078002A892A79B27CFFFFFFFFFFFFFFFF
- FFFFFFFF0000FFFFFFFFFFFFA2C8A600780027A73340D3544DEE6248EC5A34CE
- 401BA420007800A2C8A6FFFFFFFFFFFF0000FFFFFFA0C8A50A7F0D51DE6D53E5
- 6F36BB4543CC5043CF4E41D14B41E44F33D33C057E06A0C8A5FFFFFF0000FFFF
- FF0078005AE17A5EE97A1A9120ADCEAD228B2337B63E42C54A3EC4453ED84933
- D33C007800FFFFFF000073AD7733AB466EF69457DC691B9120FFFFFFF2F7F280
- B5801A921E3FC1463EC34340E34D1AA31F73AD7700002586275FDD8266EA835C
- E1701D9323FFFFFFFFFFFFFFFFFFC9DEC943984327A32B3FD04933CE3E258627
- 00000078007FFDAD69EC8563E87A1F9527FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- 80B58029AD3145EB57007800000000780085FDB56FF18D6AF083229829FFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFF80B5802BAE354AED5F00780000002085226CDE93
- 78F79A70F78D239A2DFFFFFFFFFFFFFFFFFFC9DEC9318F332DA83349D6593ED2
- 502085220000579E5C3EAD548BFDBA73FA90249A2EFFFFFFF2F7F271AD712098
- 274CCF5A4BCF5757EE7224A73064A46A0000FFFFFF00780079E7A384FCAE259A
- 30ADCEAD258F2949C95957DB6851D6615AE7754DDD69007800FFFFFF0000FFFF
- FF82B28C0D801377E7A27CEEA952C96D64E57F63E77D61E67B69F48E56E07608
- 7F0D82B28CFFFFFF0000FFFFFFFFFFFF7EB0890078003DAD5370E69A80FDB07A
- FDA95BDC7E30AB430078007EB088FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFAA
- C6BA559E5D19831C00780000780019831B499950FFFFFFFFFFFFFFFFFFFFFFFF
- 0000}
- ParentShowHint = False
- ShowHint = True
- OnClick = btnGoClick
- end
- object ProgressBar1: TProgressBar
- Left = 496
- Top = 5
- Width = 258
- Height = 20
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 0
- Visible = False
- end
- object IEAddress1: TIEAddress
- Left = 3
- Top = 5
- Width = 430
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- ArrowColor = clNavy
- BorderColor = clInactiveCaptionText
- ButtonPressedColor = clInactiveCaptionText
- EmbeddedWB = EmbeddedWB1
- HintColor = clYellow
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 1
- Themes = tmXP
- UseAppIcon = True
- end
- end
- end
- object LinksBar1: TLinksBar
- Left = 1
- Top = 86
- Width = 971
- Height = 23
- Align = alBottom
- AutoSize = True
- ButtonHeight = 21
- ButtonWidth = 65
- Caption = 'LinksBar1'
- ParentShowHint = False
- PopupMenu = PopupMenu1
- ShowCaptions = True
- ShowHint = True
- TabOrder = 2
- About = 'LinksBar by bsalsa : bsalsa@gmail.com'
- MaxCaptionLength = 15
- ShowImages = False
- WebBrowser = EmbeddedWB1
- end
- end
- object stBar: TStatusBar
- Left = 0
- Top = 705
- Width = 973
- Height = 19
- Panels = <
- item
- Width = 500
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end>
- end
- object MainMenu1: TMainMenu
- Left = 144
- Top = 240
- object MMFile: TMenuItem
- Caption = '&File'
- object Open: TMenuItem
- Caption = '&Open Page Dialog...'
- OnClick = OpenClick
- end
- object LoadFromStream: TMenuItem
- Caption = 'Load From Stream'
- OnClick = LoadFromStreamClick
- end
- object LoadFromStrings: TMenuItem
- Caption = 'Load From Strings'
- OnClick = LoadFromStringsClick
- end
- object N16: TMenuItem
- Caption = '-'
- end
- object SavePageToStrings1: TMenuItem
- Caption = 'Save Page To Strings'
- OnClick = SavePageToStrings1Click
- end
- object SavePageToStream: TMenuItem
- Caption = 'Save Page To Stream'
- OnClick = SavePageToStreamClick
- end
- object SaveThePageTofile1: TMenuItem
- Caption = 'Save Page to file'
- OnClick = SaveThePageTofile1Click
- end
- object miSave: TMenuItem
- Caption = 'Save Dialog'
- OnClick = miSaveClick
- end
- object SaveAs1: TMenuItem
- Caption = '&Save page As...'
- OnClick = SaveAs1Click
- end
- object Savepagetext: TMenuItem
- Caption = 'Save page text'
- OnClick = SavepagetextClick
- end
- object SaveAllImages: TMenuItem
- Caption = 'Save Page Images'
- OnClick = SaveAllImagesClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Print: TMenuItem
- Caption = '&Print...'
- OnClick = PrintClick
- end
- object PrintPreview1: TMenuItem
- Caption = 'Print Previe&w'
- OnClick = PrintPreview1Click
- end
- object PageSetup1: TMenuItem
- Caption = 'Page &Setup'
- OnClick = PageSetup1Click
- end
- object PrintWithOptions: TMenuItem
- Caption = 'Print With Options'
- OnClick = PrintWithOptionsClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object OfflineMode1: TMenuItem
- Caption = 'Work Offline'
- OnClick = OfflineMode1Click
- end
- object Exit1: TMenuItem
- Caption = '&Exit'
- OnClick = Exit1Click
- end
- end
- object MMEdit: TMenuItem
- Caption = '&Edit'
- object Cut1: TMenuItem
- Caption = 'Cut To Clipboard'
- OnClick = Cut1Click
- end
- object Pastefromclipboard1: TMenuItem
- Caption = 'Paste from Clipboard'
- OnClick = Pastefromclipboard1Click
- end
- object Copy: TMenuItem
- Caption = 'Cop&y to Clipboard'
- OnClick = CopyClick
- end
- object SelectAll: TMenuItem
- Caption = 'Select &All'
- OnClick = SelectAllClick
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object FindDialog: TMenuItem
- Caption = '&Find Dialog'
- OnClick = FindDialogClick
- end
- end
- object MMView: TMenuItem
- Caption = '&View'
- object ViewSourceHtml: TMenuItem
- Caption = '&Page Source (Html)'
- OnClick = ViewSourceHtmlClick
- end
- object PageSourceText: TMenuItem
- Caption = 'Page Source (Text)'
- OnClick = PageSourceTextClick
- end
- object PageSourceHtmlasstrings1: TMenuItem
- Caption = 'Page Source (Html As Strings)'
- OnClick = PageSourceHtmlasstrings1Click
- end
- object PageSourceTextasstrings1: TMenuItem
- Caption = 'Page Source (Text A Strings)'
- OnClick = PageSourceTextasstrings1Click
- end
- object ViewPageImagesAsAList1: TMenuItem
- Caption = 'View Page Images As A List'
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object CharacterSet1: TMenuItem
- Caption = 'Encoding'
- object CharSetAutomatic1: TMenuItem
- Caption = 'Automatic'
- Checked = True
- GroupIndex = 1
- Hint = '_autodetect_all'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object N7: TMenuItem
- Caption = '-'
- GroupIndex = 1
- RadioItem = True
- end
- object CentralEuropeanISO1: TMenuItem
- Caption = 'Central European (ISO)'
- GroupIndex = 1
- Hint = 'iso-8859-2'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object WesternEuropeanISO1: TMenuItem
- Caption = 'Western European (ISO)'
- GroupIndex = 1
- Hint = 'iso-8859-1'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object UnicodeUTF1: TMenuItem
- Caption = 'Unicode (UTF-8)'
- GroupIndex = 1
- Hint = 'utf-8'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object N8: TMenuItem
- Caption = '-'
- GroupIndex = 1
- RadioItem = True
- end
- object ArabicWindows1: TMenuItem
- Caption = 'Arabic (Windows)'
- GroupIndex = 1
- Hint = 'windows-1256'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object BalticWindows1: TMenuItem
- Caption = 'Baltic (Windows)'
- GroupIndex = 1
- Hint = 'windows-1257'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object ChineseSimplifiedGB1: TMenuItem
- Caption = 'Chinese Simplified (GB2312)'
- GroupIndex = 1
- Hint = 'gb2312'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object ChineseTraditionalBIG1: TMenuItem
- Caption = 'Chinese Traditional (Big5)'
- GroupIndex = 1
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object GreekWindows1: TMenuItem
- Caption = 'Greek (Windows)'
- GroupIndex = 1
- Hint = 'windows-1253'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object Korean1: TMenuItem
- Caption = 'Korean (ISO)'
- GroupIndex = 1
- Hint = 'iso-2022-kr'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object haiWindows1: TMenuItem
- Caption = 'Thai (Windows)'
- GroupIndex = 1
- Hint = 'windows-874'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- object urkishWindows1: TMenuItem
- Caption = 'Turkish (Windows)'
- GroupIndex = 1
- Hint = 'windows-1254'
- RadioItem = True
- OnClick = CharSetAutomatic1Click
- end
- end
- object Zoom1: TMenuItem
- Caption = 'Text Size'
- OnClick = Zoom1Click
- object Largest1: TMenuItem
- Tag = 4
- Caption = 'Largest'
- OnClick = Smallest1Click
- end
- object Large1: TMenuItem
- Tag = 3
- Caption = 'Large'
- OnClick = Smallest1Click
- end
- object Medium1: TMenuItem
- Tag = 2
- Caption = 'Medium'
- OnClick = Smallest1Click
- end
- object Small1: TMenuItem
- Tag = 1
- Caption = 'Small'
- OnClick = Smallest1Click
- end
- object Smallest1: TMenuItem
- Caption = 'Smallest'
- OnClick = Smallest1Click
- end
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object ScrollToTheTop1: TMenuItem
- Caption = 'Scroll to the top'
- OnClick = ScrollToTheTop1Click
- end
- object ScrolToPosition1: TMenuItem
- Caption = 'Scroll To Position'
- OnClick = ScrolToPosition1Click
- end
- object Scrolltothebottom1: TMenuItem
- Caption = 'Scroll to the bottom'
- OnClick = Scrolltothebottom1Click
- end
- object N12: TMenuItem
- Caption = '-'
- end
- object ViewHidethelinksbar1: TMenuItem
- Caption = 'View/Hide the links bar'
- OnClick = ViewHidethelinksbar1Click
- end
- end
- object MMNavigation: TMenuItem
- Caption = 'Navigation'
- object GoHome1: TMenuItem
- Caption = 'Go Home'
- OnClick = ToolBtnHomeClick
- end
- object GoBack1: TMenuItem
- Caption = 'Go Back'
- OnClick = ToolbtnBackClick
- end
- object GoForward1: TMenuItem
- Caption = 'Go Forward'
- OnClick = ToolBtnForwardClick
- end
- object GoAboutBlank1: TMenuItem
- Caption = 'Go About : Blank'
- OnClick = GoAboutBlank1Click
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object Stop1: TMenuItem
- Caption = 'Stop'
- OnClick = ToolBtnStopClick
- end
- object Refresh1: TMenuItem
- Caption = 'Refresh'
- OnClick = ToolBtnRefreshClick
- end
- object N11: TMenuItem
- Caption = '-'
- end
- object GoDowloadMasked1: TMenuItem
- Caption = 'Go Dowload Masked'
- OnClick = GoDowloadMasked1Click
- end
- object GoWithQueryDetails1: TMenuItem
- Caption = 'Go With Query Details'
- OnClick = GoWithQueryDetails1Click
- end
- object Godownloadafile1: TMenuItem
- Caption = 'Go And Download A File'
- OnClick = Godownloadafile1Click
- end
- end
- object MMTools: TMenuItem
- Caption = '&Tools'
- object EmbeddedWBOptions1: TMenuItem
- Caption = 'EmbeddedWB Functions'
- object FillFormWithPersonalDetails1: TMenuItem
- Caption = 'Fill Form With Personal Details'
- OnClick = FillFormWithPersonalDetails1Click
- end
- object GetDefaultWebBrowserFromResistry1: TMenuItem
- Caption = 'Get Default Web Browser From Resistry'
- OnClick = GetDefaultWebBrowserFromResistry1Click
- end
- object CreateAShortCutOnYourDeskTop1: TMenuItem
- Caption = 'Create A ShortCut On Your Desktop'
- OnClick = CreateAShortCutOnYourDeskTop1Click
- end
- object checkOnlineStatus2: TMenuItem
- Caption = 'Check Online Status'
- OnClick = checkOnlineStatus2Click
- end
- object GetHostAndIP1: TMenuItem
- Caption = 'Get Host And IP'
- OnClick = GetHostAndIP1Click
- end
- object GetSpecialFolderPath1: TMenuItem
- Caption = 'Get Special Folder Path'
- OnClick = GetSpecialFolderPath1Click
- end
- object N20: TMenuItem
- Caption = '-'
- end
- object SetDesignMode: TMenuItem
- Caption = 'Set Design mode on/off'
- OnClick = SetDesignModeClick
- end
- end
- object Security1: TMenuItem
- Caption = 'Security'
- object AddToRestrictedZoneList: TMenuItem
- Caption = 'Add To Restricted Zone List'
- OnClick = AddToRestrictedZoneListClick
- end
- object CheckIfInResrictedZoneList1: TMenuItem
- Caption = 'Check If In Resricted Zone List'
- OnClick = CheckIfInResrictedZoneList1Click
- end
- object N18: TMenuItem
- Caption = '-'
- end
- object AddToTrustedListZoneList1: TMenuItem
- Caption = 'Add To Trusted List Zone List'
- OnClick = AddToTrustedListZoneList1Click
- end
- object CheckIfInTrustedZoneList1: TMenuItem
- Caption = 'Check If In Trusted Zone List'
- OnClick = CheckIfInTrustedZoneList1Click
- end
- object N19: TMenuItem
- Caption = '-'
- end
- object CheckSiteSecurityLevel1: TMenuItem
- Caption = 'Check Site Security Level'
- OnClick = CheckSiteSecurityLevel1Click
- end
- object CheckSiteSecurityZone1: TMenuItem
- Caption = 'Check Site Security Zone'
- OnClick = CheckSiteSecurityZone1Click
- end
- object CheckPageSecurityEncryption1: TMenuItem
- Caption = 'Check Page Security Encryption'
- OnClick = CheckPageSecurityEncryption1Click
- end
- end
- object FavoritesTools1: TMenuItem
- Caption = 'Favorites Tools'
- object OpenOtherBrowsersFavorites1: TMenuItem
- Caption = 'Open Other Browsers Favorites'
- end
- object ImportExportWizard1: TMenuItem
- Caption = 'Show Import / Export Wizard'
- OnClick = ImportExportWizard1Click
- end
- object ShowOrganizeFavorites1: TMenuItem
- Caption = 'Show Organize Favorites'
- OnClick = ShowOrganizeFavorites1Click
- end
- object ExportFavorites1: TMenuItem
- Caption = 'Export Favorites'
- OnClick = ExportFavorites1Click
- end
- object ImportFavorites1: TMenuItem
- Caption = 'Import Favorites'
- OnClick = ImportFavorites1Click
- end
- object AddToFavorites1: TMenuItem
- Caption = 'Add To Favorites'
- OnClick = AddToFavorites1Click
- end
- object GetFavoritesPath1: TMenuItem
- Caption = 'Get Favorites Path'
- OnClick = GetFavoritesPath1Click
- end
- end
- object HistoryTools1: TMenuItem
- Caption = 'History Tools'
- object GetHistoryPath1: TMenuItem
- Caption = 'Get History Path'
- OnClick = GetHistoryPath1Click
- end
- object DeleteHistory1: TMenuItem
- Caption = 'Delete History'
- OnClick = DeleteHistory1Click
- end
- object ClearAddressBarTypedURLs1: TMenuItem
- Caption = 'Clear Address Bar ( Typed URL'#39's)'
- OnClick = ClearAddressBarTypedURLs1Click
- end
- end
- object CacheTools1: TMenuItem
- Caption = 'Cache Tools'
- object GetCachedPath: TMenuItem
- Caption = 'Get Cached File Path'
- OnClick = GetCachedPathClick
- end
- object ClearCache1: TMenuItem
- Caption = 'Clear Cache'
- OnClick = ClearCache1Click
- end
- end
- object MailTools1: TMenuItem
- Caption = 'Mail Tools'
- object SendThePageInMail1: TMenuItem
- Caption = 'Send The Page In Mail'
- OnClick = SendThePageInMail1Click
- end
- object SendTheURL: TMenuItem
- Caption = 'Send The Url In Mail'
- OnClick = SendTheURLClick
- end
- object SavePageToEmail2: TMenuItem
- Caption = 'Save Page To Email'
- end
- object CreateNewMail1: TMenuItem
- Caption = 'Create New Mail'
- OnClick = CreateNewMail1Click
- end
- object N10: TMenuItem
- Caption = '-'
- end
- object OpenYahooMail1: TMenuItem
- Caption = 'Open Yahoo Mail'
- OnClick = OpenYahooMail1Click
- end
- object OpenOutlook1: TMenuItem
- Caption = 'Open Outlook'
- OnClick = OpenOutlook1Click
- end
- object OpenOutlookExpress1: TMenuItem
- Caption = 'Open Outlook Express'
- OnClick = OpenOutlookExpress1Click
- end
- object OpenGoogleMail1: TMenuItem
- Caption = 'Open Google Mail'
- OnClick = OpenGoogleMail1Click
- end
- object OpenAddressBook1: TMenuItem
- Caption = 'Open Address Book'
- OnClick = OpenAddressBook1Click
- end
- object OpenHotmailMail1: TMenuItem
- Caption = 'Open Hotmail Mail'
- OnClick = OpenHotmailMail1Click
- end
- end
- object HomePage1: TMenuItem
- Caption = 'Home Page'
- object GetIEHomePage: TMenuItem
- Caption = 'Get IE Home Page'
- OnClick = GetIEHomePageClick
- end
- object SetIENewHomePage: TMenuItem
- Caption = 'Set IE New Home Page'
- OnClick = SetIENewHomePageClick
- end
- end
- object Cookies1: TMenuItem
- Caption = 'Cookies'
- object CookiesCheck1: TMenuItem
- Caption = 'Check the site for Cookies'
- OnClick = CookiesCheck1Click
- end
- object GetCookiesPath1: TMenuItem
- Caption = 'Get Cookies Path'
- OnClick = GetCookiesPath1Click
- end
- end
- object Images1: TMenuItem
- Caption = 'Images'
- object ShowTheImageEditor1: TMenuItem
- Caption = 'Show The Image Editor'
- OnClick = ShowTheImageEditor1Click
- end
- object GetAScreanCapture1: TMenuItem
- Caption = 'Get A Page Capture (Bmp)'
- OnClick = GetAScreanCapture1Click
- end
- object GetJpegPageCapture1: TMenuItem
- Caption = 'Get A Page Capture (Jpeg)'
- OnClick = GetJpegPageCapture1Click
- end
- object GetThumbnail: TMenuItem
- Caption = 'Get page to Thumbnail'
- OnClick = GetThumbnailClick
- end
- end
- object GoSearch1: TMenuItem
- Caption = 'Go Search'
- object SearchImMsn1: TMenuItem
- Caption = 'Search Im Msn'
- OnClick = SearchImMsn1Click
- end
- object SearchInGoogle1: TMenuItem
- Caption = 'Search In Google'
- OnClick = SearchInGoogle1Click
- end
- object SearchInYahoo1: TMenuItem
- Caption = 'Search In Yahoo'
- OnClick = SearchInYahoo1Click
- end
- end
- object Open1: TMenuItem
- Caption = 'Show / Open'
- object ShowInternetExplorerVersion1: TMenuItem
- Caption = 'Show Internet Explorer Version'
- OnClick = ShowInternetExplorerVersion1Click
- end
- object InternetOptions1: TMenuItem
- Caption = 'Show Internet &Options...'
- OnClick = InternetOptions1Click
- end
- object Properties: TMenuItem
- Caption = 'Show Page Properties'
- OnClick = PropertiesClick
- end
- object OpenNewsClient1: TMenuItem
- Caption = 'Open News Client'
- OnClick = OpenNewsClient1Click
- end
- object OpenCalender1: TMenuItem
- Caption = 'Open Calender'
- OnClick = OpenCalender1Click
- end
- object OpenNetMeeting: TMenuItem
- Caption = 'Open Net Meeting'
- OnClick = OpenNetMeetingClick
- end
- object OpenFoldersExplore1: TMenuItem
- Caption = 'Open Folders (Explore)'
- OnClick = OpenFoldersExplore1Click
- end
- object OpenRegistryEditor1: TMenuItem
- Caption = 'Open Registry Editor'
- OnClick = OpenRegistryEditor1Click
- end
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object LinksList1: TMenuItem
- Caption = 'Links List'
- object AddTheSiteToTheList1: TMenuItem
- Caption = 'Add The Site To The List'
- OnClick = AddTheSiteToTheList1Click
- end
- object RemoveTheSiteFromTheList1: TMenuItem
- Caption = 'Remove The Site From The List'
- OnClick = RemoveTheSiteFromTheList1Click
- end
- object NavigateToLinkItem1: TMenuItem
- Caption = 'Navigate To Link Item'
- OnClick = NavigateToLinkItem1Click
- end
- object CheckTheLinks: TMenuItem
- Caption = 'Check the links'
- OnClick = CheckTheLinksClick
- end
- object N13: TMenuItem
- Caption = '-'
- end
- object ShowTheList1: TMenuItem
- Caption = 'Show The List'
- OnClick = ShowTheList1Click
- end
- object ShowHideTheLinksToolbar1: TMenuItem
- Caption = 'Show / Hide The Links Toolbar'
- OnClick = ViewHideTheLinksToolbar1Click
- end
- object N15: TMenuItem
- Caption = '-'
- end
- object ClearTheLinkList1: TMenuItem
- Caption = 'Clear The Link List'
- OnClick = ClearTheLinkList1Click
- end
- end
- object IEDownload: TMenuItem
- Caption = 'IE Download'
- object CheckURLsFromALinkList1: TMenuItem
- Caption = 'Check URL'#39's From A Link List'
- OnClick = CheckURLsFromALinkList1Click
- end
- end
- object RichViewWBDemo1: TMenuItem
- Caption = 'RichViewWB Demo'
- object ShowTheEditor2: TMenuItem
- Caption = 'Show The Editor'
- OnClick = ShowTheEditor2Click
- end
- object N28: TMenuItem
- Caption = '-'
- end
- object Fonts: TMenuItem
- Caption = 'Fonts'
- object SelectFonts1: TMenuItem
- Caption = 'Set Fonts'
- OnClick = SelectFonts1Click
- end
- object SetFontColor: TMenuItem
- Caption = 'Set Font Color'
- OnClick = SetFontColorClick
- end
- object SetSize1: TMenuItem
- Caption = 'Set Size'
- OnClick = SetSize1Click
- end
- object SetBold1: TMenuItem
- Caption = 'Set Bold'
- OnClick = SetBold1Click
- end
- object SetItalic1: TMenuItem
- Caption = 'Set Italic'
- OnClick = SetItalic1Click
- end
- object SetUnderLine1: TMenuItem
- Caption = 'Set UnderLine'
- OnClick = SetUnderLine1Click
- end
- object AddBackroundColor1: TMenuItem
- Caption = 'Add Backround Color To Selected Text'
- OnClick = AddBackroundColor1Click
- end
- object ResetFontsFormat1: TMenuItem
- Caption = 'Reset Fonts Format'
- OnClick = ResetFontsFormat1Click
- end
- end
- object File1: TMenuItem
- Caption = 'File'
- object New1: TMenuItem
- Caption = 'New'
- OnClick = New1Click
- end
- object Open2: TMenuItem
- Caption = 'Open'
- OnClick = Open2Click
- end
- object Save1: TMenuItem
- Caption = 'Save'
- OnClick = Save1Click
- end
- object SaveAs2: TMenuItem
- Caption = 'Save As..'
- OnClick = SaveAs2Click
- end
- object N27: TMenuItem
- Caption = '-'
- end
- object Print1: TMenuItem
- Caption = 'Print'
- OnClick = Print1Click
- end
- end
- object Tools: TMenuItem
- Caption = 'Tools'
- object CreateASnapshot1: TMenuItem
- Caption = 'Create A Snapshot'
- OnClick = CreateASnapshot1Click
- end
- object PreviewRichEditLinesInTheBrowser1: TMenuItem
- Caption = 'Preview Code In The Browser (Stream)'
- OnClick = PreviewRichEditLinesInTheBrowser1Click
- end
- object LoadCodeFromBrowserStream1: TMenuItem
- Caption = 'Load HTML Code From Browser (Stream)'
- OnClick = LoadCodeFromBrowserStream1Click
- end
- object N22: TMenuItem
- Caption = '-'
- end
- object MailSelectedText1: TMenuItem
- Caption = 'Mail Selected Text'
- OnClick = MailSelectedText1Click
- end
- object Mail1: TMenuItem
- Caption = 'Mail'
- OnClick = Mail1Click
- end
- object N23: TMenuItem
- Caption = '-'
- end
- object HighlighHTML1: TMenuItem
- Caption = 'Highligh HTML'
- OnClick = HighlighHTML1Click
- end
- object HighLightXML1: TMenuItem
- Caption = 'HighLight XML'
- OnClick = HighLightXML1Click
- end
- object HighLightURL1: TMenuItem
- Caption = 'HighLight URL'
- OnClick = HighLightURL1Click
- end
- object N25: TMenuItem
- Caption = '-'
- end
- object SetColor1: TMenuItem
- Caption = 'Set Color'
- OnClick = SetColor1Click
- end
- object hemes1: TMenuItem
- Caption = 'Sert Themes'
- OnClick = hemes1Click
- end
- end
- object Edit: TMenuItem
- Caption = 'Edit'
- object Find1: TMenuItem
- Caption = 'Find'
- OnClick = Find1Click
- end
- object Replace1: TMenuItem
- Caption = 'Replace'
- OnClick = Replace1Click
- end
- object GoToLineNumber1: TMenuItem
- Caption = 'Go To Line Number..'
- OnClick = GoToLineNumber1Click
- end
- object SetSelectionAsAHyperLink1: TMenuItem
- Caption = 'Set Selection As A HyperLink'
- OnClick = SetSelectionAsAHyperLink1Click
- end
- object SetWordAsAHyperLink1: TMenuItem
- Caption = 'Set Word As A HyperLink'
- OnClick = SetWordAsAHyperLink1Click
- end
- object WrapLongLines1: TMenuItem
- Caption = 'Wrap Long Lines'
- Checked = True
- OnClick = WrapLongLines1Click
- end
- end
- object Add: TMenuItem
- Caption = 'Add'
- object InsertFromImageList: TMenuItem
- Caption = 'Insert Smiles And Formated Text from image list Demo'
- OnClick = InsertFromImageListClick
- end
- object InsertFile: TMenuItem
- Caption = 'Insert File ( As Link)'
- OnClick = InsertFileClick
- end
- object InsertBitmap: TMenuItem
- Caption = 'Insert Bitmap'
- OnClick = InsertBitmapClick
- end
- object N21: TMenuItem
- Caption = '-'
- end
- object AddDateAndTime1: TMenuItem
- Caption = 'Add Date And Time'
- OnClick = AddDateAndTime1Click
- end
- object N26: TMenuItem
- Caption = '-'
- end
- object AddBullets1: TMenuItem
- Caption = 'Add Bullets'
- OnClick = AddBullets1Click
- end
- object AddRomanNumbers1: TMenuItem
- Caption = 'Add Roman Line Numbers'
- OnClick = AddRomanNumbers1Click
- end
- object AddLineNumbers1: TMenuItem
- Caption = 'Add Line Numbers'
- OnClick = AddLineNumbers1Click
- end
- object N24: TMenuItem
- Caption = '-'
- end
- object AddAButton1: TMenuItem
- Caption = 'Add A Button'
- OnClick = AddAButton1Click
- end
- object AddTEditBox1: TMenuItem
- Caption = 'Add TEdit Box'
- OnClick = AddTEditBox1Click
- end
- object AddARadioButton1: TMenuItem
- Caption = 'Add A Radio Button'
- OnClick = AddARadioButton1Click
- end
- object AddACheckBox1: TMenuItem
- Caption = 'Add A TCheckBox'
- OnClick = AddACheckBox1Click
- end
- end
- end
- end
- end
- object HistoryMenu: THistoryMenu
- EmbeddedWB = EmbeddedWB1
- MainMenu = MainMenu1
- MenuPosition = 6
- Caption = 'History'
- Left = 112
- Top = 208
- end
- object ilToolBar: TImageList
- Left = 46
- Top = 208
- Bitmap = {
- 494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 0000000000003600000028000000400000004000000001001000000000000020
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000FF7F
- FF7FFF7F00000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000AC414739473947394739
- 4739473947394739473947396A39000000000000000000000000BD77954ED02D
- D0211136185FBD77FF7F00000000000000000000000000000000FF7F5A6B9452
- 31463146B5567B6FFF7F000000000000000000000000C94D466A436E236E236E
- 036E026E026EE26DE26DC26966450000000000005056676AA37A637663764276
- 42762276227621760176017AC269AB3D0000000000000000323E1322D119B00D
- 6D156E014D01D0193963FF7F00000000000000000000FF7F7B6FAC5561588164
- 8164615860508B413146BD7700000000000000000000E859047FE37EC37EC27E
- A27E817E817E617E407E407E63510000000000005056C776037FE37EC37EC27E
- A27E827E817E617E417E407E0176AB3D0000000000001232542E1326F221D119
- 494E8F09D1155532552EF75AFF7F00000000000000001867A270A278A278A278
- A278A278A27881688250AD359C730000000000000000E855E47EE37EE37EC37E
- A27EA27E827E617E617E417E83510000000000005056C776037FE37EE37EC37E
- C37EA27E827E817E617E617E2276AB3D000000007346963A5536342E1326F221
- 4C426E0975367536342E8F097B6F000000000000BD77A278A278A278A278A278
- A278A278A278A278A27882501042FF7F0000000000000956257F047F047F047F
- 047FE47EC37E827E617E617E84510000000000005056E776247F247F247F047F
- 047F047F047FC37E827E817E2276AB3D00000000F94EB742963A7536342E1326
- AF1DCF5A973E75368F054D01D029FF7F0000FF7FE478A278A278897900000000
- 0000DE7BA278A278A278A2706A515A6B000000000000295A667F457F457F457F
- 457F457F457F247FC27E817EA455000000000000705A287B657F657F657F657F
- 657F657F657F657F247FA27E4276AB410000F75A1953D84AB742963A5532552E
- B019F57F5532B0118F0D6E014D01BE770000387FA278A278517A000000000000
- 00004771A278A278A278A2786050524A0000000000006962A67F867F867F867F
- 867F867F867F867F657FE37EC45D00000000000090628A7BC67FA67FA67FA67F
- A67FA67FA67FA67FA67F857FA37AEB490000954E3A5B3A5B1A57F952F94A7B6F
- FF7F927BED2DD119B0158F0D6F019C730000E478A278A2780000000000000000
- C36CA278A278E478A278A2788168CE39000000000000AA6AEB7FC87FE97FE97F
- E97FE97FE97FE97FE97FC87F4566000000000000D16E6D7BED7FEC7FEC7FEC7F
- CB7FCB7FCB7FCB7FCA7FEB7F497F2D520000D6527C675B633A5B1A5714639977
- 9677907F6E77F21DD119B01590099C730000A278A2788164000000000000C36C
- A278A278E478BD774779A278A278CE39000000000000CE720C734D772D732D77
- 4D7B2D772D772C734D770C778D6200000000000000000000000000000000485A
- CA720000C9724C5AD0664D56C84900000000B656BD6F7C675B633A5BBA77DB7F
- D67FD67FD27FCF25F221D119B011DE7B0000A278A278815C00000000C36CA278
- A278E478000000008979A278A27810420000000000000000B362396B73560000
- 000000000000314A386B10460000000000000000000000000000000000000000
- 000000000000B1353A67F23D000000000000DE7BFF7B9D6F9C6B9D6F9A73D97F
- F87F543A7542754275361326D025FF7F0000A278A278826C9B7BE474A278A278
- E47800000000FF7FA278A278A278F75E00000000000000000000BE77B7560000
- 00000000000013429D7312420000000000000000000000003446F95EAF350000
- 000000000000AF357B6F33460000000000000000F75ADE77DE73BE73596BDA7F
- F97F964AD84AB846B73E973E5A6B00000000AB7DA278A278A270A278A278E478
- 000000000000F766A278A2780665BD7700000000000000000000DE7BF85E0000
- 000000000000754EBD7732460000000000000000000000009752FF7F544A0000
- 000000000000F23DBD77134200000000000000000000FF7FDE7BBE73175FFB7F
- DA7FD556F94ED84AD846744AFF7F000000000000A278A278A278A278E4780000
- 00000000B46EA278A278A27839670000000000000000000000005B6BBE771242
- 0000000033465A6B7C6F0000000000000000000000000000764EDE7B7C6FAF35
- 00000000D0393967DE7BF03D0000000000000000000000009C6FFF7BF75AFD7F
- FB7F576B1A573A57954E00000000000000000000517EA278A278A27881686154
- 61588168A278A278A2787266FF7F000000000000000000000000B756FF7F9C73
- 965296525A6BFF7F965200000000000000000000000000000000D85AFF7FBE77
- 1963F95E9C73FF7FB756000000000000000000000000000000003967944E0000
- FE7FFC7F744ADE7B00000000000000000000000000002F7EA278A278A278A278
- A278A278A278A2785172FF7F00000000000000000000000000000000F95EDF7B
- FF7FFF7FDF7BF95E0000000000000000000000000000000000000000B8569D73
- FF7FFF7FBE7797520000000000000000000000000000000000000000FF7FDE7B
- 9C735A6BFF7F000000000000000000000000000000000000DE7F2679A278A278
- A278A2788979DE7B000000000000000000000000000000000000000000001A63
- 1A631A63D85A0000000000000000000000000000000000000000000000000000
- B856544A000000000000000000000000000000000000000000000000A62A8005
- 8005A10580050000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000445EE15500000000
- 0000000000000000015A025A00000000000000000000000000008005400A221A
- 400A221A400AA10D800500000000000000000000000000000000000000000000
- 000000000000000000006B2D4A29945200000000007C00000000000000000000
- 0000000000000000104200400040000000000000000003564E770973E1550000
- 0000000000006462937B83660356000000000000000000008005400A221AC00A
- 221A8422221AE10E221A400A0000000000000000000000000000000000000000
- 0000000000000000292529253146EF3D00000000007C00400000000000000000
- 0000000000000040007C0040000000000000000000000000A866CF7F0A73E155
- 000000008666D67F6B7FA8660000000000000000000080050623A10D400A221A
- 400A400A400A221AC00AA10D400A000000000000000000000000000000000000
- 000000000000E71C524A3967734ED65A000000001042007C0000000000000000
- 000000000040007C0000000000000000000000000000000003566C7BAD7F4C77
- 025AA766D87FAD7F6C7BC0510000000000000000A62A062384260623400A2A3F
- FF7FFF7F0433400A221AC00A221A4F4F00000000000000000000000000000000
- 00000000A5146B2D1863186394520000000000001042007C0040000000000000
- 00000040007C000000000000000000000000000000000000000003568A7F8E7F
- 6E7BD67FD37F8B7F035600000000000000000000400A26370623A10D2A3FDB77
- FF7F4D4BC00A221A400A221A400A400A4F4F0000000000000000000000000000
- 00000000E71C3146524AB55600000000000000000000007C007C000000000000
- 0040007C0000000000000000000000000000000000000000000000000356697F
- 8E7FB17FD37F035600000000000000000000220E221A2637221A2A3FDB77FF7F
- 4D4B400A400A400A221A400A221A400A80050000000000000000000000000000
- 0000AD352925AD3594520000000000000000000000001042007C007C00000040
- 007C00000000000000000000000000000000000000000000E1550356447F457F
- 697F8E7FD27F6F7703560356000000000000A10D062326372637FF7FFF7FFF7F
- B86B935FB86BB86BB86BB86B0623221A80050000524A2A1D5342B6525442B02D
- 630C4A250000000000000000000000000000000000000000007C007C007C007C
- 0000000000000000000000000000000000000000C051455E4E778C7F667F437F
- 667F6B7F8E7FD37FB17FE86EE86EC0510000220E26372637DB77FF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7F4D4BC00A80050000091D1236FF77DF73DF6F9F6B
- 091DAD3500000000000000000000000000000000000000001042007C007C007C
- 000000000000000000000000000000000000245A306FFB7FF97FD27FAD7F667F
- 437F667F8B7FCF7FF47FF47F6C7B306FC05184224B434D4B0623935FFF7FFF7F
- B5674D4B2A3F4D4B2A3F2C430623221A400A524E7D67BF73FD46FD4E1D4BFB4A
- BF6BAF2D00000000000000000000000000000000000000000040007C007C007C
- 004000000000000000000000000000000000C051C051C051C051C051C0514E77
- 457F437FE572C051C051C051C051C051C05100000433945726372637935FFF7F
- DB772A3F221A0623221A8422221A400A000074469F679F6BFD46FD4AFD461C4F
- FF6F333A0000000000000000000000000000000000000040007C007C1042007C
- 007C00400000000000000000000000000000000000000000000000000000C051
- 8C7F457F215E00000000000000000000000000004F4FB567945784262637935F
- FF7FFF7F263784260623221A021BA62A000074467F5F7F635E5F5E5B5E5F7F63
- BF67964A000000000000000000000000000000400040007C007C000000000000
- 007C007C007C000000000000000000000000000000000000000000000000C051
- B17F697F025A000000000000000000000000000000002A3FDB77945726370623
- 4D4BB5670433062384260623221A0000000074465E5B5F5BBF6BDF6F9F675E5F
- DF63543E0000000000000000000000000000007C007C10420000000000000000
- 00001042007C007C007C0000000000000000000000000000000000000000C051
- D57F2B77E1550000000000000000000000000000000000006E4FFF7F94574D4B
- 2A3F26372637283F2637221A0000000000000000B64E3E53FE7FFE7FDF777F63
- 9546734E00000000000000000000000000001042000000000000000000000000
- 00000000000010420040007C007C00400000000000000000000000000000C051
- D77FCB6AC05100000000000000000000000000000000000000000623B567B86B
- B86BB86B935F4B43C00A000000000000000000009352D74ABF6BFF739F5F5D53
- 734E000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000C051
- B97BCC6AC051000000000000000000000000000000000000000000004F4F2637
- 2637A62A0623000000000000000000000000000000000000D652D652D652D652
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 255E0356000000000000000000000000000000000000000000000000AD316208
- 000000000000AE39000000000000000000000000000000000000932993299329
- 9329000000000000000000000000000000000000000031293129312931293129
- 3129312931293129312931293129312900000000000000000000000000000623
- A62A263726374F4F00000000000000000000000000000000000000000000620C
- 8410A518631000000000000000000000000000000000000093293A32DD3EDC46
- 9A3A93299329932993290000000000000000000000003129BF5B163F193F1D43
- 1C3FDD36BD36BD32BD36BD36DD36312900000000000000000000C00A4B43935F
- B86BB86BB86BB567062300000000000000000000000000004208082594567A73
- BE7F9D7F5A777352082142080000000000000000000093299A3A9D32DD423D53
- 1D47162ECC18EE1C93299329932900000000000000003129BF63B02E020A6A1A
- E201E2012812982EBD32BD32DD3631290000000000000000221A2637283F2637
- 26372A3F4D4B9457FF7F6E4F00000000000000000000420800009D77D6626B41
- E73409396B41B5667B77000042080000000000009329BC3EDD3A9D32DD469E63
- 3E4F1636CC18CC183832BD3A393693290000000000003121BF6B1543C001A001
- A001A001A001E205BA32BD32DD363129000000000000221A0623842606230433
- B5674D4B062326379457DB772A3F000000000000000029259B77412807552861
- 0761E664C75C854801289C7729250000000093291E433E3FDD3A9D321E4FBF6B
- 9F5B383ACC18CC183832BD3A9A3693290000000000003121DF731543E101A001
- E101B32E6B1AA0016B1ABD36DD36312900000000A62A021B221A062384262637
- FF7FFF7F935F263784269457B5674F4F00006B2D00009452D56649516A654969
- 2765E668E768C75CA544B666735200006B2D93293E433E3FDE3A9E2E1E4FDF77
- BF6B7842AB14CC183832BD3A9A3693290000000000007129DF773547C001A001
- A0018D221D47912A6A1ADD3ADD36312900000000400A221A8422221A0623221A
- 2A3FDB77FF7F935F263726379457043300004208630C596F6A3DCC65AA6D8A71
- 686D2771E770E768C75C4B417B77630C210093293E433F3FBC3E343E1E4FFF7B
- DF77DA522F21ED183836BD3A9A3693290000000000007129FF7F9C67113FD036
- AF2EB02E3D4F1D47D032DD3EDD3A31290000400A221A06232C432A3F4D4B2A3F
- 4D4BB567FF7FFF7F935F06234D4B4B43842200008410BD7F28352F72EC71EC75
- CB7568790775E76CE7600A41DE7F8410420093293F3F19472772A2796D6AFF77
- DF77DF739E63DC46DC42BC3E9A369329000000000000B529FF7F5147BF73BE67
- D036AF2EAF2EB02E1D471D431E3F312900008005C00A4D4BFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FDB7726372637220E00008410DD7F6A3D9172707A707A
- 4E7AAB754975086DE760E738BD7FA41000009329D05A857E637E037EA17DAD7A
- FF77DF77BF6B9E633D53DD429A3A9131000000000000B529FF7FCB2E3347BF73
- CD2EA001A001C0013D4F1D473E47312900008005221A0623B86BB86BB86BB86B
- 935FB86BFF7FFF7FFF7F263726370623A10D420C630C596FAD41167B157FF37E
- 9076EC718B714969085D6A3D596F620C4208057A257E657E857E247EE27DA17D
- CE7AFF77DF77BF6B9F5BDA52CF3D9035000000000000F929FF7F0D37A001CC2E
- 3347E105A001C0013E533E4F1D47312900008005400A221A400A221A400A400A
- 400A4D4BFF7FDB772A3F221A2637221A220EAD3900009352B45A3773997F157F
- 9076EC6DAB6D8B690751D66293560000CE390000057E257E657E857E247EE27D
- A17DCE7AFF77FF7739678B4D6C3D0000000000000000F929FF7FDE77220AA001
- A001A001A001C001BF631A53743E312900004F4F400A400A221A400A221AC00A
- 4D4BFF7FDB772A3FA10D06232637400A000000000000E61C9B77492D1673167B
- 91760E6ECC65495141289D7708210000000000000000057A257E657E657E247E
- E27DA17DCF7E147346554745000000000000000000001A2EFF7FFF7FDA6BA926
- 020A020AAB2A020A4F1D512151213129000000004F4F221AC00A221A400A0433
- FF7FFF7F2A3F400A062384260623A62A000000000000210400049B77B556AC39
- 483148358A3DB45E9B730000420800000000000000000000257E657E857E657E
- 037EE27DA17D437123590000000000000000000000001A2EFF7FFF7FFF7FFF7F
- DA6BDA6BFF7B933E4E1D1C1EDC0D5419000000000000400AA10DC00A221A400A
- 400A400A221A400AA10D06238005000000000000000000004208072194567B73
- DE7FBD7F596FB5564A25630C0000000000000000000000000000257E657E857E
- 647EE4796150E46800000000000000000000000000007C32FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FDA5A51219F22952100000000000000000000400A221AE10E221A
- 8422221AC00A221A400A80050000000000000000000000000000000000006310
- 84148414430C00000000000000000000000000000000000000000000257E657E
- 00000000013CC46800000000000000000000000000007C32DE77DE77DE77DE77
- DE77DE77DE77DA5A5121B52900000000000000000000000000008005A10D400A
- 221A400A221A400A8005000000000000000000000000000000000000AD398310
- 0000000084108C31000000000000000000000000000000000000000000000000
- 000000002140C46800000000000000000000000000007C32F929F929F929F929
- F929F929F929F929512100000000000000000000000000000000000000008005
- A10580058005A62A00000000000000000000424D3E000000000000003E000000
- 2800000040000000400000000100010000000000000200000000000000000000
- 000000000000000000000000FFFFFF0000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000FC7FFFFFFFFFC003F00FF00FC0038001
- E007C007C0038001C003C003C003800180038001C003800180010701C0038001
- 00010F01C003800100011E01C003800100011C01C003FC8300011861E3C7FFC7
- 000100C1F3C7E3C7800301C1F3C7E3C7C0038383F18FE187E00F8003F00FF00F
- F21FC007F81FF81FF83FE01FFC3FFE7FF83FFFFFFFFFE7E7F00FFFF19FE3C3C3
- E007FFE19FC7E187C003FFC18F8FE0078001FF838F1FF00F8000FF87C63FF81F
- 0000FF0FC07FE0070000807FE0FF80010000807FE1FF00000000007FE0FF0000
- 8001007FC07FFC3F8001007F0E1FFC3FC003007F1F07FC3FE007807F7FC1FC3F
- F00F80FFFFFFFC3FF83FE1FFFFFFFE7FF81FF0FFC001FC1FF00FE00FC001F00F
- E007C003C001E007C0038001C001C00380010001C001800100000001C0018001
- 00000001C001000000000001C001000000000001C001000000000001C0010000
- 00008003C00100018001C007C0018001C003E00FC001C003E007F01FC003E007
- F00FF99FC007F00FF81FFF9FC00FFC1F00000000000000000000000000000000
- 000000000000}
- end
- object ExportFavorite1: TExportFavorite
- About =
- 'TExportFavorites by bsalsa. Help & Support: http://www.bsalsa.co' +
- 'm/'
- FavoritesPath = 'Auto'
- SuccessMessage.Strings = (
- 'Your favorites have been exported to successfully!')
- TargetFileName = 'newbook.htm'
- TargetPath = 'C:\'
- Localization.TargetPathInvalid = 'The target path is invalid.'
- Localization.TargetFileNameInvalid = 'The target file name is invalid.'
- Localization.TargetFileNameExtInvalid = 'The target file name extension is invalid. It must be "*.htm".'
- Localization.FavoritesPathInvalid = 'The Favorites Path is invalid.'
- Localization.NoSuccessMessage = 'You must enter a SuccessMessage or turn off messages.'
- Localization.ChangeItMessage = 'Please change it.'
- Localization.HTMLTitle = 'Exported Favorites'
- Left = 16
- Top = 240
- end
- object ImportFavorite1: TImportFavorite
- About =
- 'TImportFavorites by bsalsa. Help & Support: http://www.bsalsa.co' +
- 'm/'
- CurrentFileName = 'newbook.htm'
- CurrentFilePath = 'C:\'
- FavoritesPath = 'Auto'
- SuccessMessage.Strings = (
- 'Your favorites have been ')
- TargetSubFolder = 'Imported Bookmarks'
- Left = 48
- Top = 240
- end
- object ilFavoritesTree: TImageList
- Left = 16
- Top = 208
- Bitmap = {
- 494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 0000000000003600000028000000400000003000000001001000000000000018
- 000000000000000000000000000000000000DE7B3536B225133AD856DE77DE7B
- DF7BFF7BFF7FFF7F000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000005A16171EDF7B5D5F9B3A1436343E
- 54427542D8567B6BDE7BFF7F0000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000BF12F23100005B67F429181E7B22
- BD26DC2E782E2C19323A9C6FFF7F000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000BF126E21B7525C1A9E1E7E1E7E1E
- 9E1EDE225F379F4F77328E297C6FFF7F00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000009D1A71159D1A9E1E7D1A5D165D1A
- 5D1A5D1A9E1E1F2FDF4FD93A1236DE7700000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000DB42FF1EBE1A7D165C165C163636
- BD73DA4A3D1A9E1AFF26DF5790217C6BFF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000FF1EBE1A7C165C127211BE77
- 00000000382E1826592ABA36B9427C6FFF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000DB36FE1A9D167C12930D7111
- 721172117211721172159315B21D974EFF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000009D6F00001E27DE1A9D167C167C16
- 7D167D165D165D167D1A9E1E1F33D752FF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000FF7B5C4F7D635E2BFE1AB3117736
- 983A783A391A5C165D167E1E9B223A63FF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000009F477D573B435E2BF5119C6F
- 00003A635B167C167D169E1EB31D9D73FF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000005C57FF539E535C4F5E271612
- 92115A127C167C167D1ADE1ED856DE77FF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000007D4FFF577E479E5F7E2B
- 1E1FDD16BD16BD16DE1A563A9D6F195BDE7B0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000005D53FF5BDF4BDF3B
- BF2F3E1F1E1FDD1ED94E00000000D94ABE730000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000FF7F9D635D53
- 3C471B433D373336195B00009D6F763ADE770000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000FF7FFF7BBA36FC327832BB225B63FF7F0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000006C32E6190000000000000000000000000000000000000000
- 0000000000000000000000000000000000009C735A6B9C73DE7B000000000000
- 000000000000000000000000000000000000BD7739675A6BBD77FF7F00000000
- 00000000000000000000000000000000000000000000FF7FDE7BFF7F00000000
- 0000000000006C32C002C002E619000000000000000000000000000000000000
- 000000000000000000000000000000000000005EC15585418C31EF3D94523967
- 9C73FF7F0000000000000000000000000000015EE15DA3498839CE393146F75E
- 7B6FBD77FF7F00000000000000000000000000000000CF7A6C6A3967BD77FF7F
- 000000006B2E0003200320032003061A000000000000997FA071577B00000000
- 00000000000084690061000000000000000075772A7F2A7FC77641660062C155
- 863DAD351042B5565A6BDE7B00000000000043620A7B0A7B0A7B866E2262E15D
- A4458935CE39734E18639C7300000000000000000000BB7FE07DA07191625A6B
- DE7B6A2A600380038003800380038003AC32000000000000207E007E806D0000
- 00006C72606D207E2065000000000000000075772A7F2A7F2A7F2A7F2A7F2A7F
- 2A7FC6764166005EA24D5A6B000000000000E872B87F0A7B0A7B0A7B0A7B0A7B
- 0A7B0A7B856A025EE159CE39DE7B00000000000000000000007A607E007E806D
- 2B66C0312022E003C003E003E0038822EE3A000000000000E075C07E607EE079
- 806D607EC07E607ED376000000000000000075772A7F2A7F2A7F2A7F2A7F2A7F
- 2A7F2A7F2A7F2A7F005E3967000000000000C86E32732B7B2B7B2B7B2B7B2B7B
- 2B7B2B7B2B7B2B7BC87285415A6B00000000000000000000C075C07EC07E607E
- 807EC07EC07EEB2FE71FE71FEB2F00000000000000000000E075E07EE07EC07E
- E07EE07EE07E407E0000000000000000000075774B7F4B7F4B7F4B7F4B7F4B7F
- 4B7F4B7F4B7F4B7F005E3967000000000000E97264664D7B4C7B4C7B4C7B4C7B
- 4C7B4C7B4C7B4C7BE972015E3146FF7F00000000000000004576017F017F017F
- 017F017F017FFA6BFD77FD77FA6B00000000000000000000CE7A227F227F227F
- 227F227F227FC0710000000000000000000075776C7F6C7F6C7F6C7F6C7F6C7F
- 6C7F6C7F6C7F6C7F005E3967000000000000E976C872DC7F6D7B6D7B6D7B6D7B
- 6D7B6D7B6D7B6D7B0A732B7769319C73000000000000DE7B2476427F427F427F
- 427F427F427FC026C026C026C02600000000000000000000007A637F637F637F
- 637F637F637FC37E8269000000000000000075778D7F8D7F8D7F8D7F8D7F8D7F
- 8D7F8D7F8D7F8D7F005E3967000000000000EA76C976CC6A8E7F8E7F8E7F8E7F
- 8E7F8E7F8E7F8E7F2B738E7BC255D65A00000000DE7B217A867F847F847F847F
- 847F847F847F467FA06D925E7B6FFF7F00000000997F817EA57FA57FA57FA57F
- A57FA57FA57F857F257F40690000000000007577AF7FAE7FAE7FAE7FAE7FAE7F
- AE7FAE7FAE7FAE7F005E39670000000000000D7BE976C8766666EE6E7677FD7F
- B17FB17FB17FB17F4D77B27BA76ACE39FF7FBD77407EEA7FC67FC67FC67FC67F
- C67FC67FC67FC67F867F00722C625A6BFF7F0E7F077FE77FE77FE77FE77FE77F
- E77FE77FE77FE77FE77F877F4069000000005377F57FF27FD07FCF7FCF7FCF7F
- CF7FCF7FCF7FCF7F005E39670000000000004F7B0B7B0B7B0B7B0B7B0B7BC872
- 5473D87FD67FD67F5277D97FD97F853D7B6F607ED37FF97FF47FF07FEB7FE87F
- E87FE87FEF7FF07FF47FF47F2372E965DE7B607E407E407EA27E097FD77FE87F
- E87FEA7FC97A4476E171606D4069E86D00002D77A56E4166EC6EF77FD47FD37F
- D37FD37FD37FD37F005E3967000000000000707B4C7B4C7B4C7B4C7B4C7B4C7B
- 4C7B226254737677FF7FFE7FFE7FE15D7B6F0000DB7F977F0F7F877A827EE87F
- E87FF27FC1714972AF76577BFF7F0000000000000000000000000000007AE97F
- E87FD77F577F000000000000000000000000927B8E7B8E7B8D7B987BFC7FFA7F
- F97FD77FD77FD77F005E3967000000000000927B8E7B8E7B8E7B8E7B8E7B8E7B
- 8E7B8E7B8E7B8E7BE15D396700000000000000000000000000000000437AF07F
- E87FE97E7B6F00000000000000000000000000000000000000000000767FF97F
- E97F00760000000000000000000000000000DA7FAF7BAF7BAF7BAF7BBA7BFF7F
- FE7FFE7FFC7FFB7F005E5A6B000000000000DA7FAF7BAF7BAF7BAF7BB27FD37F
- AF7BAF7BAF7BAF7BE15D5A6B00000000000000000000000000000000FD7F097F
- EE7FE175DE7B000000000000000000000000000000000000000000000000207E
- FA7FAC7A0000000000000000000000000000245EB07BB07BB07BB07BE74D336F
- AB668A6646622362136BFF7F000000000000245EB07BB07BB07BB07BE74D566F
- EF6ACF6ACF6A8B66136BFF7F000000000000000000000000000000000000207E
- 4C7F376BFF7F000000000000000000000000000000000000000000000000CC7E
- 827E000000000000000000000000000000000000EF6A486247624562BD770000
- 0000000000000000000000000000000000000000EF6A486247624562BD770000
- 000000000000000000000000000000000000000000000000000000000000DB7F
- 007ADE7B00000000000000000000000000000000000000000000000000000000
- 667E000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000009C7339673967396739673967
- 396739673967396739679C73BD77000000000000000000000000000000000000
- 000000000000000095526C2DCF39186300000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 657EFF7F0000000000000000000000000000FF7FD52993219321932193219321
- 9321932193219321932178429C73000000000000000000000000000000000000
- 000000000000D75A7A4E7A4ED3393A67000000000000000000000000BD777B6F
- 7B6F7B6F7B6FDE7BDE7B0000000000000000000000000000000000000000CB7E
- 827E9C730000000000000000000000000000BD77F725BF6F7F637F637F633F57
- 3F573F573F573F573F579321396700000000000000000000A071C27100000000
- 00000000000015427A4EF03DDE7B7B6FB5560000000000000000DE7B40024002
- 4002400240027B6FDE7B0000000000000000000000000000000000000000207E
- F67F4972FF7F000000000000000000000000BD77F725BF6F531953199F675319
- 53193315331533153F5793213967000000000000000000000476207EC0754A76
- 0000FF7FA369F3419B524C2911429131524A0000000000000000DE7B4002E01E
- C01EA01E40027B6FDE7B000000000000000000000000000000000000537FF67F
- E97F0076BD77000000000000000000000000BD77F725BF73BF6FBF6FBF6FBF6F
- 7F637F637F633F573F579321396700000000000000000000127BC07EA07E407E
- 806DE075245E1642594A794E584AD4397B6F00000000DE7BDE7BDE7B40020023
- E01EC01E40027B6FDE7BDE7BDE7BDE7B000000000000000000000000007AE97F
- E87FD57FAF6AFF7F00000000000000000000BD77F725BF7353195319BF6F5319
- 53195319531953193F5793213967000000000000000000000000807EE07E217B
- 4531873DF541F641F641F43D35465A6B00000000BD77BD77BD77BD7740020023
- 0023E01E40025A6B7B6F7B6F7B6FDE7BDE7B607E407E407EA27E097FD57FE87F
- E87FEA7FC97A4476E171606D4069E769FF7FBD77F725BF73BF73BF73BF6FBF6F
- BF6FBF6F1E577F637F639321396700000000000000000000000000721242DF7B
- BF77DB5A16421642CD490000000000000000DE7BA00EA00EA00E800680062023
- 0023E01E400240024002400240027B6FDE7BCC76077FE77FE77FE77FE77FE77F
- E77FE77FE77FE77FE77F877F4069F75EDE7BBD77F725BF7317361736BF731736
- 1732F7312004F82D7F639321396700000000000000000000667A445AFF7F7452
- 97565F6B9A520B4AA06DFE7F000000000000DE7BE01680276027402340234023
- 20230023E01EE01EC01EA01E40027B6FDE7BFF7F1273817EA57FA57FA57FA57F
- A57FA57FA57F857F257F40691863DE7B0000BD77F725DF7300002004BF73BF73
- 7F670000846E2004DD4ECB0C3967FF7FDE7B00000000427E877F6656B75A847F
- 44773E67584A056B667F00729A7B00000000DE7BE01680278027602740234023
- 402320230023E01EE01EC01E40027B6FDE7B0000FF7F5673007A637F637F637F
- 637F637F637FC37E61693967DE7B00000000BD77F725DF732629EA7620047F67
- 0000846E0000846E20042004A5183977004C0000407EEE7FE77F8777E75E845A
- 0F465F6BEE3DC77FE77FC77F6276B0720000DE7BE01681278027602760274023
- 4023402320230023E01EE01E40027B6FDE7B00000000FF7FAC76227F227F227F
- 227F227F227F9353B763B763955700000000BD77F725DF77DF732629EA764108
- 524A0000846E000044662466246600180054EA7E607E407E817EA47E097F2B67
- F33DAD56DA7BC97A2272816D826DA3690000DE7BE016E016E016E016E0166027
- 4023402340024002400240024002BD770000000000000000E075E07EE07EC07E
- E07EE07EE07EF24BF24BF24BF24B00000000DE7B182EF725F725F7252629EA76
- 4108133E0000446A446A446A446A8061215800000000000000000000BA7FD77F
- E87FEA7FC0710000000000000000000000000000DE7BDE7BDE7BBD77E0166027
- 6027402380067B6FDE7BDE7BDE7B00000000000000000000E075C07E607EE079
- 806D607EC07EE413E003E003E517000000000000DE7BBD77BD77BD77BD772629
- EA7641088672867286728672867280616374000000000000000000000000007A
- E87FFA7F127B0000000000000000000000000000000000000000DE7BE0168027
- 60276027A00E7B6FDE7B0000000000000000000000000000207E007E806DB45E
- 5A6BE0014003C003A003C003C00340030002000000000000000000000000BD77
- 89350852AA6EEA76EA76EA76EA760018847C000000000000000000000000317F
- FB7F207A00000000000000000000000000000000000000000000DE7BE0168127
- 80276027A00E7B6F0000000000000000000000000000557BA0714E623967DE7B
- FF7FFF7F00026003600360036003400200000000000000000000000000000000
- DE7BED416835620C620C620C620C3977847C0000000000000000000000000000
- 407EAA7A00000000000000000000000000000000000000000000DE7B201FE016
- E016E016A00EDE7B0000000000000000000000000000FF7F5A6BBD77FF7F0000
- 000000000000C001000300030002DD7700000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- A87E0000000000000000000000000000000000000000000000000000DE7BDE7B
- DE7BDE7BDE7B0000000000000000000000000000000000000000000000000000
- 0000000000000000A001E001DD7700000000424D3E000000000000003E000000
- 2800000040000000300000000100010000000000800100000000000000000000
- 000000000000000000000000FFFFFF00001F0000000000000007000000000000
- 2003000000000000000100000000000000010000000000000000000000000000
- 8180000000000000800000000000000040000000000000000000000000000000
- 81000000000000008000000000000000C000000000000000E00C000000000000
- F008000000000000FF00000000000000FFE7FFFF0FFF07FFC7C3FFFF007F003F
- C181C7CF00070007C000E30F00070003E000E00F00070003E003E01F00070001
- E003E01F00070001C003E00F0007000180018007000700000000000300070000
- 00000001000700008003F83F00070007F83FF87F00070007F83FFC7F00070007
- FC3FFCFF83FF83FFFC7FFEFFFFFFFFFF8003FFE1FFFFFE7F0003FFC1F80FFC7F
- 0003E7C0F00FFC3F0003E100F00FF83F0003E000C001F81F0003F00180000000
- 0003F00F000000000003E007000000010000C00300008003000080010000C003
- 000000010001E0030000F83F8003E0038000FC3FF00FE000FC00FC7FF01FC001
- FE00FE7FF01FC3C1FFFFFEFFF83FFFE300000000000000000000000000000000
- 000000000000}
- end
- object FavoritesMenu1: TFavoritesMenu
- About = 'TFavoritesMenu - from http://www.bsalsa.com/'
- Caption = 'Favorites'
- EmbeddedWB = EmbeddedWB1
- Localization.AddFavorites = 'Add to Favorites'
- Localization.OrganizeFavorites = 'Organize Favorites'
- Localization.ImportFavorites = 'Import Favorites'
- Localization.ExportFavorites = 'Export Favorites'
- Localization.ImportExportWizard = 'Import Export Favorites Wizard'
- Localization.EmptyCaption = ' (empty) '
- MainMenu = MainMenu1
- MenuPosition = 7
- OnAddFavorites = FavoritesMenu1AddFavorites
- Left = 144
- Top = 208
- end
- object PopupMenu1: TPopupMenu
- Left = 80
- Top = 240
- object AddCurrentSiteToTheLinksList1: TMenuItem
- Caption = 'Add Current Site To The Links List'
- OnClick = AddTheSiteToTheList1Click
- end
- object RemoveTheCurrentSiteFromTheLinksList1: TMenuItem
- Caption = 'Remove The Current Site From The Links List'
- OnClick = RemoveTheSiteFromTheList1Click
- end
- object NavigateToLinkListItem1: TMenuItem
- Caption = 'Navigate To Link List Item'
- OnClick = NavigateToLinkItem1Click
- end
- object N14: TMenuItem
- Caption = '-'
- end
- object ShowTheList2: TMenuItem
- Caption = 'Show The List'
- OnClick = ShowTheList1Click
- end
- object ViewHideTheLinksToolbar1: TMenuItem
- Caption = 'View/Hide The Links Toolbar'
- OnClick = ViewHideTheLinksToolbar1Click
- end
- object N17: TMenuItem
- Caption = '-'
- end
- object ClearTheLinksList1: TMenuItem
- Caption = 'Clear The Links List'
- OnClick = ClearTheLinkList1Click
- end
- end
- object IEDownload1: TIEDownload
- About = ' IEDownload http://bsalsa.com/'
- AdditionalHeader.Strings = (
- 'Content-Type: application/x-www-form-urlencoded')
- DefaultProtocol = 'http://'
- DefaultUrlFileName = 'index.html'
- OnResponse = IEDownload1Response
- TimeOut = 60000
- UserAgent = 'Mozilla/4.0 (compatible; MSIE 5.0; Win32)'
- Left = 112
- Top = 240
- end
- object ilsSmilies: TImageList
- Height = 19
- Width = 19
- Left = 80
- Top = 208
- Bitmap = {
- 494C01012F003100040013001300FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 00000000000036000000280000004C000000E400000001001000000000006087
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000002525872DE11CE11C021DA014000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000002142214200000000
- 0000E5200521E31CA01400000000000000000000000000000000000000002142
- 214221422142013E000000000000000000000000000000000000000000000000
- 000000002142214221422142013E000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000824E614A824E00000000000000006B35272DA31C
- 000000000000000000000000000000000000824E614A824E614A824E41462142
- 2142E1390000000000000000000000000000000000000000824E614A00000000
- 0000000000002142E13900000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000824EA252A252A2520000000000002931A51CE72000000000000000000000
- 0000000000000000824EA252A252A252A252A252A25241464146013EE1390000
- 0000000000000000000000000000824EA2520000A57CA57C4224A57CA57C0000
- 013EE13900000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000C256C256E25A
- E25AE25A00000000000000000000000000000000000000000000000000000000
- E25AC256C256C256C256C256A252A252A2522142214200000000000000000000
- 000000000000E25A000000000000000000000000000000000000214200000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000C256E25A4263426342634263E25A0000
- 00000000000000000000000000000000000000000000C256E25AE25A42634263
- 4263E25AE25AC256A252824E2142013E000000000000000000000000C256E25A
- 0000000000000000000000000000000000002142013E00000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000E25A4263836B836B836B836B836B42630000000000000000
- 0000000000000000000000000000E25A4263836B836B836B876F836BE25AE25A
- C256824E41462142000000000000000000000000E25A00000000000000000000
- 0000000000000000000000002142000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 4263836B856F856F856F856F836B836B4263C256A252824E2142000000000000
- 0000000000004263836B856F856F856F876F856F876F4263C256A252824E2142
- 0000000000000000000000004263000000000000000000000000000000000000
- 0000000021420000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000004263856F856F876F
- 876F876F876F836B4263E25AA252614A21420000000000000000000000004263
- 836B856F876F876F876F856F876F4263E25AA252614A21420000000000000000
- 0000000042630000000000000000000000000000000000000000000021420000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000004263836B856F876FA873876F856F836B
- 00000000A252824E21420000000000000000000000004263836B876F876F876F
- 876F856F836B4263C256A252824E214200000000000000000000000042630000
- 0000000000000000000000000000000000000000214200000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000836B856F876F876F876F856F836B00000000A252824E
- 00000000000000000000000000000000836B856F876F876F876F856F836B4263
- C256A252824E00000000000000000000000000000000836B0000FF7FBF6BFF7F
- FF7FBF6BFF7FBF6B0000824E0000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000836B856F856F856F856F856F836B4263C256A252614A0000000000000000
- 0000000000000000836B856F856F856F856F856F836B4263C256A252614A0000
- 0000000000000000000000000000836B00000000000000000000000000000000
- 0000614A00000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000836B836B
- 856F836B836B4263E25AC256824E000000000000000000000000000000000000
- 0000836B836B856F836B836B4263E25AC256824E000000000000000000000000
- 0000000000000000836B836B856F836B836B4263E25AC256824E000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000426342634263E25A
- C256000000000000000000000000000000000000000000000000000000004263
- 42634263E25AC256000000000000000000000000000000000000000000000000
- 00000000426342634263E25AC256000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000A1146010601000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000006235
- 623562358114A214274E8962284E000000000000000000000000000000000000
- 0000000000000000000000000000CF6A3077A449000000000000000000000000
- 000000000000000000000000000000002142214221422142013E000000000000
- 00000000000000000000000000002142214221422142013E0000000000000000
- 000000000000000000000000000000000000A341E449A3418114E21C274E8862
- 274EE42000000000000000000000000000000000000000000000000000000000
- 0000000000005277947F055A0000000000000000000000000000000000000000
- 00000000824E614A824E614A824E414621422142E13900000000000000000000
- 0000824E824E824E824E824E614A21422142E139000000000000000000000000
- 000000000000A341E44987628762E449E21CA53D074AE420E42047528962284E
- 000000000000000000000000000000000000000000000000000000000000CF6A
- B67F8C6600000000000000000000000000000000000000000000000000000000
- A252004800480048614A4146013EE1390000000000000000824EA2520000A252
- A252A252824E824E00002142E13900000000000000000000000000000000074A
- 8762086F086F086F074A8114E320274E89628962032500000000000000000000
- 00000000000000000000000000000000000000000000000052778C6600000000
- 0000000000000000824E824E013E2142013E2142013E21420000004C005C004C
- 0048614A414621420000000000000000C256E25AE25A00000000000000000000
- 824E4146214200000000000000000000000000000000876229738D7F8F7F8D7F
- 8962E320A53D074AE420E42047528962284E0000000000000000000000000000
- 0000000000000000000000000000000052773077275600000000000000000000
- A252A252824E614A824E614A614A214200000000000000000000000000002142
- 013E00000000E25AE25A42634263426342634263E25AE25AA252824E2142013E
- 000000000000000000000000000029738D7F8F7F8F7F2C738D7F284EE3208114
- 074A89628862032500000000000000000000000000008D668D66C549A31CA114
- C7493077CF6A6535CF6A947F3077295A0000000000000000A873A252A252A252
- A252A252824E013E0000856F42634263E25AC256824E0000214200000000E25A
- 4263836B836B836B836B836B4263E25AC256824E614A21420000000000000000
- 0000000000002C738F7F8F7F2C73A73DAB628D7F284EE320274E88626535074A
- 274E000000000000000000000000295A2756A73D8D66295AE3204B5A947FCF6A
- C749CF6AB67FB67F5277000000000000A8734263426342634263A252824E013E
- 0000856F836B836B4263C256A252824E2142000000004263836B856F856F856F
- 856F856F836B4263E25AA252824E214200000000000000000000000000000000
- 274E29738D7FAB62252DAB622973A73D8114A214A53D88628862000000000000
- 000000000000A31C252D8D66AD622756A114E3204B5A947FCF6AC7495277947F
- 3077000000000000A87300004263824E0000A252824E013E0000876F876F836B
- 4263E25AA252824E2142000000004263836B856F876F876F876F856F836B4263
- E25AA252824E2142000000000000000000000000000000000000074A29732C73
- 0000000000000000000000000000000000000000000000000000000000004B5A
- AD624B5A042D042D2756C749E3208D66947F5277947F30778C66000000000000
- A87300004263824E0000C256000021420000876F856F836B4263E25AA252614A
- 2142000000004263836B856F00000000876F856F836B00000000A252824E2142
- 000000000000000000000000000000000000000088622C730000000000000000
- 000000000000000000000000000000000000000000000000E320252DAD62AD62
- 295AE320A31C27560E730E730E738C66055A000000000000000000004263824E
- 0000000000000000876F876F856F836B4263E25A0000824E0000000000000000
- 836B856F00000000876F856F836B00000000A252824E00000000000000000000
- 00000000000000000000000088628F7FAB620000000000000000000000000000
- 000000000000000000000000000000004B5AAD624B5A042D042D2756C549E320
- E5558C668C66E555A449000000000000000000004263824E0000836B856F0000
- 00000000856F000000000000A252614A0000000000000000836B856F856F856F
- 856F856F836B4263E25AA252824E000000000000000000000000000000000000
- 0000000088628F7F2C7300000000000000000000000000000000000000000000
- 00000000000000000000E320042D295A8D66295AE3206010A449E555A4490000
- 0000000000000000000000004263824E00000000836B836B856F836B836B4263
- E25AC256824E000000000000000000000000836B836B836B836B836B4263E25A
- C256824E000000000000000000000000000000000000000000000000274E2C73
- AB62000000000000000000000000000000000000000000000000000000000000
- 00004B5AAD62295AA31CA114623D623D623D0000000000000000000000000000
- 000000004263824E0000000000000000426342634263E25AC256000000000000
- 0000000000000000000000000000426342634263E25AE25A0000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000400080008000400000000
- 0000000000000000000000000000000000000008000800080004000000000000
- 0000000000000000000000002142214221422142013E00000000000000000000
- 0000000000000000000000000000000000002142214221422142013E00000000
- 00000000000000000000000000000000000000002142214221422142013E0000
- 0000000000000000000000000014665166516651000800000000214221422142
- 2142013E000000000008665166516651000C0000000000000000000000000000
- 614A824E000000000000000000002142E1390000000000000000000000000000
- 000000000000614A824E000000000000000000002142E1390000000000000000
- 0000000000000000824E614A824E614A824E414621422142E139000000000000
- 00000000000C6651665166510000824E614A824E614A824E414621422142E139
- 00006651665166510010000000000000000000000000824EA25200000000FF7F
- FF7FBF6B000000002142E13900000000000000000000000000000000824EA252
- 00000000FF7FFF7FBF6B000000002142E139000000000000000000000000824E
- A252A252000000000000000000004146013EE139001000000000000000004010
- 66510000824EA252A252000000000000000000004146013EE139001066514014
- 000000000000000000000000000000000000BF6B0000FF7FFF7FBF6B0000FF7F
- 0000214200000000000000000000000000000000C2560000BF6B0000FF7FFF7F
- BF6B0000FF7F00002142000000000000000000000000C256C2560000E25AE25A
- C256C256A252000041462142200C0000000000000000400866514008C256C256
- 0000E25AE25AC256C256A252000041462142200C6651000400000000E03D0000
- E03DE03D0000E03D0000BF6B0000FF7FFF7FBF6B0000FF7FBF6B0000013E0000
- 0000000000000F000F000F000F000F00BF6B0000FF7FFF7FBF6B0000FF7FBF6B
- 0000013E0000000000000000C256E25A00004263426342634263E25AC256A252
- 00002142013E60080000000000000000600CC256E25A00004263426342634263
- E25AC256A25200002142013E6008600800000000E03D0000E03DE03D0000E03D
- 000000000000FF7FFF7FBF6B0000FF7FBF6B0000214200000000000000000000
- 00000F000000FF7FBF6B0000FF7FFF7FBF6B0000FF7FBF6B0000214200000000
- 00000000E25A4263836B836B836B836B836B4263E25AC256824E414621422004
- 000000000000630C0000E25A4263836B836B836B836B836B4263E25AC256824E
- 414621422004200400000000E03D0000E03DE03D0000E03D0000426342630000
- FF7FBF6B0000FF7FBF6B00002142000000000000000000000000426342630000
- BF6B0000FF7FFF7FBF6B0000FF7FBF6B0000214200000000000000044263836B
- 856F856F856F856F856F42634263C256A252824E214240080000000000000000
- 00044263836B856F856F856F856F856F42634263C256A252824E214240082004
- 00000000E03D0000000000000000E03D00004263426300000000000000000000
- 0000000021420000000000000000000000004263426300000000000000000000
- 00000000000000000000214200000000001400044263836B856F876F876F876F
- 856F836B4263E25AA252614A21420000001400000000410C00044263836B856F
- 876F876F876F856F836B4263E25AA252614A214200006008000000000000E03D
- E03DE03DE03D0000000042630000876F856F836B4263E25AA252614A21420000
- 0000000000000000000042630000856F876FA873876F856F836B4263E25AA252
- 614A214200000000001440084263836B876F00000000876F856F836B00000000
- A252824E21420008001400000000000040084263836B876F00000000876F856F
- 836B00000000A252824E21420008601000000000E03DE03DE03DE03DE03DE03D
- 0000000000000000856F00004263E25A0000824E000000000000000000000000
- 0F00000000000000876F876F0000856F00004263E25A0000824E000000000000
- 001483144008836B856F00000000876F856F836B00000000A252824E00048314
- 001400000000200466514008836B856F00000000876F856F836B00000000A252
- 824E00046651000400000000E03DE03DE03DE03DE03DE03D000000000000856F
- 856F836B00000000A252614A000000000000000000000F00E03D007CF75E0F00
- 00000000856F856F836B00000000A252614A000000000000001483146008836B
- 856F856F856F856F856F836B4263C256A252614A401483140014000000004010
- 66516008836B856F856F856F856F856F836B4263C256A252614A401466518220
- 00000000E03DE03DFF7FE03DE03DE03D0000836B0000836B836B4263E25AC256
- 824E000000000000000000000F00F75EE03DE03DF75EF75E0F00856F836B836B
- 4263E25AC256824E00000000000000000014831483140008000840144010200C
- 2010000800080008000440108314831400140000000000086651665100080008
- 40144010200C20100008000800080004401066516651000800000000E03DFF7F
- FF7FFF7FFF7FE03D00000000426342634263E25AC25600000000000000000000
- 00000F00F75EF75EF75EF75E003CF75EF75E0F0042634263E25AC25600000000
- 0000000000000000000883148314831483148314831483148314831483148314
- 8314831483148314401000000000000840148445665166516651665166516651
- 6651665166516651665166512010401000000000E03DE03DFF7FFF7FFF7FFF7F
- 0000000000000000000000000000000000000000000000000F000F000F000F00
- 0F000F000F000F000F000F000F00000000000000000000000000000000000000
- 0014831483148314831483148314831483148314831483148314831483148314
- 00140000000000000008601C665166516651665166516651665166516651844D
- 66512010000400000000000000000000EF3DEF3DEF3DEF3D0000000000000000
- 000000000000000000000000000000000000000000000000000000000000003C
- 0000000000000000000000000000000000000000000000000014831400002010
- 83148314831483148314831483148314001C000C200C83140014000000000000
- 00000000201020106651665166516651665166516651001C000C200C00000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000003C000000000000
- 00000000000000000000000000000000000000140014001483142010001C0014
- 8314001C83148314001400000014001400000000000000000000000000000008
- 2010001C00140014001C00140014001400000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000014831483140014001483148314001400148314
- 8314001400000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000010001400000000001400140014000000140014001400000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000002142214221422142013E0000
- 00000000000000000000000000000000000000000000E07FE07FF75E00002142
- 2142013E00000000000000000000000000000000000000000000000021422142
- 21422142013E0000000000000000000000000000000000000000000000000000
- 00002142214221422142013E0000000000000000000000000000000000000000
- 0000000000000000614A824E000000000000000000002142E139000000000000
- 00000000000000000000426342630000E07FE07FF75E0000414621422142E139
- 00000000000000000000000000000000824E614A824E614A824E414621422142
- E1390000000000000000000000000000000000000000824E614A824E614A824E
- 414621422142E13900000000000000000000000000000000000000000000824E
- A25200000000FF7FFF7FBF6B000000002142E139000000000000000000000000
- 0000426342630000E07FE07FE07F0000000000004146013EE139000000000000
- 000000000000824EA252A252A252A252A252A25241464146013EE13900000000
- 000000000000000000000000824EA252A252A252A252A252A25241464146013E
- E139000000000000000000000000000000000000000000000000BF6B0000FF7F
- FF7FBF6B0000FF7F0000214200000000000000000000F75E0000426300000000
- E07FE07F0000C256C256824E000041462142000000000000000000000000C256
- C256E25AE25AE25AC25600000000000000000000000000000000000000000000
- 0000000000000000000000000000C256A252A252A25221422142000000000000
- 00000000FF7FFF7FFF7FFF7FFF7FBF6B0000BF6B0000FF7FFF7FBF6B0000FF7F
- BF6B0000013E000000000000F75EE07FE07F00000000836B0000000042634263
- E25AC256A252614A2142013E0000000000000000C256E25AE25A426342634263
- 0000E25AC256A252824E2142013E000000000000000000000000C256E25AE25A
- 4263426342630000E25AC256A252824E2142013E0000000000000000FF7FFF7F
- FF7FFF7FFF7FBF6B000000000000FF7FFF7FBF6B0000FF7FBF6B000021420000
- 0000F75EE07FE07FFF7F00004263836B00000000836B836B426300000000824E
- 414621420000000000000000E25A4263836B836B836B0000836B4263E25AC256
- 824E41462142000000000000000000000000E25A4263836B836B836B876F836B
- 0000E25AC256824E414621420000000000000000FF7FFF7FFF7FFF7FFF7FBF6B
- 0000426342630000FF7FBF6B0000FF7FBF6B000021420000E03DE07FE07FFF7F
- 00004263836B0000BF6BBF6B0000856F0000BF6BBF6B0000614A214200000000
- 000000004263836B856F856F856F0000856F42634263C256A252824E21420000
- 000000000000000000004263836B856F856F856F876F856F00004263C256A252
- 824E214200000000000000000000000000000000000000000000426342630000
- 00000000000000000000000021420000E03DFF7FE07FFF7F000042630000BF6B
- FF7FFF7FBF6B0000BF6BFF7FFF7FBF6B0000214200000000000000004263836B
- 856F876F876F876F856F836B4263E25AA252614A214200000000000000000000
- 00004263836B856F876F876F876F856F836B4263E25AA252614A214200000000
- 000000000000000000000000836B836B000000000000876F856F836B4263E25A
- A252614A21420000E03DFF7FE07FE07FFF7F00000000BF6B00000000BF6B0000
- BF6B00000000BF6B0000214200000000000000004263836B876F856F856F876F
- 856F836B00000000A252824E21420000000000000000000000004263836B876F
- 00000000876F856F836B4263C256A252824E21420000000000000000EF3D0000
- 000000000000836B0000836B836B0000856F00004263E25A0000824E00000000
- 0000E03DFF7FE07FE07F0000836B0000000000000000856F0000000000000000
- 824E000000000000000000000000836B856F856F856F876F856F836B00000000
- A252824E00000000000000000000000000000000836B856F00000000876F856F
- 836B4263C256A252824E000000000000000000000000EF3D000000000000836B
- 836B00000000856F856F836B00000000A252614A0000000000000000E03DE03D
- 00000000836B856F00002925856F856F836B00002925A252614A000000000000
- 000000000000836B856F856F856F856F856F836B4263C256A252614A00000000
- 000000000000000000000000836B856F856F856F856F856F836B4263C256A252
- 614A000000000000000000000000EF3D0000000000000000836B836B836B836B
- 836B4263E25AC256824E0000000000000000000000000000000000000000836B
- 836B856F836B836B4263E25AC256824E00000000000000000000000000000000
- 836B836B856F836B836B4263E25AC256824E0000000000000000000000000000
- 000000000000836B836B856F836B836B4263E25AC256824E0000000000000000
- 000000000000EF3D0000EF3D0000000000000000426342634263E25AC2560000
- 0000000000000000000000000000000000000000000000000000426342634263
- E25AC25600000000000000000000000000000000000000000000000042634263
- 4263E25AC2560000000000000000000000000000000000000000000000000000
- 0000426342634263E25AC25600000000000000000000000000000000EF3D0000
- 0000EF3D00000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000EF3D0000EF3D000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000EF3D0000EF3D0000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000EF3D000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000EF3D0000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000002142214221422142
- 013E000000000000000000000000000000000000000000000000000000002142
- 214221422142013E000000000000000000000000000000000000000000000000
- 00000000000000002142214221422142013E0000000000000000000000000000
- 0000000000002142214221422142013E00000000000000000000000000000000
- 000000000000000000000000614A824E000000000000000000002142E1390000
- 000000000000000000000000000000000000824E614A824E614A824E41462142
- 2142E139000000000000000000000000000000000000000000000000614A824E
- 614A824E614A414621422142E139000000000000000000000000824E614A824E
- 614A824E414621422142E1390000000000000000000000000000000000000000
- 0000824EA25200000000FF7FFF7FBF6B000000002142E1390000000000000000
- 0000000000000000824EA252A252A252A252A252A25241464146013EE1390000
- 000000000000000000000000000000000000614AA252824E0000000000000000
- 00004146013EE1390000000000000000824EA252A25200000000000000000000
- 4146013EE1390000000000000000000000000000000000000000C2560000BF6B
- 0000FF7FFF7FBF6B0000FF7F0000214200000000000000000000000000000000
- E25AC25600000000000000000000000000002142214200000000000000000000
- 426342630000F75EF75EF75EF75EF75EF75EF75EF75EF75EA252000041462142
- 0000000000000000C256C2560000E25AE25AC256C256A2520000414621420000
- 00000000000000000000000000000000C2560000FF7FBF6B0000FF7FFF7FBF6B
- 0000FF7FBF6B0000013E000000000000000000000000C256E25AE25A42634263
- 42634263E25AC256A252824E2142013E00000000000000004263426300000000
- 00000000000000000000000000000000C256A252614A2142013E00000000C256
- E25A00004263426342634263E25AC256A25200002142013E0000000000000000
- 0000000000000000E25A0000FF7FBF6B0000FF7FFF7FBF6B0000FF7FBF6B0000
- 2142000000000000000000000000E25A4263836B836B836B836B836B4263E25A
- C256824E4146214200000000000000004263000000000000000000000000FF7F
- FF7F000000000000E25AC256824E4146214200000000E25A4263836B836B836B
- 836B836B4263E25AC256824E41462142000000000000000000000000836B836B
- 00000000FF7FBF6B0000FF7FFF7FBF6B0000FF7FBF6B00000000836B836B0000
- 0000000000004263836B856F856F856F856F856F42634263C256A252824E2142
- 0000000000000000426300000000000000000000FF7F1F001F00FF7F00000000
- 4263C256A252824E2142000000004263836B856F856F856F856F856F42634263
- C256A252824E2142000000000000000000000000836B836B0000000000000000
- 000000000000000000000000000000000000836B836B00000000000000004263
- 836B856F876F876FA873856F876F4263E25AA252614A21420000000000000000
- 0000FF03000000000000FF7FEF3DEF3D1F001F00FF7F00004263E25AA252614A
- 2142000000004263836B856F876F876F876F856F836B4263E25AA252824E2142
- 000000000000000000000000836B00004263836B856F876FA873876F856F836B
- 4263E25AA252614A21420000836B00000000876F876F0000836B876F00000000
- 876F856F836B00000000A252824E214200000000000000000000FF0300000000
- 0000FF7FEF3DEF3DEF3D1F00FF7F000000000000A252824E2142000000004263
- 836B876F00000000876F856F836B00000000A252614A21420000000000000000
- 00000000000000000000836B0000876F876F0000856F00004263E25A0000824E
- 00000000000000000000876F876F876F0000856F00000000876F856F836BA514
- A514A514A514A514A514A514A5140000000000000000000000000000FF7FEF3D
- EF3DFF7F000000004263E25AA252824E0000000000000000836B856F00000000
- 876F856F836B00000000A252824E000000000000000000000000000000000000
- 0000836B856F00000000856F856F836B00000000A252614A0000000000000000
- 0000000000000000A514A514A514A514A514A514A514A514A514C22CC22CC22C
- C22CA514000000000000000000000000000000000000FF7FFF7F000000000000
- 4263C256A252614A0000000000000000836B856F856F856F856F856F836B4263
- C256A252614A00000000000000000000000000000000000000000000836B836B
- 856F836B836B4263E25AC256824E000000000000000000000000A514A514A514
- A121A121A121A121A121A121432A432A432A432A432AC22CC22CA51400000000
- 000000000000000000000000000000000000E07F0000E07FE25AC256824E0000
- 00000000000000000000836B836B856F836B836B4263E25AC256824E00000000
- 000000000000000000000000000000000000000000000000426342634263E25A
- C256000000000000000000000000000000000000A514432A432A432A432AA121
- A121A121A121A121432A432AA121C22CC22CA514000000000000F75EF75EEF3D
- EF3DF75EF75EF75EE07FE07FE07FE07FC2560000000000000000000000000000
- 000000000000426342634263E25AC256000000000000EF3DC618000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000A514432A432AC22CC22CC22CC22CA121A121
- A121A121A121A121A5140000000000000000E07FE07FEF3DEF3D000000000000
- E07FE07FE07FE07F000000000000000000000000000000000000000000000000
- 0000000000000000E03D00000000EF3DC61800000000E03D0000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000A514C22CC22CC22CC22CA121A121432AC22CC22CA121A514
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000E03DE07FFF7FE03D0000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000A514A514C22CA121A121A121432AC22CA514A51400000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000E03D0000E03DE07FFF7F
- FF7FFF7FE03D0000E03D00000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000A514
- A514A514A514A514A51400000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000E03DE07FFF7FE03D00000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000E03D00000000E03DE03D00000000E03D0000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000002142214221422142013E000000000000000000000000000000000000
- 000000000000000000002142214221422142013E000000000000000000000000
- 00000000000000000000000000002142214221422142013E0000000000000000
- 0000000000000000000000000000000000002142214221422142013E00000000
- 000000000000000000000000000000000000000000000000824E614A824E614A
- 824E414621422142E1390000000000000000000000000000000000000000824E
- 614A824E614A824E414621422142E13900000000000000000000000000000000
- 00000000614A824E614A824E414621422142E139000000000000000000000000
- 000000000000824E614A824E005C005C005C21422142E1390000000000000000
- 0000000000000000000000000000824EA252A252000000000000000000004146
- 013EE13900000000000000000000000000000000824EA252A252A252A252A252
- 824E824E21422142E13900000000000000000000836B836B836B836B00000000
- 00000000000000004146013EE1390000000000000000000000000000824EA252
- A252005C005C005C005C005C4146013EE1390000000000000000000000000000
- 0000E25A00000000C2560000E25AE25AC256C256A25200004146214200000000
- 0000000000000000E25A00000000C2560000E25AE25AC256C256824E00004146
- 214200000000000000000000836B836B836B0000E25AE25AE25AC256C256A252
- 0000414621420000000000000000000000000000C256C256005C005C00000000
- 0000005C005C4146214200000000000000000000000000000000E25AE25A0000
- 00004263426342634263E25AC256A25200002142013E00000000000000000000
- E25AE25A00004263426300000000000000000000A252614A2142013E00000000
- 0000000000000000000042634263426342634263E25AC256A252614A2142013E
- 00000000000000000000C256E25AE25A4263005C005C4263005C005CA2524146
- 2142013E0000000000000000E001E0010000E25AE25A0000836B836B836B836B
- 836B4263E25AC256824E4146214200000000E001E0010000E25AE25A0000836B
- 836B836B836B836B4263E25AC256824E4146214200000000000000000000E25A
- 4263836B00000000836B836B426300000000824E414621420000000000000000
- 0000E25A4263836B836B836B836B836B4263E25AC256824E4146214200000000
- 00000000E001E0010000E25A0000E001E001856F856F856F856F42634263C256
- A252824E214200000000E001E0010000E25A0000E001E001856F856F856F856F
- 42634263C256A252824E2142000000000000000000004263836B00000000BF6B
- 0000856F00000000BF6B0000614A2142000000000000000000004263836B856F
- 856F856F856F856F42634263C256A252824E2142000000000000E001E0010000
- 000000000000E001E001876F876F876F856F836B4263E25AA252614A21420000
- E001E0010000000000000000E001E00100000000876F856F856F00000000A252
- 824E2142000000000000000000004263000000000000FF7FBF6B000000000000
- FF7FBF6B00002142000000000000000000004263836B856F876F876F876F856F
- 836B4263E25AA252614A21420000000000000000000000000000EF010000836B
- E001E0010000876F856F836B00000000A252824E214200000000000000000000
- EF010000836BE001E0010000876F856F836B00000000A252614A214200000000
- 00000000000042630000BF6BFF7FFF7FBF6B0000BF6BFF7FFF7FBF6B00002142
- 000000000000000000004263836B0000876F876F0000856F0000856FE25A0000
- 824E2142000000000000000000000000003CEF01003C836B856F00000000876F
- 856F836B00000000A252824E00000000000000000000003CEF01003C836B0000
- 876F876F876F856F836B4263E25A0000824E0000000000000000000000000000
- 836B0000BF6BBF6B0000856F0000BF6BBF6B0000824E00000000000000000000
- 00000000836B856F00000000876F856F836B00000000A252824E000000000000
- 000000000000007C007C007C007C007C856F856F856F856F856F836B4263C256
- A252614A0000000000000000007C007C007C007C007C856F0000856F856F856F
- 836B42630000A252614A0000000000000000000000000000836B856F00000000
- 856F856F836B00000000A252614A0000000000000000000000000000836B856F
- 856F856F856F856F836B4263C256A252614A000000000000000000000000003C
- 007C007C007C003C836B836B856F836B836B4263E25AC256824E000000000000
- 00000000003C007C007C007C003C836B836B0000856F836B42630000C256824E
- 000000000000000000000000000000000000836B836B856F836B836B4263E25A
- C256824E000000000000000000000000000000000000836B836B856F836B836B
- 4263E25AC256824E000000000000000000000000003C007C007C007C007C007C
- 003C0000426342634263E25AC256000000000000000000000000003C007C007C
- 007C007C007C003C0000426342634263E25AC256000000000000000000000000
- 0000000000000000000000000000426342634263E25AC2560000000000000000
- 000000000000000000000000000000000000426342634263E25AC25600000000
- 000000000000000000000000003C007C007C007C007C007C003C000000000000
- 000000000000000000000000000000000000003C007C007C007C007C007C003C
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000007C007C007C007C007C00000000000000000000000000000000
- 000000000000000000000000007C007C007C007C007C00000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000002142214221422142013E0000000000000000000000000000
- 00000000000000000000000000002142214221422142013E0000000000000000
- 0000000000000000000000000000000000000000000000002142214221422142
- 013E00000000000000000000000000000000000000002142214221422142013E
- 00000000000000000000000000000000000000000000000000000000824E614A
- 824E614A824E414621422142E139000000000000000000000000000000000000
- 0000824E614A824E614A824E414621422142E139000000000000000000000000
- 000000000000000000000000614A824E000000000000000000002142E1390000
- 00000000000000000000824E614A824E614A824E414621422142E13900000000
- 000000000000000000000000000000000000824EA252A2520000000000000000
- 00004146013EE13900000000000000000000000000000000824EA25200000000
- 614A824E824E000000002142E139000000000000000000000000000000000000
- 0000824EA25200000000FF7FFF7FBF6B000000002142E1390000000000000000
- 824EA252A2520000000000000000000041462142E13900000000000000000000
- 00000000000000000000C256C256E25AE25AE25AC256C256A252A25241462142
- 00000000000000000000000000000000C2560000C256E25A0000C2560000A252
- A2520000013E0000000000000000000000000000000000000000C2560000BF6B
- 0000FF7FFF7FBF6B0000FF7F000021420000000000000000C256C2560000E25A
- E25AC256C256A25200004146013E000000000000000000000000000000000000
- C256E25A42634263426342634263E25AC256A252614A2142013E000000000000
- 000000000000C256E25A42634263426342634263E25AC256A252614A2142013E
- 00000000000000000000000000000000C2560000FF7FBF6B0000FF7FFF7FBF6B
- 0000FF7FBF6B0000013E00000000C256E25A42634263426342634263E25AC256
- A252614A2142013E00000000000000000000000000000000E25A4263836B856F
- 856F836B836B4263C256C256824E41462142000000000000000000000000E25A
- 0000000000000000000000000000000000000000000021420000000000000000
- 000000004263426300000000000000000000FF7FFF7FBF6B0000FF7FBF6B0000
- 214200000000E25A4263836B836B836B836B836B4263E25AC256824E41462142
- 000000000000000000000000000000004263836B856F856F00000000856F856F
- 4263E25A00000000214200000000000000000000000042630000FF7FBF6B0000
- FF7FFF7FBF6B0000FF7FBF6B000021420000000000000000FF7F000042634263
- 0000F27F116300000000FF7FFF7FBF6B0000FF7FBF6B00002142000000004263
- 836B856F856F856F856F856F42634263C256A252824E21420000000000000000
- 0000000000000000426300000000000000000000856F00000000000000000000
- 214200000000000000000000000042630000FF7FBF6B0000FF7FFF7FBF6B0000
- FF7FBF6B000021420000000000000000FF7F721500000000FF7FFF7F11630000
- 000000000000000000000000000000002142000000004263836B856F876F876F
- 876F856F836B4263E25AA252614A214200000000000000000000000000000000
- 4263856F856F856F856F856F856F856F4263E25A824E824E2142000000000000
- 00000000000042630000FF7FBF6B0000FF7FFF7FBF6B0000FF7FBF6B00002142
- 0000000000000000FF7F7215FF7FFF7FFF7FF27F11630000A873876F856F836B
- 4263E25AA252614A2142000000004263836B876F00000000876F856F836B0000
- 0000A252824E2142000000000000000000000000000000000000856F856F856F
- 856F856F856F856F4263E25A824E824E00000000000000000000000000000000
- 836B0000BF6B0000FF7FFF7FBF6B0000FF7F0000824E00000000000000000000
- FF7FF75EFF7F7215F27F721511630000876F0000856F00004263E25A0000824E
- 0000000000000000836B856F00000000876F856F836B00000000A252824E0000
- 000000000000000000000000000000000000836B856F856F856F856F856F836B
- 4263E25AA252614A00000000000000000000000000000000836B856F00000000
- FF7FFF7FBF6B00000000A252614A00000000000000000000FF7FFF7FFF7F7215
- FF7F7215116300000000856F856F836B00000000A252614A0000000000000000
- 836B856F856F856F856F856F836B4263C256A252614A00000000000000000000
- 000000000000000000000000836B836B856F836B836B4263E25AC256824E0000
- 000000000000000000000000000000000000836B836B00000000000000000000
- C256824E000000000000000000000000FF7FFF7FF27F7215F27F721511630000
- 856F836B836B4263E25AC256824E000000000000000000000000836B836B856F
- 836B836B4263E25AC256824E0000000000000000000000000000000000000000
- 0000000000000000426342634263E25AC2560000000000000000000000000000
- 0000000000000000000000000000426342634263E25AC2560000000000000000
- 0000000000000000FF7FFF7FFF7F7215FF7F721511630000426342634263E25A
- C2560000000000000000000000000000000000000000426342634263E25AC256
- 0000000000000000AD352104A514155B00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- FF7FFF7FF27F7215F27F72151163000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 6B2D0000630C9452000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000FF7F087DA548F27F
- FF7FF27F11630000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000F75E9452
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000F27FA548A548FF7FF27FFF7F11630000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000F75E94520000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000116311631163116311631163116300000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000F75EAD3529250000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000F75EA514F75E2725E51CB3560521D15A000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000724E155BB3569256D25A00000000000000002142214221422142013E0000
- 000000000000000000000000000000000000EE3DEE3DEE3DEE3DEE3DEE3DEE3D
- EE3D000000000000000000000000000000000000000000000000000021422142
- 21422142013E0000000000000000000000000000000000000000000000002142
- 214221422142013E000000000000000000000000000000000000E51CE51CE51C
- 0521905600000000824E614A824E614A824E414621422142E139000000000000
- 00000000000000000000EE3DEE3DEE3DEE3DEE3DEE3DEE3DEE3D000000000000
- 00000000000000000000000000000000824E614A824E614A824E414621422142
- E13900000000000000000000000000000000824E614A824E614A824E41462142
- 2142E1390000000000000000000000000000672D6725E41C652DAD5A0000824E
- A252A252A252A252A252824E824E21422142E139000000000000000000000000
- EE3DEE3DEE3DEE3DEE3DEE3DEE3DEE3DEE3DEE3D000000000000000000000000
- 000000000000824EA252A252A252004800480048614A4146013EE13900000000
- 0000000000000000824EA252A2520000000000000000000041462142E1390000
- 00000000000000000000714EB152B2566E4EAD5A0000000000000000E25AE25A
- C256C256824E824E21422142000000000000000000000000EE3DEE3D0000EE3D
- EE3DEE3DEE3D0000EE3DEE3D000000000000000000000000000000000000C256
- C256E25A0048004C005C004C0048614A41462142000000000000000000000000
- C256C2560000E25AE25AC256C256A25200004146013E00000000000000000000
- 00002721051DB1560325116B0000E25A42634263000000004263E25AC256A252
- 614A2142013E0000000000000000000000000000EE3DEE3DEE3DEE3DEE3DEE3D
- 0000000000000000000000000000000000000000C256E25A0000000000000000
- 000000000000000000002142013E0000000000000000C256E25A426342634263
- 42634263E25AC256A252614A2142013E000000000000000000002725051DB156
- 03258F5A00004263836B836B836B836B836B4263E25AC256824E414621420000
- 0000000000000000FF7FFF7F000000000000000000000000FF7FFF7F00000000
- 000000000000000000000000E25A0000836B836B836B856F42634263E25AC256
- 824E000021420000000000000000E25A4263836B836B836B836B42634263E25A
- C256824E41462142000000000000000000004F4AB15213636E4EAD620000836B
- 856F856F856F856F836B836B4263C256A252824E214200000000000000000000
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000
- 000000004263836B856F856F856F856F836B836B4263C256A252824E21420000
- 0000000000004263836B856F856F856F856F836B836B4263C256A252824E2142
- 00000000000000000000E51C2525E31C0325AD5A0000856F856F876F876F876F
- 876F836B4263E25AA252824E2142000000000000000000000000FF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7F0000000000000000000000000000000000004263836B
- 876F876F876F876F876F836B4263E25AA252824E214200000000000000004263
- 856F856F876F876F876F876F836B4263E25AA252614A21420000000000000000
- 0000E41C0521E31C0325AD5A0000836B00000000A873876F856F836B4263E25A
- A252614A21420000000000000000CC35CC35FF7FFF7F8D31B556B5568D31FF7F
- FF7FCC35CC3500000000000000000000000000004263836B856F00000000876F
- 856F836B00000000A252614A214200000000000000004263836B856F00000000
- 876F856F836B00000000A252824E214200000000000000000000D25AB156D05A
- D05AAD5A0000836B856F00000000876F856F836B4263E25AA252824E00000000
- 000000000000CC3500000000FF7FFF7FFF7FFF7FFF7FFF7F00000000CC350000
- 0000000000000000000000000000836B856F00000000876F856F836B00000000
- A252824E000000000000000000000000836B856F876F876F876F856F836B4263
- E25AA252824E000000000000000000000000E41CE31CB156E21C11630000836B
- 856F856F856F856F856F836B4263C256A252614A000000000000000000000000
- 00000000FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
- 000000000000836B856F856F856F856F856F856F4263E25AA252614A00000000
- 0000000000000000836B856F856F856F856F856F836B4263C256A252614A0000
- 00000000000000000000051D2521B152E31C6E4E00000000836B836B856F836B
- 836B4263E25AC256824E0000000000000000000000000000000000000000FF7F
- FF7FFF7FFF7F0000000000000000000000000000000000000000000000000000
- 836B836B856F836B836B4263E25AC256824E0000000000000000000000000000
- 0000836B836B856F836B836B4263E25AC256824E000000000000000000000000
- 00009252714EB152D35A92560000000000000000426342634263E25AC2560000
- 000000000000000000000000000000000000000000000000FF7FFF7F00000000
- 00000000000000000000000000000000000000000000A9410000000042634263
- 4263E25AC25600000000A9410000000000000000000000000000000000004263
- 42634263E25AC25600000000000000000000000000000000000029250721E51C
- 2721D45A00000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000A9410000000000000000000000000000
- A941000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000008144814481448140
- 814000000000000000000000000000000000000000000000000000000000DE7B
- 013E21422142013E000000000000000000000000000000000000000000000000
- 00002142214221422142013E0000000000000000000000000000000000000000
- 00000000000000002142214221422142013E0000000000000000000000000000
- 000000000000000000000000A250A14C00000000000000000000814081400000
- 000000000000000000000000000000000000614A536BDE7B536B4146614A2142
- 2142E139000000000000000000000000000000000000824E614A824E614A824E
- 414621422142E1390000000000000000000000000000000000000000824E614A
- 824E614A824E414621422142E139000000000000000000000000000000000000
- 0000A250A2540000DE7BDE7BFF7FDE7BDE7B00008140813C0000000000000000
- 0000000000000000824E536B5A73DE7B5A73536B000000004146013EE1390000
- 000000000000000000000000824EA252A252000000000000000000004146013E
- E13900000000000000000000000000000000824EA252A252A252A252A252824E
- 824E21422142E139000000000000000000000000000000000000A25800005A6B
- 5A6BDE7BDE7BDE7B5A6B5A6B0000814000000000000000000000000000000000
- DE7BDE7BDE7BDE7BDE7BDE7BDE7BDE7B00004146214200000000000000000000
- 00000000C256C2560000E25AE25AC256C256A252000041462142000000000000
- 00000000000000000000C256C2560000E25AE25AC256C256824E00004146013E
- 00000000000000000000000000000000A2600000B55600000000000000000000
- 00000000B55600008140000000000000000000000000C256E25A536B5A73DE7B
- 5A73536B00000000000000002142013E00000000000000000000C256E25A0000
- 4263426342634263E25AC256A25200002142013E000000000000000000000000
- C256E25A4263426300000000000000000000A252614A2142013E000000000000
- 0000000000000000000000000000E370E370E370E268E268A260A25800000000
- 0000000000000000000000000000E25A42630000536BDE7B536B42634263E25A
- C25600004146214200000000000000000000E25A4263836B836B836B836B836B
- 4263E25AC256824E41462142000000000000000000000000E25A4263836B836B
- 836B836B836B4263E25AC256824E414621420000000000000000000000000000
- E2680000E3700571057105710571E370A260A260A25400008144000000000000
- 0000000000004263836B856F856FDE7B856F836B836B4263C256A252824E2142
- 000000000000000000004263836B856F856F856F856F856F42634263C256A252
- 824E21420000000000000000000000004263836B856F856F856F856F856F4263
- 4263C256A252824E21420000000000000000000000000000E268E37005710000
- 000000000571000000000000A258A14C81440000000000000000000000004263
- 836B856F876FDE7B876F856F836B4263E25AA252614A21420000000000000000
- 00004263836B856F876F876F876F856F836B4263E25AA252614A214200000000
- 00000000000000004263836B876F00000000876F856F856F00000000A252824E
- 21420000000000000000000000000000E268E37005710000000067710571E370
- 00000000A254A25081440000000000000000000000004263836B876F0000DE7B
- 876F856F836B00000000A252824E2142000000000000000000004263836B876F
- 00000000876F856F836B00000000A252824E2142000000000000000000000000
- 4263836B856F00000000876F856F836B00000000A252614A2142000000000000
- 00000000000000000000E37000000000677167710571E370E26800000000A14C
- 00000000000000000000000000000000836B856F00000000876F856F836B0000
- 0000A252824E0000000000000000000000000000836B856F00000000876F856F
- 836B00000000A252824E00000000000000000000000000000000836B0000876F
- 876F876F856F836B4263E25A0000824E00000000000000000000000000000000
- 0000E370E3700571057105710571E370A260A260A254A2500000000000000000
- 0000000000000000836B856F856F856F856F856F836B4263C256A252614A0000
- 000000000000000000000000836B856F856F856F856F856F836B4263C256A252
- 614A00000000000000000000000000000000836B856F0000856F856F856F836B
- 42630000A252614A0000000000000000000000000000000025670000E370E370
- E370E370E370E268A260A258A250000025670000000000000000000000000000
- 0000836B836B856F836B836B4263E25AC256824E000000000000000000000000
- 000000000000836B836B856F836B836B4263E25AC256824E0000000000000000
- 000000000000000000000000836B836B0000856F836B42630000C256824E0000
- 000000000000000000000000000002638E73604E00000000E268E268A268A260
- A25800000000604E8E7302630000000000000000000000000000000000004263
- 42634263E25AC256000000000000000000000000000000000000000000000000
- 0000426342634263E25AC2560000000000000000000000000000000000000000
- 0000000000000000426342634263E25AC2560000000000000000000000000000
- 0000000000008E73000000000000000000000000000000000000000000000000
- 00008E7300000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000005C000000000000000000000000000000000000
- 000000000000000000000000000000000000005C000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000005C005C005C000000000000000000000000000000000000000000000000
- 0000000000000000005C0000005C000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000005C005C005C005C
- 005C00000000000000000000000000000000000000000000000000000000005C
- 005C0000005C005C000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000005C005C005C005C005C000000000000
- 00000000000000000000000000000000000000000000005C005C0000005C005C
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000005C0000005C00000000000000000000000000000000
- 00000000000000000000000000000000005C0000005C00000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 2142214221422142013E00000000000000000000000000000000000000000000
- 0000000000002142214221422142013E00000000000000000000000000000000
- 0000000000000000000000002142214221422142013E00000000000000000000
- 0000000000000000000000000000000000002142214221422142013E00000000
- 0000000000000000000000000000000000000000824E614A824E614A824E4146
- 21422142E1390000000000000000000000000000000000000000824E614A824E
- 614A824E414621422142E1390000000000000000000000000000000000000000
- 824E614A824E614A824E414621422142E1390000000000000000000000000000
- 000000000000824E614A824E614A824E414621422142E1390000000000000000
- 00000000000000000000824EA252A252A252A252A2520000000041462142E139
- 00000000000000000000000000000000824EA252A252A252A252A252824E824E
- 21422142E13900000000000000000000000000000000824EA252A252A252A252
- A252824E824E21422142E13900000000000000000000000000000000824EA252
- A252000000000000000000004146013EE1390000000000000000000000000000
- 0000C256C2560000E25AE25A0000C256824E00004146013E0000000000000000
- 0000000000000000C256C2560000E25AE25AC256C256824E00004146013E0000
- 0000000000000000000000000000C256C2560000E25AE25AC256C256824E0000
- 4146013E00000000000000000000000000000000C256C256E25AE25AE25AC256
- C256A2520000414621420000000000000000000000000000C256E25A42634263
- 000000004263E25AC256A252614A2142013E000000000000000000000000C256
- E25A4263426300000000000000000000A252614A2142013E0000000000000000
- 00000000C256E25A4263426300000000000000000000A252614A2142013E0000
- 00000000000000000000C256E25A42634263426342634263E25AC256A252614A
- 2142013E000000000000000000000000E25A4263836B836B836B836B836B4263
- E25AC256824E41462142000000000000000000000000E25A4263836B836B836B
- 836B836B4263E25AC256824E41462142000000000000000000000000E25A4263
- 836B836B836B836B836B4263E25AC256824E4146214200000000000000000000
- 0000E25A4263836B00000000836B836B426300000000824E4146214200000000
- 00000000000000004263836B856F856F856F856F856F42634263C256A252824E
- 21420000000000000000000000004263836B856F856F856F856F856F42634263
- C256A252824E21420000000000000000000000004263836BDF18856F856F856F
- 856F42634263C256A252824E21420000000000000000000000004263836B0000
- BF6BBF6B0000856F0000BF6BBF6B0000614A2142000000000000000000000000
- 4263836B856F876F876F876F856F836B4263E25AA252614A2142000000000000
- 0000000000004263836B876F00000000876F856F856F00000000A252824E2142
- 0000000000000000000000004263836B876F00000000876F856F856F00000000
- A252824E214200000000000000000000000042630000BF6BFF7FFF7FBF6B0000
- BF6BFF7FFF7FBF6B000021420000000000000000000000004263836B876F0000
- 0000876F856F836B00000000A252824E21420000000000000000000000004263
- 836B856F00000000876F856F836B00000000A252614A21420000000000000000
- 000000004263836B856F00000000876F856F836B00000000A252614A21420000
- 0000000000000000000042630000BF6B00000000BF6B0000BF6B00000000BF6B
- 000021420000000000000000000000000000836B856F00000000876F856F836B
- 00000000A252824E00000000000000000000000000000000836B0000876F876F
- 876F856F836B4263E25A0000824E00000000000000000000000000000000836B
- 0000876F876F876F856F836B4263E25A0000824E000000000000000000000000
- 00000000836B0000000000000000856F0000000000000000824E000000000000
- 00000000000000000000836B856F856F856F856F856F836B4263C256A252614A
- 00000000000000000000000000000000836B856F0000856F856F856F836B4263
- 0000A252614A00000000000000000000000000000000836B856F0000856F856F
- 856F836B42630000A252614A00000000000000000000000000000000836B856F
- 00002925856F856F836B00002925A252614A0000000000000000000000000000
- 00000000836B836B856F836B836B4263E25AC256824E00000000000000000000
- 00000000000000000000836B836B0000856F836B42630000C256824E00000000
- 00000000000000000000000000000000836B836B0000856F836B42630000C256
- 824E0000000000000000000000000000000000000000836B836B856F836B836B
- 4263E25AC256824E000000000000000000000000000000000000000000000000
- 426342634263E25AC25600000000000000000000000000000000000000000000
- 000000000000426342634263E25AC25600000000000000000000000000000000
- 000000000000000000000000426342634263E25AC25600000000000000000000
- 000000000000000000000000000000000000426342634263E25AC25600000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000002142214221422142013E0000000000000000000000000000
- 00000000000000000000000000002142214221422142013E0000000000000000
- 0000000000000000000000000000000000000000814481448144814081400000
- 0000000000000000000000000000000000000000000000000000214221422142
- 2142013E000000000000000000000000000000000000000000000000824E614A
- 824E614A824E414621422142E139000000000000000000000000000000000000
- 0000824E614A824E614A824E414621422142E139000000000000000000000000
- 0000000000000000A250A14CA250A14CA250814881448140813C000000000000
- 0000000000000000000000000000824E614A824E614A824E414621420246C23D
- 000400000000000000000000000000000000824EA252A252A252004800480048
- 614A4146013EE13900000000000000000000000000000000824EA252A2520000
- 00000000000000004146013EE13900000000000000000000000000000000A250
- A254A258A254A258A254A250A25081448144813C000000000000000000000000
- 00000000824E8256825600040000000000000000024EC245A241000000000000
- 00000000000000000000C256C256E25A0048004C005C004C0048614A41462142
- 00000000000000000000000000000000C256C2560000E25AE25AC256C256A252
- 00004146214200000000000000000000000000000000A2580000A260A260A260
- A260A258A250A2500000814000000000000000000000000000000000635AE561
- 63304462E25AC256C25623564224A455E2490000000000000000000000000000
- C256E25A0000000000000000000000000000000000002142013E000000000000
- 000000000000C256E25A42634263426342634263E25AC256A252614A2142013E
- 000000000000000000000000A260A260A2600000E268E268A268A260A2580000
- A250814081400000000000000000000000008256E561A54CA66D256642634263
- E25A635AE561843CA455C349000000000000000000000000E25A0000836B836B
- 836B856F42634263E25AC256824E00002142000000000000000000000000E25A
- 4263836B836B836B856F42634263E25AC256824E414621420000000000000000
- 00000000A260E268E370E37000000000000000000000A258A250A14C81400000
- 00000000000000000000C25E2566866D866D056A836B836B4263635EA5656561
- 6561E34D0000000000000000000000004263836B856F856F856F856F836B836B
- 4263C256A252824E21420000000000000000000000004263836B856F00000000
- 856F856F836B00000000A252824E2142000000000000000000000000E268E370
- 05710571057105710571E268E268A258A258A14C814400000000000000000000
- 0000C362656EA66DE66D656E856F856F42634263E561A5656561E34D00000000
- 00000000000000004263836B876F876F876F876F876F836B4263E25AA252824E
- 21420000000000000000000000004263836BA5142925000000000000A5142925
- 00000000614A2142000000000000000000000000E268E3700571677167716771
- 0571E370E268A260A254A25081440000000000000000000000000267046B656E
- A76EE76E876F856F836B42634462E45DA4550246000000000000000000000000
- 4263836B856F876FA873876F856F836B4263E25AA252614A2142000000000000
- 000000000000000000000000A51429250000856F0000A5142925000000000000
- 000000000000000000000000E268E37005710000000067710571E37000000000
- A254A25081440000000000000000000000000267046BE76E00040000876F856F
- 836B0000000423562356E2490000000000000000000000000000836B0000876F
- 876F876F856F836B4263E25A0000824E00000000000000000000000000000000
- 836B856F0000A514876F856F836B0000A514A252824E00000000000000000000
- 000000000000E37005710000000067710000E37000000000A258A14C00000000
- 000000000000000000000000836B856F00000000876F856F836B00000000635A
- 235621100000000000000000000000000000836B856F000000000000856F0000
- 00000000A252614A00000000000000000000000000000000836B856F856F856F
- 856F856F836B4263C256A252614A00000000000000000000000000000000E370
- E370057105710000E3700000E268A258A254A250000000000000000000000000
- 00000000836B856F856F856F856F856F836B4263C2568256424E000400000000
- 000000000000000000000000836B836B856F836B836B4263E25AC256824E0000
- 000000000000000000000000000000000000836B836B856F836B836B4263E25A
- C256824E0000000000000000000000000000000000000000E370E3700000E370
- E370E2680000A258A2500000000000000000000000000000000000000000836B
- 836B856F836B836B4263E25AC256824E00000000000000000000000000000000
- 0000000000000000426342634263E25AC2560000000000000000000000000000
- 0000000000000000000000000000426342634263E25AC2560000000000000000
- 0000000000000000000000000000000000000000E268E268A268A260A2580000
- 0000000000000000000000000000000000000000000000000000426342634263
- E25AC25600000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000002142214221422142013E000000000000
- 000000000000000000000000000000000000000000002142214221422142013E
- 0000000000000000000000000000000000000000000000000000000021422142
- 21422142013E0000000000000000000000000000000000000000000000000000
- 0000110511053205100510050000000000000000000000000000000000000000
- 00000000824E614A824E614A824E414621422142E13900000000000000000000
- 00000000000000000000614A824E000000000000000000002142E13900000000
- 00000000000000000000000000000000824E614A824E614A824E414621422142
- E139000000000000000000000000000000000000000074097409730500000000
- 000011051005EF04000000000000000000000000000000000000824EA252A252
- 000000000000000000004146013EE13900000000000000000000000000000000
- 824EA25200000000FF7FFF7FBF6B000000002142E13900000000000000000000
- 000000000000824EA252A252000000000000000000004146013EE13900000000
- 0000000000000000000000007409950995099509000000480000740932051005
- 100500000000000000000000000000000000C256C2560000E25AE25AC256C256
- A25200004146214200000000000000000000000000000000C2560000BF6B0000
- FF7FFF7FBF6B0000FF7F0000214200000000000000000000000000000000C256
- C2560000E25AE25AC256C256A252000041462142000000000000000000000000
- 000000009609B809B809B8090000000000009509740911051005000000000000
- 0000000000000000C256E25A00004263426342634263E25AC256A25200002142
- 013E000000000000000000000000C2560000FF7FBF6B0000FF7FFF7FBF6B0000
- FF7FBF6B0000013E000000000000000000000000C256E25A0000426342634263
- 4263E25AC256A25200002142013E000000000000000000000000B809B809B809
- DA09DA09000000000000B8097409740911051005000000000000000000000000
- E25A4263836B836B836B836B836B4263E25AC256824E41462142000000000000
- 000000000000E25A0000FF7FBF6B0000FF7FFF7FBF6B0000FF7FBF6B00002142
- 000000000000000000000000E25A4263836B836B836B836B42634263E25AC256
- 824E4146013E000000000000000000000000B809DA09FC0DFC0DFC0DFC0DDA09
- DA09B80995097409320511050000000000000000000000004263836B856F856F
- 856F856F856F42634263C256A252824E21420000000000000000000000004263
- 0000FF7FBF6B0000FF7FFF7FBF6B0000FF7FBF6B000021420000000000000000
- 000000004263836B856F856F856F856F856F836BE25AE25AA252824E21420000
- 00000000000000000000DA09FC0D9D2E9D2E9D2EFC0DFC0DDA099D2E9D2E9D2E
- 320511050000000000000000000000004263836B856F876F876F876F856F836B
- 4263E25AA252614A214200000000000000000000000042630000000000000000
- 000000000000000000000000000021420000000000000000000000004263856F
- 856F876F876F876F856F836B4263E25AA252614A214200000000000000000000
- 0000DA099D2EFF7FFF7FFF7F9D2E3C169D2EFF7FFF7FFF7F9D2E110500000000
- 00000000000000004263836B876F00000000876F856F836B00000000A252824E
- 21420000000000000000000000004263836B856F876FA873876F856F836B4263
- E25AA252614A21420000000000000000000000004263836B856F000000000000
- 856F836B00000000A252824E2142000000000000000000000000DA099D2EFF7F
- 0000FF7F9D2E3C169D2EFF7F0000FF7F9D2E1005000000000000000000000000
- 0000836B856F00000000876F856F836B00000000A252824E0000000000000000
- 0000000000000000836B0000876F876F0000856F00004263E25A0000824E0000
- 0000000000000000000000000000836B0000876F876F876F0000836B00000000
- A252824E000000000000000000000000000000009D2EFF7FFF7FFF7F9D2E3C16
- 9D2EFF7FFF7FFF7F9D2E00000000000000000000000000000000836B856F856F
- 856F856F856F836B4263C256A252614A00000000000000000000000000000000
- 836B856F00000000856F856F836B00000000A252614A00000000000000000000
- 000000000000836B856F856F856F856F856F836B4263C256A252614A00000000
- 000000000000000000000000FC0D9D2E9D2E9D2E3C16FC0DFC0D9D2E9D2E9D2E
- 3305000000000000000000000000000000000000836B836B856F836B836B4263
- E25AC256824E0000000000000000000000000000000000000000836B836B856F
- 836B836B4263E25AC256824E0000000000000000000000000000000000000000
- 836B836B856F836B836B4263E25AC256824E0000000000000000000000000000
- 000000000000FC0DFC0DFC0DFC0DFC0DDA09B809950974090000000000000000
- 00000000000000000000000000000000426342634263E25AC256000000000000
- 00000000000000000000000000000000000000000000426342634263E25AC256
- 0000000000000000000000000000000000000000000000000000000042634263
- 4263E25AC2560000000000000000000000000000000000000000000000000000
- 0000DA09DA09DA09B809B8090000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000424D3E000000000000003E000000
- 280000004C000000E40000000100010000000000B00A00000000000000000000
- 000000000000000000000000FFFFFF00FE207FC1FFF83F8000000000F830FF00
- 7FE00F8000000000F071FE003FC0078000000000E063FC001F80038000000000
- E03FFC001F80038000000000C01FF8000F00018000000000C00078000F000180
- 00000000C00078000F00018000000000C00078000F00018000000000C0007800
- 0F00018000000000E000FC001F80038000000000E000FC001F80038000000000
- F001FE003FC0078000000000F803FF007FE00F8000000000FE0FFFC1FFF83F80
- 00000000FFFFFFFFFFFFFF8000000000FFFFFFFFFFFFFF8000000000FFFFFFFF
- FFFFFF8000000000FFFFFFFFFFFFFF8000000000FC03FFFC7FFE0FFC1FF00000
- F001FFF83FF803F007F00000C001FFF83FF001E003F00000C000FFF83E0000C0
- 01F00000C000FFFC3C0000C001F00000C0007C001C00000000F00000C0007800
- 0C00000000F00000C00078000C00000000F00000C00078000C00000000F00000
- E000F8000C00000000F00000F0FFFC000E0000C001F00000F07FFC000F0000C0
- 01F00000F07FFE000F0001E003F00000F07FFE003F0803F007700000F8FFFF00
- FF9E0FFC1FF00000FFFFFFFFFFFFFFFFFF700000FFFFFFFFFFFFFFFFFFB00000
- FFFFFFFFFFFFFFFFFEB00000FFFFFFFFFFFFFFFFFF700000FF83FFF07FF83F87
- 07000000FE00FFC01FE00F8000000000FC007F800FC0078000000000F8003F00
- 078003C00010000080003F00078003C00010000000001C00030001C000100000
- 00001E00030001C00010000000001E00030001C00010000000001E00020000C0
- 0010000000001E00020000C00010000000003E00060000C00010000000003C00
- 060000C000100000000078000E0000C0001000000000F0001E0000C000100000
- 0083E0007E0000E00030000000FFFFDFFE0000F000700000FFFFFFEFFF0009FC
- 01F00000FFFFFFFFFF8007FFFFF00000FFFFFFFFFFCC47FFFFF00000FF83FF80
- 7FF83FFF07F00000FE00FF001FE00FFC01F00000FC007E000FC007F800F00000
- F8003C00078003F00070000080003800078003F00070000000001000030001E0
- 0030000000000000030001E00030000000000000030001E00030000000000000
- 030001E000300000F0000000030001E000300000B8003000078003F000700000
- D8003800078003F000700000DC007F800FC007F800F00000D600FFC01FE00FFC
- 01F00000B783FFF07FF83FFF07F00000AFFFFFFFFFFFFFFFFFF00000AFFFFFFF
- FFFFFFFFFFF00000FBFFFFFFFFFFFFFFFFF00000FBFFFFFFFFFFFFFFFFF00000
- FE0FFFC1FFFE0FFC1FF00000F803FF007FF803F007F00000F001FE003FF001E0
- 03F00000E000FC001C6000C001F00000E000FC001C0000C001F00000C0007800
- 0C00000000F00000800038000C00000000F00000000018000C00000000F00000
- 000010000E00000000F00000000000000E00000000F00000A000A000020000C0
- 01F00000E000F000060000C001F00000F001F000060001E003F00000F803F800
- 070003F004F00000FE0FFC000F0E0FFC0CD00000FFFFFE001FFFFFFFF8700000
- FFFFFF003FFFFFFFD0200000FFFFFFC0FFFFFFFFF8700000FFFFFFFFFFFFFFFF
- ECD00000FF83FFF07FFC1FFF07F00000FE00FFC01FF007FC01F00000FC007F80
- 0F8003F800F00000F0003E00070001F000700000E0003C00070001F000700000
- E0001C00030000E00030000080001000038000E00030000080001000038000E0
- 0030000030000600038000E000300000F0001E00038000E000300000E0003C00
- 07C001F000700000C000380007C001F000700000C00078000FE003F800F00000
- 8000F0001FF007FC01F000008083F0107FFC1FFF07F00000C1FFF83FFFFFFFFF
- FFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFF
- FFFFFFFFFFF00000FE0FFFC1FFFE0FFC1FF00000F803FF007FF803F007F00000
- F001FE003FF001E003F00000E000FC001FE000C001F00000E000FC001FE000C0
- 01F00000C00078000F80000000F00000C00078000C00000000F00000C0007800
- 0C00000000F00000C00078000C00000000F00000C00078000C00000000F00000
- E000FC001C0000C001F00000E000FC001C0000C001F00000F001FE003C0001E0
- 03F00000F803FF007C0003F006100000FE0FFFC1FC000FFC1E100000FFFFFFFF
- FC01FFFFFF900000FFFFFFFFFC01FFFFFF900000FFFFFFFFFC01FFFFFF800000
- FFFFFFFFFC01FFFFFF8000000783FF00FFF83FFC1FF000000600FE007FE00FF0
- 07F0000004007C003FC007E003F0000000003C003F8003C001F0000000003C00
- 3F8003C001F0000000001C003F00018000F0000000001C003F00018000F00000
- 00001C003F00018000F00000000000000700018000F0000000000C0037000180
- 00F0000000002C00378003C001F0000000003E007F8003C001F0000004007800
- 1E0000E0020000000600F0000C000070077000000783F1E78C00007C1FB00000
- FFFFF3FFCC07C07FFFD00000FFFFF9FF9E0FE0FFFE000000FFFFFDFFBF1FF1FF
- FFF00000FFFFFFFFFFFFFFFFFFF00000FE0FFFC1FFF07FFE0FF00000F803FF00
- 7FC01FF803F00000F001FE003F800FF001F00000E000FC001F0007E000F00000
- E000FC001F0007E000F00000C00078000E0003C000700000C00078000E0003C0
- 00700000C00078000E0003C000700000C00078000E0003C000700000C0007800
- 0E0003C000700000E000FC001F0007E000F00000E000FC001F0007E000F00000
- E000FE003F800FF001F00000C0007F007FC01FF803F00000DE0F7FC1FFF07BFE
- 0F700000FFFFFFFFFFFFF1FFFEB00000FFFFFFFFFFFFE0FFFC900000FFFFFFFF
- FFFFE0FFFC900000FFFFFFFFFFFFF5FFFEB00000FE0FFFC1FFF83FFF07F00000
- F803FF007FE00FFC01F00000F001FE003FC007F800F00000E000FC001F8003F0
- 00700000E000FC001F8003F000700000C00078000F0001E000300000C0007800
- 0F0001E000300000C00078000F0001E000300000C00078000F0001E000300000
- C00078000F0001E000300000E000FC001F8003F000700000E000FC001F8003F0
- 00700000F001FE003FC007F800F00000F803FF007FE00FFC01F00000FE0FFFC1
- FFF83FFF07F00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000
- FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FE0FFFC1FFF83FFF
- 07F00000F803FF007FE00FFC01F00000F001FE003FC007F800F00000E000FC00
- 1F8003F000700000E000FC001F8003F000700000C00078000F0001E000300000
- C00078000F0001E000300000C00078000F0001E000300000C00078000F0001E0
- 00300000C00078000F0001E000300000E000FC001F8003F000700000E000FC00
- 1F8003F000700000F001FE003FC007F800F00000F803FF007FE00FFC01F00000
- FE0FFFC1FFF83FFF07F00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFF
- FFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FE0FFFC1
- FFF83FFF07F00000F803FF007FE00FFC01F00000F001FE003FC007F800F00000
- E000FC001F8003F000700000E000FC001F8003F000700000C00078000F0001E0
- 00300000C00078000F0001E000300000C00078000F0001E000300000C0007800
- 0F0001E000300000C00078000F0001E000300000E000FC001F8003F000700000
- E000FC001F8003F000700000F001FE003FC007F800F00000F803FF007FE00FFC
- 01F00000FE0FFFC1FFF83FFF07F00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFF
- FFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000
- 00000000000000000000000000000000000000000000}
- end
- object OpenPictureDialog1: TOpenPictureDialog
- Left = 176
- Top = 208
- end
- object OpenDialog1: TOpenDialog
- Left = 176
- Top = 240
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Mega Demo/Demo.pas b/windows/src/ext/embeddedwb/Demos/Mega Demo/Demo.pas
deleted file mode 100644
index 54f8acc467f3d59443d506b1e6e5f8ce95652008..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Mega Demo/Demo.pas
+++ /dev/null
@@ -1,2157 +0,0 @@
-//***************************************************************
-// EmbeddedWB Mega Demo *
-// *
-// Freeware Demo *
-// by *
-// Eran Bodankin (bsalsa) -(bsalsa@bsalsa.com) *
-// Thanks to smot for the demo contribution *
-// *
-//***************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit Demo;
-
-{$I EWB_jedi.inc}
-
-interface
-
-uses
- Buttons, Classes, Controls, ComCtrls, Dialogs, Forms, Graphics, Grids, Menus,
- ImgList, StdCtrls, ToolWin, ExtCtrls, OleCtrls, {$IFDEF DELPHI_7_UP}XPMan, {$ENDIF}
- sysUtils, Windows, FavMenu, ImportFavorites, ExportFavorites, Clipbrd,
- HistoryMenu, HistoryListView, FavoritesTree, FavoritesListView, EmbeddedWB,
- IEAddress, LinksBar, IEDownload, RichEditBrowser, ExtDlgs, SHDocVw_EWB,
- EwbCore, IEDownloadTools, WinSock;
-
-type
- TfrmMain = class(TForm)
- AddCurrentSiteToTheLinksList1: TMenuItem;
- AddTheSiteToTheList1: TMenuItem;
- AddToFavorites1: TMenuItem;
- ArabicWindows1: TMenuItem;
- BalticWindows1: TMenuItem;
- btnGo: TSpeedButton;
- CacheTools1: TMenuItem;
- CentralEuropeanISO1: TMenuItem;
- CharacterSet1: TMenuItem;
- CharSetAutomatic1: TMenuItem;
- checkOnlineStatus2: TMenuItem;
- ChineseSimplifiedGB1: TMenuItem;
- ChineseTraditionalBIG1: TMenuItem;
- ClearAddressBarTypedURLs1: TMenuItem;
- ClearCache1: TMenuItem;
- ClearTheLinkList1: TMenuItem;
- ClearTheLinksList1: TMenuItem;
- Cookies1: TMenuItem;
- CookiesCheck1: TMenuItem;
- Copy: TMenuItem;
- CreateAShortCutOnYourDeskTop1: TMenuItem;
- CreateNewMail1: TMenuItem;
- Cut1: TMenuItem;
- DeleteHistory1: TMenuItem;
- MMEdit: TMenuItem;
- edtSearch: TEdit;
- EmbeddedWB1: TEmbeddedWB;
- EmbeddedWBOptions1: TMenuItem;
- Exit1: TMenuItem;
- ExportFavorite1: TExportFavorite;
- ExportFavorites1: TMenuItem;
- FavoritesListView1: TFavoritesListView;
- FavoritesMenu1: TFavoritesMenu;
- FavoritesTools1: TMenuItem;
- MMFile: TMenuItem;
- FillFormWithPersonalDetails1: TMenuItem;
- FindDialog: TMenuItem;
- GetAScreanCapture1: TMenuItem;
- GetCachedPath: TMenuItem;
- GetCookiesPath1: TMenuItem;
- GetDefaultWebBrowserFromResistry1: TMenuItem;
- GetFavoritesPath1: TMenuItem;
- GetHistoryPath1: TMenuItem;
- GetHostAndIP1: TMenuItem;
- GetIEHomePage: TMenuItem;
- GetJpegPageCapture1: TMenuItem;
- GetSpecialFolderPath1: TMenuItem;
- GetThumbnail: TMenuItem;
- GoAboutBlank1: TMenuItem;
- GoBack1: TMenuItem;
- GoDowloadMasked1: TMenuItem;
- Godownloadafile1: TMenuItem;
- GoForward1: TMenuItem;
- GoHome1: TMenuItem;
- GoSearch1: TMenuItem;
- GoWithQueryDetails1: TMenuItem;
- GreekWindows1: TMenuItem;
- GroupBox1: TGroupBox;
- haiWindows1: TMenuItem;
- HistoryMenu: THistoryMenu;
- HistoryTools1: TMenuItem;
- HomePage1: TMenuItem;
- ilFavoritesTree: TImageList;
- ilToolBar: TImageList;
- Images1: TMenuItem;
- ImageViewer: TImage;
- ImgSSL: TImage;
- imgUn: TImage;
- imgZone: TImage;
- ImportExportWizard1: TMenuItem;
- ImportFavorite1: TImportFavorite;
- ImportFavorites1: TMenuItem;
- InternetOptions1: TMenuItem;
- Korean1: TMenuItem;
- Large1: TMenuItem;
- Largest1: TMenuItem;
- lblLevel: TLabel;
- lblSSL: TLabel;
- lblZone: TLabel;
- LinksBar1: TLinksBar;
- LinksList1: TMenuItem;
- LoadFromStream: TMenuItem;
- LoadFromStrings: TMenuItem;
- lvEventLog: TListBox;
- MailTools1: TMenuItem;
- MainMenu1: TMainMenu;
- MainToolBar: TToolBar;
- Medium1: TMenuItem;
- N1: TMenuItem;
- N10: TMenuItem;
- N11: TMenuItem;
- N12: TMenuItem;
- N13: TMenuItem;
- N14: TMenuItem;
- N15: TMenuItem;
- N16: TMenuItem;
- N17: TMenuItem;
- N2: TMenuItem;
- N3: TMenuItem;
- N4: TMenuItem;
- N5: TMenuItem;
- N6: TMenuItem;
- N7: TMenuItem;
- N8: TMenuItem;
- N9: TMenuItem;
- NavigateToLinkItem1: TMenuItem;
- NavigateToLinkListItem1: TMenuItem;
- MMNavigation: TMenuItem;
- OfflineMode1: TMenuItem;
- Open: TMenuItem;
- Open1: TMenuItem;
- OpenAddressBook1: TMenuItem;
- OpenCalender1: TMenuItem;
- OpenFoldersExplore1: TMenuItem;
- OpenGoogleMail1: TMenuItem;
- OpenHotmailMail1: TMenuItem;
- OpenNetMeeting: TMenuItem;
- OpenNewsClient1: TMenuItem;
- OpenOtherBrowsersFavorites1: TMenuItem;
- OpenOutlook1: TMenuItem;
- OpenOutlookExpress1: TMenuItem;
- OpenRegistryEditor1: TMenuItem;
- OpenYahooMail1: TMenuItem;
- PageCtrl: TPageControl;
- PageSetup1: TMenuItem;
- PageSourceHtmlasstrings1: TMenuItem;
- PageSourceText: TMenuItem;
- PageSourceTextasstrings1: TMenuItem;
- PaneAddress: TPanel;
- PanelAcc: TPanel;
- PanelMiddle: TPanel;
- PanelSearch: TPanel;
- PanelSecurity: TPanel;
- PanelTop: TPanel;
- PanelWEB: TPanel;
- Pastefromclipboard1: TMenuItem;
- pctrlWB: TPageControl;
- pnlFav: TPanel;
- PopupMenu1: TPopupMenu;
- Print: TMenuItem;
- PrintPreview1: TMenuItem;
- PrintWithOptions: TMenuItem;
- ProgressBar1: TProgressBar;
- Properties: TMenuItem;
- Refresh1: TMenuItem;
- RemoveTheCurrentSiteFromTheLinksList1: TMenuItem;
- RemoveTheSiteFromTheList1: TMenuItem;
- SaveAllImages: TMenuItem;
- SaveAs1: TMenuItem;
- Savepagetext: TMenuItem;
- SavePageToEmail2: TMenuItem;
- SavePageToStream: TMenuItem;
- SavePageToStrings1: TMenuItem;
- SaveThePageTofile1: TMenuItem;
- sbRebuildView: TSpeedButton;
- Scrolltothebottom1: TMenuItem;
- ScrollToTheTop1: TMenuItem;
- ScrolToPosition1: TMenuItem;
- SearchImMsn1: TMenuItem;
- SearchInGoogle1: TMenuItem;
- SearchInYahoo1: TMenuItem;
- SelectAll: TMenuItem;
- SendThePageInMail1: TMenuItem;
- SendTheURL: TMenuItem;
- SetIENewHomePage: TMenuItem;
- ShowHideTheLinksToolbar1: TMenuItem;
- ShowInternetExplorerVersion1: TMenuItem;
- ShowOrganizeFavorites1: TMenuItem;
- ShowTheList1: TMenuItem;
- ShowTheList2: TMenuItem;
- Small1: TMenuItem;
- Smallest1: TMenuItem;
- Spacer: TToolButton;
- spdBtnGoogleSearch: TSpeedButton;
- Splitter2: TSplitter;
- SplitterACC: TSplitter;
- Stop1: TMenuItem;
- TabBrowser: TTabSheet;
- TabEditor: TTabSheet;
- TabEvents: TTabSheet;
- TabFavoritesLV: TTabSheet;
- TabFavoritesTV: TTabSheet;
- TabHistoryLV: TTabSheet;
- TabImage: TTabSheet;
- tbBlock: TToolButton;
- ToolBtnAccesories: TToolButton;
- ToolbtnBack: TToolButton;
- ToolBtnForward: TToolButton;
- ToolBtnHome: TToolButton;
- ToolBtnRefresh: TToolButton;
- ToolBtnSearch: TToolButton;
- ToolBtnStop: TToolButton;
- ToolButton10: TToolButton;
- ToolButton11: TToolButton;
- MMTools: TMenuItem;
- UnicodeUTF1: TMenuItem;
- urkishWindows1: TMenuItem;
- MMView: TMenuItem;
- ViewHidethelinksbar1: TMenuItem;
- ViewHideTheLinksToolbar1: TMenuItem;
- ViewPageImagesAsAList1: TMenuItem;
- ViewSourceHtml: TMenuItem;
- WesternEuropeanISO1: TMenuItem;
- Zoom1: TMenuItem;
- Security1: TMenuItem;
- AddToRestrictedZoneList: TMenuItem;
- CheckIfInResrictedZoneList1: TMenuItem;
- N18: TMenuItem;
- AddToTrustedListZoneList1: TMenuItem;
- CheckIfInTrustedZoneList1: TMenuItem;
- N19: TMenuItem;
- CheckSiteSecurityLevel1: TMenuItem;
- CheckSiteSecurityZone1: TMenuItem;
- FavoritesTree1: TFavoritesTree;
- HistoryListView1: THistoryListView;
- TabLinks: TTabSheet;
- IEDownload1: TIEDownload;
- PanelLinksTop: TPanel;
- StringGrid1: TStringGrid;
- PanelLinksBottum: TPanel;
- Button1: TButton;
- RadioButton1: TRadioButton;
- RadioButton2: TRadioButton;
- CheckTheLinks: TMenuItem;
- N20: TMenuItem;
- IEDownload: TMenuItem;
- CheckURLsFromALinkList1: TMenuItem;
- TabFTP: TTabSheet;
- EmbeddedWB2: TEmbeddedWB;
- Panel1: TPanel;
- sbRefresh: TSpeedButton;
- edtUser: TEdit;
- edtPassword: TEdit;
- sbConnect: TSpeedButton;
- sbUp: TSpeedButton;
- Label1: TLabel;
- Label2: TLabel;
- SetDesignMode: TMenuItem;
- IEAddress1: TIEAddress;
- RichViewWBDemo1: TMenuItem;
- HighlighHTML1: TMenuItem;
- HighLightXML1: TMenuItem;
- HighLightURL1: TMenuItem;
- InsertFromImageList: TMenuItem;
- SetSelectionAsAHyperLink1: TMenuItem;
- SetWordAsAHyperLink1: TMenuItem;
- AddBullets1: TMenuItem;
- AddLineNumbers1: TMenuItem;
- AddRomanNumbers1: TMenuItem;
- SetFontColor: TMenuItem;
- New1: TMenuItem;
- Open2: TMenuItem;
- Save1: TMenuItem;
- SaveAs2: TMenuItem;
- AddBackroundColor1: TMenuItem;
- SelectFonts1: TMenuItem;
- SetSize1: TMenuItem;
- SetBold1: TMenuItem;
- SetItalic1: TMenuItem;
- SetUnderLine1: TMenuItem;
- AddDateAndTime1: TMenuItem;
- PreviewRichEditLinesInTheBrowser1: TMenuItem;
- LoadCodeFromBrowserStream1: TMenuItem;
- SetColor1: TMenuItem;
- Print1: TMenuItem;
- Find1: TMenuItem;
- Replace1: TMenuItem;
- CreateASnapshot1: TMenuItem;
- AddACheckBox1: TMenuItem;
- N27: TMenuItem;
- AddTEditBox1: TMenuItem;
- AddAButton1: TMenuItem;
- AddARadioButton1: TMenuItem;
- GoToLineNumber1: TMenuItem;
- WrapLongLines1: TMenuItem;
- MailSelectedText1: TMenuItem;
- Mail1: TMenuItem;
- ProgressBar2: TProgressBar;
- ProgressBar3: TProgressBar;
- ilsSmilies: TImageList;
- InsertFile: TMenuItem;
- OpenPictureDialog1: TOpenPictureDialog;
- OpenDialog1: TOpenDialog;
- hemes1: TMenuItem;
- ToolBar1: TToolBar;
- ToolButton1: TToolButton;
- File1: TMenuItem;
- Edit: TMenuItem;
- Tools: TMenuItem;
- N22: TMenuItem;
- N23: TMenuItem;
- N24: TMenuItem;
- N25: TMenuItem;
- ToolButton2: TToolButton;
- ToolButton3: TToolButton;
- ShowTheEditor2: TMenuItem;
- Fonts: TMenuItem;
- Add: TMenuItem;
- N26: TMenuItem;
- N21: TMenuItem;
- InsertBitmap: TMenuItem;
- N28: TMenuItem;
- ToolButton4: TToolButton;
- ToolButton5: TToolButton;
- ResetFontsFormat1: TMenuItem;
- ShowTheImageEditor1: TMenuItem;
- stBar: TStatusBar;
- miSave: TMenuItem;
- Label3: TLabel;
- RichEditWB1: TRichEditWB;
- procedure EmbeddedWB1Refresh(Sender: TCustomEmbeddedWB; CmdID: Integer;
- var Cancel: Boolean);
- procedure EmbeddedWB1ScriptError(Sender: TObject; ErrorLine, ErrorCharacter,
- ErrorCode, ErrorMessage, ErrorUrl: string;
- var ScriptErrorAction: TScriptErrorAction);
- procedure FavoritesMenu1AddFavorites(const EmbeddedWB: TEmbeddedWB; Title,
- URL: WideString; Success: Integer);
- procedure miSaveClick(Sender: TObject);
- procedure IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode: Cardinal; szStatusText: PWideChar; Downloaded, ElapsedTime,
- Speed, RemainingTime, Status: string);
- procedure ShowTheImageEditor1Click(Sender: TObject);
- procedure ResetFontsFormat1Click(Sender: TObject);
- procedure InsertBitmapClick(Sender: TObject);
- procedure ShowTheEditor2Click(Sender: TObject);
- procedure hemes1Click(Sender: TObject);
- procedure InsertFileClick(Sender: TObject);
- procedure RichEditWB1KeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
- procedure RichEditWB1MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Mail1Click(Sender: TObject);
- procedure MailSelectedText1Click(Sender: TObject);
- procedure WrapLongLines1Click(Sender: TObject);
- procedure GoToLineNumber1Click(Sender: TObject);
- procedure AddAButton1Click(Sender: TObject);
- procedure AddARadioButton1Click(Sender: TObject);
- procedure AddTEditBox1Click(Sender: TObject);
- procedure AddACheckBox1Click(Sender: TObject);
- procedure CreateASnapshot1Click(Sender: TObject);
- procedure Replace1Click(Sender: TObject);
- procedure Find1Click(Sender: TObject);
- procedure Print1Click(Sender: TObject);
- procedure SetColor1Click(Sender: TObject);
- procedure LoadCodeFromBrowserStream1Click(Sender: TObject);
- procedure PreviewRichEditLinesInTheBrowser1Click(Sender: TObject);
- procedure AddDateAndTime1Click(Sender: TObject);
- procedure SetUnderLine1Click(Sender: TObject);
- procedure SetItalic1Click(Sender: TObject);
- procedure SetSize2Click(Sender: TObject);
- procedure SetBold1Click(Sender: TObject);
- procedure SetSize1Click(Sender: TObject);
- procedure SelectFonts1Click(Sender: TObject);
- procedure AddBackroundColor1Click(Sender: TObject);
- procedure SetFontColorClick(Sender: TObject);
- procedure SaveAs2Click(Sender: TObject);
- procedure Save1Click(Sender: TObject);
- procedure Open2Click(Sender: TObject);
- procedure New1Click(Sender: TObject);
- procedure AddRomanNumbers1Click(Sender: TObject);
- procedure AddLineNumbers1Click(Sender: TObject);
- procedure AddBullets1Click(Sender: TObject);
- procedure SetWordAsAHyperLink1Click(Sender: TObject);
- procedure SetSelectionAsAHyperLink1Click(Sender: TObject);
- procedure InsertFromImageListClick(Sender: TObject);
- procedure HighLightXML1Click(Sender: TObject);
- procedure HighLightURL1Click(Sender: TObject);
- procedure HighlighHTML1Click(Sender: TObject);
- procedure SetDesignModeClick(Sender: TObject);
- procedure EmbeddedWB2CommandStateChange(ASender: TObject; Command: Integer;
- Enable: WordBool);
- procedure sbConnectClick(Sender: TObject);
- procedure sbUpClick(Sender: TObject);
- procedure sbRefreshClick(Sender: TObject);
- procedure EmbeddedWB1SetSecureLockIcon(ASender: TObject;
- SecureLockIcon: Integer);
- procedure CheckURLsFromALinkList1Click(Sender: TObject);
- procedure CheckTheLinksClick(Sender: TObject);
- procedure RadioButton2Click(Sender: TObject);
- procedure RadioButton1Click(Sender: TObject);
- function IEDownload1Response(Sender: TBSCB; dwResponseCode: Cardinal;
- szResponseHeaders, szRequestHeaders: PWideChar;
- out szAdditionalRequestHeaders: PWideChar): HRESULT;
- procedure Button1Click(Sender: TObject);
- procedure FavoritesTree1NodeAdded(Sender: TObject; const aNode: TTreeNode;
- aNodeType: TNodeType);
- procedure FavoritesTree1Expanded(Sender: TObject; Node: TTreeNode);
- procedure CheckPageSecurityEncryption1Click(Sender: TObject);
- procedure CheckSiteSecurityZone1Click(Sender: TObject);
- procedure CheckSiteSecurityLevel1Click(Sender: TObject);
- procedure CheckIfInTrustedZoneList1Click(Sender: TObject);
- procedure AddToTrustedListZoneList1Click(Sender: TObject);
- procedure CheckIfInResrictedZoneList1Click(Sender: TObject);
- procedure AddToRestrictedZoneListClick(Sender: TObject);
- procedure AddTheSiteToTheList1Click(Sender: TObject);
- procedure AddToFavorites1Click(Sender: TObject);
- procedure btnGoClick(Sender: TObject);
- procedure CharSetAutomatic1Click(Sender: TObject);
- procedure checkOnlineStatus2Click(Sender: TObject);
- procedure ClearAddressBarTypedURLs1Click(Sender: TObject);
- procedure ClearCache1Click(Sender: TObject);
- procedure ClearTheLinkList1Click(Sender: TObject);
- procedure CookiesCheck1Click(Sender: TObject);
- procedure CopyClick(Sender: TObject);
- procedure CreateAShortCutOnYourDeskTop1Click(Sender: TObject);
- procedure CreateNewMail1Click(Sender: TObject);
- procedure Cut1Click(Sender: TObject);
- procedure DeleteHistory1Click(Sender: TObject);
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
- var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);
- procedure EmbeddedWB1CommandStateChange(ASender: TObject; Command: Integer;
- Enable: WordBool);
- procedure EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant);
- procedure EmbeddedWB1DownloadBegin(Sender: TObject);
- procedure EmbeddedWB1DownloadComplete(Sender: TObject);
- procedure EmbeddedWB1FullScreen(ASender: TObject; FullScreen: WordBool);
- procedure EmbeddedWB1NavigateComplete2(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant);
- procedure EmbeddedWB1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
- var Cancel: WordBool);
- procedure EmbeddedWB1ProgressChange(ASender: TObject; Progress, ProgressMax: Integer);
- procedure EmbeddedWB1PropertyChange(ASender: TObject; const szProperty: WideString);
- procedure EmbeddedWB1StatusTextChange(ASender: TObject; const Text: WideString);
- procedure EmbeddedWB1TitleChange(ASender: TObject; const Text: WideString);
- procedure EmbeddedWB1Visible(ASender: TObject; Visible: WordBool);
- procedure Exit1Click(Sender: TObject);
- procedure ExportFavorites1Click(Sender: TObject);
- procedure FillFormWithPersonalDetails1Click(Sender: TObject);
- procedure FindDialogClick(Sender: TObject);
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure GetAScreanCapture1Click(Sender: TObject);
- procedure GetCachedPathClick(Sender: TObject);
- procedure GetCookiesPath1Click(Sender: TObject);
- procedure GetDefaultWebBrowserFromResistry1Click(Sender: TObject);
- procedure GetFavoritesPath1Click(Sender: TObject);
- procedure GetHistoryPath1Click(Sender: TObject);
- procedure GetHostAndIP1Click(Sender: TObject);
- procedure GetIEHomePageClick(Sender: TObject);
- procedure GetJpegPageCapture1Click(Sender: TObject);
- procedure GetSpecialFolderPath1Click(Sender: TObject);
- procedure GetThumbnailClick(Sender: TObject);
- procedure GoAboutBlank1Click(Sender: TObject);
- procedure GoDowloadMasked1Click(Sender: TObject);
- procedure Godownloadafile1Click(Sender: TObject);
- procedure GoWithQueryDetails1Click(Sender: TObject);
- procedure IEAddress1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
- procedure ImportExportWizard1Click(Sender: TObject);
- procedure ImportFavorites1Click(Sender: TObject);
- procedure InternetOptions1Click(Sender: TObject);
- procedure LoadFromStreamClick(Sender: TObject);
- procedure LoadFromStringsClick(Sender: TObject);
- procedure NavigateToLinkItem1Click(Sender: TObject);
- procedure OfflineMode1Click(Sender: TObject);
- procedure OpenAddressBook1Click(Sender: TObject);
- procedure OpenCalender1Click(Sender: TObject);
- procedure OpenClick(Sender: TObject);
- procedure OpenFoldersExplore1Click(Sender: TObject);
- procedure OpenGoogleMail1Click(Sender: TObject);
- procedure OpenHotmailMail1Click(Sender: TObject);
- procedure OpenMailClient1Click(Sender: TObject);
- procedure OpenNetMeetingClick(Sender: TObject);
- procedure OpenNewsClient1Click(Sender: TObject);
- procedure OpenOutlook1Click(Sender: TObject);
- procedure OpenOutlookExpress1Click(Sender: TObject);
- procedure OpenRegistryEditor1Click(Sender: TObject);
- procedure OpenYahooMail1Click(Sender: TObject);
- procedure PageCtrlChange(Sender: TObject);
- procedure PageSetup1Click(Sender: TObject);
- procedure PageSourceHtmlasstrings1Click(Sender: TObject);
- procedure PageSourceTextasstrings1Click(Sender: TObject);
- procedure PageSourceTextClick(Sender: TObject);
- procedure Pastefromclipboard1Click(Sender: TObject);
- procedure PrintClick(Sender: TObject);
- procedure PrintPreview1Click(Sender: TObject);
- procedure PrintWithOptionsClick(Sender: TObject);
- procedure PropertiesClick(Sender: TObject);
- procedure RemoveTheSiteFromTheList1Click(Sender: TObject);
- procedure SaveAllImagesClick(Sender: TObject);
- procedure SaveAs1Click(Sender: TObject);
- procedure SavepagetextClick(Sender: TObject);
- procedure SavePageToStreamClick(Sender: TObject);
- procedure SavePageToStrings1Click(Sender: TObject);
- procedure SaveThePageTofile1Click(Sender: TObject);
- procedure sbRebuildViewClick(Sender: TObject);
- procedure Scrolltothebottom1Click(Sender: TObject);
- procedure ScrollToTheTop1Click(Sender: TObject);
- procedure ScrolToPosition1Click(Sender: TObject);
- procedure SearchImMsn1Click(Sender: TObject);
- procedure SearchInGoogle1Click(Sender: TObject);
- procedure SearchInYahoo1Click(Sender: TObject);
- procedure SelectAllClick(Sender: TObject);
- procedure SendThePageInMail1Click(Sender: TObject);
- procedure SendTheURLClick(Sender: TObject);
- procedure SetIENewHomePageClick(Sender: TObject);
- procedure ShowInternetExplorerVersion1Click(Sender: TObject);
- procedure ShowOrganizeFavorites1Click(Sender: TObject);
- procedure ShowTheList1Click(Sender: TObject);
- procedure Smallest1Click(Sender: TObject);
- procedure spdBtnGoogleSearchClick(Sender: TObject);
- procedure ToolBtnAccesoriesClick(Sender: TObject);
- procedure ToolbtnBackClick(Sender: TObject);
- procedure ToolBtnForwardClick(Sender: TObject);
- procedure ToolBtnHomeClick(Sender: TObject);
- procedure ToolBtnRefreshClick(Sender: TObject);
- procedure ToolBtnSearchClick(Sender: TObject);
- procedure ToolBtnStopClick(Sender: TObject);
- procedure ViewHidethelinksbar1Click(Sender: TObject);
- procedure ViewHideTheLinksToolbar1Click(Sender: TObject);
- procedure ViewPageLinksAsAList1Click(Sender: TObject);
- procedure ViewSourceHtmlClick(Sender: TObject);
- procedure Zoom1Click(Sender: TObject);
- procedure edtSearchDblClick(Sender: TObject);
- procedure EmbeddedWB1ShowDialog(Sender: TObject; h: Cardinal;
- StyleEx: Integer; OldCaption: string; var NewCaption: WideString;
- var Cancel: Boolean);
- private
- Links: TStringlist;
- EncryptionSt: string;
- InitialURL: WideString;
- procedure AddEventLog(s: string);
- procedure UpdateSecurityZone;
- procedure UpdateSSLStatus;
- procedure UpdateStopButton;
- procedure UpdateControls;
- procedure UpdateEditor;
- procedure UpdateImage;
- procedure UpdateView;
- procedure ClearResultsGrid;
- procedure ClearAllGrid;
- procedure UpdateLinksChecker;
- procedure UpdateProgressBars;
- end;
-
-var
- frmMain: TfrmMain;
-
-implementation
-
-{$R *.dfm}
-
-uses
- EWBTools;
-
-//////////////////{ Private Section } //////////////////
-
-procedure TfrmMain.UpdateProgressBars;
-begin
- ProgressBar2.Max := RichEditWB1.GetLineCount;
- ProgressBar2.Position := RichEditWB1.CursorPositionY;
- ProgressBar3.Max := RichEditWB1.GetLineLength(RichEditWB1.CursorPositionY);
- ProgressBar3.Position := RichEditWB1.CursorPositionX;
-end;
-
-procedure TfrmMain.UpdateSecurityZone;
-var
- Name, Description: string;
- Icon: TIcon;
-begin
- Icon := TIcon.Create;
- try
- EmbeddedWB1.GetURLSecurityZone(Name, Description, Icon);
- imgZone.Picture.Icon := Icon;
- Forms.Application.Icon := Icon;
- finally
- Icon.Free;
- end;
- stBar.Panels[1].Text := Name;
- stBar.Hint := Description;
- lblZone.Caption := Name;
- lblZone.Hint := Description;
- imgZone.Hint := 'The Web Site Security Zone Is ' + Name;
-end;
-
-procedure TfrmMain.UpdateSSLStatus;
-var
- SSLName, SSLDescription: string;
-begin
- if EmbeddedWB1.GetSSLStatus(SSLName, SSLDescription) then
- begin
- ImgUn.Visible := False;
- imgSSl.Visible := True;
- stBar.Panels[2].Text := SSLName;
- stBar.Hint := SSLDescription;
- lblSSL.Caption := SSLName;
- lblSSL.Hint := SSLDescription;
- imgSSL.Hint := 'The Page SSL Security Status Is ' + SSLName;
- end
- else
- begin
- ImgUn.Visible := True;
- stBar.Panels[2].Text := '';
- stBar.Hint := '';
- lblSSL.Caption := '';
- lblSSL.Hint := '';
- imgSSl.Visible := False;
- imgSSL.Hint := '';
- end;
-end;
-
-procedure TfrmMain.AddEventLog(s: string);
-begin
- lvEventLog.ItemIndex := lvEventLog.Items.Add(s);
-end;
-
-procedure TfrmMain.UpdateView;
-begin
- case pagectrl.ActivePageIndex of
- 0: FavoritesListView1.Loaded;
- 1: FavoritesTree1.Refresh;
- 2: HistoryListView1.Loaded;
- 4: EmbeddedWB2.Navigate('c:\');
- end
-end;
-
-procedure TfrmMain.UpdateEditor;
-begin
- pctrlWB.Pages[1].TabVisible := True;
- pctrlWB.ActivePage := TabEditor;
-end;
-
-procedure TfrmMain.UpdateLinksChecker;
-begin
- pctrlWB.Pages[3].TabVisible := True;
- pctrlWB.ActivePage := TabLinks;
-end;
-
-procedure TfrmMain.UpdateImage;
-begin
- pctrlWB.Pages[2].TabVisible := True;
- pctrlWB.ActivePage := TabImage;
-end;
-
-procedure TfrmMain.UpdateStopButton;
-begin
- if EmbeddedWB1.Busy then
- begin
- ToolBtnStop.Enabled := True;
- Stop1.Enabled := True;
- end
- else
- begin
- ToolBtnStop.Enabled := False;
- Stop1.Enabled := False;
- end;
-end;
-
-procedure TfrmMain.UpdateControls;
-begin
- if Assigned(EmbeddedWB1) then
- if EmbeddedWB1.Busy then
- EmbeddedWB1.Stop;
-end;
-
-procedure TfrmMain.ClearResultsGrid;
-var
- X, y: Integer;
-begin
- for x := 1 to Links.Count do
- for y := 1 to 2 do
- Stringgrid1.Cells[y, x] := '';
-end;
-
-procedure TfrmMain.ClearAllGrid;
-var
- X, y: Integer;
-begin
- for x := 1 to Links.Count do
- for y := 0 to 2 do
- Stringgrid1.Cells[y, x] := '';
-end;
-
-////////////{ End of private section } ///////////
-
-//////////////////{ Form procedures section} //////////////////
-
-procedure TfrmMain.FormDestroy(Sender: TObject);
-begin
- Links.Free;
- HistoryMenu.Free;
-end;
-
-procedure TfrmMain.FormCreate(Sender: TObject);
-var
- UrlList: TStringList;
-begin
-// RichEditWB1.RTFText := '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}}{\colortbl ;\red0\green0\blue0;}\viewkind4\uc1\pard\cf1\lang2055\f0\fs16\par}';
-
-{$IFDEF DELPHI_7_UP}
- TxpManifest.Create(FrmMain);
-{$ENDIF}
- HistoryMenu.CreateMenu;
- FavoritesMenu1.CreateMenu;
- UrlList := TStringList.Create;
- try
- Links := TStringlist.create;
- try
- if FileExists('links.txt') then
- Links.LoadFromFile('links.txt');
- LinksBar1.GetTheLinksURLs(UrlList);
- Links.Add('');
- Links.AddStrings(UrlList);
- finally
- end;
- finally
- UrlList.Free;
- end;
-end;
-
-procedure TfrmMain.FormShow(Sender: TObject);
-var
- LastVisitedPage: string;
- i: Integer;
-begin
-{$IFDEF DELPHI_9_UP}
- EmbeddedWB1.OnSetSecureLockIcon := EmbeddedWB1SetSecureLockIcon;
-{$ENDIF}
- EmbeddedWB2.Go('c:\');
- Stringgrid1.Cells[0, 0] := 'Url';
- Stringgrid1.Cells[1, 0] := 'Status';
- Stringgrid1.Cells[2, 0] := 'Result';
- for i := 0 to links.count - 1 do
- begin
- Stringgrid1.RowCount := i + 2;
- Stringgrid1.Cells[0, i + 1] := links[i];
- end;
- pctrlWB.ActivePage := TabBrowser;
- EmbeddedWB1.RestoreApplicationFormSize;
- if EmbeddedWB1.GetLastVisitedPage(LastVisitedPage) and
- (Pos('http', LastVisitedPage) > 0) then
- EmbeddedWB1.Navigate(LastVisitedPage)
- else
- EmbeddedWB1.GoHome;
-end;
-
-procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
- EmbeddedWB1.SaveLastVisitedPage;
- EmbeddedWB1.SaveApplicationFormSize;
- UpdateControls;
- if FileExists(ExtractFilePath(ParamStr(0)) + 'Site.html') then
- DeleteFile('Site.html');
- CanClose := Assigned(EmbeddedWB1) and not EmbeddedWB1.Busy
-// if canclose then asm int 3; end;
-end;
-//////////////////{End of Form procedures section } //////////////////
-
-procedure TfrmMain.sbRebuildViewClick(Sender: TObject);
-begin
- UpdateView();
-end;
-
-procedure TfrmMain.OpenClick(Sender: TObject);
-begin
- EmbeddedWB1.OpenDialog;
-end;
-
-procedure TfrmMain.PrintClick(Sender: TObject);
-begin
- EmbeddedWB1.Print;
-end;
-
-procedure TfrmMain.PrintPreview1Click(Sender: TObject);
-begin
- EmbeddedWB1.PrintPreView;
-end;
-
-procedure TfrmMain.PageSetup1Click(Sender: TObject);
-begin
- EmbeddedWB1.PrintSetup;
-end;
-
-procedure TfrmMain.PropertiesClick(Sender: TObject);
-begin
- EmbeddedWB1.ShowPageProperties;
-end;
-
-procedure TfrmMain.OfflineMode1Click(Sender: TObject);
-begin
- if OfflineMode1.Checked then
- EmbeddedWB1.WorkOffline
- else
- EmbeddedWB1.WorkOnline;
-end;
-
-procedure TfrmMain.Exit1Click(Sender: TObject);
-begin
- Close;
-end;
-
-procedure TfrmMain.SaveAs1Click(Sender: TObject);
-begin
- EmbeddedWB1.SaveDialog;
-end;
-
-procedure TfrmMain.SavepagetextClick(Sender: TObject);
-begin
- EmbeddedWB1.SavePageTextDialog;
-end;
-
-procedure TfrmMain.ViewSourceHtmlClick(Sender: TObject);
-begin
- EmbeddedWB1.ViewPageSourceHtml;
-end;
-
-procedure TfrmMain.PageSourceTextClick(Sender: TObject);
-begin
- EmbeddedWB1.ViewPageSourceText;
-end;
-
-procedure TfrmMain.InternetOptions1Click(Sender: TObject);
-begin
- EmbeddedWB1.ShowInternetOptions;
-end;
-
-procedure TfrmMain.CopyClick(Sender: TObject);
-begin
- EmbeddedWB1.Copy;
-end;
-
-procedure TfrmMain.SelectAllClick(Sender: TObject);
-begin
- EmbeddedWB1.SelectAll;
-end;
-
-procedure TfrmMain.FindDialogClick(Sender: TObject);
-begin
- EmbeddedWB1.ShowFindDialog;
-end;
-
-procedure TfrmMain.SaveAllImagesClick(Sender: TObject);
-begin
- EmbeddedWB1.SaveImagesDialog;
-end;
-
-procedure TfrmMain.GetIEHomePageClick(Sender: TObject);
-begin
- ShowMessage(EmbeddedWB1.GetIEHomePage);
-end;
-
-procedure TfrmMain.SetIENewHomePageClick(Sender: TObject);
-begin
- EmbeddedWB1.SetNewHomePage('http://groups.yahoo.com/group/delphi-webbrowser/');
-end;
-
-procedure TfrmMain.SendTheURLClick(Sender: TObject);
-begin
- EmbeddedWB1.SendURLInMail;
-end;
-
-procedure TfrmMain.EmbeddedWB1DownloadComplete(Sender: TObject);
-begin
- AddEventLog('OnDocumentComplete ' + EmbeddedWB1.LocationName);
- ProgressBar1.Visible := False;
- EmbeddedWB1.SetFocusToDoc;
-end;
-
-procedure TfrmMain.EmbeddedWB1TitleChange(ASender: TObject;
- const Text: WideString);
-begin
- frmMain.Caption := ('Web Site Name: ' + EmbeddedWB1.LocationName);
- stBar.Panels[0].Text := Text;
-end;
-
-procedure TfrmMain.EmbeddedWB1StatusTextChange(ASender: TObject;
- const Text: WideString);
-begin
- stBar.Panels[0].Text := Text;
-end;
-
-procedure TfrmMain.ToolBtnRefreshClick(Sender: TObject);
-begin
- UpdateControls;
- EmbeddedWB1.Refresh;
-end;
-
-procedure TfrmMain.ToolBtnHomeClick(Sender: TObject);
-begin
- UpdateControls;
- EmbeddedWB1.GoHome;
-end;
-
-procedure TfrmMain.ToolBtnSearchClick(Sender: TObject);
-begin
- EmbeddedWB1.ShowFindDialog;
-end;
-
-procedure TfrmMain.ToolBtnAccesoriesClick(Sender: TObject);
-begin
- PanelACC.Visible := ToolBtnAccesories.Down;
-end;
-
-procedure TfrmMain.ToolBtnStopClick(Sender: TObject);
-begin
- UpdateControls;
-end;
-
-procedure TfrmMain.ToolBtnForwardClick(Sender: TObject);
-begin
- UpdateControls;
- EmbeddedWB1.GoForward;
-end;
-
-procedure TfrmMain.ToolbtnBackClick(Sender: TObject);
-begin
- UpdateControls;
- EmbeddedWB1.GoBack;
-end;
-
-procedure TfrmMain.btnGoClick(Sender: TObject);
-begin
- UpdateControls;
- EmbeddedWB1.Go(Trim(IEAddress1.Text));
-end;
-
-procedure TfrmMain.EmbeddedWB1CommandStateChange(ASender: TObject;
- Command: Integer; Enable: WordBool);
-const
- CSC_UPDATECOMMANDS = -1;
-begin
- case Command of
- CSC_NAVIGATEBACK:
- begin
- ToolbtnBack.Enabled := Enable;
- GoBack1.Enabled := Enable;
- end;
- CSC_NAVIGATEFORWARD:
- begin
- ToolbtnForward.Enabled := Enable;
- GoForward1.Enabled := Enable;
- end;
- CSC_UPDATECOMMANDS:
- begin
- ToolbtnStop.Enabled := EmbeddedWB1.Busy;
- Stop1.Enabled := EmbeddedWB1.Busy;
- end;
- end;
-end;
-
-procedure TfrmMain.EmbeddedWB1DownloadBegin(Sender: TObject);
-begin
- AddEventLog('OnDownloadBegin');
- UpdateStopButton;
-end;
-
-procedure TfrmMain.EmbeddedWB1PropertyChange(ASender: TObject;
- const szProperty: WideString);
-begin
- UpdateStopButton;
-end;
-
-procedure TfrmMain.EmbeddedWB1Refresh(Sender: TCustomEmbeddedWB; CmdID: Integer;
- var Cancel: Boolean);
-begin
- AddEventLog('OnRefresh. CmdID: ' + IntToStr(CmdID));
-end;
-
-procedure TfrmMain.EmbeddedWB1ProgressChange(ASender: TObject; Progress,
- ProgressMax: Integer);
-begin
- UpdateStopButton;
- if (Progress >= 1) and (ProgressMax > 1) then
- begin
- ProgressBar1.Position := Round((Progress * 100) div ProgressMax);
- ProgressBar1.Visible := True;
- // Stbar.Panels[3].Text := 'Download Progress: '+ Format('%d %', [Progress Div 100]);
- end else
- begin
- ProgressBar1.Position := 1;
- // stBar.Panels[3].Text:='';
- ProgressBar1.Visible := False;
- end;
-end;
-
-procedure TfrmMain.Smallest1Click(Sender: TObject);
-var
- k: Integer;
-begin
- if not EmbeddedWB1.Busy then
- begin
- for k := 0 to Zoom1.Count - 1 do
- Zoom1.Items[k].Checked := False;
-
- TMenuItem(Sender).Checked := True;
- EmbeddedWb1.Zoom := ((Sender as TMenuitem).Tag);
- end;
-end;
-
-procedure TfrmMain.Zoom1Click(Sender: TObject);
-var
- ZoomIndex: integer;
-begin
- ZoomIndex := EmbeddedWB1.Zoom;
- case ZoomIndex of
- 4: Largest1.Checked := True;
- 3: Large1.Checked := True;
- 2: Medium1.Checked := True;
- 1: Small1.Checked := True;
- 0: Smallest1.Checked := True;
- end;
-end;
-
-procedure TfrmMain.Cut1Click(Sender: TObject);
-begin
- EmbeddedWB1.Cut;
-end;
-
-procedure TfrmMain.Pastefromclipboard1Click(Sender: TObject);
-begin
- EmbeddedWB1.Paste;
-end;
-
-procedure TfrmMain.ScrollToTheTop1Click(Sender: TObject);
-begin
- EmbeddedWB1.ScrollToTop;
-end;
-
-procedure TfrmMain.Scrolltothebottom1Click(Sender: TObject);
-begin
- EmbeddedWB1.ScrollToBottom;
-end;
-
-procedure TfrmMain.ScrolToPosition1Click(Sender: TObject);
-begin
- EmbeddedWB1.ScrollToPosition(200, 200);
-end;
-
-procedure TfrmMain.GetCachedPathClick(Sender: TObject);
-begin
- ShowMessage(EmbeddedWB1.GetCachedFileFromURL(IEAddress1.Text));
-end;
-
-procedure TfrmMain.CharSetAutomatic1Click(Sender: TObject);
-begin
- if EmbeddedWB1.SetCharartersSet(TMenuItem(Sender).Hint) then
- TMenuItem(Sender).Checked := True;
-end;
-
-procedure TfrmMain.CookiesCheck1Click(Sender: TObject);
-var
- st: string;
-begin
- st := EmbeddedWB1.GetCookie;
- SetLength(st, 180);
- if st <> '' then
- ShowMessage('The web site has just added a cookie:'
- + #10 + #13 + st)
- else
- ShowMessage('No cookies were found.');
-end;
-
-procedure TfrmMain.spdBtnGoogleSearchClick(Sender: TObject);
-begin
- EmbeddedWB1.GoSearchInGoogle(edtSearch.Text);
-end;
-
-procedure TfrmMain.edtSearchDblClick(Sender: TObject);
-begin
- edtSearch.SelectAll;
-end;
-
-procedure TfrmMain.GetCookiesPath1Click(Sender: TObject);
-var
- st: string;
-begin
- st := EmbeddedWB1.GetCookiesPath;
- ShowMessage(st);
-end;
-
-procedure TfrmMain.GetHistoryPath1Click(Sender: TObject);
-var
- st: string;
-begin
- st := EmbeddedWB1.GetHistoryPath;
- ShowMessage(st);
-end;
-
-procedure TfrmMain.GetFavoritesPath1Click(Sender: TObject);
-var
- st: string;
-begin
- st := EmbeddedWB1.GetHistoryPath;
- ShowMessage(st);
-end;
-
-procedure TfrmMain.ShowOrganizeFavorites1Click(Sender: TObject);
-begin
- EmbeddedWB1.ShowOrganizeFavorites;
-end;
-
-procedure TfrmMain.IEAddress1KeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- if (Key = 13) then
- begin
- UpdateControls;
- EmbeddedWB1.Go(trim(IEAddress1.Text));
- end;
-end;
-
-procedure TfrmMain.EmbeddedWB1NewWindow2(ASender: TObject;
- var ppDisp: IDispatch; var Cancel: WordBool);
-begin
- AddEventLog('OnNewWindow');
- if tbBlock.Down then
- Cancel := True
- else
- EmbeddedWB1.Navigate(InitialURL);
-end;
-
-procedure TfrmMain.OpenAddressBook1Click(Sender: TObject);
-begin
- EWBTools.OpenAddressBook;
-end;
-
-procedure TfrmMain.OpenMailClient1Click(Sender: TObject);
-begin
- EWBTools.OpenOutlookMail;
-end;
-
-procedure TfrmMain.OpenNewsClient1Click(Sender: TObject);
-begin
- EWBTools.OpenNewsClient;
-end;
-
-procedure TfrmMain.OpenCalender1Click(Sender: TObject);
-begin
- EWBTools.OpenCalendar;
-end;
-
-procedure TfrmMain.OpenNetMeetingClick(Sender: TObject);
-begin
- EWBTools.OpenNetMeeting;
-end;
-
-procedure TfrmMain.OpenYahooMail1Click(Sender: TObject);
-begin
- EWBTools.OpenYahooMail(EmbeddedWB1);
-end;
-
-procedure TfrmMain.OpenOutlookExpress1Click(Sender: TObject);
-begin
- EWBTools.OpenOutlookExpressMail;
-end;
-
-procedure TfrmMain.OpenOutlook1Click(Sender: TObject);
-begin
- EWBTools.OpenOutlookMail;
-end;
-
-procedure TfrmMain.OpenGoogleMail1Click(Sender: TObject);
-begin
- EWBTools.OpenGoogleMail(EmbeddedWB1);
-end;
-
-procedure TfrmMain.OpenHotmailMail1Click(Sender: TObject);
-begin
- EWBTools.OpenHotmailMail(EmbeddedWB1);
-end;
-
-procedure TfrmMain.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- lvEventLog.Clear;
- AddEventLog('OnBeforeNavigate2 ' + URL);
- Cancel := tbBlock.Marked;
-end;
-
-procedure TfrmMain.EmbeddedWB1NavigateComplete2(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-begin
- AddEventLog('OnNavigateComplete2 ' + URL);
- IEAddress1.Text := EmbeddedWB1.LocationURL;
- UpdateSecurityZone;
- UpdateSSLStatus;
-end;
-
-procedure TfrmMain.EmbeddedWB1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-begin
- AddEventLog('OnDocumentComplete: ' + URL);
-end;
-
-procedure TfrmMain.EmbeddedWB1FullScreen(ASender: TObject;
- FullScreen: WordBool);
-begin
- if FullScreen then
- AddEventLog('OnFullScreen: ' + 'FullScreen');
-end;
-
-procedure TfrmMain.EmbeddedWB1Visible(ASender: TObject; Visible: WordBool);
-begin
- if Visible then
- AddEventLog('OnVisible: ' + 'Visible');
-end;
-
-procedure TfrmMain.GoAboutBlank1Click(Sender: TObject);
-begin
- EmbeddedWB1.GoAboutBlank;
-end;
-
-procedure TfrmMain.Godownloadafile1Click(Sender: TObject);
-var
- URL: string;
-begin
- UpdateControls;
- InputQuery('Download a file', 'Please Enter a valid path + file name', URL);
- EmbeddedWB1.GoDownloadFile(URL);
-end;
-
-procedure TfrmMain.GoDowloadMasked1Click(Sender: TObject);
-const
- CSIDL_DESKTOPDIRECTORY = $0010;
-begin
- UpdateControls;
- EmbeddedWB1.GoDownloadMaskedFile('http://www.google.com/intl/de/images/home_title.gif',
- (EmbeddedWB1.GetSpecialFolderPath(Handle, CSIDL_DESKTOPDIRECTORY)) + '\google-image.gif', True);
-end;
-
-procedure TfrmMain.checkOnlineStatus2Click(Sender: TObject);
-begin
- if not EmbeddedWB1.CheckOnlineStatus then
- MessageDlg('It looks like if you are not connected to the internet!', mtWarning, mbOKCancel, 0)
- else
- MessageDlg('Connected to the internet!', mtInformation, [mbOK], 0)
-end;
-
-procedure TfrmMain.SaveThePageTofile1Click(Sender: TObject);
-begin
- EmbeddedWB1.SaveToFile('Site.html');
- EmbeddedWB1.ExploreFolder(ExtractFilePath(Application.ExeName));
-end;
-
-procedure TfrmMain.SendThePageInMail1Click(Sender: TObject);
-begin
- EmbeddedWB1.SendPageInMailAsAttachment(FrmMain, 'Site.html', 'Check this site', 'With regards');
-end;
-
-procedure TfrmMain.CreateNewMail1Click(Sender: TObject);
-begin
- EmbeddedWB1.CreateNewMail;
-end;
-
-procedure TfrmMain.GetSpecialFolderPath1Click(Sender: TObject);
-const
- CSIDL_DESKTOPDIRECTORY = $0010;
- {MoreUses: (shlobj.pas)}
- {CSIDL_DESKTOP = $0000; CSIDL_DRIVES = $0011;
- CSIDL_PROGRAMS = $0002; CSIDL_NETWORK = $0012;
- CSIDL_CONTROLS = $0003; CSIDL_NETHOOD = $0013;
- CSIDL_PRINTERS = $0004; CSIDL_FONTS = $0014;
- CSIDL_PERSONAL = $0005; CSIDL_TEMPLATES = $0015;
- CSIDL_FAVORITES = $0006; CSIDL_TEMPLATES = $0015;
- CSIDL_STARTUP = $0007; CSIDL_COMMON_STARTMENU = $0016;
- CSIDL_RECENT = $0008; CSIDL_COMMON_PROGRAMS = $0017;
- CSIDL_SENDTO = $0009; CSIDL_COMMON_STARTUP = $0018;
- CSIDL_BITBUCKET = $000a; CSIDL_COMMON_DESKTOPDIRECTORY = $0019;
- CSIDL_STARTMENU = $000b; CSIDL_APPDATA = $001A;
- CSIDL_DESKTOPDIRECTORY = $0010; CSIDL_PRINTHOOD = $001B;}
-begin
- ShowMessage('Your Desktop Path is: ' + EmbeddedWB1.GetSpecialFolderPath(Handle, CSIDL_DESKTOPDIRECTORY));
-end;
-
-procedure TfrmMain.CreateAShortCutOnYourDeskTop1Click(Sender: TObject);
-begin
- EmbeddedWB1.CreateDesktopShortcut;
-end;
-
-procedure TfrmMain.ExportFavorites1Click(Sender: TObject);
-begin
- ExportFavorite1.ExportFavorites;
- if ExportFavorite1.SuccessFlag then
- EmbeddedWB1.Navigate(ExportFavorite1.NavigatePath);
-end;
-
-procedure TfrmMain.ImportFavorites1Click(Sender: TObject);
-begin
- ImportFavorite1.ImportFavorites;
- UpdateView();
- if ImportFavorite1.SuccessFlag then
- EmbeddedWB1.ShowOrganizeFavorites;
-end;
-
-procedure TfrmMain.AddToFavorites1Click(Sender: TObject);
-begin
- EmbeddedWB1.AddToFavorites(EmbeddedWB1.LocationURL, EmbeddedWB1.LocationName);
- UpdateView();
-end;
-
-procedure TfrmMain.FavoritesMenu1AddFavorites(const EmbeddedWB: TEmbeddedWB;
- Title, URL: WideString; Success: Integer);
-begin
- ShowMessage(EmbeddedWB.GetNamePath + '' + Title + '' + URL);
-end;
-
-procedure TfrmMain.FavoritesTree1Expanded(Sender: TObject; Node: TTreeNode);
-begin
- if (pos('Links', Node.Text) > 0) or (pos('Imported', Node.Text) > 0)
- then
- with node do
- begin
- HasChildren := True;
- if not Expanded then
- ImageIndex := 6
- else
- ImageIndex := 7;
- end
-end;
-
-procedure TfrmMain.GoWithQueryDetails1Click(Sender: TObject);
-var
- Url, Query: string;
-begin
- InputQuery('Browser Demo', 'Please enter the url', Url);
- InputQuery('Browser Demo', 'Please enter the Query', Query);
- EmbeddedWB1.GoWithQueryDetails(Url, Query);
-end;
-
-procedure TfrmMain.LoadFromStringsClick(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.Lines.Add('This HTML is a test of: Browser - Load From Strings.
');
- pctrlWB.Pages[1].Caption := 'Browser - Load From Strings';
- EmbeddedWB1.LoadFromStrings(RichEditWB1.Lines);
- RichEditWB1.DoHighlightHtml;
-end;
-
-procedure TfrmMain.SavePageToStrings1Click(Sender: TObject);
-begin
- UpdateEditor;
- pctrlWB.Pages[1].Caption := 'Browser - Save To Strings';
- EmbeddedWB1.SaveToStrings(RichEditWB1.Lines);
-end;
-
-procedure TfrmMain.SavePageToStreamClick(Sender: TObject);
-var
- Stm: TMemoryStream;
-begin
- Stm := TMemoryStream.Create;
- try
- UpdateEditor;
- pctrlWB.Pages[1].Caption := 'Browser - Save To Stream';
- EmbeddedWB1.SaveToStream(Stm);
- Stm.Position := 0;
- RichEditWB1.Lines.LoadFromStream(Stm);
- RichEditWB1.DoHighlightHTML;
- finally
- Stm.Free;
- end;
-end;
-
-procedure TfrmMain.LoadFromStreamClick(Sender: TObject);
-var
- Stm: TMemoryStream;
-begin
- Stm := TMemoryStream.Create;
- try
- UpdateEditor;
- RichEditWB1.Lines.Add('This HTML is a test of: Browser - Load From Stream.
');
- RichEditWB1.DoHighlightHTML;
- pctrlWB.Pages[1].Caption := 'Browser - Load From Stream';
- RichEditWB1.Lines.SaveToStream(Stm);
- Stm.Position := 0;
- EmbeddedWB1.LoadFromStream(Stm);
- finally
- Stm.Free;
- end;
-end;
-
-procedure TfrmMain.ImportExportWizard1Click(Sender: TObject);
-begin
- EmbeddedWB1.ShowImportExportFavoritesAndCookies;
-end;
-
-procedure TfrmMain.ShowInternetExplorerVersion1Click(Sender: TObject);
-begin
- EmbeddedWB1.ShowIEVersionInfo;
-end;
-
-procedure TfrmMain.GetHostAndIP1Click(Sender: TObject);
-var
- HostN, HostIP, Err: string;
-begin
- if EmbeddedWB1.GetIPAndHostName(HostN, HostIP, Err) then
- MessageDlg('PC Host Name: ' + HostN + #10 + #13 + 'Your Internal IP: ' + HostIP, mtInformation, [mbOk], 0)
- else
- MessageDlg(Err, mtError, [mbOk], 0);
-end;
-
-procedure TfrmMain.GetDefaultWebBrowserFromResistry1Click(Sender: TObject);
-begin
- MessageDlg('Current Default Web Browser is: ' + EmbeddedWB1.GetDefaultBrowserFromRegistry, mtInformation, [mbOk], 0)
-end;
-
-procedure TfrmMain.ClearCache1Click(Sender: TObject);
-begin
- EmbeddedWB1.ClearCache;
-end;
-
-procedure TfrmMain.DeleteHistory1Click(Sender: TObject);
-begin
- EmbeddedWB1.ClearHistory;
-end;
-
-procedure TfrmMain.ClearAddressBarTypedURLs1Click(Sender: TObject);
-begin
- EmbeddedWB1.ClearTypedURLs;
-end;
-
-procedure TfrmMain.PageSourceHtmlAsStrings1Click(Sender: TObject);
-begin
- UpdateEditor;
- EmbeddedWB1.ViewPageSourceHtmlToStrings(RichEditWB1.Lines);
- if RichEditWB1.HighlightHTML then
- RichEditWB1.DoHighlightHTML;
-end;
-
-procedure TfrmMain.PageSourceTextAsStrings1Click(Sender: TObject);
-begin
- UpdateEditor;
- EmbeddedWB1.ViewPageSourceTextToStrings(RichEditWB1.Lines);
-end;
-
-procedure TfrmMain.ViewPageLinksAsAList1Click(Sender: TObject);
-begin
- UpdateEditor;
- EmbeddedWB1.ViewPageLinksToStrings(RichEditWB1.Lines);
-end;
-
-procedure TfrmMain.PageCtrlChange(Sender: TObject);
-begin
- UpdateView();
-end;
-
-procedure TfrmMain.SearchImMsn1Click(Sender: TObject);
-begin
- EmbeddedWB1.GoSearchInMSN('EmbeddedWB');
-end;
-
-procedure TfrmMain.SearchInGoogle1Click(Sender: TObject);
-begin
- EmbeddedWB1.GoSearchInGoogle('EmbeddedWB');
-end;
-
-procedure TfrmMain.SearchInYahoo1Click(Sender: TObject);
-begin
- EmbeddedWB1.GoSearchInYahoo('EmbeddedWB');
-end;
-
-procedure TfrmMain.FillFormWithPersonalDetails1Click(Sender: TObject);
-begin
- EmbeddedWB1.Navigate('http://edit.yahoo.com/config/eval_register?.done=http://groups.yahoo.com%2fgroup%2fdelphi-webbrowser%2f&.src=ygrp&.intl=us');
- EmbeddedWB1.Wait;
- with EmbeddedWB1 do
- begin
- FillForm('firstname', 'Mozart');
- FillForm('secondname', 'Bethoven');
- FillForm('yahooid', 'lolypop');
- // ...
- end;
-end;
-///------------------Images-------------------------------------
-
-procedure TfrmMain.ShowTheImageEditor1Click(Sender: TObject);
-begin
- UpdateImage;
-end;
-
-procedure TfrmMain.getAScreanCapture1Click(Sender: TObject);
-begin
- if EmbeddedWB1.GetBmpFromBrowser('site.bmp') then
- begin
- UpdateImage;
- ImageViewer.Picture.LoadFromFile('.\site.bmp');
- ShowMessage('The page screen capture is in your application folder.');
- end;
-end;
-
-procedure TfrmMain.GetThumbnailClick(Sender: TObject);
-begin
- UpdateImage;
- EmbeddedWB1.GetThumbnail(ImageViewer);
-end;
-
-procedure TfrmMain.GetJpegPageCapture1Click(Sender: TObject);
-begin
- if EmbeddedWB1.GetJpegFromBrowser('.\Site.jpg', Height, Width, Height, Width) then
- begin
- UpdateImage;
- ImageViewer.Picture.LoadFromFile('.\Site.jpg');
- ShowMessage('The page screen capture is in your application folder.')
- end;
-end;
-
-///------------------End of Images-------------------------------------
-
-procedure TfrmMain.OpenFoldersExplore1Click(Sender: TObject);
-begin
- EmbeddedWB1.ExploreFolder(ExtractFilePath(application.ExeName));
-end;
-
-procedure TfrmMain.OpenRegistryEditor1Click(Sender: TObject);
-begin
- EWBTools.OpenRegistryEditor;
-end;
-
-procedure TfrmMain.PrintWithOptionsClick(Sender: TObject);
-begin
- EmbeddedWB1.PrintWithOptions;
-end;
-
-procedure TfrmMain.AddToRestrictedZoneListClick(Sender: TObject);
-begin
- EmbeddedWB1.AddToRestrictedSiteList(EmbeddedWB1.LocationURL);
-end;
-
-procedure TfrmMain.CheckIfInResrictedZoneList1Click(Sender: TObject);
-begin
- if EmbeddedWB1.CheckIfInRestricredList(EmbeddedWB1.LocationURL, False) then
- MessageDlg('The page is in your Resricted sites list zone.', mtInformation, [mbOK], 0)
- else
- MessageDlg('The page is not in your Resricted sites list zone!', mtInformation, [mbOK], 0)
-end;
-
-procedure TfrmMain.AddToTrustedListZoneList1Click(Sender: TObject);
-begin
- EmbeddedWB1.AddToTrustedSiteList(EmbeddedWB1.LocationURL);
-end;
-
-procedure TfrmMain.CheckIfInTrustedZoneList1Click(Sender: TObject);
-begin
- if EmbeddedWB1.CheckIfInTrustedList(EmbeddedWB1.LocationURL, False) then
- MessageDlg('The page is in your truested sites list zone.', mtInformation, [mbOK], 0)
- else
- MessageDlg('The page is not in your truested sites list zone!', mtInformation, [mbOK], 0)
-end;
-
-procedure TfrmMain.CheckSiteSecurityLevel1Click(Sender: TObject);
-var
- Name, Description: string;
-begin
- if EmbeddedWB1.GetSSLStatus(Name, Description) then
- ShowMessage('Secure Type: ' + Name + #10 + #13 + 'Description: ' + Description)
- else
- ShowMessage('The site is not secured.');
-end;
-
-procedure TfrmMain.CheckSiteSecurityZone1Click(Sender: TObject);
-var
- Name, Description: string;
- Icon: TIcon;
-begin
- EmbeddedWB1.GetURLSecurityZone(Name, Description, Icon);
- ShowMessage('The Web Site Security Zone Is: ' + Name);
-end;
-
-procedure TfrmMain.CheckPageSecurityEncryption1Click(Sender: TObject);
-begin
- ShowMessage(EncryptionSt);
-end;
-
-procedure TfrmMain.FavoritesTree1NodeAdded(Sender: TObject;
- const aNode: TTreeNode; aNodeType: TNodeType);
-begin
- with aNode do
- begin
- if Text = 'Tools' then
- ImageIndex := 0
- else
- if Text = 'Organize favorites' then
- ImageIndex := 1
- else
- if Text = 'Add To favorites' then
- ImageIndex := 2
- else
- if Text = 'Import favorites' then
- ImageIndex := 3
- else
- if Text = 'Export favorites' then
- ImageIndex := 4
- else
- if Text = 'Favorites' then
- ImageIndex := 5
- else
- if (pos('Links', Text) > 0) or (pos('Imported', Text) > 0)
- then
- begin
- HasChildren := True;
- ImageIndex := 6
- end
- else
- ImageIndex := 8
- end;
-end;
-
-procedure TfrmMain.EmbeddedWB1ScriptError(Sender: TObject; ErrorLine,
- ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string;
- var ScriptErrorAction: TScriptErrorAction);
-begin
- AddEventLog('OnNavigateError ' + ErrorMessage + ' ' + ErrorCode);
-end;
-
-procedure TfrmMain.EmbeddedWB1SetSecureLockIcon(ASender: TObject;
- SecureLockIcon: Integer);
-begin
- case SecureLockIcon of
- 0: EncryptionSt := 'UnSecure';
- 1: EncryptionSt := 'Mixed';
- 2: EncryptionSt := 'Unknown Bits';
- 3: EncryptionSt := '40 Bit';
- 4: EncryptionSt := '56 Bit';
- 5: EncryptionSt := 'Fortezza';
- 6: EncryptionSt := '128 Bit';
- end;
- EncryptionSt := 'Secure Level: ' + EncryptionSt;
- lblLevel.Caption := EncryptionSt;
-end;
-
-procedure TfrmMain.EmbeddedWB1ShowDialog(Sender: TObject; h: Cardinal;
- StyleEx: Integer; OldCaption: string; var NewCaption: WideString;
- var Cancel: Boolean);
-begin
- AddEventLog('OnShowDialog');
-end;
-
-procedure TfrmMain.SetDesignModeClick(Sender: TObject);
-begin
- EmbeddedWB1.DesignMode := not EmbeddedWB1.DesignMode;
- if EmbeddedWB1.DesignMode then
- Stbar.Panels[4].Text := 'Design Mode '
- else
- Stbar.Panels[4].Text := ''
-end;
-
-//********* LinksBar & IEDownload*********************************************
-
-procedure TfrmMain.AddTheSiteToTheList1Click(Sender: TObject);
-begin
- LinksBar1.AddToLinksList(EmbeddedWB1.LocationName, EmbeddedWB1.LocationURL);
-end;
-
-procedure TfrmMain.RemoveTheSiteFromTheList1Click(Sender: TObject);
-begin //remmmber to add links to the list before using this feature
- LinksBar1.RemoveFromLinksList(EmbeddedWB1.LocationName);
-end;
-
-procedure TfrmMain.ShowTheList1Click(Sender: TObject);
-var
- lst: TstringList;
- Count: integer;
-begin
- Lst := TStringList.Create;
- try
- Count := 0;
- UpdateEditor;
- LinksBar1.GetTheLinksList(lst);
- RichEditWB1.Lines.AddStrings(lst);
- RichEditWB1.Lines.Add('**** You have a total of ' + IntToStr(Count) + ' links in your list****');
- finally
- Lst.Free;
- end;
-end;
-
-procedure TfrmMain.NavigateToLinkItem1Click(Sender: TObject);
-var
- st: string;
-begin //remmmber to add links to the list before using this feature
- st := ('delphi-webbrowser : Delphi: Using IE''s WebBrowser');
- LinksBar1.NavigateToItem(st);
-end;
-
-procedure TfrmMain.ViewHidethelinksbar1Click(Sender: TObject);
-begin
- Linksbar1.Shown := not ViewHidethelinksbar1.Checked;
-end;
-
-procedure TfrmMain.ViewHideTheLinksToolbar1Click(Sender: TObject);
-begin
- ViewHidethelinksbar1.Click;
-end;
-
-procedure TfrmMain.ClearTheLinkList1Click(Sender: TObject);
-begin
- LinksBar1.ClearTheLinksList;
-end;
-
-procedure TfrmMain.Button1Click(Sender: TObject);
-var
- i: Integer;
-begin
- ClearResultsGrid;
- for i := 0 to links.count - 1 do
- IEDownload1.Go(Links[i]);
-end;
-
-function TfrmMain.IEDownload1Response(Sender: TBSCB; dwResponseCode: Cardinal;
- szResponseHeaders, szRequestHeaders: PWideChar;
- out szAdditionalRequestHeaders: PWideChar): HRESULT;
-begin
- Result := S_OK;
- if dwResponseCode = 200 then
- StringGrid1.Cells[1, Links.IndexOf(IEDownload1.Url) + 1] := 'Finished...'
- else
- if dwResponseCode > 400 then
- StringGrid1.Cells[1, Links.IndexOf(IEDownload1.Url) + 1] := ResponseCodeToStr(dwResponseCode)
- else
- StringGrid1.Cells[1, Links.IndexOf(IEDownload1.Url) + 1] := ResponseCodeToStr(Result);
- StringGrid1.Cells[2, Links.IndexOf(IEDownload1.Url) + 1] := ResponseCodeToStr(dwResponseCode);
- StringGrid1.Repaint; // For Synchronous download only
-end;
-
-procedure TfrmMain.IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode: Cardinal; szStatusText: PWideChar; Downloaded, ElapsedTime,
- Speed, RemainingTime, Status: string);
-begin
-
- StringGrid1.Cells[1, Links.IndexOf(IEDownload1.Url) + 1] := ResponseCodeToStr(ulStatusCode);
- StringGrid1.Repaint; // For Synchronous download only
-end;
-
-procedure TfrmMain.RadioButton1Click(Sender: TObject);
-begin
- IEDownload1.BindF := [GetNewestVersion, NoWriteCache, PullData];
-end;
-
-procedure TfrmMain.RadioButton2Click(Sender: TObject);
-begin
- IEDownload1.BindF := [Asynchronous, AsyncStorage, GetNewestVersion, NoWriteCache, PullData];
-end;
-
-procedure TfrmMain.CheckTheLinksClick(Sender: TObject);
-var
- i: Integer;
- UrlList: TStringList;
-begin
- UpdateLinksChecker;
- UrlList := TStringList.Create;
- try
- ClearAllGrid;
- LinksBar1.GetTheLinksURLs(UrlList);
- Links.Clear;
- Links.AddStrings(UrlList);
- for i := 0 to links.count - 1 do
- begin
- Stringgrid1.RowCount := i + 2;
- Stringgrid1.Cells[0, i + 1] := links[i];
- end;
- for i := 0 to links.count - 1 do
- IEDownload1.Go(Links[i]);
- finally
- UrlList.Free;
- end;
-end;
-
-procedure TfrmMain.CheckURLsFromALinkList1Click(Sender: TObject);
-begin
- UpdateLinksChecker;
-end;
-
-//********* local embeddedWB*********************************************
-
-procedure TfrmMain.sbRefreshClick(Sender: TObject);
-begin
- EmbeddedWB2.Refresh;
-end;
-
-procedure TfrmMain.sbUpClick(Sender: TObject);
-begin
- EmbeddedWB2.GoBack;
-end;
-
-procedure TfrmMain.sbConnectClick(Sender: TObject);
-begin
- if (AnsiPos('ftp', IEAddress1.Text) > 0) then
- begin
- EmbeddedWB1.Navigate('ftp://' + edtUser.text + ':' + edtPassword.text + '@' + IEAddress1.text);
- repeat
- Application.ProcessMessages;
- until not EmbeddedWB1.Busy;
- end
- else
- begin
- ShowMessage('Check your address, Its not an ftp site.' + #10 + #13
- + 'You are being redirected to Microsoft FTP just for the test.');
- EmbeddedWB1.Navigate('ftp://ftp.microsoft.com/');
- end;
-end;
-
-procedure TfrmMain.EmbeddedWB2CommandStateChange(ASender: TObject;
- Command: Integer; Enable: WordBool);
-begin
- case Command of
- CSC_NAVIGATEBACK: sbUp.Enabled := Enable;
- end;
-end;
-//************ Editor *******************************************
-
-procedure TfrmMain.HighlighHTML1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.LoadHTMLFromBrowser;
- if RichEditWB1.HighlightHTML then
- RichEditWB1.DoHighlightHTML;
- RichEditWB1.ScrollToTop;
-end;
-
-procedure TfrmMain.HighLightURL1Click(Sender: TObject);
-begin
- RichEditWB1.HighLightURL := True;
- UpdateEditor;
- EmbeddedWB1.ViewPageLinksToStrings(RichEditWB1.Lines);
- RichEditWB1.AddLineNumbering;
-end;
-
-procedure TfrmMain.SetSelectionAsAHyperLink1Click(Sender: TObject);
-begin
- RichEditWB1.SetSelectionHyperlink(True);
-end;
-
-procedure TfrmMain.SetWordAsAHyperLink1Click(Sender: TObject);
-begin
- RichEditWB1.SetWordHyperlink(True);
-end;
-
-procedure TfrmMain.AddBullets1Click(Sender: TObject);
-begin
- RichEditWB1.AddBullets;
-end;
-
-procedure TfrmMain.AddLineNumbers1Click(Sender: TObject);
-begin
- RichEditWB1.AddLineNumbering;
-end;
-
-procedure TfrmMain.AddRomanNumbers1Click(Sender: TObject);
-begin
- RichEditWB1.AddRomanNumbering;
-end;
-
-procedure TfrmMain.New1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.New;
-end;
-
-procedure TfrmMain.Open2Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.Open;
-end;
-
-procedure TfrmMain.Save1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.Save;
-end;
-
-procedure TfrmMain.SaveAs2Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SaveAs;
-end;
-
-procedure TfrmMain.SetFontColorClick(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetFontColor;
-end;
-
-procedure TfrmMain.AddBackroundColor1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetSelectedBgColor;
-end;
-
-procedure TfrmMain.SelectFonts1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SelectFont;
-end;
-
-procedure TfrmMain.SetSize1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SelectFont;
-end;
-
-procedure TfrmMain.SetBold1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetFontBold;
-end;
-
-procedure TfrmMain.SetSize2Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetFontSize;
-end;
-
-procedure TfrmMain.SetItalic1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetFontItalic;
-end;
-
-procedure TfrmMain.SetUnderLine1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetFontUnderLine;
-end;
-
-procedure TfrmMain.AddDateAndTime1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.AddDateAndTime;
-end;
-
-procedure TfrmMain.PreviewRichEditLinesInTheBrowser1Click(Sender: TObject);
-begin
- RichEditWB1.PreviewInBrowser;
-end;
-
-procedure TfrmMain.LoadCodeFromBrowserStream1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.LoadStreamFromBrowser;
-end;
-
-procedure TfrmMain.SetColor1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetColor;
-end;
-
-procedure TfrmMain.Print1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.PrintAll;
-end;
-
-procedure TfrmMain.Find1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.Find;
-end;
-
-procedure TfrmMain.Replace1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.Replace;
-end;
-
-procedure TfrmMain.CreateASnapshot1Click(Sender: TObject);
-begin
- UpdateImage;
- RichEditWB1.CreateSnapShot(ImageViewer.Picture.Bitmap);
-end;
-
-procedure TfrmMain.AddACheckBox1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.AddCheckBox(' bsalsa', 'cb', 20, 30, 170, True);
-end;
-
-procedure TfrmMain.AddTEditBox1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.AddEditBox('bsalsa', 'edt', 20, 30, 80);
-end;
-
-procedure TfrmMain.AddARadioButton1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.AddRadioButton('bsalsa', 'rb', 20, 30, 40, True);
-end;
-
-procedure TfrmMain.AddAButton1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.AddButton('bsalsa', 'btn', 20, 30, 130);
-end;
-
-procedure TfrmMain.GoToLineNumber1Click(Sender: TObject);
-var
- Value: string;
-begin
- UpdateEditor;
- InputQuery('Select A Line', 'Please Enter a line number to select..', Value);
- if Value <> '' then
- try
- RichEditWB1.SelectLine(StrToInt(Trim(Value)));
- except
- end;
-end;
-
-procedure TfrmMain.WrapLongLines1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.WordWrap := WrapLongLines1.Checked;
-end;
-
-procedure TfrmMain.MailSelectedText1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.MailSelected;
-end;
-
-procedure TfrmMain.miSaveClick(Sender: TObject);
-begin
- EmbeddedWB1.SaveDialogEx;
-end;
-
-procedure TfrmMain.Mail1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.MailContext;
-end;
-
-procedure TfrmMain.RichEditWB1MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- UpdateProgressBars;
-end;
-
-procedure TfrmMain.RichEditWB1KeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- UpdateProgressBars;
-end;
-
-procedure TfrmMain.hemes1Click(Sender: TObject);
-begin
- UpdateEditor;
- RichEditWB1.SetThemes(tBlack);
-end;
-
-procedure TfrmMain.ShowTheEditor2Click(Sender: TObject);
-begin
- UpdateEditor;
-end;
-
-procedure TfrmMain.ResetFontsFormat1Click(Sender: TObject);
-begin
- RichEditWB1.RemoveTextFormats;
-end;
-
-procedure TfrmMain.HighLightXML1Click(Sender: TObject);
-begin
- UpdateEditor;
- with RichEditWB1 do
- begin
- HighLightURL := False;
- EmbeddedWB1.Navigate('http://rss.groups.yahoo.com/group/delphi-webbrowser/rss');
- LoadAsCopyFromBrowser;
- if HighlightXML then
- DoHighlightXML;
- end;
-end;
-
-procedure TfrmMain.InsertFromImageListClick(Sender: TObject);
-begin
- UpdateEditor;
- with RichEditWB1 do
- begin
- AddBitmapFromImagelist(ilsSmilies, 0);
- AddEmptyLine;
- SelAttributes.Color := clYellow;
- AddEmptyLine;
- SelText := ' Beatles ';
- AddEmptyLine;
- AddBitmapFromImagelist(ilsSmilies, 15);
- AddEmptyLine;
- SelAttributes.Color := clPurple;
- AddEmptyLine;
- SelText := ' Deep Purple ';
- AddEmptyLine;
- AddBitmapFromImagelist(ilsSmilies, 5);
- AddEmptyLine;
- AddFormatedText('Led Zepelin', True, True, True, True, clred);
- AddEmptyLine;
- AddEmptyLine;
- AddFormatedText('C U L8r', True, False, False, False, clGreen);
- AddEmptyLine;
- RemoveTextFormats;
- end;
-end;
-
-procedure TfrmMain.InsertFileClick(Sender: TObject);
-begin
- UpdateEditor;
- if OpenDialog1.Execute then
- RichEditWB1.AddFile(OpenDialog1.FileName, True, True);
-end;
-
-procedure TfrmMain.InsertBitmapClick(Sender: TObject);
-begin
- UpdateImage;
- UpdateEditor;
- if OpenDialog1.Execute then
- ImageViewer.Picture.LoadFromFile(OpenDialog1.FileName);
- RichEditWB1.AddFile(OpenDialog1.FileName, False, False);
-end;
-
-
-end. //************ E O F *******************************************
-
diff --git a/windows/src/ext/embeddedwb/Demos/Mega Demo/prjEmbeddedWBDemo.dpr b/windows/src/ext/embeddedwb/Demos/Mega Demo/prjEmbeddedWBDemo.dpr
deleted file mode 100644
index d6d503995d295b1b0a4e0a9aad87b0938bde429e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Mega Demo/prjEmbeddedWBDemo.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-//***************************************************************
-// EmbeddedWB Mega Demo *
-// *
-// Freeware Demo *
-// by *
-// Eran Bodankin (bsalsa) -(bsalsa@bsalsa.com) *
-// Thanks to smot for the demo contribution *
-// *
-//***************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjEmbeddedWBDemo;
-
-uses
- Forms,
- Demo in 'Demo.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TfrmMain, frmMain);
- Application.Run;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/Demo.html b/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/Demo.html
deleted file mode 100644
index 0e790c7985498c57a9214c5c3201b735b4544a53..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/Demo.html
+++ /dev/null
@@ -1,98 +0,0 @@
-
-Die Webseite kann nicht angezeigt werden
-
-
-
-
-
-
-
-
-
-
-  |
-
- Dieses Programm kann die Webseite nicht
- anzeigen. |
-
- |
- |
-
- | |
-
- Wahrscheinlichste Ursachen:
-
- - Sie haben keine Verbindung mit dem Internet
- hergestellt.
-
- Es ist ein Problem mit der Website aufgetreten.
-
- Die Adresse enthält eventuell einen
- Tippfehler.
|
-
- | |
-
- Mögliche Vorgehensweise: |
-
- | |
-
-
-
-
-
-  |
- Überprüfen Sie die
- Internetverbindung. Besuchen Sie eine andere Website, um
- sicherzustellen, dass eine Verbindung besteht.
- | |
-
- | |
-
-
-
-
-
- | |
- Geben Sie die Adresse erneut
- ein. | |
-
- | |
-
-
-
-
-
- | |
-
- | |
-
- | |
-
-
-
-
-
-  |
-
- |
-
- Das Problem kann aus verschiedenen Gründen
- aufgetreten sein:
-
- |
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/prjEditDDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/prjEditDDemo.dpr
deleted file mode 100644
index 37e3ef9f565a7801b70b0242458d1c6131708e50..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/prjEditDDemo.dpr
+++ /dev/null
@@ -1,43 +0,0 @@
-{*******************************************************}
-{ EditDesigner Demo }
-{ By: }
-{ Eran Bodankin (bsalsa) bsalsa@bsalsa.com }
-{ Enjoy! }
-{ Documentation and updated versions: }
-{ http://www.bsalsa.com }
-{*******************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjEditDDemo;
-
-uses
- Forms,
- utEditDesigner in 'utEditDesigner.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/utEditDesigner.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/utEditDesigner.dfm
deleted file mode 100644
index 6aaeed17ca0674f95ed68240c426b1ee87420d7a..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/utEditDesigner.dfm
+++ /dev/null
@@ -1,288 +0,0 @@
-object Form1: TForm1
- Left = 319
- Top = 345
- Width = 677
- Height = 488
- Caption = 'TEditDesigner Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 246
- Width = 669
- Height = 150
- Align = alBottom
- TabOrder = 0
- object Label1: TLabel
- Left = 7
- Top = 6
- Width = 71
- Height = 13
- Caption = 'Document Info'
- Transparent = True
- end
- object Label2: TLabel
- Left = 216
- Top = 6
- Width = 51
- Height = 13
- Caption = 'Inner Text'
- Transparent = True
- end
- object Label3: TLabel
- Left = 423
- Top = 6
- Width = 50
- Height = 13
- Caption = 'Inner Html'
- Transparent = True
- end
- object MemoDocumentInfo: TMemo
- Left = 0
- Top = 22
- Width = 210
- Height = 122
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object MemoInnerText: TMemo
- Left = 216
- Top = 22
- Width = 201
- Height = 122
- ScrollBars = ssBoth
- TabOrder = 1
- end
- object MemoInnerHTML: TMemo
- Left = 423
- Top = 22
- Width = 221
- Height = 123
- ScrollBars = ssBoth
- TabOrder = 2
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 669
- Height = 33
- Align = alTop
- TabOrder = 1
- object btnGo: TButton
- Left = 351
- Top = 8
- Width = 43
- Height = 22
- Caption = 'Go'
- TabOrder = 0
- OnClick = btnGoClick
- end
- object IEAddress1: TIEAddress
- Left = 7
- Top = 8
- Width = 338
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- EmbeddedWB = EmbeddedWB1
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 1
- end
- object btnRemoveDesigner: TButton
- Left = 536
- Top = 8
- Width = 108
- Height = 22
- Caption = 'Disconnect Designer'
- Enabled = False
- TabOrder = 2
- OnClick = btnRemoveDesignerClick
- end
- object btnConnectDesigner: TButton
- Left = 432
- Top = 8
- Width = 98
- Height = 22
- Caption = 'Connect Designer'
- TabOrder = 3
- OnClick = btnConnectDesignerClick
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 396
- Width = 669
- Height = 19
- Panels = <
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 70
- end
- item
- Width = 100
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 90
- end
- item
- Width = 90
- end
- item
- Width = 70
- end
- item
- Width = 70
- end>
- end
- object StatusBar2: TStatusBar
- Left = 0
- Top = 415
- Width = 669
- Height = 19
- Panels = <
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 70
- end
- item
- Width = 70
- end
- item
- Width = 70
- end
- item
- Width = 70
- end
- item
- Width = 250
- end
- item
- Width = 70
- end>
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 33
- Width = 669
- Height = 213
- Align = alClient
- TabOrder = 4
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- HTMLCode.Strings = (
- 'www.google.com')
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C0000008F420000651500000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object EditDesigner1: TEditDesigner
- About = 'TEditDesigner - from http://www.bsalsa.com/'
- EmbeddedWB = EmbeddedWB1
- OnPreDrag = EditDesigner1PreDrag
- OnPreHandle = EditDesigner1PreHandleEvent
- OnPostHandle = EditDesigner1PostHandleEvent
- OnPostEditorNotify = EditDesigner1PostEditorEventNotify
- OnError = EditDesigner1Error
- OnInnerText = EditDesigner1InnerText
- OnInnerHtml = EditDesigner1InnerHtml
- OnKeyPress = EditDesigner1KeyPress
- OnKeyState = EditDesigner1KeyState
- OnTranslateAccelerator = EditDesigner1TranslateAccelerator
- OnMousePosition = EditDesigner1MousePosition
- OnMouseButton = EditDesigner1MouseButton
- OnEvtDispId = EditDesigner1EvtDispId
- OnSnapRect = EditDesigner1SnapRect
- OnType_ = EditDesigner1Type_
- OnToString = EditDesigner1ToString
- OnTagName = EditDesigner1TagName
- Left = 50
- Top = 145
- end
- object MainMenu1: TMainMenu
- Left = 48
- Top = 88
- object File1: TMenuItem
- Caption = 'File'
- object SaveToFile1: TMenuItem
- Caption = 'Save To Demo.html'
- OnClick = SaveToFile1Click
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- OnClick = Exit1Click
- end
- end
- object Add1: TMenuItem
- Caption = 'Insert'
- object HyperLink1: TMenuItem
- Caption = 'HyperLink...'
- OnClick = HyperLink1Click
- end
- object Image1: TMenuItem
- Caption = 'Image...'
- OnClick = Image1Click
- end
- object RadioButton1: TMenuItem
- Caption = 'Radio Button'
- OnClick = RadioButton1Click
- end
- end
- object Fonts1: TMenuItem
- Caption = 'Fonts'
- object Bold1: TMenuItem
- Caption = 'Set Selected Text As Bold'
- OnClick = Bold1Click
- end
- object SetSelTextAsUndelline1: TMenuItem
- Caption = 'Set Selected Text As Undelline'
- OnClick = SetSelTextAsUndelline1Click
- end
- object Italic1: TMenuItem
- Caption = 'Set Selected Text Italic'
- OnClick = Italic1Click
- end
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/utEditDesigner.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/utEditDesigner.pas
deleted file mode 100644
index 06e0d0ea6306d2804596749d161fcc115d9e5a16..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/01 - EditDesigner_Demo/utEditDesigner.pas
+++ /dev/null
@@ -1,326 +0,0 @@
-{*******************************************************}
-{ EditDesigner Demo }
-{ By: }
-{ Eran Bodankin (bsalsa) bsalsa@bsalsa.com }
-{ Enjoy! }
-{ Documentation and updated versions: }
-{ http://www.bsalsa.com }
-{*******************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit utEditDesigner;
-
-interface
-
-uses
- EwbAcc, Windows, Classes, Dialogs, ShellAPI, SHDocVw_EWB, EmbeddedWB, MSHTML_Ewb, EditDesigner, Forms,
- Controls, ExtCtrls, StdCtrls, IEAddress, ComCtrls, SysUtils, OleCtrls, Menus,
- EwbCore;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- EditDesigner1: TEditDesigner;
- Panel2: TPanel;
- btnGo: TButton;
- IEAddress1: TIEAddress;
- StatusBar1: TStatusBar;
- MemoDocumentInfo: TMemo;
- StatusBar2: TStatusBar;
- EmbeddedWB1: TEmbeddedWB;
- MemoInnerText: TMemo;
- MemoInnerHTML: TMemo;
- btnRemoveDesigner: TButton;
- btnConnectDesigner: TButton;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- MainMenu1: TMainMenu;
- Add1: TMenuItem;
- HyperLink1: TMenuItem;
- Image1: TMenuItem;
- File1: TMenuItem;
- SaveToFile1: TMenuItem;
- Fonts1: TMenuItem;
- Bold1: TMenuItem;
- SetSelTextAsUndelline1: TMenuItem;
- Italic1: TMenuItem;
- RadioButton1: TMenuItem;
- Exit1: TMenuItem;
- procedure Italic1Click(Sender: TObject);
- procedure RadioButton1Click(Sender: TObject);
- procedure SetSelTextAsUndelline1Click(Sender: TObject);
- procedure Bold1Click(Sender: TObject);
- procedure SaveToFile1Click(Sender: TObject);
- procedure Image1Click(Sender: TObject);
- procedure HyperLink1Click(Sender: TObject);
- function EditDesigner1PreDrag: HRESULT;
- function EditDesigner1SnapRect(const pIElement: IHTMLElement;
- var prcNew: TRect; eHandle: TOleEnum): HRESULT;
- procedure EditDesigner1InnerText(const innerText: string);
- procedure EditDesigner1InnerHtml(const innerHtml: string);
- procedure EditDesigner1ToString(const toString: string);
- procedure EditDesigner1KeyState(const CapsLock, NumLock, InsertKey, altKey,
- ctrlKey, shiftKey: Boolean);
- procedure EditDesigner1EvtDispId(const inEvtDispId: Integer);
- procedure EditDesigner1Type_(const type_: string);
- procedure EditDesigner1TagName(const tagName: string);
- procedure EditDesigner1MouseButton(const Button: Integer);
- procedure EditDesigner1KeyPress(const Key: Integer);
- procedure EditDesigner1Error(const ErrorCode: Integer; ErrMessage: string);
- procedure EditDesigner1MousePosition(X, Y: Integer);
- procedure btnRemoveDesignerClick(Sender: TObject);
- procedure btnGoClick(Sender: TObject);
- function EditDesigner1PostEditorEventNotify(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
- function EditDesigner1PostHandleEvent(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
- function EditDesigner1PreHandleEvent(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
- function EditDesigner1TranslateAccelerator(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
- procedure btnConnectDesignerClick(Sender: TObject);
- procedure Exit1Click(Sender: TObject);
- private
- procedure UpdatePageProperties;
- procedure UpdateDesigner;
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-//EditDesigner Procedures-------------------------------------------------------
-
-procedure TForm1.EditDesigner1MousePosition(X, Y: Integer);
-begin
- StatusBar1.Panels[0].Text := 'X: ' + IntToStr(X);
- StatusBar1.Panels[1].Text := 'Y: ' + IntToStr(Y);
-end;
-
-procedure TForm1.EditDesigner1TagName(const tagName: string);
-begin
- StatusBar1.Panels[2].Text := 'Tag: ' + tagName;
-end;
-
-procedure TForm1.EditDesigner1Type_(const type_: string);
-begin
- StatusBar1.Panels[3].Text := 'Type: ' + type_;
-end;
-
-procedure TForm1.HyperLink1Click(Sender: TObject);
-begin
- EditDesigner1.InsertHyperlink;
-end;
-
-procedure TForm1.Image1Click(Sender: TObject);
-begin
- EditDesigner1.InsertImage;
-end;
-
-procedure TForm1.RadioButton1Click(Sender: TObject);
-begin
- EditDesigner1.InsertRadioButton;
-end;
-
-procedure TForm1.SaveToFile1Click(Sender: TObject);
-var
- sFileName: string;
-begin
- try
- sFileName := ExtractFilePath(Paramstr(0)) + 'Demo.html';
- if EditDesigner1.SaveToFile(SFileName) = S_OK then
- ShellExecute(Forms.Application.Handle, 'explore', PChar(SFileName), nil,
- nil, SW_SHOWNORMAL);
- except
- ShowMessage('Error while Saving.')
- end;
-end;
-
-procedure TForm1.EditDesigner1KeyPress(const Key: Integer);
-begin
- StatusBar1.Panels[4].Text := 'Key: ' + IntToStr(Key);
-end;
-
-procedure TForm1.EditDesigner1MouseButton(const Button: Integer);
-begin
- StatusBar1.Panels[5].Text := 'Button: ' + IntToStr(Button);
-end;
-
-procedure TForm1.EditDesigner1EvtDispId(const inEvtDispId: Integer);
-begin
- StatusBar1.Panels[6].Text := 'DispId: ' + IntToStr(inEvtDispId);
-end;
-
-procedure TForm1.EditDesigner1InnerHtml(const innerHtml: string);
-begin
- MemoInnerHTML.Lines.Text := innerHtml;
-end;
-
-procedure TForm1.EditDesigner1InnerText(const innerText: string);
-begin
- MemoInnerText.Lines.Text := innerText;
-end;
-
-procedure TForm1.EditDesigner1Error(const ErrorCode: Integer;
- ErrMessage: string);
-begin
- StatusBar1.Panels[7].Text := ErrMessage;
-end;
-
-procedure TForm1.EditDesigner1ToString(const toString: string);
-begin
- StatusBar2.Panels[6].Text := toString;
-end;
-
-function TForm1.EditDesigner1PostEditorEventNotify(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
-end;
-
-function TForm1.EditDesigner1PostHandleEvent(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
-end;
-
-function TForm1.EditDesigner1PreDrag: HRESULT;
-begin
- Result := S_FALSE;
-end;
-
-function TForm1.EditDesigner1PreHandleEvent(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
-end;
-
-function TForm1.EditDesigner1TranslateAccelerator(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
-end;
-
-function TForm1.EditDesigner1SnapRect(const pIElement: IHTMLElement;
- var prcNew: TRect; eHandle: TOleEnum): HRESULT;
-begin
- case eHandle of
- ELEMENT_CORNER_NONE: ; // Code for moving the element
- ELEMENT_CORNER_TOP: ; // Code for resizing the element
- ELEMENT_CORNER_LEFT: ; // Code for resizing the element
- ELEMENT_CORNER_BOTTOM: ; // Code for resizing the element
- ELEMENT_CORNER_RIGHT: ; // Code for resizing the element
- ELEMENT_CORNER_TOPLEFT: ; // Code for resizing the element
- ELEMENT_CORNER_TOPRIGHT: ; // Code for resizing the element
- ELEMENT_CORNER_BOTTOMLEFT: ; // Code for resizing the element
- ELEMENT_CORNER_BOTTOMRIGHT: ; // Code for resizing the element
- end;
- Result := S_OK;
-end;
-
-procedure TForm1.EditDesigner1KeyState(const CapsLock, NumLock, InsertKey,
- altKey, ctrlKey, shiftKey: Boolean);
-const
- OnOff: array[Boolean] of string = ('Off', 'On');
-begin
- StatusBar2.Panels[0].Text := 'Alt: ' + OnOff[altKey];
- StatusBar2.Panels[1].Text := 'Ctrl: ' + OnOff[ctrlKey];
- StatusBar2.Panels[2].Text := 'Shift: ' + OnOff[shiftKey];
- StatusBar2.Panels[3].Text := 'CapsLock: ' + OnOff[CapsLock];
- StatusBar2.Panels[4].Text := 'NumLock: ' + OnOff[NumLock];
- StatusBar2.Panels[5].Text := 'Insert: ' + OnOff[InsertKey];
-end;
-
-//Button Procedures-------------------------------------------------------------
-
-procedure TForm1.Bold1Click(Sender: TObject);
-begin
- EditDesigner1.SetFontBold;
-end;
-
-procedure TForm1.SetSelTextAsUndelline1Click(Sender: TObject);
-begin
- EditDesigner1.SetFontUnderline;
-end;
-
-procedure TForm1.Italic1Click(Sender: TObject);
-begin
- EditDesigner1.SetFontItalic;
-end;
-
-procedure TForm1.btnConnectDesignerClick(Sender: TObject);
-begin
- UpdateDesigner;
-end;
-
-procedure TForm1.btnRemoveDesignerClick(Sender: TObject);
-var
- I: Integer;
-begin
- if EditDesigner1.RemoveDesigner = S_OK then
- begin
- btnRemoveDesigner.Enabled := False;
- btnConnectDesigner.Enabled := not btnRemoveDesigner.Enabled;
- for I := 0 to Pred(StatusBar1.Panels.Count) do
- StatusBar1.Panels[I].Text := '';
- end;
-end;
-
-procedure TForm1.btnGoClick(Sender: TObject);
-begin
- EmbeddedWB1.Go(IEAddress1.Text);
- UpdateDesigner;
-end;
-
-//Private Procedures------------------------------------------------------------
-
-procedure TForm1.UpdatePageProperties;
-begin
- MemoDocumentInfo.Clear;
- MemoDocumentInfo.Lines.AddStrings(EditDesigner1.GetPageProperties);
-end;
-
-procedure TForm1.UpdateDesigner;
-begin
- if EditDesigner1.ConnectDesigner = S_OK then
- begin
- btnConnectDesigner.Enabled := False;
- btnRemoveDesigner.Enabled := not btnConnectDesigner.Enabled;
- UpdatePageProperties;
- end;
-end;
-
-procedure TForm1.Exit1Click(Sender: TObject);
-begin
- Close;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.dfm
deleted file mode 100644
index f83d7cc74c656284d4b91e23a8c2467681a8a4cb..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.dfm
+++ /dev/null
@@ -1,234 +0,0 @@
-object Form2: TForm2
- Left = 376
- Top = 366
- BorderStyle = bsSingle
- Caption = 'Export IE Favorites'
- ClientHeight = 511
- ClientWidth = 569
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 451
- Width = 569
- Height = 41
- Align = alBottom
- TabOrder = 0
- object Button1: TButton
- Left = 6
- Top = 8
- Width = 121
- Height = 25
- Caption = 'Export Favorites!'
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 492
- Width = 569
- Height = 19
- Panels = <>
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 108
- Width = 569
- Height = 223
- Align = alClient
- TabOrder = 2
- Silent = False
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
- ControlData = {
- 4C000000D1310000112A00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 569
- Height = 108
- Align = alTop
- TabOrder = 3
- object Label1: TLabel
- Left = 13
- Top = 12
- Width = 58
- Height = 13
- Caption = 'TargetPath:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 13
- Top = 43
- Width = 79
- Height = 13
- Caption = 'TargetFileName:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 13
- Top = 75
- Width = 53
- Height = 13
- Caption = 'HTML Title:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object ChkNavigateOnComplete: TCheckBox
- Left = 323
- Top = 8
- Width = 153
- Height = 17
- Caption = 'NavigateOnComplete'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 0
- end
- object edTargetPath: TEdit
- Left = 104
- Top = 8
- Width = 170
- Height = 21
- TabOrder = 1
- Text = 'C:\'
- end
- object edHTMLTitle: TEdit
- Left = 104
- Top = 72
- Width = 170
- Height = 21
- TabOrder = 2
- Text = '* Exported Favorites *'
- end
- end
- object ChkExploreFavFileOnComplete: TCheckBox
- Left = 323
- Top = 32
- Width = 185
- Height = 17
- Caption = 'ExploreFavFileOnComplete'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 4
- end
- object edTargetFileName: TEdit
- Left = 104
- Top = 40
- Width = 170
- Height = 21
- TabOrder = 5
- Text = 'newbook.htm'
- end
- object Log: TListBox
- Left = 0
- Top = 354
- Width = 569
- Height = 97
- Align = alBottom
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 6
- end
- object Panel3: TPanel
- Left = 0
- Top = 331
- Width = 569
- Height = 23
- Align = alBottom
- TabOrder = 7
- object Label4: TLabel
- Left = 13
- Top = 5
- Width = 48
- Height = 13
- Caption = 'Error Log:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- end
- object ExportFavorite1: TExportFavorite
- About =
- 'TExportFavorites by bsalsa. Help & Support: http://www.bsalsa.co' +
- 'm/'
- ExploreFavFileOnComplete = True
- FavoritesPath = 'Auto'
- NavigateOnComplete = True
- StatusBar = StatusBar1
- SuccessMessage.Strings = (
- #39'Your favorites have been successfully exported to %s'#39)
- TargetFileName = 'newbook.htm'
- TargetPath = 'f:'
- EmbeddedWB = EmbeddedWB1
- Localization.TargetPathInvalid = 'The target path is invalid.'
- Localization.TargetFileNameInvalid = 'The target file name is invalid.'
- Localization.TargetFileNameExtInvalid = 'The target file name extension is invalid. It must be "*.htm".'
- Localization.FavoritesPathInvalid = 'The Favorites Path is invalid.'
- Localization.NoSuccessMessage = 'You must enter a SuccessMessage or turn off messages.'
- Localization.ChangeItMessage = 'Please change it.'
- Localization.HTMLTitle = 'Exported Favorites'
- OnError = ExportFavorite1Error
- OnSuccess = ExportFavorite1Success
- Left = 32
- Top = 120
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.pas
deleted file mode 100644
index 88154da89a2073285c4a25c814f5786fe982e9dc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/Unit1.pas
+++ /dev/null
@@ -1,78 +0,0 @@
-unit Unit1;
-
-interface
-
-{$I EWB.inc}
-
-uses
- ExportFavorites, StdCtrls, Dialogs, Controls, OleCtrls, SHDocVw_EWB, EwbCore,
- EmbeddedWB, ComCtrls, Forms, Classes, ExtCtrls{$IFDEF DELPHI7_UP}, XPMan{$ENDIF};
-
-type
- TForm2 = class(TForm)
- Panel1: TPanel;
- Button1: TButton;
- StatusBar1: TStatusBar;
- ExportFavorite1: TExportFavorite;
- EmbeddedWB1: TEmbeddedWB;
- Panel2: TPanel;
- ChkExploreFavFileOnComplete: TCheckBox;
- ChkNavigateOnComplete: TCheckBox;
- edTargetFileName: TEdit;
- Label1: TLabel;
- edTargetPath: TEdit;
- Label2: TLabel;
- Log: TListBox;
- edHTMLTitle: TEdit;
- Label3: TLabel;
- Panel3: TPanel;
- Label4: TLabel;
- procedure Button1Click(Sender: TObject);
- procedure ExportFavorite1Success(Sender: TObject; const Msg: string);
- procedure ExportFavorite1Error(Sender: TObject; const ErrorMsg: String;
- const ErrorCode: Byte);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form2: TForm2;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.Button1Click(Sender: TObject);
-begin
- Log.Clear;
- with ExportFavorite1 do
- begin
- ExploreFavFileOnComplete := ChkExploreFavFileOnComplete.Checked;
- NavigateOnComplete := ChkNavigateOnComplete.Checked;
- TargetFileName := edTargetFileName.Text;
- TargetPath := edTargetPath.Text;
- ExportFavorite1.Localization.HTMLTitle := edHTMLTitle.Text;
- ExportFavorites;
- end;
-end;
-
-procedure TForm2.ExportFavorite1Success(Sender: TObject;
- const Msg: string);
-begin
- MessageDlg(Msg, mtInformation, [MbOk], 0);
-end;
-
-procedure TForm2.ExportFavorite1Error(Sender: TObject;
- const ErrorMsg: String; const ErrorCode: Byte);
-begin
- Log.Items.add(ErrorMsg + ' - ' + ExportFavorite1.Localization.ChangeItMessage);
- case ErrorCode of
- ERROR_FAV_TARGET_PATH_INVALID: edTargetPath.SetFocus;
- ERROR_FAV_TARGET_FILENAME_INVALID: edTargetFileName.SetFocus;
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/prjExportFavoritesDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/prjExportFavoritesDemo.dpr
deleted file mode 100644
index da7631c83c0fdc62702cb66ac1d6f07a9130259e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/02 - ExportFavorites_Demo/prjExportFavoritesDemo.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program prjExportFavoritesDemo;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form2};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm2, Form2);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/frmMain.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/frmMain.dfm
deleted file mode 100644
index 3eb30557d932b6642df161174bae82f7ccddeb65..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/frmMain.dfm
+++ /dev/null
@@ -1,367 +0,0 @@
-object Form1: TForm1
- Left = 261
- Top = 168
- BorderStyle = bsSingle
- Caption = 'File Association Demo'
- ClientHeight = 359
- ClientWidth = 403
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object StatusBar1: TStatusBar
- Left = 0
- Top = 341
- Width = 403
- Height = 18
- Panels = <
- item
- Width = 170
- end
- item
- Width = 50
- end>
- SimplePanel = False
- end
- object Panel2: TPanel
- Left = 0
- Top = 288
- Width = 403
- Height = 53
- Align = alBottom
- TabOrder = 1
- object Image1: TImage
- Left = 348
- Top = 10
- Width = 41
- Height = 37
- end
- object Label5: TLabel
- Left = 149
- Top = 18
- Width = 51
- Height = 13
- Caption = 'Extension:'
- end
- object bttGetIcon: TButton
- Left = 6
- Top = 13
- Width = 121
- Height = 21
- Caption = 'Icon of extension'
- TabOrder = 0
- OnClick = bttGetIconClick
- end
- object edtIcon: TEdit
- Left = 206
- Top = 13
- Width = 121
- Height = 21
- TabOrder = 1
- Text = 'html'
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 403
- Height = 137
- Align = alTop
- TabOrder = 2
- object Label1: TLabel
- Left = 151
- Top = 16
- Width = 51
- Height = 13
- Caption = 'Extension:'
- end
- object Label2: TLabel
- Left = 151
- Top = 40
- Width = 51
- Height = 13
- Caption = 'Extension:'
- end
- object Label3: TLabel
- Left = 151
- Top = 67
- Width = 51
- Height = 13
- Caption = 'Extension:'
- end
- object btnExecute: TButton
- Left = 11
- Top = 13
- Width = 105
- Height = 21
- Caption = 'Execute Extension'
- TabOrder = 0
- OnClick = btnExecuteClick
- end
- object btnRemove: TButton
- Left = 11
- Top = 40
- Width = 105
- Height = 21
- Caption = 'Remove Extension'
- TabOrder = 1
- OnClick = btnRemoveClick
- end
- object edtExt: TEdit
- Left = 208
- Top = 13
- Width = 177
- Height = 21
- TabOrder = 2
- Text = 'bsalsa'
- end
- object edtRemove: TEdit
- Left = 208
- Top = 40
- Width = 177
- Height = 21
- TabOrder = 3
- end
- object btnCheck: TButton
- Left = 11
- Top = 67
- Width = 105
- Height = 21
- Caption = 'Check Extensions'
- TabOrder = 4
- OnClick = btnCheckClick
- end
- object edtCheck: TEdit
- Left = 208
- Top = 67
- Width = 177
- Height = 21
- TabOrder = 5
- end
- object edtPath: TEdit
- Left = 6
- Top = 98
- Width = 379
- Height = 21
- TabOrder = 6
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 137
- Width = 403
- Height = 151
- Align = alClient
- TabOrder = 3
- object Image2: TImage
- Left = 332
- Top = 52
- Width = 41
- Height = 37
- end
- object Label4: TLabel
- Left = 317
- Top = 95
- Width = 68
- Height = 13
- Caption = 'Image Numer:'
- end
- object Label7: TLabel
- Left = 332
- Top = 33
- Width = 21
- Height = 13
- Caption = 'Icon'
- end
- object lbNum: TLabel
- Left = 352
- Top = 107
- Width = 29
- Height = 13
- Caption = 'lbNum'
- end
- object MemoFileInfo: TMemo
- Left = 11
- Top = 34
- Width = 300
- Height = 85
- TabOrder = 0
- end
- object edtPath2: TEdit
- Left = 133
- Top = 6
- Width = 252
- Height = 21
- TabOrder = 1
- end
- object btnFileType: TButton
- Left = 8
- Top = 7
- Width = 119
- Height = 21
- Caption = 'File Info By Path'
- TabOrder = 2
- OnClick = btnFileTypeClick
- end
- end
- object FileExtAssociate1: TFileExtAssociate
- About =
- 'File Extension Associate component by bsalsa. Help & Support: ht' +
- 'tp://www.bsalsa.com/'
- ExtensionAssociate.Extensions.Strings = (
- 'bsalsa'
- 'bsalsa1')
- ApplicationDetails.Title = 'File Extension Demo'
- ApplicationDetails.Icon.Data = {
- 0000010001002020200000000000A81000001600000028000000200000004000
- 0000010020000000000000100000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000AA9FAA00555F5500553F5500555F5500003F5500555F5500553F5500555F
- 2A00553F5500555F5500553F5500553F5500555F5500553F5500555F55000000
- 00000000000000000000005FAA00001F55000000000000000000000000000000
- 00000000000000000000000000000000000000000000005F5500553F5500557F
- AA00555F550080808000FF7F5500AA5F5500AA5F5500AA5F5500AA5F5500555F
- 550055BFD400559FAA0055BFD40000BFFF0055BFD400559FAA00553F55000000
- 00000000000000000000559FD400557FAA00005F5500001F5500001F2A00001F
- 550000002A00001F5500001F5500555F5500005F5500555FAA00557FAA0055BF
- D400555F5500FF7F5500A4A0A000AA7F5500AA5F5500AA5F2A00AA7F5500553F
- 5500559FAA00557FAA0000BFFF0055DFD40000BFFF0055BFD400553F55000000
- 0000000000000000000000000000005F7F00555FAA00557F7F00005FAA00005F
- 7F00557FAA0000808000555FAA00005FAA00557FAA00559FAA00007FAA00AA9F
- D400555F7F00AA9F7F00FF9FAA00AA5F5500AA5F5500AA5F5500AA3F5500555F
- 550055BFAA00559FD40055BFD40000BFFF0055DFD400009FFF00555F2A000000
- 0000000000000000000000000000559FD400555F7F00005FAA00557FAA00557F
- D400559FAA00557FD400559FAA00557FAA00007FAA00007FAA00555FAA00559F
- D400557F5500FF7F7F00AA9F7F00AA7F5500AA5F2A00AA5F5500AA7F5500553F
- 5500559FAA00007FAA0055DFD40055BFFF0000DFFF0055BFD400555F55000000
- 000000000000000000000000000000000000005F7F00007FAA00005FAA000080
- 8000555FAA00007FAA00005FAA00007FAA00555FAA00005FAA00007FAA00AA9F
- AA00555F7F00AA9F5500FF9FAA00AA5F5500AA5F5500AA5F5500AA5F5500555F
- 2A00559FD40055BFD40055BFFF0055DFD40055BFFF0000BFD400553F55000000
- 000000000000000000000000000000000000003F5500555FAA00005FAA00557F
- AA00005FAA00557FAA00005FAA00555FAA00005FAA00007FAA00005FAA00AABF
- D400555F5500553F5500553F5500555F5500553F5500555F2A00553F5500555F
- 5500555F5500553F5500555F2A00553F5500555F5500553F5500555F55000000
- 000000000000000000000000000000000000553F5500007FAA00557FAA00005F
- AA00005FAA00005FAA00557FAA00005FAA00557FAA00005FAA00557FAA00559F
- D400555F5500559FFF00559FD400551FD400003FD400553FD400003FAA00553F
- 550055BFAA00557F5500559F7F0055BF7F0055BF7F0055BF7F00553F55000000
- 000000000000000000000000000000000000005F5500005FAA00001F5500555F
- 7F00005FAA00557FAA00005FAA00557FAA00005FAA00557FAA00007FAA00AA9F
- D40080808000007FD400557FD400005FD400553FAA00003FD400553FAA00553F
- 5500559F5500559F7F0055BF550055BFAA0055BF7F00557F5500555F55000000
- 0000000000000000000000000000005FAA00555F7F00AABFAA00C0DCC000559F
- AA00553F5500005FAA00557FAA00007FAA00557FAA00007FD400557FAA0055BF
- D400555F5500557FD400559FFF00551FAA00003FD400555FD400001FAA00555F
- 5500AABFAA00007F550055BFAA0055BFAA0055BF7F0055BF7F00553F55000000
- 0000000000000000000000000000559FAA00557FAA00FFFFFF00FFFFFF00FFFF
- FF00555FAA00005F5500005FAA00557FD400007FAA00557FAA00007FAA00AA9F
- D40080808000559FD400007FD400005FD400553FAA00003FD400557FD400553F
- 5500559F7F00559F5500559F550055BF7F0055BFAA00559F5500555F55000000
- 000000000000000000000000000000000000557FAA0000808000FFFFFF00557F
- D400005F5500557FD400559FAA00559FD400557FD400559FD400559FD40055BF
- D400555F5500559FFF00557FD400551FD400003FD400553FD400553FAA00555F
- 5500559F7F00557F550055BF7F0055BF7F0055BFAA0055BF7F00553F55000000
- 00000000000000000000000000000000000000000000557FAA00557FAA00003F
- 5500559FD400559FD400559FD400559FD400559FD400559FD400559FD400AABF
- D400AA9FAA00555F5500555F5500557F5500555F7F00555F5500555F7F00555F
- 5500557F7F00555F7F00555F5500555F5500555F5500555F5500AA9FAA000000
- 00000000000000000000000000000000000000000000557FAA00557FAA00559F
- D40055BFD40055BFD40055BFFF0055BFD40055BFFF0055BFD40055BFD40055BF
- D400AADFFF00AABFFF00AADFFF00AABFD400AABFD40055DFD400AABFD400AABF
- FF00A4A0A000AADFD400AA7FAA00555FAA00555FAA0080808000555F7F000000
- 0000000000000000000000000000000000000000000000000000559FAA0055BF
- D40055BFD400AADFFF0055DFD40055DFFF00AADFD40055DFFF0055DFD400AADF
- FF0055BFD400AADFFF0055BFD400559FFF00559FD400557FD400559FD400559F
- AA00007FAA00AA9FD400003F7F00000055000000550000005500000055000000
- 000000000000000000000000000000000000000000000000000000000000559F
- D40055DFD40055DFFF00AADFFF0055FFFF0055FFFF00AADFFF0055FFFF0055DF
- FF00AAFFFF0055BFD400AADFFF0055BFD400559FD400559FD400559FD400557F
- D400559FAA00559FAA00551F550000007F00000055000000550000002A000000
- 000000000000000000000000000000000000000000000000000000000000557F
- AA0055BFD40055BFD40055DFFF0055FFFF00AADFFF0055DFFF00AAFFFF00AADF
- FF0055DFFF00AADFFF0055BFFF00559FD400009FD400559FD400559FD4000080
- 8000559FD400AA9FD4000000550000005500000055000000550000002A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000555FAA00559FD400559FD40055BFD40055DFD40055DFFF0055DFD40055DF
- FF0055BFD40055BFD400559FD400559FD400559FD400559FD400557FAA00559F
- D400559FD400555F550000007F0000007F0000007F0000005500000055000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000557FAA00559FAA00559FD400559FD400559FD400559FD400559F
- D400559FD400559FD400559FD400559FD400559FD400557FAA00559FD400559F
- D400557FAA00001F5500001F7F00551F55000000550000007F00000055000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000005FAA00557FAA00557FD400559FD400559FD400559FD400559F
- D400559FD400559FAA00559FD400557FAA00557FD40055BFD40055BFD400559F
- D400553F5500000080000000800000007F000000550000005500553F7F000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000005F7F00559FAA00559FAA00009FAA00557FAA0000808000557FAA00557F
- AA0000808000557FAA00559FD40055BFD40055DFD40055BFD40055BFD400555F
- 550055007F00001F7F00551F550000007F0000007F0000007F00003F7F000000
- 000000000000000000000000000000000000000000000000000000000000557F
- 7F00555F7F00007FD400559FD400559FAA0055BFD40055BFD40055DFFF0055DF
- FF00AADFFF0055FFFF0055DFD400AADFFF0055BFFF0055BFD400555F55005500
- AA00001F55000000800000008000001F7F000000800000005500000000000000
- 0000000000000000000000000000000000000000000000000000555F5500553F
- 5500003FAA00559FAA00009FAA00559FD40055BFD40055BFFF0055DFD400AADF
- FF0055FFFF0055DFFF00AADFFF0055DFD400559FD400555F5500001F55000000
- AA000000AA00551F55000000AA000000800000008000003F7F00000000000000
- 000000000000000000000000000000000000003F7F00003F55000000AA00001F
- D400553F7F00555F7F00553F7F00557FAA00559FAA0055BFD40055DFFF0055DF
- D400AADFFF0055DFD400559FD400555F7F00555F55005500AA000000AA00001F
- 5500000080000000AA00001F5500000080005500550000000000000000000000
- 0000000000000000000000000000553FAA00003F55000000D4000000D4005500
- D400000080000000D400551FAA00553FAA00553F7F00555F5500555F5500557F
- 5500555F5500553F5500553FAA00001FAA000000AA00001F55000000AA000000
- AA000000AA000000AA000000800000008000003F7F0000000000000000000000
- 000000000000003F7F00553F55000000AA000000D4000000D4005500D4000000
- 80000000D4000000D400000080000000D400000080000000D4000000AA000000
- 80000000D40000007F000000AA000000AA000000AA000000AA00551F55000000
- AA000000AA00000080000000AA00003F7F00000000000000000000000000553F
- 7F00003F7F000000AA000000D4000000D4000000D4005500FF00000080000000
- D4000000AA000000D400001FAA005500D400000080000000D4000000D4000000
- AA000000AA000000AA000000AA000000AA000000D4000000AA000000AA000000
- 80000000AA000000AA0000007F00000000000000000000000000000000000000
- 80000000D4000000D400555FD4000000D4005500D400555FAA000000D4000000
- D4000000D400000080005500D4000000D4000000D4000000AA000000D4000000
- D4000000D4000000AA000000AA000000AA000000AA000000AA000000D4000000
- AA0000008000553F7F0000000000000000000000000000000000000000000000
- 000000008000AA9FD4000000D4000000D400555FD4000000D4000000D4000000
- D4000000D4000000D4005500D4000000AA000000D4000000AA000000D4000000
- AA000000AA000000D4000000AA000000D4000000AA000000AA000000AA000000
- 8000003F7F000000000000000000000000000000000000000000000000000000
- 000000000000003F7F000000AA00AA9FD4000000D4000000D400555FD4000000
- D4000000D4000000D4000000AA00555FD4000000D400000080000000D4000000
- D4000000D4000000D4000000AA000000D4000000AA0000007F00003F7F000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000003F7F000000AA00AA9FD4000000D4000000
- D4000000D4000000D400AA9FFF000000AA000000D4000000D4000000D4000000
- AA000000D4000000D40000008000553F7F00003F7F0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000003F7F00000080000000
- 80000000AA0000008000555FAA000000AA000000800000008000000080000000
- AA00003F7F00553F7F0000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000FFFF
- 8000E7FC0000E0000000F0000000F0000000F8000000F8000000F8000000F800
- 0000F0000000F0000000F8000000FC000000FC000000FE000000FF000000FF00
- 0000FF800000FFC00000FFC00000FF800000FF000001FE000001F8000003F000
- 0003C00000070000000F0000001F8000003FC00000FFF00003FFFC001FFF}
- ApplicationShortcuts.Options = [SendTo, StartMenu, StartUp, Desktop, OpenWith, Programs, QuickLaunch, ProgramsSubDir]
- ApplicationShortcuts.MenuSubDir = 'File Extension '
- OnBusyStateChange = FileExtAssociate1BusyStateChange
- OnErrorText = FileExtAssociate1ErrorText
- OnSuccessText = FileExtAssociate1SuccessText
- OnComplete = FileExtAssociate1Complete
- Left = 248
- Top = 184
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/frmMain.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/frmMain.pas
deleted file mode 100644
index df575de597fbe9a854d362f7162fd5f42f97724f..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/frmMain.pas
+++ /dev/null
@@ -1,178 +0,0 @@
-{*******************************************************}
-{ File Associate demo }
-{ }
-{ For Delphi 5 - 2009 *
-{ by bsalsa - bsalsa@bsalsa.com }
-{ Please note our uses terms }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit frmMain;
-
-interface
-
-uses
- Classes, Graphics, Windows, Controls, Forms, SysUtils, StdCtrls, ComCtrls,
- FileExtAssociate, ExtCtrls;
-
-type
- TForm1 = class(TForm)
- StatusBar1: TStatusBar;
- FileExtAssociate1: TFileExtAssociate;
- Panel2: TPanel;
- bttGetIcon: TButton;
- edtIcon: TEdit;
- Image1: TImage;
- Panel3: TPanel;
- btnExecute: TButton;
- btnRemove: TButton;
- Label1: TLabel;
- Label2: TLabel;
- edtExt: TEdit;
- edtRemove: TEdit;
- Label5: TLabel;
- btnCheck: TButton;
- edtCheck: TEdit;
- Label3: TLabel;
- edtPath: TEdit;
- Panel1: TPanel;
- edtPath2: TEdit;
- btnFileType: TButton;
- Image2: TImage;
- Label4: TLabel;
- Label7: TLabel;
- lbNum: TLabel;
- MemoFileInfo: TMemo;
- procedure FormShow(Sender: TObject);
- procedure btnFileTypeClick(Sender: TObject);
- procedure bttGetIconClick(Sender: TObject);
- procedure FileExtAssociate1BusyStateChange(Sender: TObject);
- procedure FileExtAssociate1Complete(Extension, Status: string;
- HResult: HRESULT);
- procedure FileExtAssociate1SuccessText(Text: string);
- procedure FileExtAssociate1ErrorText(Text: string);
- procedure btnCheckClick(Sender: TObject);
- procedure btnRemoveClick(Sender: TObject);
- procedure btnExecuteClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.btnCheckClick(Sender: TObject);
-var
- st: string;
-begin
- st := FileExtAssociate1.GetExeByExtension(EdtCheck.Text);
- if st <> '' then
- EdtPath.Text := st
- else
- Statusbar1.Panels[0].Text := 'No association found.';
-end;
-
-procedure TForm1.btnExecuteClick(Sender: TObject);
-begin
- FileExtAssociate1.Execute;
-end;
-
-procedure TForm1.btnRemoveClick(Sender: TObject);
-begin
- FileExtAssociate1.Remove;
-end;
-
-procedure TForm1.bttGetIconClick(Sender: TObject);
-begin
- Image1.Picture.Icon.Handle :=
- FileExtAssociate1.GetIconByExtension(edtIcon.Text, False);
-end;
-
-procedure TForm1.btnFileTypeClick(Sender: TObject);
-var
- sl: TStringList;
-begin
- sl := TStringList.Create;
- try
- sl.Add('File Type: ' + FileExtAssociate1.GetFileTypeName(edtPath2.Text));
- sl.Add('Display Name: ' + FileExtAssociate1.GetFileDisplayName(edtPath2.Text));
- sl.Add('File Size: ' + FileExtAssociate1.GetFileSize(edtPath2.Text));
- sl.Add('File Creation Date: ' + DateTimeToStr(FileExtAssociate1.GetFileDateTime(edtPath2.Text)));
- Image2.Picture.Icon.Handle := FileExtAssociate1.GetFileIcon(edtPath2.Text);
- lbNum.Caption := IntToStr(FileExtAssociate1.GetFileImage(edtPath2.Text));
- MemoFileInfo.Lines.Clear;
- MemoFileInfo.Lines.AddStrings(sl);
- finally
- sl.Free;
- end;
-end;
-
-procedure TForm1.FileExtAssociate1BusyStateChange(Sender: TObject);
-begin
- btnExecute.Enabled := not FileExtAssociate1.Busy;
-end;
-
-procedure TForm1.FileExtAssociate1Complete(Extension, Status: string;
- HResult: HRESULT);
-begin
- if (HResult = S_OK) and (Pos('success', Status) <> 0) then
- begin
- edtRemove.Text := Extension;
- edtCheck.Text := Extension;
- edtIcon.Text := Extension;
- EdtExt.Text := '';
- end;
- if (HResult = S_OK) and (Pos('Un', Status) <> 0) then
- begin
- edtRemove.Text := '';
- edtCheck.Text := Extension;
- EdtExt.Text := Extension;
- end;
-end;
-
-procedure TForm1.FileExtAssociate1ErrorText(Text: string);
-begin
- Statusbar1.Panels[1].Text := 'Errors: ' + Text;
-end;
-
-procedure TForm1.FileExtAssociate1SuccessText(Text: string);
-begin
- Statusbar1.Panels[0].Text := Text;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- edtPath2.Text := ExtractFilePath(Application.ExeName);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/prjFile_AssDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/prjFile_AssDemo.dpr
deleted file mode 100644
index 97044c666b284ea25d0532ba9b81fe6112aeafcf..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/03 - FileAssociate_Demo/prjFile_AssDemo.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-{*******************************************************}
-{ File Associate demo }
-{ }
-{ For Delphi 5, 6, 7, 2005, 2006 }
-{ by bsalsa - bsalsa@bsalsa.com }
-{ Please note our uses terms }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjFile_AssDemo;
-
-uses
- Forms,
- frmMain in 'frmMain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/IEGuidList.txt b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/IEGuidList.txt
deleted file mode 100644
index 8b137891791fe96927ad78e64b0aad7bded08bdc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/IEGuidList.txt
+++ /dev/null
@@ -1 +0,0 @@
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/prjGuidCreatorDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/prjGuidCreatorDemo.dpr
deleted file mode 100644
index 2aecffc891c6d6b929e95f8f569d9637c7d4cebb..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/prjGuidCreatorDemo.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-//*************************************************************
-// GuidCreator *
-// *
-// by *
-// bsalsa - Eran Bodankin *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjGuidCreatorDemo;
-
-uses
- Forms,
- utGuidCreator in 'utGuidCreator.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/utGuidCreator.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/utGuidCreator.dfm
deleted file mode 100644
index baebb29975c8d3a6563dab4f0f16ae00d6bba1e3..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/utGuidCreator.dfm
+++ /dev/null
@@ -1,293 +0,0 @@
-object Form1: TForm1
- Left = 353
- Top = 207
- Width = 684
- Height = 586
- Caption = 'bsalsa - Guid Creator'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 676
- Height = 193
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 121
- Top = 44
- Width = 73
- Height = 13
- Caption = 'Headers Folder'
- end
- object Label2: TLabel
- Left = 134
- Top = 64
- Width = 60
- Height = 13
- Caption = 'SaveFileAs..'
- end
- object Label3: TLabel
- Left = 134
- Top = 83
- Width = 60
- Height = 13
- Caption = 'SaveFileAs..'
- end
- object LinkLabel1: TLinkLabel
- Left = 1
- Top = 1
- Width = 674
- Height = 29
- AutoSize = False
- TextRun.Enable = True
- Launch.AsHttp.Address = 'bsalsa.com/ie_guid.html'
- TextEffects = teRunning
- Layout = tlTop
- Align = alTop
- Caption = 'Instructions'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object LinkLabel3: TLinkLabel
- Left = 17
- Top = 44
- Width = 87
- Height = 29
- AutoSize = False
- Launch.AsHttp.Address =
- 'msdn.microsoft.com/archive/default.asp?url=/archive/en-us/sample' +
- 's/internet/libraries/ie6_lib/default.asp'
- Caption = 'DownloadHeaders'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object btnIEGuid: TButton
- Left = 615
- Top = 53
- Width = 48
- Height = 21
- Caption = 'Browse'
- TabOrder = 0
- OnClick = btnIEGuidClick
- end
- object btnHPath: TButton
- Left = 615
- Top = 25
- Width = 48
- Height = 22
- Caption = 'Browse'
- TabOrder = 1
- OnClick = btnHPathClick
- end
- object btnCreateIEGuid: TButton
- Left = 17
- Top = 63
- Width = 97
- Height = 21
- Caption = 'CreateIEGuid'
- TabOrder = 2
- OnClick = btnCreateIEGuidClick
- end
- object btnCreateIEList: TButton
- Left = 17
- Top = 82
- Width = 97
- Height = 21
- Caption = 'CreateIEList'
- TabOrder = 3
- OnClick = btnCreateIEListClick
- end
- object edtHPath: TEdit
- Left = 200
- Top = 37
- Width = 409
- Height = 21
- TabOrder = 4
- end
- object edtIEGuid: TEdit
- Left = 200
- Top = 61
- Width = 409
- Height = 21
- TabOrder = 5
- end
- object btnIEList: TButton
- Left = 615
- Top = 80
- Width = 48
- Height = 21
- Caption = 'Browse'
- TabOrder = 6
- OnClick = btnIEListClick
- end
- object edtIEList: TEdit
- Left = 200
- Top = 83
- Width = 409
- Height = 21
- TabOrder = 7
- end
- object cbOpenNotepad: TCheckBox
- Left = 17
- Top = 110
- Width = 184
- Height = 17
- Caption = 'Auto open in notepad when done'
- TabOrder = 8
- end
- object GroupBox1: TGroupBox
- Left = 4
- Top = 133
- Width = 659
- Height = 54
- Caption = 'Use after file created'
- Enabled = False
- TabOrder = 9
- object btnGetInterfaces: TButton
- Left = 281
- Top = 24
- Width = 82
- Height = 17
- Caption = 'GetInterfaces'
- TabOrder = 0
- OnClick = btnGetInterfacesClick
- end
- object btnConnectionP: TButton
- Left = 186
- Top = 22
- Width = 89
- Height = 19
- Caption = 'ConnectionPoints'
- TabOrder = 1
- OnClick = btnConnectionPClick
- end
- object btnGetServices: TButton
- Left = 369
- Top = 24
- Width = 75
- Height = 17
- Caption = 'GetServices'
- TabOrder = 2
- OnClick = btnGetServicesClick
- end
- object Button1: TButton
- Left = 13
- Top = 23
- Width = 167
- Height = 18
- Caption = 'Open Memo content In Notepad'
- TabOrder = 3
- OnClick = Button1Click
- end
- end
- end
- object PageControl1: TPageControl
- Left = 0
- Top = 193
- Width = 676
- Height = 359
- ActivePage = TabSheet2
- Align = alClient
- TabOrder = 1
- object TabSheet1: TTabSheet
- Caption = 'Memo1'
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 668
- Height = 331
- Align = alClient
- Lines.Strings = (
- '')
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'EmbeddedWB'
- ImageIndex = 1
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 29
- Width = 668
- Height = 302
- Align = alClient
- TabOrder = 0
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- OnQueryService = EmbeddedWB1QueryService
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'Mozilla/4.0(Compatible-EmbeddedWB 14.58 http://bsalsa.com/ '
- ControlData = {
- 4C0000000A450000F91D00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 668
- Height = 29
- Align = alTop
- Caption = 'Panel2'
- TabOrder = 1
- object IEAddress1: TIEAddress
- Left = 0
- Top = 5
- Width = 578
- Height = 22
- AutoNavigateOnLoad = False
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- EmbeddedWB = EmbeddedWB1
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 0
- end
- object btnGo: TButton
- Left = 584
- Top = 8
- Width = 75
- Height = 17
- Caption = 'Go'
- TabOrder = 1
- OnClick = btnGoClick
- end
- end
- end
- end
- object SaveDialog1: TSaveDialog
- Left = 624
- Top = 288
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/utGuidCreator.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/utGuidCreator.pas
deleted file mode 100644
index 84c3774b96b72233d8ebff921272199326de50f6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/GUID_Creator/utGuidCreator.pas
+++ /dev/null
@@ -1,280 +0,0 @@
-//*************************************************************
-// GuidCreator *
-// *
-// by *
-// bsalsa - Eran Bodankin *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit utGuidCreator;
-
-interface
-
-uses
- Messages, SysUtils, IEGuid, Classes, Controls,
- Forms, Dialogs, StdCtrls, ExtCtrls, Browse4Folder, IEAddress, OleCtrls,
- SHDocVw_EWB, EmbeddedWB, ComCtrls, LinkLabel, EwbCore;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- btnIEGuid: TButton;
- btnHPath: TButton;
- btnCreateIEGuid: TButton;
- btnCreateIEList: TButton;
- Label1: TLabel;
- edtHPath: TEdit;
- edtIEGuid: TEdit;
- Label2: TLabel;
- SaveDialog1: TSaveDialog;
- Label3: TLabel;
- btnIEList: TButton;
- edtIEList: TEdit;
- cbOpenNotepad: TCheckBox;
- GroupBox1: TGroupBox;
- btnGetInterfaces: TButton;
- btnConnectionP: TButton;
- btnGetServices: TButton;
- Button1: TButton;
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- Memo1: TMemo;
- TabSheet2: TTabSheet;
- EmbeddedWB1: TEmbeddedWB;
- Panel2: TPanel;
- IEAddress1: TIEAddress;
- btnGo: TButton;
- LinkLabel1: TLinkLabel;
- LinkLabel3: TLinkLabel;
- procedure FormDestroy(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure btnGoClick(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure btnGetServicesClick(Sender: TObject);
- procedure btnConnectionPClick(Sender: TObject);
- procedure btnGetInterfacesClick(Sender: TObject);
- procedure btnIEListClick(Sender: TObject);
- procedure btnCreateIEListClick(Sender: TObject);
- procedure btnCreateIEGuidClick(Sender: TObject);
- procedure btnHPathClick(Sender: TObject);
- procedure btnIEGuidClick(Sender: TObject);
- procedure EmbeddedWB1QueryService(Sender: TObject; const rsid,
- iid: TGUID; var Obj: IUnknown);
- end;
-
-var
- Form1: TForm1;
- WBGuids: TIEGuid;
-
-implementation
-
-uses
- Windows, ShellAPI, ActiveX, MSHTML_EWB, ShDocVw;
-
-{$R *.dfm}
-
-procedure TForm1.btnCreateIEGuidClick(Sender: TObject);
-begin
- if (edtIEGuid.Text = '') or (edtHPath.Text = '') then
- begin
- MessageDlg('Please enter a valid path and file name!', mtError, [mbOK], 0);
- Exit;
- end;
- Screen.Cursor := crHourGlass;
- try
- Memo1.Clear;
- Memo1.Lines.Add('Please Wait..');
- CreateIEGuid(edtHPath.Text, edtIEGuid.Text);
- Memo1.Lines.LoadFromFile(edtIEGuid.Text);
- if cbOpenNotepad.Checked then
- ShellExecute(Handle, 'open', 'notepad.exe', PChar(edtIEGuid.Text), nil, SW_SHOWNORMAL);
- GroupBox1.Enabled := True;
- finally
- Screen.Cursor := crDefault;
- end;
-end;
-
-procedure TForm1.btnCreateIEListClick(Sender: TObject);
-begin
- if (edtIEGuid.Text = '') or (edtIEList.Text = '') then
- begin
- MessageDlg('Please enter a valid path and file name!', mtError, [mbOK], 0);
- Exit;
- end;
- Screen.Cursor := crHourGlass;
- try
- Memo1.Clear;
- Memo1.Lines.Add('Please Wait..');
- CreateIEList(edtIEGuid.Text, edtIEList.Text);
- Memo1.Lines.LoadFromFile(edtIEList.Text);
- if cbOpenNotepad.Checked then
- ShellExecute(Handle, 'open', 'notepad.exe', PChar(edtIEGuid.Text), nil, SW_SHOWNORMAL);
- GroupBox1.Enabled := True;
- finally
- Screen.Cursor := crDefault;
- end;
-end;
-
-procedure TForm1.btnIEGuidClick(Sender: TObject);
-var
- sd: TSaveDialog;
-begin
- Sd := TSaveDialog.Create(Self);
- with Sd do
- begin
- FileName := 'GuidList.txt';
- InitialDir := ExtractFilePath(Forms.Application.ExeName);
- Filter := 'Text files|*.txt';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- end;
- if Sd.Execute then
- edtIEGuid.Text := Sd.FileName;
- Sd.Free;
-end;
-
-procedure TForm1.btnIEListClick(Sender: TObject);
-var
- sd: TSaveDialog;
-begin
- Sd := TSaveDialog.Create(Self);
- with Sd do
- begin
- FileName := 'IEGuidList.txt';
- InitialDir := ExtractFilePath(Forms.Application.ExeName);
- Filter := 'Text files|*.txt|Word files|*.doc';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- end;
- if Sd.Execute then
- edtIEList.Text := Sd.FileName;
- Sd.Free;
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- ShellExecute(Handle, 'open', 'notepad.exe', PChar(edtIEGuid.Text), nil, SW_SHOWNORMAL);
-end;
-
-procedure TForm1.EmbeddedWB1QueryService(Sender: TObject; const rsid,
- iid: TGUID; var Obj: IUnknown);
-begin
- Memo1.Lines.Add(WBGuids.NameFromGuid(rsid) + ' - ' + WBGuids.NameFromGuid(iid));
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- if not FileExists('IEGuidList.txt') then
- Memo1.Lines.SaveToFile(ExtractFilePath(Forms.Application.ExeName) + 'IEGuidList.txt'); //dummy To prevent a crash on load
- WBGuids := TIEGuid.Create(ExtractFilePath(Forms.Application.ExeName) + 'IEGuidList.txt');
- PageControl1.ActivePageIndex := 0;
- EmbeddedWB1.AssignEmptyDocument;
-end;
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- WBGuids.Free;
-end;
-
-procedure TForm1.btnGetServicesClick(Sender: TObject);
-var
- wb: TWebbrowser;
- MyGuids: TIEGuid;
-begin
- Memo1.Clear;
- WB := TWebbrowser.Create(Self);
- try
- MyGuids := TIEGuid.Create(edtIEList.Text);
- try
- MyGuids.GetServices(wb.Application, '', Memo1.lines);
- finally
- MyGuids.Free;
- end;
- finally
- WB.Free;
- end;
-end;
-
-procedure TForm1.btnGoClick(Sender: TObject);
-begin
- EmbeddedWB1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.btnConnectionPClick(Sender: TObject);
-var
- wb: TWebbrowser;
- MyGuids: TIEGuid;
-begin
- Memo1.Clear;
- MyGuids := TIEGuid.Create(edtIEList.Text);
- try
- WB := TWebbrowser.Create(Self);
- try
- MyGuids.GetConnectionPoints(wb.Document, Memo1.lines, TRUE);
- finally
- WB.Free;
- end;
- finally
- MyGuids.Free;
- end;
-end;
-
-procedure TForm1.btnGetInterfacesClick(Sender: TObject);
-var
- wb: TWebbrowser;
- MyGuids: TIEGuid;
-begin
- Memo1.Clear;
- MyGuids := TIEGuid.Create(edtIEList.Text);
- try
- WB := TWebbrowser.Create(Self);
- try
- MyGuids.GetInterfaces(WB.Application, Memo1.lines);
- finally
- WB.Free;
- end;
- finally
- MyGuids.Free;
- end;
-end;
-
-procedure TForm1.btnHPathClick(Sender: TObject);
-var
- b4f: TBrowse4Folder;
-begin
- b4f := TBrowse4Folder.Create(Self);
- try
- b4F.InitialDir := ExtractFilePath(Forms.Application.ExeName);
- edtHPath.Text := b4f.Execute2;
- finally
- b4f.Free;
- end;
-end;
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/IEGuidList.txt b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/IEGuidList.txt
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/ieguiddemo_u.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/ieguiddemo_u.dfm
deleted file mode 100644
index c5b286efee57ef2d4e07f275e9e5121fa7f06588..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/ieguiddemo_u.dfm
+++ /dev/null
@@ -1,205 +0,0 @@
-object Form1: TForm1
- Left = 303
- Top = 272
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'IEGUID demo'
- ClientHeight = 439
- ClientWidth = 695
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 199
- Top = 45
- Width = 76
- Height = 13
- Caption = 'Query Interface:'
- end
- object Label2: TLabel
- Left = 199
- Top = 208
- Width = 70
- Height = 13
- Caption = 'Query Service:'
- end
- object Label3: TLabel
- Left = 199
- Top = 330
- Width = 36
- Height = 13
- Caption = 'Events:'
- end
- object Label4: TLabel
- Left = 445
- Top = 66
- Width = 228
- Height = 18
- AutoSize = False
- Caption = 'Double-Click on the Interface or Service List to'
- WordWrap = True
- end
- object Label6: TLabel
- Left = 8
- Top = 8
- Width = 669
- Height = 16
- Caption =
- 'First, create a IEGuid.txt file using the Guid Creator, then cop' +
- 'y the files to this App folder and start.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label7: TLabel
- Left = 445
- Top = 82
- Width = 204
- Height = 18
- AutoSize = False
- Caption = 'copy the Code to the ClipBoard.'
- WordWrap = True
- end
- object TreeView1: TTreeView
- Left = 3
- Top = 30
- Width = 188
- Height = 401
- Indent = 19
- TabOrder = 0
- OnChange = TreeView1Change
- end
- object ListBox1: TListBox
- Left = 198
- Top = 64
- Width = 233
- Height = 138
- ItemHeight = 13
- TabOrder = 1
- OnDblClick = ListBox1DblClick
- end
- object ListBox2: TListBox
- Left = 199
- Top = 227
- Width = 232
- Height = 97
- ItemHeight = 13
- TabOrder = 2
- OnDblClick = ListBox2DblClick
- end
- object ListBox3: TListBox
- Left = 198
- Top = 349
- Width = 232
- Height = 82
- ItemHeight = 13
- TabOrder = 3
- end
- object GroupBox1: TGroupBox
- Left = 443
- Top = 113
- Width = 214
- Height = 89
- Caption = 'Include'
- TabOrder = 4
- object IUnknownBox: TCheckBox
- Left = 13
- Top = 18
- Width = 97
- Height = 17
- Caption = 'IUnknown'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = ServiceGroupClick
- end
- object IdispatchBox: TCheckBox
- Left = 13
- Top = 34
- Width = 97
- Height = 17
- Caption = 'IDispatch'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = ServiceGroupClick
- end
- object IdispatchExBox: TCheckBox
- Left = 13
- Top = 50
- Width = 97
- Height = 17
- Caption = 'IDispatchEx'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = ServiceGroupClick
- end
- object DispInterfacesBox: TCheckBox
- Left = 13
- Top = 66
- Width = 97
- Height = 17
- Caption = 'Dispinterfaces'
- Checked = True
- State = cbChecked
- TabOrder = 3
- OnClick = ServiceGroupClick
- end
- end
- object ServiceGroup: TRadioGroup
- Left = 442
- Top = 224
- Width = 215
- Height = 52
- Caption = 'Service group'
- ItemIndex = 0
- Items.Strings = (
- 'IID'
- 'SID_STopLevelBrowser')
- TabOrder = 5
- OnClick = ServiceGroupClick
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 451
- Top = 352
- Width = 47
- Height = 33
- TabOrder = 6
- Visible = False
- Silent = False
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'Mozilla/4.0(Compatible-EmbeddedWB 14.58 http://bsalsa.com/ '
- ControlData = {
- 4C0000005F080000100500000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/ieguiddemo_u.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/ieguiddemo_u.pas
deleted file mode 100644
index b25399f2e69f21b4144b537de0f305dc5f8c0a3e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/ieguiddemo_u.pas
+++ /dev/null
@@ -1,185 +0,0 @@
-{*******************************************************}
-{ EmbeddedWB - IEGuid Demo }
-{ by Per larsen }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************}
-
-unit ieguiddemo_u;
-
-interface
-
-uses
- Activex, IEGuid, Windows, Messages, SysUtils, Classes, Graphics, Controls,
- Forms, Dialogs, clipbrd, Mshtml_Ewb, StdCtrls, ComCtrls, OleCtrls, SHDocVw_EWB, EmbeddedWB,
- ExtCtrls, EwbCore;
-
-type
- TForm1 = class(TForm)
- TreeView1: TTreeView;
- ListBox1: TListBox;
- ListBox2: TListBox;
- ListBox3: TListBox;
- GroupBox1: TGroupBox;
- IUnknownBox: TCheckBox;
- IdispatchBox: TCheckBox;
- IdispatchExBox: TCheckBox;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- ServiceGroup: TRadioGroup;
- DispInterfacesBox: TCheckBox;
- Label4: TLabel;
- Label6: TLabel;
- EmbeddedWB1: TEmbeddedWB;
- Label7: TLabel;
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
- procedure ListBox1DblClick(Sender: TObject);
- procedure ListBox2DblClick(Sender: TObject);
- procedure UpdateLists;
- procedure FormShow(Sender: TObject);
- procedure ServiceGroupClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- MyGuids: TIEGuid;
- Form1: TForm1;
- IList: TInterfaceList;
- EmbeddedWBNode, DocumentNode: TTreeNode;
-
-implementation
-
-{$R *.DFM}
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- if not FileExists('IEGuidList.txt') then
- TreeView1.SaveToFile('IEGuidList.txt'); // dummy
- MyGuids := TIEGuid.Create('IEGuidList.txt');
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-var
- IDisp: IDispatch;
- x: Integer;
- sl: TStringlist;
- HTMLDoc4: IHTMLDocument4;
-begin
- EmbeddedWB1.AssignEmptyDocument;
- IList := TInterfaceList.Create;
- sl := TStringlist.Create;
- MyGuids.GetPropertylist(Embeddedwb1.Document, sl);
- TreeView1.ReadOnly := True;
- with TreeView1.Items do
- begin
- EmbeddedwbNode := Add(nil, 'EmbeddedWB');
- IList.Add(EmbeddedWB1);
- AddChild(EmbeddedWBNode, 'Application');
- IList.Add(EmbeddedWB1.Application);
- AddChild(EmbeddedWBNode, 'Document');
- IList.Add(EmbeddedWB1.Document);
- DocumentNode := TreeView1.Items[2];
- HTMLDoc4 := EmbeddedWB1.Doc4;
- if HTMLDoc4 <> nil then
- for x := 0 to sl.Count - 1 do
- begin
- try
- if (sl[x] <> 'parentDocument') and (sl[x] <> 'constructor') then
- begin
- IDisp := MyGuids.GetDispatchFromName(HTMLDoc4, sl[x]);
- AddChild(DocumentNode, sl[x]);
- IList.Add(IDisp);
- end;
- except
- caption := sl[x];
- Break;
- end;
- end;
- end;
- TreeView1.Items[0].Expand(True);
-end;
-
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- IList.Free;
- MyGuids.Free;
-end;
-
-procedure TForm1.UpdateLists;
-var
- SID: string;
-begin
- if ServiceGroup.ItemIndex = 1 then SID := 'SID_STopLevelBrowser' else sid := '';
- Listbox1.Clear;
- Listbox2.Clear;
- Listbox3.Clear;
- MyGuids.GetInterfacesEx(IList[Treeview1.Selected.AbsoluteIndex], listbox1.Items,
- IUnknownBox.Checked, IdispatchBox.Checked, IdispatchExBox.Checked, DispInterfacesBox.Checked);
- MyGuids.GetServices(IList[Treeview1.Selected.AbsoluteIndex], SID, listbox2.Items);
- MyGuids.GetConnectionpoints(IList[Treeview1.Selected.AbsoluteIndex], listbox3.Items, IDispatchBox.Checked);
-end;
-
-procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
-begin
- UpdateLists;
-end;
-
-procedure TForm1.ListBox1DblClick(Sender: TObject);
-var
- S: string;
-begin
- S := 'var' + #13 + 'ID : ' + Listbox1.Items[Listbox1.ItemIndex] + ';' + #13#13;
-
- if treeview1.Selected.Parent = DocumentNode then
- S := S + 'If SUCCEEDED((EmbeddedWB1.Document as IHTMLDocument4).' + Treeview1.Selected.Text +
- '.QueryInterface(' + Listbox1.Items[Listbox1.ItemIndex] + ', ID)) then' else
-
- if Treeview1.Selected.Text = 'Document' then
- S := S + 'If SUCCEEDED((EmbeddedWB1.Document as IHTMLDocument4).QueryInterface(' + Listbox1.Items[Listbox1.ItemIndex] +
- ', ID))' else
-
- if Treeview1.Selected.Text = 'Application' then
- S := S + 'If SUCCEEDED(EmbeddedWB1.Application.QueryInterface(' + Listbox1.Items[Listbox1.ItemIndex] + ', ID)) then' else
-
- if Treeview1.Selected.Text = 'EmbeddedWB' then
- S := S + 'If SUCCEEDED(EmbeddedWB1.QueryInterface(' + Listbox1.Items[Listbox1.ItemIndex] + ', ID)) then';
-
- ClipBoard.SetTextBuf(Pchar(s));
- Showmessage('Copied to Clipboard:' + #13#13#13 + S + #13);
-end;
-
-procedure TForm1.ListBox2DblClick(Sender: TObject);
-var
- S, SID: string;
-begin
- if ServiceGroup.ItemIndex = 1 then SID := 'SID_STopLevelBrowser' else sid := Listbox2.Items[Listbox2.ItemIndex];
- S := 'var' + #13 + 'ID : ' + Listbox2.Items[Listbox2.ItemIndex] + ';' + #13#13;
- if treeview1.Selected.Parent = DocumentNode then
- S := s + 'If SUCCEEDED(((IHTMLDocument4(EmbeddedWB1.Document).' + Treeview1.Selected.Text +
- ' as IServiceProvider).QueryService(' + SID + ', ' + Listbox2.Items[Listbox2.ItemIndex] + ',ID))) then' else
- if Treeview1.Selected.Text = 'Document' then
- S := s + 'If SUCCEEDED((EmbeddedWB1.Document as IServiceProvider).QueryService(' + SID + ', ' + Listbox2.Items[Listbox2.ItemIndex] + ',ID)) then' else
- if Treeview1.Selected.Text = 'Application' then
- S := s + 'If SUCCEEDED((EmbeddedWB1.Application as IServiceProvider).QueryService(' + SID + ', ' + Listbox2.Items[Listbox2.ItemIndex] + ',ID)) then' else
- if Treeview1.Selected.Text = 'EmbeddedWB' then
- S := s + 'If SUCCEEDED((EmbeddedWB1 as IServiceProvider).QueryService(' + SID + ', ' +
- Listbox2.Items[Listbox2.ItemIndex] + ',ID)) then';
- ClipBoard.SetTextBuf(Pchar(s));
- Showmessage('Copied to Clipboard:' + #13#13#13 + S + #13);
-end;
-
-procedure TForm1.ServiceGroupClick(Sender: TObject);
-begin
- UpdateLists;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/prjIEGuidDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/prjIEGuidDemo.dpr
deleted file mode 100644
index 0aaeb772f48f11469cbfa9726a293c1286381477..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/04 - GUID_Demo/IEGuid/prjIEGuidDemo.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program prjIEGuidDemo;
-
-uses
- Forms,
- ieguiddemo_u in 'ieguiddemo_u.pas' {Form1};
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/frmMain.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/frmMain.dfm
deleted file mode 100644
index 278d3bb17ee1c57572a6da8451c218e4226a829e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/frmMain.dfm
+++ /dev/null
@@ -1,250 +0,0 @@
-object Form1: TForm1
- Left = 210
- Top = 156
- Caption = 'IEAddress Demo'
- ClientHeight = 480
- ClientWidth = 635
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 635
- Height = 41
- Align = alTop
- TabOrder = 0
- DesignSize = (
- 635
- 41)
- object Button1: TButton
- Left = 585
- Top = 15
- Width = 41
- Height = 20
- Anchors = [akTop, akRight]
- Caption = 'GO'
- TabOrder = 0
- OnClick = Button1Click
- end
- object IEAddress1: TIEAddress
- Left = 10
- Top = 13
- Width = 569
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- OnGetAppIcon = IEAddress1GetAppIcon
- OnGetFavicon = IEAddress1GetFavicon
- ParentBiDiMode = True
- ShowFavicon = True
- TabOrder = 1
- TextOnShow = 'sssssss'
- Themes = tmXP
- end
- end
- object GroupBox1: TGroupBox
- Left = 450
- Top = 41
- Width = 185
- Height = 439
- Align = alRight
- Caption = 'Property Settings'
- TabOrder = 1
- object Label1: TLabel
- Left = 14
- Top = 205
- Width = 89
- Height = 13
- Caption = 'Drop Down Count:'
- end
- object Label3: TLabel
- Left = 6
- Top = 252
- Width = 59
- Height = 13
- Caption = 'DLL Version:'
- end
- object Image1: TImage
- Left = 22
- Top = 329
- Width = 35
- Height = 33
- end
- object Image2: TImage
- Left = 126
- Top = 330
- Width = 35
- Height = 32
- end
- object Label2: TLabel
- Left = 22
- Top = 295
- Width = 3
- Height = 13
- end
- object Label4: TLabel
- Left = 118
- Top = 295
- Width = 3
- Height = 13
- end
- object chkHasDropDown: TCheckBox
- Left = 16
- Top = 44
- Width = 97
- Height = 17
- Caption = 'HasDropDown'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkHasDropDownClick
- end
- object chkRegistryUpdate: TCheckBox
- Left = 16
- Top = 67
- Width = 97
- Height = 17
- Caption = 'RegistryUpdate'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = chkRegistryUpdateClick
- end
- object chkHasBorder: TCheckBox
- Left = 16
- Top = 21
- Width = 97
- Height = 17
- Caption = 'HasBorder'
- Checked = True
- State = cbChecked
- TabOrder = 3
- OnClick = chkHasBorderClick
- end
- object cbShowFavicons: TCheckBox
- Left = 16
- Top = 113
- Width = 95
- Height = 17
- Caption = 'ShowFavicons'
- Checked = True
- State = cbChecked
- TabOrder = 5
- OnClick = cbShowFaviconsClick
- end
- object cbShowAppIconToHtml: TCheckBox
- Left = 16
- Top = 90
- Width = 166
- Height = 17
- Caption = 'ShowAppIconOnHtml'
- Checked = True
- State = cbChecked
- TabOrder = 7
- OnClick = cbShowAppIconToHtmlClick
- end
- object chkAutoNavOnSelectLV: TCheckBox
- Left = 16
- Top = 159
- Width = 145
- Height = 17
- Caption = 'AutoNavOnSelectLV'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = chkAutoNavOnSelectLVClick
- end
- object edtDLL: TEdit
- Left = 6
- Top = 268
- Width = 171
- Height = 21
- ReadOnly = True
- TabOrder = 4
- end
- object Button2: TButton
- Left = 71
- Top = 224
- Width = 83
- Height = 22
- Caption = 'Drop Down List'
- TabOrder = 6
- OnClick = Button2Click
- end
- object chkAutoNavigateOnDblClk: TCheckBox
- Left = 16
- Top = 182
- Width = 153
- Height = 17
- Caption = 'AutoNavigateOnDblClk'
- Checked = True
- State = cbChecked
- TabOrder = 8
- end
- object chkAutoNavigateOnEnterKey: TCheckBox
- Left = 16
- Top = 136
- Width = 145
- Height = 17
- Caption = 'AutoNavigateOnEnterKey'
- Checked = True
- State = cbChecked
- TabOrder = 9
- OnClick = chkAutoNavigateOnEnterKeyClick
- end
- object SpinDropDownCount: TSpinEdit
- Left = 14
- Top = 224
- Width = 49
- Height = 22
- EditorEnabled = False
- MaxLength = 3
- MaxValue = 100
- MinValue = 1
- TabOrder = 10
- Value = 15
- end
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 41
- Width = 450
- Height = 439
- Align = alClient
- TabOrder = 2
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'MyBrowser'
- ControlData = {
- 4C000000822E00005F2D00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object ImageList1: TImageList
- Left = 88
- Top = 328
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/frmMain.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/frmMain.pas
deleted file mode 100644
index c4575c6c4fa7630ce317cfaee6d63c91eea817ba..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/frmMain.pas
+++ /dev/null
@@ -1,176 +0,0 @@
-{*******************************************************}
-{ IEAddress Demo 31/05/2006 }
-{ by Eran Bodankin (bsalsa) bsalsa@bsalsa.com }
-{ Enjoy! }
-{ For Delphi 5 - 2009 }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. You may consider donation in our web site!
-{*******************************************************************************}
-
-unit frmMain;
-
-interface
-
-uses
- Windows, EWBAcc, sysUtils, Graphics, Classes, Controls, Forms, EmbeddedWB, StdCtrls, IEAddress,
- ExtCtrls, Spin, SHDocVw_EWB, LinkLabel, ImgList, ComCtrls, OleCtrls, ActiveX, Dialogs,
- EwbCore;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Button1: TButton;
- GroupBox1: TGroupBox;
- Label1: TLabel;
- chkHasDropDown: TCheckBox;
- chkRegistryUpdate: TCheckBox;
- chkHasBorder: TCheckBox;
- IEAddress1: TIEAddress;
- cbShowFavicons: TCheckBox;
- cbShowAppIconToHtml: TCheckBox;
- chkAutoNavOnSelectLV: TCheckBox;
- Label3: TLabel;
- edtDLL: TEdit;
- Button2: TButton;
- chkAutoNavigateOnDblClk: TCheckBox;
- chkAutoNavigateOnEnterKey: TCheckBox;
- SpinDropDownCount: TSpinEdit;
- Image1: TImage;
- Image2: TImage;
- Label2: TLabel;
- Label4: TLabel;
- ImageList1: TImageList;
- EmbeddedWB1: TEmbeddedWB;
- procedure IEAddress1GetAppIcon(Sender: TObject; var Cancel: Boolean;
- Icon: TIcon);
- procedure IEAddress1GetFavicon(Sender: TObject; Favicon,
- SiteUrl: WideString; var Cancel: Boolean; Icon: TIcon);
- procedure Button3Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure chkAutoNavOnSelectLVClick(Sender: TObject);
- procedure cbShowAppIconToHtmlClick(Sender: TObject);
- procedure cbShowFaviconsClick(Sender: TObject);
- procedure chkHasBorderClick(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure chkAutoNavigateOnDblClkClick(Sender: TObject);
- procedure chkAutoNavigateOnEnterKeyClick(Sender: TObject);
- procedure chkHasDropDownClick(Sender: TObject);
- procedure chkRegistryUpdateClick(Sender: TObject);
- procedure SpinDropDownCountChange(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.chkAutoNavOnSelectLVClick(Sender: TObject);
-begin
- IEAddress1.AutoNavigateOnSelected := chkAutoNavOnSelectLV.Checked;
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- EmbeddedWB1.Go(IEAddress1.Text);
- edtDll.Text := FloatToStr(IEAddress1.GetDllVersion('Shlwapi.dll'));
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- IEAddress1.DroppedDown := True;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- IEAddress1.Flat := True;
-end;
-
-procedure TForm1.cbShowAppIconToHtmlClick(Sender: TObject);
-begin
- IEAddress1.UseAppIcon := cbShowAppIconToHtml.Checked;
-end;
-
-procedure TForm1.cbShowFaviconsClick(Sender: TObject);
-begin
- IEAddress1.ShowFavicon := cbShowFavicons.Checked;
-end;
-
-procedure TForm1.chkAutoNavigateOnDblClkClick(Sender: TObject);
-begin
- IEAddress1.AutoNavigateOnDblClk := chkAutoNavigateOnDblClk.Checked;
-end;
-
-procedure TForm1.chkAutoNavigateOnEnterKeyClick(Sender: TObject);
-begin
- IEAddress1.AutoNavigateOnEnterKey := chkAutoNavigateOnEnterKey.Checked;
-end;
-
-procedure TForm1.chkHasDropDownClick(Sender: TObject);
-begin
- IEAddress1.HasDropDown := chkHasDropDown.Checked;
-end;
-
-procedure TForm1.chkRegistryUpdateClick(Sender: TObject);
-begin
- IEAddress1.UpdateItemsToRegistry := chkRegistryUpdate.Checked;
-end;
-
-procedure TForm1.IEAddress1GetAppIcon(Sender: TObject; var Cancel: Boolean;
- Icon: TIcon);
-begin
- if IEAddress1.UseAppIcon then
- begin
- Image2.Picture.Icon := Icon;
- Label4.Caption := 'App Icon:'
- end;
-end;
-
-procedure TForm1.IEAddress1GetFavicon(Sender: TObject; Favicon,
- SiteUrl: WideString; var Cancel: Boolean; Icon: TIcon);
-begin
- if IEAddress1.ShowFavicon then
- begin
- Image1.Picture.Icon := Icon;
- Label2.Caption := 'Favicon:';
- end;
-end;
-
-procedure TForm1.SpinDropDownCountChange(Sender: TObject);
-begin
- IEAddress1.DropDownCount := SpinDropDownCount.Value;
-end;
-
-procedure TForm1.chkHasBorderClick(Sender: TObject);
-begin
- IEAddress1.HasBorder := chkHasBorder.Checked;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/prjIEAddressDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/prjIEAddressDemo.dpr
deleted file mode 100644
index 7f5738542843ca5ea2f23081183c94e9d5ccb428..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/05 - IEAddress_Demo/prjIEAddressDemo.dpr
+++ /dev/null
@@ -1,14 +0,0 @@
-program prjIEAddressDemo;
-
-uses
- ExceptionLog,
- Forms,
- frmMain in 'frmMain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.dfm
deleted file mode 100644
index 46244e3e1fa6dbfb4de2a6c0743eba0522060520..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.dfm and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.pas
deleted file mode 100644
index b855e7608cc1148fb184ed1b5c43be89f1d3c0d3..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/cachedemo_u.pas
+++ /dev/null
@@ -1,210 +0,0 @@
-//***********************************************************
-// IECache Demo ver 1.01 (2006) *
-// *
-// For Delphi 5 - 2009 *
-// Freeware Demo *
-// by *
-// Per Linds Larsen *
-// *
-// Contributions: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit cachedemo_u;
-
-interface
-
-uses
- wininet, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- IECache, StdCtrls, ExtCtrls, OleCtrls, SHDocVw_EWB, EmbeddedWB, EwbCore;
-
-type
- TForm1 = class(TForm)
- ListBox1: TListBox;
- RadioGroup1: TRadioGroup;
- Button2: TButton;
- Button1: TButton;
- IECache1: TIECache;
- GroupBox1: TGroupBox;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label4: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- Button3: TButton;
- OpenDlg: TOpenDialog;
- CheckBox1: TCheckBox;
- DeleteEntryBtn: TButton;
- Panel1: TPanel;
- EmbeddedWB1: TEmbeddedWB;
- edtFileName: TEdit;
- procedure edtFileNameKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
- procedure IECache1Entry(Sender: TObject; var Cancel: Boolean);
- procedure FormCreate(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure RadioGroup1Click(Sender: TObject);
- procedure ListBox1Click(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure CheckBox1Click(Sender: TObject);
- procedure DeleteEntryBtnClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.DFM}
-
-procedure TForm1.IECache1Entry(Sender: TObject; var Cancel: Boolean);
-begin
- listbox1.Items.Add(IECache1.EntryInfo.SourceUrlName);
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- IECache1.SearchPattern := spAll;
- IECache1.RetrieveEntries(0);
- EmbeddedWB1.AssignEmptyDocument;
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- IECache1.SearchPattern := spAll;
-//e.g.: set SearchPattern:=spCookies if you only want to delete cookies
- IECache1.ClearAllEntries;
- Listbox1.Items.Clear;
- IECache1.SearchPattern := spAll;
- IECache1.RetrieveEntries(0);
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- Close;
-end;
-
-procedure TForm1.RadioGroup1Click(Sender: TObject);
-begin
- Listbox1.Items.BeginUpdate;
- try
- Listbox1.Items.Clear;
- with IECache1 do
- begin
- case RadioGroup1.ItemIndex of
- 0: SearchPattern := spAll;
- 1: SearchPattern := spCookies;
- 2: SearchPattern := spHistory;
- 3: SearchPattern := spUrl;
- end;
- RetrieveEntries(0);
- end;
- finally
- Listbox1.Items.EndUpdate;
- end;
-end;
-
-function DTString(DT: TDatetime): string;
-begin
- if DT < 0 then
- Result := ''
- else
- Result := DateTimeToStr(DT);
-end;
-
-procedure TForm1.ListBox1Click(Sender: TObject);
-begin
- EmbeddedWB1.Wait;
- if Listbox1.Items.Count > 1 then
- IECache1.GetEntryInfo(ListBox1.Items.Strings[ListBox1.ItemIndex]);
- with IECache1.EntryInfo do
- begin
- if ((pos('.htm', Localfilename) > 0) or (pos('.gif', Localfilename) > 0) or (pos('.jpg', Localfilename) > 0))
- and Checkbox1.checked then
- EmbeddedWB1.Go(LocalFileName);
- Label1.Caption := 'Hitrate: ' + InttoStr(HitRate);
- Label2.Caption := 'FileSize: ' + InttoStr(FSize);
- Label3.Caption := 'Last access: ' + DTString(LastAccessTime);
- Label4.Caption := 'Last modified: ' + DTString(LastModifiedTime);
- Label5.Caption := 'Expire: ' + DTString(ExpireTime);
- edtFileName.Text := LocalFileName;
- end;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- Listbox1.SetFocus;
- listbox1.ItemIndex := 1;
- Listbox1Click(Sender);
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with OpenDlg do
- begin
- filter := 'Internet files|*.htm;*.html;*.gif;*.jpg';
- if Execute then
- if IECache1.CopyFileToCache('file:///' + FileName, FileName,
- NORMAL_CACHE_ENTRY, StrToDateTime('01-01-02 00:00:00')) = S_OK
- then
- begin
- Radiogroup1.ItemIndex := 0;
- Radiogroup1Click(Sender);
- listbox1.ItemIndex := Listbox1.Items.IndexOf('file:///' + FileName);
- end;
- end;
-end;
-
-procedure TForm1.CheckBox1Click(Sender: TObject);
-begin
- if not Checkbox1.Checked then
- EmbeddedWB1.GoAboutBlank;
- listbox1.Setfocus;
-end;
-
-procedure TForm1.DeleteEntryBtnClick(Sender: TObject);
-begin
- EmbeddedWB1.GoAboutBlank;
- IECache1.DeleteEntry(Listbox1.Items[Listbox1.Itemindex]);
- RadioGroup1Click(Sender);
- Listbox1.Setfocus;
-end;
-
-procedure TForm1.edtFileNameKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- Exit;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/prjCacheDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/prjCacheDemo.dpr
deleted file mode 100644
index 17194af3b49060c973dfa983e426d176c310588c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/06 - IECache_Demo/prjCacheDemo.dpr
+++ /dev/null
@@ -1,48 +0,0 @@
-//***********************************************************
-// IECache Demo ver 1.01 (2006) *
-// *
-// Freeware Demo *
-// by *
-// Per Linds Larsen *
-// *
-// Contributions: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program PrjCacheDemo;
-
-uses
- Forms,
- cachedemo_u in 'cachedemo_u.pas' {Form1};
-
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.dfm
deleted file mode 100644
index a69fae7fe6f0cffcf55f17468c795807d06d9149..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.dfm
+++ /dev/null
@@ -1,87 +0,0 @@
-object Form2: TForm2
- Left = 373
- Top = 201
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'IEDownload Run-Time demo'
- ClientHeight = 264
- ClientWidth = 511
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 511
- Height = 57
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 9
- Width = 39
- Height = 13
- Caption = 'Address'
- end
- object Button1: TButton
- Left = 445
- Top = 26
- Width = 59
- Height = 25
- Caption = 'Go'
- TabOrder = 0
- OnClick = Button1Click
- end
- object edtAddress: TEdit
- Left = 8
- Top = 28
- Width = 421
- Height = 21
- TabOrder = 1
- Text = 'http://www.bsalsa.com/Downloads/2.exe'
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 208
- Width = 511
- Height = 56
- Align = alBottom
- TabOrder = 1
- object Label2: TLabel
- Left = 8
- Top = 13
- Width = 3
- Height = 13
- end
- object ProgressBar1: TProgressBar
- Left = 1
- Top = 38
- Width = 509
- Height = 17
- Align = alBottom
- Min = 0
- Max = 100
- TabOrder = 0
- end
- end
- object memDL: TMemo
- Left = 0
- Top = 57
- Width = 511
- Height = 151
- Align = alClient
- Lines.Strings = (
- '')
- ScrollBars = ssBoth
- TabOrder = 2
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.pas
deleted file mode 100644
index 38f64d1e3b512932f076ff4edda6548d4e18b602..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/Downloader.pas
+++ /dev/null
@@ -1,77 +0,0 @@
-unit Downloader;
-
-interface
-
-uses
- Windows, Messages, Classes, Graphics, Controls, Forms,
- SysUtils, StdCtrls, ExtCtrls, IEDownload, ComCtrls;
-
-type
- TForm2 = class(TForm)
- Panel1: TPanel;
- Button1: TButton;
- Panel2: TPanel;
- Label1: TLabel;
- edtAddress: TEdit;
- ProgressBar1: TProgressBar;
- memDL: TMemo;
- Label2: TLabel;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- procedure MyProgress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: ULONG; szStatusText: LPCWSTR; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
- public
- { Public declarations }
- end;
-
-var
- Form2: TForm2;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.Button1Click(Sender: TObject);
-var
- IED: TIEDownload;
-begin
- IED := TIEDownload.Create(Self);
- try
- with IED do
- begin
- OpenDownloadFolder := True;
- OnProgress := MyProgress;
- Form2.Caption := 'Downloading from: ' + edtAddress.Text;
- Go(edtAddress.Text);
- with memDL.Lines do
- begin
- Clear;
- Add('Downloaded File: ' + DownloadedFile);
- Add('Download Folder: ' + DownloadFolder);
- Add('File Name: ' + FileName);
- Add('Server IP: ' + ServerIP);
- Add('Server Address: ' + ServerAddress);
- Add('File type: ' + MimeType);
- Add('File extension: ' + FileExtension);
- Add('File Size: ' + FormatSize(FileSize));
- end;
- end;
- finally
- IED.Free;
- Form2.Caption := 'Done.';
- end;
-end;
-
-procedure TForm2.MyProgress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: ULONG; szStatusText: LPCWSTR; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
-begin
- ProgressBar1.Max := ulProgressMax;
- ProgressBar1.Position := ulProgress;
- Label2.Caption := 'Percents: ' + Percent;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/prjDownloaderDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/prjDownloaderDemo.dpr
deleted file mode 100644
index a36e2c3487fc226efe8dfda9ed6500bb2cf448bc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Creating_Dynamically (at Run-Time)/prjDownloaderDemo.dpr
+++ /dev/null
@@ -1,14 +0,0 @@
-program prjDownloaderDemo;
-
-uses
- Forms,
- Downloader in 'Downloader.pas' {Form2};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm2, Form2);
- Application.Run;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.dfm
deleted file mode 100644
index 856649fd4ee71abc2f19328b52b80fe311f971ff..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.dfm
+++ /dev/null
@@ -1,126 +0,0 @@
-object DownloadForm: TDownloadForm
- Left = 322
- Top = 111
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Downloads'
- ClientHeight = 178
- ClientWidth = 663
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object lvDownloads: TListView
- Left = 0
- Top = 0
- Width = 663
- Height = 121
- Align = alClient
- Columns = <
- item
- Caption = 'File'
- Width = 140
- end
- item
- Caption = 'Status'
- Width = 150
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 55
- end
- item
- Alignment = taRightJustify
- Caption = 'Progress'
- Width = 55
- end
- item
- Alignment = taRightJustify
- Caption = 'Speed'
- Width = 70
- end
- item
- Caption = 'Remaining'
- Width = 80
- end
- item
- Caption = 'Progressbar'
- Width = 80
- end>
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- OnContextPopup = lvDownloadsContextPopup
- end
- object Panel1: TPanel
- Left = 0
- Top = 121
- Width = 663
- Height = 57
- Align = alBottom
- TabOrder = 1
- object btnCancel: TButton
- Left = 464
- Top = 29
- Width = 75
- Height = 19
- Caption = 'Cancel All'
- TabOrder = 0
- OnClick = btnCancelClick
- end
- object chkAutoClose: TCheckBox
- Left = 8
- Top = 32
- Width = 369
- Height = 17
- Caption = 'Close this dialog box when downloads are completed'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object ProgressBar1: TProgressBar
- Left = 8
- Top = 6
- Width = 531
- Height = 17
- TabOrder = 2
- end
- end
- object IEDownload: TIEDownload
- AdditionalHeader.Strings = (
- 'Content-Type: application/x-www-form-urlencoded')
- DefaultProtocol = 'http://'
- DefaultUrlFileName = 'index.html'
- DownloadMethod = dlFile
- OnBeginningTransaction = IEDownloadBeginningTransaction
- OnBinding = IEDownloadBinding
- OnDownloadComplete = IEDownloadComplete
- OnProgress = IEDownloadProgress
- Options = [Asynchronous, AsyncStorage, GetNewestVersion, NoWriteCache, PullData, Pragma_No_Cache]
- Left = 16
- Top = 80
- end
- object pmDownloadItem: TPopupMenu
- Left = 48
- Top = 80
- object miCancel: TMenuItem
- Caption = 'Cancel'
- OnClick = miCancelClick
- end
- object miOpen: TMenuItem
- Caption = 'Open'
- Enabled = False
- OnClick = miOpenClick
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.pas
deleted file mode 100644
index e0c3452ab9cbc295200783f1787afb5fa3b1fe52..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadForm_U.pas
+++ /dev/null
@@ -1,325 +0,0 @@
-unit DownloadForm_U;
-
-interface
-
-uses
-{$IFDEF VER140}Variants, {$ENDIF}Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, IEDownload, ComCtrls, UrlMon, ActiveX, DownloadRequestForm,
- ShellApi, Menus, ExtCtrls;
-
-const
- SEE_MASK_NOZONECHECKS = $00800000;
-
-type
- TDownloadForm = class(TForm)
- IEDownload: TIEDownload;
- lvDownloads: TListView;
- pmDownloadItem: TPopupMenu;
- miCancel: TMenuItem;
- miOpen: TMenuItem;
- Panel1: TPanel;
- btnCancel: TButton;
- chkAutoClose: TCheckBox;
- ProgressBar1: TProgressBar;
- procedure FormDestroy(Sender: TObject);
- procedure btnCancelClick(Sender: TObject);
- procedure IEDownloadProgress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode: Cardinal; szStatusText: PWideChar; Downloaded, ElapsedTime,
- Speed, RemainingTime, Status: string);
- procedure IEDownloadComplete(Sender: TBSCB; Stream: TStream;
- Result: HRESULT);
- function IEDownloadBeginningTransaction(Sender: TBSCB; szURL,
- szHeaders: PWideChar; dwReserved: Cardinal;
- out szAdditionalHeaders: PWideChar): HRESULT;
- procedure IEDownloadBinding(var Sender: TBSCB; var Cancel: Boolean);
- procedure miCancelClick(Sender: TObject);
- procedure lvDownloadsContextPopup(Sender: TObject; MousePos: TPoint;
- var Handled: Boolean);
- procedure miOpenClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- private
- { Private declarations }
- finishedAll: Boolean;
- procedure Execute(Sender: TBSCB);
- protected
- procedure CreateParams(var Params: TCreateParams); override;
- public
- { Public declarations }
- procedure Download(Url: string); overload;
- procedure Download(
- pmk: IMoniker; // Identifies the object to be downloaded
- pbc: IBindCtx // Stores information used by the moniker to bind
- ); overload;
- end;
-
-var
- DownloadForm: TDownloadForm;
-
-implementation
-
-{$R *.dfm}
-
-uses
- Registry;
-
-function GetTempDir: string;
-var
- Path: array[0..MAX_PATH] of Char;
-begin
- GetTempPath(MAX_PATH, Path);
- Result := Path;
-end;
-
-procedure TDownloadForm.CreateParams(var Params: TCreateParams);
-begin
- inherited CreateParams(Params);
- Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
-end;
-
-procedure TDownloadForm.FormDestroy(Sender: TObject);
-begin
- DownloadForm := nil;
-end;
-
-procedure TDownloadForm.btnCancelClick(Sender: TObject);
-begin
- Close;
-end;
-
-procedure TDownloadForm.Download(Url: string);
-begin
- if (not Visible) then
- Show
- else
- BringToFront;
- IEDownload.Go(Url);
-end;
-
-procedure TDownloadForm.Download(pmk: IMoniker; pbc: IBindCtx);
-begin
- if (not Visible) then
- Show
- else
- BringToFront;
- IEDownload.Download(pmk, pbc);
-end;
-
-procedure TDownloadForm.Execute(Sender: TBSCB);
-var
- lpExecInfo: TShellExecuteInfo;
-begin
- ZeroMemory(@lpExecInfo, sizeof(lpExecInfo));
- lpExecInfo.cbSize := sizeof(lpExecInfo);
- lpExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_NOZONECHECKS;
- lpExecInfo.Wnd := Self.Handle;
- //lpExecInfo.lpVerb := 'open'; // use default handling
- lpExecInfo.lpFile := PChar(Sender.Info.DownloadDir + Sender.Info.FileName);
- lpExecInfo.nShow := SW_SHOWNORMAL;
- if (not ShellExecuteEx(@lpExecInfo)) then
- begin
- ShowMessage(SysErrorMessage(GetLastError()));
- end;
-end;
-
-procedure TDownloadForm.IEDownloadComplete(Sender: TBSCB; Stream: TStream;
- Result: HRESULT);
-var
- i: Integer;
- lvItem: TListItem;
-begin
- if ((Result = S_OK) and (Sender.Info.OpenAfterDownload)) then
- Execute(Sender);
- finishedAll := true;
- if (lvDownloads.Items.Count > 1) then
- for i := 0 to lvDownloads.Items.Count - 1 do
- if (i <> Sender.Info.Index) then
- begin
- lvItem := lvDownloads.Items[i];
- if Assigned(lvItem.Data) and (TBSCB(lvItem.Data).State < Canceled) then
- begin
- finishedAll := false;
- Break;
- end;
- end;
- if (finishedAll) then
- btnCancel.Caption := 'Close';
- if (chkAutoClose.Checked) then
- Close;
-end;
-
-function TDownloadForm.IEDownloadBeginningTransaction(Sender: TBSCB;
- szURL, szHeaders: PWideChar; dwReserved: Cardinal;
- out szAdditionalHeaders: PWideChar): HRESULT;
-begin
- result := S_OK;
-end;
-
-procedure TDownloadForm.IEDownloadProgress(Sender: TBSCB; ulProgress,
- ulProgressMax, ulStatusCode: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status: string);
-var
- lvItem: TListItem;
-begin
- ProgressBar1.Max := ulProgressMax;
- ProgressBar1.Position := ulProgress;
- lvItem := lvDownloads.Items[Sender.Info.Index];
- if (Assigned(lvItem)) then
- begin
- lvDownloads.Items.BeginUpdate;
- if ((ulStatusCode = BINDSTATUS_ENDDOWNLOADDATA) or
- (ulStatusCode = BINDSTATUS_DOWNLOADINGDATA)) then
- begin
- lvItem.SubItems[2] := Format('%.1f %%', [ulProgress / ulProgressMax * 100]);
- lvItem.SubItems[4] := RemainingTime;
- if (ulStatusCode <> BINDSTATUS_ENDDOWNLOADDATA) then
- lvItem.SubItems[3] := Speed
- else
- lvItem.SubItems[4] := '';
- end;
-
- lvItem.SubItems[0] := Status;
- lvDownloads.Items.EndUpdate;
- end;
-end;
-
-function FindItem(listItems: TListItems; Caption: string): Integer;
-var
- idx: Integer;
-begin
- result := -1;
- for idx := 0 to listItems.Count - 1 do
- if (listItems[idx].Caption = Caption) then
- begin
- result := idx;
- break;
- end;
-end;
-
-procedure TDownloadForm.IEDownloadBinding(var Sender: TBSCB;
- var Cancel: Boolean);
-var
- DownloadRequest: TDownloadRequest;
- ModRes: TModalResult;
- lvItem: TListItem;
- arrSize: array[0..255] of Char;
- idx: Integer;
-begin
- idx := FindItem(lvDownloads.Items, Sender.Info.FileName);
- if (idx > -1) then
- begin
- lvItem := lvDownloads.Items[idx];
- lvItem.SubItems[0] := 'Resuming...';
- end
- else
- begin
- lvItem := lvDownloads.Items.Add;
- lvItem.Caption := Sender.Info.FileName;
- lvItem.SubItems.Add(''); // Status
- lvItem.SubItems.Add(StrFormatByteSize(Sender.Info.FileSize, arrSize, Length(arrSize) - 1)); // Size
- lvItem.SubItems.Add(Format('%.1f %%', [0.])); // Progress
- lvItem.SubItems.Add(''); // Speed
- lvItem.SubItems.Add(''); // Remaining Time
- end;
- lvItem.Data := Sender;
- Sender.Info.Index := lvItem.Index;
-
- DownloadRequest := TDownloadRequest.Create(nil);
- DontOpenThisExts.Add('msi');
- DownloadRequest.SetInfo(Sender);
- modres := DownloadRequest.ShowModal();
- case modres of
- mrCancel:
- Cancel := True;
- mrOpen:
- begin
- Sender.Info.OpenAfterDownload := True;
- Sender.Info.DownloadDir := GetTempDir;
- finishedAll := false;
- btnCancel.Caption := 'Cancel All';
- end;
- else
- begin
- finishedAll := false;
- btnCancel.Caption := 'Cancel All';
- end;
- end;
-end;
-
-procedure TDownloadForm.miCancelClick(Sender: TObject);
-var
- lvItem: TListItem;
-begin
- if (pmDownloadItem.Tag > -1) then
- begin
- lvItem := lvDownloads.Items[miCancel.Tag];
- if (Assigned(lvItem) and Assigned(lvItem.Data)) then
- begin
- IEDownload.Cancel(TBSCB(lvItem.Data));
- lvItem.Data := nil;
- end;
- pmDownloadItem.Tag := -1;
- end;
-end;
-
-procedure TDownloadForm.miOpenClick(Sender: TObject);
-var
- lvItem: TListItem;
-begin
- if (pmDownloadItem.Tag > -1) then
- begin
- lvItem := lvDownloads.Items[pmDownloadItem.Tag];
- if (Assigned(lvItem) and Assigned(lvItem.Data)) then
- Execute(TBSCB(lvItem.Data));
- end;
-end;
-
-procedure TDownloadForm.lvDownloadsContextPopup(Sender: TObject;
- MousePos: TPoint; var Handled: Boolean);
-var
- lvItem: TListItem;
- pt: TPoint;
-begin
- // no item is selected but the context menu hotkey was pressed
- if ((MousePos.X = -1) and (MousePos.Y = -1)) then
- begin
- if (lvDownloads.ItemIndex > -1) then
- begin
- lvItem := lvDownloads.Items[lvDownloads.ItemIndex];
- pmDownloadItem.Tag := lvDownloads.ItemIndex;
- miCancel.Enabled := Assigned(lvItem.Data) and (TBSCB(lvItem.Data).State = Finished);
- miOpen.Enabled := Assigned(lvItem.Data) and (TBSCB(lvItem.Data).State = Finished) and CanOpen(TBSCB(lvItem.Data).Info.FileExt);
- pt := lvDownloads.ClientToScreen(lvItem.GetPosition());
- pmDownloadItem.Popup(pt.X, pt.Y);
- end;
- end
- else
- begin
- lvItem := lvDownloads.GetItemAt(MousePos.X, MousePos.Y);
- if (Assigned(lvItem)) then
- begin
- pmDownloadItem.Tag := lvItem.Index;
- miCancel.Enabled := Assigned(lvItem.Data) and (TBSCB(lvItem.Data).State = Finished);
- miOpen.Enabled := Assigned(lvItem.Data) and (TBSCB(lvItem.Data).State = Finished) and CanOpen(TBSCB(lvItem.Data).Info.FileExt);
- pt := lvDownloads.ClientToScreen(MousePos);
- pmDownloadItem.Popup(pt.X, pt.Y);
- end;
- end;
-end;
-
-procedure TDownloadForm.FormCreate(Sender: TObject);
-begin
- finishedAll := false;
- btnCancel.Caption := 'Cancel All';
-end;
-
-procedure TDownloadForm.FormClose(Sender: TObject;
- var Action: TCloseAction);
-begin
- if (not finishedAll) then
- IEDownload.Cancel;
- lvDownloads.Clear;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.dpr
deleted file mode 100644
index b7e13acb8c2655a01e09a17861af0022351e3a50..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.dpr
+++ /dev/null
@@ -1,31 +0,0 @@
-library DownloadManager;
-
-{ Important note about DLL memory management: ShareMem must be the
- first unit in your library's USES clause AND your project's (select
- Project-View Source) USES clause if your DLL exports any procedures or
- functions that pass strings as parameters or function results. This
- applies to all strings passed to and from your DLL--even those that
- are nested in records and classes. ShareMem is the interface unit to
- the BORLNDMM.DLL shared memory manager, which must be deployed along
- with your DLL. To avoid using BORLNDMM.DLL, pass string information
- using PChar or ShortString parameters. }
-
-uses
- comserv,
- _IEDownloadManager in '_IEDownloadManager.pas',
- DownloadForm_U in 'DownloadForm_U.pas' {DownloadForm},
- DownloadManager_TLB in 'DownloadManager_TLB.pas';
-
-exports
- DllGetClassObject,
- DllCanUnloadNow,
- DllRegisterServer,
- DllUnRegisterServer;
-
-
-{$R *.TLB}
-
-{$R *.res}
-
-begin
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.tlb b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.tlb
deleted file mode 100644
index 0258cb9be4d7597d6ad89d35831130cc676c50f1..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager.tlb and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager_TLB.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager_TLB.pas
deleted file mode 100644
index f2973db6fe97b9fa155250a5889e45af05c9e91c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadManager_TLB.pas
+++ /dev/null
@@ -1,54 +0,0 @@
-unit DownloadManager_TLB;
-
-// ************************************************************************ //
-// WARNING
-// -------
-// The types declared in this file were generated from data read from a
-// Type Library. If this type library is explicitly or indirectly (via
-// another type library referring to this type library) re-imported, or the
-// 'Refresh' command of the Type Library Editor activated while editing the
-// Type Library, the contents of this file will be regenerated and all
-// manual modifications will be lost.
-// ************************************************************************ //
-
-// PASTLWTR : 1.2
-// File generated on 12/03/2007 18:25:29 from Type Library described below.
-
-// ************************************************************************ //
-// Type Lib: H:\Borland\VCL\EmbeddedWB_Official_Release\EmbeddedWB_D2005\Demos\TIEDownloadMgr_Demo\Internet Explorer\DownloadManager.tlb (1)
-// LIBID: {3B5D8F58-F10C-4283-998E-D54C9146AA2A}
-// LCID: 0
-// Helpfile:
-// HelpString: DownloadManager Library
-// DepndLst:
-// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
-// ************************************************************************ //
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
-{$WARN SYMBOL_PLATFORM OFF}
-{$WRITEABLECONST ON}
-{$VARPROPSETTER ON}
-interface
-
-uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
-
-
-// *********************************************************************//
-// GUIDS declared in the TypeLibrary. Following prefixes are used:
-// Type Libraries : LIBID_xxxx
-// CoClasses : CLASS_xxxx
-// DISPInterfaces : DIID_xxxx
-// Non-DISP interfaces: IID_xxxx
-// *********************************************************************//
-const
- // TypeLibrary Major and minor versions
- DownloadManagerMajorVersion = 1;
- DownloadManagerMinorVersion = 0;
-
- LIBID_DownloadManager: TGUID = '{3B5D8F58-F10C-4283-998E-D54C9146AA2A}';
-
-
-implementation
-
-uses ComObj;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.dfm
deleted file mode 100644
index 081209b599becf44070864bb6c2a77425f6aabed..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.dfm
+++ /dev/null
@@ -1,133 +0,0 @@
-object DownloadRequest: TDownloadRequest
- Left = 557
- Top = 186
- BorderStyle = bsDialog
- Caption = 'File Download'
- ClientHeight = 161
- ClientWidth = 378
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object lbQuestion: TLabel
- Left = 16
- Top = 16
- Width = 217
- Height = 13
- Caption = 'Do you want to open or save this file?'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lbName: TLabel
- Left = 81
- Top = 40
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = 'Name:'
- end
- object lbType: TLabel
- Left = 85
- Top = 56
- Width = 27
- Height = 13
- Alignment = taRightJustify
- Caption = 'Type:'
- end
- object lbFrom: TLabel
- Left = 86
- Top = 88
- Width = 26
- Height = 13
- Alignment = taRightJustify
- Caption = 'From:'
- end
- object imgIcon: TImage
- Left = 16
- Top = 40
- Width = 32
- Height = 32
- end
- object lbNameTxt: TLabel
- Left = 120
- Top = 40
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbTypeTxt: TLabel
- Left = 120
- Top = 56
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbFromTxt: TLabel
- Left = 120
- Top = 88
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbSize: TLabel
- Left = 89
- Top = 72
- Width = 23
- Height = 13
- Alignment = taRightJustify
- Caption = 'Size:'
- end
- object lbSizeTxt: TLabel
- Left = 120
- Top = 72
- Width = 241
- Height = 13
- AutoSize = False
- end
- object btnOpen: TButton
- Left = 112
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Open'
- Enabled = False
- TabOrder = 0
- OnClick = btnOpenClick
- end
- object btnSave: TButton
- Left = 200
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Save'
- TabOrder = 1
- OnClick = btnSaveClick
- end
- object btnCancel: TButton
- Left = 288
- Top = 120
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- Default = True
- ModalResult = 2
- TabOrder = 2
- OnClick = btnCancelClick
- end
- object dlgSave: TSaveDialog
- Left = 24
- Top = 104
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.pas
deleted file mode 100644
index d393cb7260435a281b9d171497485e838f5239f6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/DownloadRequestForm.pas
+++ /dev/null
@@ -1,140 +0,0 @@
-{$WARN UNIT_PLATFORM OFF}
-unit DownloadRequestForm;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, IEDownload, ShellApi;
-
-const
- mrOpen = mrYesToAll + 1;
- mrSave = mrOpen + 1;
-
-type
- TDownloadRequest = class(TForm)
- btnOpen: TButton;
- btnSave: TButton;
- btnCancel: TButton;
- lbQuestion: TLabel;
- lbName: TLabel;
- lbType: TLabel;
- lbFrom: TLabel;
- imgIcon: TImage;
- lbNameTxt: TLabel;
- lbTypeTxt: TLabel;
- lbFromTxt: TLabel;
- dlgSave: TSaveDialog;
- lbSize: TLabel;
- lbSizeTxt: TLabel;
- procedure btnCancelClick(Sender: TObject);
- procedure btnOpenClick(Sender: TObject);
- procedure btnSaveClick(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- private
- { Private-Deklarationen }
- FDestPath: String;
- FSender: TBSCB;
- public
- { Public-Deklarationen }
- procedure SetInfo(Sender: TBSCB);
- property DestinationPath: String read FDestPath;
- end;
-
-var
- DownloadRequest: TDownloadRequest;
- DontOpenThisExts, OpenOnlyThisExts: TStringList;
-
-
-function CanOpen(FileExt: String): Boolean;
-function StrFormatByteSize(dw: DWORD; szBuf: PChar; uiBufSize: UINT):
- PChar; stdcall; external 'shlwapi.dll' name 'StrFormatByteSizeA';
-function StrFormatKBSize(qdw: LONGLONG; szBuf: PChar; uiBufSize: UINT):
- PChar; stdcall; external 'shlwapi.dll' name 'StrFormatKBSizeA';
-
-
-implementation
-
-
-uses DownloadForm_U;
-
-{$R *.DFM}
-
-function CanOpen(FileExt: String): Boolean;
-begin
- result := ((DontOpenThisExts.IndexOf(FileExt) < 0) and
- ((OpenOnlyThisExts.Count = 0) or (OpenOnlyThisExts.IndexOf(FileExt) >= 0)));
-end;
-
-procedure TDownloadRequest.SetInfo(Sender: TBSCB);
-var
- sfi: TSHFILEINFO;
- arrSize: array[0..255] of Char;
-begin
- FSender := Sender;
- //lbFromTxt.Caption := Sender.UrlComponents.lpszHostName;
- lbNameTxt.Caption := Sender.Info.FileName;
-
- btnOpen.Enabled := CanOpen(Sender.Info.FileExt);
-
- if (Sender.Info.FileSize > 0) then begin
- StrFormatByteSize(Sender.Info.FileSize, arrSize, Length(arrSize)-1);
- lbSizeTxt.Caption := Trim(arrSize);
- end else
- lbSizeTxt.Caption := 'unknown';
-
- // get file information
- ZeroMemory(@sfi, sizeof(sfi));
- if (SHGetFileInfo(
- PChar(Sender.Info.FileName),
- FILE_ATTRIBUTE_NORMAL,
- sfi,
- sizeof(sfi),
- SHGFI_ICON or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES) <> 0) then
- begin
- if (sfi.hIcon <> 0) then
- imgIcon.Picture.Icon.Handle := sfi.hIcon;
- if (sfi.szTypeName[0] <> #0) then
- lbTypeTxt.Caption := sfi.szTypeName;
- end;
-{ else
- begin
- ShowMessage(SysErrorMessage(GetLastError()));
- end;}
-end;
-
-procedure TDownloadRequest.btnCancelClick(Sender: TObject);
-begin
- DownloadForm.Close;
- Close;
-end;
-
-procedure TDownloadRequest.btnOpenClick(Sender: TObject);
-begin
- Self.ModalResult := mrOpen;
-end;
-
-procedure TDownloadRequest.btnSaveClick(Sender: TObject);
-begin
- dlgSave.FileName := FSender.Info.FileName;
- if (dlgSave.Execute) then
- begin
- FSender.Info.FileName := ExtractFileName(dlgSave.FileName);
- FSender.Info.DownloadDir := ExtractFilePath(dlgSave.FileName);
- Self.ModalResult := mrSave;
- end;
-end;
-
-procedure TDownloadRequest.FormDestroy(Sender: TObject);
-begin
- if (imgIcon.Picture.Icon.Handle <> 0) then
- DestroyIcon(imgIcon.Picture.Icon.Handle);
-end;
-
-initialization
- DontOpenThisExts := TStringList.Create();
- OpenOnlyThisExts := TStringList.Create();
-finalization
- DontOpenThisExts.Free();
- OpenOnlyThisExts.Free();
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/_IEDownloadManager.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/_IEDownloadManager.pas
deleted file mode 100644
index b2e5ff31f4e2a54b14c5566174a51c3c89bff9b1..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Internet Explorer_OutOfDate/_IEDownloadManager.pas
+++ /dev/null
@@ -1,129 +0,0 @@
-//***********************************************************
-// IEDownloadManager (Oct 15, 2001) *
-// *
-// ver. 1.0 *
-// *
-// For Delphi 5 & 6 *
-// *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.mail.dk *
-// *
-// *
-// *
-// Updated versions: *
-// *
-// http://www.euromind.com/iedelphi *
-//***********************************************************
-
-unit _IEDownloadManager;
-
-interface
-
-uses
- EwbAcc, Urlmon, Windows, ActiveX, Classes, ComObj,
- Registry, DownloadForm_U;
-
-
-type
-TIEDownloadManagerFactory = class(TComObjectFactory)
-private
- procedure AddKeys;
- procedure RemoveKeys;
-public
- procedure UpdateRegistry(Register: Boolean); override;
-end;
-
-
-TIEDownloadManager = class(TComObject, IDownloadManager)
-private
- DownloadForm: TDownloadForm;
- function Download(
- pmk: IMoniker; // Identifies the object to be downloaded
- pbc: IBindCtx; // Stores information used by the moniker to bind
- dwBindVerb: DWORD; // The action to be performed during the bind
- grfBINDF: DWORD; // Determines the use of URL encoding during the bind
- pBindInfo: PBindInfo; // Used to implement IBindStatusCallback::GetBindInfo
- pszHeaders: PWidechar; // Additional headers to use with IHttpNegotiate
- pszRedir: PWidechar; // The URL that the moniker is redirected to
- uiCP: UINT // The code page of the object's display name
- ): HRESULT; stdcall;
-end;
-
-
-const
- Class_IEDownloadManager: TGUID = '{FEC76531-D69B-448D-840F-AD7865DD9F7B}';
-
-implementation
-
-uses ComServ;
-
-{ TIEDownloadManager }
-
-
-procedure TIEDownloadManagerFactory.UpdateRegistry(Register: Boolean);
-begin
- inherited UpdateRegistry(Register);
- if Register then AddKeys else RemoveKeys;
-end;
-
-procedure TIEDownloadManagerFactory.AddKeys;
-var
- reg: TRegistry;
- S: string;
-begin
- inherited;
- S := GUIDToString(Class_IEDownloadManager);
- reg := TRegistry.Create;
- try
- Reg.RootKey := HKEY_CURRENT_USER;
- if Reg.OpenKey('Software\Microsoft\Internet Explorer', True) then
- begin
- Reg.WriteString('DownloadUI', S);
- Reg.CloseKey;
- end;
- finally
- Reg.Free;
- end;
-end;
-
-procedure TIEDownloadManagerFactory.RemoveKeys;
-var
- reg: TRegistry;
-begin
- inherited;
- reg := TRegistry.Create;
- try
- reg.RootKey := HKEY_CURRENT_USER;
- reg.OpenKey('Software\Microsoft\Internet Explorer', False);
- reg.DeleteValue('DownloadUI');
- reg.Closekey;
- finally
- Reg.Free;
- end;
-end;
-
-
-
-
-{ TIEDownloadManager }
-
-function TIEDownloadManager.Download(pmk: IMoniker; pbc: IBindCtx;
- dwBindVerb: DWORD; grfBINDF: DWORD; pBindInfo: PBindInfo; pszHeaders,
- pszRedir: PWidechar; uiCP: UINT): HRESULT;
-var
- Url: PWidechar;
-begin
- if DownloadForm = nil then Downloadform := TDownloadform.Create(nil);
- Downloadform.show;
- pmk.GetDisplayName(pbc, nil, Url);
- Downloadform.Download(Url);
- Result := S_OK;
-end;
-
-initialization
- TIEDownloadManagerFactory.Create(ComServer, TIEDownloadManager, Class_IEDownloadManager,
- 'IEDownloadManager', 'Download Manager for IE 5.5 and later', ciMultiinstance, tmApartment);
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadForm_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadForm_U.dfm
deleted file mode 100644
index 58ee5374685b198a0ecaf6115186495a72a92bc2..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadForm_U.dfm
+++ /dev/null
@@ -1,160 +0,0 @@
-object DownloadForm: TDownloadForm
- Left = 322
- Top = 111
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Downloads'
- ClientHeight = 322
- ClientWidth = 776
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 242
- Width = 776
- Height = 80
- Align = alBottom
- TabOrder = 0
- object btnCancel: TButton
- Left = 680
- Top = 14
- Width = 75
- Height = 19
- Caption = 'Cancel All'
- TabOrder = 0
- OnClick = btnCancelClick
- end
- object chkAutoClose: TCheckBox
- Left = 8
- Top = 6
- Width = 369
- Height = 17
- Caption = 'Close this dialog box when downloads are completed.'
- TabOrder = 1
- end
- object cbRemoveComp: TCheckBox
- Left = 8
- Top = 29
- Width = 369
- Height = 17
- Caption = 'Remove complete downloads'
- TabOrder = 2
- OnClick = cbRemoveCompClick
- end
- object cbExecute: TCheckBox
- Left = 8
- Top = 52
- Width = 145
- Height = 17
- Caption = 'Execute On Complete'
- TabOrder = 3
- OnClick = cbExecuteClick
- end
- object Memo1: TMemo
- Left = 296
- Top = 6
- Width = 273
- Height = 67
- Lines.Strings = (
- 'Memo1')
- ScrollBars = ssBoth
- TabOrder = 4
- end
- end
- object ListView: TListView
- Left = 0
- Top = 0
- Width = 776
- Height = 242
- Align = alClient
- Columns = <
- item
- Caption = 'File'
- Width = 120
- end
- item
- Caption = 'Status'
- Width = 120
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 55
- end
- item
- Alignment = taRightJustify
- Caption = 'Progress'
- Width = 55
- end
- item
- Alignment = taRightJustify
- Caption = 'Speed'
- Width = 60
- end
- item
- Caption = 'Remaining'
- Width = 70
- end
- item
- Caption = 'Thread ID'
- Width = 60
- end
- item
- Caption = 'ActiveConnections'
- Width = 90
- end
- item
- Caption = 'Progress bar'
- Width = 150
- end>
- ReadOnly = True
- RowSelect = True
- PopupMenu = pmDownloadItem
- TabOrder = 1
- ViewStyle = vsReport
- OnContextPopup = ListViewContextPopup
- end
- object IEDownload: TIEDownload
- About = ' IEDownload http://bsalsa.com/'
- AdditionalHeader.Strings = (
- 'Content-Type: application/x-www-form-urlencoded')
- BindF = [Asynchronous, AsyncStorage, GetNewestVersion, NoWriteCache, NeedFile]
- DefaultProtocol = 'http://'
- DefaultUrlFileName = 'index.html'
- OnBeforeDownload = IEDownloadBeforeDownload
- OnBeginningTransaction = IEDownloadBeginningTransaction
- OnDataAvailable = IEDownloadDataAvailable
- OnComplete = IEDownloadComplete
- OnError = IEDownloadError
- OnProgress = IEDownloadProgress
- OnStartBinding = IEDownloadStartBinding
- TimeOut = 2147483647
- Left = 16
- Top = 80
- end
- object pmDownloadItem: TPopupMenu
- Left = 48
- Top = 80
- object miCancel: TMenuItem
- Caption = 'Cancel'
- OnClick = miCancelClick
- end
- object miOpen: TMenuItem
- Caption = 'Open'
- Enabled = False
- OnClick = miOpenClick
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadForm_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadForm_U.pas
deleted file mode 100644
index 8ae9b90e78e570250a4fad947ab267757e780222..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadForm_U.pas
+++ /dev/null
@@ -1,502 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// Developing Team: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Mathias Walter (mich@matze.tv) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit DownloadForm_U;
-
-interface
-
-uses
- Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
- IEDownload, ComCtrls, UrlMon, ActiveX, DownloadRequestForm,
- ShellApi, Menus, ExtCtrls, IEDownloadTools, Graphics;
-
-const
- SEE_MASK_NOZONECHECKS = $00800000;
-
-type
- TDownloadForm = class(TForm)
- IEDownload: TIEDownload;
- pmDownloadItem: TPopupMenu;
- miCancel: TMenuItem;
- miOpen: TMenuItem;
- Panel1: TPanel;
- btnCancel: TButton;
- chkAutoClose: TCheckBox;
-
- ListView: TListView;
- cbRemoveComp: TCheckBox;
- cbExecute: TCheckBox;
- Memo1: TMemo;
- procedure FormDestroy(Sender: TObject);
- procedure btnCancelClick(Sender: TObject);
- procedure miCancelClick(Sender: TObject);
- procedure ListViewContextPopup(Sender: TObject; MousePos: TPoint;
- var Handled: Boolean);
- procedure miOpenClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure IEDownloadProgress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded, ElapsedTime,
- Speed, RemainingTime, Status, Percent: string);
- function IEDownloadBeginningTransaction(Sender: TBSCB; szURL,
- szHeaders: PWideChar; dwReserved: Cardinal;
- out szAdditionalHeaders: PWideChar): HRESULT;
- procedure cbRemoveCompClick(Sender: TObject);
- procedure cbExecuteClick(Sender: TObject);
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- procedure IEDownloadComplete(Sender: TCustomIEDownload; aFileNameAndPath,
- aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
- procedure IEDownloadStartBinding(Sender: TBSCB; var Cancel: Boolean;
- pib: IBinding; const FileName: WideString; const FileSize: Integer);
- procedure IEDownloadBeforeDownload(Sender: TInfoData; const Url, FileName,
- FileExtension, Host, DownloadFolder: string; const FileSize: Integer;
- var Cancel: Boolean);
- procedure IEDownloadDataAvailable(Sender: TBSCB; var Buffer: PByte;
- var BufLength: Cardinal);
- procedure IEDownloadError(const ErrorCode: Integer; const stError: string);
- private
- { Private declarations }
-
- procedure Execute(FName: WideString);
- protected
- procedure CreateParams(var Params: TCreateParams); override;
- public
- { Public declarations }
- procedure DoDownload(pmk: IMoniker; pbc: IBindCtx);
- procedure DoGo(inUrl: string);
- end;
-
-var
- DownloadForm: TDownloadForm;
-
-implementation
-
-{$R *.dfm}
-
-procedure TDownloadForm.cbExecuteClick(Sender: TObject);
-var
- lvItem: TListItem;
-begin
- if (cbExecute.Checked) and (ListView.Selected.Index > 0) and
- (ListView.Selected.SubItems[0]= 'Done.') then
- begin
- lvItem := ListView.Selected;
- Execute(IEDownload.DownloadFolder+ lvItem.Caption);
- end;
-end;
-
-procedure TDownloadForm.cbRemoveCompClick(Sender: TObject);
-var
- idx: integer;
-begin
- if (cbRemoveComp.checked) then
- begin
- for idx := 0 to ListView.Items.Count - 1 do
- begin
- if ListView.Items[idx].SubItems[0]= 'Done.' then
- begin
- TProgressBar(ListView.Items[idx].Data).Free;
- ListView.Items.Delete(idx);
- end;
- end;
- end;
-end;
-
-procedure TDownloadForm.CreateParams(var Params: TCreateParams);
-begin
- inherited CreateParams(Params);
- Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
-end;
-
-procedure TDownloadForm.FormDestroy(Sender: TObject);
-begin
- DownloadForm := nil;
-end;
-
-procedure TDownloadForm.btnCancelClick(Sender: TObject);
-begin
- IEDownload.CancelAll;
- Close;
-end;
-
-procedure TDownloadForm.DoGo(inUrl: string);
-begin
- if (not Visible) then
- Show
- else
- BringToFront;
- IEDownload.Go(inUrl);
-end;
-
-procedure TDownloadForm.DoDownload(pmk: IMoniker; pbc: IBindCtx);
-begin
- if (not Visible) then
- Show
- else
- BringToFront;
- IEDownload.Download(pmk, pbc);
-end;
-
-procedure TDownloadForm.Execute(FName: WideString);
-var
- lpExecInfo: TShellExecuteInfo;
-begin
- ZeroMemory(@lpExecInfo, sizeof(lpExecInfo));
- with lpExecInfo do
- begin
- cbSize := sizeof(lpExecInfo);
- fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_NOZONECHECKS;
- Wnd := Self.Handle;
- lpVerb := 'open'; // use default handling
- lpFile := PWideChar(FName);
- nShow := SW_SHOWNORMAL;
- end;
- if (not ShellExecuteEx(@lpExecInfo)) then
- ShowMessage(SysErrorMessage(GetLastError()));
-end;
-
-function FindStringInLV(listItems: TListItems; inString: string): Integer;
-var
- idx: Integer;
-begin
- Result := -1;
- for idx := 0 to listItems.Count - 1 do
- if (listItems[idx].Caption = inString) then
- begin
- Result := idx;
- Break;
- end;
-end;
-
-function FindThreadIDInLV(listItem: TListItems; SubIdx, ID: integer): Integer;
-var
- idx: Integer;
-begin
- Result := -1;
- for idx := 0 to listItem.Count - 1 do
- if (listItem[idx].SubItems[SubIdx] = IntToStr(ID)) then
- begin
- Result := idx;
- Break;
- end;
-end;
-
-procedure TDownloadForm.IEDownloadBeforeDownload(Sender: TInfoData; const Url,
- FileName, FileExtension, Host, DownloadFolder: string;
- const FileSize: Integer; var Cancel: Boolean);
-var
- sfi: TSHFileInfo;
- DownloadRequest: TDownloadRequest;
- ModRes: TModalResult;
-begin {New downlaod}
- DownloadRequest := TDownloadRequest.Create(nil);
- try
- with DownloadRequest do
- begin
- DontOpenThisExts.Add('msi');
- lbFromTxt.Caption := Host;
- lbNameTxt.Caption := FileName;
- lbSizeTxt.Caption := FormatSize(FileSize);
- if (FileSize >= 0) then
- lbSizeTxt.Caption := 'unknown';
- ZeroMemory(@sfi, sizeof(sfi));
- if (SHGetFileInfo(PChar(FileName),FILE_ATTRIBUTE_NORMAL, sfi,
- sizeof(sfi), SHGFI_ICON or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES) <> 0) then
- begin
- if (sfi.hIcon <> 0) then
- imgIcon.Picture.Icon.Handle := sfi.hIcon;
- if (sfi.szTypeName[0] <> #0) then
- lbTypeTxt.Caption := sfi.szTypeName;
- end;
- end;
-
- modres := DownloadRequest.ShowModal;
- case ModRes of
- mrCancel:
- begin
- Cancel := True;
- DownloadRequest.Close;
- end;
- mrOpen:
- begin
- IEDownload.OpenDownloadFolder := True;
- btnCancel.Caption := 'Cancel All';
- end;
- mrSave:
- begin
- btnCancel.Caption := 'Cancel All';
- Sender.infDownloadFolder:= DownloadRequest.drDownloadFolder;
- Sender.infFileName:=DownloadRequest.drFileName;
- end;
- end;
- finally
- DownloadRequest.Free;
- end;
-end;
-
-function TDownloadForm.IEDownloadBeginningTransaction(Sender: TBSCB; szURL,
- szHeaders: PWideChar; dwReserved: Cardinal;
- out szAdditionalHeaders: PWideChar): HRESULT;
-begin
- Result:= S_OK;
-end;
-
-procedure TDownloadForm.IEDownloadComplete(Sender: TCustomIEDownload;
- aFileNameAndPath, aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
-var
- lvItem: TListItem;
- idx: integer;
-begin
- idx := FindStringInLV(Listview.Items, IEDownload.FileName);
- lvItem := ListView.Items[idx];
- if (Assigned(lvItem)) then
- lvItem.SubItems[6] := IntToStr(IEDownload.ActiveConnections);
-
- if cbExecute.Checked then
- Execute(IEDownload.DownloadedFile);
- lvItem := ListView.Selected;
- if (cbRemoveComp.checked) and (lvItem <> nil) then
- begin
- idx := lvItem.Index;
- TProgressBar(lvItem.Data).Free;
- ListView.Items.Delete(idx);
- end;
- if (IEDownload.ActiveConnections = 0) and (not IEDownload.Busy) then
- begin
- btnCancel.Caption := 'Close';
- if (chkAutoClose.Checked) then
- Close;
- end;
-end;
-
-procedure TDownloadForm.IEDownloadDataAvailable(Sender: TBSCB;
- var Buffer: PByte; var BufLength: Cardinal);
-begin
- Memo1.Lines.Add(Char(Buffer));
-end;
-
-procedure TDownloadForm.IEDownloadError(const ErrorCode: Integer;
- const stError: string);
-begin
- //Showmessage(stError);
-end;
-
-procedure TDownloadForm.IEDownloadProgress(Sender: TBSCB; ulProgress,
- ulProgressMax, ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
-var
- lvItem: TListItem;
- idx: integer;
- pb: TProgressBar;
-begin
- if ListView.Items.Count = 0 then
- Exit;
- begin {New downlaod}
- idx := FindThreadIDInLV(Listview.Items, 5, Sender.ThreadID);
- lvItem := ListView.Items[idx];
- if (Assigned(lvItem)) then
- begin
- lvItem.SubItems[0] := Status;
- if ((ulStatusCode = BINDSTATUS_ENDDOWNLOADDATA) or
- (ulStatusCode = BINDSTATUS_DOWNLOADINGDATA)) then
- begin
- with lvItem do
- begin
- SubItems[1] := FormatSize(IEDownload.FileSize);
- SubItems[2] := Percent;
- SubItems[3] := Speed;
- SubItems[4] := RemainingTime;
- SubItems[6] := IntToStr(IEDownload.ActiveConnections);
- end;
- pb := TProgressBar(Listview.Items[idx].Data);
- pb.Max := ulProgressMax;
- pb.Position := ulProgress;
- end;
- end;
- end;
-end;
-
-procedure TDownloadForm.IEDownloadStartBinding(Sender: TBSCB;
- var Cancel: Boolean; pib: IBinding; const FileName: WideString;
- const FileSize: Integer);
-var
- lvItem: TListItem;
- idx: Integer;
- pbRect: TRect;
- pb: TProgressBar;
-begin {If the filename allready exists in our list view}
- idx := FindStringInLV(Listview.Items, IEDownload.FileName);
- if (idx > -1) then
- begin
- lvItem := Listview.Items[idx];
- with lvItem do
- begin
- SubItems[0] := 'Resuming...';
- SubItems.Add(''); // Size
- SubItems.Add(''); // Progress
- SubItems.Add(''); // Speed
- SubItems.Add('UnKnown'); // Remaining Time
- SubItems.Add(IntToStr(Sender.ThreadID));
- SubItems.Add(IntToStr(IEDownload.ActiveConnections));
- SubItems.Add(''); //ProgressBar
- end;
- pb := TProgressBar.Create(nil);
- pb.Parent := Listview;
- lvItem.Data := pb;
- pbRect := lvItem.DisplayRect(drBounds);
- pbRect.Left := 540 + pbRect.Left + ListView.Columns[7].Width;
- pbRect.Right := pbRect.Left+ Listview.Columns[7].Width+50;
- pb.BoundsRect := pbRect;
- end;
-
-
- idx := FindThreadIDInLV(Listview.Items, 5, Sender.ThreadID);
- if (idx > -1) then
- lvItem := ListView.Items[idx]
- else
- lvItem := Listview.Items.Add;
- with lvItem do
- begin
- Caption := IEDownload.FileName;
- SubItems.Add('Waiting'); // Status
- SubItems.Add(''); // Size
- SubItems.Add(''); // Progress
- SubItems.Add(''); // Speed
- SubItems.Add('UnKnown'); // Remaining Time
- SubItems.Add(IntToStr(Sender.ThreadID));
- SubItems.Add(IntToStr(IEDownload.ActiveConnections));
- SubItems.Add(''); //ProgressBar
- end;
- pb := TProgressBar.Create(nil);
- pb.Parent := Listview;
- lvItem.Data := pb;
- pbRect := lvItem.DisplayRect(drBounds);
- pbRect.Left := 540 + pbRect.Left + ListView.Columns[7].Width;
- pbRect.Right := pbRect.Left+ Listview.Columns[7].Width+50;
- pb.BoundsRect := pbRect;
- end;
-
-
-procedure TDownloadForm.miCancelClick(Sender: TObject);
-var
- lvItem: TListItem;
-begin
- if (pmDownloadItem.Tag > -1) then
- begin
- lvItem := ListView.Items[miCancel.Tag];
- if (Assigned(lvItem) and Assigned(lvItem.Data)) then
- begin
- IEDownload.Cancel(TBSCB(lvItem.Data));
- lvItem.Data := nil;
- end;
- pmDownloadItem.Tag := -1;
- end;
-end;
-
-procedure TDownloadForm.miOpenClick(Sender: TObject);
-var
- lvItem: TListItem;
-begin
- if (pmDownloadItem.Tag > -1) then
- begin
- lvItem := ListView.Items[pmDownloadItem.Tag];
- if (Assigned(lvItem)) and (lvItem.SubItems[0]= 'Done.') then
- Execute(IEDownload.DownloadFolder+ lvItem.Caption);
- end;
-end;
-
-procedure TDownloadForm.ListViewContextPopup(Sender: TObject;
- MousePos: TPoint; var Handled: Boolean);
-var
- lvItem: TListItem;
- pt: TPoint;
-begin
- // no item is selected but the context menu hotkey was pressed
- if ((MousePos.X = -1) and (MousePos.Y = -1)) then
- begin
- if (ListView.ItemIndex > -1) then
- begin
- lvItem := ListView.Items[ListView.ItemIndex];
- pmDownloadItem.Tag := ListView.ItemIndex;
- miCancel.Enabled := Assigned(lvItem.Data);
- miOpen.Enabled := (Assigned(lvItem)) and (lvItem.SubItems[0]= 'Done.');
- CanOpen(TBSCB(lvItem.Data).BscbInfo.infFileExt);
- pt := ListView.ClientToScreen(lvItem.GetPosition());
- pmDownloadItem.Popup(pt.X, pt.Y);
- end;
- end
- else
- begin
- lvItem := ListView.GetItemAt(MousePos.X, MousePos.Y);
- if (Assigned(lvItem)) then
- begin
- pmDownloadItem.Tag := lvItem.Index;
- lvItem := ListView.Items[pmDownloadItem.Tag];
- miCancel.Enabled := Assigned(lvItem.Data) and (lvItem.SubItems[0]<> 'Done.');
- miOpen.Enabled := (Assigned(lvItem)) and (lvItem.SubItems[0]= 'Done.');
- pt := ListView.ClientToScreen(MousePos);
- pmDownloadItem.Popup(pt.X, pt.Y);
- end;
- end;
-end;
-
-procedure TDownloadForm.FormCreate(Sender: TObject);
-begin
- btnCancel.Caption := 'Cancel All';
-end;
-
-procedure TDownloadForm.FormClose(Sender: TObject;
- var Action: TCloseAction);
-begin
- if IEDownload.ActiveConnections > 0 then
- IEDownload.CancelAll;
-end;
-
-procedure TDownloadForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
- if IEDownload.ActiveConnections > 0 then
- begin
- if MessageDlg('There are active threads. Are you sure you want to quit?',
- mtWarning, [mbYes, mbNo], 0) = mrNo then
- CanClose:= False
- else
- IEDownload.CancelAll;
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo.dpr
deleted file mode 100644
index 0721750c162490f7f24deace77d42694741f8716..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo.dpr
+++ /dev/null
@@ -1,52 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// Developing Team: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Mathias Walter (mich@matze.tv) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program DownloadMgrDemo;
-
-uses
- ExceptionLog,
- Forms,
- DownloadMgrDemo_U in 'DownloadMgrDemo_U.pas' {Form1},
- DownloadForm_U in 'DownloadForm_U.pas' {DownloadForm};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TDownloadForm, DownloadForm);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.dfm
deleted file mode 100644
index b1b335c2238c112f0e7381b1596e24d29a46cbf7..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.dfm
+++ /dev/null
@@ -1,93 +0,0 @@
-object Form1: TForm1
- Left = 269
- Top = 107
- Width = 607
- Height = 428
- Caption = 'IE Downloag Mgr '
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 65
- Width = 591
- Height = 327
- TabStop = False
- Align = alClient
- TabOrder = 0
- Silent = False
- OnDownloadComplete = EmbeddedWB1DownloadComplete
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- OnFileDownload = EmbeddedWB1FileDownload
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
- ControlData = {
- 4C0000005E330000901A00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 591
- Height = 65
- Align = alTop
- TabOrder = 1
- object Button1: TButton
- Left = 421
- Top = 9
- Width = 33
- Height = 22
- Caption = 'Go'
- TabOrder = 0
- OnClick = Button1Click
- end
- object IEAddress1: TIEAddress
- Left = 0
- Top = 9
- Width = 417
- Height = 22
- AutoNavigateOnLoad = False
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- EmbeddedWB = EmbeddedWB1
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 1
- TextOnLoad = tlUserDefine
- TextOnShow = 'http://bsalsa.com/downloads.html'
- end
- object rgMethod: TRadioGroup
- Left = 464
- Top = 0
- Width = 127
- Height = 59
- Caption = 'FileDownload Method'
- Items.Strings = (
- 'Go (Url)'
- 'Download (Moniker)')
- TabOrder = 2
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.pas
deleted file mode 100644
index 1ce24ae9ea54c1b27e08cf7e9b5f4ffcdd55c0dc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadMgrDemo_U.pas
+++ /dev/null
@@ -1,113 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// Developing Team: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Mathias Walter (mich@matze.tv) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit DownloadMgrDemo_U;
-
-interface
-
-uses
- dialogs, ActiveX, IEConst, Classes, Forms, StdCtrls, EmbeddedWB, UrlMon,
- IEAddress, ExtCtrls, EwbCore, Controls, OleCtrls, SHDocVw_EWB;
-
-type
- TForm1 = class(TForm)
- EmbeddedWB1: TEmbeddedWB;
- Panel1: TPanel;
- Button1: TButton;
- IEAddress1: TIEAddress;
- rgMethod: TRadioGroup;
- procedure EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB; pmk: IMoniker;
- pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo;
- pszHeaders, pszRedir: PWideChar; uiCP: Cardinal; var Rezult: HRESULT);
- procedure Button1Click(Sender: TObject);
- procedure EmbeddedWB1DownloadComplete(Sender: TObject);
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- procedure FormShow(Sender: TObject);
- private
- dlUrl: WideString;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-uses
- DownloadForm_U;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- Embeddedwb1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- dlUrl := URL;
-end;
-
-procedure TForm1.EmbeddedWB1DownloadComplete(Sender: TObject);
-begin
- IEAddress1.Text := EmbeddedWB1.LocationURL;
-end;
-
-procedure TForm1.EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB;
- pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal;
- pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal;
- var Rezult: HRESULT);
-begin
- Rezult := S_OK;
- if pszRedir <> '' then
- dlUrl := pszRedir;
- case rgMethod.ItemIndex of
- 0: DownloadForm.DoGo(dlUrl);
- 1: DownloadForm.DoDownload(pmk, pbc);
- end;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- rgMethod.ItemIndex := 0;
- EmbeddedWb1.Go(IEAddress1.Text);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.dfm
deleted file mode 100644
index 081209b599becf44070864bb6c2a77425f6aabed..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.dfm
+++ /dev/null
@@ -1,133 +0,0 @@
-object DownloadRequest: TDownloadRequest
- Left = 557
- Top = 186
- BorderStyle = bsDialog
- Caption = 'File Download'
- ClientHeight = 161
- ClientWidth = 378
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object lbQuestion: TLabel
- Left = 16
- Top = 16
- Width = 217
- Height = 13
- Caption = 'Do you want to open or save this file?'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lbName: TLabel
- Left = 81
- Top = 40
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = 'Name:'
- end
- object lbType: TLabel
- Left = 85
- Top = 56
- Width = 27
- Height = 13
- Alignment = taRightJustify
- Caption = 'Type:'
- end
- object lbFrom: TLabel
- Left = 86
- Top = 88
- Width = 26
- Height = 13
- Alignment = taRightJustify
- Caption = 'From:'
- end
- object imgIcon: TImage
- Left = 16
- Top = 40
- Width = 32
- Height = 32
- end
- object lbNameTxt: TLabel
- Left = 120
- Top = 40
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbTypeTxt: TLabel
- Left = 120
- Top = 56
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbFromTxt: TLabel
- Left = 120
- Top = 88
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbSize: TLabel
- Left = 89
- Top = 72
- Width = 23
- Height = 13
- Alignment = taRightJustify
- Caption = 'Size:'
- end
- object lbSizeTxt: TLabel
- Left = 120
- Top = 72
- Width = 241
- Height = 13
- AutoSize = False
- end
- object btnOpen: TButton
- Left = 112
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Open'
- Enabled = False
- TabOrder = 0
- OnClick = btnOpenClick
- end
- object btnSave: TButton
- Left = 200
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Save'
- TabOrder = 1
- OnClick = btnSaveClick
- end
- object btnCancel: TButton
- Left = 288
- Top = 120
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- Default = True
- ModalResult = 2
- TabOrder = 2
- OnClick = btnCancelClick
- end
- object dlgSave: TSaveDialog
- Left = 24
- Top = 104
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.pas
deleted file mode 100644
index dc4084f761e0f0ad79aa5361c8e510f4ac348303..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_DownloadManager_Demo/Webbrowser/DownloadRequestForm.pas
+++ /dev/null
@@ -1,98 +0,0 @@
-{$WARN UNIT_PLATFORM OFF}
-unit DownloadRequestForm;
-
-interface
-
-uses
- Windows, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ExtCtrls;
-
-const
- mrOpen = mrYesToAll + 1;
- mrSave = mrOpen + 1;
-
-type
- TDownloadRequest = class(TForm)
- btnOpen: TButton;
- btnSave: TButton;
- btnCancel: TButton;
- lbQuestion: TLabel;
- lbName: TLabel;
- lbType: TLabel;
- lbFrom: TLabel;
- imgIcon: TImage;
- lbNameTxt: TLabel;
- lbTypeTxt: TLabel;
- lbFromTxt: TLabel;
- dlgSave: TSaveDialog;
- lbSize: TLabel;
- lbSizeTxt: TLabel;
- procedure btnCancelClick(Sender: TObject);
- procedure btnOpenClick(Sender: TObject);
- procedure btnSaveClick(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- private
- { Private-Deklarationen }
- FDownloadFolder: string;
- FFileName: string;
- public
- { Public-Deklarationen }
- property drDownloadFolder: string read FDownloadFolder;
- property drFileName: string read FFileName;
- end;
-
-var
- DownloadRequest: TDownloadRequest;
- DontOpenThisExts, OpenOnlyThisExts: TStringList;
-
-function CanOpen(FileExt: string): Boolean;
-
-implementation
-
-uses DownloadForm_U;
-
-{$R *.DFM}
-
-function CanOpen(FileExt: string): Boolean;
-begin
- Result := ((DontOpenThisExts.IndexOf(FileExt) < 0) and
- ((OpenOnlyThisExts.Count = 0) or (OpenOnlyThisExts.IndexOf(FileExt) >= 0)));
-end;
-
-procedure TDownloadRequest.btnCancelClick(Sender: TObject);
-begin
- // if FSender.State = sReady then
- DownloadForm.Close;
- Self.Close;
-end;
-
-procedure TDownloadRequest.btnOpenClick(Sender: TObject);
-begin
- Self.ModalResult := mrOpen;
-end;
-
-procedure TDownloadRequest.btnSaveClick(Sender: TObject);
-begin
- dlgSave.FileName := lbNameTxt.Caption;
- if (dlgSave.Execute) then
- begin
- FFileName := ExtractFileName(dlgSave.FileName);
- FDownloadFolder := ExtractFilePath(dlgSave.FileName);
- Self.ModalResult := mrSave;
- end;
-end;
-
-procedure TDownloadRequest.FormDestroy(Sender: TObject);
-begin
- if (imgIcon.Picture.Icon.Handle <> 0) then
- DestroyIcon(imgIcon.Picture.Icon.Handle);
-end;
-
-initialization
- DontOpenThisExts := TStringList.Create();
- OpenOnlyThisExts := TStringList.Create();
-finalization
- DontOpenThisExts.Free();
- OpenOnlyThisExts.Free();
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/Downloaddemo_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/Downloaddemo_U.dfm
deleted file mode 100644
index ad67420959a771145aeb695a05e62c209cfb85a8..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/Downloaddemo_U.dfm
+++ /dev/null
@@ -1,561 +0,0 @@
-object Form1: TForm1
- Left = 88
- Top = 73
- Width = 915
- Height = 639
- Caption = 'IEDownload Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 899
- Height = 193
- Align = alTop
- Color = clWhite
- TabOrder = 0
- object btnStart: TButton
- Left = 303
- Top = 7
- Width = 98
- Height = 21
- Caption = 'Download A File'
- TabOrder = 0
- OnClick = btnStartClick
- end
- object btnStop: TButton
- Left = 407
- Top = 7
- Width = 131
- Height = 21
- Caption = 'Stop Current '
- Enabled = False
- TabOrder = 1
- OnClick = btnStopClick
- end
- object rgBind: TRadioGroup
- Left = 711
- Top = 68
- Width = 182
- Height = 41
- Caption = 'DownloadMethod'
- Items.Strings = (
- 'Download To File'
- 'Download To Stream')
- TabOrder = 2
- OnClick = rgBindClick
- end
- object rgBindMethod: TRadioGroup
- Left = 807
- Top = 3
- Width = 87
- Height = 66
- Caption = 'BindVerbOption'
- Items.Strings = (
- 'Get'
- 'Post'
- 'Put'
- 'Custom')
- TabOrder = 3
- end
- object GroupBox1: TGroupBox
- Left = 1
- Top = 113
- Width = 897
- Height = 79
- Align = alBottom
- Caption = 'Download Path:'
- TabOrder = 4
- DesignSize = (
- 897
- 79)
- object lblProgress: TLabel
- Left = 3
- Top = 39
- Width = 98
- Height = 13
- Caption = ' Download Progress:'
- end
- object ProgressBar1: TProgressBar
- Left = 3
- Top = 55
- Width = 889
- Height = 17
- Anchors = [akLeft, akTop, akRight]
- Min = 0
- Max = 100
- TabOrder = 0
- end
- object edtFile: TEdit
- Left = 3
- Top = 12
- Width = 814
- Height = 21
- Color = clBtnFace
- TabOrder = 1
- end
- end
- object GroupBox2: TGroupBox
- Left = 5
- Top = 7
- Width = 292
- Height = 102
- Caption = 'Enter the addresses of the files to download::'
- TabOrder = 5
- object memAddress: TMemo
- Left = 2
- Top = 15
- Width = 288
- Height = 85
- Align = alClient
- Lines.Strings = (
- 'http://www.microsoft.com/en/us/default.aspx')
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object GroupBox3: TGroupBox
- Left = 404
- Top = 80
- Width = 134
- Height = 29
- Caption = 'State:'
- TabOrder = 6
- object lblState: TLabel
- Left = 48
- Top = 11
- Width = 31
- Height = 13
- Caption = 'Ready'
- end
- end
- object GroupBox4: TGroupBox
- Left = 544
- Top = 7
- Width = 161
- Height = 102
- Caption = 'Options:'
- TabOrder = 7
- object cbOverWrite: TCheckBox
- Left = 3
- Top = 15
- Width = 138
- Height = 17
- Caption = 'OverWrite If File Exists'
- TabOrder = 0
- end
- object cbOpenFolder: TCheckBox
- Left = 3
- Top = 38
- Width = 165
- Height = 17
- Caption = 'Open Folder After Download'
- TabOrder = 1
- end
- object cbAsyn: TCheckBox
- Left = 3
- Top = 61
- Width = 150
- Height = 10
- Caption = 'Asynchronous mode'
- TabOrder = 2
- end
- end
- object btnStopAll: TButton
- Left = 407
- Top = 34
- Width = 131
- Height = 21
- Caption = 'Stop All'
- Enabled = False
- TabOrder = 8
- OnClick = btnStopAllClick
- end
- object btnGoList: TButton
- Left = 301
- Top = 34
- Width = 100
- Height = 21
- Caption = 'Download a List'
- TabOrder = 9
- OnClick = btnGoListClick
- end
- object rgFileExists: TRadioGroup
- Left = 711
- Top = 7
- Width = 90
- Height = 62
- Caption = 'File Exist Options:'
- Items.Strings = (
- 'OverWrite'
- 'Rename'
- 'Skip')
- TabOrder = 10
- end
- object btnToCache: TButton
- Left = 303
- Top = 61
- Width = 98
- Height = 21
- Caption = 'DownloadToCache'
- TabOrder = 11
- OnClick = btnToCacheClick
- end
- object btnToFile: TButton
- Left = 303
- Top = 88
- Width = 98
- Height = 21
- Caption = 'DownloadToFile'
- TabOrder = 12
- OnClick = btnToFileClick
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 463
- Width = 899
- Height = 140
- Align = alBottom
- Caption = 'Panel3'
- TabOrder = 1
- object ListView: TListView
- Left = 1
- Top = 1
- Width = 897
- Height = 138
- Align = alClient
- Columns = <
- item
- Caption = 'File Name'
- Width = 160
- end
- item
- Caption = 'Speed'
- Width = 75
- end
- item
- Caption = 'Downloaded'
- Width = 75
- end
- item
- Caption = 'Remaining Time'
- Width = 90
- end
- item
- Caption = 'Elapsed Time'
- Width = 90
- end
- item
- Caption = 'Status'
- Width = 100
- end
- item
- Caption = 'Data Recived'
- Width = 160
- end
- item
- Caption = 'Percents'
- Width = 70
- end>
- GridLines = True
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 193
- Width = 899
- Height = 270
- Align = alClient
- Caption = 'Panel4'
- TabOrder = 2
- object PageControl1: TPageControl
- Left = 1
- Top = 1
- Width = 897
- Height = 268
- ActivePage = TabSheet1
- Align = alClient
- TabIndex = 0
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Web Browser'
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 41
- Width = 889
- Height = 199
- Align = alClient
- TabOrder = 0
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- OnNavigateComplete2 = EmbeddedWB1NavigateComplete2
- OnFileDownload = EmbeddedWB1FileDownload
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C00000048430000E81B00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 889
- Height = 41
- Align = alTop
- TabOrder = 1
- object btnGo: TButton
- Left = 808
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Go'
- TabOrder = 0
- OnClick = btnGoClick
- end
- object IEAddress1: TIEAddress
- Left = 2
- Top = 8
- Width = 800
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 1
- TextOnShow = 'http://bsalsa.com/downloads.html'
- end
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Preview Data'
- ImageIndex = 3
- object memPreviewData: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet9: TTabSheet
- Caption = 'Preview Stream'
- ImageIndex = 8
- object memPreviewStream: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- Lines.Strings = (
- '')
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Events'
- ImageIndex = 2
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- Caption = 'Panel5'
- TabOrder = 0
- object memEvents: TMemo
- Left = 1
- Top = 1
- Width = 887
- Height = 238
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Server Response'
- ImageIndex = 4
- object memResponse: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet6: TTabSheet
- Caption = 'Progress Text'
- ImageIndex = 5
- object memProgress: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet7: TTabSheet
- Caption = 'Additional Headers'
- ImageIndex = 6
- object memHeaders: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'Errors'
- ImageIndex = 7
- object memErrors: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- Lines.Strings = (
- '')
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet10: TTabSheet
- Caption = 'Details'
- ImageIndex = 9
- object memDetails: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet11: TTabSheet
- Caption = 'Thread info'
- ImageIndex = 10
- object lvThread: TListView
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- Columns = <
- item
- Caption = 'FileName'
- Width = 150
- end
- item
- Caption = 'Thread ID'
- Width = 100
- end
- item
- Caption = 'Thread Handle'
- Width = 100
- end
- item
- Caption = 'Status'
- Width = 100
- end
- item
- Caption = 'ActiveConnecctions'
- Width = 150
- end>
- TabOrder = 0
- ViewStyle = vsReport
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Help'
- ImageIndex = 9
- object memSession: TMemo
- Left = 0
- Top = 0
- Width = 889
- Height = 240
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- end
- object IEDownload1: TIEDownload
- About = ' IEDownload http://bsalsa.com/'
- AdditionalHeader.Strings = (
- 'Content-Type: application/x-www-form-urlencoded')
- DefaultProtocol = 'http://'
- DefaultUrlFileName = 'index.html'
- OnAuthenticate = IEDownload1Authenticate
- OnAuthenticateEx = IEDownload1AuthenticateEx
- OnPutProperty = IEDownload1PutProperty
- OnBeforeDownload = IEDownload1BeforeDownload
- OnBeginningTransaction = IEDownload1BeginningTransaction
- OnCodeInstallProblem = IEDownload1CodeInstallProblem
- OnDataAvailable = IEDownload1DataAvailable
- OnDataAvailableInfo = IEDownload1DataAvailableInfo
- OnConnect = IEDownload1Connect
- OnComplete = IEDownload1Complete
- OnStreamComplete = IEDownload1StreamComplete
- OnError = IEDownload1Error
- OnGetBindResults = IEDownload1GetBindResults
- OnGetBindInfo = IEDownload1GetBindInfo
- OnGetBindInfoEx = IEDownload1GetBindInfoEx
- OnGetSerializedClientCertContext = IEDownload1GetSerializedClientCertContext
- OnGetRootSecurityId = IEDownload1GetRootSecurityId
- OnGetWindow = IEDownload1GetWindow
- OnProgress = IEDownload1Progress
- OnRedirect = IEDownload1Redirect
- OnResponse = IEDownload1Response
- OnResume = IEDownload1Resume
- OnSecurityProblem = IEDownload1SecurityProblem
- OnStartBinding = IEDownload1StartBinding
- OnStateChange = IEDownload1StateChange
- OnStopBinding = IEDownload1StopBinding
- TimeOut = 2147483647
- Left = 120
- Top = 72
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/Downloaddemo_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/Downloaddemo_U.pas
deleted file mode 100644
index 37a154c1e7e42f8a43485452be7da712fa80a6c9..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/Downloaddemo_U.pas
+++ /dev/null
@@ -1,735 +0,0 @@
-//*************************************************************************
-// *
-// IEDownload Demo 2009 * *
-// by *
-// Eran Bodankin - bsalsa - (bsalsa@gmail.com) *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit Downloaddemo_U;
-
-interface
-
-uses
- dialogs, Windows, SysUtils, Classes, Forms, UrlMon, StdCtrls, ActiveX,
- Controls, ComCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, ExtCtrls, OleCtrls,
- IEDownload, IEDownloadAcc, IEDownloadTools, IEAddress;
-
-type
- TForm1 = class(TForm)
- IEDownload1: TIEDownload;
- Panel1: TPanel;
- btnStart: TButton;
- btnStop: TButton;
- Panel3: TPanel;
- Panel4: TPanel;
- ListView: TListView;
- rgBind: TRadioGroup;
- rgBindMethod: TRadioGroup;
- GroupBox1: TGroupBox;
- ProgressBar1: TProgressBar;
- lblProgress: TLabel;
- GroupBox2: TGroupBox;
- edtFile: TEdit;
- GroupBox3: TGroupBox;
- lblState: TLabel;
- GroupBox4: TGroupBox;
- cbOverWrite: TCheckBox;
- cbOpenFolder: TCheckBox;
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- EmbeddedWB1: TEmbeddedWB;
- TabSheet4: TTabSheet;
- memPreviewData: TMemo;
- TabSheet9: TTabSheet;
- memPreviewStream: TMemo;
- TabSheet3: TTabSheet;
- Panel5: TPanel;
- memEvents: TMemo;
- TabSheet5: TTabSheet;
- memResponse: TMemo;
- TabSheet6: TTabSheet;
- memProgress: TMemo;
- TabSheet7: TTabSheet;
- memHeaders: TMemo;
- TabSheet8: TTabSheet;
- memErrors: TMemo;
- TabSheet10: TTabSheet;
- memDetails: TMemo;
- TabSheet2: TTabSheet;
- memSession: TMemo;
- memAddress: TMemo;
- btnStopAll: TButton;
- btnGoList: TButton;
- rgFileExists: TRadioGroup;
- cbAsyn: TCheckBox;
- btnToCache: TButton;
- btnToFile: TButton;
- TabSheet11: TTabSheet;
- lvThread: TListView;
- Panel2: TPanel;
- btnGo: TButton;
- IEAddress1: TIEAddress;
- procedure rgBindClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- function IEDownload1Response(Sender: TBSCB; dwResponseCode: Cardinal;
- szResponseHeaders, szRequestHeaders: PWideChar;
- out szAdditionalRequestHeaders: PWideChar): HRESULT;
- procedure IEDownload1Resume(Sender: TBSCB; FileName: string;
- var Action: Cardinal);
- function IEDownload1GetWindow(Sender: TBSCB; const GUIDReason: TGUID;
- out hwnd: Cardinal): HRESULT;
- procedure IEDownload1DataAvailable(Sender: TBSCB; var Buffer: PByte;
- var BufLength: Cardinal);
- function IEDownload1BeginningTransaction(Sender: TBSCB; szURL,
- szHeaders: PWideChar; dwReserved: Cardinal;
- out szAdditionalHeaders: PWideChar): HRESULT;
- procedure btnStopClick(Sender: TObject);
- procedure btnStartClick(Sender: TObject);
- function IEDownload1SecurityProblem(Sender: TBSCB; dwProblem: Cardinal;
- Problem: string): HRESULT;
- procedure IEDownload1GetBindResults(var Sender: TBSCB;
- out clsidProtocol: TGUID; out dwResult: Cardinal; out szResult: PWideChar;
- const stResult: string);
- procedure IEDownload1StateChange(State: TState);
- procedure IEDownload1Error(const ErrorCode: Integer; const stError: string);
- function IEDownload1CodeInstallProblem(Sender: TBSCB;
- ulStatusCode: Cardinal; szDestination, szSource: PWideChar;
- dwReserved: Cardinal; stResult: string): HRESULT;
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- function IEDownload1GetRootSecurityId(var SecurityIdBuffer: TByteArray;
- var BufferSize: Cardinal): HRESULT;
- procedure IEDownload1Redirect(Sender: TBSCB; var AbortRedirect: Boolean;
- const FromUrl, DestUrl: string);
- procedure IEDownload1DataAvailableInfo(Sender: TBSCB; grfBSCF: Cardinal;
- Status: string);
- procedure btnStopAllClick(Sender: TObject);
- procedure btnGoListClick(Sender: TObject);
- procedure IEDownload1FileExists(var Action: TFileExistsOption;
- const aFileName: WideString; var NewFileName: WideString);
- procedure IEDownload1StopBinding(Sender: TBSCB; HRESULT: HRESULT;
- szError: PWideChar);
- function IEDownload1GetBindInfo(Sender: TBSCB; out grfBINDF: Cardinal;
- var BindInfo: _tagBINDINFO): HRESULT;
- procedure btnToCacheClick(Sender: TObject);
- procedure btnToFileClick(Sender: TObject);
- procedure IEDownload1Connect(Sender: TBSCB; Res: HRESULT;
- stMessage: string);
- procedure IEDownload1StreamComplete(Sender: TBSCB; Stream: TStream;
- Result: HRESULT);
- procedure IEDownload1Terminate(const Sender: TBSCB; const ThreadId: Integer;
- const aFileName: WideString; var bCancel: Boolean);
- function IEDownload1GetBindInfoEx(Sender: TBSCB; out grfBINDF: Cardinal;
- pbindinfo: _tagBINDINFO; out grfBINDF2: Cardinal): HRESULT;
- function IEDownload1GetSerializedClientCertContext(var Sender: TBSCB;
- out ppbCert: Byte; var pcbCert: Cardinal): HRESULT;
- function IEDownload1PutProperty(Sender: TBSCB; mkp: _MONIKERPROPERTY;
- val: PWideChar): HRESULT;
- procedure IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
- procedure IEDownload1StartBinding(Sender: TBSCB; var Cancel: Boolean;
- pib: IBinding; const FileName: WideString; const FileSize: Integer);
- procedure IEDownload1Authenticate(Sender: TBSCB; var tmpHWND: HWND;
- var szUserName, szPassWord: WideString; var Rezult: HRESULT);
- procedure IEDownload1AuthenticateEx(Sender: TBSCB; var tmpHWND: HWND;
- var szUserName, szPassWord: WideString; pauthinfo: _tagAUTHENTICATEINFO;
- var Rezult: HRESULT);
- procedure IEDownload1Complete(Sender: TCustomIEDownload; aFileNameAndPath,
- aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
- procedure IEDownload1BeforeDownload(Sender: TInfoData; const Url, FileName,
- FileExtension, Host, DownloadFolder: string; const FileSize: Integer;
- var Cancel: Boolean);
- procedure EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB; pmk: IMoniker;
- pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo;
- pszHeaders, pszRedir: PWideChar; uiCP: Cardinal; var Rezult: HRESULT);
- procedure btnGoClick(Sender: TObject);
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- procedure EmbeddedWB1NavigateComplete2(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- private
- { Private declarations }
- tmpString: string;
- counter: integer;
- procedure ClearComponents;
- procedure InitialComponents;
- procedure UpdateThreadDetails(aSender: TBSCB);
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.DFM}
-
-procedure TForm1.btnStopAllClick(Sender: TObject);
-begin
- IEDownload1.CancelAll;
- counter := 0;
-end;
-
-procedure TForm1.btnStopClick(Sender: TObject);
-begin
- IEDownload1.Cancel;
- counter := 0;
-end;
-
-procedure TForm1.btnToCacheClick(Sender: TObject);
-begin
- ClearComponents;
- InitialComponents;
- IEdownload1.UrlDownloadToCacheFile(memAddress.Lines[0]);
-end;
-
-procedure TForm1.btnToFileClick(Sender: TObject);
-begin
- ClearComponents;
- InitialComponents;
- IEdownload1.UrlDownloadToFile(memAddress.Lines[0]);
-end;
-
-procedure TForm1.btnGoClick(Sender: TObject);
-begin
- EmbeddedWB1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.btnGoListClick(Sender: TObject);
-var
- sl: TStrings;
-begin
- ClearComponents;
- InitialComponents;
- sl := TStringList.Create;
- try
- with sl do
- begin
- Add('http://www.bsalsa.com/Downloads/2.exe');
- Add('http://www.bsalsa.com/Downloads/2.rar');
- Add('http://www.bsalsa.com/support.html');
- end;
- memAddress.Clear;
- memAddress.Lines := sl;
- IEdownload1.GoList(sl);
- finally
- sl.Free;
- end;
-end;
-
-procedure TForm1.btnStartClick(Sender: TObject);
-begin
- ClearComponents;
- InitialComponents;
- IEdownload1.Go(memAddress.Lines[0]);
- MemSession.Lines:= IEdownload1.ItemsManager.SessionList;
-end;
-
-procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
- if IEDownload1.ActiveConnections > 0 then
- begin
- if MessageDlg('Threads active. Do you still want to quit?',
- mtWarning, [mbYes, mbNo], 0) = mrNo then
- CanClose:= False
- else
- IEDownload1.CancelAll;
- end;
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- PageControl1.ActivePageIndex := 0;
- cbOverWrite.Checked := True;
- cbAsyn.Checked := True;
- cbOpenFolder.Checked := True;
- rgBindMethod.ItemIndex := 0;
- rgBind.ItemIndex := 0;
- rgFileExists.ItemIndex := 0;
-end;
-
-procedure TForm1.rgBindClick(Sender: TObject);
-begin
- cbOpenFolder.Enabled := not (rgBind.ItemIndex = 1);
-end;
-
-procedure TForm1.IEDownload1DataAvailable(Sender: TBSCB; var Buffer: PByte;
- var BufLength: Cardinal);
-{Use the OnData event to get the data for parsing/editing '
- on the fly'. }
-begin
- inc(counter);
- if counter = 1 then {Just so you will not see the event fires several times}
- memEvents.Lines.Add('Data Available Event.');
- memPreviewData.Lines.Add(string(PAnsiChar(Buffer)));
-end;
-
-procedure TForm1.IEDownload1DataAvailableInfo(Sender: TBSCB; grfBSCF: Cardinal;
- Status: string);
-begin
- if tmpString <> Status then
- {Just so you will not see the event fires several times}
- memEvents.Lines.Add('Data Available Info Event:' + Status);
- tmpString := status;
-end;
-
-procedure TForm1.IEDownload1Error(const ErrorCode: Integer;
- const stError: string);
-begin
- memEvents.Lines.Add('Error Event.' + stError);
- memErrors.Lines.Add('An error accrued: ' + stError);
- PageControl1.ActivePageIndex := 7;
-end;
-
-procedure TForm1.IEDownload1FileExists(var Action: TFileExistsOption;
- const aFileName: WideString; var NewFileName: WideString);
-
-begin
- memEvents.Lines.Add('File Exists Event: ' + aFileName);
- case rgFileExists.ItemIndex of
- 0: Action := feOverWrite;
- 1:
- begin
- Action := feRename;
- TimeSeparator := '_';
- NewFileName := Inputbox('IE Downloader - File exist warning',
- 'Please type a new file name', TimeToStr(now) + '_' +
- IEDownload1.FileName);
- if NewFileName = '' then
- Action := feSkip;
- end;
- 2:
- begin
- showmessage('The file exists. Operation aborted.');
- EmbeddedWb1.LoadFromString('The file exists. Operation aborted.');
- Action := feSkip;
- end;
- end;
-end;
-
-procedure TForm1.IEDownload1Authenticate(Sender: TBSCB; var tmpHWND: HWND;
- var szUserName, szPassWord: WideString; var Rezult: HRESULT);
-begin
- memEvents.Lines.Add('Authenticate Event.' + #13#10 +
- ResponseCodeToStr(Rezult));
- if (szUserName <> '') or (szPassWord <> '') then
- begin
- memEvents.Lines.Add('UserName : ' + szUserName);
- memEvents.Lines.Add('Password : ' + szPassWord)
- end;
-end;
-
-procedure TForm1.IEDownload1AuthenticateEx(Sender: TBSCB; var tmpHWND: HWND;
- var szUserName, szPassWord: WideString; pauthinfo: _tagAUTHENTICATEINFO;
- var Rezult: HRESULT);
-begin
- memEvents.Lines.Add('AuthenticateEx Event.' + #13#10 +
- ResponseCodeToStr(Rezult));
- if (szUserName <> '') or (szPassWord <> '') then
- begin
- memEvents.Lines.Add('UserName : ' + szUserName);
- memEvents.Lines.Add('Password : ' + szPassWord)
- end;
-end;
-
-procedure TForm1.IEDownload1BeforeDownload(Sender: TInfoData; const Url,
- FileName, FileExtension, Host, DownloadFolder: string;
- const FileSize: Integer; var Cancel: Boolean);
-begin
- memEvents.Lines.Add('Before Download Event. ' + FileName);
-end;
-
-function TForm1.IEDownload1BeginningTransaction(Sender: TBSCB; szURL,
- szHeaders: PWideChar; dwReserved: Cardinal;
- out szAdditionalHeaders: PWideChar): HRESULT;
-{Use OnBeginningTransaction to add additionally headers to the
- transaction.}
-begin
- UpdateThreadDetails(Sender);
- memHeaders.Lines.Add('AdditionalHeaders:' + #13#10 + szAdditionalHeaders);
- memEvents.Lines.Add('Beginning Transaction Event.');
- Result := S_OK;
-end;
-
-function TForm1.IEDownload1CodeInstallProblem(Sender: TBSCB;
- ulStatusCode: Cardinal; szDestination, szSource: PWideChar;
- dwReserved: Cardinal; stResult: string): HRESULT;
-begin {The event will fire only under this terms:
- http://msdn.microsoft.com/en-us/library/ms775136(VS.85).aspx}
- memEvents.Lines.Add('Code Install Problem Event.');
- memErrors.Lines.Add('An error accrued: ' + stResult);
- Result := S_OK;
-end;
-
-procedure TForm1.IEDownload1Complete(Sender: TCustomIEDownload;
- aFileNameAndPath, aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
- var
- lvTItem: TListItem;
- idx: integer;
-begin
- memEvents.Lines.Add('Complete Event:' + aFileName);
- with memDetails.Lines do
- begin
- Add(#13#10 + 'Downloading from: ' + IEDownload1.ServerAddress);
- Add(#13#10 + 'Server IP: ' + IEDownload1.ServerIP);
- Add(#13#10 + 'File mime type: ' + IEDownload1.MimeType);
- Add(#13#10 + 'Display Name: ' + IEDownload1.DisplayName);
- case IEDownload1.DownloadMethod of
- dmStream:Add(#13#10 + 'Download method: Stream');
- dmFile:
- begin
- Add(#13#10 + 'Download method: File');
- Add(#13#10 + 'Download folder: ' + aFolderName);
- Add(#13#10 + 'Downloaded File name: ' + aFileName);
- Add(#13#10 + 'Downloaded File Extension: ' + aExtension);
- Add(#13#10 + 'File size: ' + (FormatSize(IEDownload1.FileSize)));
- if not FileExists(aFileNameAndPath) then
- memErrors.Lines.Add('Can not Locate The File.')
- else
- begin
- if IEDownload1.MimeType = 'text/html' then
- EmbeddedWB1.Go(aFileNameAndPath)
- else
- EmbeddedWB1.LoadFromString('Done.');
- end;
- end;
- end;
- Add(#13#10 + 'Total Downloads: ' + IntToStr(IEDownload1.DownloadsCounter));
- edtFile.Text := IEDownload1.DownloadFolder + IEDownload1.FileName;
- end;
- for idx := 0 to lvThread.Items.Count - 1 do
- if (lvThread.Items[idx].Caption = IEDownload1.FileName) then
- begin
- lvTItem := lvThread.Items[idx];
- if (Assigned(lvTItem)) then
- lvTItem.SubItems[3] := IntToStr(IEDownload1.ActiveConnections);
- end;
-end;
-
-procedure TForm1.IEDownload1Connect(Sender: TBSCB; Res: HRESULT;
- stMessage: string);
-begin
- memEvents.Lines.Add('Connect Event:' + stMessage);
-end;
-
-function TForm1.IEDownload1SecurityProblem(Sender: TBSCB; dwProblem: Cardinal;
- Problem: string): HRESULT;
-begin
- memEvents.Lines.Add('SecurityProblem Event.');
- Result := S_OK;
-end;
-
-procedure TForm1.IEDownload1StartBinding(Sender: TBSCB; var Cancel: Boolean;
- pib: IBinding; const FileName: WideString; const FileSize: Integer);
-begin
- memEvents.Lines.Add('Start Binding Event.' + FileName);
-end;
-
-procedure TForm1.IEDownload1StateChange(State: TState);
-begin
- btnStart.Enabled := not IEDownload1.Busy;
- btnGoList.Enabled := not IEDownload1.Busy;
- btnToCache.Enabled := not IEDownload1.Busy;
- btnToFile.Enabled := not IEDownload1.Busy;
- btnStop.Enabled := IEDownload1.Busy;
- btnStopAll.Enabled := IEDownload1.Busy;
- case State of
- sBusy:
- begin
- memEvents.Lines.Add('StateChange: Busy');
- lblState.Caption := 'Busy';
- end;
- sReady:
- begin
- memEvents.Lines.Add('StateChange: Ready');
- lblState.Caption := 'Ready';
- end;
- sStopped:
- begin
- memEvents.Lines.Add('StateChange: Stopped');
- lblState.Caption := 'Stopped';
- end;
- end;
-end;
-
-procedure TForm1.IEDownload1StopBinding(Sender: TBSCB; HRESULT: HRESULT;
- szError: PWideChar);
-begin
- memEvents.Lines.Add('StopBinding Event. ' + ResponseCodeToStr(HRESULT));
- if HRESULT <> S_OK then
- memErrors.Lines.Add('On Stop Binding Error: ' + szError);
-end;
-
-procedure TForm1.IEDownload1StreamComplete(Sender: TBSCB; Stream: TStream;
- Result: HRESULT);
-var
- MS: TMemoryStream;
-begin
- memEvents.Lines.Add('DownloadComplete Event.');
- counter := 0;
- MS := TMemoryStream.Create;
- with ms do
- begin
- Seek(0, 0);
- LoadFromStream(Stream);
- end;
- memPreviewStream.Lines.LoadFromStream(MS);
- MS.Free;
- if IEDownload1.DownloadMethod = dmStream then
- EmbeddedWB1.LoadFromStream(Stream);
-end;
-
-procedure TForm1.IEDownload1Terminate(const Sender: TBSCB;
- const ThreadId: Integer; const aFileName: WideString; var bCancel: Boolean);
-begin
- UpdateThreadDetails(Sender);
- memEvents.Lines.Add('Termination Event.');
- // if IEDownload1.ProcessCounter > 0 then
- begin
- // if MessageDlg('Threads active. Do you still want to quit?',
- // mtWarning, [mbYes, mbNo], 0) = mrNo then
- // CanClose := false;
- end;
-end;
-
-function TForm1.IEDownload1GetBindInfo(Sender: TBSCB; out grfBINDF: Cardinal;
- var BindInfo: _tagBINDINFO): HRESULT;
-begin
- memEvents.Lines.Add('GetBindInfo Event.');
- Result := S_OK;
-end;
-
-function TForm1.IEDownload1GetBindInfoEx(Sender: TBSCB; out grfBINDF: Cardinal;
- pbindinfo: _tagBINDINFO; out grfBINDF2: Cardinal): HRESULT;
-begin
- memEvents.Lines.Add('GetBindInfoEx Event.');
- Result := S_OK;
-end;
-
-procedure TForm1.IEDownload1GetBindResults(var Sender: TBSCB;
- out clsidProtocol: TGUID; out dwResult: Cardinal; out szResult: PWideChar;
- const stResult: string);
-begin
- memEvents.Lines.Add('GetBindResults Event. ' + stResult);
- if dwResult <> S_OK then
- memErrors.Lines.Add(szResult + ' GetBindResults.' + stResult);
-end;
-
-function TForm1.IEDownload1GetRootSecurityId(var SecurityIdBuffer: TByteArray;
- var BufferSize: Cardinal): HRESULT;
-begin
- Result := S_OK;
- memEvents.Lines.Add('Get Root Security Id Event.');
-end;
-
-function TForm1.IEDownload1GetSerializedClientCertContext(var Sender: TBSCB;
- out ppbCert: Byte; var pcbCert: Cardinal): HRESULT;
-begin
- memEvents.Lines.Add('GetSerializedClientCertContext Event.');
- Result := S_OK;
-end;
-
-function TForm1.IEDownload1GetWindow(Sender: TBSCB; const GUIDReason: TGUID;
- out hwnd: Cardinal): HRESULT;
-begin
- memEvents.Lines.Add('GetWindow Event.');
- Result := S_OK;
-end;
-
-procedure TForm1.IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
-var
- ListItem: TListItem;
-begin
- memProgress.Lines.Add(szStatusText);
- memProgress.Lines.Add(Status);
- lblProgress.Caption := Format('Downloaded %d of %d bytes', [ulProgress,
- ulProgressMax]) + ' | in KB: ' + FormatSize(IEDownload1.FileSize);
- ProgressBar1.Max := ulProgressMax;
- ProgressBar1.Position := ulProgress;
- if (ulStatusCode = BINDSTATUS_BEGINDOWNLOADDATA) then
- memEvents.Lines.Add('Progress Event.');
- if (ulStatusCode = BINDSTATUS_DOWNLOADINGDATA) or (ulStatusCode =
- BINDSTATUS_ENDDOWNLOADDATA) then
- begin
- with ListView do
- begin
- Items.BeginUpdate;
- try
- ListItem := ListView.Items.Add;
- ListItem.Caption := IEDownload1.FileName;
- with ListItem.SubItems do
- begin
- Add(Speed);
- Add(Downloaded);
- Add(RemainingTime);
- Add(ElapsedTime);
- Add(Status);
- Add(' (' + IntToStr(ulProgress) + ' of: ' + IntToStr(ulProgressMax) +
- ')');
- Add(Percent);
- end;
- finally
- Items.EndUpdate;
- end;
- end;
- end;
-end;
-
-function TForm1.IEDownload1PutProperty(Sender: TBSCB; mkp: _MONIKERPROPERTY;
- val: PWideChar): HRESULT;
-begin
- memEvents.Lines.Add('Put Property Event');
- Result:= S_OK;
-end;
-
-procedure TForm1.IEDownload1Redirect(Sender: TBSCB; var AbortRedirect: Boolean;
- const FromUrl, DestUrl: string);
-begin
- AbortRedirect := False;
- memEvents.Lines.Add('Redirect Event from address:' + FromUrl + #13#10 +
- 'To address: ' + DestUrl);
-end;
-
-function TForm1.IEDownload1Response(Sender: TBSCB; dwResponseCode: Cardinal;
- szResponseHeaders, szRequestHeaders: PWideChar;
- out szAdditionalRequestHeaders: PWideChar): HRESULT;
-{Use OnResponse to get response headers and eventually add additional request headers.}
-begin
- memEvents.Lines.Add('Response Event.');
- with memResponse.Lines do
- begin
- Add('dwResponseCode:');
- Add(ResponseCodeToStr(dwResponseCode));
- Add('Response szResponseHeaders:');
- Add(szResponseHeaders);
- end;
- Result := S_OK;
-end;
-
-procedure TForm1.IEDownload1Resume(Sender: TBSCB; FileName: string;
- var Action: Cardinal);
-begin
- //Useless, the event is not supprted by Microsoft yet.
- memEvents.Lines.Add('Response Event.');
-end;
-
-{Some procedures-----------------------------------------------------------------}
-
-procedure TForm1.ClearComponents;
-begin
- lvThread.Clear;
- memHeaders.Lines.Clear;
- memEvents.Lines.Clear;
- memPreviewData.Lines.Clear;
- memPreviewStream.Lines.Clear;
- memResponse.Lines.Clear;
- memProgress.Lines.Clear;
- MemErrors.Lines.Clear;
- ListView.Items.Clear;
- MemDetails.Lines.Clear;
- edtFile.Text := '';
-end;
-
-procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- IEAddress1.Text:= URL;
-end;
-
-procedure TForm1.EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB;
- pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal;
- pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal;
- var Rezult: HRESULT);
-begin
- Rezult:= S_OK;
- IEDownload1.Download(pmk, pbc);
-end;
-
-procedure TForm1.EmbeddedWB1NavigateComplete2(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-begin
- IEAddress1.Text:= EmbeddedWB1.LocationURL;
-end;
-
-procedure TForm1.InitialComponents;
-begin
- EmbeddedWB1.AddHtmlToAboutBlank('Working. Please wait..');
- //PageControl1.ActivePageIndex := 0;
- ProgressBar1.Position := 0;
- counter := 0;
- with IEDownload1 do
- begin
- case rgBind.ItemIndex of
- 0: BindVerb := Get;
- 1: BindVerb := Post;
- 2: BindVerb := Put;
- 3: BindVerb := Custom;
- end;
- case rgBind.ItemIndex of
- 0: DownloadMethod := dmFile;
- 1: DownloadMethod := dmStream;
- end;
- if (cbOpenFolder.Checked) and (DownloadMethod = dmFile) then
- OpenDownloadFolder := True
- else
- OpenDownloadFolder := False;
-
- if cbAsyn.Checked then
- BindF := BindF + [Asynchronous]
- else
- BindF := BindF - [Asynchronous];
- end;
-end;
-
-procedure TForm1.UpdateThreadDetails(aSender: TBSCB);
- var
- lvTItem: TListItem;
-begin
- if (aSender <> nil) then
- begin
- lvTItem := lvThread.Items.Add;
- with lvTItem do
- begin
- Caption := IEDownload1.FileName;
- SubItems.Add(IntToStr(aSender.ThreadID));
- SubItems.Add(IntToStr(aSender.Handle));
- case aSender.ThreadStatus of
- tsRunning: SubItems.Add('Running');
- tsSuspended: SubItems.Add('Suspended');
- tsWaiting: SubItems.Add('Waiting');
- tsTerminated: SubItems.Add('Terminated');
- end;
- SubItems.Add(IntToStr(IEDownload1.ActiveConnections));
- end;
- end;
-end;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/prjDownloadDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/prjDownloadDemo.dpr
deleted file mode 100644
index b7eaf82ed52118489a66e89e607596dfdda06e90..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Mega_Demo/prjDownloadDemo.dpr
+++ /dev/null
@@ -1,47 +0,0 @@
-//*************************************************************************
-// *
-// IEDownload Demo * *
-// by *
-// Per Linds Larsen *
-// *
-// Contributions: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-program prjDownloadDemo;
-
-uses
- Forms,
- Downloaddemo_U in 'Downloaddemo_U.pas' {Form1};
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.dfm
deleted file mode 100644
index 8e966e110e61fe8ca8ddff769939107efd165e82..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.dfm
+++ /dev/null
@@ -1,72 +0,0 @@
-object DownloadForm: TDownloadForm
- Left = 322
- Top = 111
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Downloads'
- ClientHeight = 217
- ClientWidth = 776
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object ListView: TListView
- Left = 0
- Top = 0
- Width = 776
- Height = 217
- Align = alClient
- Columns = <
- item
- Caption = 'File'
- Width = 120
- end
- item
- Caption = 'Status'
- Width = 120
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 55
- end
- item
- Alignment = taRightJustify
- Caption = 'Progress'
- Width = 55
- end
- item
- Alignment = taRightJustify
- Caption = 'Speed'
- Width = 60
- end
- item
- Caption = 'Remaining'
- Width = 70
- end
- item
- Caption = 'Thread ID'
- Width = 60
- end
- item
- Caption = 'ActiveConnections'
- Width = 90
- end
- item
- Caption = 'Progress bar'
- Width = 150
- end>
- ReadOnly = True
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.pas
deleted file mode 100644
index fda61b69e7c091bef4a254e4ab31e9db97ea12d0..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadForm_U.pas
+++ /dev/null
@@ -1,256 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// By: *
-// Eran Bodankin -bsalsa(bsalsa@gmail.com) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit DownloadForm_U;
-
-interface
-
-uses
- Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
- IEDownload, ComCtrls, UrlMon, ActiveX, DownloadRequestForm,
- ShellApi, Menus, ExtCtrls, IEDownloadTools, Graphics;
-
-const
- SEE_MASK_NOZONECHECKS = $00800000;
-
-type
- TDownloadForm = class(TForm)
-
- ListView: TListView;
- procedure FormDestroy(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure IEDownloadStartBinding(Sender: TBSCB; var Cancel: Boolean; pib:
- IBinding; const FileName: WideString; const FileSize: integer);
- procedure IEDownloadProgress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded, ElapsedTime,
- Speed, RemainingTime, Status, Percent: string);
- private
- protected
- public
- { Public declarations }
- procedure FileDownload(inUrl: string; pmk: IMoniker; pbc: IBindCtx);
-
- end;
-
-var
- IED: TIEDownload;
- DownloadForm: TDownloadForm;
-
-implementation
-
-{$R *.dfm}
-
-
-procedure TDownloadForm.FormDestroy(Sender: TObject);
-begin
- DownloadForm := nil;
-end;
-
-procedure TDownloadForm.FileDownload(inUrl: string; pmk: IMoniker; pbc:
- IBindCtx);
-begin
- if (not Visible) then
- Show
- else
- BringToFront;
- IED := TIEDownload.Create(Self);
- try
- with IED do
- begin
- OnProgress:= IEDownloadProgress;
- OnStartBinding:= IEDownloadStartBinding;
- Go(inUrl);
- end;
- finally
- if IED <> nil then
- FreeAndNil(IED);
- end;
-end;
-
-
-function FindStringInLV(listItems: TListItems; inString: string): Integer;
-var
- idx: Integer;
-begin
- Result := -1;
- for idx := 0 to listItems.Count - 1 do
- if (listItems[idx].Caption = inString) then
- begin
- Result := idx;
- Break;
- end;
-end;
-
-function FindThreadIDInLV(listItem: TListItems; SubIdx, ID: integer): Integer;
-var
- idx: Integer;
-begin
- Result := -1;
- for idx := 0 to listItem.Count - 1 do
- if (listItem[idx].SubItems[SubIdx] = IntToStr(ID)) then
- begin
- Result := idx;
- Break;
- end;
-end;
-
-procedure TDownloadForm.IEDownloadProgress(Sender: TBSCB; ulProgress,
- ulProgressMax, ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
-var
- lvItem: TListItem;
- idx: integer;
- pb: TProgressBar;
-begin
- if ListView.Items.Count = 0 then
- Exit;
- begin {New downlaod}
- idx := FindThreadIDInLV(Listview.Items, 5, Sender.ThreadID);
- lvItem := ListView.Items[idx];
- if (Assigned(lvItem)) then
- begin
- lvItem.SubItems[0] := Status;
- if ((ulStatusCode = BINDSTATUS_ENDDOWNLOADDATA) or
- (ulStatusCode = BINDSTATUS_DOWNLOADINGDATA)) then
- begin
- with lvItem do
- begin
- SubItems[1] := FormatSize(FileSize);
- SubItems[2] := Percent;
- SubItems[3] := Speed;
- SubItems[4] := RemainingTime;
- // SubItems[6] := IntToStr(IED.ActiveConnections);
- end;
- pb := TProgressBar(Listview.Items[idx].Data);
- pb.Max := ulProgressMax;
- pb.Position := ulProgress;
- end;
- end;
- end;
-end;
-
-procedure TDownloadForm.IEDownloadStartBinding(Sender: TBSCB; var Cancel: Boolean; pib:
- IBinding; const FileName: WideString; const FileSize: integer);
-var
- DownloadRequest: TDownloadRequest;
- ModRes: TModalResult;
- lvItem: TListItem;
- idx: Integer;
- pbRect: TRect;
- pb: TProgressBar;
-begin
- idx := FindStringInLV(Listview.Items, IED.FileName);
- if (idx > -1) then
- begin
- lvItem := Listview.Items[idx];
- with lvItem do
- begin
- SubItems[0] := 'Resuming...';
- SubItems.Add(''); // Size
- SubItems.Add(''); // Progress
- SubItems.Add(''); // Speed
- SubItems.Add('UnKnown'); // Remaining Time
- SubItems.Add(IntToStr(Sender.ThreadID));
- //SubItems.Add(IntToStr(IED.ActiveConnections));
- SubItems.Add(''); //ProgressBar
- end;
- pb := TProgressBar.Create(nil);
- pb.Parent := Listview;
- lvItem.Data := pb;
- pbRect := lvItem.DisplayRect(drBounds);
- pbRect.Left := 540 + pbRect.Left + ListView.Columns[7].Width;
- pbRect.Right := pbRect.Left+ Listview.Columns[7].Width+50;
- pb.BoundsRect := pbRect;
- end
- else
- begin
- DownloadRequest := TDownloadRequest.Create(nil);
- try
- DontOpenThisExts.Add('msi');
- DownloadRequest.SetInfo(IED);
- modres := DownloadRequest.ShowModal;
- case ModRes of
- mrCancel:
- begin
- Cancel := True;
- DownloadRequest.Close;
- end;
- mrOpen:
- begin
- IED.OpenDownloadFolder := True;
- end;
- mrSave:
- end;
- idx := FindThreadIDInLV(Listview.Items, 5, Sender.ThreadID);
- if (idx > -1) then
- lvItem := ListView.Items[idx]
- else
- lvItem := Listview.Items.Add;
- with lvItem do
- begin
- Caption := IED.FileName;
- SubItems.Add('Waiting'); // Status
- SubItems.Add(''); // Size
- SubItems.Add(''); // Progress
- SubItems.Add(''); // Speed
- SubItems.Add('UnKnown'); // Remaining Time
- SubItems.Add(IntToStr(Sender.ThreadID));
- // SubItems.Add(IntToStr(IED.ActiveConnections));
- SubItems.Add(''); //ProgressBar
- end;
- pb := TProgressBar.Create(nil);
- pb.Parent := Listview;
- lvItem.Data := pb;
- pbRect := lvItem.DisplayRect(drBounds);
- pbRect.Left := 540 + pbRect.Left + ListView.Columns[7].Width;
- pbRect.Right := pbRect.Left+ Listview.Columns[7].Width+50;
- pb.BoundsRect := pbRect;
- finally
- DownloadRequest.Free;
- end;
- end;
-end;
-
-procedure TDownloadForm.FormClose(Sender: TObject;
- var Action: TCloseAction);
-begin
- if IED<> nil then
- begin
- if IED.Busy then
- IED.CancelAll;
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.dfm
deleted file mode 100644
index 6bb50a50c9d5121dbb68f6697d29d71f329473d9..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.dfm
+++ /dev/null
@@ -1,81 +0,0 @@
-object Form1: TForm1
- Left = 269
- Top = 107
- Width = 607
- Height = 428
- Caption = 'IE Downloag Mgr '
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 41
- Width = 591
- Height = 351
- TabStop = False
- Align = alClient
- TabOrder = 0
- OnDownloadComplete = EmbeddedWB1DownloadComplete
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- OnFileDownload = EmbeddedWB1FileDownload
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
- ControlData = {
- 4C0000005E330000901A00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 591
- Height = 41
- Align = alTop
- TabOrder = 1
- object Button1: TButton
- Left = 514
- Top = 10
- Width = 58
- Height = 21
- Caption = 'Go'
- TabOrder = 0
- OnClick = Button1Click
- end
- object IEAddress1: TIEAddress
- Left = 0
- Top = 9
- Width = 505
- Height = 22
- AutoNavigateOnLoad = False
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- EmbeddedWB = EmbeddedWB1
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 1
- TextOnLoad = tlUserDefine
- TextOnShow = 'http://bsalsa.com/downloads.html'
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.pas
deleted file mode 100644
index b58ea80a082cf3fa44f0507fb4f87f15186451ab..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadMgrDemo_U.pas
+++ /dev/null
@@ -1,107 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// by: *
-// Eran Bodankin -bsalsa(bsalsa@gmail.com) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit DownloadMgrDemo_U;
-
-interface
-
-uses
- dialogs, ActiveX, IEConst, Windows, Classes, Forms, StdCtrls, EmbeddedWB, UrlMon,
- IEAddress, ExtCtrls, EwbCore, Controls, OleCtrls, SHDocVw_EWB;
-
-type
- TForm1 = class(TForm)
- EmbeddedWB1: TEmbeddedWB;
- Panel1: TPanel;
- Button1: TButton;
- IEAddress1: TIEAddress;
- procedure EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB; pmk: IMoniker;
- pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo;
- pszHeaders, pszRedir: PWideChar; uiCP: Cardinal; var Rezult: HRESULT);
- procedure Button1Click(Sender: TObject);
- procedure EmbeddedWB1DownloadComplete(Sender: TObject);
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- procedure FormShow(Sender: TObject);
- private
- dlUrl: WideString;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-uses
- DownloadForm_U;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- Embeddedwb1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- dlUrl := URL;
-end;
-
-procedure TForm1.EmbeddedWB1DownloadComplete(Sender: TObject);
-begin
- IEAddress1.Text := EmbeddedWB1.LocationURL;
-end;
-
-procedure TForm1.EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB;
- pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal;
- pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal;
- var Rezult: HRESULT);
-begin
- Rezult := S_OK;
- if pszRedir <> '' then
- dlUrl := pszRedir;
- DownloadForm.FileDownload(dlUrl, pmk, pbc);
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- EmbeddedWb1.Go(IEAddress1.Text);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.dfm
deleted file mode 100644
index 081209b599becf44070864bb6c2a77425f6aabed..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.dfm
+++ /dev/null
@@ -1,133 +0,0 @@
-object DownloadRequest: TDownloadRequest
- Left = 557
- Top = 186
- BorderStyle = bsDialog
- Caption = 'File Download'
- ClientHeight = 161
- ClientWidth = 378
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object lbQuestion: TLabel
- Left = 16
- Top = 16
- Width = 217
- Height = 13
- Caption = 'Do you want to open or save this file?'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object lbName: TLabel
- Left = 81
- Top = 40
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = 'Name:'
- end
- object lbType: TLabel
- Left = 85
- Top = 56
- Width = 27
- Height = 13
- Alignment = taRightJustify
- Caption = 'Type:'
- end
- object lbFrom: TLabel
- Left = 86
- Top = 88
- Width = 26
- Height = 13
- Alignment = taRightJustify
- Caption = 'From:'
- end
- object imgIcon: TImage
- Left = 16
- Top = 40
- Width = 32
- Height = 32
- end
- object lbNameTxt: TLabel
- Left = 120
- Top = 40
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbTypeTxt: TLabel
- Left = 120
- Top = 56
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbFromTxt: TLabel
- Left = 120
- Top = 88
- Width = 241
- Height = 13
- AutoSize = False
- end
- object lbSize: TLabel
- Left = 89
- Top = 72
- Width = 23
- Height = 13
- Alignment = taRightJustify
- Caption = 'Size:'
- end
- object lbSizeTxt: TLabel
- Left = 120
- Top = 72
- Width = 241
- Height = 13
- AutoSize = False
- end
- object btnOpen: TButton
- Left = 112
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Open'
- Enabled = False
- TabOrder = 0
- OnClick = btnOpenClick
- end
- object btnSave: TButton
- Left = 200
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Save'
- TabOrder = 1
- OnClick = btnSaveClick
- end
- object btnCancel: TButton
- Left = 288
- Top = 120
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- Default = True
- ModalResult = 2
- TabOrder = 2
- OnClick = btnCancelClick
- end
- object dlgSave: TSaveDialog
- Left = 24
- Top = 104
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.pas
deleted file mode 100644
index 9699ca5e006bc9a902becc1836f4ad70d12a6331..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/DownloadRequestForm.pas
+++ /dev/null
@@ -1,138 +0,0 @@
-unit DownloadRequestForm;
-
-interface
-
-{$IFDEF DELPHI6_UP}
-{$WARN UNIT_PLATFORM OFF}
-{$ENDIF}
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, IEDownload, ShellApi;
-
-const
- mrOpen = mrYesToAll + 1;
- mrSave = mrOpen + 1;
-
-type
- TDownloadRequest = class(TForm)
- btnOpen: TButton;
- btnSave: TButton;
- btnCancel: TButton;
- lbQuestion: TLabel;
- lbName: TLabel;
- lbType: TLabel;
- lbFrom: TLabel;
- imgIcon: TImage;
- lbNameTxt: TLabel;
- lbTypeTxt: TLabel;
- lbFromTxt: TLabel;
- dlgSave: TSaveDialog;
- lbSize: TLabel;
- lbSizeTxt: TLabel;
- procedure btnCancelClick(Sender: TObject);
- procedure btnOpenClick(Sender: TObject);
- procedure btnSaveClick(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- private
- { Private-Deklarationen }
- FDestPath: string;
- FSender: TIEDownload;
- public
- { Public-Deklarationen }
- procedure SetInfo(Sender: TIEDownload);
- property DestinationPath: string read FDestPath;
- end;
-
-var
- DownloadRequest: TDownloadRequest;
- DontOpenThisExts, OpenOnlyThisExts: TStringList;
-
-function CanOpen(FileExt: string): Boolean;
-function StrFormatByteSize(dw: DWORD; szBuf: PChar; uiBufSize: UINT):
- PChar; stdcall; external 'shlwapi.dll' name 'StrFormatByteSizeA';
-function StrFormatKBSize(qdw: LONGLONG; szBuf: PChar; uiBufSize: UINT):
- PChar; stdcall; external 'shlwapi.dll' name 'StrFormatKBSizeA';
-
-implementation
-
-uses DownloadForm_U;
-
-{$R *.DFM}
-
-function CanOpen(FileExt: string): Boolean;
-begin
- Result := ((DontOpenThisExts.IndexOf(FileExt) < 0) and
- ((OpenOnlyThisExts.Count = 0) or (OpenOnlyThisExts.IndexOf(FileExt) >= 0)));
-end;
-
-procedure TDownloadRequest.SetInfo(Sender: TIEDownload);
-var
- sfi: TSHFileInfo;
- arrSize: array[0..255] of Char;
-begin
- FSender := Sender;
- lbFromTxt.Caption := Sender.Url;
- lbNameTxt.Caption := Sender.FileName;
- btnOpen.Enabled := CanOpen(Sender.FileExtension);
- if (Sender.FileSize > 0) then
- begin
- StrFormatByteSize(Sender.FileSize, arrSize, Length(arrSize) - 1);
- lbSizeTxt.Caption := Trim(arrSize);
- end
- else
- lbSizeTxt.Caption := 'unknown';
-
- // get file information
- ZeroMemory(@sfi, SizeOf(sfi));
- if (SHGetFileInfo(
- PChar(Sender.FileName),
- FILE_ATTRIBUTE_NORMAL,
- sfi,
- SizeOf(sfi),
- SHGFI_ICON or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES) <> 0) then
- begin
- if (sfi.hIcon <> 0) then
- imgIcon.Picture.Icon.Handle := sfi.hIcon;
- if (sfi.szTypeName[0] <> #0) then
- lbTypeTxt.Caption := sfi.szTypeName;
- end;
-end;
-
-procedure TDownloadRequest.btnCancelClick(Sender: TObject);
-begin
- if FSender.State = sReady then
- DownloadForm.Close;
- Self.Close;
-end;
-
-procedure TDownloadRequest.btnOpenClick(Sender: TObject);
-begin
- Self.ModalResult := mrOpen;
-end;
-
-procedure TDownloadRequest.btnSaveClick(Sender: TObject);
-begin
- dlgSave.FileName := FSender.FileName;
- if (dlgSave.Execute) then
- begin
- FSender.FileName := ExtractFileName(dlgSave.FileName);
- FSender.DownloadFolder := ExtractFilePath(dlgSave.FileName);
- Self.ModalResult := mrSave;
- end;
-end;
-
-procedure TDownloadRequest.FormDestroy(Sender: TObject);
-begin
- if (imgIcon.Picture.Icon.Handle <> 0) then
- DestroyIcon(imgIcon.Picture.Icon.Handle);
-end;
-
-initialization
- DontOpenThisExts := TStringList.Create();
- OpenOnlyThisExts := TStringList.Create();
-finalization
- DontOpenThisExts.Free();
- OpenOnlyThisExts.Free();
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/prjDownloadMgrDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/prjDownloadMgrDemo.dpr
deleted file mode 100644
index 512025f5147f62694a139d973d284aacf20834bb..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Multiple Files_Simultaneous_Downloading/prjDownloadMgrDemo.dpr
+++ /dev/null
@@ -1,51 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// Developing Team: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Mathias Walter (mich@matze.tv) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjDownloadMgrDemo;
-
-uses
- Forms,
- DownloadMgrDemo_U in 'DownloadMgrDemo_U.pas' {Form1},
- DownloadForm_U in 'DownloadForm_U.pas' {DownloadForm};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TDownloadForm, DownloadForm);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/prjIEDownloadSimple.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/prjIEDownloadSimple.dpr
deleted file mode 100644
index 5f964b7d5c2f6f28ad8829fe94a443fc061ee6ff..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/prjIEDownloadSimple.dpr
+++ /dev/null
@@ -1,49 +0,0 @@
-//*************************************************************************
-// *
-// IE Downloag Mgr *
-// For Delphi *
-// *
-// Freeware Demo *
-// Developing Team: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// Mathias Walter (mich@matze.tv) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjIEDownloadSimple;
-
-uses
- Forms,
- utIEDownloadSimple in 'utIEDownloadSimple.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/utIEDownloadSimple.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/utIEDownloadSimple.dfm
deleted file mode 100644
index 67c7e058e0c6ad51036325c640a765a10cb7d422..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/utIEDownloadSimple.dfm
+++ /dev/null
@@ -1,175 +0,0 @@
-object Form1: TForm1
- Left = 269
- Top = 107
- Width = 671
- Height = 428
- Caption = 'IEDownload Simple Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 62
- Width = 655
- Height = 177
- TabStop = False
- Align = alClient
- TabOrder = 0
- OnDownloadComplete = EmbeddedWB1DownloadComplete
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- OnFileDownload = EmbeddedWB1FileDownload
- DisableCtrlShortcuts = 'N'
- DownloadOptions = [DownloadImages, DownloadVideos, DownloadBGSounds, DownloadAndIgnoreCache]
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ControlData = {
- 4C0000005E330000901A00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 655
- Height = 42
- Align = alTop
- TabOrder = 1
- object Button1: TButton
- Left = 520
- Top = 13
- Width = 58
- Height = 22
- Caption = 'Go'
- TabOrder = 0
- OnClick = Button1Click
- end
- object IEAddress1: TEdit
- Left = 0
- Top = 14
- Width = 514
- Height = 21
- TabOrder = 1
- Text = 'http://bsalsa.com/downloads.html'
- end
- object Button2: TButton
- Left = 584
- Top = 13
- Width = 58
- Height = 22
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = Button2Click
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 239
- Width = 655
- Height = 153
- Align = alBottom
- Caption = 'Panel4'
- TabOrder = 2
- object PageControl1: TPageControl
- Left = 1
- Top = 1
- Width = 653
- Height = 151
- ActivePage = TabSheet3
- Align = alClient
- TabOrder = 0
- object TabSheet3: TTabSheet
- Caption = 'Events'
- ImageIndex = 2
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 645
- Height = 123
- Align = alClient
- Caption = 'Panel5'
- TabOrder = 0
- object memEvents: TMemo
- Left = 1
- Top = 1
- Width = 643
- Height = 121
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'Errors'
- ImageIndex = 7
- object memErrors: TMemo
- Left = 0
- Top = 0
- Width = 645
- Height = 123
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet10: TTabSheet
- Caption = 'Details'
- ImageIndex = 9
- object memDetails: TMemo
- Left = 0
- Top = 0
- Width = 645
- Height = 123
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- end
- object ProgressBar1: TProgressBar
- Left = 0
- Top = 42
- Width = 655
- Height = 20
- Align = alTop
- Min = 0
- Max = 100
- TabOrder = 3
- end
- object IEDownload1: TIEDownload
- About = ' IEDownload http://bsalsa.com/'
- AdditionalHeader.Strings = (
- 'Content-Type: application/x-www-form-BindInfoFd ')
- DefaultProtocol = 'http://'
- DefaultUrlFileName = 'index.html'
- OnBeforeDownload = IEDownload1BeforeDownload
- OnComplete = IEDownload1Complete
- OnError = IEDownload1Error
- OnProgress = IEDownload1Progress
- OnStartBinding = IEDownload1StartBinding
- TimeOut = 2147483647
- Left = 16
- Top = 64
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/utIEDownloadSimple.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/utIEDownloadSimple.pas
deleted file mode 100644
index 835571e1f44b606a6691dcafb70fc69f126dc8e4..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/07 - IEDownload_Demo/IEDownload_Simple_Demo/utIEDownloadSimple.pas
+++ /dev/null
@@ -1,194 +0,0 @@
-//*************************************************************************
-// *
-// TIEDownload Simple Demo *
-// For Delphi *
-// *
-// Freeware Demo *
-// Developing Team: *
-// Eran Bodankin -bsalsa(bsalsa@bsalsa.com) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit utIEDownloadSimple;
-
-interface
-
-uses
- Dialogs, ActiveX, IEConst, Classes, Forms, StdCtrls, EmbeddedWB, UrlMon,
- IEAddress, ExtCtrls, EwbCore, Controls, OleCtrls, SHDocVw_EWB, IEDownload,
- ComCtrls, IEDownloadTools, Windows, IEDownloadAcc, SysUtils;
-
-type
- TForm1 = class(TForm)
- EmbeddedWB1: TEmbeddedWB;
- Panel1: TPanel;
- Button1: TButton;
- IEDownload1: TIEDownload;
- IEAddress1: TEdit;
- Panel4: TPanel;
- PageControl1: TPageControl;
- TabSheet3: TTabSheet;
- Panel5: TPanel;
- memEvents: TMemo;
- TabSheet8: TTabSheet;
- memErrors: TMemo;
- TabSheet10: TTabSheet;
- memDetails: TMemo;
- Button2: TButton;
- ProgressBar1: TProgressBar;
- procedure EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB; pmk: IMoniker;
- pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo;
- pszHeaders, pszRedir: PWideChar; uiCP: Cardinal; var Rezult: HRESULT);
- procedure Button1Click(Sender: TObject);
- procedure EmbeddedWB1DownloadComplete(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure IEDownload1Error(const ErrorCode: Integer; const stError: string);
- procedure IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
- procedure Button2Click(Sender: TObject);
- procedure IEDownload1BeforeDownload(Sender: TInfoData; const Url, FileName,
- FileExtension, Host, DownloadFolder: string; const FileSize: Integer;
- var Cancel: Boolean);
- procedure IEDownload1Complete(Sender: TCustomIEDownload; aFileNameAndPath,
- aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
- procedure IEDownload1StartBinding(Sender: TBSCB; var Cancel: Boolean;
- pib: IBinding; const FileName: WideString; const FileSize: Integer);
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- private
- dlUrl: string;
- procedure ClearComponents;
- procedure InitialComponents;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- ClearComponents;
- InitialComponents;
- Embeddedwb1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- dlUrl := URL;
-end;
-
-procedure TForm1.EmbeddedWB1DownloadComplete(Sender: TObject);
-begin
- IEAddress1.Text := EmbeddedWB1.LocationURL;
-end;
-
-procedure TForm1.EmbeddedWB1FileDownload(Sender: TCustomEmbeddedWB;
- pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal;
- pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal;
- var Rezult: HRESULT);
-begin
- Rezult := S_OK;
- if pszRedir <> '' then
- dlUrl := pszRedir;
- IEDownload1.Go(dlUrl);
- //IEDownload1.Download(pmk, pbc);
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- EmbeddedWb1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.IEDownload1BeforeDownload(Sender: TInfoData; const Url,
- FileName, FileExtension, Host, DownloadFolder: string;
- const FileSize: Integer; var Cancel: Boolean);
-begin
- memEvents.Lines.Add('BeforeDownload. ' + Url +
- #13#10 + FileName + #13#10 + DownloadFolder + #13#10);
-end;
-
-procedure TForm1.IEDownload1Complete(Sender: TCustomIEDownload;
- aFileNameAndPath, aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
-begin
- memEvents.Lines.Add('Complete Event:' + aFileName);
- PageControl1.ActivePageIndex := 0;
-end;
-
-procedure TForm1.IEDownload1Error(const ErrorCode: Integer;
- const stError: string);
-begin
- memEvents.Lines.Add('Error Event.' + stError);
- memErrors.Lines.Add('An error accrued: ' + stError);
-end;
-
-procedure TForm1.IEDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
-begin
- ProgressBar1.Max := ulProgressMax;
- ProgressBar1.Position := ulProgress;
-end;
-
-procedure TForm1.IEDownload1StartBinding(Sender: TBSCB; var Cancel: Boolean;
- pib: IBinding; const FileName: WideString; const FileSize: Integer);
-begin
- memEvents.Lines.Add('StartBinding Event. '
- + #13#10 + 'Filename: ' + FileName
- + #13#10 + 'FileSize:' + IntToStr(FileSize));
-end;
-
-{Some procedures-----------------------------------------------------------------}
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- IEDownload1.CancelAll;
-end;
-
-procedure TForm1.ClearComponents;
-begin
- memEvents.Lines.Clear;
- MemErrors.Lines.Clear;
- MemDetails.Lines.Clear;
-end;
-
-procedure TForm1.InitialComponents;
-begin
- PageControl1.ActivePageIndex := 0;
- ProgressBar1.Position := 0;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/prjMultiDLDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/prjMultiDLDemo.dpr
deleted file mode 100644
index e04d5b13619820f43338b602e74243b5bb7c23ec..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/prjMultiDLDemo.dpr
+++ /dev/null
@@ -1,14 +0,0 @@
-program prjMultiDLDemo;
-
-uses
- Forms,
- utMultiDL in 'utMultiDL.pas' {frmMultiDownloader};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TfrmMultiDownloader, frmMultiDownloader);
- Application.Run;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/utMultiDL.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/utMultiDL.dfm
deleted file mode 100644
index 3fe7380fa5df9ec7633bc018ed160fdb71c915e6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/utMultiDL.dfm
+++ /dev/null
@@ -1,285 +0,0 @@
-object frmMultiDownloader: TfrmMultiDownloader
- Left = 299
- Top = 296
- Caption = 'Multi Downloader Demo'
- ClientHeight = 443
- ClientWidth = 709
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object StatusBar1: TStatusBar
- Left = 0
- Top = 424
- Width = 709
- Height = 19
- Panels = <
- item
- Width = 150
- end
- item
- Width = 150
- end
- item
- Style = psOwnerDraw
- Text = 'D/L Progress:'
- Width = 350
- end>
- OnDrawPanel = StatusBar1DrawPanel
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 709
- Height = 41
- Align = alTop
- TabOrder = 1
- object btnGo: TButton
- Left = 597
- Top = 13
- Width = 42
- Height = 22
- Caption = 'Go'
- TabOrder = 0
- OnClick = btnGoClick
- end
- object edtAddress: TEdit
- Left = 5
- Top = 14
- Width = 580
- Height = 21
- TabOrder = 1
- Text = 'http://bsalsa.com'
- end
- object btnCancel: TButton
- Left = 645
- Top = 13
- Width = 49
- Height = 22
- Caption = 'Cancel'
- Enabled = False
- TabOrder = 2
- OnClick = btnCancelClick
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 41
- Width = 709
- Height = 383
- Align = alClient
- TabOrder = 2
- object PageControl1: TPageControl
- Left = 1
- Top = 1
- Width = 707
- Height = 381
- ActivePage = tsDownloads
- Align = alClient
- TabOrder = 0
- object tsEvents: TTabSheet
- Caption = 'Events'
- ImageIndex = 2
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- Caption = 'Panel5'
- TabOrder = 0
- object memEvents: TMemo
- Left = 1
- Top = 1
- Width = 697
- Height = 351
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Server Response'
- ImageIndex = 4
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memResponse: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet6: TTabSheet
- Caption = 'Progress Text'
- ImageIndex = 5
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memProgress: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'Errors'
- ImageIndex = 7
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memErrors: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabSheet10: TTabSheet
- Caption = 'Details'
- ImageIndex = 9
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memDetails: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabImages: TTabSheet
- Caption = 'Image List'
- ImageIndex = 7
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memImages: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object TabLinks: TTabSheet
- Caption = 'Link List'
- ImageIndex = 8
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memLinks: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsDownloads: TTabSheet
- Caption = 'Downloads'
- ImageIndex = 7
- object memDownloads: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsItems: TTabSheet
- Caption = 'Items'
- ImageIndex = 8
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object memItems: TMemo
- Left = 0
- Top = 0
- Width = 699
- Height = 353
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- end
- object ProgressBar1: TProgressBar
- Left = 296
- Top = 392
- Width = 350
- Height = 17
- TabOrder = 3
- end
- object IEMultiDownload1: TIEMultiDownload
- About = 'TIEMultiDownload from: http://www.bsalsa.com'
- AdditionalHeader.Strings = (
- 'Content-Type: application/x-www-form-BindInfoFd ')
- DefaultProtocol = 'http://'
- DefaultUrlFileName = 'index.html'
- OnBeforeDownload = IEMultiDownload1BeforeDownload
- OnDataAvailableInfo = IEMultiDownload1DataAvailableInfo
- OnError = IEMultiDownload1Error
- OnProgress = IEMultiDownload1Progress
- OnResponse = IEMultiDownload1Response
- OnStateChange = IEMultiDownload1StateChange
- TimeOut = 2147483647
- DownloadOptions = doPages
- GetCompleteBaseSite = True
- Items = <>
- OnMultiBeforeDownload = IEMultiDownload1MultiBeforeDownload
- OnMultiComplete = IEMultiDownload1MultiComplete
- OnMultiGetDocInfo = IEMultiDownload1MultiGetDocInfo
- OnMultiGetImage = IEMultiDownload1MultiGetImage
- OnMultiGetLink = IEMultiDownload1MultiGetLink
- OnMultiGetQueryInfo = IEMultiDownload1MultiGetQueryInfo
- OnMultiItemAdded = IEMultiDownload1MultiItemAdded
- OnMultiParseComplete = IEMultiDownload1MultiParseComplete
- OnMultiParseDocument = IEMultiDownload1MultiParseDocument
- OnMultiParseError = IEMultiDownload1MultiParseError
- OnMultiParseProgress = IEMultiDownload1MultiParseProgress
- OnMultiStateChange = IEMultiDownload1MultiStateChange
- OnMultiStartParsing = IEMultiDownload1MultiStartParsing
- Left = 32
- Top = 80
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/utMultiDL.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/utMultiDL.pas
deleted file mode 100644
index 74406e097e020f37932fa2e5955a41152bceb009..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/08 - IEMultiDownload/utMultiDL.pas
+++ /dev/null
@@ -1,347 +0,0 @@
-//*************************************************************************
-// *
-// IEMultiDownload Demo 2009 * *
-// by *
-// Eran Bodankin - bsalsa - (bsalsa@gmail.com) *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit utMultiDL;
-
-interface
-
-uses
- MSHTML_EWB, SysUtils, IEDownloadTools, Windows, Classes, Forms, IEDownload,
- IEMultiDownload, StdCtrls, ExtCtrls, ComCtrls, IEParser, OleCtrls, Controls;
-
-type
- TfrmMultiDownloader = class(TForm)
- IEMultiDownload1: TIEMultiDownload;
- StatusBar1: TStatusBar;
- Panel1: TPanel;
- btnGo: TButton;
- Panel2: TPanel;
- PageControl1: TPageControl;
- tsEvents: TTabSheet;
- Panel5: TPanel;
- memEvents: TMemo;
- TabSheet5: TTabSheet;
- memResponse: TMemo;
- TabSheet6: TTabSheet;
- memProgress: TMemo;
- TabSheet8: TTabSheet;
- memErrors: TMemo;
- TabSheet10: TTabSheet;
- memDetails: TMemo;
- TabImages: TTabSheet;
- TabLinks: TTabSheet;
- memImages: TMemo;
- memLinks: TMemo;
- edtAddress: TEdit;
- ProgressBar1: TProgressBar;
- btnCancel: TButton;
- tsDownloads: TTabSheet;
- memDownloads: TMemo;
- tsItems: TTabSheet;
- memItems: TMemo;
- procedure btnGoClick(Sender: TObject);
- procedure IEMultiDownload1Error(const ErrorCode: Integer;
- const stError: string);
- function IEMultiDownload1Response(Sender: TBSCB; dwResponseCode: Cardinal;
- szResponseHeaders, szRequestHeaders: PWideChar;
- out szAdditionalRequestHeaders: PWideChar): HRESULT;
- procedure IEMultiDownload1StateChange(const State: TState);
- procedure FormCreate(Sender: TObject);
- procedure StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
- const Rect: TRect);
- procedure IEMultiDownload1Progress(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string);
- procedure IEMultiDownload1DataAvailableInfo(Sender: TBSCB;
- grfBSCF: Cardinal; Status: string);
- procedure IEMultiDownload1Complete(Sender: TCustomIEDownload;
- aFileNameAndPath, aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
- procedure btnCancelClick(Sender: TObject);
- procedure IEMultiDownload1MultiParseError(Sender: TObject;
- const ErrorCode: Integer; const Url, stError: string);
- procedure IEMultiDownload1MultiStateChange(Sender: TObject;
- const State: TMultiState);
- procedure IEMultiDownload1MultiItemAdded(Sender: TObject; const hRef,
- hProtocol, hRoot, hPath, hFileName, hUser, hPassword: WideString;
- hPort: Integer);
- procedure IEMultiDownload1MultiBeforeDownload(Sender: TObject;
- const hRef: WideString; const Item: TDownloadItem; var Cancel: Boolean);
- procedure IEMultiDownload1MultiGetDocInfo(Sender: TObject;
- const Text: string);
- procedure IEMultiDownload1MultiGetLink(Sender: TObject; const hRef, Host,
- HostName, PathName, Port, Protocol, MimeType, NameProp: string;
- var Cancel: Boolean);
- procedure IEMultiDownload1MultiGetQueryInfo(const MimeType, Encoding,
- Disposition: string);
- procedure IEMultiDownload1MultiParseComplete(Sender: TObject;
- Doc: IHTMLDocument2; All: IHTMLElementCollection);
- procedure IEMultiDownload1MultiParseDocument(Sender: TObject;
- const Res: HRESULT; stMessage: string);
- procedure IEMultiDownload1MultiComplete(Sender: TObject;
- const DownloadedList: TStrings);
- procedure IEMultiDownload1MultiGetImage(Sender: TObject;
- const ImgName: string; var Cancel: Boolean);
- procedure IEMultiDownload1MultiParseProgress(Sender: TObject;
- const ulProgress, ulProgressMax: Integer);
- procedure IEMultiDownload1MultiStartParsing(Sender: TObject;
- const aUrl: WideString);
- procedure IEMultiDownload1BeforeDownload(Sender: TInfoData; const Url,
- FileName, FileExtension, Host, DownloadFolder: string;
- const FileSize: Integer; var Cancel: Boolean);
- private
- procedure AddLog(Memo: TMemo; const s: string);
- public
-
- end;
-
-var
- frmMultiDownloader: TfrmMultiDownloader;
-
-implementation
-
-{$R *.dfm}
-
-procedure TfrmMultiDownloader.AddLog(Memo: TMemo; const s: string);
-begin
-// Sleep(1);
-// OutputDebugString(PChar(s));
- Memo.Lines.Add(s);
-end;
-
-procedure TfrmMultiDownloader.btnCancelClick(Sender: TObject);
-begin
- IEMultiDownload1.Stop;
-end;
-
-procedure TfrmMultiDownloader.btnGoClick(Sender: TObject);
-begin
- memDownloads.Clear;
- IEMultiDownload1.GoMulti(edtAddress.Text);
-end;
-
-procedure TfrmMultiDownloader.FormCreate(Sender: TObject);
-var
- pbStyle: integer;
-begin
- StatusBar1.Panels[2].Style := psOwnerDraw;
- ProgressBar1.Parent := StatusBar1;
- pbStyle := GetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE);
- pbStyle := pbStyle - WS_EX_STATICEDGE;
- SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, pbStyle);
- StatusBar1.Panels[0].Text := 'Ready.'
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1BeforeDownload(Sender: TInfoData;
- const Url, FileName, FileExtension, Host, DownloadFolder: string;
- const FileSize: Integer; var Cancel: Boolean);
-begin
- AddLog(memDownloads, #13#10 +FileName +#13#10 +DownloadFolder);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1Complete(Sender: TCustomIEDownload;
- aFileNameAndPath, aFileName, aFolderName, aExtension: WideString;
- const ActiveConnections: Integer);
-begin
- AddLog(memDownloads, 'Done with: ' + aFileName);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1DataAvailableInfo(Sender: TBSCB;
- grfBSCF: Cardinal; Status: string);
-begin
- if not StrContain('intermediate', Status) then
- AddLog(memEvents, Status);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1Error(const ErrorCode: Integer;
- const stError: string);
-begin
- AddLog(memErrors, stError);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiBeforeDownload(
- Sender: TObject; const hRef: WideString; const Item: TDownloadItem;
- var Cancel: Boolean);
-begin
- AddLog(memEvents, 'MultiBeforeDownload: ' + hRef);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiComplete(Sender: TObject;
- const DownloadedList: TStrings);
-begin
- //memDownloads.Lines := DownloadedList;
- AddLog(memEvents, 'MultiComplete ');
- StatusBar1.Panels[0].Text := 'Done.'
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiGetDocInfo(Sender: TObject;
- const Text: string);
-begin
-// AddLog(memEvents, 'MultiGetDocInfo ');
- AddLog(memDetails, Text);
-end;
-
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiGetLink(Sender: TObject;
- const hRef, Host, HostName, PathName, Port, Protocol, MimeType,
- NameProp: string; var Cancel: Boolean);
-begin
-// AddLog(memEvents, 'MultiGetLink');
- AddLog(MemLinks, 'hRef: ' + hRef + #13#10 + 'Host: ' + Host + #13#10 +
- 'HostName: ' + HostName + #13#10 + 'PathName: ' + PathName + #13#10 + 'Port: ' +
- Port + #13#10 + 'Protocol: ' + Protocol + #13#10 +
- 'MimeType: ' + MimeType + #13#10 + 'NameProp: ' + NameProp + #13#10);
-
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiGetQueryInfo(const MimeType,
- Encoding, Disposition: string);
-begin
- AddLog(memEvents, 'MultiGetQueryInfo ');
- if MimeType <> '' then
- AddLog(memDetails, 'MimeType: ' + MimeType);
- if Encoding <> '' then
- AddLog(memDetails, 'Encoding: ' + Encoding);
- if Disposition <> '' then
- AddLog(memDetails, 'Disposition: ' + Disposition);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiItemAdded(Sender: TObject;
- const hRef, hProtocol, hRoot, hPath, hFileName, hUser, hPassword: WideString;
- hPort: Integer);
-begin
- // AddLog(memEvents, 'MultiItemAdded ');
- memItems.Lines.Add(#13#10 + 'Ref: ' + hRef +
- #13#10 + 'Protocol: ' + hProtocol +
- #13#10 + 'Root: ' + hRoot +
- #13#10 + 'Path: ' + hPath +
- #13#10 + 'FileName: ' + hFileName +
- #13#10 + 'User: ' + hUser +
- #13#10 + 'Password: ' + hPassword +
- #13#10 + 'Port: ' + IntToStr(hPort));
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiParseComplete(
- Sender: TObject; Doc: IHTMLDocument2; All: IHTMLElementCollection);
-begin
- AddLog(memEvents, 'MultiParseComplete');
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiParseDocument(
- Sender: TObject; const Res: HRESULT; stMessage: string);
-begin
- StatusBar1.Panels[0].Text := 'Parsing.';
- AddLog(memEvents, 'MultiParseDocument: ' + stMessage);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiParseError(Sender: TObject;
- const ErrorCode: Integer; const Url, stError: string);
-begin
- AddLog(memEvents, 'MultiParseError');
- memErrors.Lines.Add(stError);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiParseProgress(
- Sender: TObject; const ulProgress, ulProgressMax: Integer);
-begin
- Progressbar1.Max:= ulProgressMax;
- Progressbar1.Position:= ulProgress;
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiStartParsing(Sender: TObject;
- const aUrl: WideString);
-begin
- AddLog(memEvents, #13#10 +'Starting with: '+aUrl);
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiStateChange(Sender: TObject;
- const State: TMultiState);
-begin
- btnGo.Enabled := IEMultiDownload1.MultiState <> msBusy;
- btnCancel.Enabled := IEMultiDownload1.MultiState = msBusy;
- case IEMultiDownload1.MultiState of
- msBusy: AddLog(memEvents, 'MultiDownload Busy');
- msReady: AddLog(memEvents, 'MultiDownload Ready');
- msStopped: AddLog(memEvents, 'MultiDownload Stopped');
- end;
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1Progress(Sender: TBSCB; ulProgress,
- ulProgressMax, ulStatusCode, FileSize: Cardinal; szStatusText: PWideChar;
- Downloaded, ElapsedTime, Speed, RemainingTime, Status, Percent: string);
-begin
- AddLog(memResponse, Status);
- Progressbar1.Max := ulProgressMax;
- Progressbar1.Position := ulProgress;
-end;
-
-function TfrmMultiDownloader.IEMultiDownload1Response(Sender: TBSCB;
- dwResponseCode: Cardinal; szResponseHeaders, szRequestHeaders: PWideChar;
- out szAdditionalRequestHeaders: PWideChar): HRESULT;
-begin
- AddLog(memResponse, szResponseHeaders);
- Result := S_OK;
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1StateChange(const State: TState);
-begin
- case IEMultiDownload1.State of
- sBusy:
- begin
- AddLog(memEvents, 'IEDownload Busy');
- StatusBar1.Panels[0].Text := 'Downloading, Please Wait..'
- end;
- sReady: AddLog(memEvents, 'IEDownload Ready');
- sStopped: AddLog(memEvents, 'IEDownload Stopped');
- end;
-end;
-
-procedure TfrmMultiDownloader.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
- const Rect: TRect);
-begin
- if Panel = StatusBar.Panels[2] then
- with ProgressBar1 do
- begin
- Top := Rect.Top;
- Left := Rect.Left;
- Width := Rect.Right - Rect.Left - 15;
- Height := Rect.Bottom - Rect.Top
- end;
-end;
-
-procedure TfrmMultiDownloader.IEMultiDownload1MultiGetImage(
- Sender: TObject; const ImgName: string; var Cancel: Boolean);
-begin
- //AddLog(memEvents, 'MultiGetImage');
- AddLog(memImages, 'ImageName: ' + ImgName);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/Unit1.dfm
deleted file mode 100644
index b9f321cb1a9d65e6bb321fe1492f1715bc0b62b8..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/Unit1.dfm
+++ /dev/null
@@ -1,337 +0,0 @@
-object Form1: TForm1
- Left = 236
- Top = 318
- Width = 865
- Height = 474
- Caption = 'IE HTML Parser Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 857
- Height = 41
- Align = alTop
- TabOrder = 0
- object btnGo: TButton
- Left = 749
- Top = 12
- Width = 42
- Height = 22
- Caption = 'Go'
- TabOrder = 0
- OnClick = btnGoClick
- end
- object edtAddress: TEdit
- Left = 8
- Top = 12
- Width = 729
- Height = 21
- TabOrder = 1
- Text = 'http://bsalsa.com/'
- end
- object Button1: TButton
- Left = 800
- Top = 12
- Width = 42
- Height = 22
- Caption = 'Stop'
- TabOrder = 2
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 421
- Width = 857
- Height = 19
- Panels = <
- item
- Width = 70
- end
- item
- Width = 350
- end>
- end
- object Panel2: TPanel
- Left = 0
- Top = 41
- Width = 857
- Height = 380
- Align = alClient
- Caption = 'Panel2'
- TabOrder = 2
- object PageControl1: TPageControl
- Left = 1
- Top = 1
- Width = 855
- Height = 378
- ActivePage = tsScript
- Align = alClient
- TabOrder = 0
- object tsParse: TTabSheet
- Caption = 'Parse'
- ImageIndex = 15
- object memParse: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsProp: TTabSheet
- Caption = 'Doc Properties'
- ImageIndex = 4
- object memProp: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsAnchor: TTabSheet
- Caption = 'Anchor'
- object memAnchor: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object Images: TTabSheet
- Caption = 'Images'
- ImageIndex = 2
- object memImages: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object Meta: TTabSheet
- Caption = ' MetaTags'
- ImageIndex = 3
- object memMeta: TMemo
- Left = 0
- Top = 0
- Width = 847
- Height = 350
- Align = alClient
- Lines.Strings = (
- '')
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsBase: TTabSheet
- Caption = 'Base'
- ImageIndex = 5
- object memBase: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsBaseFont: TTabSheet
- Caption = 'BaseFont'
- ImageIndex = 6
- object memBaseFont: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsBody: TTabSheet
- Caption = 'Body'
- ImageIndex = 7
- object memBody: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsBR: TTabSheet
- Caption = 'BR'
- ImageIndex = 8
- object memBR: TMemo
- Left = 0
- Top = 0
- Width = 847
- Height = 350
- Align = alClient
- Lines.Strings = (
- 'Memo2')
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsComment: TTabSheet
- Caption = 'Comment'
- ImageIndex = 9
- object memComment: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsDiv: TTabSheet
- Caption = 'Div'
- ImageIndex = 10
- object memDiv: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsFont: TTabSheet
- Caption = 'Font'
- ImageIndex = 11
- object memFont: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsForm: TTabSheet
- Caption = 'Form'
- ImageIndex = 12
- object memForm: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsHR: TTabSheet
- Caption = 'HR'
- ImageIndex = 13
- object memHR: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsMarquee: TTabSheet
- Caption = 'Marquee'
- ImageIndex = 14
- object memMarquee: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsPError: TTabSheet
- Caption = 'ParseError'
- ImageIndex = 16
- object memParseError: TMemo
- Left = 0
- Top = 0
- Width = 844
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- object tsScript: TTabSheet
- Caption = 'Script'
- ImageIndex = 17
- object memScript: TMemo
- Left = 0
- Top = 0
- Width = 847
- Height = 350
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- end
- end
- end
- object IEParser1: TIEParser
- About = 'TIEParser from: http://www.bsalsa.com'
- OnAnchor = IEParser1Anchor
- OnBase = IEParser1Base
- OnBaseFont = IEParser1BaseFont
- OnBody = IEParser1Body
- OnBR = IEParser1BR
- OnBusyStateChange = IEParser1BusyStateChange
- OnComment = IEParser1Comment
- OnDiv = IEParser1Div
- OnDocInfo = IEParser1DocInfo
- OnParseComplete = IEParser1ParseComplete
- OnFont = IEParser1Font
- OnForm = IEParser1Form
- OnHR = IEParser1HR
- OnImage = IEParser1Image
- OnMarquee = IEParser1Marquee
- OnMeta = IEParser1Meta
- OnParseDocument = IEParser1ParseDocument
- OnParseError = IEParser1ParseError
- OnScript = IEParser1Script
- OnStateChange = IEParser1StateChange
- Left = 32
- Top = 112
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/Unit1.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/Unit1.pas
deleted file mode 100644
index 4325982ffda3d6cb9d2eb01d90f8a339255587cc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/Unit1.pas
+++ /dev/null
@@ -1,487 +0,0 @@
-//****************************************************
-// Extended IEParser Demo *
-// Freeware Demo *
-// by *
-// *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit Unit1;
-
-interface
-
-{$I EWB.inc}
-
-uses
- MSHTML_EWB, {$IFDEF DELPHI6_UP}Variants, {$ENDIF} SysUtils, Classes, Controls,
- Forms, StdCtrls, IEAddress, ExtCtrls, IEParser, ComCtrls, RichEditBrowser;
-
-type
- TForm1 = class(TForm)
- edtAddress: TEdit;
- btnGo: TButton;
- IEParser1: TIEParser;
- Images: TTabSheet;
- memAnchor: TMemo;
- memBase: TMemo;
- memBaseFont: TMemo;
- memBody: TMemo;
- memBR: TMemo;
- memComment: TMemo;
- memDiv: TMemo;
- memFont: TMemo;
- memForm: TMemo;
- memHR: TMemo;
- memImages: TMemo;
- memMarquee: TMemo;
- memMeta: TMemo;
- memParse: TMemo;
- memParseError: TMemo;
- memProp: TMemo;
- memScript: TMemo;
- Meta: TTabSheet;
- PageControl1: TPageControl;
- Panel1: TPanel;
- Panel2: TPanel;
- StatusBar1: TStatusBar;
- tsAnchor: TTabSheet;
- tsBase: TTabSheet;
- tsBaseFont: TTabSheet;
- tsBody: TTabSheet;
- tsBR: TTabSheet;
- tsComment: TTabSheet;
- tsDiv: TTabSheet;
- tsFont: TTabSheet;
- tsForm: TTabSheet;
- tsHR: TTabSheet;
- tsMarquee: TTabSheet;
- tsParse: TTabSheet;
- tsPError: TTabSheet;
- tsProp: TTabSheet;
- tsScript: TTabSheet;
- Button1: TButton;
- procedure IEParser1BusyStateChange(Sender: TObject);
- procedure IEParser1Meta(Sender: TObject; HttpEquiv, Content, Name, URL,
- Charset: string; Element: TElementInfo);
- procedure IEParser1Anchor(Sender: TObject; hRef, Target, Rel, Rev, Urn,
- Methods, Name, Host, HostName, PathName, Port, Protocol, Search, Hash,
- AccessKey, ProtocolLong, MimeType, NameProp: string;
- Element: TElementInfo);
- procedure btnGoClick(Sender: TObject);
- procedure IEParser1Base(Sender: TObject; hRef, Target: string;
- Element: TElementInfo);
- procedure IEParser1BaseFont(Sender: TObject; Color: OleVariant;
- Face: string; Size: Integer; Element: TElementInfo);
- procedure IEParser1Body(Sender: TObject; Background, bgProperties: string;
- LeftMargin, TopMargin, RightMargin, BottomMargin, bgColor, Text, Link,
- vLink, aLink: OleVariant; NoWrap: Boolean; Element: TElementInfo);
- procedure IEParser1BR(Sender: TObject; Clear: string;
- Element: TElementInfo);
- procedure IEParser1Comment(sender: TObject; Text: string;
- Element: TElementInfo);
- procedure IEParser1Div(Sender: TObject; Align: string; NoWrap: Boolean;
- Element: TElementInfo);
- procedure IEParser1Font(Sender: TObject; Color, Size: OleVariant;
- Face: string; Element: TElementInfo);
- procedure IEParser1Form(Sender: TObject; Action, Dir, Encoding, Method,
- Target, Name: string; Element: TElementInfo);
- procedure IEParser1HR(Sender: TObject; Align: string; Color, Width,
- Size: OleVariant; NoShade: Boolean; Element: TElementInfo);
- procedure IEParser1Marquee(Sender: TObject; bgColor, Width,
- Height: OleVariant; Direction, Behavior: string; ScrollAmount,
- ScrollDelay, Loop, vSpace, hSpace: Integer; Element: TElementInfo);
- procedure IEParser1ParseComplete(Sender: TObject; Doc: IHTMLDocument2;
- All: IHTMLElementCollection);
- procedure IEParser1ParseDocument(Sender: TObject; const Res: HRESULT;
- stMessage: string);
- procedure IEParser1ParseError(Sender: TObject; const ErrorCode: Integer;
- const Url, stError: string);
- procedure IEParser1StateChange(Sender: TObject; const State: TParserState);
- procedure IEParser1DocInfo(Sender: TObject; const Text: string);
- procedure IEParser1Image(Sender: TObject; Source: String;
- ImgElement: IHTMLImgElement; Element: TElementInfo);
- procedure IEParser1Script(Sender: TObject; Source: String;
- ScriptElement: IHTMLScriptElement; Element: TElementInfo);
- private
- procedure UpdateControls;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.UpdateControls;
-begin
- memAnchor.Clear;
- memBase.Clear;
- memBaseFont.Clear;
- memBody.Clear;
- memBR.Clear;
- memComment.Clear;
- memDiv.Clear;
- memFont.Clear;
- memForm.Clear;
- memHR.Clear;
- memImages.Clear;
- memMarquee.Clear;
- memMeta.Clear;
- memParse.Clear;
- memParseError.Clear;
- memProp.Clear;
- memScript.Clear;
-end;
-
-procedure TForm1.btnGoClick(Sender: TObject);
-begin
- UpdateControls;
- IEParser1.Parse(edtAddress.Text);
-end;
-
-procedure TForm1.IEParser1BusyStateChange(Sender: TObject);
-begin
- //
-end;
-
-//Events-------------------------------------------------------------------
-
-procedure TForm1.IEParser1Anchor(Sender: TObject; hRef, Target, Rel, Rev, Urn,
- Methods, Name, Host, HostName, PathName, Port, Protocol, Search, Hash,
- AccessKey, ProtocolLong, MimeType, NameProp: string; Element: TElementInfo);
-begin
- with memAnchor.Lines do
- begin
- if hRef <> '' then
- Add(#13#10 + 'hRef:' + hRef);
- if Rel <> '' then
- Add('Rel:' + Rel);
- if Rev <> '' then
- Add('Rev:' + Rev);
- if Urn <> '' then
- Add('Urn:' + Urn);
- if Target <> '' then
- Add('Target: ' + Target);
- if Methods <> '' then
- Add('Methods: ' + Methods);
- if Name <> '' then
- Add('Name: ' + Name);
- if Host <> '' then
- Add('Host: ' + Host);
- if HostName <> '' then
- Add('HostName: ' + HostName);
- if PathName <> '' then
- Add('PathName: ' + PathName);
- if Port <> '' then
- Add('Port: ' + Port);
- if Protocol <> '' then
- Add('Protocol: ' + Protocol);
- if Search <> '' then
- Add('Search: ' + Search);
- if AccessKey <> '' then
- Add('AccessKey: ' + AccessKey);
- if ProtocolLong <> '' then
- Add('ProtocolLong: ' + ProtocolLong);
- if MimeType <> '' then
- Add('MimeType: ' + MimeType);
- if NameProp <> '' then
- Add('NameProp: ' + NameProp);
- end;
-end;
-
-
-procedure TForm1.IEParser1Base(Sender: TObject; hRef, Target: string;
- Element: TElementInfo);
-begin
- with memBase.Lines do
- begin
- if hRef <> '' then
- Add(#13#10 + 'hRef: ' + hRef);
- if Target <> '' then
- Add('Target: ' + Target);
- if Element.InnerHTML <> '' then
- Add('Element.InnerHTML:' + #13#10 + Element.InnerHTML);
- end;
-end;
-
-procedure TForm1.IEParser1BaseFont(Sender: TObject; Color: OleVariant;
- Face: string; Size: Integer; Element: TElementInfo);
-begin
- with memBaseFont.Lines do
- begin
- if VarToStr(Color) <> '' then
- Add(#13#10 + 'Color: ' + VarToStr(Color));
- if Face <> '' then
- Add('Face: ' + Face);
- if IntToStr(Size) <> '' then
- Add('Size: ' + IntToStr(Size));
- if Element.InnerHTML <> '' then
- Add('Element.InnerHTML:' + #13#10 + Element.InnerHTML);
- end;
-end;
-
-procedure TForm1.IEParser1Body(Sender: TObject; Background,
- bgProperties: string; LeftMargin, TopMargin, RightMargin, BottomMargin,
- bgColor, Text, Link, vLink, aLink: OleVariant; NoWrap: Boolean;
- Element: TElementInfo);
-begin
- with memBody.Lines do
- begin
- if Background <> '' then
- Add(#13#10 + 'Background:' + Background);
- if bgProperties <> '' then
- Add('bgProperties: ' + bgProperties);
- if VarToStr(bgColor) <> '' then
- Add('bgColor: ' + VarToStr(bgColor));
- if VarToStr(Text) <> '' then
- Add('Text: ' + VarToStr(Text));
- if VarToStr(Link) <> '' then
- Add('Link: ' + VarToStr(Link));
- if VarToStr(vLink) <> '' then
- Add('vLink: ' + VarToStr(vLink));
- if VarToStr(aLink) <> '' then
- Add('aLink: ' + VarToStr(aLink));
- if Element.InnerHTML <> '' then
- Add('Element.InnerHTML:' + #13#10 + Element.InnerHTML);
- end;
-end;
-
-procedure TForm1.IEParser1BR(Sender: TObject; Clear: string;
- Element: TElementInfo);
-begin
- memBR.Lines.Add(#13#10 + 'Clear: ' + Clear + #13#10);
-end;
-
-procedure TForm1.IEParser1Comment(sender: TObject; Text: string;
- Element: TElementInfo);
-begin
- memComment.Lines.Add(#13#10 + 'Text: ' + Text);
- if Element.InnerHTML <> '' then
- memComment.Lines.Add('Element.InnerHTML:' + #13#10 + Element.InnerHTML);
-end;
-
-procedure TForm1.IEParser1Div(Sender: TObject; Align: string; NoWrap: Boolean;
- Element: TElementInfo);
-begin
- memDiv.Lines.Add(#13#10 + 'Align: ' + Align);
- if Element.InnerHTML <> '' then
- memDiv.Lines.Add('Element.InnerHTML:' + Element.InnerHTML);
-end;
-
-procedure TForm1.IEParser1DocInfo(Sender: TObject; const Text: string);
-begin
- memProp.Lines.Add(Text);
-end;
-
-procedure TForm1.IEParser1Form(Sender: TObject; Action, Dir, Encoding, Method,
- Target, Name: string; Element: TElementInfo);
-begin
- with memForm.Lines do
- begin
- if Action <> '' then
- Add(#13#10 + 'Action: ' + Action);
- if Dir <> '' then
- Add('Dir: ' + Dir);
- if Encoding <> '' then
- Add('Encoding: ' + Encoding);
- if Method <> '' then
- Add('Method: ' + Method);
- if Target <> '' then
- Add('Target: ' + Target);
- if Name <> '' then
- Add('Name: ' + Name);
- if Element.InnerHTML <> '' then
- Add('Element.InnerHTML:' + #13#10 + Element.InnerHTML);
- end;
-end;
-
-procedure TForm1.IEParser1HR(Sender: TObject; Align: string; Color, Width,
- Size: OleVariant; NoShade: Boolean; Element: TElementInfo);
-begin
- with memHR.Lines do
- begin
- if Align <> '' then
- Add(#13#10 + 'Align: ' + Align);
- if VarToStr(Color) <> '' then
- Add('Color: ' + VarToStr(Color));
- if VarToStr(Size) <> '' then
- Add('Size: ' + VarToStr(Size));
- if Element.OuterHTML <> '' then
- Add('Element.OuterHTML:' + #13#10 + Element.OuterHTML);
- end;
-end;
-
-procedure TForm1.IEParser1Marquee(Sender: TObject; bgColor, Width,
- Height: OleVariant; Direction, Behavior: string; ScrollAmount, ScrollDelay,
- Loop, vSpace, hSpace: Integer; Element: TElementInfo);
-begin
- with memMarquee.Lines do
- begin
- if VarToStr(bgColor) <> '' then
- Add(#13#10 + 'bgColor: ' + VarToStr(bgColor));
- if Direction <> '' then
- Add('Direction: ' + Direction);
- if Behavior <> '' then
- Add('Behavior: ' + Behavior);
- if Element.OuterHTML <> '' then
- Add('Element.OuterHTML:' + #13#10 + Element.OuterHTML);
- end;
-end;
-
-procedure TForm1.IEParser1Meta(Sender: TObject; HttpEquiv, Content, Name, URL,
- Charset: string; Element: TElementInfo);
-begin
- with memMeta.Lines do
- begin
- if HttpEquiv <> '' then
- Add('HttpEquiv: ' + HttpEquiv);
- if Content <> '' then
- Add('Content: ' + Content);
- if Name <> '' then
- Add('Name: ' + Name);
- if URL <> '' then
- Add('Url: ' + URL);
- if Charset <> '' then
- Add('Charset: ' + Charset);
- if Element.OuterHTML <> '' then
- Add('Element.OuterHTML:' + #13#10 + Element.OuterHTML);
- end;
-end;
-
-procedure TForm1.IEParser1Script(Sender: TObject; Source: String;
- ScriptElement: IHTMLScriptElement; Element: TElementInfo);
-begin
- with memScript.Lines, ScriptElement do
- begin
- if Element.Language <> '' then
- Add('Element.Language:' + Element.Language);
- if Source <> '' then
- Add(#13#10 + 'Source: ' + Source);
- if HtmlFor <> '' then
- Add('HtmlFor: ' + HtmlFor);
- if Event <> '' then
- Add('Event: ' + Event);
- if Text <> '' then
- Add('Text: ' + Text);
- if Element.OuterHTML <> '' then
- Add('Element.OuterHTML:' + #13#10 + Element.OuterHTML);
- if Element.InnerHTML <> '' then
- Add('Element.InnerHTML:' + #13#10 + Element.InnerHTML);
- end;
-end;
-
-procedure TForm1.IEParser1StateChange(Sender: TObject;
- const State: TParserState);
-begin
- btnGo.Enabled := not IEParser1.Busy;
- if IEParser1.Busy then
- StatusBar1.Panels[0].Text := 'Parsing..'
- else
- StatusBar1.Panels[0].Text := 'Ready.'
-end;
-
-procedure TForm1.IEParser1ParseComplete(Sender: TObject; Doc: IHTMLDocument2;
- All: IHTMLElementCollection);
-begin
- // StatusBar1.Panels[0].Text := stMessage;
-// memParse.Lines.Add(stMessage + #13#10);
-end;
-
-procedure TForm1.IEParser1ParseDocument(Sender: TObject; const Res: HRESULT;
- stMessage: string);
-begin
- StatusBar1.Panels[1].Text := stMessage;
- memParse.Lines.Add(stMessage + #13#10);
-end;
-
-procedure TForm1.IEParser1ParseError(Sender: TObject; const ErrorCode: Integer;
- const Url, stError: string);
-begin
- memParseError.Lines.Add(Url+ #13#10+ stError);
-end;
-
-procedure TForm1.IEParser1Font(Sender: TObject; Color, Size: OleVariant;
- Face: string; Element: TElementInfo);
-begin
- with memFont.Lines do
- begin
- if VarToStr(Color) <> '' then
- Add(#13#10 + 'Color: ' + VarToStr(Color));
- if VarToStr(Size) <> '' then
- Add('Size: ' + VarToStr(Size));
- if Face <> '' then
- Add('Face: ' + Face);
- if Element.InnerHTML <> '' then
- Add('Element.InnerHTML:' + Element.InnerHTML);
- end;
-end;
-
-procedure TForm1.IEParser1Image(Sender: TObject; Source: String;
- ImgElement: IHTMLImgElement; Element: TElementInfo);
-begin
- with memImages.Lines, ImgElement do
- begin
- if Source <> '' then
- Add(#13#10 + 'Source:' + Source);
- if LowSrc <> '' then
- Add('LowSrc:' + LowSrc);
- if Vrml <> '' then
- Add('Vrml:' + Vrml);
- if DynSrc <> '' then
- Add('DynSrc:' + DynSrc);
- if Alt <> '' then
- Add('Alt: ' + Alt);
- if Align <> '' then
- Add('Align: ' + Align);
- if Name <> '' then
- Add('Name: ' + Name);
- if UseMap <> '' then
- Add('UseMap: ' + UseMap);
- if IntToStr(hSpace) <> '' then
- Add('hSpace: ' + IntToStr(hSpace));
- if IntToStr(Width) <> '' then
- Add('Width: ' + IntToStr(Width));
- if IntToStr(Height) <> '' then
- Add('Height: ' + IntToStr(Height));
- end;
-
- with memImages.Lines, ImgElement as IHTMLImgElement2 do
- begin
- if longDesc <> '' then
- Add('longDesc: ' + longDesc);
- end;
-
-end;
-
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/prjIEParserDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/prjIEParserDemo.dpr
deleted file mode 100644
index afc893930076fabd6693d10cbed7089d037cf515..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/09 - IEParser_Demo/prjIEParserDemo.dpr
+++ /dev/null
@@ -1,49 +0,0 @@
-//****************************************************
-// Extended IEParser Demo *
-// Freeware Demo *
-// by *
-// *
-// Per Linds Larsen & *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjIEParserDemo;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.dfm
deleted file mode 100644
index 9723a53cb04bd92062367936c1a922cef06386a5..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.dfm
+++ /dev/null
@@ -1,221 +0,0 @@
-object Form1: TForm1
- Left = 344
- Top = 414
- Width = 726
- Height = 480
- Caption = 'IETravelLog Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 27
- Width = 718
- Height = 419
- Align = alClient
- TabOrder = 4
- Silent = False
- OnCommandStateChange = EmbeddedWB1CommandStateChange
- OnBeforeNavigate2 = EmbeddedWB1BeforeNavigate2
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- VisualEffects.TextSize = 0
- UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
- ControlData = {
- 4C00000062460000ED2B00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 718
- Height = 27
- Align = alTop
- Caption = 'Panel1'
- TabOrder = 6
- object IEAddress1: TIEAddress
- Left = 204
- Top = 3
- Width = 443
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 0
- end
- end
- object ForwardBtn: TBitBtn
- Left = 108
- Top = 1
- Width = 75
- Height = 25
- Caption = 'Forward'
- Enabled = False
- TabOrder = 2
- OnClick = ForwardBtnClick
- Glyph.Data = {
- A6020000424DA602000000000000420000002800000011000000110000000100
- 1000030000006402000000000000000000000000000000000000007C0000E003
- 00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F0000FF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F
- 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
- FF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F
- FF7FFF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- 0000FF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7FFF7F
- FF7FFF7F0000FF7FFF7FFF7FFF7FFF7F000000000000000000000000FF7FFF7F
- FF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F000000000000000000000000
- FF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F0000000000000000
- 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F00000000
- 00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F
- 000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7F
- FF7FFF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7F
- FF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- 0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7F0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7F0000}
- end
- object BackDropDownBtn: TBitBtn
- Left = 79
- Top = 1
- Width = 18
- Height = 25
- Enabled = False
- TabOrder = 1
- OnMouseDown = MyMouseDown
- Glyph.Data = {
- 62010000424D620100000000000042000000280000000C0000000C0000000100
- 1000030000002001000000000000000000000000000000000000007C0000E003
- 00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000
- 00000000FF7FFF7FFF7FFF7F000000000000000000000000000000000000FF7F
- FF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7F}
- Layout = blGlyphBottom
- end
- object BackBtn: TBitBtn
- Left = 1
- Top = 1
- Width = 81
- Height = 25
- Caption = 'Back'
- Enabled = False
- TabOrder = 0
- OnClick = BackBtnClick
- Glyph.Data = {
- 82040000424D8204000000000000420000002800000020000000110000000100
- 1000030000004004000000000000000000000000000000000000007C0000E003
- 00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7F000000000000000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7F}
- Style = bsNew
- Spacing = 0
- end
- object ForwardDropDownBtn: TBitBtn
- Left = 181
- Top = 1
- Width = 18
- Height = 25
- Enabled = False
- TabOrder = 3
- OnMouseDown = MyMouseDown
- Glyph.Data = {
- 62010000424D620100000000000042000000280000000C0000000C0000000100
- 1000030000002001000000000000000000000000000000000000007C0000E003
- 00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000FF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000
- 00000000FF7FFF7FFF7FFF7F000000000000000000000000000000000000FF7F
- FF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
- FF7FFF7FFF7F}
- Layout = blGlyphBottom
- end
- object Button1: TButton
- Left = 653
- Top = 3
- Width = 61
- Height = 22
- Caption = 'GO'
- TabOrder = 5
- OnClick = Button1Click
- end
- object PopupMenu1: TPopupMenu
- TrackButton = tbLeftButton
- Left = 64
- Top = 120
- end
- object IETravelLog1: TIETravelLog
- About = 'TIETravelLog. Help & Support: http://www.bsalsa.com/'
- EmbeddedWB = EmbeddedWB1
- OnEntry = IETravelLog1Entry
- Left = 64
- Top = 56
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.pas
deleted file mode 100644
index 768ddaafd92e07bc3e4a9ce9d8dee5d6394aa7fa..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/TravelLogDemo_U.pas
+++ /dev/null
@@ -1,177 +0,0 @@
-//***********************************************************
-// IETravelLog Demo (2006) *
-// *
-// For Delphi 5 - 2009 *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.mail.dk *
-// *
-//Updates by: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit TravelLogDemo_U;
-
-interface
-
-uses
- IETravelLog, Controls, Forms, Buttons, StdCtrls, Menus, OleCtrls, EmbeddedWB,
- SHDocVw_EWB, EwbCore, Classes, IEAddress, ExtCtrls;
-
-type
- TForm1 = class(TForm)
- BackBtn: TBitBtn;
- BackDropDownBtn: TBitBtn;
- PopupMenu1: TPopupMenu;
- ForwardBtn: TBitBtn;
- ForwardDropDownBtn: TBitBtn;
- IETravelLog1: TIETravelLog;
- EmbeddedWb1: TEmbeddedWB;
- Button1: TButton;
- Panel1: TPanel;
- IEAddress1: TIEAddress;
- procedure IETravelLog1Entry(Title, Url: WideString; var Cancel: Boolean);
- procedure MyMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- procedure Button1Click(Sender: TObject);
- procedure BackBtnClick(Sender: TObject);
- procedure ForwardBtnClick(Sender: TObject);
- procedure EmbeddedWb1CommandStateChange(Sender: TObject;
- Command: Integer; Enable: WordBool);
- procedure FormShow(Sender: TObject);
- procedure EmbeddedWb1BeforeNavigate2(Sender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-
- private
- { Private declarations }
- FBack: Boolean;
- PopUpItems: array[0..9] of TMenuItem;
- ItemsCounter: Integer;
- Popupx, PopupY: Integer;
- procedure MyPopupHandler(Sender: TObject);
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.MyPopupHandler(Sender: TObject);
-var
- index: Integer;
-begin
- with Sender as TMenuItem do
- if FBack then
- Index := 0 - PopupMenu1.Items.IndexOf(Sender as TMenuItem) - 1
- else
- Index := PopupMenu1.Items.IndexOf(Sender as TMenuItem) + 1;
- IETravelLog1.TravelTo(Index);
-end;
-
-procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- ItemsCounter := 0;
- PopUpX := Self.Left + (Sender as TBitBtn).Left;
- popUpY := Self.Top + (Sender as TBitBtn).Top + 50;
- PopupMenu1.Items.Clear;
- if (Sender as TBitbtn) = ForwardDropDownBtn then
- begin
- IETravellog1.EnumerateForward;
- FBack := False;
- end
- else
- begin
- IETravellog1.EnumerateBack;
- FBack := True;
- end;
- PopupMenu1.Popup(popupX, popupY);
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- EmbeddedWb1.go(IEAddress1.Text);
-end;
-
-procedure TForm1.BackBtnClick(Sender: TObject);
-begin
- EmbeddedWb1.GoBack;
-end;
-
-procedure TForm1.ForwardBtnClick(Sender: TObject);
-begin
- EmbeddedWb1.GoForward;
-end;
-
-procedure TForm1.IETravelLog1Entry(Title, Url: WideString; var Cancel: Boolean);
-begin
- PopUpItems[itemsCounter] := TMenuItem.Create(Self);
- PopUpItems[itemsCounter].Caption := Title;
- PopUpItems[itemsCounter].Hint := Url;
- PopUpItems[itemsCounter].OnClick := MyPopUpHandler;
- PopUpMenu1.Items.Add(PopUpItems[itemsCounter]);
- Inc(ItemsCounter);
- Cancel := ItemsCounter = 10; // limit to 10 entries
-end;
-
-procedure TForm1.EmbeddedWb1CommandStateChange(Sender: TObject;
- Command: Integer; Enable: WordBool);
-begin
- case Command of
- CSC_NAVIGATEFORWARD:
- begin
- ForwardBtn.Enabled := Enable;
- ForwardDropDownBtn.Enabled := Enable;
- end;
- CSC_NAVIGATEBACK:
- begin
- BackBtn.Enabled := Enable;
- BackDropDownBtn.Enabled := Enable;
- end;
- end;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- EmbeddedWb1.AssignEmptyDocument;
- IETravellog1.Connect;
-end;
-
-procedure TForm1.EmbeddedWb1BeforeNavigate2(Sender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- IEAddress1.Text := Url;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/prjTravellogDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/prjTravellogDemo.dpr
deleted file mode 100644
index b5c1c9dc046e0f0c0b53e1884dd7e1747b93dd18..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/10 - IETravellog_Demo/prjTravellogDemo.dpr
+++ /dev/null
@@ -1,48 +0,0 @@
-//***********************************************************
-// IETravelLog Demo (2006) *
-// *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.mail.dk *
-// *
-//Updates by: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-program prjTravellogDemo;
-
-uses
- Forms,
- TravelLogDemo_U in 'TravelLogDemo_U.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.dfm
deleted file mode 100644
index dd27570b4de0ca131bcb19708fd7739ed4dd819f..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.dfm
+++ /dev/null
@@ -1,258 +0,0 @@
-object Form2: TForm2
- Left = 346
- Top = 114
- Width = 364
- Height = 184
- Caption = 'TLinksLabel Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object LinksLabel1: TLinksLabel
- Left = 144
- Top = 62
- Width = 54
- Height = 29
- TextFlick.Enable = True
- Launch.AsHttp.Address = 'bsalsa.com'
- Images = ImageList1
- ImageIndex = 1
- OnLaunch = LinksLabel1Launch
- Caption = 'Home Page'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object LinksLabel2: TLinksLabel
- Left = 240
- Top = 62
- Width = 32
- Height = 29
- AutoSize = False
- Launch.AsMail.Address = 'bsalsa@bsalsa.com'
- Launch.AsMail.Subject = 'EmbeddedWB'
- Launch.AsMail.Body = 'About Link Label..'
- Launch.Options = MailTo
- Images = ImageList1
- ImageIndex = 2
- OnLaunch = LinksLabel1Launch
- Alignment = taCenter
- LinkColor = clGreen
- DownColor = clGreen
- UpColor = clMaroon
- Caption = 'MailMe'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object LinksLabel3: TLinksLabel
- Left = 72
- Top = 62
- Width = 41
- Height = 29
- AutoSize = False
- Launch.AsApplication.Path = 'notepad.exe'
- Launch.Options = Application
- Images = ImageList1
- ImageIndex = 0
- OnLaunch = LinksLabel1Launch
- Caption = 'Notepad'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object LinksLabel4: TLinksLabel
- Left = 0
- Top = 121
- Width = 356
- Height = 29
- AutoSize = False
- TextRun.Enable = True
- Launch.AsApplication.Path = 'bad App'
- Launch.Options = Application
- OnLaunch = LinksLabel1Launch
- Align = alBottom
- Caption = 'Launch Error Demo'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object LinksLabel5: TLinksLabel
- Left = 0
- Top = 0
- Width = 356
- Height = 29
- AutoSize = False
- TextRun.Enable = True
- TextRun.Direction = diRightToLeft
- TextStyle = ts3D_F
- Launch.AsHttp.Address = 'bsalsa.com/forum/'
- OnLaunch = LinksLabel1Launch
- Layout = tlTop
- Align = alTop
- Caption = 'Forum'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- end
- object ImageList1: TImageList
- Left = 400
- Top = 16
- Bitmap = {
- 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 0000000000003600000028000000400000001000000001002000000000000010
- 00000000000000000000000000000000000000000000A15E5D00A5848300947D
- 79009E8B8B00A48B8C00AC8C8B00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000626262006262620062626200626262000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BF868000D7B39A00D7B3
- 9A00C68E6500B57C6300B57C63008F766F008977760097838200A48B8C000000
- 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
- FF00000073009E9E9E009E9E9E00FFFFFF0048FFFF00FFFFFF0048FFFF00FFFF
- FF0048FFFF000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500D3DECB00D5FC
- D700E0F2CB00D8E8B100B0CD7600D8D38B00DCB99500C7A17D00A57050009783
- 8200000000000000000000000000000000000000000000000000FFFFFF00FFFF
- FF00000073009E9E9E009E9E9E00FFFFFF00FFFFFF0048FFFF00FFFFFF0048FF
- FF00FFFFFF000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500D5DBC700E0FD
- E300E5E2B000D0B25D00BDB95B00E3D07900D8D38B00E2E59600CAB57800746C
- 65009E8B8B00A68F910000000000000000000000000000000000FFFFFF00FFFF
- FF00000073009E9E9E009E9E9E00FFFFFF0048FFFF00FFFFFF0048FFFF00FFFF
- FF0048FFFF000000000000000000000000000000000080808000808080008080
- 8000808080008080800080808000808080008080800080808000808080008080
- 8000808080008080800000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500DDDCCE00D5FC
- D700E3D07900C9964300BD904100CC974C00D2944D00D69D5200D2944D00C896
- 6800C8966800B28F66009A878600000000000000000000000000FFFFFF00FFFF
- FF00000073009E9E9E009E9E9E00FFFFFF00FFFFFF0062626200626262006262
- 6200FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500C2D7B600B6EF
- B100DBBD6900DDAC4C00C49B4200CC9B4B00CC974C00CC974C00BD7B3600C68E
- 6500D4946500DAA56F00AC8C8B00000000000000000000000000FFFFFF00FFFF
- FF00000073009E9E9E009E9E9E00FFFFFF0048FFFF00626262009E9E9E006262
- 620048FFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500C2D7B600D8E8
- B100ECB75E00DDAC4C00CDA64000DDAC4C00DDAC4C00CD9E4600C7923800D494
- 6500DF9F6800D2AC7C0000000000000000000000000000000000FFFFFF00FFFF
- FF0000007300000073000000730000007300FFFFFF00626262009E9E9E006262
- 6200FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00C0C0C000C0C0C000C0C0C000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500D3DECB00E2D9
- 9700F1BB5200F1BB5200DCB14600EDBA4D00DDAC4C00CDA64000C7923800E1A1
- 6100E3AB6A00B399870000000000000000000000000000000000CECECE00FFFF
- FF0048FFFF00FFFFFF0048FFFF00FFFFFF0048FFFF0062626200626262006262
- 620048FFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00C0C0C000FFFFFF00FFFFFF00FFFFFF00C0C0C000FFFFFF00FFFF
- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500C2D7B600E3D0
- 7900F4C15D00F4C15D00E4B94800EDBA4D00EDBA4D00E2B14700DCA03D00EDAC
- 6000E3AB6A00AA918F000000000000000000000000000000000062626200CECE
- CE00FFFFFF0048FFFF00FFFFFF0048FFFF00FFFFFF0048FFFF00FFFFFF0048FF
- FF006262620062626200000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00C0C0C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0C000FFFF
- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BB837D00DAD6BB00F2D3
- 8200F2CC7500EEC76900E2C05200EDBE5800F1BB5200EDBA4D00E3AE3D00FDBC
- 6300D2AC7C00AE8485000000000000000000000000002525FF002525FF006262
- 6200CECECE00FFFFFF0048FFFF00FFFFFF0048FFFF00FFFFFF0048FFFF00CECE
- CE002525FF002525FF00000000000000000000000000FFFFFF00FFFFFF00C0C0
- C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
- C000FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BB837D00E0C59D00F2D3
- 8200ECD88800EED07C00E1C96600F3C66B00ECC56200E2C05200E3AE3D00FDBC
- 6300B8A38B0000000000000000000000000000000000000000002525FF002525
- FF0062626200CECECE00FFFFFF0048FFFF00FFFFFF0048FFFF00CECECE002525
- FF002525FF0000000000000000000000000000000000FFFFFF00C0C0C000FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00C0C0C000FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BB837D00E4B98100F0DC
- 9700F0DC9700F0DC9700E3D07900E3D07900E1CB6C00E1C96600EDBE5800E8B3
- 6C00AA918F000000000000000000000000000000000000000000000000002525
- FF002525FF0062626200CECECE00FFFFFF0048FFFF00CECECE002525FF002525
- FF000000000000000000000000000000000000000000C0C0C000FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00C0C0C00000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BC7F7500EDC49600FDEC
- C200FCE9B900F6E2AA00D8D38B00ECD88800ECD88800F2D38200F3C66B00D3A9
- 7500AE84850000000000000000000000000000000000000000000000DC000000
- 00002525FF002525FF0062626200CECECE00CECECE002525FF002525FF000000
- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000C0817600D0968E00B8B6
- AD00E9CDB200D0D0C300D9BDAD00D8CCAD00E9CDB200DAD6BB00EDC49600B8A3
- 8B000000000000000000000000000000000000000000000000000000DC000000
- 7300000000002525FF002525FF002525FF002525FF002525FF00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000AB6C61009D8D9300788C
- 9C009D8D93007E8C9500A09198008A9AA3009D9BA4006DA6B900B19DA000839F
- AB000000000000000000000000000000000000000000000000000000DC000000
- 730000000000000000002525FF002525FF000000FF0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000009563
- 65008E7C81008E5E5E007E8C9500A58483008A9AA300939097006DA6B9000000
- 00000000000000000000000000000000000000000000000000000000DC000000
- 7300000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000424D3E000000000000003E000000
- 2800000040000000100000000100010000000000800000000000000000000000
- 000000000000000000000000FFFFFF0081FF8003FFFF0000801F8003FFFF0000
- 800F8003FFFF0000800380038001000080018003800100008001800380010000
- 8003800380010000800380038001000080030001800100008003000180010000
- 80078003800100008007C007800100008007C00F80010000800FC01FFFFF0000
- 800FC83FFFFF0000E01FCC7FFFFF000000000000000000000000000000000000
- 000000000000}
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.pas
deleted file mode 100644
index 588707fc35f686eaacb4fec8d3173bba65068cf6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/FrmMain.pas
+++ /dev/null
@@ -1,72 +0,0 @@
-//***********************************************************
-// TLinksLabel demo *
-// *
-// For Delphi 5 - 2010 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit FrmMain;
-
-interface
-
-uses
- Classes, Controls, Forms, Dialogs, StdCtrls, LinksLabel, ImgList;
-
-type
- TForm2 = class(TForm)
- LinksLabel1: TLinksLabel;
- LinksLabel2: TLinksLabel;
- LinksLabel3: TLinksLabel;
- LinksLabel4: TLinksLabel;
- ImageList1: TImageList;
- LinksLabel5: TLinksLabel;
- procedure LinksLabel1Launch(var Success: Boolean; const ErrorText: string;
- var Result: Cardinal);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form2: TForm2;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.LinksLabel1Launch(var Success: Boolean;
- const ErrorText: string; var Result: Cardinal);
-begin
- if not Success then
- ShowMessage(ErrorText);
-end;
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/prjLinksDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/prjLinksDemo.dpr
deleted file mode 100644
index 6cff61211769ea179356577c7e0e874261f77434..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/11 - LinksLabel_Demo/prjLinksDemo.dpr
+++ /dev/null
@@ -1,44 +0,0 @@
-//***********************************************************
-// TLinksLabel demo *
-// *
-// For Delphi 5 - 2010 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-program prjLinksDemo;
-
-uses
- Forms,
- FrmMain in 'FrmMain.pas' {Form2};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm2, Form2);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/Unit1.dfm
deleted file mode 100644
index 87207672a8f2bafe9df6b07411867f05c2dd8e9c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/Unit1.dfm
+++ /dev/null
@@ -1,352 +0,0 @@
-object Form2: TForm2
- Left = 357
- Top = 320
- BorderStyle = bsSingle
- Caption = 'Links Bar Demo'
- ClientHeight = 541
- ClientWidth = 554
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 329
- Width = 554
- Height = 193
- Align = alBottom
- TabOrder = 0
- object Button1: TButton
- Left = 0
- Top = 13
- Width = 137
- Height = 25
- Caption = 'Add Site To Links Bar'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button3: TButton
- Left = 144
- Top = 13
- Width = 137
- Height = 25
- Caption = 'Clear The Link List'
- TabOrder = 1
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 288
- Top = 13
- Width = 137
- Height = 25
- Caption = 'Remove The Site From List'
- TabOrder = 2
- OnClick = Button4Click
- end
- object Memo1: TMemo
- Left = 0
- Top = 64
- Width = 273
- Height = 99
- TabOrder = 3
- end
- object Memo2: TMemo
- Left = 280
- Top = 64
- Width = 263
- Height = 100
- TabOrder = 4
- end
- object Button5: TButton
- Left = 0
- Top = 168
- Width = 273
- Height = 17
- Caption = 'Get The Link List'
- TabOrder = 5
- OnClick = Button5Click
- end
- object Button6: TButton
- Left = 280
- Top = 168
- Width = 265
- Height = 17
- Caption = 'Get The Url From List'
- TabOrder = 6
- OnClick = Button6Click
- end
- object ShowImages: TCheckBox
- Left = 432
- Top = 8
- Width = 113
- Height = 17
- Caption = 'Hide/Show Images'
- TabOrder = 7
- OnClick = ShowImagesClick
- end
- object ViewHideLinksbar: TCheckBox
- Left = 432
- Top = 24
- Width = 113
- Height = 17
- Caption = 'Hide/Show LinksBar'
- TabOrder = 8
- OnClick = ViewHideLinksbarClick
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 522
- Width = 554
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 554
- Height = 29
- Align = alTop
- TabOrder = 3
- object Edit1: TEdit
- Left = 5
- Top = 3
- Width = 484
- Height = 21
- TabOrder = 0
- Text = 'http://bsalsa.com'
- end
- object Button2: TButton
- Left = 501
- Top = 3
- Width = 48
- Height = 21
- Caption = 'Go'
- TabOrder = 1
- OnClick = Button2Click
- end
- end
- object LinksBar1: TLinksBar
- Left = 0
- Top = 29
- Width = 554
- Height = 26
- AutoSize = True
- Caption = 'LinksBar1'
- Flat = True
- Images = ImageList1
- ParentShowHint = False
- PopupMenu = PopupMenu1
- ShowCaptions = True
- ShowHint = True
- TabOrder = 2
- About = 'LinksBar by bsalsa : bsalsa@gmail.com'
- MaxCaptionLength = 15
- WebBrowser = EmbeddedWB1
- StatusBar = StatusBar1
- end
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 55
- Width = 554
- Height = 274
- Align = alClient
- TabOrder = 4
- Silent = False
- OnDocumentComplete = EmbeddedWB1DocumentComplete
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
- ControlData = {
- 4C0000000D390000871900000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object ImageList1: TImageList
- Left = 16
- Top = 56
- Bitmap = {
- 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
- 0000000000003600000028000000400000001000000001002000000000000010
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000E3D2BEFFD8A259FFD49A
- 4BFFD8BE9FFFEFE8E1FFD8CCC1FFC2B0A0FFC1B1A0FFC7B9A8FFDCD5CBFFEAE6
- E2FFFAF9F7FF0000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000E1B067FFBF9D75FFFFFF
- FFFFC69860FFA3764AFF755031FF68472AFF66472CFF5D4430FF634C38FF8A78
- 5CFFECEAE5FFF9F7F6FF00000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000EEB047FFCCB69DFFE6DF
- D8FF8A582BFFC37E34FFDE943CFFEAA847FFF0B454FFDFB364FFA98751FF6349
- 2EFFB3A78DFFECE9E4FFFAF9F7FF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000E0AF61FFDD992EFFBB7D
- 2BFFEB9B32FFE7932FFFE79030FFB36D27FFBA732BFFE69531FFF4B142FFFBD4
- 6CFF71553AFF8D765CFFDDD5CBFF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000E7D2B5FFF6B53DFFF3AC
- 34FFE5962BFFDA8A29FF85582DFFFFFFFFFFFFFFFFFFE3C6ABFFD48632FFF4A8
- 3CFFD7B77EFF866C4FFFD7CCC0FF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000FAF9F7FFE2B767FFF4B4
- 36FFE29526FFA46720FF4F331FFF6B5037FF72563FFF7D5739FF8D5B30FF8C5B
- 2EFF916C42FF83654AFFB7A08BFF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000FFFFFFFFDED5C4FFF4BD
- 3FFFE59D27FFD0802CFFD0802CFFD0802CFFD0802CFFD0802CFFD0802CFFD080
- 2CFFD0802CFF654934FFAF9884FF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000F0EBE4FFFFFFFFFFECD7
- A8FFECAC2EFFE59F27FFDE9628FFE09529FFE0942DFFDD9537FFE7932EFFE995
- 32FFEDA142FF6E4E37FFC4B5AAFF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000F5F2EDFFCAAF7EFFFFFF
- FFFFF5C642FFB88429FF6C4926FFFFFFFFFFFFFFFFFFB0906BFFBF832EFFE896
- 2EFFCF8B37FF856950FFD5CDC6FF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000D2BD8DFFEBCF
- 91FFF5E5A8FFE0AF3BFF705129FF5A4330FF715638FFB67925FFE6982AFFE797
- 2DFFA36D30FFC1B0A0FFF4F1EEFF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000E5D9
- B5FFF6EED6FFF2DB8FFFE1B23BFFB68125FFCD8F25FFE5A029FFE49C28FFEAA0
- 2EFFA48666FFE3DBD4FFFFFFFFFF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000E6D8AFFFF3E19BFFFAE981FFFBE96BFFF4CC45FFF8CF4BFFDDB350FFB497
- 6FFFFFFFFFFFE7C98AFFE8DECFFF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000ECE6DBFFDED2BDFFD1BC9CFFCDB593FFCEA966FFEFD285FFE9C5
- 7CFFE8DABFFFE1C286FFECE4D9FF000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000EDE3
- D3FFEACF9CFFDFD0BBFF00000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000424D3E000000000000003E000000
- 2800000040000000100000000100010000000000800000000000000000000000
- 000000000000000000000000FFFFFF00FFFF0000000000008007000000000000
- 8003000000000000800100000000000080010000000000008001000000000000
- 8001000000000000800100000000000080010000000000008001000000000000
- C001000000000000E001000000000000F001000000000000F801000000000000
- FFE3000000000000FFFF00000000000000000000000000000000000000000000
- 000000000000}
- end
- object PopupMenu1: TPopupMenu
- Left = 80
- Top = 56
- object AddCurrentSiteToTheLinksList1: TMenuItem
- Caption = 'Add Current Site To The Links List'
- OnClick = Button1Click
- end
- object RemoveTheCurrentSiteFromTheLinksList1: TMenuItem
- Caption = 'Remove The Current Site From The Links List'
- OnClick = Button4Click
- end
- object N14: TMenuItem
- Caption = '-'
- end
- object ClearTheLinksList1: TMenuItem
- Caption = 'Clear The Links List'
- OnClick = Button3Click
- end
- object ShowTheList2: TMenuItem
- Caption = 'Show The List'
- OnClick = Button6Click
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/Unit1.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/Unit1.pas
deleted file mode 100644
index 024c6936ad4bd429e430d30cb1e5be41994c8d18..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/Unit1.pas
+++ /dev/null
@@ -1,168 +0,0 @@
-//****************************************************
-// LinksBar Demo *
-// *
-// *
-// By: *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-//I used 2 methods to get the info :
-// 1. StringList (So you can SaveToFile)
-// 2. String so you use it simple Add procedure
-// Both of them do the job for every parsed item.
-
-unit Unit1;
-
-interface
-
-uses
- Classes, Controls, Forms, ComCtrls, OleCtrls, StdCtrls, ExtCtrls,
- ToolWin, LinksBar, ImgList, Buttons, Menus, SHDocVw, SHDocVw_EWB, EmbeddedWB,
- EwbCore;
-
-type
- TForm2 = class(TForm)
- Panel1: TPanel;
- StatusBar1: TStatusBar;
- Button1: TButton;
- Button3: TButton;
- Button4: TButton;
- Memo1: TMemo;
- Memo2: TMemo;
- Button5: TButton;
- Button6: TButton;
- ImageList1: TImageList;
- ShowImages: TCheckBox;
- Panel2: TPanel;
- Edit1: TEdit;
- Button2: TButton;
- LinksBar1: TLinksBar;
- PopupMenu1: TPopupMenu;
- AddCurrentSiteToTheLinksList1: TMenuItem;
- RemoveTheCurrentSiteFromTheLinksList1: TMenuItem;
- N14: TMenuItem;
- ShowTheList2: TMenuItem;
- ClearTheLinksList1: TMenuItem;
- ViewHideLinksbar: TCheckBox;
- EmbeddedWB1: TEmbeddedWB;
- procedure ViewHideLinksbarClick(Sender: TObject);
- procedure ShowImagesClick(Sender: TObject);
- procedure Button6Click(Sender: TObject);
- procedure Button5Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure EmbeddedWB1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- private
- bFirstTime: Boolean;
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form2: TForm2;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.Button2Click(Sender: TObject);
-begin
- EmbeddedWB1.Navigate(Edit1.Text);
-end;
-
-procedure TForm2.Button1Click(Sender: TObject);
-begin
- LinksBar1.AddToLinksList(EmbeddedWB1.LocationName, EmbeddedWB1.LocationURL);
-end;
-
-procedure TForm2.FormShow(Sender: TObject);
-begin
- bFirstTime := True;
- EmbeddedWB1.Navigate('http://www.bsalsa.com');
-end;
-
-procedure TForm2.Button3Click(Sender: TObject);
-begin
- LinksBar1.ClearTheLinksList;
-end;
-
-procedure TForm2.Button4Click(Sender: TObject);
-begin
- LinksBar1.RemoveFromLinksList(EmbeddedWB1.LocationName);
-end;
-
-procedure TForm2.Button5Click(Sender: TObject);
-begin
- Memo1.Clear;
- LinksBar1.GetTheLinksList(Memo1.lines);
-end;
-
-procedure TForm2.Button6Click(Sender: TObject);
-begin
- Memo2.Clear;
- LinksBar1.GetTheLinksURLs(Memo2.lines);
-end;
-
-procedure TForm2.ShowImagesClick(Sender: TObject);
-begin
- if ShowImages.Checked then
- begin
- LinksBar1.ShowImages := false;
- LinksBar1.CreateLinkButtons(-1);
- end
- else
- begin
- LinksBar1.ShowImages := true;
- LinksBar1.CreateLinkButtons(0);
- end
-end;
-
-procedure TForm2.ViewHideLinksbarClick(Sender: TObject);
-begin
- Linksbar1.Shown := ViewHideLinksbar.Checked
-end;
-
-procedure TForm2.EmbeddedWB1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-begin
- if bFirstTime then
- begin
- LinksBar1.AddToLinksList(EmbeddedWB1.LocationName, EmbeddedWB1.LocationURL);
- bFirstTime := False;
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/prjProject1Demo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/prjProject1Demo.dpr
deleted file mode 100644
index f505d1647cac0d50697478b24a432968301a95c4..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/12 - LinksBar_Demo/prjProject1Demo.dpr
+++ /dev/null
@@ -1,49 +0,0 @@
-//****************************************************
-// LinksBar Demo *
-// *
-// *
-// By: *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-program prjProject1Demo;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form2};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm2, Form2);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.dfm
deleted file mode 100644
index 57958b7bf809dc76895b4c00bb13e04db00ca18e..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.dfm and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.pas
deleted file mode 100644
index d9e1b95c672e3c8aab52a58ec42accdcb9371a95..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/Mime_unit.pas
+++ /dev/null
@@ -1,160 +0,0 @@
- {*****************************************************************}
-{ }
-{ MimeFilter interface Demo }
-{ }
-{ By Eran Bodankin - bsalsa }
-{ Converted 6 May 2007 bsalsa@bsalsa.com }
-{ Last modified 6 May 2007 bsalsa@bsalsa.com }
-{ Version 2 }
-{ }
-{ Documentation and updated versions: }
-{ }
-{ http://www.bsalsa.com }
-{*****************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your web site, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit Mime_unit;
-
-interface
-
-uses
- ComServ, Classes, Forms, SysUtils, ActiveX, UrlMon, StdCtrls, OleCtrls,
- SHDocVw_EWB, EwbCore, EmbeddedWB, ExtCtrls, Controls, IEAddress;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Panel3: TPanel;
- btnInternet: TButton;
- btnLocal: TButton;
- EmbeddedWB1: TEmbeddedWB;
- edtIn: TEdit;
- edtOut: TEdit;
- Label1: TLabel;
- Label2: TLabel;
- cbFilter: TCheckBox;
- IEAddress1: TIEAddress;
- Panel2: TPanel;
- Memo1: TMemo;
- procedure EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
- procedure FormShow(Sender: TObject);
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- procedure btnLocalClick(Sender: TObject);
- procedure btnInternetClick(Sender: TObject);
- private
- bConnected: Boolean;
- procedure RegisterFilter;
- procedure UnregisterFilter;
- procedure SetFilter;
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.DFM}
-
-uses MimeFilter;
-
-var
- Factory: IClassFactory;
- InternetSession: IInternetSession;
-
-procedure TForm1.UnregisterFilter;
-begin
- if bConnected then
- begin
- InternetSession.UnregisterMimeFilter(Factory, 'text/html');
- if InternetSession <> nil then
- begin
- InternetSession._Release;
- InternetSession := nil;
- end;
- if Factory <> nil then
- begin
- Factory._Release;
- Factory := nil;
- end;
- bConnected := False;
- end;
-end;
-
-procedure TForm1.RegisterFilter;
-begin
- if Succeeded(CoInternetGetSession(0, InternetSession, 0))
- and Succeeded(CoGetClassObject(Class_StrMimeFilter, CLSCTX_SERVER, nil, IClassFactory, Factory))
- and Succeeded(InternetSession.RegisterMimeFilter(Factory, Class_StrMimeFilter, 'text/html')) then
- bConnected := True;
-end;
-
-procedure TForm1.SetFilter;
-begin
- if cbFilter.Checked then
- begin
- MimeFilter.StrIn := edtIn.Text;
- MimeFilter.StrOut := edtOut.Text;
- end else
- begin
- MimeFilter.StrIn := '';
- MimeFilter.StrOut := '';
- end;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- EmbeddedWB1.Go('http://www.bsalsa.com/forum/');
- RegisterFilter;
-end;
-
-procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
- UnRegisterFilter;
-end;
-
-procedure TForm1.btnLocalClick(Sender: TObject);
-begin
- SetFilter;
- EmbeddedWB1.Go('file://' + ExtractFilePath(Application.ExeName) + 'demo.htm');
-end;
-
-procedure TForm1.btnInternetClick(Sender: TObject);
-begin
- SetFilter;
- EmbeddedWB1.Go(IEAddress1.Text);
-end;
-
-procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-begin
- IEAddress1.Text := EmbeddedWB1.LocationURL;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/demo.htm b/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/demo.htm
deleted file mode 100644
index 9ba5c0174859cae46bc350ba429a064cf6cc57e9..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/demo.htm
+++ /dev/null
@@ -1,43 +0,0 @@
-
-
-
-
- Page 1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- This demo demonstrates some of the powerful features in a
- temporary or permanent pluggable NameSpaceHandler.
On this document, we are replacing the strings from the EditBox in a local /remote html file.
-
- Instructions:
-
- Check / UnCheck the Filter CheckBox and, load the file.
- Delphi
- Delphi
- Delphi
- Delphi
- Delphi
-
- For info:
- http://msdn2.microsoft.com/en-us/library/aa767916.aspx
-
-
-
-
-
-
-
-
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/pnh.gif b/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/pnh.gif
deleted file mode 100644
index 96146927694bf6c7995ae1c28099eb73544131e0..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/pnh.gif and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/prjMimeDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/prjMimeDemo.dpr
deleted file mode 100644
index 5874b954b21c8b14aa32451b2b86035805d1835b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/13 - MimeFilter_Demo/prjMimeDemo.dpr
+++ /dev/null
@@ -1,50 +0,0 @@
-{*****************************************************************}
-{ }
-{ MimeFilter interface Demo }
-{ }
-{ By Eran Bodankin - bsalsa }
-{ Converted 6 May 2007 bsalsa@bsalsa.com }
-{ Last modified 6 May 2007 bsalsa@bsalsa.com }
-{ Version 2 }
-{ }
-{ Documentation and updated versions: }
-{ }
-{ http://www.bsalsa.com }
-{*****************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your web site, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjMimeDemo;
-
-
-uses
- Forms,
- Mime_unit in 'Mime_unit.pas' {Form1},
- MimeFilter in '..\..\..\Tools\MimeFilter.pas';
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/Unit1.dfm
deleted file mode 100644
index 8779e4e3823d6c8cce49745a43eb9485f4bd6b50..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/Unit1.dfm
+++ /dev/null
@@ -1,2642 +0,0 @@
-object Form2: TForm2
- Left = 199
- Top = 138
- Caption = 'RichEdit Demo'
- ClientHeight = 582
- ClientWidth = 587
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 587
- Height = 339
- Align = alClient
- TabOrder = 0
- object EmbeddedWB1: TEmbeddedWB
- Left = 1
- Top = 1
- Width = 585
- Height = 318
- Align = alClient
- TabOrder = 0
- OnStatusTextChange = EmbeddedWB1StatusTextChange
- OnCommandStateChange = EmbeddedWB1CommandStateChange
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bSeite &p von &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.52 from: http://www.bsalsa.com/'
- VisualEffects.TextSize = 0
- ControlData = {
- 4C000000B43A0000B21E00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- object StatusBar2: TStatusBar
- Left = 1
- Top = 319
- Width = 585
- Height = 19
- Panels = <
- item
- Width = 400
- end
- item
- Width = 70
- end
- item
- Width = 50
- end>
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 339
- Width = 587
- Height = 224
- Align = alBottom
- TabOrder = 1
- object RichEditWB1: TRichEditWB
- Left = 1
- Top = 1
- Width = 585
- Height = 222
- Hint =
- 'File Name: Untitled. | '#10#13'Position: Line: 1 Col: 1. | '#10#13'Mod' +
- 'ified. | '#10#13'Caps Lock: Off. | '#10#13'NumLock: On. | '#10#13'Insert: On. | '#10#13 +
- 'Total Lines Count: 0. |'
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ScrollBars = ssBoth
- ShowHint = True
- TabOrder = 0
- WordWrap = False
- AutoNavigate = True
- EmbeddedWB = EmbeddedWB1
- FileName = 'Untitled'
- HighlightHTML = True
- HighlightURL = True
- HighlightXML = True
- RTFText =
- #23675#29810#12646#24924#29550#23657#25956#26214#31536#26204#28271#29812#27746#23675#12390#26204#26990#23660#25446#24936#29554#29797#8240#24916#28520#24941#32059#3453#31498#25436#27759#29295#25204#8300#23611#25970#12388#26460#25970#28261#23600#27746#25973#15152#3453#23562#26998#30565#26987#25710#23604#25461#23601#24944#25714#25436#12646#27740#28257#12903#13616#23605#12390#26204 +
- #12659#23606#24944#3442#32010#2573#12288#29232#10076#12336#23668#12327#26160#10076#12336#23601#12327#23600#23644#12327#26160#10076#12336#23650#12327#26928#10076#12336#23652#12327#26928#10076#12336#23667#12327#23600#23644#12327#24880#10076#12336#23662#12327#29488#10076#12336#23657#12327#23600#23644#12327#25648#10076#12336#23653#12327#26160#10076#12336#23654#12327#12336#10076#12336 +
- #31580#10076#12336#23644#10076#12336#23654#12327#28464#10076#12336#23662#12327#29744#10076#12336#23668#12327#25136#10076#12336#23660#12327#23600#23675#12327#23600#23644#12327#26160#10076#12336#23600#12327#23600#23644#12327#26160#10076#12336#23662#12327#26928#10076#12336#23660#12327#8240#10076#12336#23636#12327#24880#10076#12336#23656#12327#28464#10076#12336#23661#12327#24880#10076 +
- #12336#23611#12327#23600#23677#12327#23600#23677#12327#23600#24944#3442#23562#12327#23600#24944#3442#23562#12327#23600#23675#12327#23600#23644#12327#25392#10076#12336#23663#12327#27696#10076#12336#23663#12327#29232#10076#12336#23668#12327#25136#10076#12336#23660#12327#8240#10076#12336#23611#12327#23600#23644#12327#29232#10076#12336#23653#12327#25648#10076#304#128#240
- Statusbar = StatusBar1
- SupprtMoreThen64KB = False
- TextAlignment = taLeftJustify
- HideCaret = False
- Themes = tDefault
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 563
- Width = 587
- Height = 19
- Panels = <
- item
- Text =
- 'File Name: Untitled. | '#10#13'Position: Line: 1 Col: 1. | '#10#13'Mod' +
- 'ified. | '#10#13'Caps Lock: Off. | '#10#13'NumLock: On. | '#10#13'Insert: Off. | '#10 +
- #13'Total Lines Count: 1. |'
- Width = 2000
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end
- item
- Width = 50
- end>
- end
- object MainMenu1: TMainMenu
- Left = 56
- Top = 208
- object File1: TMenuItem
- Caption = 'File'
- object New1: TMenuItem
- Caption = 'New'
- OnClick = New1Click
- end
- object Open3: TMenuItem
- Caption = 'Open'
- OnClick = Open3Click
- end
- object Save1: TMenuItem
- Caption = 'Save'
- OnClick = Save1Click
- end
- object SaveAs2: TMenuItem
- Caption = 'Save As..'
- OnClick = SaveAs2Click
- end
- object N20: TMenuItem
- Caption = '-'
- end
- object Print2: TMenuItem
- Caption = 'Print'
- OnClick = Print2Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- OnClick = Exit1Click
- end
- end
- object Edit1: TMenuItem
- Caption = 'Edit'
- object Find1: TMenuItem
- Caption = 'Find'
- OnClick = Find1Click
- end
- object Replace1: TMenuItem
- Caption = 'Replace'
- OnClick = Replace1Click
- end
- object GoToLineNumber1: TMenuItem
- Caption = 'Go To Line Number..'
- OnClick = GoToLineNumber1Click
- end
- object SetSelectionAsAHyperLink1: TMenuItem
- Caption = 'Set Selection As A HyperLink'
- OnClick = SetSelectionAsAHyperLink1Click
- end
- object SetWordAsAHyperLink1: TMenuItem
- Caption = 'Set Word As A HyperLink'
- OnClick = SetWordAsAHyperLink1Click
- end
- object WrapLongLines1: TMenuItem
- Caption = 'Wrap Long Lines'
- Checked = True
- end
- end
- object Fonts1: TMenuItem
- Caption = 'Fonts'
- object SelectFonts1: TMenuItem
- Caption = 'Set Fonts'
- OnClick = SelectFonts1Click
- end
- object SetFontColor1: TMenuItem
- Caption = 'Set Font Color'
- OnClick = SetFontColor1Click
- end
- object SetSize1: TMenuItem
- Caption = 'Set Size'
- OnClick = SetSize1Click
- end
- object SetBold1: TMenuItem
- Caption = 'Set Bold'
- OnClick = SetBold1Click
- end
- object SetItalic1: TMenuItem
- Caption = 'Set Italic'
- OnClick = SetItalic1Click
- end
- object SetUnderLine1: TMenuItem
- Caption = 'Set UnderLine'
- OnClick = SetUnderLine1Click
- end
- object AddBackroundColor1: TMenuItem
- Caption = 'Add Backround Color To Selected Text'
- OnClick = AddBackroundColor1Click
- end
- object ResetFontsFormat1: TMenuItem
- Caption = 'Reset Fonts Format'
- OnClick = ResetFontsFormat1Click
- end
- end
- object Add1: TMenuItem
- Caption = 'Add'
- object InsertFile1: TMenuItem
- Caption = 'Insert File ( As Link)'
- OnClick = InsertFile1Click
- end
- object InsertBitmap1: TMenuItem
- Caption = 'Insert Bitmap'
- OnClick = InsertBitmap1Click
- end
- object N24: TMenuItem
- Caption = '-'
- end
- object AddDateAndTime1: TMenuItem
- Caption = 'Add Date And Time'
- OnClick = AddDateAndTime1Click
- end
- object N25: TMenuItem
- Caption = '-'
- end
- object AddBullets1: TMenuItem
- Caption = 'Add Bullets'
- OnClick = AddBullets1Click
- end
- object AddRomanNumbers1: TMenuItem
- Caption = 'Add Roman Line Numbers'
- OnClick = AddRomanNumbers1Click
- end
- object AddLineNumbers1: TMenuItem
- Caption = 'Add Line Numbers'
- OnClick = AddLineNumbers1Click
- end
- object N26: TMenuItem
- Caption = '-'
- end
- object AddAButton1: TMenuItem
- Caption = 'Add A Button'
- OnClick = AddAButton1Click
- end
- object AddTEditBox1: TMenuItem
- Caption = 'Add TEdit Box'
- OnClick = AddTEditBox1Click
- end
- object AddARadioButton1: TMenuItem
- Caption = 'Add A Radio Button'
- OnClick = AddARadioButton1Click
- end
- object AddACheckBox1: TMenuItem
- Caption = 'Add A TCheckBox'
- OnClick = AddACheckBox1Click
- end
- end
- object Tools1: TMenuItem
- Caption = 'Tools'
- object CreateASnapshot1: TMenuItem
- Caption = 'Create A Snapshot'
- OnClick = CreateASnapshot1Click
- end
- object PreviewRichEditLinesInTheBrowser1: TMenuItem
- Caption = 'Preview Code In The Browser (Stream)'
- OnClick = PreviewRichEditLinesInTheBrowser1Click
- end
- object LoadCodeFromBrowserStream1: TMenuItem
- Caption = 'Load HTML Code From Browser (Stream)'
- OnClick = LoadCodeFromBrowserStream1Click
- end
- object N21: TMenuItem
- Caption = '-'
- end
- object MailSelectedText1: TMenuItem
- Caption = 'Mail Selected Text'
- OnClick = MailSelectedText1Click
- end
- object Mail1: TMenuItem
- Caption = 'Mail'
- OnClick = Mail1Click
- end
- object N23: TMenuItem
- Caption = '-'
- end
- object SetColor1: TMenuItem
- Caption = 'Set Color'
- OnClick = SetColor1Click
- end
- object Themes1: TMenuItem
- Caption = 'Set Themes'
- OnClick = Themes1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object DesignMode: TMenuItem
- Caption = 'Set Browser Design Mode'
- OnClick = DesignModeClick
- end
- end
- object Demo: TMenuItem
- Caption = 'Demo'
- object HighlighHTML1: TMenuItem
- Caption = 'Highlight HTML'
- OnClick = HighlighHTML1Click
- end
- object HighLightXML1: TMenuItem
- Caption = 'Highlight XML'
- OnClick = HighLightXML1Click
- end
- object HighLightURL1: TMenuItem
- Caption = 'Highlight URL'
- OnClick = HighLightURL1Click
- end
- object N22: TMenuItem
- Caption = '-'
- end
- object InsertFromImageList1: TMenuItem
- Caption = 'Insert Smiles And Formated Text from image list Demo'
- OnClick = InsertFromImageList1Click
- end
- end
- end
- object OpenDialog1: TOpenDialog
- Left = 120
- Top = 208
- end
- object ilsSmilies: TImageList
- BkColor = clBlack
- Height = 19
- Width = 19
- Left = 88
- Top = 208
- Bitmap = {
- 494C01012F00310004001300130000000000FF10FFFFFFFFFFFFFFFF424D3600
- 00000000000036000000280000004C000000E40000000100200000000000C00E
- 0100000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000002F4F
- 4F00386058000B3838000B38380012473F00052F280000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B89
- 82000B8982000000000000000000000000002F3F4700284747001A3F3F000028
- 2800000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B8982000B8982000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B8982000B8982000B89
- 82000B8982000B817A0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000012A49B000B9C930012A49B000000000000000000000000000000
- 0000585868003F4F58001A293800000000000000000000000000000000000000
- 00000000000000000000000000000000000012A49B000B9C930012A49B000B9C
- 930012A49B000B9289000B8982000B8982000A7A700000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B000B9C930000000000000000000000000000000000000000000B8982000A7A
- 7000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012A49B0011ADA50011ADA50011AD
- A5000000000000000000000000004F4F60002F2838003F3F4700000000000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B0011ADA50011ADA50011ADA50011ADA50011ADA50011ADA5000B9289000B92
- 89000B817A000A7A700000000000000000000000000000000000000000000000
- 0000000000000000000012A49B0011ADA500000000002828FF002828FF001414
- 4D002828FF002828FF00000000000B817A000A7A700000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000011B5AC0011B5AC0011BEB50011BEB50011BEB50000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000011BEB50011B5AC0011B5AC0011B5AC0011B5
- AC0011B5AC0011ADA50011ADA50011ADA5000B8982000B898200000000000000
- 000000000000000000000000000000000000000000000000000011BEB5000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000B8982000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000011B5AC0011BEB50012D0C00012D1C70012D0
- C00012D1C70011BEB50000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000011B5AC0011BE
- B50011BEB50012D1C70012D0C00012D1C70011BEB50011BEB50011B5AC0011AD
- A50012A49B000B8982000B817A00000000000000000000000000000000000000
- 00000000000011B5AC0011BEB500000000000000000000000000000000000000
- 0000000000000000000000000000000000000B8982000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000011BE
- B50012D1C70019E3D20019E3D20019E3D20019E3D20019E3D20012D0C0000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000011BEB50012D1C70019E3D20019E3D20019E3D20038E3
- D90019E3D20011BEB50011BEB50011B5AC0012A49B000B9289000B8982000000
- 0000000000000000000000000000000000000000000011BEB500000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B89820000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012D0C00019E3D20028E3D90028E3D90028E3
- D90028E3D90019E3D20019E3D20012D0C00011B5AC0011ADA50012A49B000B89
- 820000000000000000000000000000000000000000000000000012D0C00019E3
- D20028E3D90028E3D90028E3D90038E3D90028E3D90038E3D90012D0C00011B5
- AC0011ADA50012A49B000B898200000000000000000000000000000000000000
- 00000000000012D0C00000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B898200000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012D1
- C70028E3D90028E3D90038E3D90038E3D90038E3D90038E3D90019E3D20012D0
- C00011BEB50011ADA5000B9C93000B8982000000000000000000000000000000
- 0000000000000000000012D1C70019E3D20028E3D90038E3D90038E3D90038E3
- D90028E3D90038E3D90012D0C00011BEB50011ADA5000B9C93000B8982000000
- 0000000000000000000000000000000000000000000012D1C700000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B89820000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012D1C70019E3D20028E3D90038E3D90047ED
- E40038E3D90028E3D90019E3D200000000000000000011ADA50012A49B000B89
- 820000000000000000000000000000000000000000000000000012D1C70019E3
- D20038E3D90038E3D90038E3D90038E3D90028E3D90019E3D20012D0C00011B5
- AC0011ADA50012A49B000B898200000000000000000000000000000000000000
- 00000000000012D1C70000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B898200000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000019E3D20028E3D90038E3D90038E3D90038E3D90028E3D90019E3D2000000
- 00000000000011ADA50012A49B00000000000000000000000000000000000000
- 000000000000000000000000000019E3D20028E3D90038E3D90038E3D90038E3
- D90028E3D90019E3D20012D0C00011B5AC0011ADA50012A49B00000000000000
- 000000000000000000000000000000000000000000000000000019E3D2000000
- 0000FFFFFF00FFEDD100FFFFFF00FFFFFF00FFEDD100FFFFFF00FFEDD1000000
- 000012A49B000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D90028E3D90028E3
- D90028E3D90028E3D90019E3D20012D0C00011B5AC0011ADA5000B9C93000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5
- AC0011ADA5000B9C930000000000000000000000000000000000000000000000
- 0000000000000000000019E3D200000000000000000000000000000000000000
- 0000000000000000000000000000000000000B9C930000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20019E3D20028E3D90019E3D20019E3D20012D1C70011BE
- B50011B5AC0012A49B0000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D20028E3D90019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B0000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D20019E3D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A4
- 9B00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012D1
- C70012D0C00012D0C00011BEB50011B5AC000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D0C00012D0C00011BEB50011B5AC000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000012D1C70012D0C00012D0
- C00011BEB50011B5AC0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B282F00051A
- 2100051A21000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000001258680012586800125868000B21280012282F003F8A
- 9C004FA5C000478A9C0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000007AB6D10082C9ED002168930000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000B8982000B8982000B8982000B8982000B81
- 7A00000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B8982000B8982000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000001A688200217A93001A6882000B21
- 2800123A3C003F8A9C0047A5C0003F8A9C00213F470000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000093D1ED00A5E4
- FF002F82B6000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000012A49B000B9C930012A4
- 9B000B9C930012A49B000B9289000B8982000B8982000A7A7000000000000000
- 00000000000000000000000000000000000012A49B0012A49B0012A49B0012A4
- 9B0012A49B000B9C93000B8982000B8982000A7A700000000000000000000000
- 00000000000000000000000000000000000000000000000000001A688200217A
- 93003FA5C0003FA5C000217A9300123A3C0028687A0038829300213F4700213F
- 47003F93A5004FA5C000478A9C00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000007AB6D100B6EDFF0060A5C90000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000011ADA5000000930000009300000093000B9C
- 93000B9289000B817A000A7A70000000000000000000000000000000000012A4
- 9B0011ADA5000000000011ADA50011ADA50011ADA50012A49B0012A49B000000
- 00000B8982000A7A700000000000000000000000000000000000000000000000
- 00000000000000000000388293003FA5C00047C0DA0047C0DA0047C0DA003882
- 93000B2128001A3847003F8A9C004FA5C0004FA5C0001E474900000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000093D1
- ED0060A5C90000000000000000000000000000000000000000000000000012A4
- 9B0012A49B000B817A000B8982000B817A000B8982000B817A000B8982000000
- 000000009C000000B90000009C00000093000B9C93000B9289000B8982000000
- 000000000000000000000000000011B5AC0011BEB50011BEB500000000000000
- 000000000000000000000000000012A49B000B9289000B898200000000000000
- 00000000000000000000000000000000000000000000000000003FA5C0004FC9
- E40068E4FF007BE5FF0068E4FF004FA5C0001A38470028687A0038829300213F
- 4700213F47003F93A5004FA5C000478A9C000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000093D1ED0082C9ED003F8AAD00000000000000
- 000000000000000000000000000011ADA50011ADA50012A49B000B9C930012A4
- 9B000B9C93000B9C93000B898200000000000000000000000000000000000000
- 000000000000000000000B8982000B817A00000000000000000011BEB50011BE
- B50012D0C00012D1C70012D1C70012D1C70012D0C00011BEB50011BEB50011AD
- A50012A49B000B8982000B817A00000000000000000000000000000000000000
- 000000000000000000004FC9E40068E4FF007BE5FF007BE5FF0060C9E40068E4
- FF00478A9C001A3847000B212800388293004FA5C00047A5C0001E4749000000
- 000000000000000000000000000000000000000000000000000068A5C90068A5
- C9002F7093001A2938000B282F003F70930082C9ED007AB6D1002F5C68007AB6
- D100A5E4FF0082C9ED004F8AB6000000000000000000000000000000000047ED
- E40011ADA50011ADA50011ADA50011ADA50011ADA50012A49B000B817A000000
- 000028E3D90012D1C70012D1C70011BEB50011B5AC0012A49B00000000000B89
- 8200000000000000000011BEB50012D1C70019E3D20019E3D20019E3D20019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B000B9C93000B8982000000
- 000000000000000000000000000000000000000000000000000060C9E4007BE5
- FF007BE5FF0060C9E400386D7C0058ADC00068E4FF00478A9C001A3847003F8A
- 9C0047A5C0002F5C6800388293003F8A9C000000000000000000000000000000
- 000000000000000000004F8AB6003F8AAD00386D7C0068A5C9004F8AB6001A38
- 47005D93B000A5E4FF007AB6D1003F7093007AB6D100B6EDFF00B6EDFF0093D1
- ED0000000000000000000000000047EDE40012D0C00012D0C00012D0C00012D0
- C00011ADA50012A49B000B817A000000000028E3D90019E3D20019E3D20012D0
- C00011B5AC0011ADA50012A49B000B898200000000000000000012D0C00019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011BE
- B50011ADA50012A49B000B898200000000000000000000000000000000000000
- 00000000000000000000000000003F8A9C004FC9E40068E4FF0058ADC000284F
- 5D0058ADC0004FC9E400386D7C000B21280012282F0028687A0047A5C00047A5
- C0000000000000000000000000000000000000000000000000001A293800284F
- 5D0068A5C9006EADC6003F8AAD000B282F001A3847005D93B000A5E4FF007AB6
- D1003F70930093D1ED00A5E4FF0082C9ED0000000000000000000000000047ED
- E4000000000012D0C00012A49B000000000011ADA50012A49B000B817A000000
- 000038E3D90038E3D90019E3D20012D0C00011BEB50011ADA50012A49B000B89
- 8200000000000000000012D1C70019E3D20028E3D90038E3D90038E3D90038E3
- D90028E3D90019E3D20012D1C70011BEB50011ADA50012A49B000B8982000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000388293004FC9E40060C9E400000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000005D93B0006EADC6005D93B00021475800214758003F8A
- AD003F7093001A38470068A5C900A5E4FF0093D1ED00A5E4FF0082C9ED0060A5
- C90000000000000000000000000047EDE4000000000012D0C00012A49B000000
- 000011B5AC00000000000B8982000000000038E3D90028E3D90019E3D20012D1
- C70011BEB50011ADA5000B9C93000B898200000000000000000012D1C70019E3
- D20028E3D900000000000000000038E3D90028E3D90019E3D200000000000000
- 000011ADA50012A49B000B898200000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000047A5C00060C9E4000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000001A38
- 4700284F5D006EADC6006EADC6004F8AB6001A3847001A2938003F8AAD0070C0
- E40070C0E40070C0E40060A5C9002F82B6000000000000000000000000000000
- 00000000000012D0C00012A49B000000000000000000000000000000000038E3
- D90038E3D90028E3D90019E3D20012D0C00011BEB5000000000012A49B000000
- 000000000000000000000000000019E3D20028E3D900000000000000000038E3
- D90028E3D90019E3D200000000000000000011ADA50012A49B00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000047A5C0007BE5FF0058ADC0000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000005D93B0006EADC6005D93B000214758002147
- 58003F8AAD002F7093001A384700287AAD0060A5C90060A5C900287AAD002168
- 9300000000000000000000000000000000000000000012D0C00012A49B000000
- 000019E3D20028E3D90000000000000000000000000028E3D900000000000000
- 00000000000011ADA5000B9C93000000000000000000000000000000000019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011BE
- B50011ADA50012A49B0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000047A5C0007BE5FF0060C9
- E400000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00001A384700214758004F8AB60068A5C9004F8AB6001A384700051A21002168
- 9300287AAD002168930000000000000000000000000000000000000000000000
- 00000000000012D0C00012A49B00000000000000000019E3D20019E3D20028E3
- D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B00000000000000
- 00000000000000000000000000000000000019E3D20019E3D20019E3D20019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000003F8A9C0060C9E40058ADC0000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000005D93B0006EADC6004F8AB6001A29
- 38000B282F0012587A0012587A0012587A000000000000000000000000000000
- 0000000000000000000000000000000000000000000012D0C00012A49B000000
- 000000000000000000000000000012D1C70012D0C00012D0C00011BEB50011B5
- AC00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D1C70012D0C00011BEB50011BEB5000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000001020F00000614000006
- 140001050D000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000006140000061400000614000102
- 0F00000000000000000000000000000000000000000000000000000000000000
- 0000000000000B8982000B8982000B8982000B8982000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B8982000B8982000B8982000B89
- 82000B817A000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B8982000B8982000B89
- 82000B8982000B817A0000000000000000000000000000000000000000000000
- 00000000000000012800335FA600335FA600335FA60000061400000000000000
- 00000B8982000B8982000B8982000B8982000B817A0000000000000000000006
- 1400335FA600335FA600335FA60000001C000000000000000000000000000000
- 00000000000000000000000000000B9C930012A49B0000000000000000000000
- 000000000000000000000B8982000A7A70000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B9C930012A4
- 9B0000000000000000000000000000000000000000000B8982000A7A70000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B000B9C930012A49B000B9C930012A49B000B9289000B8982000B8982000A7A
- 7000000000000000000000000000000000000000000000001C00335FA600335F
- A600335FA6000000000012A49B000B9C930012A49B000B9C930012A49B000B92
- 89000B8982000B8982000A7A700000000000335FA600335FA600335FA6000001
- 220000000000000000000000000000000000000000000000000012A49B0011AD
- A5000000000000000000FFFFFF00FFFFFF00FFEDD10000000000000000000B89
- 82000A7A70000000000000000000000000000000000000000000000000000000
- 00000000000012A49B0011ADA5000000000000000000FFFFFF00FFFFFF00FFED
- D10000000000000000000B8982000A7A70000000000000000000000000000000
- 0000000000000000000012A49B0011ADA50011ADA50000000000000000000000
- 000000000000000000000B9289000B817A000A7A700000012200000000000000
- 0000000000000000000001122100335FA6000001070012A49B0011ADA50011AD
- A50000000000000000000000000000000000000000000B9289000B817A000A7A
- 700000012200335FA60000132D00000000000000000000000000000000000000
- 000000000000000000000000000000000000FFEDD10000000000FFFFFF00FFFF
- FF00FFEDD10000000000FFFFFF00000000000B89820000000000000000000000
- 0000000000000000000000000000000000000000000011B5AC0000000000FFED
- D10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00000000000B89
- 820000000000000000000000000000000000000000000000000011B5AC0011B5
- AC000000000011BEB50011BEB50011B5AC0011B5AC0011ADA500000000000B92
- 89000B89820000091A000000000000000000000000000000000000131000335F
- A6000013100011B5AC0011B5AC000000000011BEB50011BEB50011B5AC0011B5
- AC0011ADA500000000000B9289000B89820000091A00335FA60001020F000000
- 000000000000007A7A0000000000007A7A00007A7A0000000000007A7A000000
- 0000FFEDD10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFED
- D100000000000B817A00000000000000000000000000000000007A0000007A00
- 00007A0000007A0000007A000000FFEDD10000000000FFFFFF00FFFFFF00FFED
- D10000000000FFFFFF00FFEDD100000000000B817A0000000000000000000000
- 00000000000011B5AC0011BEB5000000000012D1C70012D0C00012D1C70012D0
- C00011BEB50011B5AC0011ADA500000000000B8982000B817A00001A16000000
- 00000000000000000000000107000519190011B5AC0011BEB5000000000012D1
- C70012D0C00012D1C70012D0C00011BEB50011B5AC0011ADA500000000000B89
- 82000B817A00001A1600001A16000000000000000000007A7A0000000000007A
- 7A00007A7A0000000000007A7A00000000000000000000000000FFFFFF00FFFF
- FF00FFEDD10000000000FFFFFF00FFEDD100000000000B898200000000000000
- 0000000000000000000000000000000000007A00000000000000FFFFFF00FFED
- D10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD1000000
- 00000B8982000000000000000000000000000000000011BEB50012D1C70019E3
- D20019E3D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A4
- 9B000B9289000B898200000E08000000000000000000000000001C1A1D000001
- 070011BEB50012D1C70019E3D20019E3D20019E3D20019E3D20019E3D20012D1
- C70011BEB50011B5AC0012A49B000B9289000B898200000E0800000E08000000
- 000000000000007A7A0000000000007A7A00007A7A0000000000007A7A000000
- 000012D1C70012D1C70000000000FFFFFF00FFEDD10000000000FFFFFF00FFED
- D100000000000B89820000000000000000000000000000000000000000000000
- 000012D1C70012D1C70000000000FFEDD10000000000FFFFFF00FFFFFF00FFED
- D10000000000FFFFFF00FFEDD100000000000B89820000000000000000000000
- 000001050D0012D0C00019E3D20028E3D90028E3D90028E3D90028E3D90028E3
- D90012D1C70012D0C00011B5AC0011ADA50012A49B000B898200001310000000
- 000000000000000000000001070001050D0012D0C00019E3D20028E3D90028E3
- D90028E3D90028E3D90028E3D90012D1C70012D0C00011B5AC0011ADA50012A4
- 9B000B89820000131000000E08000000000000000000007A7A00000000000000
- 00000000000000000000007A7A000000000012D1C70012D0C000000000000000
- 000000000000000000000000000000000000000000000B898200000000000000
- 00000000000000000000000000000000000012D1C70012D0C000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000B89820000000000000000000001280001050D0012D1C70019E3D20028E3
- D90038E3D90038E3D90038E3D90028E3D90019E3D20012D0C00011BEB50011AD
- A5000B9C93000B898200000107000001280000000000000000000F121B000105
- 0D0012D1C70019E3D20028E3D90038E3D90038E3D90038E3D90028E3D90019E3
- D20012D0C00011BEB50011ADA5000B9C93000B89820000010700001A16000000
- 00000000000000000000007A7A00007A7A00007A7A00007A7A00000000000000
- 000012D1C7000000000038E3D90028E3D90019E3D20012D0C00011BEB50011AD
- A5000B9C93000B89820000000000000000000000000000000000000000000000
- 000012D1C7000000000028E3D90038E3D90047EDE40038E3D90028E3D90019E3
- D20012D0C00011BEB50011ADA5000B9C93000B89820000000000000000000001
- 28000013100012D1C70019E3D20038E3D900000000000000000038E3D90028E3
- D90019E3D200000000000000000011ADA50012A49B000B898200000614000001
- 28000000000000000000000000000013100012D1C70019E3D20038E3D9000000
- 00000000000038E3D90028E3D90019E3D200000000000000000011ADA50012A4
- 9B000B89820000061400051A21000000000000000000007A7A00007A7A00007A
- 7A00007A7A00007A7A00007A7A000000000000000000000000000000000028E3
- D9000000000012D1C70011BEB5000000000012A49B0000000000000000000000
- 00000000000000000000000000007A00000000000000000000000000000038E3
- D90038E3D9000000000028E3D9000000000012D1C70011BEB5000000000012A4
- 9B000000000000000000000000000001280018222D000013100019E3D20028E3
- D900000000000000000038E3D90028E3D90019E3D200000000000000000011AD
- A50012A49B0001020F0018222D00000128000000000000000000000E0800335F
- A6000013100019E3D20028E3D900000000000000000038E3D90028E3D90019E3
- D200000000000000000011ADA50012A49B0001020F00335FA60001020F000000
- 000000000000007A7A00007A7A00007A7A00007A7A00007A7A00007A7A000000
- 0000000000000000000028E3D90028E3D90019E3D200000000000000000011AD
- A5000B9C930000000000000000000000000000000000000000007A000000007A
- 7A000000FF00BFBFBF007A000000000000000000000028E3D90028E3D90019E3
- D200000000000000000011ADA5000B9C93000000000000000000000000000001
- 280018222D00001A160019E3D20028E3D90028E3D90028E3D90028E3D90028E3
- D90019E3D20012D0C00011B5AC0011ADA5000B9C930000132D0018222D000001
- 2800000000000000000001122100335FA600001A160019E3D20028E3D90028E3
- D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5AC0011ADA5000B9C
- 930000132D00335FA600172240000000000000000000007A7A00007A7A00FFFF
- FF00007A7A00007A7A00007A7A000000000019E3D2000000000019E3D20019E3
- D20012D1C70011BEB50011B5AC0012A49B000000000000000000000000000000
- 0000000000007A000000BFBFBF00007A7A00007A7A00BFBFBF00BFBFBF007A00
- 000028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000000
- 00000000000000000000000000000001280018222D0018222D00000114000001
- 140000132D000112210000091A00000821000001140000061400000614000105
- 0D000112210018222D0018222D0000012800000000000000000000011400335F
- A600335FA600000114000001140000132D000112210000091A00000821000001
- 1400000614000006140001050D0001122100335FA600335FA600000114000000
- 000000000000007A7A00FFFFFF00FFFFFF00FFFFFF00FFFFFF00007A7A000000
- 00000000000012D1C70012D0C00012D0C00011BEB50011B5AC00000000000000
- 0000000000000000000000000000000000007A000000BFBFBF00BFBFBF00BFBF
- BF00BFBFBF0000007A00BFBFBF00BFBFBF007A00000012D0C00012D0C00011BE
- B50011B5AC000000000000000000000000000000000000000000000000000001
- 140018222D0018222D0018222D0018222D0018222D0018222D0018222D001822
- 2D0018222D0018222D0018222D0018222D0018222D0018222D0018222D000112
- 210000000000000000000001140000132D0025628900335FA600335FA600335F
- A600335FA600335FA600335FA600335FA600335FA600335FA600335FA600335F
- A600335FA60000082100011221000000000000000000007A7A00007A7A00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000007A00
- 00007A0000007A0000007A0000007A0000007A0000007A0000007A0000007A00
- 00007A0000007A00000000000000000000000000000000000000000000000000
- 00000000000000000000000000000001280018222D0018222D0018222D001822
- 2D0018222D0018222D0018222D0018222D0018222D0018222D0018222D001822
- 2D0018222D0018222D0018222D00000128000000000000000000000000000001
- 140000193C00335FA600335FA600335FA600335FA600335FA600335FA600335F
- A600335FA600335FA60023609E00335FA6000008210001020F00000000000000
- 0000000000000000000000000000787878007878780078787800787878000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000007A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000001
- 280018222D00000107000008210018222D0018222D0018222D0018222D001822
- 2D0018222D0018222D0018222D000003390000001C0000091A0018222D000001
- 280000000000000000000000000000000000000107000008210000082100335F
- A600335FA600335FA600335FA600335FA600335FA600335FA600000339000000
- 1C0000091A000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 7A00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000001280000012800000128001822
- 2D0000082100000339000001280018222D000003390018222D0018222D000001
- 2800000000000001280000012800000000000000000000000000000000000000
- 0000000000000000000000011400000821000003390000012800000128000003
- 3900000128000001280000012800000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000001280018222D0018222D00000128000001280018222D001822
- 2D00000128000001280018222D0018222D000001280000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000122000001
- 2800000000000000000000012800000128000001280000000000000128000001
- 2800000128000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B8982000B8982000B89
- 82000B8982000B817A0000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000FFFF0000FF
- FF00BFBFBF00000000000B8982000B8982000B817A0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B8982000B8982000B8982000B8982000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B8982000B8982000B8982000B89
- 82000B817A000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B9C
- 930012A49B0000000000000000000000000000000000000000000B8982000A7A
- 7000000000000000000000000000000000000000000000000000000000000000
- 000012D1C70012D1C7000000000000FFFF0000FFFF00BFBFBF00000000000B92
- 89000B8982000B8982000A7A7000000000000000000000000000000000000000
- 000000000000000000000000000012A49B000B9C930012A49B000B9C930012A4
- 9B000B9289000B8982000B8982000A7A70000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000012A49B000B9C
- 930012A49B000B9C930012A49B000B9289000B8982000B8982000A7A70000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012A49B0011ADA5000000000000000000FFFFFF00FFFF
- FF00FFEDD10000000000000000000B8982000A7A700000000000000000000000
- 00000000000000000000000000000000000012D1C70012D0C0000000000000FF
- FF0000FFFF0000FFFF000000000000000000000000000B9289000B817A000A7A
- 700000000000000000000000000000000000000000000000000012A49B0011AD
- A50011ADA50011ADA50011ADA50011ADA50011ADA5000B9289000B9289000B81
- 7A000A7A70000000000000000000000000000000000000000000000000000000
- 00000000000012A49B0011ADA50011ADA50011ADA50011ADA50011ADA50011AD
- A5000B9289000B9289000B817A000A7A70000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000FFEDD10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF000000
- 00000B8982000000000000000000000000000000000000000000BFBFBF000000
- 000012D1C700000000000000000000FFFF0000FFFF000000000011B5AC0011B5
- AC0012A49B00000000000B9289000B8982000000000000000000000000000000
- 0000000000000000000011B5AC0011B5AC0011BEB50011BEB50011BEB50011B5
- AC00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000011B5AC0011ADA50011ADA50011ADA5000B8982000B89
- 82000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFEDD10000000000FFEDD10000000000FFFFFF00FFFF
- FF00FFEDD10000000000FFFFFF00FFEDD100000000000B817A00000000000000
- 000000000000BFBFBF0000FFFF0000FFFF00000000000000000019E3D2000000
- 00000000000012D1C70012D0C00011BEB50011B5AC0011ADA5000B9C93000B89
- 82000B817A000000000000000000000000000000000011B5AC0011BEB50011BE
- B50012D1C70012D0C00012D1C7000000000011BEB50011B5AC0011ADA50012A4
- 9B000B8982000B817A0000000000000000000000000000000000000000000000
- 000011B5AC0011BEB50011BEB50012D1C70012D0C00012D1C7000000000011BE
- B50011B5AC0011ADA50012A49B000B8982000B817A0000000000000000000000
- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFEDD1000000
- 00000000000000000000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFED
- D100000000000B8982000000000000000000BFBFBF0000FFFF0000FFFF00FFFF
- FF000000000012D1C70019E3D200000000000000000019E3D20019E3D20012D1
- C700000000000000000012A49B000B9289000B89820000000000000000000000
- 00000000000011BEB50012D1C70019E3D20019E3D20019E3D2000000000019E3
- D20012D1C70011BEB50011B5AC0012A49B000B9289000B898200000000000000
- 00000000000000000000000000000000000011BEB50012D1C70019E3D20019E3
- D20019E3D20038E3D90019E3D2000000000011BEB50011B5AC0012A49B000B92
- 89000B89820000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFEDD1000000000012D1C70012D1C70000000000FFFF
- FF00FFEDD10000000000FFFFFF00FFEDD100000000000B89820000000000007A
- 7A0000FFFF0000FFFF00FFFFFF000000000012D0C00019E3D20000000000FFED
- D100FFEDD1000000000028E3D90000000000FFEDD100FFEDD100000000000B9C
- 93000B8982000000000000000000000000000000000012D0C00019E3D20028E3
- D90028E3D90028E3D9000000000028E3D90012D1C70012D0C00011B5AC0011AD
- A50012A49B000B89820000000000000000000000000000000000000000000000
- 000012D0C00019E3D20028E3D90028E3D90028E3D90038E3D90028E3D9000000
- 000012D0C00011B5AC0011ADA50012A49B000B89820000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000012D1C70012D0C00000000000000000000000000000000000000000000000
- 0000000000000B89820000000000007A7A00FFFFFF0000FFFF00FFFFFF000000
- 000012D1C70000000000FFEDD100FFFFFF00FFFFFF00FFEDD10000000000FFED
- D100FFFFFF00FFFFFF00FFEDD100000000000B89820000000000000000000000
- 00000000000012D1C70019E3D20028E3D90038E3D90038E3D90038E3D90028E3
- D90019E3D20012D0C00011BEB50011ADA5000B9C93000B898200000000000000
- 00000000000000000000000000000000000012D1C70019E3D20028E3D90038E3
- D90038E3D90038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C
- 93000B8982000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20019E3D20000000000000000000000000038E3D90028E3
- D90019E3D20012D0C00011BEB50011ADA5000B9C93000B89820000000000007A
- 7A00FFFFFF0000FFFF0000FFFF00FFFFFF000000000000000000FFEDD1000000
- 000000000000FFEDD10000000000FFEDD1000000000000000000FFEDD1000000
- 00000B8982000000000000000000000000000000000012D1C70019E3D20038E3
- D90028E3D90028E3D90038E3D90028E3D90019E3D200000000000000000011AD
- A50012A49B000B89820000000000000000000000000000000000000000000000
- 000012D1C70019E3D20038E3D900000000000000000038E3D90028E3D90019E3
- D20012D0C00011B5AC0011ADA50012A49B000B89820000000000000000000000
- 000000000000787878000000000000000000000000000000000019E3D2000000
- 000019E3D20019E3D2000000000028E3D9000000000012D1C70011BEB5000000
- 000012A49B00000000000000000000000000007A7A00FFFFFF0000FFFF0000FF
- FF000000000019E3D2000000000000000000000000000000000028E3D9000000
- 000000000000000000000000000012A49B000000000000000000000000000000
- 0000000000000000000019E3D20028E3D90028E3D90028E3D90038E3D90028E3
- D90019E3D200000000000000000011ADA50012A49B0000000000000000000000
- 0000000000000000000000000000000000000000000019E3D20028E3D9000000
- 00000000000038E3D90028E3D90019E3D20012D0C00011B5AC0011ADA50012A4
- 9B00000000000000000000000000000000000000000000000000787878000000
- 0000000000000000000019E3D20019E3D200000000000000000028E3D90028E3
- D90019E3D200000000000000000011ADA5000B9C930000000000000000000000
- 000000000000007A7A00007A7A00000000000000000019E3D20028E3D9000000
- 0000494A4A0028E3D90028E3D90019E3D20000000000494A4A0011ADA5000B9C
- 930000000000000000000000000000000000000000000000000019E3D20028E3
- D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5AC0011AD
- A5000B9C93000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3
- D20012D0C00011B5AC0011ADA5000B9C93000000000000000000000000000000
- 00000000000000000000787878000000000000000000000000000000000019E3
- D20019E3D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A4
- 9B00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000019E3D20019E3D20028E3D90019E3D20019E3D20012D1
- C70011BEB50011B5AC0012A49B00000000000000000000000000000000000000
- 000000000000000000000000000019E3D20019E3D20028E3D90019E3D20019E3
- D20012D1C70011BEB50011B5AC0012A49B000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000019E3D20019E3
- D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000000
- 0000000000000000000000000000000000000000000000000000787878000000
- 0000787878000000000000000000000000000000000012D1C70012D0C00012D0
- C00011BEB50011B5AC0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000012D1C70012D0C00012D0C00011BEB50011B5AC0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000012D1C70012D0C00012D0C00011BEB50011B5AC00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012D1C70012D0C00012D0C00011BE
- B50011B5AC000000000000000000000000000000000000000000000000000000
- 0000000000007878780000000000000000007878780000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000078787800000000007878
- 7800000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000007878780000000000787878000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000007878780000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000078787800000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B89
- 82000B8982000B8982000B8982000B817A000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000088C8400088C8400088C8400088C840008847B000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B89
- 82000B8982000B8982000B8982000B817A000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B8982000B89
- 82000B8982000B8982000B817A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B9C930012A49B00000000000000000000000000000000000000
- 00000B8982000A7A700000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000010A59C00089C940010A59C00089C
- 940010A59C0008948C00088C8400088C84000A7A700000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B9C930012A49B000B9C930012A49B000B9C93000B9289000B89
- 82000B8982000A7A700000000000000000000000000000000000000000000000
- 000012A49B000B9C930012A49B000B9C930012A49B000B9289000B8982000B89
- 82000A7A70000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012A49B0011ADA500000000000000
- 0000FFFFFF00FFFFFF00FFEDD10000000000000000000B8982000A7A70000000
- 00000000000000000000000000000000000000000000000000000000000010A5
- 9C0011ADA50011ADA50011ADA50011ADA50011ADA50011ADA50008948C000894
- 8C0008847B000A7A700000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B9C930011ADA50012A49B000000
- 0000000000000000000000000000000000000B9289000B817A000A7A70000000
- 000000000000000000000000000012A49B0011ADA50011ADA500000000000000
- 00000000000000000000000000000B9289000B817A000A7A7000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000011B5AC0000000000FFEDD10000000000FFFFFF00FFFFFF00FFEDD1000000
- 0000FFFFFF00000000000B898200000000000000000000000000000000000000
- 000000000000000000000000000011BEB50011B5AC0000000000000000000000
- 000000000000000000000000000000000000088C8400088C8400000000000000
- 000000000000000000000000000012D1C70012D1C70000000000BFBFBF00BFBF
- BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF0011AD
- A500000000000B9289000B8982000000000000000000000000000000000011B5
- AC0011B5AC000000000011BEB50011BEB50011B5AC0011B5AC0011ADA5000000
- 00000B9289000B89820000000000000000000000000000000000000000000000
- 000000000000000000000000000011B5AC0000000000FFFFFF00FFEDD1000000
- 0000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000B81
- 7A0000000000000000000000000000000000000000000000000011B5AC0011BE
- B50011BEB50010D6C60010D6C60012D1C70012D0C00011BEB50011B5AC0011AD
- A50010A59C00088C840008847B000000000000000000000000000000000012D1
- C70012D0C0000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000011B5AC0011ADA5000B9C93000B8982000B81
- 7A00000000000000000011B5AC0011BEB5000000000012D1C70012D0C00012D1
- C70012D0C00011BEB50011B5AC0011ADA500000000000B8982000B817A000000
- 00000000000000000000000000000000000000000000000000000000000011BE
- B50000000000FFFFFF00FFEDD10000000000FFFFFF00FFFFFF00FFEDD1000000
- 0000FFFFFF00FFEDD100000000000B8982000000000000000000000000000000
- 0000000000000000000011BEB50010D6C60019E3D20019E3D20019E3D20019E3
- D20019E3D20012D1C70011BEB50011B5AC0010A59C0008948C00088C84000000
- 000000000000000000000000000012D1C7000000000000000000000000000000
- 00000000000000000000FFFFFF00FFFFFF0000000000000000000000000011BE
- B50011B5AC0012A49B000B9289000B898200000000000000000011BEB50012D1
- C70019E3D20019E3D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5
- AC0012A49B000B9289000B898200000000000000000000000000000000000000
- 00000000000019E3D20019E3D2000000000000000000FFFFFF00FFEDD1000000
- 0000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000000
- 000019E3D20019E3D2000000000000000000000000000000000010D6C60019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90010D6C60012D0C00011B5
- AC0011ADA50010A59C00088C84000000000000000000000000000000000012D1
- C7000000000000000000000000000000000000000000FFFFFF00FF000000FF00
- 0000FFFFFF00000000000000000012D0C00011B5AC0011ADA50012A49B000B89
- 8200000000000000000012D0C00019E3D20028E3D90028E3D90028E3D90028E3
- D90028E3D90012D1C70012D0C00011B5AC0011ADA50012A49B000B8982000000
- 0000000000000000000000000000000000000000000019E3D20019E3D2000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D200000000000000
- 0000000000000000000010D6C60019E3D20028E3D90038E3D90038E3D90047ED
- E40028E3D90038E3D90010D6C60011BEB50011ADA500089C9400088C84000000
- 000000000000000000000000000000000000FFFF000000000000000000000000
- 0000FFFFFF007878780078787800FF000000FF000000FFFFFF000000000012D1
- C70011BEB50011ADA5000B9C93000B898200000000000000000012D1C70019E3
- D20028E3D90038E3D90038E3D90038E3D90028E3D90019E3D20012D0C00011BE
- B50011ADA50012A49B000B898200000000000000000000000000000000000000
- 00000000000019E3D2000000000012D1C70019E3D20028E3D90038E3D90047ED
- E40038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B89
- 82000000000019E3D200000000000000000038E3D90038E3D9000001070019E3
- D20038E3D900000000000000000038E3D90028E3D90019E3D200000107000000
- 000011ADA50010A59C00088C8400000000000000000000000000000000000000
- 0000FFFF0000000000000000000000000000FFFFFF0078787800787878007878
- 7800FF000000FFFFFF0000000000000000000000000011ADA50012A49B000B89
- 8200000000000000000012D1C70019E3D20038E3D900000000000000000038E3
- D90028E3D90019E3D200000000000000000011ADA5000B9C93000B8982000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000019E3D2000000000038E3D90038E3D9000000000028E3D9000000000012D1
- C70011BEB5000000000012A49B00000000000000000000000000000000000000
- 000038E3D90038E3D90038E3D9000000000028E3D900000000000000000038E3
- D90028E3D90019E3D2002C2C2D002C2C2D002C2C2D002C2C2D002C2C2D002C2C
- 2D002C2C2D002C2C2D0000000000000000000000000000000000000000000000
- 000000000000FFFFFF007878780078787800FFFFFF00000000000000000012D1
- C70011BEB50011ADA50012A49B000000000000000000000000000000000019E3
- D20028E3D900000000000000000038E3D90028E3D90019E3D200000000000000
- 000011ADA50012A49B0000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D900000000000000
- 000028E3D90028E3D90019E3D200000000000000000011ADA5000B9C93000000
- 0000000000000000000000000000000000000000000000000000000000002C2C
- 2D002C2C2D002C2C2D002C2C2D002C2C2D002C2C2D002C2C2D002C2C2D002C2C
- 2D0011305A0011305A0011305A0011305A002C2C2D0000000000000000000000
- 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
- FF0000000000000000000000000012D0C00011B5AC0011ADA5000B9C93000000
- 000000000000000000000000000019E3D20028E3D90028E3D90028E3D90028E3
- D90028E3D90019E3D20012D0C00011B5AC0011ADA5000B9C9300000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20019E3D20028E3D90019E3D20019E3D20012D1C70011BE
- B50011B5AC0012A49B0000000000000000000000000000000000000000000000
- 00002C2C2D002C2C2D002C2C2D000B6947000B6947000B6947000B6947000B69
- 47000B6947001C9153001C9153001C9153001C9153001C91530011305A001130
- 5A002C2C2D000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000FFFF000000000000FFFF0011BE
- B50011B5AC0012A49B0000000000000000000000000000000000000000000000
- 000019E3D20019E3D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5
- AC0012A49B000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012D1
- C70012D0C00012D0C00011BEB50011B5AC000000000000000000000000000000
- 000000000000000000000000000000000000000000002C2C2D001C9153001C91
- 53001C9153001C9153000B6947000B6947000B6947000B6947000B6947001C91
- 53001C9153000B69470011305A0011305A002C2C2D0000000000000000000000
- 0000BFBFBF00BFBFBF007878780078787800BFBFBF00BFBFBF00BFBFBF0000FF
- FF0000FFFF0000FFFF0000FFFF0011B5AC000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000012D1C70012D0
- C00012D0C00011BEB50011B5AC00000000000000000000000000787878003636
- 3600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000002C2C2D001C9153001C91530011305A0011305A001130
- 5A0011305A000B6947000B6947000B6947000B6947000B6947000B6947002C2C
- 2D000000000000000000000000000000000000FFFF0000FFFF00787878007878
- 780000000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000007A
- 7A00000000000000000078787800363636000000000000000000007A7A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000002C2C
- 2D0011305A0011305A0011305A0011305A000B6947000B6947001C9153001130
- 5A0011305A000B6947002C2C2D00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000007A7A0000FFFF00FFFF
- FF00007A7A000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000002C2C2D002C2C2D0011305A000B69
- 47000B6947000B6947001C91530011305A002C2C2D002C2C2D00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000007A7A000000
- 0000007A7A0000FFFF00FFFFFF00FFFFFF00FFFFFF00007A7A0000000000007A
- 7A00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000002C2C2D002C2C2D002C2C2D002C2C2D002C2C2D002C2C
- 2D00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000007A7A0000FFFF00FFFF
- FF00007A7A000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000007A
- 7A000000000000000000007A7A00007A7A000000000000000000007A7A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B8982000B8982000B89
- 82000B8982000B817A0000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000B8982000B8982000B8982000B8982000B817A0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B8982000B8982000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B8982000B8982000B8982000B89
- 82000B817A000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B000B9C930012A49B000B9C930012A49B000B9289000B8982000B8982000A7A
- 7000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012A49B000B9C930012A49B000B9C930012A49B000B92
- 89000B8982000B8982000A7A7000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B9C930012A49B000B9C
- 930012A49B000B9289000B8982000B8982000A7A700000000000000000000000
- 000000000000000000000000000000000000000000000000000012A49B000B9C
- 930012A49B000000B9000000B9000000B9000B8982000B8982000A7A70000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012A49B0011ADA50011ADA50000000000000000000000
- 000000000000000000000B9289000B817A000A7A700000000000000000000000
- 0000000000000000000000000000000000000000000012A49B0011ADA50011AD
- A50011ADA50011ADA50011ADA50012A49B0012A49B000B8982000B8982000A7A
- 7000000000000000000000000000000000000000000019E3D20019E3D20019E3
- D20019E3D2000000000000000000000000000000000000000000000000000B92
- 89000B817A000A7A700000000000000000000000000000000000000000000000
- 00000000000012A49B0011ADA50011ADA5000000B9000000B9000000B9000000
- B9000000B9000B9289000B817A000A7A70000000000000000000000000000000
- 00000000000000000000000000000000000011BEB500000000000000000011B5
- AC000000000011BEB50011BEB50011B5AC0011B5AC0011ADA500000000000B92
- 89000B89820000000000000000000000000000000000000000000000000011BE
- B500000000000000000011B5AC000000000011BEB50011BEB50011B5AC0011B5
- AC0012A49B00000000000B9289000B8982000000000000000000000000000000
- 00000000000019E3D20019E3D20019E3D2000000000011BEB50011BEB50011BE
- B50011B5AC0011B5AC0011ADA500000000000B9289000B898200000000000000
- 0000000000000000000000000000000000000000000011B5AC0011B5AC000000
- B9000000B9000000000000000000000000000000B9000000B9000B9289000B89
- 8200000000000000000000000000000000000000000000000000000000000000
- 000011BEB50011BEB500000000000000000012D1C70012D0C00012D1C70012D0
- C00011BEB50011B5AC0011ADA500000000000B8982000B817A00000000000000
- 000000000000000000000000000011BEB50011BEB5000000000012D0C00012D1
- C700000000000000000000000000000000000000000011ADA5000B9C93000B89
- 82000B817A000000000000000000000000000000000000000000000000000000
- 000012D0C00012D1C70012D0C00012D1C70012D0C00011BEB50011B5AC0011AD
- A5000B9C93000B8982000B817A00000000000000000000000000000000000000
- 000011B5AC0011BEB50011BEB50012D1C7000000B9000000B90012D0C0000000
- B9000000B90011ADA5000B9289000B8982000B817A0000000000000000000000
- 000000000000007A0000007A00000000000011BEB50011BEB5000000000019E3
- D20019E3D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A4
- 9B000B9289000B8982000000000000000000007A0000007A00000000000011BE
- B50011BEB5000000000019E3D20019E3D20019E3D20019E3D20019E3D20012D1
- C70011BEB50011B5AC0012A49B000B9289000B89820000000000000000000000
- 0000000000000000000011BEB50012D1C70019E3D200000000000000000019E3
- D20019E3D20012D1C700000000000000000012A49B000B9289000B8982000000
- 00000000000000000000000000000000000011BEB50012D1C70019E3D20019E3
- D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000B92
- 89000B89820000000000000000000000000000000000007A0000007A00000000
- 000011BEB50000000000007A0000007A000028E3D90028E3D90028E3D90028E3
- D90012D1C70012D0C00011B5AC0011ADA50012A49B000B898200000000000000
- 0000007A0000007A00000000000011BEB50000000000007A0000007A000028E3
- D90028E3D90028E3D90028E3D90012D1C70012D0C00011B5AC0011ADA50012A4
- 9B000B898200000000000000000000000000000000000000000012D0C00019E3
- D2000000000000000000FFEDD1000000000028E3D9000000000000000000FFED
- D100000000000B9C93000B898200000000000000000000000000000000000000
- 000012D0C00019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90012D1
- C70012D0C00011B5AC0011ADA50012A49B000B89820000000000000000000000
- 0000007A0000007A000000000000000000000000000000000000007A0000007A
- 000038E3D90038E3D90038E3D90028E3D90019E3D20012D0C00011BEB50011AD
- A5000B9C93000B89820000000000007A0000007A000000000000000000000000
- 000000000000007A0000007A0000000000000000000038E3D90028E3D90028E3
- D900000000000000000011ADA50012A49B000B89820000000000000000000000
- 0000000000000000000012D1C700000000000000000000000000FFFFFF00FFED
- D100000000000000000000000000FFFFFF00FFEDD100000000000B8982000000
- 00000000000000000000000000000000000012D1C70019E3D20028E3D90038E3
- D90038E3D90038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C
- 93000B8982000000000000000000000000000000000000000000000000000000
- 00007A7A00000000000019E3D200007A0000007A00000000000038E3D90028E3
- D90019E3D200000000000000000011ADA50012A49B000B898200000000000000
- 00000000000000000000000000007A7A00000000000019E3D200007A0000007A
- 00000000000038E3D90028E3D90019E3D200000000000000000011ADA5000B9C
- 93000B898200000000000000000000000000000000000000000012D1C7000000
- 0000FFEDD100FFFFFF00FFFFFF00FFEDD10000000000FFEDD100FFFFFF00FFFF
- FF00FFEDD100000000000B898200000000000000000000000000000000000000
- 000012D1C70019E3D2000000000038E3D90038E3D9000000000028E3D9000000
- 000028E3D90011BEB5000000000012A49B000B89820000000000000000000000
- 000000000000000000000000000000007A007A7A000000007A0019E3D20028E3
- D900000000000000000038E3D90028E3D90019E3D200000000000000000011AD
- A50012A49B00000000000000000000000000000000000000000000007A007A7A
- 000000007A0019E3D2000000000038E3D90038E3D90038E3D90028E3D90019E3
- D20012D0C00011BEB5000000000012A49B000000000000000000000000000000
- 000000000000000000000000000019E3D20000000000FFEDD100FFEDD1000000
- 000028E3D90000000000FFEDD100FFEDD1000000000012A49B00000000000000
- 0000000000000000000000000000000000000000000019E3D20028E3D9000000
- 00000000000038E3D90028E3D90019E3D200000000000000000011ADA50012A4
- 9B000000000000000000000000000000000000000000000000000000FF000000
- FF000000FF000000FF000000FF0028E3D90028E3D90028E3D90028E3D90028E3
- D90019E3D20012D0C00011B5AC0011ADA5000B9C930000000000000000000000
- 0000000000000000FF000000FF000000FF000000FF000000FF0028E3D9000000
- 000028E3D90028E3D90028E3D90019E3D20012D0C0000000000011ADA5000B9C
- 93000000000000000000000000000000000000000000000000000000000019E3
- D20028E3D900000000000000000028E3D90028E3D90019E3D200000000000000
- 000011ADA5000B9C930000000000000000000000000000000000000000000000
- 00000000000019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3
- D20012D0C00011B5AC0011ADA5000B9C93000000000000000000000000000000
- 0000000000000000000000007A000000FF000000FF000000FF0000007A0019E3
- D20019E3D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A4
- 9B00000000000000000000000000000000000000000000007A000000FF000000
- FF000000FF0000007A0019E3D20019E3D2000000000028E3D90019E3D20012D1
- C7000000000011B5AC0012A49B00000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D20028E3D90019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B0000000000000000000000
- 000000000000000000000000000000000000000000000000000019E3D20019E3
- D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000000
- 0000000000000000000000000000000000000000000000007A000000FF000000
- FF000000FF000000FF000000FF0000007A000000000012D1C70012D0C00012D0
- C00011BEB50011B5AC0000000000000000000000000000000000000000000000
- 000000007A000000FF000000FF000000FF000000FF000000FF0000007A000000
- 000012D1C70012D0C00012D0C00011BEB50011B5AC0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D0C00012D0C00011BEB50011B5AC000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012D1C70012D0C00012D0C00011BE
- B50011B5AC000000000000000000000000000000000000000000000000000000
- 00000000000000007A000000FF000000FF000000FF000000FF000000FF000000
- 7A00000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000007A000000FF000000FF000000
- FF000000FF000000FF0000007A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000FF000000
- FF000000FF000000FF000000FF00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000088C
- 8400088C8400088C8400088C840008847B000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B8982000B8982000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B89
- 82000B8982000B8982000B8982000B817A000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B8982000B89
- 82000B8982000B8982000B817A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000010A59C00089C940010A59C00089C940010A59C0008948C00088C
- 8400088C84000A7A700000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012A49B000B9C930012A49B000B9C
- 930012A49B000B9289000B8982000B8982000A7A700000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B9C930012A49B00000000000000000000000000000000000000
- 00000B8982000A7A700000000000000000000000000000000000000000000000
- 000012A49B000B9C930012A49B000B9C930012A49B000B9289000B8982000B89
- 82000A7A70000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000010A59C0011ADA50011ADA5000000
- 00000000000000000000000000000000000008948C0008847B000A7A70000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B0011ADA50000000000000000000B9C930012A49B0012A49B00000000000000
- 00000B8982000A7A700000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012A49B0011ADA500000000000000
- 0000FFFFFF00FFFFFF00FFEDD10000000000000000000B8982000A7A70000000
- 000000000000000000000000000012A49B0011ADA50011ADA500000000000000
- 00000000000000000000000000000B9289000B8982000A7A7000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000011B5AC0011B5AC0011BEB50011BEB50011BEB50011B5AC0011B5AC0011AD
- A50011ADA50008948C00088C8400000000000000000000000000000000000000
- 000000000000000000000000000011B5AC000000000011B5AC0011BEB5000000
- 000011B5AC000000000011ADA50011ADA500000000000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000011B5AC0000000000FFEDD10000000000FFFFFF00FFFFFF00FFEDD1000000
- 0000FFFFFF00000000000B8982000000000000000000000000000000000011B5
- AC0011B5AC000000000011BEB50011BEB50011B5AC0011B5AC0011ADA5000000
- 00000B9289000B817A0000000000000000000000000000000000000000000000
- 000000000000000000000000000011B5AC0011BEB50010D6C60010D6C60010D6
- C60010D6C60010D6C60011BEB50011B5AC0011ADA500089C9400088C84000884
- 7B0000000000000000000000000000000000000000000000000011B5AC0011BE
- B50012D0C00012D1C70012D0C00012D1C70012D0C00011BEB50011B5AC0011AD
- A5000B9C93000B8982000B817A00000000000000000000000000000000000000
- 000000000000000000000000000011B5AC0000000000FFFFFF00FFEDD1000000
- 0000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000B81
- 7A00000000000000000011B5AC0011BEB50012D0C00012D1C70012D0C00012D1
- C70012D0C00011BEB50011B5AC0011ADA5000B9C93000B8982000B817A000000
- 00000000000000000000000000000000000000000000000000000000000011BE
- B50010D6C60019E3D20028E3D90028E3D90019E3D20019E3D20010D6C60011B5
- AC0011B5AC0010A59C0008948C00088C84000000000000000000000000000000
- 0000000000000000000011BEB500000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B8982000000
- 0000000000000000000000000000000000000000000012D1C70012D1C7000000
- 000000000000000000000000000000000000FFFFFF00FFFFFF00FFEDD1000000
- 0000FFFFFF00FFEDD100000000000B898200000000000000000011BEB50012D1
- C70019E3D20019E3D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5
- AC0012A49B000B9289000B898200000000000000000000000000000000000000
- 000000000000000000000000000010D6C60019E3D20028E3D90028E3D9000000
- 00000000000028E3D90028E3D90010D6C60011BEB5000000000000000000088C
- 840000000000000000000000000000000000000000000000000012D0C0000000
- 0000FFFFFF00FFEDD10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFF
- FF00FFEDD100000000000B89820000000000000000000000000000000000FFFF
- FF000000000012D1C70012D1C7000000000090FFFF008EC5C500000000000000
- 0000FFFFFF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000B89
- 8200000000000000000012D0C00019E3D20028E3D90028E3D90028E3D90028E3
- D90028E3D90012D1C70012D0C00011B5AC0011ADA50012A49B000B8982000000
- 00000000000000000000000000000000000000000000000000000000000010D6
- C600000000000001070000010700000107000001070028E3D900000107000000
- 0000000000000000000000000000088C84000000000000000000000000000000
- 0000000000000000000012D1C70000000000FFFFFF00FFEDD10000000000FFFF
- FF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000B8982000000
- 0000000000000000000000000000FFFFFF00905B2A000000000000000000FFFF
- FF00FFFFFF008EC5C50000000000000000000000000000000000000000000000
- 00000000000000000000000000000B898200000000000000000012D1C70019E3
- D20028E3D90038E3D90038E3D90038E3D90028E3D90019E3D20012D0C00011BE
- B50011ADA5000B9C93000B898200000000000000000000000000000000000000
- 000000000000000000000000000010D6C60028E3D90028E3D90028E3D90028E3
- D90028E3D90028E3D90028E3D90010D6C60011BEB50010A59C0010A59C00088C
- 840000000000000000000000000000000000000000000000000012D1C7000000
- 0000FFFFFF00FFEDD10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFF
- FF00FFEDD100000000000B89820000000000000000000000000000000000FFFF
- FF00905B2A00FFFFFF00FFFFFF00FFFFFF0090FFFF008EC5C5000000000047ED
- E40038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B89
- 8200000000000000000012D1C70019E3D20038E3D900000000000000000038E3
- D90028E3D90019E3D200000000000000000011ADA50012A49B000B8982000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000028E3D90028E3D90028E3D90028E3D90028E3D90028E3D90028E3D90010D6
- C60011BEB50010A59C0010A59C00000000000000000000000000000000000000
- 000000000000000000000000000019E3D20000000000FFEDD10000000000FFFF
- FF00FFFFFF00FFEDD10000000000FFFFFF000000000012A49B00000000000000
- 0000000000000000000000000000FFFFFF00BFBFBF00FFFFFF00905B2A0090FF
- FF00905B2A008EC5C5000000000038E3D9000000000028E3D9000000000012D1
- C70011BEB5000000000012A49B000000000000000000000000000000000019E3
- D20028E3D900000000000000000038E3D90028E3D90019E3D200000000000000
- 000011ADA50012A49B0000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D90028E3D90028E3
- D90028E3D90028E3D90019E3D20010D6C60011BEB50011ADA500089C94000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D20028E3D9000000000000000000FFFFFF00FFFFFF00FFEDD100000000000000
- 000011ADA5000B9C93000000000000000000000000000000000000000000FFFF
- FF00FFFFFF00FFFFFF00905B2A00FFFFFF00905B2A008EC5C500000000000000
- 000028E3D90028E3D90019E3D200000000000000000011ADA5000B9C93000000
- 000000000000000000000000000019E3D20028E3D90028E3D90028E3D90028E3
- D90028E3D90019E3D20012D0C00011B5AC0011ADA5000B9C9300000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20019E3D20028E3D90019E3D20019E3D20010D6C60011BE
- B50011B5AC0010A59C0000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D200000000000000
- 000000000000000000000000000011B5AC0012A49B0000000000000000000000
- 0000000000000000000000000000FFFFFF00FFFFFF0090FFFF00905B2A0090FF
- FF00905B2A008EC5C5000000000028E3D90019E3D20019E3D20012D1C70011BE
- B50011B5AC0012A49B0000000000000000000000000000000000000000000000
- 000019E3D20019E3D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5
- AC0012A49B000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000010D6
- C60010D6C60010D6C60011BEB50011B5AC000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D0C00012D0C00011BEB50011B5AC000000
- 000000000000000000000000000000000000000000000000000000000000FFFF
- FF00FFFFFF00FFFFFF00905B2A00FFFFFF00905B2A008EC5C5000000000012D1
- C70012D0C00012D0C00011BEB50011B5AC000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000012D1C70012D0
- C00012D0C00011BEB50011B5AC00000000000000000000000000000000006C6C
- 6C000B0B0B002C2C2D00ADC0B600000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000FFFFFF00FFFFFF0090FFFF00905B2A0090FF
- FF00905B2A008EC5C50000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000058585800000000001C1A1D00A5A5A5000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000FFFF
- FF004545FF002A2A900090FFFF00FFFFFF0090FFFF008EC5C500000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000BFBFBF00A5A5A500000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000090FFFF002A2A90002A2A9000FFFFFF0090FF
- FF00FFFFFF008EC5C50000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BFBFBF00A5A5A5000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000008EC5
- C5008EC5C5008EC5C5008EC5C5008EC5C5008EC5C5008EC5C500000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000BFBFBF006C6C6C00494A4A000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000BFBFBF002C2C2D00BFBF
- BF003F4F4F002F3F3F009CADAD002F4747008AB6B60000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000939C9C00ADC0B6009CADAD0093A5
- AD0093B6B600000000000000000000000000000000000B8982000B8982000B89
- 82000B8982000B817A0000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000707A7A00707A7A00707A7A00707A
- 7A00707A7A00707A7A00707A7A00707A7A000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B8982000B8982000B8982000B8982000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B8982000B8982000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00002838380028383800283838002F47470082A5AD00000000000000000012A4
- 9B000B9C930012A49B000B9C930012A49B000B9289000B8982000B8982000A7A
- 7000000000000000000000000000000000000000000000000000000000000000
- 0000707A7A00707A7A00707A7A00707A7A00707A7A00707A7A00707A7A00707A
- 7A00000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012A49B000B9C930012A49B000B9C930012A4
- 9B000B9289000B8982000B8982000A7A70000000000000000000000000000000
- 00000000000000000000000000000000000012A49B000B9C930012A49B000B9C
- 930012A49B000B9289000B8982000B8982000A7A700000000000000000000000
- 0000000000000000000000000000000000003F5858003F584F00213B39002F58
- 580069ADB2000000000012A49B0011ADA50011ADA50011ADA50011ADA50011AD
- A50012A49B0012A49B000B8982000B8982000A7A700000000000000000000000
- 0000000000000000000000000000707A7A00707A7A00707A7A00707A7A00707A
- 7A00707A7A00707A7A00707A7A00707A7A00707A7A0000000000000000000000
- 000000000000000000000000000000000000000000000000000012A49B0011AD
- A50011ADA50011ADA5000000930000009300000093000B9C93000B9289000B81
- 7A000A7A700000000000000000000000000000000000000000000000000012A4
- 9B0011ADA50011ADA50000000000000000000000000000000000000000000B92
- 89000B8982000A7A700000000000000000000000000000000000000000000000
- 00008A9C9C008CADA50093ADAD00709E9E0069ADB20000000000000000000000
- 00000000000011BEB50011BEB50011B5AC0011B5AC0012A49B0012A49B000B89
- 82000B898200000000000000000000000000000000000000000000000000707A
- 7A00707A7A0000000000707A7A00707A7A00707A7A00707A7A0000000000707A
- 7A00707A7A000000000000000000000000000000000000000000000000000000
- 0000000000000000000011B5AC0011B5AC0011BEB5000000930000009C000000
- B90000009C00000093000B9C93000B9289000B89820000000000000000000000
- 000000000000000000000000000011B5AC0011B5AC000000000011BEB50011BE
- B50011B5AC0011B5AC0011ADA500000000000B9289000B817A00000000000000
- 0000000000000000000000000000000000003B4F47002A473F008AADAD001E47
- 49008AC0D1000000000011BEB50012D0C00012D1C700000000000000000012D0
- C00011BEB50011B5AC0011ADA5000B9C93000B8982000B817A00000000000000
- 00000000000000000000000000000000000000000000707A7A00707A7A00707A
- 7A00707A7A00707A7A00707A7A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000011B5AC0011BEB5000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000B8982000B817A000000000000000000000000000000000011B5AC0011BE
- B50012D0C00012D1C70012D0C00012D1C70012D0C00011BEB50011B5AC0011AD
- A5000B9C93000B8982000B817A00000000000000000000000000000000000000
- 0000384F4F002A473F008AADAD001E4749007AA5B6000000000012D1C70019E3
- D20019E3D20019E3D20019E3D20019E3D20012D0C00011BEB50011B5AC0012A4
- 9B000B9289000B8982000000000000000000000000000000000000000000FFFF
- FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF
- FF00FFFFFF000000000000000000000000000000000000000000000000000000
- 00000000000011BEB5000000000019E3D20019E3D20019E3D20028E3D90012D1
- C70012D1C70011BEB50011B5AC0012A49B00000000000B898200000000000000
- 0000000000000000000011BEB50012D1C70019E3D20019E3D20019E3D20019E3
- D20012D1C70012D1C70011BEB50011B5AC0012A49B000B9289000B8982000000
- 0000000000000000000000000000000000007A9393008CADA5009CC0C000709E
- 9E006EADC6000000000019E3D20028E3D90028E3D90028E3D90028E3D90019E3
- D20019E3D20012D0C00011B5AC0011ADA50012A49B000B898200000000000000
- 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
- 0000000000000000000000000000000000000000000012D0C00019E3D20028E3
- D90028E3D90028E3D90028E3D90019E3D20019E3D20012D0C00011B5AC0011AD
- A50012A49B000B8982000000000000000000000000000000000012D0C00019E3
- D20028E3D90028E3D90028E3D90028E3D90019E3D20019E3D20012D0C00011B5
- AC0011ADA50012A49B000B898200000000000000000000000000000000000000
- 0000283F3F002F4F4F001A3F38001E47490069ADB2000000000028E3D90028E3
- D90038E3D90038E3D90038E3D90038E3D90019E3D20012D0C00011BEB50011AD
- A50012A49B000B89820000000000000000000000000000000000000000000000
- 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00000000000000000000000000000000000000000000000000000000000000
- 00000000000012D1C70019E3D20038E3D90038E3D90038E3D90038E3D90038E3
- D90019E3D20012D0C00011BEB50011ADA50012A49B000B898200000000000000
- 0000000000000000000012D1C70028E3D90028E3D90038E3D90038E3D90038E3
- D90038E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B8982000000
- 000000000000000000000000000000000000213B3900284747001A3F3F001E47
- 490069ADB2000000000019E3D200000000000000000047EDE40038E3D90028E3
- D90019E3D20012D1C70011BEB50011ADA5000B9C93000B898200000000000000
- 000000000000000000006070680060706800FFFFFF00FFFFFF0068606000AEAE
- AE00AEAEAE0068606000FFFFFF00FFFFFF006070680060706800000000000000
- 0000000000000000000000000000000000000000000012D1C70019E3D20028E3
- D900000000000000000038E3D90028E3D90019E3D200000000000000000011AD
- A5000B9C93000B8982000000000000000000000000000000000012D1C70019E3
- D20028E3D900000000000000000038E3D90028E3D90019E3D200000000000000
- 000011ADA50012A49B000B898200000000000000000000000000000000000000
- 000093B6B6008AADAD0082B2B20082B2B20069ADB2000000000019E3D20028E3
- D900000000000000000038E3D90028E3D90019E3D20012D0C00011BEB50011AD
- A50012A49B000000000000000000000000000000000000000000607068000000
- 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
- 0000000000006070680000000000000000000000000000000000000000000000
- 0000000000000000000019E3D20028E3D900000000000000000038E3D90028E3
- D90019E3D200000000000000000011ADA50012A49B0000000000000000000000
- 000000000000000000000000000019E3D20028E3D90038E3D90038E3D90038E3
- D90028E3D90019E3D20012D0C00011BEB50011ADA50012A49B00000000000000
- 000000000000000000000000000000000000213B39001A3F38008AADAD00123A
- 3C008EC5C5000000000019E3D20028E3D90028E3D90028E3D90028E3D90028E3
- D90019E3D20012D0C00011B5AC0011ADA5000B9C930000000000000000000000
- 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000019E3D20028E3
- D90028E3D90028E3D90028E3D90028E3D90028E3D90012D1C70011BEB50011AD
- A5000B9C930000000000000000000000000000000000000000000000000019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5
- AC0011ADA5000B9C930000000000000000000000000000000000000000000000
- 00002A473F002F4F47008CADA5001A3F3F00709E9E00000000000000000019E3
- D20019E3D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A4
- 9B00000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000019E3D20019E3D20028E3D90019E3D20019E3
- D20012D1C70011BEB50011B5AC0012A49B000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D20028E3D90019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B0000000000000000000000
- 00000000000000000000000000000000000093A5A5008A9C9C008CADA5009CB6
- B60093A5AD000000000000000000000000000000000012D1C70012D0C00012D0
- C00011BEB50011B5AC0000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000FFFF
- FF00FFFFFF000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000004A6881000000
- 00000000000012D1C70012D0C00012D0C00011BEB50011B5AC00000000000000
- 00004A6881000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D0C00012D0C00011BEB50011B5AC000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000494A4A00384747002F3F3F003B4F4700A5B6B60000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000004A6881000000000000000000000000000000
- 00000000000000000000000000004A6881000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B21
- 8A000B218A000B218A000B2182000B2182000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000F6F6F6000B817A000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B8982000B8982000B8982000B89
- 82000B817A000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B89
- 82000B8982000B8982000B8982000B817A000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000001228A5000B289C00000000000000000000000000000000000000
- 00000B2182000B21820000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B9C93009CD1D100F6F6F6009CD1
- D1000B9289000B9C93000B8982000B8982000A7A700000000000000000000000
- 000000000000000000000000000000000000000000000000000012A49B000B9C
- 930012A49B000B9C930012A49B000B9289000B8982000B8982000A7A70000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000012A49B000B9C930012A49B000B9C930012A49B000B9289000B89
- 82000B8982000A7A700000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000001228A5001228AD0000000000F6F6
- F600F6F6F600FFFFFF00F6F6F600F6F6F600000000000B2182000B217A000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B009CD1D100D1D1E400F6F6F600D1D1E4009CD1D10000000000000000000B92
- 89000B817A000A7A700000000000000000000000000000000000000000000000
- 00000000000012A49B0011ADA50011ADA5000000000000000000000000000000
- 0000000000000B9289000B817A000A7A70000000000000000000000000000000
- 00000000000000000000000000000000000012A49B0011ADA50011ADA50011AD
- A50011ADA50011ADA50012A49B0012A49B000B8982000B8982000A7A70000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000122FB60000000000D1D1D100D1D1D100F6F6F600F6F6F600F6F6F600D1D1
- D100D1D1D100000000000B218200000000000000000000000000000000000000
- 0000000000000000000000000000F6F6F600F6F6F600F6F6F600F6F6F600F6F6
- F600F6F6F600F6F6F600F6F6F600000000000B9289000B898200000000000000
- 0000000000000000000000000000000000000000000011B5AC0011B5AC000000
- 000011BEB50011BEB50011B5AC0011B5AC0011ADA500000000000B9289000B89
- 8200000000000000000000000000000000000000000000000000000000000000
- 000011B5AC0011B5AC000000000011BEB50011BEB50011B5AC0011B5AC0012A4
- 9B00000000000B9289000B817A00000000000000000000000000000000000000
- 0000000000000000000000000000122FC00000000000AEAEAE00000000000000
- 00000000000000000000000000000000000000000000AEAEAE00000000000B21
- 820000000000000000000000000000000000000000000000000011B5AC0011BE
- B5009CD1D100D1D1E400F6F6F600D1D1E4009CD1D10000000000000000000000
- 0000000000000B8982000B817A00000000000000000000000000000000000000
- 000011B5AC0011BEB5000000000012D1C70012D0C00012D1C70012D0C00011BE
- B50011B5AC0011ADA500000000000B8982000B817A0000000000000000000000
- 000000000000000000000000000011B5AC0011BEB50012D0C00012D1C7000000
- 00000000000000000000000000000000000011ADA5000B9C93000B8982000B81
- 7A00000000000000000000000000000000000000000000000000000000000000
- 000000000000000000001D3DE4001D3DE4001D3DE4001238D1001238D100122F
- C000122FB6000000000000000000000000000000000000000000000000000000
- 0000000000000000000011BEB50012D1C700000000009CD1D100F6F6F6009CD1
- D10012D1C70012D1C70011BEB50011B5AC00000000000B9289000B8982000000
- 00000000000000000000000000000000000011BEB50012D1C70019E3D20019E3
- D20019E3D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000B92
- 89000B89820000000000000000000000000000000000000000000000000011BE
- B50012D1C70019E3D20019E3D20019E3D20019E3D20019E3D20012D0C00011BE
- B50011B5AC0012A49B000B9289000B8982000000000000000000000000000000
- 00000000000000000000000000001238D100000000001D3DE4002847E4002847
- E4002847E4002847E4001D3DE400122FC000122FC0001228AD00000000000B21
- 8A0000000000000000000000000000000000000000000000000012D0C00019E3
- D20028E3D90028E3D900F6F6F60028E3D90019E3D20019E3D20012D0C00011B5
- AC0011ADA50012A49B000B898200000000000000000000000000000000000000
- 000012D0C00019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90012D1
- C70012D0C00011B5AC0011ADA50012A49B000B89820000000000000000000000
- 000000000000000000000000000012D0C00019E3D20028E3D90028E3D90028E3
- D90028E3D90028E3D90012D1C70012D0C00011B5AC0011ADA50012A49B000B89
- 8200000000000000000000000000000000000000000000000000000000001238
- D1001D3DE4002847E4000000000000000000000000002847E400000000000000
- 000000000000122FB6000B289C000B218A000000000000000000000000000000
- 0000000000000000000012D1C70019E3D20028E3D90038E3D900F6F6F60038E3
- D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B8982000000
- 00000000000000000000000000000000000012D1C70019E3D20028E3D90038E3
- D90038E3D90038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C
- 93000B89820000000000000000000000000000000000000000000000000012D1
- C70019E3D20038E3D900000000000000000038E3D90028E3D90028E3D9000000
- 00000000000011ADA50012A49B000B8982000000000000000000000000000000
- 00000000000000000000000000001238D1001D3DE4002847E400000000000000
- 00003858E4002847E4001D3DE40000000000000000001228AD001228A5000B21
- 8A0000000000000000000000000000000000000000000000000012D1C70019E3
- D20038E3D90000000000F6F6F60038E3D90028E3D90019E3D200000000000000
- 000011ADA50012A49B000B898200000000000000000000000000000000000000
- 000012D1C70019E3D20038E3D900000000000000000038E3D90028E3D90019E3
- D200000000000000000011ADA50012A49B000B89820000000000000000000000
- 000000000000000000000000000012D1C70019E3D20028E3D900000000000000
- 000038E3D90028E3D90019E3D200000000000000000011ADA5000B9C93000B89
- 8200000000000000000000000000000000000000000000000000000000000000
- 00001D3DE40000000000000000003858E4003858E4002847E4001D3DE4001238
- D10000000000000000000B289C00000000000000000000000000000000000000
- 000000000000000000000000000019E3D20028E3D900000000000000000038E3
- D90028E3D90019E3D200000000000000000011ADA50012A49B00000000000000
- 0000000000000000000000000000000000000000000019E3D20028E3D9000000
- 00000000000038E3D90028E3D90019E3D200000000000000000011ADA50012A4
- 9B00000000000000000000000000000000000000000000000000000000000000
- 000019E3D2000000000038E3D90038E3D90038E3D90028E3D90019E3D20012D0
- C00011BEB5000000000012A49B00000000000000000000000000000000000000
- 0000000000000000000000000000000000001D3DE4001D3DE4002847E4002847
- E4002847E4002847E4001D3DE400122FC000122FC0001228AD001228A5000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5
- AC0011ADA5000B9C930000000000000000000000000000000000000000000000
- 00000000000019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3
- D20012D0C00011B5AC0011ADA5000B9C93000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D9000000000028E3
- D90028E3D90028E3D90019E3D20012D0C0000000000011ADA5000B9C93000000
- 00000000000000000000000000000000000000000000000000000000000028C9
- C900000000001D3DE4001D3DE4001D3DE4001D3DE4001D3DE4001238D100122F
- C000122FB6001228A5000000000028C9C9000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D20028E3D90019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B0000000000000000000000
- 000000000000000000000000000000000000000000000000000019E3D20019E3
- D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20019E3D2000000000028E3D90019E3D20012D1C7000000
- 000011B5AC0012A49B0000000000000000000000000000000000000000000000
- 0000000000000000000012C0C00070E4E400059C9C0000000000000000001238
- D1001238D100122FD100122FC000122FB6000000000000000000059C9C0070E4
- E40012C0C0000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D0C00012D0C00011BEB50011B5AC000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012D1C70012D0C00012D0C00011BE
- B50011B5AC000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012D1
- C70012D0C00012D0C00011BEB50011B5AC000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000070E4E4000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000070E4E40000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000B90000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000B90000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000B9000000B9000000B9000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- B900000000000000B90000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- B9000000B9000000B9000000B9000000B9000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000B9000000B900000000000000B9000000B9000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000B9000000B9000000B9000000B9000000
- B900000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000B9000000
- B900000000000000B9000000B900000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000B900000000000000B900000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000B900000000000000B900000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000B8982000B8982000B8982000B8982000B81
- 7A00000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B8982000B89
- 82000B8982000B8982000B817A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B8982000B8982000B8982000B8982000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000B8982000B8982000B8982000B89
- 82000B817A000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000012A49B000B9C930012A4
- 9B000B9C930012A49B000B9289000B8982000B8982000A7A7000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000012A49B000B9C930012A49B000B9C930012A49B000B9289000B8982000B89
- 82000A7A70000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012A49B000B9C930012A49B000B9C930012A4
- 9B000B9289000B8982000B8982000A7A70000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000012A49B000B9C
- 930012A49B000B9C930012A49B000B9289000B8982000B8982000A7A70000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000012A49B0011ADA50011ADA50011ADA50011ADA50011ADA500000000000000
- 00000B9289000B8982000A7A7000000000000000000000000000000000000000
- 000000000000000000000000000012A49B0011ADA50011ADA50011ADA50011AD
- A50011ADA50012A49B0012A49B000B8982000B8982000A7A7000000000000000
- 000000000000000000000000000000000000000000000000000012A49B0011AD
- A50011ADA50011ADA50011ADA50011ADA50012A49B0012A49B000B8982000B89
- 82000A7A70000000000000000000000000000000000000000000000000000000
- 00000000000012A49B0011ADA50011ADA5000000000000000000000000000000
- 0000000000000B9289000B817A000A7A70000000000000000000000000000000
- 00000000000000000000000000000000000011B5AC0011B5AC000000000011BE
- B50011BEB5000000000011B5AC0012A49B00000000000B9289000B817A000000
- 00000000000000000000000000000000000000000000000000000000000011B5
- AC0011B5AC000000000011BEB50011BEB50011B5AC0011B5AC0012A49B000000
- 00000B9289000B817A0000000000000000000000000000000000000000000000
- 0000000000000000000011B5AC0011B5AC000000000011BEB50011BEB50011B5
- AC0011B5AC0012A49B00000000000B9289000B817A0000000000000000000000
- 0000000000000000000000000000000000000000000011B5AC0011B5AC0011BE
- B50011BEB50011BEB50011B5AC0011B5AC0011ADA500000000000B9289000B89
- 82000000000000000000000000000000000000000000000000000000000011B5
- AC0011BEB50012D0C00012D1C700000000000000000012D0C00011BEB50011B5
- AC0011ADA5000B9C93000B8982000B817A000000000000000000000000000000
- 0000000000000000000011B5AC0011BEB50012D0C00012D1C700000000000000
- 000000000000000000000000000011ADA5000B9C93000B8982000B817A000000
- 0000000000000000000000000000000000000000000011B5AC0011BEB50012D0
- C00012D1C700000000000000000000000000000000000000000011ADA5000B9C
- 93000B8982000B817A0000000000000000000000000000000000000000000000
- 000011B5AC0011BEB50012D0C00012D1C70012D0C00012D1C70012D0C00011BE
- B50011B5AC0011ADA5000B9C93000B8982000B817A0000000000000000000000
- 000000000000000000000000000011BEB50012D1C70019E3D20019E3D20019E3
- D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000B9289000B89
- 820000000000000000000000000000000000000000000000000011BEB50012D1
- C70019E3D20019E3D20019E3D20019E3D20019E3D20012D0C00011BEB50011B5
- AC0012A49B000B9289000B898200000000000000000000000000000000000000
- 00000000000011BEB50012D1C70019E3D20019E3D20019E3D20019E3D20019E3
- D20012D0C00011BEB50011B5AC0012A49B000B9289000B898200000000000000
- 00000000000000000000000000000000000011BEB50012D1C70019E3D2000000
- 00000000000019E3D20019E3D20012D1C700000000000000000012A49B000B92
- 89000B89820000000000000000000000000000000000000000000000000012D0
- C00019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90012D1C70012D0
- C00011B5AC0011ADA50012A49B000B8982000000000000000000000000000000
- 0000000000000000000012D0C00019E3D20028E3D90028E3D90028E3D90028E3
- D90028E3D90012D1C70012D0C00011B5AC0011ADA50012A49B000B8982000000
- 0000000000000000000000000000000000000000000012D0C00019E3D200FF36
- 360028E3D90028E3D90028E3D90028E3D90012D1C70012D0C00011B5AC0011AD
- A50012A49B000B89820000000000000000000000000000000000000000000000
- 000012D0C00019E3D20000000000FFEDD100FFEDD1000000000028E3D9000000
- 0000FFEDD100FFEDD100000000000B9C93000B89820000000000000000000000
- 000000000000000000000000000012D1C70019E3D20028E3D90038E3D90038E3
- D90038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B89
- 820000000000000000000000000000000000000000000000000012D1C70019E3
- D20038E3D900000000000000000038E3D90028E3D90028E3D900000000000000
- 000011ADA50012A49B000B898200000000000000000000000000000000000000
- 00000000000012D1C70019E3D20038E3D900000000000000000038E3D90028E3
- D90028E3D900000000000000000011ADA50012A49B000B898200000000000000
- 00000000000000000000000000000000000012D1C70000000000FFEDD100FFFF
- FF00FFFFFF00FFEDD10000000000FFEDD100FFFFFF00FFFFFF00FFEDD1000000
- 00000B89820000000000000000000000000000000000000000000000000012D1
- C70019E3D20038E3D900000000000000000038E3D90028E3D90019E3D2000000
- 00000000000011ADA50012A49B000B8982000000000000000000000000000000
- 0000000000000000000012D1C70019E3D20028E3D900000000000000000038E3
- D90028E3D90019E3D200000000000000000011ADA5000B9C93000B8982000000
- 0000000000000000000000000000000000000000000012D1C70019E3D20028E3
- D900000000000000000038E3D90028E3D90019E3D200000000000000000011AD
- A5000B9C93000B89820000000000000000000000000000000000000000000000
- 000012D1C70000000000FFEDD1000000000000000000FFEDD10000000000FFED
- D1000000000000000000FFEDD100000000000B89820000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D900000000000000
- 000038E3D90028E3D90019E3D200000000000000000011ADA50012A49B000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D2000000000038E3D90038E3D90038E3D90028E3D90019E3D20012D0C00011BE
- B5000000000012A49B0000000000000000000000000000000000000000000000
- 0000000000000000000019E3D2000000000038E3D90038E3D90038E3D90028E3
- D90019E3D20012D0C00011BEB5000000000012A49B0000000000000000000000
- 0000000000000000000000000000000000000000000019E3D200000000000000
- 0000000000000000000028E3D9000000000000000000000000000000000012A4
- 9B00000000000000000000000000000000000000000000000000000000000000
- 000019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0
- C00011B5AC0011ADA5000B9C9300000000000000000000000000000000000000
- 000000000000000000000000000019E3D20028E3D9000000000028E3D90028E3
- D90028E3D90019E3D20012D0C0000000000011ADA5000B9C9300000000000000
- 000000000000000000000000000000000000000000000000000019E3D20028E3
- D9000000000028E3D90028E3D90028E3D90019E3D20012D0C0000000000011AD
- A5000B9C93000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20028E3D90000000000494A4A0028E3D90028E3D90019E3
- D20000000000494A4A0011ADA5000B9C93000000000000000000000000000000
- 0000000000000000000000000000000000000000000019E3D20019E3D20028E3
- D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000019E3D20019E3D2000000000028E3D90019E3D20012D1C7000000000011B5
- AC0012A49B000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000019E3D20019E3D2000000000028E3D90019E3
- D20012D1C7000000000011B5AC0012A49B000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000019E3D20019E3
- D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012D1C70012D0C00012D0C00011BEB50011B5
- AC00000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000012D1C70012D0
- C00012D0C00011BEB50011B5AC00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000012D1C70012D0C00012D0C00011BEB50011B5AC00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012D1C70012D0C00012D0C00011BE
- B50011B5AC000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000B89
- 82000B8982000B8982000B8982000B817A000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B8982000B8982000B8982000B8982000B817A000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000B218A000B218A000B21
- 8A000B2182000B21820000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000B8982000B8982000B8982000B8982000B817A0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000012A49B000B9C930012A49B000B9C930012A49B000B9289000B89
- 82000B8982000A7A700000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000012A49B000B9C930012A49B000B9C
- 930012A49B000B9289000B8982000B8982000A7A700000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000001228
- A5000B289C001228A5000B289C001228A5000B2193000B218A000B2182000B21
- 7A00000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012A49B000B9C930012A49B000B9C930012A49B000B92
- 89000B89820010838A0010737B0001020F000000000000000000000000000000
- 00000000000000000000000000000000000012A49B0011ADA50011ADA50011AD
- A5000000930000009300000093000B9C93000B9289000B817A000A7A70000000
- 00000000000000000000000000000000000000000000000000000000000012A4
- 9B0011ADA50011ADA50000000000000000000000000000000000000000000B92
- 89000B817A000A7A700000000000000000000000000000000000000000000000
- 000000000000000000001228A5001228AD00122FB6001228AD00122FB6001228
- AD001228A5001228A5000B218A000B218A000B217A0000000000000000000000
- 0000000000000000000000000000000000000000000012A49B0016A3AA0016A3
- AA0001020F00000000000000000000000000000000001483990014758B00146E
- 8400000000000000000000000000000000000000000000000000000000000000
- 000011B5AC0011B5AC0011BEB5000000930000009C000000B90000009C000000
- 93000B9C93000B9289000B898200000000000000000000000000000000000000
- 000000000000000000000000000011B5AC0011B5AC000000000011BEB50011BE
- B50011B5AC0011B5AC0011ADA500000000000B9289000B898200000000000000
- 0000000000000000000000000000000000000000000000000000122FB6000000
- 0000122FC000122FC000122FC000122FC000122FB6001228A5001228A5000000
- 00000B2182000000000000000000000000000000000000000000000000000000
- 0000000000001C98B500287AC3001D1D62002292C30011BEB50011B5AC0011B5
- AC001C8EAE0014144D00226DAD00147D92000000000000000000000000000000
- 000000000000000000000000000011B5AC0011BEB50000000000000000000000
- 00000000000000000000000000000000000000000000000000000B8982000B81
- 7A0000000000000000000000000000000000000000000000000011B5AC0011BE
- B50012D0C00012D1C70012D1C70012D0C00012D0C00011BEB50011B5AC0011AD
- A5000B9C93000B8982000B817A00000000000000000000000000000000000000
- 000000000000122FC000122FC000122FC000000000001238D1001238D100122F
- D100122FC000122FB600000000001228A5000B2182000B218200000000000000
- 00000000000000000000000000000000000016A3AA00287AC3002D2D9B00336C
- D8002888CF0012D1C70012D0C00011BEB5001C98B500287AC30025257F00226D
- AD001871910000000000000000000000000000000000000000000000000011BE
- B5000000000019E3D20019E3D20019E3D20028E3D90012D1C70012D1C70011BE
- B50011B5AC0012A49B00000000000B8982000000000000000000000000000000
- 0000000000000000000011BEB50012D1C70019E3D20019E3D20019E3D20028E3
- D90012D1C70012D1C70011BEB50011B5AC0012A49B000B9289000B8982000000
- 00000000000000000000000000000000000000000000122FC0001238D1001D3D
- E4001D3DE4000000000000000000000000000000000000000000122FB6001228
- A5000B289C000B21820000000000000000000000000000000000000000000000
- 000016B3B9002888CF003664D9003664D9002F83D70019E3D20019E3D20012D1
- C7001D9FBF002E68C9002E5FC2002E5FC2001878980000000000000000000000
- 000000000000000000000000000012D0C00019E3D20028E3D90028E3D90028E3
- D90028E3D90019E3D20019E3D20012D0C00011B5AC0011ADA50012A49B000B89
- 820000000000000000000000000000000000000000000000000012D0C00019E3
- D20028E3D900000000000000000028E3D90028E3D90019E3D200000000000000
- 000011ADA50012A49B000B898200000000000000000000000000000000000000
- 0000000000001238D1001D3DE4002847E4002847E4002847E4002847E4002847
- E4001238D1001238D100122FB600122FB6000B289C000B218A00000000000000
- 0000000000000000000000000000000000001AB5C4002F9CD800336CD800377D
- DA002F9CD80028E3D90028E3D90012D1C70012D0C000287AC3002E68C9002E5F
- C2001878980000000000000000000000000000000000000000000000000012D1
- C70019E3D20038E3D90038E3D90038E3D90038E3D90038E3D90019E3D20012D0
- C00011BEB50011ADA50012A49B000B8982000000000000000000000000000000
- 0000000000000000000012D1C70019E3D2002C2C2D00494A4A00000000000000
- 0000000000002C2C2D00494A4A0000000000000000000B9C93000B8982000000
- 000000000000000000000000000000000000000000001238D1001D3DE4002847
- E4003858E4003858E4003858E4002847E4001D3DE4001238D100122FC0001228
- AD001228A5000B218A0000000000000000000000000000000000000000000000
- 000016C2CB0021C4D4002F9CD8003BADDA003ABFDA0038E3D90028E3D90019E3
- D20012D0C0002292C300267CBD00226DAD0010838A0000000000000000000000
- 000000000000000000000000000012D1C70019E3D20028E3D90038E3D90047ED
- E40038E3D90028E3D90019E3D20012D1C70011BEB50011ADA5000B9C93000B89
- 8200000000000000000000000000000000000000000000000000000000000000
- 0000000000002C2C2D00494A4A000000000028E3D900000000002C2C2D00494A
- 4A00000000000000000000000000000000000000000000000000000000000000
- 0000000000001238D1001D3DE4002847E40000000000000000003858E4002847
- E4001D3DE40000000000000000001228AD001228A5000B218A00000000000000
- 00000000000000000000000000000000000016C2CB0021C4D4003ABFDA000102
- 0F000000000038E3D90028E3D90019E3D2000000000001020F001C8EAE001C8E
- AE00147D92000000000000000000000000000000000000000000000000000000
- 000019E3D2000000000038E3D90038E3D90038E3D90028E3D90019E3D20012D0
- C00011BEB5000000000012A49B00000000000000000000000000000000000000
- 000000000000000000000000000019E3D20028E3D900000000002C2C2D0038E3
- D90028E3D90019E3D200000000002C2C2D0011ADA50012A49B00000000000000
- 00000000000000000000000000000000000000000000000000001D3DE4002847
- E40000000000000000003858E400000000001D3DE4000000000000000000122F
- B6000B289C000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20028E3D900000000000000000038E3D90028E3D90019E3
- D20000000000000000001C98B5001C8EAE000A0A220000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D900000000000000
- 00000000000028E3D90000000000000000000000000011ADA5000B9C93000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5
- AC0011ADA5000B9C930000000000000000000000000000000000000000000000
- 000000000000000000001D3DE4001D3DE4002847E4002847E400000000001D3D
- E400000000001238D100122FB6001228AD001228A50000000000000000000000
- 0000000000000000000000000000000000000000000019E3D20028E3D90028E3
- D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5AC0016A3AA001093
- 9A0001020F000000000000000000000000000000000000000000000000000000
- 00000000000019E3D20019E3D20028E3D90019E3D20019E3D20012D1C70011BE
- B50011B5AC0012A49B0000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000019E3D20019E3D20028E3D90019E3
- D20019E3D20012D1C70011BEB50011B5AC0012A49B0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000001D3D
- E4001D3DE400000000001D3DE4001D3DE4001238D10000000000122FB6001228
- A500000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000019E3D20019E3D20028E3D90019E3D20019E3D20012D1
- C70011BEB50011B5AC0012A49B00000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000000000012D1
- C70012D0C00012D0C00011BEB50011B5AC000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000012D1C70012D0C00012D0C00011BEB50011B5AC000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000001238D1001238D100122F
- D100122FC000122FB60000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000012D1C70012D0C00012D0C00011BEB50011B5AC0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000B8982000B8982000B8982000B8982000B81
- 7A00000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000000000000B8982000B89
- 82000B8982000B8982000B817A00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000B8982000B8982000B8982000B8982000B817A00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000008A470B008A470B00934F0B008247
- 0B0082470B000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000012A49B000B9C930012A4
- 9B000B9C930012A49B000B9289000B8982000B8982000A7A7000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000B9C930012A49B0000000000000000000000000000000000000000000B89
- 82000A7A70000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012A49B000B9C930012A49B000B9C930012A4
- 9B000B9289000B8982000B8982000A7A70000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000A5581200A558
- 12009C580B000000000000000000000000008A470B0082470B007A3F0B000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000012A49B0011ADA50011ADA500000000000000000000000000000000000000
- 00000B9289000B817A000A7A7000000000000000000000000000000000000000
- 000000000000000000000000000012A49B0011ADA5000000000000000000FFFF
- FF00FFFFFF00FFEDD10000000000000000000B8982000A7A7000000000000000
- 000000000000000000000000000000000000000000000000000012A49B0011AD
- A50011ADA50000000000000000000000000000000000000000000B9289000B81
- 7A000A7A70000000000000000000000000000000000000000000000000000000
- 000000000000A5581200AD601200AD601200AD60120000000000000093000000
- 0000A5581200934F0B0082470B0082470B000000000000000000000000000000
- 00000000000000000000000000000000000011B5AC0011B5AC000000000011BE
- B50011BEB50011B5AC0011B5AC0011ADA500000000000B9289000B8982000000
- 00000000000000000000000000000000000000000000000000000000000011B5
- AC0000000000FFEDD10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFF
- FF00000000000B89820000000000000000000000000000000000000000000000
- 0000000000000000000011B5AC0011B5AC000000000011BEB50011BEB50011B5
- AC0011B5AC0011ADA500000000000B9289000B89820000000000000000000000
- 00000000000000000000000000000000000000000000B6601200C0681200C068
- 1200C0681200000000000000000000000000AD601200A55812008A470B008247
- 0B000000000000000000000000000000000000000000000000000000000011B5
- AC0011BEB5000000000012D1C70012D0C00012D1C70012D0C00011BEB50011B5
- AC0011ADA500000000000B8982000B817A000000000000000000000000000000
- 0000000000000000000011B5AC0000000000FFFFFF00FFEDD10000000000FFFF
- FF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000B817A000000
- 0000000000000000000000000000000000000000000011B5AC0011BEB5000000
- 000012D1C70012D0C00012D1C70012D0C00011BEB50011B5AC0011ADA5000000
- 00000B8982000B817A0000000000000000000000000000000000000000000000
- 0000C0681200C0681200C0681200D1701200D170120000000000000000000000
- 0000C0681200A5581200A55812008A470B0082470B0000000000000000000000
- 000000000000000000000000000011BEB50012D1C70019E3D20019E3D20019E3
- D20019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B000B9289000B89
- 820000000000000000000000000000000000000000000000000011BEB5000000
- 0000FFFFFF00FFEDD10000000000FFFFFF00FFFFFF00FFEDD10000000000FFFF
- FF00FFEDD100000000000B898200000000000000000000000000000000000000
- 00000000000011BEB50012D1C70019E3D20019E3D20019E3D20019E3D20012D1
- C70012D1C70011BEB50011B5AC0012A49B000B9289000B817A00000000000000
- 000000000000000000000000000000000000C0681200D1701200E47C1B00E47C
- 1B00E47C1B00E47C1B00D1701200D1701200C0681200AD601200A5581200934F
- 0B008A470B0000000000000000000000000000000000000000000000000012D0
- C00019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90012D1C70012D0
- C00011B5AC0011ADA50012A49B000B8982000000000000000000000000000000
- 0000000000000000000012D0C00000000000FFFFFF00FFEDD10000000000FFFF
- FF00FFFFFF00FFEDD10000000000FFFFFF00FFEDD100000000000B8982000000
- 0000000000000000000000000000000000000000000012D0C00019E3D20028E3
- D90028E3D90028E3D90028E3D90028E3D90019E3D20011BEB50011BEB50011AD
- A50012A49B000B89820000000000000000000000000000000000000000000000
- 0000D1701200E47C1B00EDA55800EDA55800EDA55800E47C1B00E47C1B00D170
- 1200EDA55800EDA55800EDA55800934F0B008A470B0000000000000000000000
- 000000000000000000000000000012D1C70019E3D20028E3D90038E3D90038E3
- D90038E3D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B89
- 820000000000000000000000000000000000000000000000000012D1C7000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000B898200000000000000000000000000000000000000
- 00000000000012D1C70028E3D90028E3D90038E3D90038E3D90038E3D90028E3
- D90019E3D20012D1C70011BEB50011ADA5000B9C93000B898200000000000000
- 000000000000000000000000000000000000D1701200EDA55800FFFFFF00FFFF
- FF00FFFFFF00EDA55800E48A2800EDA55800FFFFFF00FFFFFF00FFFFFF00EDA5
- 58008A470B0000000000000000000000000000000000000000000000000012D1
- C70019E3D20038E3D900000000000000000038E3D90028E3D90019E3D2000000
- 00000000000011ADA50012A49B000B8982000000000000000000000000000000
- 0000000000000000000012D1C70019E3D20028E3D90038E3D90047EDE40038E3
- D90028E3D90019E3D20012D0C00011BEB50011ADA5000B9C93000B8982000000
- 0000000000000000000000000000000000000000000012D1C70019E3D20028E3
- D90000000000000000000000000028E3D90019E3D200000000000000000011AD
- A50012A49B000B89820000000000000000000000000000000000000000000000
- 0000D1701200EDA55800FFFFFF0000000000FFFFFF00EDA55800E48A2800EDA5
- 5800FFFFFF0000000000FFFFFF00EDA5580082470B0000000000000000000000
- 00000000000000000000000000000000000019E3D20028E3D900000000000000
- 000038E3D90028E3D90019E3D200000000000000000011ADA50012A49B000000
- 00000000000000000000000000000000000000000000000000000000000019E3
- D2000000000038E3D90038E3D9000000000028E3D9000000000012D1C70011BE
- B5000000000012A49B0000000000000000000000000000000000000000000000
- 0000000000000000000019E3D2000000000038E3D90038E3D90038E3D9000000
- 000019E3D200000000000000000011ADA50012A49B0000000000000000000000
- 00000000000000000000000000000000000000000000EDA55800FFFFFF00FFFF
- FF00FFFFFF00EDA55800E48A2800EDA55800FFFFFF00FFFFFF00FFFFFF00EDA5
- 5800000000000000000000000000000000000000000000000000000000000000
- 000019E3D20028E3D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0
- C00011B5AC0011ADA5000B9C9300000000000000000000000000000000000000
- 000000000000000000000000000019E3D20028E3D900000000000000000028E3
- D90028E3D90019E3D200000000000000000011ADA5000B9C9300000000000000
- 000000000000000000000000000000000000000000000000000019E3D20028E3
- D90028E3D90028E3D90028E3D90028E3D90019E3D20012D0C00011B5AC0011AD
- A5000B9C93000000000000000000000000000000000000000000000000000000
- 000000000000E47C1B00EDA55800EDA55800EDA55800E48A2800E47C1B00E47C
- 1B00EDA55800EDA55800EDA558009C4F0B000000000000000000000000000000
- 0000000000000000000000000000000000000000000019E3D20019E3D20028E3
- D90019E3D20019E3D20012D1C70011BEB50011B5AC0012A49B00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000019E3D20019E3D20028E3D90019E3D20019E3D20012D1C70011BEB50011B5
- AC0012A49B000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000019E3D20019E3D20028E3D90019E3D20019E3
- D20012D1C70011BEB50011B5AC0012A49B000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000E47C1B00E47C
- 1B00E47C1B00E47C1B00E47C1B00D1701200C0681200AD601200A55812000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000012D1C70012D0C00012D0C00011BEB50011B5
- AC00000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000012D1C70012D0
- C00012D0C00011BEB50011B5AC00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000012D1C70012D0C00012D0C00011BEB50011B5AC00000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000D1701200D1701200D1701200C068
- 1200C06812000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000424D3E000000000000003E000000
- 280000004C000000E40000000100010000000000B00A00000000000000000000
- 000000000000000000000000FFFFFF00FE207FC1FFF83F8000000000F830FF00
- 7FE00F8000000000F071FE003FC0078000000000E063FC001F80038000000000
- E03FFC001F80038000000000C01FF8000F00018000000000C00078000F000180
- 00000000C00078000F00018000000000C00078000F00018000000000C0007800
- 0F00018000000000E000FC001F80038000000000E000FC001F80038000000000
- F001FE003FC0078000000000F803FF007FE00F8000000000FE0FFFC1FFF83F80
- 00000000FFFFFFFFFFFFFF8000000000FFFFFFFFFFFFFF8000000000FFFFFFFF
- FFFFFF8000000000FFFFFFFFFFFFFF8000000000FC03FFFC7FFE0FFC1FF00000
- F001FFF83FF803F007F00000C001FFF83FF001E003F00000C000FFF83E0000C0
- 01F00000C000FFFC3C0000C001F00000C0007C001C00000000F00000C0007800
- 0C00000000F00000C00078000C00000000F00000C00078000C00000000F00000
- E000F8000C00000000F00000F0FFFC000E0000C001F00000F07FFC000F0000C0
- 01F00000F07FFE000F0001E003F00000F07FFE003F0803F007700000F8FFFF00
- FF9E0FFC1FF00000FFFFFFFFFFFFFFFFFF700000FFFFFFFFFFFFFFFFFFB00000
- FFFFFFFFFFFFFFFFFEB00000FFFFFFFFFFFFFFFFFF700000FF83FFF07FF83F87
- 07000000FE00FFC01FE00F8000000000FC007F800FC0078000000000F8003F00
- 078003C00010000080003F00078003C00010000000001C00030001C000100000
- 00001E00030001C00010000000001E00030001C00010000000001E00020000C0
- 0010000000001E00020000C00010000000003E00060000C00010000000003C00
- 060000C000100000000078000E0000C0001000000000F0001E0000C000100000
- 0083E0007E0000E00030000000FFFFDFFE0000F000700000FFFFFFEFFF0009FC
- 01F00000FFFFFFFFFF8007FFFFF00000FFFFFFFFFFCC47FFFFF00000FF83FF80
- 7FF83FFF07F00000FE00FF001FE00FFC01F00000FC007E000FC007F800F00000
- F8003C00078003F00070000080003800078003F00070000000001000030001E0
- 0030000000000000030001E00030000000000000030001E00030000000000000
- 030001E000300000F0000000030001E000300000B8003000078003F000700000
- D8003800078003F000700000DC007F800FC007F800F00000D600FFC01FE00FFC
- 01F00000B783FFF07FF83FFF07F00000AFFFFFFFFFFFFFFFFFF00000AFFFFFFF
- FFFFFFFFFFF00000FBFFFFFFFFFFFFFFFFF00000FBFFFFFFFFFFFFFFFFF00000
- FE0FFFC1FFFE0FFC1FF00000F803FF007FF803F007F00000F001FE003FF001E0
- 03F00000E000FC001C6000C001F00000E000FC001C0000C001F00000C0007800
- 0C00000000F00000800038000C00000000F00000000018000C00000000F00000
- 000010000E00000000F00000000000000E00000000F00000A000A000020000C0
- 01F00000E000F000060000C001F00000F001F000060001E003F00000F803F800
- 070003F004F00000FE0FFC000F0E0FFC0CD00000FFFFFE001FFFFFFFF8700000
- FFFFFF003FFFFFFFD0200000FFFFFFC0FFFFFFFFF8700000FFFFFFFFFFFFFFFF
- ECD00000FF83FFF07FFC1FFF07F00000FE00FFC01FF007FC01F00000FC007F80
- 0F8003F800F00000F0003E00070001F000700000E0003C00070001F000700000
- E0001C00030000E00030000080001000038000E00030000080001000038000E0
- 0030000030000600038000E000300000F0001E00038000E000300000E0003C00
- 07C001F000700000C000380007C001F000700000C00078000FE003F800F00000
- 8000F0001FF007FC01F000008083F0107FFC1FFF07F00000C1FFF83FFFFFFFFF
- FFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFF
- FFFFFFFFFFF00000FE0FFFC1FFFE0FFC1FF00000F803FF007FF803F007F00000
- F001FE003FF001E003F00000E000FC001FE000C001F00000E000FC001FE000C0
- 01F00000C00078000F80000000F00000C00078000C00000000F00000C0007800
- 0C00000000F00000C00078000C00000000F00000C00078000C00000000F00000
- E000FC001C0000C001F00000E000FC001C0000C001F00000F001FE003C0001E0
- 03F00000F803FF007C0003F006100000FE0FFFC1FC000FFC1E100000FFFFFFFF
- FC01FFFFFF900000FFFFFFFFFC01FFFFFF900000FFFFFFFFFC01FFFFFF800000
- FFFFFFFFFC01FFFFFF8000000783FF00FFF83FFC1FF000000600FE007FE00FF0
- 07F0000004007C003FC007E003F0000000003C003F8003C001F0000000003C00
- 3F8003C001F0000000001C003F00018000F0000000001C003F00018000F00000
- 00001C003F00018000F00000000000000700018000F0000000000C0037000180
- 00F0000000002C00378003C001F0000000003E007F8003C001F0000004007800
- 1E0000E0020000000600F0000C000070077000000783F1E78C00007C1FB00000
- FFFFF3FFCC07C07FFFD00000FFFFF9FF9E0FE0FFFE000000FFFFFDFFBF1FF1FF
- FFF00000FFFFFFFFFFFFFFFFFFF00000FE0FFFC1FFF07FFE0FF00000F803FF00
- 7FC01FF803F00000F001FE003F800FF001F00000E000FC001F0007E000F00000
- E000FC001F0007E000F00000C00078000E0003C000700000C00078000E0003C0
- 00700000C00078000E0003C000700000C00078000E0003C000700000C0007800
- 0E0003C000700000E000FC001F0007E000F00000E000FC001F0007E000F00000
- E000FE003F800FF001F00000C0007F007FC01FF803F00000DE0F7FC1FFF07BFE
- 0F700000FFFFFFFFFFFFF1FFFEB00000FFFFFFFFFFFFE0FFFC900000FFFFFFFF
- FFFFE0FFFC900000FFFFFFFFFFFFF5FFFEB00000FE0FFFC1FFF83FFF07F00000
- F803FF007FE00FFC01F00000F001FE003FC007F800F00000E000FC001F8003F0
- 00700000E000FC001F8003F000700000C00078000F0001E000300000C0007800
- 0F0001E000300000C00078000F0001E000300000C00078000F0001E000300000
- C00078000F0001E000300000E000FC001F8003F000700000E000FC001F8003F0
- 00700000F001FE003FC007F800F00000F803FF007FE00FFC01F00000FE0FFFC1
- FFF83FFF07F00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000
- FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FE0FFFC1FFF83FFF
- 07F00000F803FF007FE00FFC01F00000F001FE003FC007F800F00000E000FC00
- 1F8003F000700000E000FC001F8003F000700000C00078000F0001E000300000
- C00078000F0001E000300000C00078000F0001E000300000C00078000F0001E0
- 00300000C00078000F0001E000300000E000FC001F8003F000700000E000FC00
- 1F8003F000700000F001FE003FC007F800F00000F803FF007FE00FFC01F00000
- FE0FFFC1FFF83FFF07F00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFF
- FFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FE0FFFC1
- FFF83FFF07F00000F803FF007FE00FFC01F00000F001FE003FC007F800F00000
- E000FC001F8003F000700000E000FC001F8003F000700000C00078000F0001E0
- 00300000C00078000F0001E000300000C00078000F0001E000300000C0007800
- 0F0001E000300000C00078000F0001E000300000E000FC001F8003F000700000
- E000FC001F8003F000700000F001FE003FC007F800F00000F803FF007FE00FFC
- 01F00000FE0FFFC1FFF83FFF07F00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFF
- FFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFF00000
- 00000000000000000000000000000000000000000000}
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/Unit1.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/Unit1.pas
deleted file mode 100644
index 8b801ae9dde69c0d8637ffbe1fb5d79a2ea392da..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/Unit1.pas
+++ /dev/null
@@ -1,446 +0,0 @@
-//****************************************************
-// EwbRichEdit Demo *
-// *
-// *
-// By: *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-//I used 2 method to get the info :
-//1. StringList (So you can saveToFile)
-//2. String so you use it simple Add procedure
-// Both of them do the job for every parsed item.
-
-unit Unit1;
-
-interface
-
-uses
- SysUtils, Classes, Graphics, Forms, Dialogs, Menus, RichEditBrowser,
- EmbeddedWB, ImgList, Controls, ComCtrls, StdCtrls, OleCtrls, ExtCtrls,
- SHDocVw_EWB, EwbCore;
-
-type
- TForm2 = class(TForm)
- Panel1: TPanel;
- Panel2: TPanel;
- StatusBar1: TStatusBar;
- MainMenu1: TMainMenu;
- Fonts1: TMenuItem;
- SelectFonts1: TMenuItem;
- SetFontColor1: TMenuItem;
- SetSize1: TMenuItem;
- SetBold1: TMenuItem;
- SetItalic1: TMenuItem;
- SetUnderLine1: TMenuItem;
- AddBackroundColor1: TMenuItem;
- ResetFontsFormat1: TMenuItem;
- File1: TMenuItem;
- New1: TMenuItem;
- Open3: TMenuItem;
- Save1: TMenuItem;
- SaveAs2: TMenuItem;
- N20: TMenuItem;
- Print2: TMenuItem;
- Tools1: TMenuItem;
- CreateASnapshot1: TMenuItem;
- PreviewRichEditLinesInTheBrowser1: TMenuItem;
- LoadCodeFromBrowserStream1: TMenuItem;
- N21: TMenuItem;
- MailSelectedText1: TMenuItem;
- Mail1: TMenuItem;
- N22: TMenuItem;
- HighlighHTML1: TMenuItem;
- HighLightXML1: TMenuItem;
- HighLightURL1: TMenuItem;
- N23: TMenuItem;
- SetColor1: TMenuItem;
- Themes1: TMenuItem;
- Edit1: TMenuItem;
- Find1: TMenuItem;
- Replace1: TMenuItem;
- GoToLineNumber1: TMenuItem;
- SetSelectionAsAHyperLink1: TMenuItem;
- SetWordAsAHyperLink1: TMenuItem;
- WrapLongLines1: TMenuItem;
- Add1: TMenuItem;
- InsertFromImageList1: TMenuItem;
- InsertFile1: TMenuItem;
- InsertBitmap1: TMenuItem;
- N24: TMenuItem;
- AddDateAndTime1: TMenuItem;
- N25: TMenuItem;
- AddBullets1: TMenuItem;
- AddRomanNumbers1: TMenuItem;
- AddLineNumbers1: TMenuItem;
- N26: TMenuItem;
- AddAButton1: TMenuItem;
- AddTEditBox1: TMenuItem;
- AddARadioButton1: TMenuItem;
- AddACheckBox1: TMenuItem;
- OpenDialog1: TOpenDialog;
- RichEditWB1: TRichEditWB;
- ilsSmilies: TImageList;
- Demo: TMenuItem;
- N1: TMenuItem;
- Exit1: TMenuItem;
- EmbeddedWB1: TEmbeddedWB;
- StatusBar2: TStatusBar;
- N2: TMenuItem;
- DesignMode: TMenuItem;
- procedure EmbeddedWB1CommandStateChange(ASender: TObject; Command: Integer;
- Enable: WordBool);
- procedure DesignModeClick(Sender: TObject);
- procedure EmbeddedWB1StatusTextChange(ASender: TObject;
- const Text: WideString);
- procedure Exit1Click(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure Themes1Click(Sender: TObject);
- procedure SetColor1Click(Sender: TObject);
- procedure HighLightURL1Click(Sender: TObject);
- procedure HighLightXML1Click(Sender: TObject);
- procedure HighlighHTML1Click(Sender: TObject);
- procedure Mail1Click(Sender: TObject);
- procedure MailSelectedText1Click(Sender: TObject);
- procedure LoadCodeFromBrowserStream1Click(Sender: TObject);
- procedure PreviewRichEditLinesInTheBrowser1Click(Sender: TObject);
- procedure CreateASnapshot1Click(Sender: TObject);
- procedure AddARadioButton1Click(Sender: TObject);
- procedure AddACheckBox1Click(Sender: TObject);
- procedure AddTEditBox1Click(Sender: TObject);
- procedure AddAButton1Click(Sender: TObject);
- procedure AddLineNumbers1Click(Sender: TObject);
- procedure AddRomanNumbers1Click(Sender: TObject);
- procedure AddBullets1Click(Sender: TObject);
- procedure InsertBitmap1Click(Sender: TObject);
- procedure InsertFile1Click(Sender: TObject);
- procedure InsertFromImageList1Click(Sender: TObject);
- procedure SetWordAsAHyperLink1Click(Sender: TObject);
- procedure SetSelectionAsAHyperLink1Click(Sender: TObject);
- procedure Replace1Click(Sender: TObject);
- procedure GoToLineNumber1Click(Sender: TObject);
- procedure Find1Click(Sender: TObject);
- procedure ResetFontsFormat1Click(Sender: TObject);
- procedure AddBackroundColor1Click(Sender: TObject);
- procedure AddDateAndTime1Click(Sender: TObject);
- procedure SetUnderLine1Click(Sender: TObject);
- procedure SetSize1Click(Sender: TObject);
- procedure SetBold1Click(Sender: TObject);
- procedure SetItalic1Click(Sender: TObject);
- procedure SetFontColor1Click(Sender: TObject);
- procedure SelectFonts1Click(Sender: TObject);
- procedure Print2Click(Sender: TObject);
- procedure Save1Click(Sender: TObject);
- procedure SaveAs2Click(Sender: TObject);
- procedure Open3Click(Sender: TObject);
- procedure New1Click(Sender: TObject);
- private
- { Private declarations }
- procedure RunDemo();
- public
- { Public declarations }
- end;
-
-var
- Form2: TForm2;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm2.RunDemo();
-begin
- RichEditWB1.AddBitmapFromImagelist(ilsSmilies, 0);
- RichEditWB1.AddEmptyLine;
- RichEditWB1.SelAttributes.Color := clYellow;
- RichEditWB1.AddEmptyLine;
- RichEditWB1.SelText := ' Beatles ';
- RichEditWB1.AddEmptyLine;
- RichEditWB1.AddBitmapFromImagelist(ilsSmilies, 15);
- RichEditWB1.AddEmptyLine;
- RichEditWB1.SelAttributes.Color := clPurple;
- RichEditWB1.AddEmptyLine;
- RichEditWB1.SelText := ' Deep Purple ';
- RichEditWB1.AddEmptyLine;
- RichEditWB1.AddBitmapFromImagelist(ilsSmilies, 5);
- RichEditWB1.AddEmptyLine;
- RichEditWB1.AddFormatedText('Led Zepelin', true, true, true, true, clred);
- RichEditWB1.AddEmptyLine;
- RichEditWB1.AddEmptyLine;
- RichEditWB1.AddFormatedText('C U L8r', True, false, false, false, clGreen);
- RichEditWB1.AddEmptyLine;
- RichEditWB1.RemoveTextFormats;
-end;
-
-procedure TForm2.New1Click(Sender: TObject);
-begin
- RichEditWB1.New;
-end;
-
-procedure TForm2.Open3Click(Sender: TObject);
-begin
- RichEditWB1.Open;
-end;
-
-procedure TForm2.SaveAs2Click(Sender: TObject);
-begin
- RichEditWB1.SaveAs;
-end;
-
-procedure TForm2.Save1Click(Sender: TObject);
-begin
- RichEditWB1.Save;
-end;
-
-procedure TForm2.Print2Click(Sender: TObject);
-begin
- RichEditWB1.PrintAll;
-end;
-
-procedure TForm2.SelectFonts1Click(Sender: TObject);
-begin
- RichEditWB1.SelectFont;
-end;
-
-procedure TForm2.SetFontColor1Click(Sender: TObject);
-begin
- RichEditWB1.SetFontColor;
-end;
-
-procedure TForm2.SetItalic1Click(Sender: TObject);
-begin
- RichEditWB1.SetFontItalic;
-end;
-
-procedure TForm2.SetBold1Click(Sender: TObject);
-begin
- RichEditWB1.SetFontBold;
-end;
-
-procedure TForm2.SetSize1Click(Sender: TObject);
-begin
- RichEditWB1.SetFontSize;
-end;
-
-procedure TForm2.SetUnderLine1Click(Sender: TObject);
-begin
- RichEditWB1.SetFontUnderLine;
-end;
-
-procedure TForm2.AddDateAndTime1Click(Sender: TObject);
-begin
- RichEditWB1.AddDateAndTime;
-end;
-
-procedure TForm2.AddBackroundColor1Click(Sender: TObject);
-begin
- RichEditWB1.SetSelectedBgColor;
-end;
-
-procedure TForm2.ResetFontsFormat1Click(Sender: TObject);
-begin
- RichEditWB1.RemoveTextFormats;
-end;
-
-procedure TForm2.Find1Click(Sender: TObject);
-begin
- RichEditWB1.Find;
-end;
-
-procedure TForm2.GoToLineNumber1Click(Sender: TObject);
-var
- Value: string;
-begin
- InputQuery('Select A Line', 'Please Enter a line number to select..', Value);
- RichEditWB1.SelectLine(StrToInt(Trim(Value)));
-end;
-
-procedure TForm2.Replace1Click(Sender: TObject);
-begin
- RichEditWB1.Replace;
-end;
-
-procedure TForm2.SetSelectionAsAHyperLink1Click(Sender: TObject);
-begin
- RichEditWB1.SetSelectionHyperlink(true);
-end;
-
-procedure TForm2.SetWordAsAHyperLink1Click(Sender: TObject);
-begin
- RichEditWB1.SetWordHyperlink(true);
-end;
-
-procedure TForm2.InsertFromImageList1Click(Sender: TObject);
-begin
- RunDemo();
-end;
-
-procedure TForm2.InsertFile1Click(Sender: TObject);
-begin
- if OpenDialog1.Execute then
- RichEditWB1.AddFile(OpenDialog1.FileName, true, true);
-end;
-
-procedure TForm2.InsertBitmap1Click(Sender: TObject);
-begin
- if OpenDialog1.Execute then
- RichEditWB1.AddFile(OpenDialog1.FileName, false, false);
-end;
-
-procedure TForm2.AddBullets1Click(Sender: TObject);
-begin
- RichEditWB1.AddBullets;
-end;
-
-procedure TForm2.AddRomanNumbers1Click(Sender: TObject);
-begin
- RichEditWB1.AddRomanNumbering;
-end;
-
-procedure TForm2.AddLineNumbers1Click(Sender: TObject);
-begin
- RichEditWB1.AddLineNumbering;
-end;
-
-procedure TForm2.AddAButton1Click(Sender: TObject);
-begin
- RichEditWB1.AddButton('bsalsa', 'btn', 20, 30, 130);
-end;
-
-procedure TForm2.AddTEditBox1Click(Sender: TObject);
-begin
- RichEditWB1.AddEditBox('bsalsa', 'edt', 20, 30, 80);
-end;
-
-procedure TForm2.AddACheckBox1Click(Sender: TObject);
-begin
- RichEditWB1.AddCheckBox(' bsalsa', 'cb', 20, 30, 170, true);
-end;
-
-procedure TForm2.AddARadioButton1Click(Sender: TObject);
-begin
- RichEditWB1.AddRadioButton('bsalsa', 'rb', 20, 30, 40, true);
-end;
-
-procedure TForm2.CreateASnapshot1Click(Sender: TObject);
-var
- image1: TImage;
-begin
- Image1 := Timage.Create(self);
- RichEditWB1.CreateSnapShot(Image1.Picture.Bitmap);
- Image1.Picture.SaveToFile('Image1');
- image1.free;
-end;
-
-procedure TForm2.DesignModeClick(Sender: TObject);
-begin
- if EmbeddedWB1.DesignMode then
- Statusbar2.Panels[1].Text := 'Design Mode';
-end;
-
-procedure TForm2.PreviewRichEditLinesInTheBrowser1Click(Sender: TObject);
-begin
- RichEditWB1.PreviewInBrowser;
-end;
-
-procedure TForm2.LoadCodeFromBrowserStream1Click(Sender: TObject);
-begin
- RichEditWB1.LoadStreamFromBrowser;
-end;
-
-procedure TForm2.MailSelectedText1Click(Sender: TObject);
-begin
- RichEditWB1.MailSelected;
-end;
-
-procedure TForm2.Mail1Click(Sender: TObject);
-begin
- RichEditWB1.MailContext;
-end;
-
-procedure TForm2.HighlighHTML1Click(Sender: TObject);
-begin
- RichEditWB1.LoadHTMLFromBrowser;
- if RichEditWB1.HighlightHTML then
- RichEditWB1.DoHighlightHTML;
- RichEditWB1.ScrollToTop;
-end;
-
-procedure TForm2.HighLightXML1Click(Sender: TObject);
-begin
- RichEditWB1.HighLightURL := false;
- EmbeddedWB1.Navigate('http://rss.groups.yahoo.com/group/delphi-webbrowser/rss');
- RichEditWB1.LoadAsCopyFromBrowser;
- if RichEditWB1.HighlightXML then
- RichEditWB1.DoHighlightXML;
-end;
-
-procedure TForm2.HighLightURL1Click(Sender: TObject);
-begin
- RichEditWB1.HighLightURL := True;
- EmbeddedWB1.ViewPageLinksToStrings(RichEditWB1.Lines);
- RichEditWB1.AddLineNumbering;
-end;
-
-procedure TForm2.SetColor1Click(Sender: TObject);
-begin
- RichEditWB1.SetColor;
-end;
-
-procedure TForm2.Themes1Click(Sender: TObject);
-begin
- RichEditWB1.SetThemes(tBlack);
-end;
-
-procedure TForm2.FormShow(Sender: TObject);
-begin
- EmbeddedWB1.Navigate('bsalsa.com');
-end;
-
-procedure TForm2.EmbeddedWB1CommandStateChange(ASender: TObject;
- Command: Integer; Enable: WordBool);
-begin
- if EmbeddedWB1.Modified then
- StatusBar2.Panels[2].Text := 'Modified';
-end;
-
-procedure TForm2.EmbeddedWB1StatusTextChange(ASender: TObject;
- const Text: WideString);
-begin
- StatusBar2.Panels[0].Text := Text;
-end;
-
-procedure TForm2.Exit1Click(Sender: TObject);
-begin
- Close;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/prjProject1Demo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/prjProject1Demo.dpr
deleted file mode 100644
index 90906a660ad9d6981d23cf5ce20b445c7884e47f..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/14 - RichEditWB_Demo/prjProject1Demo.dpr
+++ /dev/null
@@ -1,49 +0,0 @@
-//****************************************************
-// EwbRichEdit Demo *
-// *
-// *
-// By: *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-program prjProject1Demo;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form2};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm2, Form2);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.dfm
deleted file mode 100644
index 25859d20bc82c94a97b4ce177606a34f83c899b8..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.dfm
+++ /dev/null
@@ -1,189 +0,0 @@
-object Form1: TForm1
- Left = 304
- Top = 258
- Width = 854
- Height = 527
- Caption = 'Zones & Security Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 7
- Top = 413
- Width = 98
- Height = 13
- Caption = 'Current template:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 7
- Top = 434
- Width = 105
- Height = 13
- Caption = 'Minimum template:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 7
- Top = 456
- Width = 109
- Height = 13
- Caption = 'Recomm. template:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object StringGrid1: TStringGrid
- Left = 0
- Top = 0
- Width = 589
- Height = 397
- ColCount = 2
- DefaultColWidth = 265
- DefaultRowHeight = 16
- FixedCols = 0
- FixedRows = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
- ParentFont = False
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 118
- Top = 409
- Width = 297
- Height = 22
- BevelInner = bvLowered
- TabOrder = 1
- object CurrentImage: TImage
- Left = 5
- Top = 3
- Width = 16
- Height = 16
- end
- object CurrentDisplay: TLabel
- Left = 28
- Top = 5
- Width = 3
- Height = 13
- end
- end
- object Panel2: TPanel
- Left = 118
- Top = 431
- Width = 297
- Height = 22
- BevelInner = bvLowered
- TabOrder = 2
- object MinimumImage: TImage
- Left = 5
- Top = 3
- Width = 16
- Height = 16
- end
- object MinimumDisplay: TLabel
- Left = 28
- Top = 5
- Width = 3
- Height = 13
- end
- end
- object Panel3: TPanel
- Left = 118
- Top = 453
- Width = 297
- Height = 22
- BevelInner = bvLowered
- TabOrder = 3
- object RecommImage: TImage
- Left = 5
- Top = 3
- Width = 16
- Height = 16
- end
- object RecommDisplay: TLabel
- Left = 27
- Top = 5
- Width = 3
- Height = 13
- end
- end
- object Panel4: TPanel
- Left = 600
- Top = 0
- Width = 246
- Height = 493
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 4
- object Label2: TLabel
- Left = 11
- Top = 219
- Width = 204
- Height = 13
- Caption = 'Sites or urlpatterns added to selected zone:'
- end
- object Label4: TLabel
- Left = 13
- Top = 8
- Width = 176
- Height = 13
- Caption = 'Select an Urlzone from the list:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object MemoURLPatterns: TMemo
- Left = 11
- Top = 237
- Width = 221
- Height = 244
- ReadOnly = True
- TabOrder = 0
- end
- object ListView1: TListView
- Left = 11
- Top = 24
- Width = 220
- Height = 177
- Columns = <
- item
- AutoSize = True
- end>
- ReadOnly = True
- TabOrder = 1
- ViewStyle = vsReport
- OnSelectItem = ListView1SelectItem
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.pas
deleted file mode 100644
index 4e6001e31771fdd2fcf2c31bf3709ebab71e04a5..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/_ZoneDemo.pas
+++ /dev/null
@@ -1,248 +0,0 @@
-//*************************************************************
-// Zones & Security Demo *
-// *
-// For Delphi *
-// by *
-// Per Linds Larsen *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the demo under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit _ZoneDemo;
-
-interface
-
-uses
- Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, IEConst,
- Registry, ActiveX, SecurityManager, ShellApi, Imglist, Urlmon, StdCtrls,
- shdocvw_EWB, ComCtrls, OleCtrls, Grids, ExtCtrls;
-
-type
- TForm1 = class(TForm)
- StringGrid1: TStringGrid;
- Panel1: TPanel;
- Label1: TLabel;
- CurrentImage: TImage;
- CurrentDisplay: TLabel;
- Label3: TLabel;
- Panel2: TPanel;
- MinimumImage: TImage;
- MinimumDisplay: TLabel;
- Label6: TLabel;
- Panel3: TPanel;
- RecommImage: TImage;
- RecommDisplay: TLabel;
- Panel4: TPanel;
- MemoURLPatterns: TMemo;
- Label2: TLabel;
- Label4: TLabel;
- ListView1: TListView;
- procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
- Selected: Boolean);
- procedure FormDestroy(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.DFM}
-
-var
- ZoneManager: IInternetZoneManager;
- SecManager: IInternetSecurityManager;
- ZoneAttrib: TZoneAttributes;
- ZoneEnum: DWORD;
- ImageList: TImageList;
- MinimumIcon: TIcon;
- RecommIcon: TIcon;
- CurrentIcon: TIcon;
-
-procedure GetIcon(IconPath: string; var Icon: TIcon);
-var
- FName, ImageName: string;
- h: hInst;
-begin
- FName := Copy(IconPath, 1, Pos('#', IconPath) - 1);
- ImageName := Copy(IconPath, Pos('#', IconPath), Length(IconPath));
- h := LoadLibrary(Pchar(FName));
- try
- if h <> 0 then
- Icon.Handle := LoadImage(h, Pchar(ImageName), IMAGE_ICON, 16, 16, 0);
- finally
- FreeLibrary(h);
- end;
-end;
-
-procedure GetTemplateInfo(dwTemplate: DWORD; var IconPath: string; var DisplayName: string);
-const
- KEY_TEMPLATES_POLICIES = 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\TemplatePolicies\';
-var
- Reg: TRegistry;
- Template: string;
-begin
- Template := '';
- if dwTemplate = URLTEMPLATE_HIGH then
- Template := 'High'
- else
- if dwTemplate = URLTEMPLATE_MEDLOW then
- Template := 'MedLow'
- else
- if dwTemplate = URLTEMPLATE_LOW then
- Template := 'Low'
- else
- if dwTemplate = URLTEMPLATE_MEDIUM then
- Template := 'Medium';
- if Template <> '' then
- // We need to use the registry to get information about urltemplates
- begin
- Reg := TRegistry.Create;
- try
- Reg.RootKey := HKEY_LOCAL_MACHINE;
- Reg.OpenKey(KEY_TEMPLATES_POLICIES + Template, FALSE);
- IconPath := Reg.ReadString('Icon');
- DisplayName := Reg.ReadString('DisplayName');
- finally
- Reg.Free;
- end;
- end;
-end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-var
- Icon: TIcon;
- ListItem: TListItem;
- Zone, ZoneCounter, TotalZones: DWord;
-begin
- MinimumIcon := TIcon.Create;
- RecommIcon := TIcon.Create;
- CurrentIcon := TIcon.Create;
- ImageList := TImagelist.Create(self);
- ListView1.ViewStyle := vsReport;
- // Create instance of InternetSecurityManager
- CoInternetCreateSecuritymanager(nil, SecManager, 0);
- // Create instance of InternetSecurityZoneManager
- CoInternetCreateZoneManager(nil, ZoneManager, 0);
- // Enumerate securityzones
- ZoneManager.CreateZoneEnumerator(ZoneEnum, TotalZones, 0);
- Icon := TIcon.Create;
- try
- for ZoneCounter := 0 to Pred(TotalZones) do
- begin
- ZoneManager.GetZoneAt(ZoneEnum, ZoneCounter, Zone);
- // GetZoneAttributes retrieves icon and displaytext for the selected zone
- ZoneManager.GetZoneAttributes(Zone, ZoneAttrib);
- ListItem := Listview1.Items.Add;
- ListItem.Caption := ZoneAttrib.szDisplayname;
- Listitem.ImageIndex := ZoneCounter;
- if ZoneCounter = 0 then
- Listview1.Selected := listitem;
- GetIcon(ZoneAttrib.szIconPath, Icon);
- ImageList.AddIcon(Icon);
- end;
- finally
- Icon.Free;
- end;
- Listview1.SmallImages := Imagelist;
-end;
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- ImageList.Free;
- MinimumIcon.Free;
- RecommIcon.Free;
- CurrentIcon.Free;
- //Destroy the ZoneEnumerator
- ZoneManager.DestroyZoneEnumerator(ZoneEnum);
-end;
-
-procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
- Selected: Boolean);
-var
- DisplayName, IconPath: string;
- Row: Integer;
- cbPolicy, Counter, Policy: Dword;
- Enum: IEnumString;
- Fetched: UInt;
- Zone: DWord;
- Pattern: POleStr;
-begin
- Application.ProcessMessages;
- if selected then
- begin
- ZoneManager.GetZoneAt(ZoneEnum, Listview1.Items.IndexOf(Item), Zone);
- MemoURLPatterns.Lines.BeginUpdate;
- try
- MemoURLPatterns.Lines.Clear;
- //GetZoneMappings retrieve urlpatterns or sites added to the selected zone
- SecManager.GetZoneMappings(Zone, enum, 0);
- while Succeeded(Enum.Next(1, Pattern, @fetched)) and (fetched = 1) do
- MemoURLPatterns.lines.Add(Pattern);
- finally
- MemoURLPatterns.Lines.EndUpdate;
- end;
- Enum := nil;
- Pattern := nil;
- Row := 0;
- cbPolicy := SizeOf(dWord);
- //GetZoneActionPolicy retrieves Urlpolicy for the 25 default UrlActions in each template.
- for Counter := 0 to 24 do
- begin
- ZoneManager.GetZoneActionPolicy(Zone,
- DefaultActions[Counter], @policy, cbPolicy, 0);
- StringGrid1.RowCount := Row + 1;
- Stringgrid1.Cells[0, Row] := DisplayAction(DefaultActions[Counter]);
- Stringgrid1.Cells[1, Row] := DisplayPolicy(DefaultActions[Counter], Policy);
- Inc(Row);
- end;
- ZoneManager.GetZoneAttributes(Zone, ZoneAttrib);
- // If avaiable then get icon and displaytext for the urltemplate
- //Minimum urltemplate
- GetTemplateInfo(ZoneAttrib.dwTemplateMinLevel, IconPath, DisplayName);
- GetIcon(IconPath, MinimumIcon);
- MinimumImage.Picture.Icon := MinimumIcon;
- MinimumDisplay.Caption := Displayname;
- // Current Urltemplate
- GetTemplateInfo(ZoneAttrib.dwTemplateCurrentLevel, IconPath, DisplayName);
- GetIcon(IconPath, CurrentIcon);
- CurrentImage.Picture.Icon := CurrentIcon;
- CurrentDisplay.Caption := Displayname;
- //Recommended urltemplate
- GetTemplateInfo(ZoneAttrib.dwTemplateRecommended, IconPath, DisplayName);
- GetIcon(IconPath, RecommIcon);
- RecommImage.Picture.Icon := RecommIcon;
- recommDisplay.Caption := Displayname;
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/prjZonesSecurityDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/prjZonesSecurityDemo.dpr
deleted file mode 100644
index dd8ab8c77dc3e53013ccb0f8b43a17e5bd687b44..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/15 - Zones_Security_Demo/prjZonesSecurityDemo.dpr
+++ /dev/null
@@ -1,46 +0,0 @@
-//*************************************************************
-// Zones & Security Demo *
-// *
-// For Delphi *
-// by *
-// Per Linds Larsen *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the demo under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program prjZonesSecurityDemo;
-
-uses
- Forms,
- _ZoneDemo in '_ZoneDemo.pas' {Form1};
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/prjUIParser_Demo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/prjUIParser_Demo.dpr
deleted file mode 100644
index b83b084afb195793d274b9d6e5747b8a105e33d2..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/prjUIParser_Demo.dpr
+++ /dev/null
@@ -1,49 +0,0 @@
-//****************************************************
-// Extended IEParser Demo *
-// *
-// *
-// By: *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. [YOUR Name] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-program prjUIParser_Demo;
-
-uses
- Forms,
- utParser in 'utParser.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/utParser.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/utParser.dfm
deleted file mode 100644
index 6570402c8feae5eb2bbe88f50e0e83a29610b68b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/utParser.dfm
+++ /dev/null
@@ -1,195 +0,0 @@
-object Form1: TForm1
- Left = 314
- Top = 312
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Text IE Parser Demo'
- ClientHeight = 440
- ClientWidth = 688
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 688
- Height = 41
- Align = alTop
- TabOrder = 0
- object Go: TButton
- Left = 640
- Top = 11
- Width = 39
- Height = 22
- Caption = 'Go'
- TabOrder = 0
- OnClick = GoClick
- end
- object IEAddress1: TIEAddress
- Left = 8
- Top = 11
- Width = 627
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- ButtonColor = clBlack
- ButtonPressedColor = clBlack
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 1
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 404
- Width = 688
- Height = 19
- Panels = <
- item
- Width = 300
- end
- item
- Width = 50
- end>
- end
- object Panel2: TPanel
- Left = 0
- Top = 41
- Width = 688
- Height = 363
- Align = alClient
- TabOrder = 2
- object Label1: TLabel
- Left = 8
- Top = 6
- Width = 53
- Height = 13
- Caption = 'Anchor List'
- end
- object Label2: TLabel
- Left = 344
- Top = 6
- Width = 52
- Height = 13
- Caption = 'Links List'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 344
- Top = 193
- Width = 66
- Height = 13
- Caption = 'Images List'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object MemoLinkList: TMemo
- Left = 344
- Top = 20
- Width = 337
- Height = 166
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object MemoAnchorList: TRichEditWB
- Left = 1
- Top = 1
- Width = 337
- Height = 361
- Hint =
- 'File Name: Untitled. | '#10#13'Position: Line: 1 Col: 1. | '#10#13'Mod' +
- 'ified. | '#10#13'Caps Lock: Off. | '#10#13'NumLock: Off. | '#10#13'Insert: On. | '#10 +
- #13'Total Lines Count: 0. |'
- Align = alLeft
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ScrollBars = ssBoth
- ShowHint = True
- TabOrder = 1
- WordWrap = False
- AutoNavigate = True
- FileName = 'Untitled'
- HighlightHTML = True
- HighlightURL = True
- HighlightXML = True
- RTFText =
- '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}}'#13#10'{\colortbl ;\red0' +
- '\green0\blue0;}'#13#10'\viewkind4\uc1\pard\cf1\lang2055\f0\fs16\par'#13#10'}' +
- #13#10
- SupprtMoreThen64KB = False
- TextAlignment = taLeftJustify
- HideCaret = False
- Themes = tDefault
- end
- object MemoImageList: TRichEditWB
- Left = 344
- Top = 210
- Width = 337
- Height = 152
- Hint =
- 'File Name: Untitled. | '#10#13'Position: Line: 1 Col: 1. | '#10#13'Mod' +
- 'ified. | '#10#13'Caps Lock: Off. | '#10#13'NumLock: Off. | '#10#13'Insert: On. | '#10 +
- #13'Total Lines Count: 0. |'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ScrollBars = ssBoth
- ShowHint = True
- TabOrder = 2
- WordWrap = False
- AutoNavigate = True
- FileName = 'Untitled'
- HighlightHTML = True
- HighlightURL = True
- HighlightXML = True
- RTFText =
- '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}}'#13#10'{\colortbl ;\red0' +
- '\green0\blue0;}'#13#10'\viewkind4\uc1\pard\cf1\lang2055\f0\fs16\par'#13#10'}' +
- #13#10
- SupprtMoreThen64KB = False
- TextAlignment = taLeftJustify
- HideCaret = False
- Themes = tDefault
- end
- end
- object ProgressBar1: TProgressBar
- Left = 0
- Top = 423
- Width = 688
- Height = 17
- Align = alBottom
- TabOrder = 3
- end
- object UILess1: TUILess
- About = 'TUILess parser - Help & Support: http://www.bsalsa.com/'
- Left = 8
- Top = 56
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/utParser.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/utParser.pas
deleted file mode 100644
index 1c3cd7dde46b613ac7130672ee9a1308d452f51d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/16 - UI-Less_Demo/utParser.pas
+++ /dev/null
@@ -1,90 +0,0 @@
-//****************************************************
-// Extended IEParser Demo *
-// *
-// *
-// By: *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-unit utParser;
-
-interface
-
-uses
- IEAddress, ExtCtrls, ComCtrls, UI_Less, Controls, Classes, Forms, StdCtrls,
- RichEditBrowser, EwbUrl;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Go: TButton;
- IEAddress1: TIEAddress;
- StatusBar1: TStatusBar;
- UILess1: TUILess;
- Panel2: TPanel;
- MemoLinkList: TMemo;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- MemoAnchorList: TRichEditWB;
- MemoImageList: TRichEditWB;
- ProgressBar1: TProgressBar;
- procedure GoClick(Sender: TObject);
- private
- procedure ClearControls;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.ClearControls;
-begin
- MemoAnchorList.Clear;
- MemoImageList.Clear;
- MemoLinkList.Clear;
-end;
-
-procedure TForm1.GoClick(Sender: TObject);
-begin
- ClearControls;
- UILess1.Go(IEAddress1.Text);
- UILess1.GetAnchorList(MemoAnchorList.lines);
- UILess1.GetImageList(MemoImageList.lines);
- UILess1.GetLinkList(MemoLinkList.lines);
-end;
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/frmMain.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/frmMain.dfm
deleted file mode 100644
index 39b680aed33e00b6c544b7b61fde3a37a7d8a288..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/frmMain.dfm
+++ /dev/null
@@ -1,632 +0,0 @@
-object Form1: TForm1
- Left = 340
- Top = 295
- BorderStyle = bsSingle
- Caption = 'Url Demo'
- ClientHeight = 358
- ClientWidth = 553
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 553
- Height = 33
- Align = alTop
- TabOrder = 0
- object IEAddress1: TIEAddress
- Left = 0
- Top = 8
- Width = 549
- Height = 22
- About = 'TIEAddress. Help & Support: http://www.bsalsa.com/'
- IconLeft = 4
- IconTop = 3
- ItemHeight = 16
- ParentBiDiMode = True
- TabOrder = 0
- end
- end
- object PageControl2: TPageControl
- Left = 0
- Top = 33
- Width = 553
- Height = 325
- ActivePage = TabSheet1
- Align = alClient
- TabOrder = 1
- object TabSheet1: TTabSheet
- Caption = 'Parse Url'
- object Panel5: TPanel
- Left = 0
- Top = 39
- Width = 545
- Height = 258
- Align = alBottom
- TabOrder = 0
- object Label7: TLabel
- Left = 7
- Top = 6
- Width = 23
- Height = 13
- Caption = 'URL:'
- end
- object Label1: TLabel
- Left = 8
- Top = 33
- Width = 26
- Height = 13
- Caption = 'Host:'
- end
- object Label2: TLabel
- Left = 10
- Top = 79
- Width = 24
- Height = 13
- Caption = 'Port:'
- end
- object Label3: TLabel
- Left = 8
- Top = 125
- Width = 52
- Height = 13
- Caption = 'Document:'
- end
- object Label9: TLabel
- Left = 10
- Top = 171
- Width = 26
- Height = 13
- Caption = 'User:'
- end
- object Label5: TLabel
- Left = 272
- Top = 79
- Width = 43
- Height = 13
- Caption = 'Protocol:'
- end
- object Label6: TLabel
- Left = 272
- Top = 125
- Width = 50
- Height = 13
- Caption = 'Bookmark:'
- end
- object Label8: TLabel
- Left = 272
- Top = 171
- Width = 50
- Height = 13
- Caption = 'Password:'
- end
- object Label4: TLabel
- Left = 272
- Top = 33
- Width = 26
- Height = 13
- Caption = 'Path:'
- end
- object Label13: TLabel
- Left = 10
- Top = 215
- Width = 59
- Height = 13
- Caption = 'Parameters:'
- end
- object Label14: TLabel
- Left = 272
- Top = 217
- Width = 50
- Height = 13
- Caption = 'ExtraInfo:'
- end
- object edtURL: TEdit
- Left = 35
- Top = 6
- Width = 479
- Height = 21
- TabOrder = 0
- end
- object edtHost: TEdit
- Left = 8
- Top = 52
- Width = 258
- Height = 21
- TabOrder = 1
- end
- object edtPort: TEdit
- Left = 7
- Top = 98
- Width = 258
- Height = 21
- TabOrder = 2
- end
- object edtDocument: TEdit
- Left = 8
- Top = 144
- Width = 258
- Height = 21
- TabOrder = 3
- end
- object edtUser: TEdit
- Left = 10
- Top = 190
- Width = 256
- Height = 21
- TabOrder = 4
- end
- object edtPath: TEdit
- Left = 272
- Top = 52
- Width = 242
- Height = 21
- TabOrder = 5
- end
- object edtProtocol: TEdit
- Left = 271
- Top = 98
- Width = 243
- Height = 21
- TabOrder = 6
- end
- object edtBookmark: TEdit
- Left = 272
- Top = 144
- Width = 242
- Height = 21
- TabOrder = 7
- end
- object edtPass: TEdit
- Left = 272
- Top = 190
- Width = 242
- Height = 21
- TabOrder = 8
- end
- object edtParameters: TEdit
- Left = 10
- Top = 234
- Width = 256
- Height = 21
- TabOrder = 9
- end
- object edtExtraInfo: TEdit
- Left = 272
- Top = 234
- Width = 242
- Height = 21
- TabOrder = 10
- end
- end
- object Panel6: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 31
- Align = alTop
- TabOrder = 1
- object btnBuild: TButton
- Left = 358
- Top = 2
- Width = 75
- Height = 22
- Caption = 'Build Url'
- Enabled = False
- TabOrder = 0
- OnClick = btnBuildClick
- end
- object btnCreate: TButton
- Left = 439
- Top = 3
- Width = 75
- Height = 22
- Caption = 'Create Url'
- Enabled = False
- TabOrder = 1
- OnClick = btnCreateClick
- end
- object btnAnalize: TButton
- Left = 3
- Top = 3
- Width = 66
- Height = 22
- Caption = 'Analize Url'
- TabOrder = 2
- OnClick = btnAnalizeClick
- end
- object btnCrack: TButton
- Left = 75
- Top = 3
- Width = 67
- Height = 22
- Caption = 'Crack Url'
- TabOrder = 3
- OnClick = btnCrackClick
- end
- object cbCrack: TCheckBox
- Left = 149
- Top = 6
- Width = 111
- Height = 17
- Caption = 'ICU_DECODE'
- TabOrder = 4
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Url Utils'
- ImageIndex = 1
- object Panel2: TPanel
- Left = 0
- Top = 200
- Width = 545
- Height = 72
- Align = alTop
- TabOrder = 0
- object Label12: TLabel
- Left = 109
- Top = 14
- Width = 93
- Height = 13
- Caption = 'String To Compare:'
- end
- object Button2: TButton
- Left = 8
- Top = 8
- Width = 75
- Height = 21
- Caption = 'Compare Url'
- TabOrder = 0
- OnClick = Button2Click
- end
- object edtComp1: TEdit
- Left = 109
- Top = 33
- Width = 411
- Height = 21
- TabOrder = 1
- Text = 'http://www.bsalsa.com/forum/'
- end
- object edtResult: TEdit
- Left = 10
- Top = 35
- Width = 73
- Height = 21
- TabOrder = 2
- Text = 'Result:'
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 105
- Align = alTop
- TabOrder = 1
- object btnCan: TButton
- Left = 8
- Top = 9
- Width = 89
- Height = 25
- Caption = 'Canonicalize Url'
- TabOrder = 0
- OnClick = btnCanClick
- end
- object edtCan: TEdit
- Left = 8
- Top = 40
- Width = 512
- Height = 21
- TabOrder = 1
- Text = 'http://www.bsalsa.com/downloads/demo folder.html?option=test'
- end
- object edtCano: TEdit
- Left = 8
- Top = 67
- Width = 512
- Height = 21
- TabOrder = 2
- end
- object cbCFlag: TCheckBox
- Left = 105
- Top = 13
- Width = 114
- Height = 17
- Caption = ' ICU_NO_ENCODE'
- TabOrder = 3
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 105
- Width = 545
- Height = 95
- Align = alTop
- TabOrder = 2
- object Label10: TLabel
- Left = 352
- Top = 8
- Width = 55
- Height = 13
- Caption = 'Reletive Url'
- end
- object Label11: TLabel
- Left = 206
- Top = 6
- Width = 39
- Height = 13
- Caption = 'Base Url'
- end
- object btnCombine: TButton
- Left = 8
- Top = 6
- Width = 75
- Height = 25
- Caption = 'Combine Url'
- TabOrder = 0
- OnClick = btnCombineClick
- end
- object edtCombine: TEdit
- Left = 8
- Top = 68
- Width = 513
- Height = 21
- TabOrder = 1
- end
- object edtReletive: TEdit
- Left = 352
- Top = 25
- Width = 169
- Height = 21
- TabOrder = 2
- Text = 'downloads/demo folder.html?option=test'
- end
- object edtBase: TEdit
- Left = 206
- Top = 25
- Width = 140
- Height = 21
- TabOrder = 3
- Text = ' http://www.bsalsa.com/'
- end
- object cbFlag: TCheckBox
- Left = 10
- Top = 37
- Width = 111
- Height = 17
- Caption = ' ICU_NO_ENCODE'
- TabOrder = 4
- end
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Url / Server'
- ImageIndex = 2
- object Panel7: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 297
- Align = alClient
- TabOrder = 0
- object Label15: TLabel
- Left = 8
- Top = 12
- Width = 499
- Height = 23
- Caption = 'Note: Every server OS supports different properties!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label16: TLabel
- Left = 8
- Top = 41
- Width = 119
- Height = 13
- Caption = 'For avaliable flags go to:'
- end
- object LinkLabel1: TLinkLabel
- Left = 133
- Top = 41
- Width = 109
- Height = 29
- AutoSize = False
- Launch.AsHttp.Address = 'http://msdn2.microsoft.com/en-us/library/aa385351.aspx'
- Caption = 'Query HttpQueryFlags'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- Transparent = True
- end
- object btnValid: TButton
- Left = 8
- Top = 192
- Width = 72
- Height = 23
- Caption = 'Valid Url'
- TabOrder = 0
- OnClick = btnValidClick
- end
- object btnSize: TButton
- Left = 86
- Top = 192
- Width = 72
- Height = 23
- Caption = 'Url File Size'
- TabOrder = 1
- OnClick = btnSizeClick
- end
- object btnProtocol: TButton
- Left = 8
- Top = 163
- Width = 72
- Height = 23
- Caption = 'Protocol'
- TabOrder = 2
- OnClick = btnProtocolClick
- end
- object EdtRes: TEdit
- Left = 8
- Top = 251
- Width = 150
- Height = 21
- TabOrder = 3
- end
- object btnCharSet: TButton
- Left = 8
- Top = 221
- Width = 72
- Height = 23
- Caption = 'Charset'
- TabOrder = 4
- OnClick = btnCharSetClick
- end
- object btnEntity: TButton
- Left = 86
- Top = 221
- Width = 72
- Height = 23
- Caption = 'EntityTag'
- TabOrder = 5
- OnClick = btnEntityClick
- end
- object btnServer: TButton
- Left = 86
- Top = 134
- Width = 72
- Height = 23
- Caption = 'Server'
- TabOrder = 6
- OnClick = btnServerClick
- end
- object btnStatusCode: TButton
- Left = 8
- Top = 134
- Width = 72
- Height = 23
- Caption = 'Status Code'
- TabOrder = 7
- OnClick = btnStatusCodeClick
- end
- object btnModified: TButton
- Left = 8
- Top = 105
- Width = 72
- Height = 23
- Caption = 'Modified'
- TabOrder = 8
- OnClick = btnModifiedClick
- end
- object btnUrlDate: TButton
- Left = 86
- Top = 105
- Width = 72
- Height = 23
- Caption = 'Url Date'
- TabOrder = 9
- OnClick = btnUrlDateClick
- end
- object btnUrlType: TButton
- Left = 86
- Top = 163
- Width = 72
- Height = 23
- Caption = 'Url Type'
- TabOrder = 10
- OnClick = btnUrlTypeClick
- end
- object Memo1: TMemo
- Left = 164
- Top = 104
- Width = 365
- Height = 169
- ScrollBars = ssBoth
- TabOrder = 11
- end
- object btnDetails: TButton
- Left = 375
- Top = 73
- Width = 73
- Height = 23
- Caption = 'Details'
- TabOrder = 12
- OnClick = btnDetailsClick
- end
- object btnQueryAll: TButton
- Left = 454
- Top = 73
- Width = 75
- Height = 23
- Caption = 'Query All'
- TabOrder = 13
- OnClick = btnQueryAllClick
- end
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Url Preview'
- ImageIndex = 3
- object Memo2: TMemo
- Left = 0
- Top = 41
- Width = 545
- Height = 256
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object Panel8: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 41
- Align = alTop
- TabOrder = 1
- object btnRead: TButton
- Left = 0
- Top = 10
- Width = 75
- Height = 25
- Caption = 'Read File'
- TabOrder = 0
- OnClick = btnReadClick
- end
- object btnCache: TButton
- Left = 81
- Top = 10
- Width = 75
- Height = 25
- Caption = 'Is Url Cached'
- TabOrder = 1
- OnClick = btnCacheClick
- end
- object edtCache: TEdit
- Left = 162
- Top = 14
- Width = 121
- Height = 21
- TabOrder = 2
- end
- end
- end
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/frmMain.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/frmMain.pas
deleted file mode 100644
index 102f5602fd13bfe3b1582015dffcfdb876451e9c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/frmMain.pas
+++ /dev/null
@@ -1,342 +0,0 @@
-//***********************************************************
-// URL Tools demo *
-// (Uniform Resource identifier) *
-// *
-// For Delphi 5 - 2009 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit frmMain;
-
-interface
-
-uses
- EwbUrl, SysUtils, StdCtrls, Forms, IEAddress, ExtCtrls,
- IEConst, WinInet, Classes, Controls, Windows, ComCtrls, LinkLabel;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- IEAddress1: TIEAddress;
- PageControl2: TPageControl;
- TabSheet1: TTabSheet;
- TabSheet2: TTabSheet;
- Panel5: TPanel;
- Label7: TLabel;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Label9: TLabel;
- Label5: TLabel;
- Label6: TLabel;
- Label8: TLabel;
- Label4: TLabel;
- Label13: TLabel;
- Label14: TLabel;
- edtURL: TEdit;
- edtHost: TEdit;
- edtPort: TEdit;
- edtDocument: TEdit;
- edtUser: TEdit;
- edtPath: TEdit;
- edtProtocol: TEdit;
- edtBookmark: TEdit;
- edtPass: TEdit;
- edtParameters: TEdit;
- edtExtraInfo: TEdit;
- Panel2: TPanel;
- Label12: TLabel;
- Button2: TButton;
- edtComp1: TEdit;
- edtResult: TEdit;
- Panel4: TPanel;
- btnCan: TButton;
- edtCan: TEdit;
- edtCano: TEdit;
- cbCFlag: TCheckBox;
- Panel3: TPanel;
- Label10: TLabel;
- Label11: TLabel;
- btnCombine: TButton;
- edtCombine: TEdit;
- edtReletive: TEdit;
- edtBase: TEdit;
- cbFlag: TCheckBox;
- TabSheet3: TTabSheet;
- Panel7: TPanel;
- btnValid: TButton;
- btnSize: TButton;
- btnProtocol: TButton;
- Panel6: TPanel;
- btnBuild: TButton;
- btnCreate: TButton;
- btnAnalize: TButton;
- btnCrack: TButton;
- cbCrack: TCheckBox;
- EdtRes: TEdit;
- btnCharSet: TButton;
- btnEntity: TButton;
- btnServer: TButton;
- btnStatusCode: TButton;
- btnModified: TButton;
- btnUrlDate: TButton;
- btnUrlType: TButton;
- Memo1: TMemo;
- btnDetails: TButton;
- Label15: TLabel;
- btnQueryAll: TButton;
- Label16: TLabel;
- LinkLabel1: TLinkLabel;
- TabSheet4: TTabSheet;
- Memo2: TMemo;
- Panel8: TPanel;
- btnRead: TButton;
- btnCache: TButton;
- edtCache: TEdit;
- procedure btnCacheClick(Sender: TObject);
- procedure btnReadClick(Sender: TObject);
- procedure btnQueryAllClick(Sender: TObject);
- procedure btnDetailsClick(Sender: TObject);
- procedure btnUrlTypeClick(Sender: TObject);
- procedure btnModifiedClick(Sender: TObject);
- procedure btnUrlDateClick(Sender: TObject);
- procedure btnStatusCodeClick(Sender: TObject);
- procedure btnServerClick(Sender: TObject);
- procedure btnEntityClick(Sender: TObject);
- procedure btnCharSetClick(Sender: TObject);
- procedure btnLangClick(Sender: TObject);
- procedure btnProtocolClick(Sender: TObject);
- procedure btnSizeClick(Sender: TObject);
- procedure btnValidClick(Sender: TObject);
- procedure btnBuildClick(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure btnCreateClick(Sender: TObject);
- procedure btnCanClick(Sender: TObject);
- procedure btnCombineClick(Sender: TObject);
- procedure btnCrackClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure btnAnalizeClick(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- private
- procedure InsertData;
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
- UP: TUrl;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- UP := TUrl.Create(IEAddress1.Text);
-end;
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- UP.Free;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-begin
- IEAddress1.Text := 'http://username:password@hostname:port/path/document.html#bookmark';
-end;
-
-procedure TForm1.InsertData;
-begin
- edtUrl.Text := UP.Url;
- edtDocument.Text := UP.Document;
- edtProtocol.Text := UP.Protocol;
- edtPort.Text := IntToStr(UP.Port);
- edtPath.Text := UP.UrlPath;
- edtHost.Text := UP.HostName;
- edtExtraInfo.Text := UP.ExtraInfo;
- edtPass.Text := UP.Password;
- edtUser.Text := UP.UserName;
- edtParameters.Text := UP.Parameters;
- edtBookmark.Text := UP.Bookmark;
-end;
-
-procedure TForm1.btnAnalizeClick(Sender: TObject);
-begin
- UP.QueryUrl(IEAddress1.Text);
- InsertData;
- btnCreate.Enabled := True;
- btnBuild.Enabled := True;
-end;
-
-procedure TForm1.btnCrackClick(Sender: TObject);
-begin
- if cbCrack.Checked then
- edtUrl.Text := UP.CrackUrl(IEAddress1.Text, ICU_DECODE)
- else
- edtUrl.Text := UP.CrackUrl(IEAddress1.Text, ICU_ESCAPE);
-
- InsertData;
- btnCreate.Enabled := True;
- btnBuild.Enabled := True;
-end;
-
-procedure TForm1.btnCreateClick(Sender: TObject);
-begin
- edtUrl.Text := Up.CreateUrl(ICU_USERNAME);
-end;
-
-procedure TForm1.btnCharSetClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlCharset(IEAddress1.Text);
-end;
-
-procedure TForm1.btnLangClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlServer(IEAddress1.Text);
-end;
-
-procedure TForm1.btnModifiedClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlLastModified(IEAddress1.Text);
-end;
-
-procedure TForm1.btnValidClick(Sender: TObject);
-begin
- if Up.IsUrlValid(IEAddress1.Text) then
- edtRes.Text := 'A valid url'
- else
- edtRes.Text := 'Not a valid url!'
-end;
-
-procedure TForm1.btnSizeClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlSize(IEAddress1.Text);
-end;
-
-procedure TForm1.btnStatusCodeClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlStatusCode(IEAddress1.Text);
-end;
-
-procedure TForm1.btnServerClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlServer(IEAddress1.Text);
-end;
-
-procedure TForm1.btnUrlDateClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlDate(IEAddress1.Text);
-end;
-
-procedure TForm1.btnUrlTypeClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlType(IEAddress1.Text);
-end;
-
-procedure TForm1.btnEntityClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlEntityTag(IEAddress1.Text);
-end;
-
-procedure TForm1.btnProtocolClick(Sender: TObject);
-begin
- edtRes.Text := Up.GetUrlProtocolVersion(IEAddress1.Text);
-end;
-
-procedure TForm1.btnQueryAllClick(Sender: TObject);
-var
- i: Integer;
- st: string;
-begin
- for i := 1 to 75 do
- begin
- st := (UP.QueryInfo(IEAddress1.Text, i));
- if st <> '' then
- begin
- Memo1.Lines.Add('Flag' + '# ' + IntToStr(i) + ': ');
- Memo1.Lines.Add(st);
- end;
- end;
-end;
-
-procedure TForm1.btnReadClick(Sender: TObject);
-begin
- Memo2.Lines.Add(UP.ReadFile(IEAddress1.Text, 50));
-end;
-
-procedure TForm1.btnDetailsClick(Sender: TObject);
-var
- st: string;
-begin
- st := UP.GetUrlServerDetails(IEAddress1.Text);
- if Trim(st) <> '' then
- Memo1.Lines.Add(st);
-end;
-
-procedure TForm1.btnCacheClick(Sender: TObject);
-begin
- if Up.isUrlCached(IEAddress1.Text) then
- edtCache.Text := 'Url is Cached.'
- else
- edtCache.Text := 'Url is not Cached.'
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- if Up.CompareUrl(IEAddress1.Text, edtComp1.Text) = S_OK then
- edtResult.Text := 'Equal'
- else
- edtResult.Text := 'Not Equal'
-end;
-
-procedure TForm1.btnBuildClick(Sender: TObject);
-begin
- edtUrl.Text := Up.BuildUrl;
-end;
-
-procedure TForm1.btnCanClick(Sender: TObject);
-begin
- if cbCFlag.Checked then
- edtCano.Text := UP.CanonicalizeUrl(edtCan.Text, ICU_NO_ENCODE)
- else
- edtCano.Text := UP.CanonicalizeUrl(edtCan.Text, ICU_DECODE);
-end;
-
-procedure TForm1.btnCombineClick(Sender: TObject);
-begin
- if cbFlag.Checked then
- edtCombine.Text := UP.CombineUrl(edtBase.Text, edtReletive.Text, ICU_DECODE)
- else
- edtCombine.Text := UP.CombineUrl(edtBase.Text, edtReletive.Text, ICU_NO_ENCODE);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/prjMainDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/prjMainDemo.dpr
deleted file mode 100644
index c9a40d1ac32cc4c39881716fcf41c97411ede098..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/17 - URL_Demo/prjMainDemo.dpr
+++ /dev/null
@@ -1,46 +0,0 @@
-//***********************************************************
-// URL Tools demo *
-// (Uniform Resource identifier) *
-// *
-// For Delphi 5,6, 7 , 2005, 2006 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-program prjMainDemo;
-
-uses
- Forms,
- frmMain in 'frmMain.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.dfm
deleted file mode 100644
index eb372a369ac142873a502d084bd0f3972adc51dc..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.dfm
+++ /dev/null
@@ -1,127 +0,0 @@
-object Form1: TForm1
- Left = 87
- Top = 121
- Width = 836
- Height = 511
- Caption = 'TUrlHistory Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 480
- Top = 397
- Width = 25
- Height = 13
- Caption = 'Filter:'
- end
- object Label2: TLabel
- Left = 232
- Top = 376
- Width = 36
- Height = 13
- Caption = 'Sort by:'
- end
- object StringGrid1: TStringGrid
- Left = 0
- Top = 37
- Width = 820
- Height = 404
- Align = alClient
- DefaultColWidth = 75
- DefaultRowHeight = 16
- FixedCols = 0
- TabOrder = 0
- ColWidths = (
- 114
- 234
- 222
- 112
- 107)
- end
- object Panel1: TPanel
- Left = 0
- Top = 441
- Width = 820
- Height = 34
- Align = alBottom
- TabOrder = 1
- object CheckBox1: TCheckBox
- Left = 675
- Top = 10
- Width = 137
- Height = 15
- Alignment = taLeftJustify
- Caption = 'Only sites visited today'
- TabOrder = 0
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 820
- Height = 37
- Align = alTop
- TabOrder = 2
- object Label4: TLabel
- Left = 604
- Top = 11
- Width = 33
- Height = 13
- Caption = 'Sort by'
- end
- object Label3: TLabel
- Left = 8
- Top = 12
- Width = 58
- Height = 13
- Caption = 'Search Text'
- end
- object ComboSortBy: TComboBox
- Left = 648
- Top = 8
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- Items.Strings = (
- 'Last visted'
- 'Title'
- 'Url'
- 'Last updated'
- 'Expires')
- end
- object Button1: TButton
- Left = 245
- Top = 6
- Width = 153
- Height = 25
- Caption = 'Enumerate !'
- TabOrder = 1
- OnClick = Button1Click
- end
- object edSearchText: TEdit
- Left = 80
- Top = 8
- Width = 153
- Height = 21
- TabOrder = 2
- end
- end
- object UrlHistory1: TUrlHistory
- OnAccept = UrlHistory1Accept
- SortField = sfLastVisited
- SearchField = seBoth
- SortDirection = sdAscending
- Left = 40
- Top = 136
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.pas
deleted file mode 100644
index 7377ac5ae828956db01cdfeb9cccdc97d7a406a9..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/UrlhistoryDemo_U.pas
+++ /dev/null
@@ -1,122 +0,0 @@
-//***********************************************************
-// URL History demo *
-// *
-// For Delphi 5 - 2009 *
-// Freeware demo *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit UrlhistoryDemo_U;
-
-interface
-
-uses
- Windows, Messages, EwbAcc, SysUtils, Forms, StdCtrls, Grids, UrlHistory,
- Controls, Classes, ExtCtrls;
-
-type
- TForm1 = class(TForm)
- StringGrid1: TStringGrid;
- Label1: TLabel;
- Label2: TLabel;
- Panel1: TPanel;
- UrlHistory1: TUrlHistory;
- CheckBox1: TCheckBox;
- Panel2: TPanel;
- ComboSortBy: TComboBox;
- Label4: TLabel;
- Button1: TButton;
- Label3: TLabel;
- edSearchText: TEdit;
- procedure Button1Click(Sender: TObject);
- procedure UrlHistory1Accept(Title, Url: string; LastVisited,
- LastUpdated, Expires: TDateTime; var Accept: Boolean);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.DFM}
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- iTotalURLs: Integer;
- iRow: Integer;
-begin
- with UrlHistory1 do begin
- case ComboSortBy.ItemIndex of
- 0: SortField := sfLastvisited;
- 1: SortField := sfTitle;
- 2: SortField := sfUrl;
- 3: SortField := sfLastUpdated;
- 4: SortField := sfExpires;
- end;
- end;
-
- with StringGrid1 do
- begin
- Perform(WM_SETREDRAW, 0, 0); // prevent updating
- RowCount := 2;
- try
- UrlHistory1.Search := edSearchText.text;
- Cells[0, 0] := 'Last Visited';
- Cells[1, 0] := 'Title';
- Cells[2, 0] := 'Url';
- Cells[3, 0] := 'Last Updated';
- Cells[4, 0] := 'Expires';
-
- iTotalURLs := UrlHistory1.Enumerate;
- for iRow := 0 to iTotalURLs - 1 do
- begin
- RowCount := iRow + 2;
- Cells[0, iRow + 1] := DateTimeToStr(PEntry(Urlhistory1.Items[iRow]).LastVisited);
- Cells[1, iRow + 1] := PEntry(Urlhistory1.Items[iRow]).Title;
- Cells[2, iRow + 1] := PEntry(Urlhistory1.Items[iRow]).Url;
- Cells[3, iRow + 1] := DateTimeToStr(PEntry(Urlhistory1.Items[iRow]).LastUpdated);
- Cells[4, iRow + 1] := DateTimeToStr(PEntry(Urlhistory1.Items[iRow]).Expires);
- end;
- finally
- Perform(WM_SETREDRAW, 1, 0);
- Invalidate;
- end;
- end;
-end;
-
-procedure TForm1.UrlHistory1Accept(Title, Url: string; LastVisited,
- LastUpdated, Expires: TDateTime; var Accept: Boolean);
-begin
- if Checkbox1.checked and (LastVisited < Now - 1) then Accept := False;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/prjUrlHistoryDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/prjUrlHistoryDemo.dpr
deleted file mode 100644
index 81105be88694b253b54f1693ee3bb65d69e199ce..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/18 - URL_History_Demo/prjUrlHistoryDemo.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-//***********************************************************
-// URL History demo *
-// *
-// For Delphi 5,6, 7 , 2005, 2006 *
-// Freeware demo *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-program prjUrlhistoryDemo;
-
-uses
- Forms,
- UrlhistoryDemo_U in 'UrlhistoryDemo_U.pas' {Form1};
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/Searchhook.tlb b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/Searchhook.tlb
deleted file mode 100644
index 52b7b8df5e8af7e1b0fd4a6722cff70d727abfbe..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/Searchhook.tlb and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/Searchhook_TLB.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/Searchhook_TLB.pas
deleted file mode 100644
index 0ad9280ca98732fa8380f7ec13fdc5a12b12a7ec..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/Searchhook_TLB.pas
+++ /dev/null
@@ -1,54 +0,0 @@
-unit Searchhook_TLB;
-
-// ************************************************************************ //
-// WARNING
-// -------
-// The types declared in this file were generated from data read from a
-// Type Library. If this type library is explicitly or indirectly (via
-// another type library referring to this type library) re-imported, or the
-// 'Refresh' command of the Type Library Editor activated while editing the
-// Type Library, the contents of this file will be regenerated and all
-// manual modifications will be lost.
-// ************************************************************************ //
-
-// $Rev: 5081 $
-// File generated on 18.04.2009 17:26:27 from Type Library described below.
-
-// ************************************************************************ //
-// Type Lib: C:\Programme\Borland\Delphi6\Lib2\EmbeddedWB\Demos\Various Demos\19 - URLSearchHook\Searchhook.tlb (1)
-// LIBID: {F2907014-0B20-4BF9-9CD0-A49A96BDA0C0}
-// LCID: 0
-// Helpfile:
-// HelpString: Searchhook Library
-// DepndLst:
-// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
-// ************************************************************************ //
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
-{$WARN SYMBOL_PLATFORM OFF}
-{$WRITEABLECONST ON}
-{$VARPROPSETTER ON}
-interface
-
-uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
-
-
-// *********************************************************************//
-// GUIDS declared in the TypeLibrary. Following prefixes are used:
-// Type Libraries : LIBID_xxxx
-// CoClasses : CLASS_xxxx
-// DISPInterfaces : DIID_xxxx
-// Non-DISP interfaces: IID_xxxx
-// *********************************************************************//
-const
- // TypeLibrary Major and minor versions
- SearchhookMajorVersion = 1;
- SearchhookMinorVersion = 0;
-
- LIBID_Searchhook: TGUID = '{F2907014-0B20-4BF9-9CD0-A49A96BDA0C0}';
-
-
-implementation
-
-uses ComObj;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/_SearchHook.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/_SearchHook.pas
deleted file mode 100644
index c14675e0ed7d97426b759257ec8476aa2984221e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/_SearchHook.pas
+++ /dev/null
@@ -1,147 +0,0 @@
-//***********************************************************
-// UrlSearchHook Demo (June 1, 2000) *
-// *
-// ver. 1.0 *
-// *
-// For Delphi 5 - 2009 *
-// *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.dk *
-// *
-// *
-// *
-// Updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-
-unit _SearchHook;
-
-interface
-
-uses
- Registry, SysUtils, Windows, ActiveX, Classes, ComObj, Shlobj;
-
-type
-
- TUrlSearchFactory = class(TComObjectFactory)
- private
- procedure AddKeys;
- procedure RemoveKeys;
- public
- procedure UpdateRegistry(Register: Boolean); override;
- end;
-
- TUrlSearch = class(TComObject, IUrlSearchHook)
- protected
- function Translate(lpwszSearchURL: PWideChar; cchBufferSize: DWORD): HResult; stdcall;
- end;
-
-const
- Class_UrlSearch: TGUID = '{A4E833A2-3633-11D4-8689-444553540000}';
-//Create your own unique identifier - in Delphi IDE: Ctrl-Shift-G
-
-
- {DE}DejaNews = 'http://www.deja.com/[ST_rn=ps]/qs.xp?ST=PS&svcclass=dnyr&QRY=%s&defaultOp=AND&DBS=1&OP=dnquery.xp&LNG=ALL&subjects=&groups=&authors=&fromdate=&todate=&showsort=score&maxhits=25';
- {AL}AltaVista = 'http://www.altavista.com/cgi-bin/query?pg=q&sc=on&hl=on&act=2006&par=0&q=%s&kl=XX&stype=stext';
- {YA}Yahoo = 'http://search.yahoo.com/bin/search?p=%s';
- {LY}Lycos = 'http://www-english.lycos.com/srch/?lpv=1&loc=searchhp&query=%s';
- {MI}Microsoft = 'http://search.microsoft.com/us/SearchMS.asp?so=RECCNT&qu=%s&boolean=ALL&intCat=0&intCat=1&intCat=2&intCat=3&intCat=4&intCat=5&intCat=6&intCat=7&intCat=8&intCat=9&p=1&nq=NEW&LOC=';
- {ME}Mers = 'http://www.mers.com/cgi-bin/srchcgi.exe/EXECSEARCH?pageno=1&linktype=search&searchtext=%s&grouptext=';
-
-
-implementation
-
-uses ComServ;
-
-
-
-function TUrlSearch.Translate(lpwszSearchURL: PWideChar;
- cchBufferSize: DWORD): HResult;
-(*
-Called by the browser when the browser cannot determine the protocol of a URL address.
-
-lpwszSearchURL: Address of a wide character buffer that, on entry, contains the
- URL address for which the browser is trying to determine the
- protocol. On exit, this buffer contains the modified URL address
- if the method was successful. See the return value for more information.
-cchBufferSize: Size, in characters, of the buffer at lpwszSearchURL.
-*)
-var
- Header, S: string;
-begin
- Result := E_FAIL;
- S := lpwszSearchUrl;
- Header := Uppercase(Copy(s, 1, 3));
- S := Copy(S, 4, Length(S));
- S := Trim(s);
- S := StringReplace(S, ' ', '+', [rfReplaceAll]);
- if Header = 'DE ' then S := format(DejaNews, [S]) else
- if Header = 'AL ' then S := format(Altavista, [S]) else
- if Header = 'YA ' then S := format(Yahoo, [S]) else
- if Header = 'LY ' then S := format(Lycos, [S]) else
- if Header = 'MI ' then S := format(Microsoft, [S]) else
- if Header = 'ME ' then S := format(Mers, [S]) else Exit;
- StringToWideChar(S, lpwszSearchUrl, (length(S) + 1) * 2);
- Result := S_OK;
-
-(* Return Values:
-S_OK: The URL address was completely translated. The lpwszSearchURL parameter
- contains the full URL address. The browser will not call any other URL
- Search Hooks and will attempt to browse to the modified address.
-S_FALSE The URL address has been partially processed, but further translation
- is still required. The lpwszSearchURL parameter contains the result of
- the processing. The browser will continue executing the rest of the URL
- Search Hooks.
-E_FAIL: The URL address was not translated. The lpwszSearchURL parameter has
- not been modified. The browser will continue executing the rest of the
- URL Search Hooks.
-*)
-end;
-
-
-procedure TUrlSearchFactory.UpdateRegistry(Register: Boolean);
-begin
- inherited UpdateRegistry(Register);
- if Register then AddKeys else RemoveKeys;
-end;
-
-procedure TUrlSearchFactory.AddKeys;
-var S: string;
-begin
- S := GUIDToString(CLASS_UrlSearch);
- with TRegistry.Create do
- try
- if OpenKey('SOFTWARE\Microsoft\Internet Explorer\UrlSearchHooks', True) then
- begin
- WriteString(S, '');
- CloseKey;
- end;
- finally
- Free;
- end;
-end;
-
-procedure TUrlSearchFactory.RemoveKeys;
-var S: string;
-begin
- S := GUIDToString(CLASS_URLSEARCH);
- with TRegistry.Create do
- try
- OpenKey('Software\Microsoft\Internet Explorer\UrlSearchHooks', TRUE);
- DeleteValue(s);
- CloseKey;
- finally
- Free;
- end;
-end;
-
-initialization
- OleInitialize(nil);
- TUrlSearchFactory.Create(ComServer, TUrlSearch, CLASS_UrlSearch, 'UrlSearch', 'UrlSearch', ciMultiInstance);
-
-finalization
- OleUninitialize;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.dpr
deleted file mode 100644
index 6d4c0e05f0c787e5cd9e1506d2a28e38119f5775..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.dpr
+++ /dev/null
@@ -1,23 +0,0 @@
-library prjSearchhookDemo;
-
-uses
- SysUtils,
- Classes,
- _SearchHook in '_SearchHook.pas',
- comserv,
- Searchhook_TLB in 'Searchhook_TLB.pas',
- prjSearchhookDemo_TLB in 'prjSearchhookDemo_TLB.pas';
-
-exports
- DllGetClassObject,
- DllCanUnloadNow,
- DllRegisterServer,
- DllUnregisterServer;
-
-
-{$R *.TLB}
-
-{$R *.RES}
-
-begin
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.ridl b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.ridl
deleted file mode 100644
index bc971941d485bf5ca9ab6c780124642071637b27..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.ridl
+++ /dev/null
@@ -1,24 +0,0 @@
-// ************************************************************************ //
-// WARNING
-// -------
-// This file is generated by the Type Library importer or Type Libary Editor.
-// Barring syntax errors, the Editor will parse modifications made to the file.
-// However, when applying changes via the Editor this file will be regenerated
-// and comments or formatting changes will be lost.
-// ************************************************************************ //
-// File generated on 27.08.2009 08:00:55 (- $Rev: 12980 $, 177068747).
-
-[
- uuid(910B8565-9B71-4CAE-8F4B-654E46CB069D),
- version(1.0),
- helpstring("prjSearchhookDemo Library")
-
-]
-library prjSearchhookDemo
-{
-
- importlib("stdole2.tlb");
-
-
-
-};
\ No newline at end of file
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.tlb b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.tlb
deleted file mode 100644
index f8abc764b632576136480f2f092a7ec0bb56bd77..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo.tlb and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo_TLB.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo_TLB.pas
deleted file mode 100644
index 22a3cbef63697e2ec5a09995c46f301124c84c0b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/19 - URLSearchHook/prjSearchhookDemo_TLB.pas
+++ /dev/null
@@ -1,54 +0,0 @@
-unit prjSearchhookDemo_TLB;
-
-// ************************************************************************ //
-// WARNING
-// -------
-// The types declared in this file were generated from data read from a
-// Type Library. If this type library is explicitly or indirectly (via
-// another type library referring to this type library) re-imported, or the
-// 'Refresh' command of the Type Library Editor activated while editing the
-// Type Library, the contents of this file will be regenerated and all
-// manual modifications will be lost.
-// ************************************************************************ //
-
-// PASTLWTR : 1.2
-// File generated on 18.04.2009 17:28:33 from Type Library described below.
-
-// ************************************************************************ //
-// Type Lib: C:\Programme\Borland\Delphi6\Lib2\EmbeddedWB\Demos\Various Demos\19 - URLSearchHook\prjSearchhookDemo.tlb (1)
-// LIBID: {910B8565-9B71-4CAE-8F4B-654E46CB069D}
-// LCID: 0
-// Helpfile:
-// HelpString: prjSearchhookDemo Library
-// DepndLst:
-// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
-// ************************************************************************ //
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
-{$WARN SYMBOL_PLATFORM OFF}
-{$WRITEABLECONST ON}
-{$VARPROPSETTER ON}
-interface
-
-uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
-
-
-// *********************************************************************//
-// GUIDS declared in the TypeLibrary. Following prefixes are used:
-// Type Libraries : LIBID_xxxx
-// CoClasses : CLASS_xxxx
-// DISPInterfaces : DIID_xxxx
-// Non-DISP interfaces: IID_xxxx
-// *********************************************************************//
-const
- // TypeLibrary Major and minor versions
- prjSearchhookDemoMajorVersion = 1;
- prjSearchhookDemoMinorVersion = 0;
-
- LIBID_prjSearchhookDemo: TGUID = '{910B8565-9B71-4CAE-8F4B-654E46CB069D}';
-
-
-implementation
-
-uses ComObj;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/NewUpdate.xml b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/NewUpdate.xml
deleted file mode 100644
index 0c0a431b35142d75ac4c1fd01ee08920697ff6ef..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/NewUpdate.xml
+++ /dev/null
@@ -1,27 +0,0 @@
-
-
-
- project1
- bsalsa
- bsalsa Productions
- 2
- 2
- 2
- 2
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.dfm
deleted file mode 100644
index f95e6f4b9d814b30e78051915600696f729a0138..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.dfm
+++ /dev/null
@@ -1,95 +0,0 @@
-object Form1: TForm1
- Left = 385
- Top = 133
- Width = 482
- Height = 370
- Caption = 'Webupdater Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object ProgressBar1: TProgressBar
- Left = 0
- Top = 298
- Width = 466
- Height = 17
- Align = alBottom
- Min = 0
- Max = 100
- TabOrder = 0
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 315
- Width = 466
- Height = 19
- Panels = <>
- SimplePanel = False
- end
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 466
- Height = 257
- Align = alClient
- Lines.Strings = (
- 'This demo demonstrates the TWebUpdater.'
-
- 'The TWebUpdater will download a remote XML file, parse its data ' +
- 'sections'
- 'and will do the update procedure automatically.'
- ''
- '')
- TabOrder = 2
- end
- object Panel1: TPanel
- Left = 0
- Top = 257
- Width = 466
- Height = 41
- Align = alBottom
- TabOrder = 3
- object Button1: TButton
- Left = 8
- Top = 10
- Width = 121
- Height = 25
- Caption = 'Start WebUpdater'
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- object WebUpdater1: TWebUpdater
- About = 'Application Updater by bsalsa : bsalsa@gmail.com'
- AbortMessage = 'Aborted! (User request).'
- ApplicationName = 'project1'
- Author = 'bsalsa'
- BackupFolder = 'Backup\'
- Caption = 'Updating the application... Please wait.'
- Company = 'bsalsa Productions'
- DeleteLogOnComplete = False
- DeleteWebInfoFileOnComplete = False
- ApplicationVersion.BuildVersion = 1
- EMail = 'bsalsa@bsalsa.com'
- ErrorMessage = 'An error ocurred while '
- LogAddTime = True
- LogFileName = 'Updater.txt'
- MailErrorReport = False
- OpenAppFolderOnComplete = True
- ProgressBar = ProgressBar1
- StatusBar = StatusBar1
- SuccessMessageText = 'Update is done.'
- UpdatesFolder = 'Updates\'
- WebInfoFileName = 'NewUpdate.xml'
- WebURL = 'http://bsalsa.com/webupdate'
- Left = 392
- Top = 16
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.pas
deleted file mode 100644
index 09af2170551a7df19bc5a195981afdafc7330dfa..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/Unit1.pas
+++ /dev/null
@@ -1,69 +0,0 @@
-//***********************************************************
-// TWebUpdater demo *
-// *
-// For Delphi 5 - 2009 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit Unit1;
-
-interface
-
-uses
- Classes, Controls, Forms, AppWebUpdater, ComCtrls, StdCtrls, OleCtrls,
- ExtCtrls;
-
-type
- TForm1 = class(TForm)
- WebUpdater1: TWebUpdater;
- ProgressBar1: TProgressBar;
- StatusBar1: TStatusBar;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- WebUpdater1.Start;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/project1.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/project1.dpr
deleted file mode 100644
index 63aabd4eff2d865587c3cacb8199aef01c673988..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_Demo/project1.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-//***********************************************************
-// WebUpdater demo *
-// *
-// For Delphi 5,6, 7 , 2005, 2006 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-program project1;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/Unit1.dfm b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/Unit1.dfm
deleted file mode 100644
index dc0313145f3912671232608a41571f288e345784..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/Unit1.dfm
+++ /dev/null
@@ -1,973 +0,0 @@
-object Form1: TForm1
- Left = 374
- Top = 125
- Width = 625
- Height = 593
- Caption = 'Updater_XML_File_Creator'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Icon.Data = {
- 0000010002002020100000000000E80200002600000010101000000000002801
- 00000E0300002800000020000000400000000100040000000000800200000000
- 0000000000000000000000000000000000000000800000800000008080008000
- 00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
- 0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000999000000999000000000000000000009999
- 0000999900000000000000000000099990099990000000000000000000000999
- 9009999000000000000000000000009999999900000000000000000000000009
- 9999900000000000000000000000000099990000000000000000000000000000
- 9999000000000000000000000000000999999000000000000000000000000099
- 9999990000000000000000000000099990099990000000000000000000000999
- 9009999000000000000000000000999900009999000000000000000000009990
- 0000099900000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFF1F871E000F060E0086060E0086060E1FC006
- 061FE044461FF0C4461FF0C4621FE044E21FC004E21F8600F01F8600F01F0F01
- F81F1F81F81FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
- 0000C00000000000000000000000000000000000000000000000000080000080
- 000000808000800000008000800080800000C0C0C000808080000000FF0000FF
- 000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000009900
- 9900000000009900990000000000099990000000000000990000000000000999
- 9000000000009900990000000000990099000000000000000000000000000000
- 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF
- 0000FFFF0000FFFF0000312000003120000080070000C80700008087000030C7
- 000030C70000FFFF0000FFFF0000FFFF0000FFFF0000}
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 609
- Height = 557
- ActivePage = TabSheet1
- Align = alClient
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Programming'
- object Label2: TLabel
- Left = 1
- Top = 110
- Width = 371
- Height = 23
- Caption = '1. Press the Demo button below, then Save.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 1
- Top = 132
- Width = 597
- Height = 23
- Caption =
- '2. After you know the structure, enter your own values and then' +
- ' save.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 160
- Width = 601
- Height = 112
- Align = alBottom
- TabOrder = 0
- object memInfo: TMemo
- Left = 1
- Top = 22
- Width = 599
- Height = 89
- Align = alClient
- ScrollBars = ssBoth
- TabOrder = 0
- end
- object Panel3: TPanel
- Left = 1
- Top = 1
- Width = 599
- Height = 21
- Align = alTop
- Caption = 'Update Information (Text):'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object SpeedButton1: TSpeedButton
- Left = 8
- Top = 0
- Width = 17
- Height = 17
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000000000
- 0000000000002424234A939182B49A9380B899907CB89B9783B87170659C2F30
- 2E600102030B0000000000000000000000000000000000000000000000000000
- 00003C3C3751E2E1C3FDFFFDD3FFFFF2C6FFFFEDBEFFFFF1C4FFFFEEC4FFF6E4
- C1FFC3BEA5E0636359950000000D000000000000000000000000000000000000
- 0000887B608DFFFFDCFFFFE7BEFFFFDEB1FFFFD8AAFFE2DDAAFFF4EBC1FFF9F4
- D0FFFFFFE7FFFFFFE6FFA8A694D21D1D1D470000000000000000000000000D09
- 050DDAA665E9FCDFAAFFFFEBC3FFFFDFB3FFFFD7ABFFA6CA7CFF32AE31FF1EA5
- 1FFF2AA72DFFB4E1A6FFFFFFF5FFA2A394E50000000A00000000000000003528
- 1A38F1B773FDF5BB76FFF6CB91FFFBD9A7FFFFE6C0FF9AC670FF009000FF24A7
- 23FF6EC46BFF26AA28FFE1ECBBFFD2B796F30406070F00000000000000006851
- 386BFECD8EFFF8C185FFF7BE81FFF8BE82FFFFD4A4FFA2CA78FF049504FF2BAA
- 29FFF9FCECFFC1E4AFFF8CC86CFFE4BC94FB2B2B2B610000000006060406B994
- 6DBAFFD39BFFFDC994FFFEC994FFFEC792FFF0D19EFFBED899FFCDE6AFFF9AD6
- 8FFFC5E7C0FFFCFCEAFFDBECBCFFEED1A5FF3C3A38810000000014110D14F9CD
- 9DF9FFD5A4FFFFD2A2FFFFD2A2FFFFD2A1FFF6D6A6FF93CC7BFFFAF7D3FFECF7
- D3FF25A827FF23A624FFCAE1A8FFFFDDB5FF514E4A9C0000000041372B41FEDF
- B2FEFFE2B6FFFFE0B4FFFFE0B4FFFFE0B4FFFFE3BDFFAECF84FF33AE30FF89CF
- 81FF20A620FF009300FFB7D998FFFFEBC3FF757267BB0000000064574865FFF5
- CDFFFFEFC8FFFFEEC7FFFFEEC7FFFFEEC7FFFFEEC8FFFCF0CBFF75C262FF0095
- 00FF019803FF0FA014FFB6DC9DFFFFFCDAFF918E7DBB0000000182776584FFFF
- E7FFFFFCD9FFFFFCDAFFFFFCDAFFFFFDDAFFFFFDDBFFFFFFDEFFFFFFE4FFD4F1
- C1FFCCEDC0FFD7F0C8FFDCEEC2FFFFFFE6FFB4B2A0ED0000000E83786585FFFF
- F0FFFFFFE3FFFFFFE3FFFFFFE5FFFFFFE5FFFFFFDDFFFEF5D0FFFCE9BDFFFFE6
- BBFFFFF4CEFFFFFFE1FFFFFFE5FFFFFFE9FFBDBDA9F10000010F3A31283AEDDA
- B8EEFFF6D2FFFCEFCBFCECDCB8F0E7C694F0F3C280FFFFC37AFFF6B872FFF4B7
- 72FFF4BB7BFFF7C78DFFFBDCADFFFFFEE2FFC6C9B4F00303040F000000001D16
- 101D483E3048382F24380E0A070F10090213422F1A487B5C3783DEA96AEAFBC0
- 7DFFFFC584FFF7BF81FFF9C083FFFFD7A1FFD1C5A8F10608090F000000000000
- 0000000000000000000000000000000000000000000000000000100C0711513E
- 2954B58C61B9FFD294FFFFCD93FFFFD197FFD5B18DF80507080E000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000403030465523C66C49B70BDE3BA88D84E41345900000001}
- OnClick = SpeedButton1Click
- end
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 601
- Height = 81
- Align = alTop
- TabOrder = 1
- object GroupBox1: TGroupBox
- Left = 1
- Top = 1
- Width = 599
- Height = 79
- Align = alClient
- Caption = 'Details'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object SpeedButton3: TSpeedButton
- Left = 8
- Top = 12
- Width = 17
- Height = 17
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000000000
- 0000000000002424234A939182B49A9380B899907CB89B9783B87170659C2F30
- 2E600102030B0000000000000000000000000000000000000000000000000000
- 00003C3C3751E2E1C3FDFFFDD3FFFFF2C6FFFFEDBEFFFFF1C4FFFFEEC4FFF6E4
- C1FFC3BEA5E0636359950000000D000000000000000000000000000000000000
- 0000887B608DFFFFDCFFFFE7BEFFFFDEB1FFFFD8AAFFE2DDAAFFF4EBC1FFF9F4
- D0FFFFFFE7FFFFFFE6FFA8A694D21D1D1D470000000000000000000000000D09
- 050DDAA665E9FCDFAAFFFFEBC3FFFFDFB3FFFFD7ABFFA6CA7CFF32AE31FF1EA5
- 1FFF2AA72DFFB4E1A6FFFFFFF5FFA2A394E50000000A00000000000000003528
- 1A38F1B773FDF5BB76FFF6CB91FFFBD9A7FFFFE6C0FF9AC670FF009000FF24A7
- 23FF6EC46BFF26AA28FFE1ECBBFFD2B796F30406070F00000000000000006851
- 386BFECD8EFFF8C185FFF7BE81FFF8BE82FFFFD4A4FFA2CA78FF049504FF2BAA
- 29FFF9FCECFFC1E4AFFF8CC86CFFE4BC94FB2B2B2B610000000006060406B994
- 6DBAFFD39BFFFDC994FFFEC994FFFEC792FFF0D19EFFBED899FFCDE6AFFF9AD6
- 8FFFC5E7C0FFFCFCEAFFDBECBCFFEED1A5FF3C3A38810000000014110D14F9CD
- 9DF9FFD5A4FFFFD2A2FFFFD2A2FFFFD2A1FFF6D6A6FF93CC7BFFFAF7D3FFECF7
- D3FF25A827FF23A624FFCAE1A8FFFFDDB5FF514E4A9C0000000041372B41FEDF
- B2FEFFE2B6FFFFE0B4FFFFE0B4FFFFE0B4FFFFE3BDFFAECF84FF33AE30FF89CF
- 81FF20A620FF009300FFB7D998FFFFEBC3FF757267BB0000000064574865FFF5
- CDFFFFEFC8FFFFEEC7FFFFEEC7FFFFEEC7FFFFEEC8FFFCF0CBFF75C262FF0095
- 00FF019803FF0FA014FFB6DC9DFFFFFCDAFF918E7DBB0000000182776584FFFF
- E7FFFFFCD9FFFFFCDAFFFFFCDAFFFFFDDAFFFFFDDBFFFFFFDEFFFFFFE4FFD4F1
- C1FFCCEDC0FFD7F0C8FFDCEEC2FFFFFFE6FFB4B2A0ED0000000E83786585FFFF
- F0FFFFFFE3FFFFFFE3FFFFFFE5FFFFFFE5FFFFFFDDFFFEF5D0FFFCE9BDFFFFE6
- BBFFFFF4CEFFFFFFE1FFFFFFE5FFFFFFE9FFBDBDA9F10000010F3A31283AEDDA
- B8EEFFF6D2FFFCEFCBFCECDCB8F0E7C694F0F3C280FFFFC37AFFF6B872FFF4B7
- 72FFF4BB7BFFF7C78DFFFBDCADFFFFFEE2FFC6C9B4F00303040F000000001D16
- 101D483E3048382F24380E0A070F10090213422F1A487B5C3783DEA96AEAFBC0
- 7DFFFFC584FFF7BF81FFF9C083FFFFD7A1FFD1C5A8F10608090F000000000000
- 0000000000000000000000000000000000000000000000000000100C0711513E
- 2954B58C61B9FFD294FFFFCD93FFFFD197FFD5B18DF80507080E000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000403030465523C66C49B70BDE3BA88D84E41345900000001}
- OnClick = SpeedButton3Click
- end
- object Label1: TLabel
- Left = 48
- Top = 3
- Width = 82
- Height = 13
- Caption = 'Application Name'
- end
- object Label3: TLabel
- Left = 49
- Top = 42
- Width = 65
- Height = 13
- Caption = 'Major Version'
- end
- object Author: TLabel
- Left = 353
- Top = 3
- Width = 33
- Height = 13
- Caption = 'Author'
- end
- object Label4: TLabel
- Left = 193
- Top = 3
- Width = 45
- Height = 13
- Caption = 'Company'
- end
- object Label6: TLabel
- Left = 193
- Top = 42
- Width = 64
- Height = 13
- Caption = 'Minor Version'
- end
- object Label7: TLabel
- Left = 353
- Top = 42
- Width = 76
- Height = 13
- Caption = 'Release Version'
- end
- object Label8: TLabel
- Left = 497
- Top = 42
- Width = 60
- Height = 13
- Caption = 'Build Version'
- end
- object edtName: TEdit
- Left = 48
- Top = 19
- Width = 121
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object edtMajor: TEdit
- Left = 48
- Top = 55
- Width = 34
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object edtAuthor: TEdit
- Left = 353
- Top = 15
- Width = 129
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object edtCompany: TEdit
- Left = 193
- Top = 15
- Width = 129
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object edtMinor: TEdit
- Left = 193
- Top = 55
- Width = 34
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- end
- object edtRelease: TEdit
- Left = 353
- Top = 55
- Width = 34
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- object edtBuild: TEdit
- Left = 497
- Top = 55
- Width = 34
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- end
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 272
- Width = 601
- Height = 168
- Align = alBottom
- Caption = 'Panel4'
- TabOrder = 2
- object stgrInst: TStringGrid
- Left = 1
- Top = 21
- Width = 599
- Height = 146
- Align = alClient
- ColCount = 4
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 51
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowMoving, goEditing, goTabs, goAlwaysShowEditor]
- TabOrder = 0
- OnKeyPress = stgrInstKeyPress
- ColWidths = (
- 20
- 70
- 393
- 91)
- end
- object Panel5: TPanel
- Left = 1
- Top = 1
- Width = 599
- Height = 20
- Align = alTop
- Caption = 'Update Instructions'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object SpeedButton2: TSpeedButton
- Left = 8
- Top = 0
- Width = 17
- Height = 17
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000000000
- 0000000000002424234A939182B49A9380B899907CB89B9783B87170659C2F30
- 2E600102030B0000000000000000000000000000000000000000000000000000
- 00003C3C3751E2E1C3FDFFFDD3FFFFF2C6FFFFEDBEFFFFF1C4FFFFEEC4FFF6E4
- C1FFC3BEA5E0636359950000000D000000000000000000000000000000000000
- 0000887B608DFFFFDCFFFFE7BEFFFFDEB1FFFFD8AAFFE2DDAAFFF4EBC1FFF9F4
- D0FFFFFFE7FFFFFFE6FFA8A694D21D1D1D470000000000000000000000000D09
- 050DDAA665E9FCDFAAFFFFEBC3FFFFDFB3FFFFD7ABFFA6CA7CFF32AE31FF1EA5
- 1FFF2AA72DFFB4E1A6FFFFFFF5FFA2A394E50000000A00000000000000003528
- 1A38F1B773FDF5BB76FFF6CB91FFFBD9A7FFFFE6C0FF9AC670FF009000FF24A7
- 23FF6EC46BFF26AA28FFE1ECBBFFD2B796F30406070F00000000000000006851
- 386BFECD8EFFF8C185FFF7BE81FFF8BE82FFFFD4A4FFA2CA78FF049504FF2BAA
- 29FFF9FCECFFC1E4AFFF8CC86CFFE4BC94FB2B2B2B610000000006060406B994
- 6DBAFFD39BFFFDC994FFFEC994FFFEC792FFF0D19EFFBED899FFCDE6AFFF9AD6
- 8FFFC5E7C0FFFCFCEAFFDBECBCFFEED1A5FF3C3A38810000000014110D14F9CD
- 9DF9FFD5A4FFFFD2A2FFFFD2A2FFFFD2A1FFF6D6A6FF93CC7BFFFAF7D3FFECF7
- D3FF25A827FF23A624FFCAE1A8FFFFDDB5FF514E4A9C0000000041372B41FEDF
- B2FEFFE2B6FFFFE0B4FFFFE0B4FFFFE0B4FFFFE3BDFFAECF84FF33AE30FF89CF
- 81FF20A620FF009300FFB7D998FFFFEBC3FF757267BB0000000064574865FFF5
- CDFFFFEFC8FFFFEEC7FFFFEEC7FFFFEEC7FFFFEEC8FFFCF0CBFF75C262FF0095
- 00FF019803FF0FA014FFB6DC9DFFFFFCDAFF918E7DBB0000000182776584FFFF
- E7FFFFFCD9FFFFFCDAFFFFFCDAFFFFFDDAFFFFFDDBFFFFFFDEFFFFFFE4FFD4F1
- C1FFCCEDC0FFD7F0C8FFDCEEC2FFFFFFE6FFB4B2A0ED0000000E83786585FFFF
- F0FFFFFFE3FFFFFFE3FFFFFFE5FFFFFFE5FFFFFFDDFFFEF5D0FFFCE9BDFFFFE6
- BBFFFFF4CEFFFFFFE1FFFFFFE5FFFFFFE9FFBDBDA9F10000010F3A31283AEDDA
- B8EEFFF6D2FFFCEFCBFCECDCB8F0E7C694F0F3C280FFFFC37AFFF6B872FFF4B7
- 72FFF4BB7BFFF7C78DFFFBDCADFFFFFEE2FFC6C9B4F00303040F000000001D16
- 101D483E3048382F24380E0A070F10090213422F1A487B5C3783DEA96AEAFBC0
- 7DFFFFC584FFF7BF81FFF9C083FFFFD7A1FFD1C5A8F10608090F000000000000
- 0000000000000000000000000000000000000000000000000000100C0711513E
- 2954B58C61B9FFD294FFFFCD93FFFFD197FFD5B18DF80507080E000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000403030465523C66C49B70BDE3BA88D84E41345900000001}
- OnClick = SpeedButton2Click
- end
- end
- end
- object Panel6: TPanel
- Left = 0
- Top = 440
- Width = 601
- Height = 89
- Align = alBottom
- TabOrder = 3
- object GroupBox2: TGroupBox
- Left = 1
- Top = 1
- Width = 248
- Height = 87
- Align = alLeft
- Caption = 'XML Menu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object cbOverWrite: TCheckBox
- Left = 8
- Top = 48
- Width = 113
- Height = 17
- Caption = 'OverWrite warning'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object BitBtn2: TBitBtn
- Left = 120
- Top = 16
- Width = 57
- Height = 26
- Caption = 'All'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnClearClick
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000000000
- 0000000000002424234A939182B49A9380B899907CB89B9783B87170659C2F30
- 2E600102030B0000000000000000000000000000000000000000000000000000
- 00003C3C3751E2E1C3FDFFFDD3FFFFF2C6FFFFEDBEFFFFF1C4FFFFEEC4FFF6E4
- C1FFC3BEA5E0636359950000000D000000000000000000000000000000000000
- 0000887B608DFFFFDCFFFFE7BEFFFFDEB1FFFFD8AAFFE2DDAAFFF4EBC1FFF9F4
- D0FFFFFFE7FFFFFFE6FFA8A694D21D1D1D470000000000000000000000000D09
- 050DDAA665E9FCDFAAFFFFEBC3FFFFDFB3FFFFD7ABFFA6CA7CFF32AE31FF1EA5
- 1FFF2AA72DFFB4E1A6FFFFFFF5FFA2A394E50000000A00000000000000003528
- 1A38F1B773FDF5BB76FFF6CB91FFFBD9A7FFFFE6C0FF9AC670FF009000FF24A7
- 23FF6EC46BFF26AA28FFE1ECBBFFD2B796F30406070F00000000000000006851
- 386BFECD8EFFF8C185FFF7BE81FFF8BE82FFFFD4A4FFA2CA78FF049504FF2BAA
- 29FFF9FCECFFC1E4AFFF8CC86CFFE4BC94FB2B2B2B610000000006060406B994
- 6DBAFFD39BFFFDC994FFFEC994FFFEC792FFF0D19EFFBED899FFCDE6AFFF9AD6
- 8FFFC5E7C0FFFCFCEAFFDBECBCFFEED1A5FF3C3A38810000000014110D14F9CD
- 9DF9FFD5A4FFFFD2A2FFFFD2A2FFFFD2A1FFF6D6A6FF93CC7BFFFAF7D3FFECF7
- D3FF25A827FF23A624FFCAE1A8FFFFDDB5FF514E4A9C0000000041372B41FEDF
- B2FEFFE2B6FFFFE0B4FFFFE0B4FFFFE0B4FFFFE3BDFFAECF84FF33AE30FF89CF
- 81FF20A620FF009300FFB7D998FFFFEBC3FF757267BB0000000064574865FFF5
- CDFFFFEFC8FFFFEEC7FFFFEEC7FFFFEEC7FFFFEEC8FFFCF0CBFF75C262FF0095
- 00FF019803FF0FA014FFB6DC9DFFFFFCDAFF918E7DBB0000000182776584FFFF
- E7FFFFFCD9FFFFFCDAFFFFFCDAFFFFFDDAFFFFFDDBFFFFFFDEFFFFFFE4FFD4F1
- C1FFCCEDC0FFD7F0C8FFDCEEC2FFFFFFE6FFB4B2A0ED0000000E83786585FFFF
- F0FFFFFFE3FFFFFFE3FFFFFFE5FFFFFFE5FFFFFFDDFFFEF5D0FFFCE9BDFFFFE6
- BBFFFFF4CEFFFFFFE1FFFFFFE5FFFFFFE9FFBDBDA9F10000010F3A31283AEDDA
- B8EEFFF6D2FFFCEFCBFCECDCB8F0E7C694F0F3C280FFFFC37AFFF6B872FFF4B7
- 72FFF4BB7BFFF7C78DFFFBDCADFFFFFEE2FFC6C9B4F00303040F000000001D16
- 101D483E3048382F24380E0A070F10090213422F1A487B5C3783DEA96AEAFBC0
- 7DFFFFC584FFF7BF81FFF9C083FFFFD7A1FFD1C5A8F10608090F000000000000
- 0000000000000000000000000000000000000000000000000000100C0711513E
- 2954B58C61B9FFD294FFFFCD93FFFFD197FFD5B18DF80507080E000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000403030465523C66C49B70BDE3BA88D84E41345900000001}
- Layout = blGlyphRight
- end
- object BitBtn3: TBitBtn
- Left = 66
- Top = 17
- Width = 57
- Height = 25
- Caption = 'Open'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnLoadClick
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000915
- 19271945548006212A490000020B000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000001A56
- 6B8292E9FFFF4BBCE4FF389ABEE0166C8AB40F475A8309212A480000020B0000
- 0000000000000000000000000000000000000000000000000000000000000F54
- 708089E2FFFF86E9FFFF76E5FFFF6DE2FFFF61DBFFFF54C4E8FF45A3C1E02074
- 8EB416475883091E254200000000000000000000000000000000000000001758
- 737F74D7FEFF97E9FFFF7CE4FFFF80E5FFFF82E6FFFF84E9FFFF85EDFFFF7CEB
- FFFF76E7FFFF48B0D2ED061E26420000000000000000000000000005070B2690
- B8D15FC8F5FFBAF4FDFF85F0FFFF89F0FFFF89F0FFFF89F0FFFF89F0FFFF8AF0
- FFFF8FF4FFFF7FF2FFFF206C83B300000000000000000000000000060A1031AA
- D7F54DC0F7FF9BE1F5FF9BFCFFFF90F9FFFF91F9FFFF92F9FFFF92F9FFFF92F9
- FFFF91FAFFFF9BFAFFFF6DC9DDF7071C2545000000000000000000060A0F3BAB
- D5F05FCDFFFF78CFF0FFBDFFFEFFAEFFFFFFA7FFFFFFA0FFFFFFA0FFFFFFA0FF
- FFFFA0FFFFFFA3F7FFFFB0F9FFFF1D647BB3000000000000000000050A0F46B1
- D7F07EE2FFFF6CD4FAFF7CD2EFFF83D6ECFFB3EBF7FFD1FBFDFFC4FFFFFFBDFF
- FFFFBFFFFFFFB3F5FFFFE0FFFFFF79C0D2F7051B2445000000000004090F51B7
- D8F090F3FFFF81EBFFFF73E3FCFF6DDEF9FF6FDDF6FF75D6F0FFC9EEF7FFDEF9
- FDFFDCFAFDFFD0F6FFFFFFFFFFFFE1FEFFFF246277B8000000010003090F5FC1
- DCF2A6FFFFFF95FBFFFF97FCFFFF96FDFFFF97FFFFFF8BF8FEFF83EAF6FF94EC
- F7FF9FEDF7FF80D2E8FB7BBFD8F07FC6DDF02889A9E10104060D0003080E62BD
- D7EEAFFFFFFF99FFFFFF9AFFFFFFAEFFFFFFB8FFFFFFADFFFFFFA6FFFFFFA9FF
- FFFFB6FFFFFF4BA8B6C20002090F00030A0F00080C100001010100000101264F
- 5E6BC5FCFFFFBCFFFFFFBDFFFFFF9AE0F1FD1E495D6D305C6C78437E909F51B9
- D6F063C8E1F03073839300000000000000000000000000000000000000000007
- 0A0E1B45556435637580446C7880183A47520000000000000000000000000004
- 0A0F00040B0F0000010400000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000}
- Layout = blGlyphRight
- end
- object BitBtn1: TBitBtn
- Left = 176
- Top = 16
- Width = 65
- Height = 26
- Caption = 'Save'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnCreateXMLClick
- Glyph.Data = {
- 36030000424D3603000000000000360000002800000010000000100000000100
- 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
- FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
- FFFF00FFFF00FFFF00FFFF00FFFF00FF51272751272779797977777774747471
- 71716E6E6E6A6A6A676768646464512727512727512727FF00FFFF00FF512727
- C1550ABD500AF6F6F6B2480AAC450AD4D4D4C7C7C7B9B9B9ACACACA1A0A09330
- 0A8E2E0A512727FF00FFFF00FF512727C7590AC2550AFBFBFBB74C0AB1480ADD
- DDDDD0D0CFC2C2C1B5B5B6A8A9A896340A92300A512727FF00FFFF00FF512727
- CC5E0AC7590AFCFCFCBD500AB74D0AE4E4E4D8D8D8CACBCBBEBDBDB0B0B09936
- 0A96330A512727FF00FFFF00FF512727D2620ACB5D0AE8BD8FFCFCFCF5F5F5EB
- EBEBE0E0E0D2D3D2C6C5C5B0876A9E390A9A360A512727FF00FFFF00FF512727
- D6640AD1620ACC5D0AC7590AC1550ABC4F0AB64C0AB2480AAC440AA7400AA23C
- 0A9E3A0A512727FF00FFFF00FF512727DB6A0AD6650AD1610ACC5D0AC6590AC1
- 540ABC4F0AB74C0AB1480AAC440AA7400AA23C0A512727FF00FFFF00FF512727
- E16E0AFCF4E4FBF1DDFCEDD7FBE9D0FCE8C9FCE4C2FBE2BCFBDFB5FBDDB0FBDB
- ABA73F0A512727FF00FFFF00FF512727E4710AE8E4DFE4DFD6DFD8CED8D1C6D3
- CCBDD0C5B5CCC0ADC9BCA7C5B7A1C1B29AAC440A512727FF00FFFF00FF512727
- E9740AFCF7EDFCF5E7FCF2E1FCEED9FCECD3FBE8CCFBE5C5FCE4BEFCE0B7FBDF
- B1B1480A512727FF00FFFF00FF512727ED780AEDEBE7E8E4E0E4DFD8DFD8CFD9
- D2C6D4CCBED0C6B7CCC0AEC9BCA8C4B7A2B64B0A512727FF00FFFF00FF512727
- F17B0AFCF9F5FCF7F0FCF6E9FCF4E4FCF0DDFCEDD4FCE9CFFBE7C7FCE4C1FCE1
- B9BB4F0A512727FF00FFFF00FF512727F57E0A9995FB8A8CF97D84F8717BF764
- 74F55A6CF44F65F2485FF03F5AEE3A54ECC0540A512727FF00FFFF00FF512727
- 5127271C1BA1191AA11718A11517A11316A11014A10F13A10D12A10C11A10B10
- A1512727512727FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
- 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
- Layout = blGlyphRight
- end
- object BitBtn4: TBitBtn
- Left = 8
- Top = 17
- Width = 57
- Height = 25
- Caption = 'Demo'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = btnLoadDemoClick
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000020200000302000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000010100000808
- 0D57080B2DB811121CA80E0C0947000000000000000000000000000000000000
- 000000000000000000001414142E484847802424244800000000070603380B11
- 73FB0019D2FF022BDAFF163EB1FD142346AB0D0A054200000000000000000000
- 0000000000035B5B5B99CACACAF6B6B6B6FFAFAFAFFD54544C9F0C0C48D3010F
- D0FF0028F7FF0840FFFF2667FFFF4285F8FF38597FF212110F53000000000000
- 0002686868A6FCFCFCFFD3D3D3FF3F3F40FFA1A1A1FFBBB9B7FF324451FF1831
- 75FF122FCFFF1C54FFFF387CFFFF549CFDFF4875A6F610111468000000002C2C
- 2C54B3B3B3FFE8E8E8FF858585FF202020FFA8A8A8FFD4CFD2FF587A69FF078D
- 4EFF199169FF31619CFF4A7CD3FF313F51A80705022A000000000404040B6464
- 64D8343535FFA6A6A5FF969696FF747474FFD9D9D9FFDFDADCFF6D8B80FF009B
- 61FF00F99CFF1CBA7DF81A14195B010000010000000000000000323132599090
- 90FF3D3E3EFFD5D5D5FFD6D6D6FFBCBCBCFF767676FFD3CDCFFF749184FF00B3
- 6FFF08F7A3FF48826DEF08010103000000000000000000000000737171BDC8C8
- C8FFBCBCBCFF989898FFB8B8B8FF6F6F6FFF171717FFA8A3A3FF6C848AFF2593
- 79FF3CC293FFA09799F00C0B0C0F000000000000000000000000A3A2A2F89A9A
- 9AFF999898FF7A7A7AFFB6B6B5FF5E5E5DFF474545FFCAC6C5FF287C93FF1BB6
- DEFF8CA9B0FFC0BAB9F407060710000000000000000000000000989897F23838
- 38FF6B6B6BFFCACACAFF999899FFCBCACBFFE2E1E1FFA9BCC2FF008EB0FF37CE
- EFFFB5C1C4FFAAA7A6D502010208000000000000000000000000949494EB7A7A
- 7AFFB3B3B3FF5A5B5BFF434343FFC0C0C1FFF0F2F3FF7B6967FF65919BFF7CC2
- D0FFE4E0E0FF7B7A79B90000000000000000000000000000000050505084FFFF
- FFFFE3E3E3FF2E2E2EFF545454FFA6A8A9FF968482FFB2513BFFEC7A5BFFBDB2
- AFFFE3E5E6FA2523244B000000000000000000000000000000000B0B0B20B4B4
- B4EFFFFFFFFFC3C3C3FFACADADFF8E8F90FF7F473CFFC4644BFFB39187FFF6F9
- F9FF858485C50000000000000000000000000000000000000000000000001515
- 152D7676769EA7A7A7E946464673747474BAD5D1CFFFCDCAC9FFF3F9FAFFA5A5
- A5DA0E0E0E280000000000000000000000000000000000000000000000000000
- 0000000000000000000E000000000B0B0B187E7F7F9EC2C3C4F0868686B71212
- 1232000000000000000000000000000000000000000000000000}
- Layout = blGlyphRight
- end
- object cbNumerator: TCheckBox
- Left = 7
- Top = 64
- Width = 185
- Height = 17
- Caption = 'Add Numerator to the ChangeLog'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMenuText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- end
- object gbFile: TGroupBox
- Left = 249
- Top = 1
- Width = 351
- Height = 87
- Align = alClient
- Caption = 'Output File Menu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Visible = False
- object BitBtn5: TBitBtn
- Left = 8
- Top = 16
- Width = 81
- Height = 25
- Caption = 'Open With'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnOpenIEClick
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E0000000000000000000000000107563C
- 1C8C855823B2664829A53D2C1C7F060504130000000000000000000000000000
- 00000000000000000000000000000000000000000000000000005B3F1368C788
- 2CF033210A3A0E0A0514402E1C6F88653EDC4C38259C3A2B1B803D2D1D80291D
- 12600000000B0000000000000000000000000000000000000000895D16928C61
- 27C300000000100C0A2B7D572DB9DA9240FFE69D43FFE6AA4BFFE9B95FFFD9BB
- 74FFA0895CE0483622950000000A000000000000000000000000855C17889F70
- 28DB2E211761C98C3DF4FCA83EFFF59E37FFF49B36FFF8A238FFFBB13FFFFFCB
- 5DFFFFEB91FFEDDF9DFF766141BF0000000D0000000000000000573E1258DC9F
- 34FFCB8D34FFFCAE39FFEC9C31FFE9942EFFEB9330FFD5812DFFD7842CFFF19D
- 32FFF7B644FFFFE889FFF8ECA8FF5A472EA500000000000000001A13061DEFB0
- 36F6FEB638FFEB9F30FFE7982AFFE3922CFF774F23B920160D4521160D458956
- 22BAF99F34FFFEB242FFFFF090FFDCC487FF21170F4D00000000010101029671
- 289FFFC03AFFE9A12BFFE99A27FFBF7F29F50C0A0B350000010400000104100C
- 092E623C1A8F68421A8F71542B8F78654691251C125000000000000000001E16
- 0821F2BB3DFDF2B230FFE89F27FFD38E27FEB17628EEB6792BF2B6782BF2B274
- 2CEBA56C29DEA86C2BDEAC702DDEB78943DE4A361E6F00000000100E06113029
- 13356B562275FFCF46FFEFAF2EFFE7A128FFE49927FFE69829FFE6972AFFE796
- 2BFFF19B2FFFF49B33FFFCA33AFFFFC458FF6549268A0000000013110515CFB5
- 61D9483F2E4F9D8532A9FFDC4AFFC8902CF634200B542B1A05362B1A073B7850
- 1DABEC9B2DFFE8962DFFF29E36FFEDA545FC3325134900000000000000008D80
- 4992EDE59FF046402C4D9F8C33A5F3C647FF624320BB2A1E17743D2D1F87B97F
- 2EEFEB9C29FFE7982BFFFCAA39FFBC8235D50000000000000000000000002822
- 102BF5ED9CF9E6E1A2E7665A366AAC963EB2F6CB49FFD29B34FFDC9D2FFFEAA4
- 29FFE59D28FFEFA42FFFFEB33FFF654721850000000000000000000000000000
- 00003C351B40F7EEA1FBFFFFB6FFA39C64A6C6B853C8FFE452FFF9BF36FFEEAE
- 2CFFF4B330FFFAB43DFF865F28A60503020934281843100C0815000000000000
- 000000000000362F1639B3A767BAFDF398FDF2EA8FF3FEF273FFFBD950FFFFD6
- 4CFFE1AF4CFC755326980000000000000000604A2D791E160D24000000000000
- 00000000000000000000000000002A240F2C4941214A433C1C48473F1B4B937F
- 399DB89B58EB4233207700000111251C0F3F98773EB80B08050E000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00003F37183E73612E8BB29145DEAC873FCD4F3D1B5800000100}
- Layout = blGlyphRight
- end
- object BitBtn6: TBitBtn
- Left = 88
- Top = 16
- Width = 81
- Height = 25
- Caption = 'Open With'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnOpenNotepadClick
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 20000000000000040000C30E0000C30E00000000000000000000000000002927
- 274F645853B8544945A8423F3F801F2325480004070F00000100000000000000
- 00000000000000000000000000000000000000000000000000000806040BA47D
- 74D8E8C7AEFFDDBA9AFFCE9A74FFBF8365FF9F705DEC5E4B46BB4A3F3DA83531
- 31790506081100000000000000000000000000000000000000000C080510C092
- 86F5D8F8DAFFD6FBD6FFDEF1C6FFD0E29FFFAFCE77FFDBCD9AFFDFBF9CFFCFA5
- 7FFF896147D700000002000000000000000000000000000000000B08050FBA8E
- 83F0DAF1D4FFDDF9E0FFDEDCA2FFC7AF54FFBEBD5DFFDBD181FFDCDA8AFFE4EB
- A0FFB69F72FF433C3BA11E1F20480001030B00000000000000000B07050FBC8F
- 85F0E4F3DFFFCFF3C9FFD1BE69FFC4923EFFBB8F3BFFCF944BFFD3964AFFD7A0
- 55FFD29152FFCF9C6EFFCCA372FF977D5FD90404050C000000000B08050FBC8F
- 84F0C5EDC4FFBCE7A4FFE1B35BFFD3A04DFFBF993EFFCE9B4CFFCB954CFFC290
- 46FFBC8041FFCE8C63FFE6A46FFFC19868DE03040408000000000B08060FB98E
- 81F0C2EEC3FFDEE3AAFFEBB355FFDBAB4BFFC9A53EFFDBA64DFFD6A24CFFC89C
- 43FFC48A41FFD39262FFECAE73FF73614AA000000000000000000B08050FBB90
- 85F0DFF4DFFFE6D58EFFEFB94DFFE7B64AFFD7AE40FFE5AE4DFFD6A945FFCAA4
- 3DFFD49645FFE7A363FFE1AD73FB2624234500000000000000000B07050FBB90
- 86F0DCEBCBFFEDC56EFFF1C461FFEFC058FFDCB741FFE5B748FFD9B13DFFDBB0
- 42FFE2A147FFFAB769FFBA9363D70000000000000000000000000B07050FB991
- 87F0E2E1B5FFF3CA77FFF4CE79FFECC768FFD4BC47FFE2BD4DFFE7BB4AFFECBC
- 4AFFF0AE46FFFFC470FF78624AA00000000000000000000000000B08050FBB92
- 8AF0EDDAA9FFF1D489FFEAD384FFE0CB6DFFD4C55BFFEAC86AFFF3C666FFEFC3
- 5CFFF6B44DFFEEB570FB262423450000000000000000000000000B08070FBC8C
- 7EF0E9CD82FFE1DE93FFE2DA90FFE5D789FFDDD178FFF0D383FFEFCE77FFEECC
- 70FFFBC264FFBB9060D7000001000000000000000000000000000A08070FBF8A
- 78F1F4CE95FFF5EEC3FFF4E6B7FFF3E3AAFFDFD98DFFF7DE9CFFF8DC96FFF6D7
- 84FFFFC56DFF735A4099000000000000000000000000000000000A09070FC58D
- 7DF6CEABA0FFACCACBFFDCCEBEFFB5CCC6FFC4B3A9FFCDBCA5FFC5B6AAFFE6CB
- A9FFBFAD96FF3C403E7D00000000000000000000000000000000030302045149
- 478178B3C4FF468995CE6AA0ACF45DA0B0F988A8BAFF77A1B1FF90A3AFFFAD9F
- A5FF8795A4FF0F1C202E00000000000000000000000000000000000000000003
- 04012E484B6317201F33083C464C112225301C626C7C15404A59194F57641933
- 3A4D214048630000000000000000000000000000000000000000}
- Layout = blGlyphRight
- end
- object BitBtn7: TBitBtn
- Left = 168
- Top = 16
- Width = 81
- Height = 25
- Caption = 'Explorer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clInfoText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnExploreClick
- Glyph.Data = {
- BA040000424DBA04000000000000360000002800000011000000110000000100
- 20000000000084040000120B0000120B00000000000000000000FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FAFAFA00EAEAEA00E9E9E900FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00F5F5F500E8E8E800E8E8E800E8E8E800E8E8E800E8E8E800E8E8
- E800E8E8E800E8E8E800E3E3E300BBBBBB007171710073737300E8E8E800FFFF
- FF00FFFFFF00F5F5F500A5A5A500666666005959590059595900595959005959
- 5900595959005959590059595900746867008E80A0006183A90059595900DEDE
- DE00FFFFFF00FFFFFF008CBAD1001D82B5001B81B300187EB000167CAE001379
- AB001076A8000D73A5000B71A3003B799E008E81A0004A8DDC00359CDE004E50
- 5100B1B1B100F7F7F700FFFFFF001F84B70045AADD00D5F8FF007AD7FF006FD4
- FF006FD4FF006FD4FF006FD4FF007FC9ED009488A8004C8CD80052BBFF000B71
- A6002C5265007D7D7D00EDEDED00FFFFFF002489BC002A8FC200D9FCFF00AFEC
- FF0096C8D800CACCC100C5C7B600ADB9B80093A5B2005E93D00054BDFF0075DA
- FF00147AAC00105F87005E5E5E00E1E1E100FFFFFF00288DC0002E93C60086CF
- F300CCC7C900F4EEE500FFFFEA00FFFFD900FFF5C300DCB5990090C5DA007FE6
- FF0085EBFF00379CCF001B81AB0052525200B7B7B700FFFFFF002A8FC2004CB1
- E4003C9FD100DAC8B200FFFFFC00FFFFF900FFFFE000FFF4C000FFE9B700B0CE
- CD0091F7FF0091F7FF0057BCEF00157BA70035515F0075757500FFFFFF002D92
- C5006CD1FC002489BC00E3D2B200FFFFE600FFFFE800FFFFD900FFEDB800FFED
- BE00D9D2BB0099FFFF0099FFFF0060C5F80047ACC800155E82004E4E4E00FFFF
- FF002F94C7007BE0FF0046ABD500DEC5A500FFFFD000FFF9C900FFF4C200FFE9
- C200FFF7D100E8CFC300FFFFFF00FFFFFF0081E6FF0079DEE900066697005A5A
- 5A00FFFFFF003196C90085EBFF006FD4F200828B9400FCE8B600FFEDB600FFF0
- C000FFFFF700EBDCD100518FB4002489BC002085B8001C81B4001B81B300056B
- 9D00DBE1E300FFFFFF003398CB0091F7FF008EF4FF0090EAF400B9BFB800EBCD
- AD00E6CCA900DDC5B800E8D9D900FFFFFF00FFFFFF00FFFFFF00167CAE007171
- 7100E8E8E800FFFFFF00FFFFFF003499CC00FFFFFF0099FFFF0099FFFF0099FF
- FF0099FFFF00FFFFFF00258ABD002287BA001F84B7001D82B5001B81B300187E
- B000E8E8E800FFFFFF00FFFFFF00FFFFFF00FFFFFF003499CC00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF002A8FC200D0D0D000FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003499
- CC003398CB003196C9002F94C700E8E8E800FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
- Layout = blGlyphRight
- end
- object edtPath: TEdit
- Left = 6
- Top = 47
- Width = 335
- Height = 21
- Anchors = [akLeft, akTop, akRight, akBottom]
- Color = clWhite
- TabOrder = 3
- end
- end
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'XML Tree View'
- ImageIndex = 1
- object TreeView: TTreeView
- Left = 0
- Top = 41
- Width = 601
- Height = 488
- Align = alClient
- Indent = 19
- TabOrder = 0
- end
- object Panel7: TPanel
- Left = 0
- Top = 0
- Width = 601
- Height = 41
- Align = alTop
- TabOrder = 1
- object Button1: TButton
- Left = 0
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Expand All'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 80
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Collapse All'
- TabOrder = 1
- OnClick = Button2Click
- end
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'XMl Browser View'
- ImageIndex = 3
- object EmbeddedWB1: TEmbeddedWB
- Left = 0
- Top = 0
- Width = 601
- Height = 529
- Align = alClient
- TabOrder = 0
- Silent = False
- DisableCtrlShortcuts = 'N'
- UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
- About = ' EmbeddedWB http://bsalsa.com/'
- PrintOptions.Margins.Left = 19.05
- PrintOptions.Margins.Right = 19.05
- PrintOptions.Margins.Top = 19.05
- PrintOptions.Margins.Bottom = 19.05
- PrintOptions.Header = '&w&bPage &p of &P'
- PrintOptions.HTMLHeader.Strings = (
- '')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- UserAgent = 'EmbeddedWB 14.55 from: http://www.bsalsa.com/'
- ControlData = {
- 4C0000001D3E0000D93500000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- end
- end
- object XmlScanner1: TXmlScanner
- Normalize = True
- OnXmlProlog = XmlScanner1XmlProlog
- OnComment = XmlScanner1Comment
- OnPI = XmlScanner1PI
- OnDtdRead = XmlScanner1DtdRead
- OnStartTag = XmlScanner1StartTag
- OnEmptyTag = XmlScanner1EmptyTag
- OnEndTag = XmlScanner1EndTag
- OnContent = XmlScanner1Content
- OnCData = XmlScanner1CData
- Left = 48
- Top = 224
- end
-end
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/Unit1.pas b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/Unit1.pas
deleted file mode 100644
index 541a1525750e873df7e6e7d7d603995d7eaad2ee..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/Unit1.pas
+++ /dev/null
@@ -1,687 +0,0 @@
-//***********************************************************
-// WebUpdater demo *
-// *
-// For Delphi 6 - 2009 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit Unit1;
-
-interface
-
-uses
- Windows, SysUtils, Classes, Controls, forms, Dialogs, ShellAPI, Grids,
- LibXmlParser, LibXmlComps, StdCtrls, ComCtrls, ExtCtrls, RichEditBrowser,
- OleCtrls, EmbeddedWB, Buttons, SHDocVw_EWB, EwbCore;
-
-type
- Tform1 = class(Tform)
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- TabSheet2: TTabSheet;
- XmlScanner1: TXmlScanner;
- TreeView: TTreeView;
- Panel1: TPanel;
- memInfo: TMemo;
- Panel2: TPanel;
- GroupBox1: TGroupBox;
- Panel3: TPanel;
- Panel4: TPanel;
- stgrInst: TStringGrid;
- Panel5: TPanel;
- Panel6: TPanel;
- GroupBox2: TGroupBox;
- cbOverWrite: TCheckBox;
- Panel7: TPanel;
- Button1: TButton;
- Button2: TButton;
- TabSheet4: TTabSheet;
- EmbeddedWB1: TEmbeddedWB;
- BitBtn2: TBitBtn;
- BitBtn3: TBitBtn;
- BitBtn1: TBitBtn;
- BitBtn4: TBitBtn;
- gbFile: TGroupBox;
- BitBtn5: TBitBtn;
- BitBtn6: TBitBtn;
- BitBtn7: TBitBtn;
- edtPath: TEdit;
- cbNumerator: TCheckBox;
- SpeedButton1: TSpeedButton;
- SpeedButton2: TSpeedButton;
- SpeedButton3: TSpeedButton;
- edtName: TEdit;
- edtMajor: TEdit;
- edtAuthor: TEdit;
- edtCompany: TEdit;
- Label1: TLabel;
- Label3: TLabel;
- Author: TLabel;
- Label4: TLabel;
- Label2: TLabel;
- Label5: TLabel;
- edtMinor: TEdit;
- edtRelease: TEdit;
- edtBuild: TEdit;
- Label6: TLabel;
- Label7: TLabel;
- Label8: TLabel;
- procedure SpeedButton2Click(Sender: TObject);
- procedure SpeedButton1Click(Sender: TObject);
- procedure SpeedButton3Click(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure XmlScanner1XmlProlog(Sender: TObject; XmlVersion,
- Encoding: string; Standalone: Boolean);
- procedure XmlScanner1StartTag(Sender: TObject; TagName: string;
- Attributes: TAttrList);
- procedure XmlScanner1PI(Sender: TObject; Target, Content: string;
- Attributes: TAttrList);
- procedure XmlScanner1EndTag(Sender: TObject; TagName: string);
- procedure XmlScanner1EmptyTag(Sender: TObject; TagName: string;
- Attributes: TAttrList);
- procedure XmlScanner1DtdRead(Sender: TObject; RootElementName: string);
- procedure XmlScanner1Content(Sender: TObject; Content: string);
- procedure XmlScanner1Comment(Sender: TObject; Comment: string);
- procedure XmlScanner1CData(Sender: TObject; Content: string);
- procedure btnLoadClick(Sender: TObject);
- procedure btnExploreClick(Sender: TObject);
- procedure stgrInstKeyPress(Sender: TObject; var Key: Char);
- procedure btnOpenIEClick(Sender: TObject);
- procedure btnOpenNotepadClick(Sender: TObject);
- procedure ledtVersionKeyPress(Sender: TObject; var Key: Char);
- procedure ledtCompanyKeyPress(Sender: TObject; var Key: Char);
- procedure ledtAuthorKeyPress(Sender: TObject; var Key: Char);
- procedure ledtNameKeyPress(Sender: TObject; var Key: Char);
- procedure btnLoadDemoClick(Sender: TObject);
- procedure btnClearClick(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure btnCreateXMLClick(Sender: TObject);
- private
- CurNode: TTreeNode;
- fXmlParser: TXmlParser;
- procedure HideControls();
- procedure UpdateControls(Name: string);
- procedure UpdateComponents();
- procedure ParseInit(XmlFile: string);
- procedure SetAttr(AttrName: string; var st: string);
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- form1: Tform1;
-
-implementation
-
-{$R *.dfm}
-
-procedure Tform1.UpdateComponents();
-begin
- TreeView.Items.BeginUpdate;
- TreeView.Items.Clear;
- CurNode := nil;
- XmlScanner1.Filename := edtPath.Text;
- XmlScanner1.Execute;
- TreeView.Items.EndUpdate;
- TreeView.FullExpand;
- EmbeddedWB1.Go(edtPath.Text);
-end;
-
-procedure Tform1.UpdateControls(Name: string);
-var
- i: integer;
-begin
- edtPath.Text := Name;
- gbFile.Visible := true;
- Caption := 'Updates XML creator : ' + Name;
- for i := 1 to PageControl1.PageCount - 1 do
- PageControl1.Pages[i].TabVisible := true;
-end;
-
-procedure Tform1.HideControls();
-var
- i: integer;
-begin
- gbFile.Visible := false;
- TreeView.Items.Clear;
- Caption := 'XML creator : by bsalsa';
- EmbeddedWB1.GoAboutBlank;
- for i := 1 to PageControl1.PageCount - 1 do
- PageControl1.Pages[i].TabVisible := false;
-end;
-
-procedure Tform1.FormShow(Sender: TObject);
-var
- i: integer;
-begin
- Caption := 'Updates XML creator : by bsalsa';
- stgrInst.Cols[0].Text := '#';
- for i := 1 to stgrInst.RowCount - 1 do
- begin
- stgrInst.Cells[0, i] := IntToStr(i);
- end;
- with stgrInst do
- begin
- Cols[1].Text := 'File Name';
- Cols[2].Text := 'Destination folder (Include SubFolders if needed)';
- Cols[3].Text := 'Terminate (yes/no)';
- end;
- memInfo.Lines.Text := 'The Change Log: ';
- PageControl1.ActivePageIndex := 0;
- HideControls();
-end;
-
-procedure Tform1.btnClearClick(Sender: TObject);
-var
- i, j: integer;
-begin
- for i := 1 to stgrInst.RowCount - 1 do
- for j := 1 to stgrInst.ColCount - 1 do
- stgrInst.Cells[j, i] := '';
- memInfo.Lines.Clear;
- edtName.Text := '';
- edtMajor.Text := '';
- edtMinor.Text := '';
- edtRelease.Text := '';
- edtBuild.Text := '';
- edtCompany.Text := '';
- edtAuthor.Text := '';
- TreeView.Items.Clear;
- HideControls();
-end;
-
-procedure Tform1.btnLoadDemoClick(Sender: TObject);
-begin
- edtName.Text := 'project1';
- edtMajor.Text := '1';
- edtMinor.Text := '0';
- edtRelease.Text := '0';
- edtBuild.Text := '0';
- edtCompany.Text := 'bsalsa Productions';
- edtAuthor.Text := 'bsalsa';
- with memInfo.Lines do
- begin
- Add('*Added new demo for the updater.');
- Add('*Added an option to create XML files.');
- Add('*Cleaned up the code.');
- Add('*Faster update procedures.');
- Add('*Option to add personal details.');
- Add('*Option to match details (application and remote file).');
- Add('and so on...');
- end;
- with stgrInst do
- begin
- Cells[1, 1] := 'Test.txt';
- Cells[2, 1] := 'Application new folder';
- Cells[3, 1] := 'no';
- Cells[1, 2] := 'Credits.txt';
- Cells[2, 2] := 'Updater_Test';
- Cells[3, 2] := 'no';
- Cells[1, 3] := 'ReadMe.txt';
- Cells[2, 3] := 'Updater_Test';
- Cells[3, 3] := 'yes';
- Cells[1, 4] := 'Project1.exe';
- Cells[2, 4] := '';
- Cells[3, 4] := 'yes';
- end;
-end;
-
-procedure Tform1.ledtNameKeyPress(Sender: TObject; var Key: Char);
-begin
- if (key = #13) or (key = #09) then EdtMajor.SetFocus;
-end;
-
-procedure Tform1.ledtVersionKeyPress(Sender: TObject; var Key: Char);
-begin
- if (key = #13) or (key = #09) then EdtAuthor.SetFocus;
-end;
-
-procedure Tform1.ledtAuthorKeyPress(Sender: TObject; var Key: Char);
-begin
- if (key = #13) or (key = #09) then EdtCompany.SetFocus;
-end;
-
-procedure Tform1.ledtCompanyKeyPress(Sender: TObject; var Key: Char);
-begin
- if (key = #13) or (key = #09) then memInfo.SetFocus;
-end;
-
-procedure Tform1.btnOpenNotepadClick(Sender: TObject);
-begin
- if edtPath.Text <> '' then
- ShellExecute(Handle, 'open', 'notepad.exe', Pchar(edtPath.Text), nil, SW_SHOWNORMAL)
- else
- MessageDlg('What file exactly you want to open?',
- mtError, [mbCancel], 0);
-end;
-
-procedure Tform1.btnOpenIEClick(Sender: TObject);
-begin
- if edtPath.Text <> '' then
- ShellExecute(Handle, 'open', 'Explorer', Pchar(edtPath.Text), nil, SW_SHOWNORMAL)
- else
- MessageDlg('What file exactly do you want to open?', mtError, [mbCancel], 0);
-end;
-
-procedure Tform1.btnExploreClick(Sender: TObject);
-begin
- if edtPath.Text <> '' then
- ShellExecute(Application.Handle, PChar('explore'),
- Pchar(ExtractFilePath(edtPath.Text)), nil, nil, SW_SHOWNORMAL)
- else
- MessageDlg('What file exactly do you want to open?',
- mtError, [mbCancel], 0);
-end; ///ExtractFilePath
-
-procedure Tform1.stgrInstKeyPress(Sender: TObject; var Key: Char);
-begin
- if (key = #13) or (key = #09) then
- if stgrInst.Col < stgrInst.ColCount - 1 then
- with stgrInst do
- begin
- if col < 3 then
- begin
- Col := Col + 1;
- SetFocus;
- end
- end
- else
- with stgrInst do
- begin
- Row := Row + 1;
- Col := 1;
- SetFocus;
- end;
- if stgrInst.Row = stgrInst.RowCount - 1 then
- MessageDlg('You have reached the limit of 50 lines (You can change it ' +
- 'to what ever, if you need more).', mtError, [mbCancel], 0);
-end;
-
-procedure Tform1.btnLoadClick(Sender: TObject);
-var
- Container: string;
- od: TOpenDialog;
- i: integer;
- Node: TNvpNode;
- function GetXmlHead(): boolean;
- begin
- Result := false;
- while fXmlParser.Scan() do
- begin
- if fXmlParser.CurPartType = ptXmlProlog then
- begin
- Result := true;
- exit;
- end;
- end;
- end;
-
- function GetXmlTag(const TagName: string): boolean;
- begin
- Result := false;
- while fXmlParser.Scan() do
- begin
- if ((fXmlParser.CurPartType = ptStartTag)
- or (fXmlParser.CurPartType = ptEmptyTag))
- and (fXmlParser.CurName = TagName) then
- begin
- Result := true;
- Exit;
- end;
- end;
- end;
-
- function GetXmlData(): boolean;
- begin
- Result := false;
- while fXmlParser.Scan() do
- begin
- if ((fXmlParser.CurPartType = ptContent) or (fXmlParser.CurPartType = ptCData)) then
- begin
- Result := true;
- exit;
- end
- end;
- end;
-
-begin
- OD := TOpenDialog.Create(Self);
- with OD do
- begin
- Title := 'Load XML file';
- Filter := 'XML files (*.xml)|*.XML';
- DefaultExt := 'xml';
- end;
- if OD.Execute then
- begin
- edtPath.Text := OD.Filename;
- Caption := 'XML creator : ' + OD.Filename;
- UpdateComponents();
- ParseInit(OD.Filename);
- try
- if not GetXmlHead() then exit;
- if not GetXmlTag('Updates') then Exit;
- if not GetXmlTag('Details') then Exit;
- if not GetXmlTag('ApplicationName') then Exit;
- if not GetXmlData() then Exit;
- edtName.Text := fXmlParser.CurContent;
- if not GetXmlTag('Author') then Exit;
- if not GetXmlData() then Exit;
- edtAuthor.Text := fXmlParser.CurContent;
- if not GetXmlTag('Company') then Exit;
- if not GetXmlData() then Exit;
- edtCompany.Text := fXmlParser.CurContent;
-
- if not GetXmlTag('MajorVersion') then Exit;
- if not GetXmlData() then Exit;
- EdtMajor.Text := fXmlParser.CurContent;
-
- if not GetXmlTag('MinorVersion') then Exit;
- if not GetXmlData() then Exit;
- EdtMinor.Text := fXmlParser.CurContent;
-
- if not GetXmlTag('ReleaseVersion') then Exit;
- if not GetXmlData() then Exit;
- EdtRelease.Text := fXmlParser.CurContent;
-
- if not GetXmlTag('BuildVersion') then Exit;
- if not GetXmlData() then Exit;
- EdtBuild.Text := fXmlParser.CurContent;
-
-
- if not GetXmlTag('ChangeLog') then Exit;
- while GetXmlTag('Info') do
- begin
- for i := 0 to fXmlParser.CurAttr.Count - 1 do
- begin
- Node := TNvpNode(fXmlParser.CurAttr[i]);
- if Node.Name = 'Text' then
- memInfo.Lines.Add(Node.Value)
- end;
- end;
- fXmlParser.StartScan;
- i := 0;
- if not GetXmlTag('Instructions') then Exit;
- while GetXmlTag('File') do
- begin
- if (FXmlParser.CurAttr.Count > 0) then
- begin
- inc(i);
- SetAttr('Name', Container);
- stgrInst.Cells[1, i] := Container;
- SetAttr('Destination', Container);
- stgrInst.Cells[2, i] := Container;
- SetAttr('Terminate', Container);
- stgrInst.Cells[3, i] := Container;
- end;
- end;
- finally
- UpdateControls(OD.FileName);
- OD.Free;
- end;
- end;
-end;
-
-procedure Tform1.ParseInit(XmlFile: string);
-begin
- fXmlParser := TXmlParser.Create;
- with fXmlParser do
- begin
- LoadFromFile(PChar(XmlFile));
- Normalize := True;
- StartScan;
- end;
-end;
-
-procedure Tform1.btnCreateXMLClick(Sender: TObject);
-var
- SD: TSaveDialog;
- i: integer;
- MS: TMemoryStream;
- st: string;
- procedure WriteString(const str: string);
- var
- Temp: Utf8String;
- begin
- if str <> '' then
- begin
- Temp := Utf8Encode(Str);
- MS.Write(Pointer(Temp)^, Length(Temp));
- end;
- end;
-
-begin
- edtPath.Text := '';
- MS := TMemoryStream.Create;
- MS.Position := 0;
- try
- WriteString(''#13#10);
- // WriteString(''#13#10);
- WriteString(''#13#10);
- WriteString(' '#13#10);
- WriteString(#9'' + edtName.Text + ''#13#10);
- WriteString(#9'' + edtAuthor.Text + ''#13#10);
- WriteString(#9'' + edtCompany.Text + ''#13#10);
-
- WriteString(#9'' + edtMajor.Text + ''#13#10);
- WriteString(#9'' + edtMinor.Text + ''#13#10);
- WriteString(#9'' + edtRelease.Text + ''#13#10);
- WriteString(#9'' + edtBuild.Text + ''#13#10);
-
- WriteString(' '#13#10);
- WriteString(' '#13#10);
- for i := 1 to memInfo.Lines.Count - 1 do
- begin
- if cbNumerator.Checked then
- st := IntToStr(i) + '. ' + memInfo.Lines.Strings[i] + ''
- else
- st := memInfo.Lines.Strings[i] + '';
- WriteString(#9 + '' + #13#10);
- end;
- WriteString(' '#13#10);
- WriteString(' '#13#10);
- for i := 1 to stgrInst.RowCount - 1 do
- begin
- if stgrInst.Cells[1, 1] <> '' then
- begin
- if stgrInst.Cells[1, i] <> '' then
- begin
- if ((stgrInst.Cells[3, i] = 'yes') or (stgrInst.Cells[3, i] = 'no')) then
- begin
- WriteString(#9''#13#10)
- end
- else
- begin
- MessageDlg('The Terminame field must contain "yes" or "no" only.'
- , mtError, [mbCancel], 0);
- end;
- end;
- end
- else
- begin
- MessageDlg('You must enter at least one file to update :).'
- , mtError, [mbCancel], 0);
- Exit;
- end;
- end;
- WriteString(' '#13#10);
- WriteString(''#13#10);
-
- SD := TSaveDialog.Create(Self);
- with SD do
- begin
- Title := 'Save XML file';
- DefaultExt := 'xml';
- Filter := 'XML files (*.xml)|*.XML';
- FileName := 'NewUpdate.xml';
- if cbOverWrite.Checked then
- Options := [ofHideReadOnly, ofEnableSizing, ofOverWritePrompt];
- end;
- if SD.Execute then
- begin
- ms.SaveToFile(SD.FileName);
- UpdateControls(SD.FileName);
- UpdateComponents;
- ShowMessage('You have ceated the proper XML file.' + #10 + #13 +
- 'The file is stored in: ' + #10 + #13 + edtPath.Text + #10 + #13 +
- 'Now, upload the file to the web site remote folder using ftp.');
- end;
- finally
- EmbeddedWB1.Go(edtPath.Text);
- ms.Free;
- end;
-end;
-
-procedure Tform1.SetAttr(AttrName: string; var st: string);
-var
- Node: TNvpNode;
-begin
- Node := FXmlParser.CurAttr.Node(AttrName);
- if Node <> nil then
- st := Node.Value;
-end;
-
-procedure Tform1.XmlScanner1CData(Sender: TObject; Content: string);
-begin
- Content := StringReplace(Content, #13, ' ', [rfReplaceAll]);
- Content := StringReplace(Content, #10, '', [rfReplaceAll]);
- TreeView.Items.AddChild(CurNode, Content);
-end;
-
-procedure Tform1.XmlScanner1Comment(Sender: TObject; Comment: string);
-begin
- TreeView.Items.AddChild(CurNode, 'Comment');
-end;
-
-procedure Tform1.XmlScanner1Content(Sender: TObject; Content: string);
-begin
- Content := StringReplace(Content, #13, ' ', [rfReplaceAll]);
- Content := StringReplace(Content, #10, '', [rfReplaceAll]);
- TreeView.Items.AddChild(CurNode, Content);
-end;
-
-procedure Tform1.XmlScanner1DtdRead(Sender: TObject; RootElementName: string);
-begin
- TreeView.Items.AddChild(CurNode, 'DTD: ' + RootElementName);
-end;
-
-procedure Tform1.XmlScanner1EmptyTag(Sender: TObject; TagName: string;
- Attributes: TAttrList);
-var
- i: integer;
-begin
- CurNode := TreeView.Items.AddChild(CurNode, 'Element "' + TagName + '" (Empty)');
- for i := 0 to Attributes.Count - 1 do
- TreeView.Items.AddChild(CurNode, ' * Attribute ' + Attributes.Name(i) + '=' + Attributes.Value(i));
- CurNode := CurNode.Parent;
-end;
-
-procedure Tform1.XmlScanner1EndTag(Sender: TObject; TagName: string);
-begin
- if CurNode <> nil then
- CurNode := CurNode.Parent;
-end;
-
-procedure Tform1.XmlScanner1PI(Sender: TObject; Target, Content: string;
- Attributes: TAttrList);
-begin
- TreeView.Items.AddChild(CurNode, 'Processing Instruction: ' + Content);
-end;
-
-procedure Tform1.XmlScanner1StartTag(Sender: TObject; TagName: string;
- Attributes: TAttrList);
-var
- i: integer;
-begin
- CurNode := TreeView.Items.AddChild(CurNode, 'Element "' + TagName + '"');
- for i := 0 to Attributes.Count - 1 do
- TreeView.Items.AddChild(CurNode, ' * Attribute ' + Attributes.Name(i) + '=' + Attributes.Value(i));
-end;
-
-procedure TForm1.XmlScanner1XmlProlog(Sender: TObject; XmlVersion,
- Encoding: string; Standalone: Boolean);
-begin
- TreeView.Items.AddChild(CurNode, 'XML Prolog: Version=' + XmlVersion + ' Encoding=' + Encoding);
-end;
-
-procedure Tform1.Button1Click(Sender: TObject);
-begin
- TreeView.FullExpand;
-end;
-
-procedure Tform1.Button2Click(Sender: TObject);
-begin
- TreeView.FullCollapse;
-end;
-
-procedure Tform1.FormResize(Sender: TObject);
-begin
- with stgrInst do
- begin
- ColWidths[1] := Round(100 * Self.Width / 580);
- ColWidths[2] := Round(335 * Self.Width / 580);
- end;
-end;
-
-procedure Tform1.SpeedButton3Click(Sender: TObject);
-begin
- edtName.Text := '';
- edtMajor.Text := '';
- edtMinor.Text := '';
- edtRelease.Text := '';
- edtBuild.Text := '';
- edtCompany.Text := '';
- edtAuthor.Text := '';
- HideControls();
-end;
-
-procedure Tform1.SpeedButton1Click(Sender: TObject);
-begin
- memInfo.Lines.Clear;
- HideControls();
-end;
-
-procedure Tform1.SpeedButton2Click(Sender: TObject);
-var
- i, j: integer;
-begin
- for i := 1 to stgrInst.RowCount - 1 do
- for j := 1 to stgrInst.ColCount - 1 do
- stgrInst.Cells[j, i] := '';
- HideControls();
-end;
-
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/prjProject1Demo.dpr b/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/prjProject1Demo.dpr
deleted file mode 100644
index b8e98d290bf84c4ffc5ee5f471435807508c854a..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/20 - WebUpdater_Demo/Updater_XML_File_Creator/prjProject1Demo.dpr
+++ /dev/null
@@ -1,45 +0,0 @@
-//***********************************************************
-// WebUpdater demo *
-// *
-// For Delphi 5,6, 7 , 2005, 2006 *
-// Freeware demo *
-// By: Eran Bodankin (bsalsa) bsalsa@bsalsa.com *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-program prjProject1Demo;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/VariousDemos.bpg b/windows/src/ext/embeddedwb/Demos/Various Demos/VariousDemos.bpg
deleted file mode 100644
index 0a5aede589bf0a16b174ef085b12a374d59069b7..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/VariousDemos.bpg
+++ /dev/null
@@ -1,102 +0,0 @@
-#------------------------------------------------------------------------------
-VERSION = BWS.01
-#------------------------------------------------------------------------------
-!ifndef ROOT
-ROOT = $(MAKEDIR)\..
-!endif
-#------------------------------------------------------------------------------
-MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
-DCC = $(ROOT)\bin\dcc32.exe $**
-BRCC = $(ROOT)\bin\brcc32.exe $**
-#------------------------------------------------------------------------------
-PROJECTS = prjEditDDemo.exe prjExportFavoritesDemo.exe prjFile_AssDemo.exe \
- prjGuidCreatorDemo.exe prjIEGuidDemo.exe prjIEAddressDemo.exe \
- prjCacheDemo.exe prjDownloaderDemo.exe \
- prjDownloadMgrDemo.exe prjDownloadMgrDemo.exe \
- prjMultiDLDemo.exe prjIEParserDemo.exe prjTravellogDemo.exe \
- prjLinksDemo.exe prjProject1Demo.exe prjMimeDemo.exe prjProject1Demo.exe \
- prjZonesSecurityDemo.exe prjUIParser_Demo.exe prjMainDemo.exe \
- prjUrlHistoryDemo.exe prjSearchhookDemo.exe prjProject1Demo.exe \
- prjProject1Demo.exe
-
-#------------------------------------------------------------------------------
-default: $(PROJECTS)
-#------------------------------------------------------------------------------
-
-prjEditDDemo.exe: 01 - EditDesigner_Demo\prjEditDDemo.dpr
- $(DCC)
-
-prjExportFavoritesDemo.exe: 02 - ExportFavorites_Demo\prjExportFavoritesDemo.dpr
- $(DCC)
-
-prjFile_AssDemo.exe: 03 - FileAssociate_Demo\prjFile_AssDemo.dpr
- $(DCC)
-
-prjGuidCreatorDemo.exe: 04 - GUID_Demo\GUID_Creator\prjGuidCreatorDemo.dpr
- $(DCC)
-
-prjIEGuidDemo.exe: 04 - GUID_Demo\IEGuid\prjIEGuidDemo.dpr
- $(DCC)
-
-prjIEAddressDemo.exe: 05 - IEAddress_Demo\prjIEAddressDemo.dpr
- $(DCC)
-
-prjCacheDemo.exe: 06 - IECache_Demo\prjCacheDemo.dpr
- $(DCC)
-
-prjDownloaderDemo.exe: 07 - IEDownload_Demo\IEDownload_Creating_Dynamically (at Run-Time)\prjDownloaderDemo.dpr
- $(DCC)
-
-#prjDownloadManagerDemo.dll: 07 - IEDownload_Demo\IEDownload_DownloadManager_Demo\Internet Explorer_OutOfDate\prjDownloadManagerDemo.dpr
-# $(DCC)
-
-prjDownloadMgrDemo.exe: 07 - IEDownload_Demo\IEDownload_DownloadManager_Demo\Webbrowser\prjDownloadMgrDemo.dpr
- $(DCC)
-
-#prjDownloadDemo.exe: 07 - IEDownload_Demo\IEDownload_Mega_Demo\prjDownloadDemo.dpr
-# $(DCC)
-
-prjDownloadMgrDemo.exe: 07 - IEDownload_Demo\IEDownload_Multiple Files_Simultaneous_Downloading\prjDownloadMgrDemo.dpr
- $(DCC)
-
-prjMultiDLDemo.exe: 08 - IEMultiDownload\prjMultiDLDemo.dpr
- $(DCC)
-
-prjIEParserDemo.exe: 09 - IEParser_Demo\prjIEParserDemo.dpr
- $(DCC)
-
-prjTravellogDemo.exe: 10 - IETravellog_Demo\prjTravellogDemo.dpr
- $(DCC)
-
-prjLinksDemo.exe: 11 - LabelLink_Demo\prjLinksDemo.dpr
- $(DCC)
-
-prjProject1Demo.exe: 12 - LinksBar_Demo\prjProject1Demo.dpr
- $(DCC)
-
-prjMimeDemo.exe: 13 - MimeFilter_Demo\prjMimeDemo.dpr
- $(DCC)
-
-prjProject1Demo.exe: 14 - RichEditWB_Demo\prjProject1Demo.dpr
- $(DCC)
-
-prjZonesSecurityDemo.exe: 15 - Zones_Security_Demo\prjZonesSecurityDemo.dpr
- $(DCC)
-
-prjUIParser_Demo.exe: 16 - UI-Less_Demo\prjUIParser_Demo.dpr
- $(DCC)
-
-prjMainDemo.exe: 17 - URL_Demo\prjMainDemo.dpr
- $(DCC)
-
-prjUrlHistoryDemo.exe: 18 - URL_History_Demo\prjUrlHistoryDemo.dpr
- $(DCC)
-
-prjSearchhookDemo.exe: 19 - URLSearchHook\prjSearchhookDemo.dpr
- $(DCC)
-
-prjProject1Demo.exe: 20 - WebUpdater_Demo\Updater_Demo\prjProject1Demo.dpr
- $(DCC)
-
-prjProject1Demo.exe: 20 - WebUpdater_Demo\Updater_XML_File_Creator\prjProject1Demo.dpr
- $(DCC)
diff --git a/windows/src/ext/embeddedwb/Demos/Various Demos/VariousDemos.groupproj b/windows/src/ext/embeddedwb/Demos/Various Demos/VariousDemos.groupproj
deleted file mode 100644
index f5d0c90090aad14b179b60855d3675fd5643f16d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Demos/Various Demos/VariousDemos.groupproj
+++ /dev/null
@@ -1,264 +0,0 @@
-
-
- {45F7C09F-A0B5-4E82-B687-275E2A4C62B4}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Default.Personality.12
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/windows/src/ext/embeddedwb/EmbeddedWB_D5-XE_Version_14.70.0.zip b/windows/src/ext/embeddedwb/EmbeddedWB_D5-XE_Version_14.70.0.zip
deleted file mode 100644
index e3c90cfdc8477307133ddc2872672053b1c29bde..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/EmbeddedWB_D5-XE_Version_14.70.0.zip and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Licence.txt b/windows/src/ext/embeddedwb/Licence.txt
deleted file mode 100644
index 015234926159e285383c5383da7cd62d44401bdd..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Licence.txt
+++ /dev/null
@@ -1,22 +0,0 @@
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
\ No newline at end of file
diff --git a/windows/src/ext/embeddedwb/Makefile b/windows/src/ext/embeddedwb/Makefile
deleted file mode 100644
index 6e4d7c7a6eb471ad0043595f3102bb3761e44734..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Makefile
+++ /dev/null
@@ -1,19 +0,0 @@
-#
-# Embeddedwb Makefile (Tavultesoft)
-#
-
-!include ..\..\Defines.mak
-
-build: dirs
- cd Source
- $(DCC32DPK) ..\Packages\EmbeddedWebBrowser_XE.dpk
- cd ..
- $(MAKE) install
-
-install:
- $(DEVTOOLS) -ip $(OUTLIB)\EmbeddedWebBrowser_XE.bpl
- $(DEVTOOLS) -ai $(EXT)\embeddedwb\source
-
-clean: def-clean
-
-!include ..\..\Target.mak
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2006.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2006.dpk
deleted file mode 100644
index 3799cada43c9bb9fba9f7708ccd5a27037c530d4..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2006.dpk
+++ /dev/null
@@ -1,130 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 2006 }
-{ }
-{ For Delphi 5 - XE }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-package EmbeddedWebBrowser_D2006;
-{$R *.res}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS OFF}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-{%File 'EWB.inc'}
-
-requires
- designide,
- vcljpg,
- rtl,
- vcl;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- IEParser in '..\Source\IEParser.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- IeConst in '..\Source\IeConst.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbTools in '..\Source\EwbTools.pas',
- DirMonitor in '..\Source\DirMonitor.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbCore in '..\Source\EwbCore.pas',
- MenuContext in '..\Source\MenuContext.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2007.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2007.dpk
deleted file mode 100644
index ebd84e1b8b9393d749664fb3e162cbea0e8a4f37..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2007.dpk
+++ /dev/null
@@ -1,129 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 2007 }
-{ }
-{ For Delphi 5 - XE }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-package EmbeddedWebBrowser_D2007;
-{$R *.res}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS OFF}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-
-requires
- designide,
- vcljpg,
- rtl,
- vcl;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- IEParser in '..\Source\IEParser.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- IeConst in '..\Source\IeConst.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbTools in '..\Source\EwbTools.pas',
- DirMonitor in '..\Source\DirMonitor.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbCore in '..\Source\EwbCore.pas',
- MenuContext in '..\Source\MenuContext.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2009.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2009.dpk
deleted file mode 100644
index ced03ef0bb8274f0e7a30a2d01ac6653ed5d555e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2009.dpk
+++ /dev/null
@@ -1,128 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 2009 }
-{ }
-{ For Delphi 5 - XE }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-package EmbeddedWebBrowser_D2009;
-{$R *.res}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS OFF}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-
-requires
- designide,
- rtl,
- vcl,
- vclimg;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- IEParser in '..\Source\IEParser.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- IeConst in '..\Source\IeConst.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbTools in '..\Source\EwbTools.pas',
- DirMonitor in '..\Source\DirMonitor.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbCore in '..\Source\EwbCore.pas',
- MenuContext in '..\Source\MenuContext.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2010.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2010.dpk
deleted file mode 100644
index 9584a9ce016add700902b21eb06a646f2cf96bcf..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D2010.dpk
+++ /dev/null
@@ -1,130 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 2010 }
-{ }
-{ For Delphi 5 - XE }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-{$IMPLICITBUILD OFF}
-
-package EmbeddedWebBrowser_D2010;
-{$R *.res}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS OFF}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-
-requires
- designide,
- rtl,
- vcl,
- vclimg;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- IEParser in '..\Source\IEParser.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- IeConst in '..\Source\IeConst.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbTools in '..\Source\EwbTools.pas',
- DirMonitor in '..\Source\DirMonitor.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbCore in '..\Source\EwbCore.pas',
- MenuContext in '..\Source\MenuContext.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D5.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D5.dpk
deleted file mode 100644
index 7c17487d6fd6ba5d056e984f4aec403dc5376a5d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D5.dpk
+++ /dev/null
@@ -1,129 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 5 }
-{ }
-{ For Delphi 5, 6, 7, 2005, 2006, 2007, 2009 }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-{$B-}
-
-package EmbeddedWebBrowser_D5;
-{$R *.RES}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL ON}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS OFF}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS OFF}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-
-requires
- Vclx50,
- vcljpg50,
- vclie50;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IEAddress in '..\Source\IEAddress.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IEGuid in '..\Source\IEGuid.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- IEParser in '..\Source\IEParser.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- DIRMonitor in '..\Source\DirMonitor.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbCore in '..\Source\EwbCore.pas',
- EWBTools in '..\Source\EwbTools.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- wcrypt2 in '..\Source\Wcrypt2.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- IEConst in '..\Source\IeConst.pas',
- MenuContext in '..\Source\MenuContext.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D6.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D6.dpk
deleted file mode 100644
index 0700f142f2acd244180d4fd834f5b210c5ff7a92..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D6.dpk
+++ /dev/null
@@ -1,128 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 6 }
-{ }
-{ For Delphi 5, 6, 7, 2005, 2006, 2007, 2009 }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-package EmbeddedWebBrowser_D6;
-{$R *.res}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-
-requires
- vcljpg,
- designide,
- vclx;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- IEParser in '..\Source\IEParser.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- IeConst in '..\Source\IeConst.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbTools in '..\Source\EwbTools.pas',
- DirMonitor in '..\Source\DirMonitor.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbCore in '..\Source\EwbCore.pas',
- MenuContext in '..\Source\MenuContext.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D7.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D7.dpk
deleted file mode 100644
index 933fc6dc7b508c14be5a484fe2c2d02bbb24ed88..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_D7.dpk
+++ /dev/null
@@ -1,131 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi 7 }
-{ }
-{ For Delphi 5, 6, 7, 2005, 2006, 2007, 2009 }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-package EmbeddedWebBrowser_D7;
-{$R *.res}
-{$R '..\Source\EWB.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS OFF}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD OFF}
-
-requires
- designide,
- vcljpg,
- rtl,
- vcl;
-
-contains
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- IEParser in '..\Source\IEParser.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- EwbCore in '..\Source\EwbCore.pas',
- DIRMonitor in '..\Source\DirMonitor.pas',
- wcrypt2 in '..\Source\Wcrypt2.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EWBTools in '..\Source\EwbTools.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- IEConst in '..\Source\IeConst.pas',
- IEGuid in '..\Source\IEGuid.pas',
- MenuContext in '..\Source\MenuContext.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas';
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.dpk b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.dpk
deleted file mode 100644
index c432e80da00f3d7da6a826279e3744753333f7e8..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.dpk
+++ /dev/null
@@ -1,132 +0,0 @@
-{*******************************************************}
-{ Embedded Web Browser package Delphi XE }
-{ }
-{ For Delphi 5 - XE }
-{ Freeware Components }
-{ Please note our uses terms }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-package EmbeddedWebBrowser_XE;
-{$R *.res}
-{$R '..\source\ewb.dcr'}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 8}
-{$ASSERTIONS OFF}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION OFF}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES ON}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DEFINE DEBUG}
-{$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'Internet Embedded Web Browser Components'}
-{$IMPLICITBUILD ON}
-
-requires
- designide,
- rtl,
- vcl,
- vclimg;
-
-contains
- EmbeddedWB in '..\Source\EmbeddedWB.pas',
- AppWebUpdater in '..\Source\AppWebUpdater.pas',
- AppWUStrings in '..\Source\AppWUStrings.pas',
- ExportFavorites in '..\Source\ExportFavorites.pas',
- IEParser in '..\Source\IEParser.pas',
- FavMenu in '..\Source\FavMenu.pas',
- FavoritesListView in '..\Source\FavoritesListView.pas',
- FavoritesTree in '..\Source\FavoritesTree.pas',
- HistoryListView in '..\Source\HistoryListView.pas',
- HistoryMenu in '..\Source\HistoryMenu.pas',
- IECache in '..\Source\IECache.pas',
- IEDownload in '..\Source\IEDownload.pas',
- IEMultiDownload in '..\Source\IEMultiDownload.pas',
- IEDownloadStrings in '..\Source\IEDownloadStrings.pas',
- IEDownloadAcc in '..\Source\IEDownloadAcc.pas',
- IETravelLog in '..\Source\IETravelLog.pas',
- ImportFavorites in '..\Source\ImportFavorites.pas',
- LibXmlComps in '..\Source\LibXmlComps.pas',
- LibXmlParser in '..\Source\LibXmlParser.pas',
- LinksBar in '..\Source\LinksBar.pas',
- RichEditBrowser in '..\Source\RichEditBrowser.pas',
- SecurityManager in '..\Source\SecurityManager.pas',
- SendMail_For_Ewb in '..\Source\SendMail_For_Ewb.pas',
- UrlHistory in '..\Source\UrlHistory.pas',
- Edithost in '..\Source\Edithost.pas',
- EditDesigner in '..\Source\EditDesigner.pas',
- IEAddress in '..\Source\IEAddress.pas',
- EwbEditors in '..\Source\EwbEditors.pas',
- EwbReg in '..\Source\EwbReg.pas',
- Browse4Folder in '..\Source\Browse4Folder.pas',
- FileExtAssociate in '..\Source\FileExtAssociate.pas',
- LinksLabel in '..\Source\LinksLabel.pas',
- EwbIeConst in '..\Source\EwbIeConst.pas',
- EwbAcc in '..\Source\EwbAcc.pas',
- EwbTools in '..\Source\EwbTools.pas',
- DirMonitor in '..\Source\DirMonitor.pas',
- HighLightXML in '..\Source\HighLightXML.pas',
- HighLightHTML in '..\Source\HighLightHTML.pas',
- Mshtml_Ewb in '..\Source\Mshtml_Ewb.pas',
- HighLightRichSyntax in '..\Source\HighLightRichSyntax.pas',
- SHDocVw_EWB in '..\Source\SHDocVw_EWB.pas',
- UI_Less in '..\Source\UI_Less.pas',
- EwbCore in '..\Source\EwbCore.pas',
- MenuContext in '..\Source\MenuContext.pas',
- FavoritesPopup in '..\Source\FavoritesPopup.pas',
- EwbDDE in '..\Source\EwbDDE.pas',
- EwbCoreTools in '..\Source\EwbCoreTools.pas',
- EwbClasses in '..\Source\EwbClasses.pas',
- EwbBehaviorsComp in '..\Source\EwbBehaviorsComp.pas',
- EwbEvents in '..\Source\EwbEvents.pas',
- EwbEventsComp in '..\Source\EwbEventsComp.pas',
- EwbActns in '..\Source\EwbActns.pas',
- EwbUrl in '..\Source\EwbUrl.pas',
- IEDownloadTools in '..\Source\IEDownloadTools.pas',
- wbhFixes in '..\Source\wbhFixes.pas',
- MSHTMLEvents in '..\Source\MSHTMLEvents.pas',
- EwbControlComponent in '..\Source\EwbControlComponent.pas',
- EwbMouseHook in '..\Source\EwbMouseHook.pas',
- EwbFocusControl in '..\Source\EwbFocusControl.pas',
- Wcrypt2 in '..\Source\Wcrypt2.pas';
-
-end.
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.dproj b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.dproj
deleted file mode 100644
index cf161e705bd5a0380f36c3588154f07c6a124e4f..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.dproj
+++ /dev/null
@@ -1,221 +0,0 @@
-
-
- {5C177931-F586-401D-A651-2A85FC71CAAC}
- EmbeddedWebBrowser_XE.dpk
- True
- Debug
- 1
- Package
- VCL
- 18.2
- Win32
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Cfg_2
- true
- true
-
-
- EmbeddedWebBrowser_XE
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 00400000
- 0
- true
- Internet Embedded Web Browser Components
- 0
- false
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)
- false
- false
- true
- false
- 3081
- false
- false
- false
-
-
- true
- Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
-
-
- false
- 0
- RELEASE;$(DCC_Define)
-
-
- 0
- DEBUG;$(DCC_Define)
- false
- true
-
-
- ..\..\..\..\lib
- ..\..\..\..\lib
- true
- 1033
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
- Delphi.Personality.12
- Package
-
-
-
- EmbeddedWebBrowser_XE.dpk
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3081
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- File c:\keyman\windows\lib\PMemo6DXE2.bpl not found
- File c:\keyman\windows\lib\DCPdelphi2009.bpl not found
- File c:\keyman\windows\lib\mbColorLibD10.bpl not found
- File c:\keyman\windows\lib\scFontCombo.bpl not found
- File c:\keyman\windows\lib\keyman_components.bpl not found
- File c:\keyman\windows\lib\JvCoreDesign250.bpl not found
- File C:\keyman\windows\lib\JclVcl250.bpl not found
- File C:\keyman\windows\lib\Jcl250.bpl not found
- File C:\keyman\windows\lib\JvCore250.bpl not found
- File c:\keyman\windows\lib\JvDockingDesign250.bpl not found
- File C:\keyman\windows\lib\JvDocking250.bpl not found
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- Microsoft Office XP Sample Automation Server Wrapper Components
- File c:\keyman\windows\lib\JvCoreDesign240.bpl not found
- File c:\keyman\windows\lib\JvDockingDesign240.bpl not found
-
-
-
- True
- False
-
-
- 12
-
-
-
-
diff --git a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.res b/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.res
deleted file mode 100644
index a64cea33b7bbf9c30d10d7750693ab849f870abc..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Packages/EmbeddedWebBrowser_XE.res and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/ReadMe_Install.txt b/windows/src/ext/embeddedwb/ReadMe_Install.txt
deleted file mode 100644
index 9c8f3e172823cdc7710a65c24000e703b0fdb065..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/ReadMe_Install.txt
+++ /dev/null
@@ -1,72 +0,0 @@
-=============================================================
-EmbeddedWB Component Pack
-=============================================================
-
-bsalsa productions develop freeware solutions for users and programmers under "Borland Delphi" with "Microsoft Windows" OS.
-Our main product is the Embedded Web Browser component package.
-Most of its components were originally developed by Per Linds? Larsen.
-Our package gives you a complete solution to develop and control Internet based applications.
-It allows you to create a customized Web browsing application, add Internet, file and network browsing, document viewing,
-and data downloading capabilities to your applications.
-In the package there are many components that answer the needs of the programmer
-from Internet web browsers, to applications web updating.
-The components support all Borland Delphi versions from Delphi 5 to Delphi XE and we update our components often on a weekly basis.
-Our guiding line is easy use and implementation so, all the components are under one tab and the code
-implementation in with one line of code! In the package, we included a full featured demos so that programmers can easily
-understand "how to do what".
-
-Our major goals are:
-
-* Fast.
-* Handy.
-* Small.
-* Freeware.
-
-//*************************************************************
-
-Please read the credits file to find "who did what.
-If you use this componets or any code part you do it on your own responsibility.
-There is no guaranty what so ever for none.
-Please credit the creators and the contributors of the components.
-
-Check the mega demo for demonstration of the package capabilities.
-
-We do need beta testers and developers and someone that can write a help file.
-
-If you find the component useful, please e-mail some additional samples to post on this webpage,
-bug report/fix or suggestions for enhancements to smot777@yahoo.com
-
-//*************************************************************
-
-Web Site Address: http://www.bsalsa.com
-Support: http://www.bsalsa.com/support.html
-Forum: http://www.bsalsa.com/forum
-
-
-//*************************************************************
-
-* Installation:
-
-Install: D5, D6, D7 :http://www.bsalsa.com/ewb_install_d5_d7.html
-Install: D2005/D2006 http://www.bsalsa.com/ewb_install_d200.html
-
-(D2007/D2009/D2010/XE Installation: Read the installation for D2005/D2006 and use the corresponding files)
-
-Also see the D2009/D2010/XE installation instructions at http://www.bsalsa.com/forum/showthread.php?t=904
-
-* Uninstall:
-
-To Uninstall previously installed version of the EmbeddedWB Component Pack from the Delphi IDE:
-
-- Use the "Component\Install Packages..." menu item to open the "Packages" dialog box.
-- Find "Internet Embedded Web Browser Components" package in the list and delete it by clicking "Remove".
-- Confirm deletion by pressing "OK".
-- Remove previously compiled EmbeddedWebBrowser packages from your hard disk.
-
-http://www.bsalsa.com/ewb_uninstall.html
-
-* Upgrading:
-
-To upgrade from previous versions, make sure to remove the EmbeddedWebBrowser package from
-Delphi (see uninstall instructions) and remove all old .DCU, .RES, .DPK, .BPL, .BPK, .BPI files before installing the new version. Make sure you have only one and correct version of
-EmbeddedWebBrowser in the library path.
\ No newline at end of file
diff --git a/windows/src/ext/embeddedwb/Source/AppWUStrings.pas b/windows/src/ext/embeddedwb/Source/AppWUStrings.pas
deleted file mode 100644
index 1ddc140c98c9087319866f372804dc1224c439a6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/AppWUStrings.pas
+++ /dev/null
@@ -1,166 +0,0 @@
-//*************************************************************
-// Application web Updater strings *
-// *
-// For Delphi 5 to XE *
-// Freeware unit *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: AppWUStrings.pas,v 1.2 2009/01/26 15:01:38 bsalsa Exp $
-
-unit AppWUStrings;
-
-interface
-
-resourcestring
-
- sAbortMessage = 'Aborted! (User request).';
- sAbortOption = ' or press "Abort".';
- sAddingFilesToList = 'Adding files into the update list: ';
- sAddingRestartFiles = 'Adding files which require restart into the update list: ';
- sAlredayExists = ' already exists in ';
- sAuthor = 'bsalsa: ';
- sBatchCommands = 'Batch File Commands: ';
- sBusy = 'Update procedure is running. Please wait';
- sCaption = 'Checking for updates... Please wait.';
- sChecking = 'Checking for Updates';
- sCheckingFolder = 'Checking if folder ';
- sCleaning = 'Cleaning unnecessary files. ';
- sCompany = 'Company: ';
- sConfirm = 'Press "OK" to update ';
- sCopiedTo = ' --> has been copied to: ';
- sCreateFolder = ' trying to create the folder!';
- sCreateProcess = 'Creating a process to run the batch file.';
- sCreateSubBackup = ' trying to create the sub backup folder!';
- sCreating = 'Creating ';
- sCreatingBatch = 'Creating a batch file: ';
- sCurrentVersion = 'Application current version is: ';
- sDefinition = ' Definition';
- sDelete = ' trying to delete the file !';
- sDest = 'Destination: ';
- sDownloadFiles = ' downloading the updates!';
- sDownloadInfo = ' downloading the update Info file!';
- sDownloading = 'Downloading ';
- sEmail = 'Email: ';
- sErrorCanceled = 'Updates checking was canceled (An error has been found).';
- sErrorCopyFileName = 'Error copy file name: ';
- sErrorCreating = 'Error Creating ';
- sErrorCurrentVersionDefinition = 'error has been found in the current version definition';
- sErrorMessage = 'An error occurred while ';
- sErrorNewVersionDefinition = 'error has been found in the new version definition';
- sErrorRunningCmd = 'An error occurred while trying to run the cmd file. ';
- sExists = ' exists. --> OK.';
- sExplore = 'explore';
- sFile = 'The File ';
- sFileCopyError = ' trying to copy the file';
- sFileDeleted = 'File deleted: ';
- sFileList = 'The files that will be updated are: ';
- sFileName = 'File name: ';
- sFileNotExist = 'File doesn'' t exist: ';
- sFinshedProcessing = 'Finished processing file names.';
- sFolder = ' folder.';
- sFolderDeleted = 'Folder deleted: ';
- sFolderOK = ' folder. --> OK.';
- sInitialing = 'Initializing the updater.';
- sInTo = ' to ';
- sLocateCurrentVersion = ' trying to locate the current version number!';
- sMailingReport = 'Mailing Error Report.... Hold On.';
- sMatchingDetails = 'Matching details: ';
- smFileNotExist = ' trying to locate the source folder!';
- sNewUpdateVersion = ' Update version is: ';
- sNoAvailableUpdates = 'There are no new available updates. ';
- sOpenFolder = 'Open folder : ';
- sOverWriting = ' (OverWriting.)';
- sProgress = 'Progress: ';
- sRestarting = 'Restarting.... Hold On.';
- sRestartMessage1 = 'Some of the updates require a restart. ';
- sRestartMessage2 = 'Press "Yes" to restart now, or press "Abort" to run the ' + 'updates checking later.';
- sResultMatch = 'Result: MATCH.';
- sResultNoMatch = 'Result: No match found!';
- sSection = ' section';
- sSecurityAlert = 'Security Alert!! ';
- sSiteError = 'trying to match the application ' + 'details with the remote web site details!';
- sStartDownloadingXml = 'Start downloading xml remote file.';
- sStartProcessing = 'Start processing file names. ';
- sStatus = 'Status: ';
- sStopped = 'Stopped (User Request).';
- sSuccess = ' was successful.';
- sSuccessMessageText = 'Update is done.';
- sTo = ' ---> to: ';
- sTrying = 'Trying to download: ';
- sTryingToLocate = 'trying to locate the web info file.';
- sUnableCreateErrorLog = 'Unable to create error log file: ';
- sUpdateAvailable = 'A new update is available for: ';
- sUpdateBy = 'An update is available by: ';
- sUpdateChanges = 'Update Changes: ';
- sUpdateNotNeeded = 'Your application is up to date.';
- sUpdaterErrorReport = 'Updater Error Report';
- sUpdaterRunning = 'Updater is running... ';
- sUpdateVersion = ' trying to locate the update version number!';
- sUpdatingControls = 'Updating Application Controls';
- sXmlAppName = 'ApplicationName';
- sXmlData = ' (XML Data Section)';
- sXMLError = ' trying to parse the XML file!';
- sXmlErrorParsingData = ('Error parsing XML data');
- sXMLFileError = 'An error has been found in the update XML file in the ';
- sXmlHead = '(XML Head Section)';
- sXMLInformation = 'XML Information: ';
- sXmlParsingData = 'Parsing XML data';
- sXmlParsingHead = 'Parsing XML Head section';
- sXmlParsingTag = 'Parsing XML tag: ';
- sXmlUpdatesSection = 'Updates Section';
-
- //Do not translate the forward strings unless you do so also
- // in the remote site XML file and you know what you are doing.
- //(Read the AppWebUpdater code!)
- sDestination = 'Destination';
- sNo = 'no';
- sTerminate = 'Terminate';
- sXmlAuthor = 'Author';
- sXmlChangeLog = 'ChangeLog';
- sXmlCompany = 'Company';
- sXmlDestination = 'Destination';
- sXmlDetails = 'Details';
- sXmlFile = 'File';
- sXmlInfo = 'Info';
- sXmlInstructions = 'Instructions';
- sXmlName = 'Name';
- sXmlText = 'Text';
- sXmlUpdates = 'Updates';
- sXmlVersion = 'Version';
- sYes = 'yes';
- sXmlMajorVer = 'MajorVersion';
- sXmlMinorVer= 'MinorVersion';
- sXmlReleaseVer= 'ReleaseVersion';
- sXmlBuildVer= 'BuildVersion';
-
-implementation
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/AppWebUpdater.pas b/windows/src/ext/embeddedwb/Source/AppWebUpdater.pas
deleted file mode 100644
index e0ba6dcbd28c88642d4ba8ef5b6ab3964a11a988..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/AppWebUpdater.pas
+++ /dev/null
@@ -1,1640 +0,0 @@
-//*************************************************************
-// Application Updater *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bgmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-unit AppWebUpdater;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Controls, ActiveX, Windows, SysUtils, Classes, LibXmlParser, ComCtrls, UrlMon;
-
-type
- TErrorMessage = (emCreateSubBackup, emFileCopyError, emXmlError, emFileNotExist, emCreateFolder,
- emExit, emLocateCurrentVersion, emCurrentVersion, emDownloadInfo, emDownloadFiles,
- emUpdateVersion, emBusy, emDelete, emError, emMatch);
- TUpdateFormat = (ufCommon, ufRealNumbers);
- TSuccessMessage = (smDone, smUpdateNotNeeded, smUpdateNeeded, smChecking);
- TOnError = procedure(Sender: TObject; ErrorCode: TErrorMessage; Parameter, ErrMessage: string) of object;
- TOnSuccess = procedure(Sender: TObject; SuccessCode: TSuccessMessage; Parameter, SuccessMessage: string) of object;
- TOnChangeText = procedure(Sender: TObject; Text: string) of object;
- TProgressEvent = procedure(ProgressMax: integer; Position: integer) of object;
-
-
-type
- PUpRec = ^TUpRec;
- TUpRec = record
- dlFileName: string;
- dlDestination: string;
- dlTerminate: Boolean;
- end;
-
- TUpdatesList = record
- NoRestartList: TStringList;
- WithRestartList: TStringList;
- end;
-
-
- TVersion = class(TPersistent)
- private
- FAppMajorVer: integer;
- FAppMinorVer: integer;
- FAppReleaseVer: integer;
- FAppBuildVer: integer;
- FNewMajorVer: integer;
- FNewMinorVer: integer;
- FNewReleaseVer: integer;
- FNewBuildVer: integer;
- published
- property MajorVersion: integer read FAppMajorVer write FAppMajorVer default 0;
- property MinorVersion: integer read FAppMinorVer write FAppMinorVer default 0;
- property ReleaseVersion: integer read FAppReleaseVer write FAppReleaseVer default 0;
- property BuildVersion: integer read FAppBuildVer write FAppBuildVer default 0;
- end;
-
- TVersionArray = Array[0..3] of integer;
-
-
- TWebUpdater = class(TComponent)
- private
- ApplicationFolder: string;
- Busy: Boolean;
- FAbout: string;
- FVersion: TVersion;
- FApplicationName: string;
- FAuthor: string;
- FAutoGetExeVersion: boolean;
- FBackupFolder: string;
- FBatFileName: string;
- FCaption: string;
- FCompany: string;
- FNewsor: TCursor;
- FDeleteBatch: Boolean;
- FDeleteLog: Boolean;
- FDeleteUpdates: Boolean;
- FDeleteBackups: Boolean;
- FDeleteWebInFo: Boolean;
- FEmail: string;
- FEnabled: Boolean;
- FAbortMessage: string;
- FErrorReport: Boolean;
- FExeName: string;
- FErrorMessage: string;
- FLogData: TStrings;
- FLogDateStamp: Boolean;
- FLogFileName: TFileName;
- FLogHeader: string;
- FMatchDetails: boolean;
- FOnChangeText: TOnChangeText;
- FOnError: TOnError;
- FOnProgress: TProgressEvent;
- FOnSuccess: TOnSuccess;
- FOpenAppFolder: Boolean;
- FProgressBar: TProgressBar;
- FQuitOnError: Boolean;
- FSaveBackup: Boolean;
- FShowMessages: boolean;
- FShowChanges: Boolean;
- FShowPersonalDetails: Boolean;
- FShowUpdateFiles: Boolean;
- FStatusBar: TStatusBar;
- FSuccessMessageText: string;
- FUpdateInFoText: TStringList;
- FUpdateText: TStringList;
- FUpdatesFolder: string;
- FWebInFoFileName: string;
- FWebURL: string;
- XmlFile: string;
- NeedTerminate: boolean;
- OldCaption: string;
- OldCursor: TCursor;
- XmlParser: TXMLParser;
- function Check_CreateFolder(FolderName: string): boolean;
- function CheckVersions: boolean;
- function CopyFiles(Source, Destination, FileName: string): boolean;
- function CreateSubBackupFolder: boolean;
- function DownloadFile(SourceFile, DestFile: string): Boolean;
- function DownloadWebUpdates: boolean;
- function GetXmlData: boolean;
- function GetXmlHead: boolean;
- function GetXmlTag(const TagName: string): boolean;
- function ParseXML: boolean;
- function PerformMatchDetails(aString, bString: string): boolean;
- function ProcessBatch: boolean;
- procedure AddLog(text: string);
- procedure CleanUp;
- procedure FinishHandler;
- procedure InitialUpdating;
- procedure ProcessFolderNames;
- procedure RestartApplication;
- procedure RestoreAppControls;
- procedure SetAbout(Value: string);
- procedure SetUpdateInfoText(Value: TstringList);
- procedure UpdateAppControls;
- procedure UpdateInfo;
- procedure UpdateProgressControls(ProgMax, Pos: integer);
- procedure UpdateTextControls(txt: string);
- procedure WriteLog;
- procedure ExitError(ErrString: string);
- procedure ExitNoUpdateFound;
- procedure ExitMatch;
- procedure ExitOK;
- procedure ExitUser;
- procedure ErrMessagesHandler(pErrCode: TErrorMessage; Parameter: string = '');
- procedure SuccessMessagesHandler(pSuccessCode: TSuccessMessage; Parameter: string = '');
-
- protected
- function GetFullLogFileName: TFileName;
- procedure CloseLog;
- procedure OpenLog;
- procedure SetLogData(Value: TStrings);
-
- public
- Quit: boolean;
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function CheckBusyState: boolean;
- function DeleteFiles(FileName: string): Boolean;
- function DeleteFolder(FolderName: string): Boolean;
- function OpenFolder(FolderName: string): Boolean;
- function Start: Boolean;
- procedure ClearLog;
- procedure Stop;
- procedure SendErrorReport;
- function GetFileVersion: boolean;
-
- published
- property About: string read FAbout write SetAbout;
- property AbortMessage: string read FAbortMessage write FAbortMessage;
- property ApplicationName: string read FApplicationName write FApplicationName;
- property Author: string read FAuthor write FAuthor;
- property AutoGetExeVersion: boolean read FAutoGetExeVersion write FAutoGetExeVersion default False;
- property BackupFolder: string read FBackupFolder write FBackupFolder;
- property Caption: string read FCaption write FCaption;
- property Company: string read FCompany write FCompany;
- property Cursor: TCursor read FNewsor write FNewsor default crAppStart;
- property DeleteOldBackupOnInit: Boolean read FDeleteBackups write FDeleteBackups default False;
- property DeleteBatchFileOnComplete: Boolean read FDeleteBatch write FDeleteBatch default True;
- property DeleteLogOnComplete: Boolean read FDeleteLog write FDeleteLog default True;
- property DeleteUpdatesOnComplete: Boolean read FDeleteUpdates write FDeleteUpdates default True;
- property DeleteWebInfoFileOnComplete: Boolean read FDeleteWebInfo write FDeleteWebInfo default True;
- property ApplicationVersion: TVersion read FVersion write FVersion;
- property EMail: string read FEMail write FEMail;
- property Enabled: boolean read FEnabled write FEnabled default True;
- property ErrorMessage: string read FErrorMessage write FErrorMessage;
- property FullLogFileName: TFileName read GetFullLogFileName;
- property LogAddTime: Boolean read FLogDateStamp write FLogDateStamp;
- property LogData: TStrings read FLogData write setLogData;
- property LogFileName: TFileName read FLogFileName write FLogFileName;
- property LogHeaderText: string read FLogHeader write FLogHeader;
- property MatchDetails: boolean read FMatchDetails write FMatchDetails default True;
- property MailErrorReport: boolean read FErrorReport write FErrorReport default True;
- property OnChangeText: TOnChangeText read FOnChangeText write FOnChangeText;
- property OnError: TOnError read FOnError write FOnError;
- property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
- property OnSuccess: TOnSuccess read FOnSuccess write FOnSuccess;
- property OpenAppFolderOnComplete: Boolean read FOpenAppFolder write FOpenAppFolder default False;
- property ProgressBar: TProgressBar read FProgressBar write FProgressBar;
- property QuitOnError: Boolean read FQuitOnError write FQuitOnError default True;
- property SaveBackup: Boolean read FSaveBackup write FSaveBackup default True;
- property ShowUserMessages: boolean read FShowMessages write FShowMessages default True;
- property ShowChangeLog: boolean read FShowChanges write FShowChanges default True;
- property ShowPersonalDetails: boolean read FShowPersonalDetails write FShowPersonalDetails default True;
- property ShowUpdateFilesList: boolean read FShowUpdateFiles write FShowUpdateFiles default False;
- property StatusBar: TStatusBar read FStatusBar write FStatusBar;
- property SuccessMessageText: string read FSuccessMessageText write FSuccessMessageText;
- property UpdateInfoText: TStringList read FUpdateInfoText write SetUpdateInfoText;
- property UpdatesFolder: string read FUpdatesFolder write FUpdatesFolder;
- property WebInfoFileName: string read FWebInfoFileName write FWebInfoFileName;
- property WebURL: string read FWebURL write FWebURL;
-
- end;
-
-type
- TDownloadCallback = class(TInterfacedObject, IBindStatusCallback)
- public
- Quit: boolean;
- ProgressMax: integer;
- Position: integer;
- function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
- function GetPriority(out nPriority): HResult; stdcall;
- function OnLowResource(reserved: DWORD): HResult; stdcall;
- function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG;
- szStatusText: LPCWSTR): HResult; stdcall;
- function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
- function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall;
- function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; Formatetc: PFormatEtc;
- stgmed: PStgMedium): HResult; stdcall;
- function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
- end;
-
-implementation
-
-uses
- Forms, Messages, Dialogs, ShellAPI, AppWUStrings;
-
-var
- OnProgressStatusList: TStringList;
- logFile: TextFile;
- Dcb: TDownloadCallback;
- UpdateRec: TUpdatesList;
-
-const
- LineBrk = #13#10;
- LineSpc = ' ';
-
-///////////--- DownloadCallback Part --------///////////////
-
-function TDownloadCallback.GetPriority(out nPriority): HResult; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TDownloadCallback.OnLowResource(reserved: DWORD): HResult; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TDownloadCallback.OnStartBinding(dwReserved: DWORD;
- pib: IBinding): HResult; stdcall;
-begin
- Position := 0;
- ProgressMax := 100;
- Result := S_OK;
-end;
-
-function TDownloadCallback.OnProgress(ulProgress, ulProgressMax,
- ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall;
-begin
- ulProgressMax := 100;
- ProgressMax := ulProgressMax;
- Position := ulProgress;
- OnProgressStatusList.Add(Format('[ %d]:: %s - %d:%d', [ulStatusCode,
- string(szStatusText),
- ulProgress,
- ulProgressMax]));
- OnProgressStatusList.Add(szStatusText);
- OnProgressStatusList.Add(sProgress + IntToStr(ulProgress) + ': '
- + IntToStr(ulProgressMax));
- OnProgressStatusList.Add(sStatus + SzStatusText);
- OnProgressStatusList.Add('');
- case ulStatusCode of
- 1: OnProgressStatusList.Add('BINDSTATUS_FINDINGRESOURCE');
- 2: OnProgressStatusList.Add('BINDSTATUS_CONNECTING');
- 3: OnProgressStatusList.Add('BINDSTATUS_REDIRECTING');
- 4: OnProgressStatusList.Add('BINDSTATUS_BEGINDOWNLOADDATA');
- 5: OnProgressStatusList.Add('BINDSTATUS_DOWNLOADINGDATA');
- 6: OnProgressStatusList.Add('BINDSTATUS_ENDDOWNLOADDATA ');
- 7: OnProgressStatusList.Add('BINDSTATUS_BEGINDOWNLOADCOMPONENTS');
- 8: OnProgressStatusList.Add('BINDSTATUS_INSTALLINGCOMPONENTS');
- 9: OnProgressStatusList.Add('BINDSTATUS_ENDDOWNLOADCOMPONENTS');
- 10: OnProgressStatusList.Add('BINDSTATUS_USINGCACHEDCOPY');
- 11: OnProgressStatusList.Add('BINDSTATUS_SENDINGREQUEST');
- 12: OnProgressStatusList.Add('BINDSTATUS_CLASSIDAVAILABLE');
- 13: OnProgressStatusList.Add('BINDSTATUS_MIMETYPEAVAILABLE');
- 14: OnProgressStatusList.Add('BINDSTATUS_CACHEFILENAMEAVAILABLE');
- end;
- if Quit then
- Result := E_ABORT
- else
- Result := S_OK;
-end;
-
-function TDownloadCallback.OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TDownloadCallback.GetBindInfo(out grfBINDF: DWORD;
- var bindinfo: TBindInfo): HResult; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TDownloadCallback.OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD;
- Formatetc: PFormatEtc; stgmed: PStgMedium): HResult; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TDownloadCallback.OnObjectAvailable(const iid: TGUID;
- punk: IUnknown): HResult; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-///////////---End of DownloadCallback Part --------///////////////
-
-///////////---Logger Part --------///////////////
-
-procedure TWebUpdater.SetLogData(Value: TStrings);
-begin
- FLogData.Assign(Value);
-end;
-
-function TWebUpdater.GetFullLogFileName: TFileName;
-begin
- if (pos('\', FLogFileName) > 0) or
- (pos(':', FLogFileName) > 0) or
- (pos('/', FLogFileName) > 0) then
- begin
- Result := LogFileName;
- end
- else
- begin
- Result := ExtractFilePath(Application.Exename) + LogFileName;
- end;
-end;
-
-procedure TWebUpdater.WriteLog;
-var
- i: Integer;
-begin
- try
- OpenLog;
- UpdateProgressControls(100, 20);
- if FLogDateStamp then
- begin
- WriteLn(logFile, DateToStr(Date) + ' ' + TimeToStr(Now));
- end;
- if (FLogHeader > '') then
- begin
- WriteLn(logFile, FLogHeader);
- end;
- for i := 0 to (FLogData.Count - 1) do
- begin
- WriteLn(logFile, FLogData[i]);
- end;
- finally
- CloseLog;
- end;
-end;
-
-procedure TWebUpdater.ClearLog;
-begin
- AssignFile(logFile, FullLogFileName);
- try
- ReWrite(logFile);
- finally
- CloseFile(logFile);
- end;
-end;
-
-procedure TWebUpdater.OpenLog;
-begin
- AssignFile(LogFile, FullLogFileName);
-{$I-}
- Append(LogFile);
-{$I+}
- if (IOResult <> 0) then
- begin
- try
- ReWrite(LogFile);
- except
- on E: Exception do
- begin
- E.Message := sUnableCreateErrorLog + LineBrk + FLogFileName +
- LineBrk + E.Message;
- raise;
- end;
- end;
- end;
-end;
-
-procedure TWebUpdater.CloseLog;
-begin
- CloseFile(LogFile);
-end;
-
-procedure TWebUpdater.AddLog(text: string);
-var
- Data: TStrings;
- i: Integer;
-begin
- OpenLog;
- Data := TStringList.Create;
- try
- if FLogDateStamp then
- Data.Add(DateToStr(Date) + ' ' + TimeToStr(Now));
- if (FLogHeader > '') then
- Data.Add(FLogHeader);
- Data.Add(text);
- Data.Add('');
- for i := 0 to (Data.Count - 1) do
- WriteLn(logFile, Data[i]);
- finally
- Data.Free;
- end;
- CloseLog;
-end;
-///////////---End of Logger Part --------///////////
-
-///////////---Messages Part --------///////////
-
-procedure TWebUpdater.ErrMessagesHandler(pErrCode: TErrorMessage; Parameter: string);
-var
- EM, st: string;
-begin
- case pErrCode of
- emBusy: EM := sBusy;
- emCreateSubBackup: EM := FErrorMessage + sCreateSubBackup;
- emCreateFolder: EM := FErrorMessage + sCreateFolder;
- emFileCopyError: EM := FErrorMessage + sFileCopyError;
- emXMLError: EM := FErrorMessage + sXMLError;
- emUpdateVersion: EM := FErrorMessage + sUpdateVersion;
- emLocateCurrentVersion: EM := FErrorMessage + sLocateCurrentVersion;
- emDownloadInfo: EM := FErrorMessage + sDownloadInfo;
- emDownloadFiles: EM := FErrorMessage + sDownloadFiles;
- emDelete: EM := FErrorMessage + sDelete;
- emFileNotExist: EM := FErrorMessage + smFileNotExist;
- emExit: EM := FAbortMessage;
- emError: EM := sErrorCanceled;
- emMatch: EM := sSecurityAlert + LineBrk + FErrorMessage + sSiteError;
- end;
- if Parameter = '' then
- st := EM
- else
- st := EM + LineBrk + Parameter;
- UpdateTextControls(st);
- if Assigned(FOnError) then
- FOnError(Self, pErrCode, Parameter, EM);
- if FShowMessages then
- MessageDlg(st, mtError, [mbAbort], 0);
- if FErrorReport then
- SendErrorReport;
-end;
-
-procedure TWebUpdater.SuccessMessagesHandler(pSuccessCode: TSuccessMessage; Parameter: string);
-var
- SM: string;
- Name: string;
-begin
- Name := ExtractFileName(Application.ExeName);
- case pSuccessCode of
- smDone: SM := FSuccessMessageText;
- smUpdateNeeded: SM := sUpdateAvailable + Name;
- smUpdateNotNeeded: SM := sUpdateNotNeeded;
- smChecking: SM := sChecking;
- end;
- UpdateTextControls(SM);
- if FShowMessages then
- MessageDlg(SM, mtInformation, [mbOK], 0);
- if Assigned(FOnSuccess) then
- FOnSuccess(Self, pSuccessCode, Parameter, SM);
-end;
-///////////---End Of Messages Part --------///////////
-
-///////////---Component Part --------///////////
-
-constructor TWebUpdater.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- FVersion:= TVersion.Create;
- with FVersion do
- begin
- FAppMajorVer:= 0;
- FAppMinorVer:= 0;
- FAppReleaseVer:= 0;
- FAppBuildVer:= 0;
- end;
- FNewsor := crAppStart;
- FAbortMessage := sAbortMessage;
- FAbout := 'Application Updater by bsalsa : bsalsa@gmail.com';
- Busy := False;
- FBackupFolder := 'Backup\';
- FLogDateStamp := True;
- FWebURL := 'http://';
- FEnabled := True;
- // FFilesToUpdate := TStringList.Create;
-// FFilesToUpdate.Duplicates := dupIgnore;
-{$IFDEF DELPHI6_UP}
-// FFilesToUpdate.CaseSensitive := False;
-{$ENDIF}
- FLogData := TStringList.Create;
- FUpdateText := TStringList.Create;
- OnProgressStatusList := TStringList.Create;
- FDeleteUpdates := True;
- FDeleteWebInfo := True;
- FDeleteLog := True;
- FDeleteBatch := True;
- FErrorMessage := sErrorMessage;
- FErrorReport := True;
- FMatchDetails := True;
- FQuitOnError := True;
- FSaveBackup := True;
- FShowMessages := True;
- FShowChanges := True;
- FShowPersonalDetails := True;
- FShowUpdateFiles := False;
- FSuccessMessageText := sSuccessMessageText;
- FUpdateInfoText := TStringList.Create;
- FUpdateInfoText.Duplicates := dupIgnore;
- FUpdatesFolder := 'Updates\';
- FOpenAppFolder := False;
- XmlParser := TXMLParser.Create;
- FLogFileName := 'Updater.txt';
- FWebInfoFileName := 'Update.xml';
- FCaption := sCaption;
- Quit := False;
- UpdateRec.NoRestartList := TStringList.Create;
- UpdateRec.NoRestartList.Duplicates := dupIgnore;
- UpdateRec.WithRestartList := TStringList.Create;
- UpdateRec.WithRestartList.Duplicates := dupIgnore;
-end;
-
-destructor TWebUpdater.Destroy;
-var
- I: Integer;
-begin
- Stop;
- while Busy do
- begin
- Application.ProcessMessages;
- end;
- OnProgressStatusList.Free;
- FUpdateInfoText.Free;
- FUpdateText.Free;
- XmlParser.Free;
- FLogData.Free;
- for I := 0 to UpdateRec.WithRestartList.Count - 1 do
- Dispose(PUpRec(UpdateRec.WithRestartList.Objects[I]));
- for I := 0 to UpdateRec.NoRestartList.Count - 1 do
- Dispose(PUpRec(UpdateRec.NoRestartList.Objects[I]));
- FreeAndNil(UpdateRec.WithRestartList); // global variable
- FreeAndNil(UpdateRec.NoRestartList); // global variable
- FVersion.Free;
- inherited Destroy;
-end;
-
-procedure TWebUpdater.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TWebUpdater.SetUpdateInfoText(Value: TstringList);
-begin
- FUpdateInfoText.Assign(Value);
-end;
-
-///////////---End Of Component Part --------///////////
-
-///////////////// private Updates procedures //////////////
-
-procedure TWebUpdater.UpdateInfo;
-begin
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- FUpdateInfoText.Add(sUpdateAvailable + FApplicationName + '!' + LineBrk);
- if FShowPersonalDetails then
- begin
- if Trim(fAuthor) <> '' then
- FUpdateInfoText.Add(sUpdateBy + LineBrk +
- LineBrk + sAuthor + Trim(fAuthor));
- if Trim(fCompany) <> '' then
- FUpdateInfoText.Add(sCompany + Trim(fCompany));
- if Trim(fEMail) <> '' then
- FUpdateInfoText.Add(sEmail + Trim(fEMail));
- end;
- if FShowChanges then
- begin
- if FUpdateText.Text <> '' then
- FUpdateInfoText.Add(LineBrk + sUpdateChanges + FUpdateText.Text);
- end;
- if FShowUpdateFiles then
- begin
- FUpdateInfoText.Add(LineBrk + sFileList + LineBrk
- + LineBrk + UpdateRec.NoRestartList.Text + UpdateRec.WithRestartList.Text)
- end;
- FUpdateInfoText.Add(LineBrk + sConfirm + FApplicationName + sAbortOption);
-end;
-
-procedure TWebUpdater.UpdateProgressControls(ProgMax, Pos: integer);
-begin
- if Assigned(FProgressBar) then
- begin
- FProgressBar.Max := ProgMax;
- FProgressBar.Position := Pos;
- end;
- if Assigned(FOnProgress) then
- FOnProgress(ProgMax, Pos);
-end;
-
-procedure TWebUpdater.UpdateTextControls(txt: string);
-begin
- AddLog(txt);
- if Assigned(fOnChangeText) then
- FOnChangeText(Self, txt);
- if Assigned(fStatusbar) then
- FStatusbar.SimpleText := txt;
-end;
-
-procedure TWebUpdater.UpdateAppControls;
-begin
- AddLog(sUpdatingControls);
- OldCaption := Forms.Application.MainForm.Caption;
- Forms.Application.MainForm.Caption := FCaption;
- OldCursor := Screen.Cursor;
- Screen.Cursor := FNewsor;
-end;
-
-procedure TWebUpdater.RestoreAppControls;
-begin
- Screen.Cursor := OldCursor;
- Forms.Application.MainForm.Caption := OldCaption;
-end;
-
-///////////////// End of private Updates procedures //////////////
-
-///////////////// private procedures //////////////
-
-function TWebUpdater.CheckVersions: boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- if (FVersion.FNewMajorVer > FVersion.FAppMajorVer) or
-
- (FVersion.FNewMajorVer = FVersion.FAppMajorVer) and
- (FVersion.FNewMinorVer > FVersion.FAppMinorVer) or
-
- (FVersion.FNewMajorVer = FVersion.FAppMajorVer) and
- (FVersion.FNewMinorVer = FVersion.FAppMinorVer) and
- (FVersion.FNewReleaseVer > FVersion.FAppReleaseVer) or
-
- (FVersion.FNewMajorVer = FVersion.FAppMajorVer) and
- (FVersion.FNewMinorVer = FVersion.FAppMinorVer) and
- (FVersion.FNewReleaseVer = FVersion.FAppReleaseVer) and
- (FVersion.FNewBuildVer > FVersion.FAppBuildVer) then
- begin
- AddLog(sUpdateAvailable);
- UpdateTextControls(sUpdateAvailable);
- Result := True;
- end
- else
- UpdateTextControls(sUpdateNotNeeded);
- AddLog('New Major Version: ' + IntToStr(FVersion.FNewMajorVer));
- AddLog('App Major Version: ' + IntToStr(FVersion.FAppMajorVer));
- AddLog('New Minor Version: ' + IntToStr(FVersion.FNewMinorVer));
- AddLog('App Minor Version: ' + IntToStr(FVersion.FAppMinorVer));
- AddLog('New Release Version: ' + IntToStr(FVersion.FNewReleaseVer));
- AddLog('App Release Version: ' + IntToStr(FVersion.FAppReleaseVer));
- AddLog('New Build Version: ' + IntToStr(FVersion.FNewBuildVer));
- AddLog('App Build Version: ' + IntToStr(FVersion.FAppBuildVer));
-end;
-
-function TWebUpdater.Check_CreateFolder(FolderName: string): boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
-{$IFDEF DELPHI6_UP}
- if not (DirectoryExists(FolderName)) then
-{$ENDIF}
- begin
- if not (CreateDir(FolderName)) then
- begin
- AddLog(sErrorCreating + FolderName + sFolder);
- ErrMessagesHandler(emCreateFolder, FolderName);
- Result := True;
- end
- else
- AddLog(sCreating + FolderName + sFolder);
- end
-{$IFDEF DELPHI6_UP}
- else
- AddLog(sCheckingFolder + FolderName + sExists);
-{$ENDIF}
-end;
-
-function TWebUpdater.CopyFiles(Source, Destination, FileName: string): boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- UpdateProgressControls(100, 40);
- Source := (ApplicationFolder + Source);
- Destination := (ApplicationFolder + Destination);
- Check_CreateFolder(Destination);
- if FileExists(Source + FileName) then
- begin
- if not (CopyFile(PChar(Source + FileName),
- PChar(Destination + FileName), False)) then
- begin
- AddLog(sErrorCopyFileName + Source + FileName +
- sTo + Destination + FileName);
- ErrMessagesHandler(emFileCopyError, FileName);
- Result := True;
- end
- else
- AddLog(sFile + Source + FileName +
- LineBrk + sCopiedTo + Destination + FileName);
- end
- else
- begin
- ErrMessagesHandler(emFileNotExist, FileName);
- AddLog(sFileNotExist + Source + FileName + ' !');
- end;
-end;
-
-function TWebUpdater.CreateSubBackupFolder: boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- FBackupFolder := FBackupFolder + FormatDateTime('yyyy_MM_dd_HH_mm_ss', Now) + '\';
- if FSaveBackup then
- if not CreateDir(fBackupFolder) then
- begin
- ErrMessagesHandler(emCreateSubBackup, FBackupFolder);
- AddLog(sErrorCreating + FBackupFolder + sFolder);
- Result := True;
- end
- else
- AddLog(sCreating + FBackupFolder + sFolderOK);
-end;
-
-function TWebUpdater.GetXmlHead: boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- while XmlParser.Scan do
- begin
- if XmlParser.CurPartType = ptXmlProlog then
- begin
- AddLog(sXmlParsingHead);
- Result := True;
- exit;
- end
- else
- begin
- AddLog(sXmlParsingHead);
- ErrMessagesHandler(emXMLError, sXmlHead);
- end;
- end;
-end;
-
-function TWebUpdater.GetXmlTag(const TagName: string): boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- while XmlParser.Scan do
- begin
- if ((XmlParser.CurPartType = ptStartTag)
- or (XmlParser.CurPartType = ptEmptyTag))
- and (XmlParser.CurName = TagName) then
- begin
- AddLog(sXmlParsingTag + TagName);
- Result := True;
- Exit;
- end;
- end;
-end;
-
-function TWebUpdater.GetXmlData: boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- while XmlParser.Scan do
- begin
- if ((XmlParser.CurPartType = ptContent) or (XmlParser.CurPartType = ptCData)) then
- begin
- AddLog(sXmlParsingData);
- Result := True;
- Exit;
- end
- else
- begin
- ErrMessagesHandler(emXMLError, sXmlData);
- AddLog(sXmlErrorParsingData);
- end;
- end;
-end;
-
-function TWebUpdater.DownloadFile(SourceFile, DestFile: string): Boolean;
-var
- st: string;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- Dcb := TDownloadCallback.Create;
- Dcb.ProgressMax := 100;
- try
- st := ApplicationFolder + DestFile; //bs
- AddLog(sTrying + SourceFile + sDest + st);
- AddLog(sDest + st);
- if UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, dcb) = 0 then
- begin
- UpdateProgressControls(100, Dcb.Position);
- Result := True;
- AddLog(OnProgressStatusList.Text + LineBrk + sDownloading + SourceFile + LineBrk
- + sDest + st + sSuccess)
- end
- else
- begin
- Result := False;
- ErrMessagesHandler(emDownloadInfo, SourceFile);
- end;
- except
- begin
- Result := False;
- ErrMessagesHandler(emDownloadInfo, SourceFile);
- end;
- end;
-end;
-
-function TWebUpdater.DeleteFiles(FileName: string): Boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- if not FileExists(FileName) then
- FileName := (GetCurrentDir + '\' + TrimLeft(FileName));
- begin
- FileName := TrimLeft(FileName);
- if DeleteFile(FileName) then
- begin
- if FileName <> FLogFileName then
- begin
- AddLog(sFileDeleted + FileName);
- Result := True;
- end;
- end;
- end;
-end;
-
-function TWebUpdater.DeleteFolder(FolderName: string): Boolean;
-var
- st: string;
- i: integer;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- st := GetCurrentDir + '\' + FolderName;
- if FolderName = FUpdatesFolder then
- try
- for i := 0 to UpdateRec.NoRestartList.Count - 1 do
- begin
- DeleteFiles(st + TrimLeft(UpdateRec.NoRestartList[i]));
- Addlog(sFileDeleted + st + TrimLeft(UpdateRec.NoRestartList[i]));
- end;
- for i := 0 to UpdateRec.WithRestartList.Count - 1 do
- begin
- DeleteFiles(st + TrimLeft(UpdateRec.WithRestartList[i]));
- Addlog(sFileDeleted + st + TrimLeft(UpdateRec.WithRestartList[i]));
- end;
- except
- end;
- i := Length(st) - 1;
- SetLength(st, i);
- if RemoveDir(st) then
- begin
- Addlog(sFolderDeleted + st);
- Result := True;
- end;
-end;
-
-function TWebUpdater.OpenFolder(FolderName: string): Boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- ShellExecute(Forms.Application.Handle, PChar(sExplore), PChar(FolderName), nil,
- nil, SW_SHOWNORMAL);
- Addlog(sOpenFolder + FolderName);
- Result := True;
-end;
-
-procedure TWebUpdater.ProcessFolderNames;
-begin
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- AddLog(sStartProcessing);
- UpdateProgressControls(100, 20);
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF}
- XmlFile := FWebURL + '/' + (fWebInfoFileName);
- FBatFileName := ChangeFileExt(Application.ExeName, '.bat');
- FExeName := ExtractFileName(Application.ExeName);
- FUpdatesFolder := IncludeTrailingBackslash(fUpdatesFolder);
- ApplicationFolder := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
- if Trim(fBackupFolder) = ''
- then
- FBackupFolder := ApplicationFolder + FBackupFolder
- else
- FBackupFolder := IncludeTrailingBackslash(fBackupFolder);
- AddLog(sFinshedProcessing);
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_PLATFORM ON}
-{$ENDIF}
-end;
-
-procedure TWebUpdater.InitialUpdating;
-begin
- ClearLog;
- WriteLog;
- AddLog(sInitialing);
- if FAutoGetExeVersion then
- GetFileVersion;
- NeedTerminate := False;
- FUpdateText.Clear;
- UpdateAppControls;
- UpdateProgressControls(100, 10);
- UpdateTextControls(sChecking);
- ProcessFolderNames;
- if FDeleteBackups then
- if DeleteFile(fBackUpFolder + '\*.*') then
- DeleteFolder(Trim(fBackUpFolder));
-end;
-
-function TWebUpdater.ParseXML: boolean;
-var
- Node: TNvpNode;
- i: integer;
- UpdRec: PUpRec;
- MS: TMemoryStream;
- Zero: Char;
- Container, tmpFileName: string;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- AddLog(sStartDownloadingXml);
- if DownloadFile(XmlFile, FWebInfoFileName) then
- begin
- tmpFileName := ExtractFilePath(ParamStr(0)) + FWebInfoFileName;
- if not FileExists(tmpFileName) then
- begin
- ErrMessagesHandler(emFileNotExist, tmpFileName);
- ExitError(fErrorMessage + sTryingToLocate);
- Exit;
- end
- else
- begin
- Zero := #0;
- MS := TMemoryStream.Create;
- try
- MS.Write(Zero, 1);
- MS.LoadFromFile(fWebInfoFileName);
- XmlParser.SetBuffer(MS.Memory);
- XmlParser.Normalize := False;
- XmlParser.StartScan;
- AddLog('Start Scanning ' + tmpFileName);
- if not GetXmlHead then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlHead);
- Exit;
- end;
- if not GetXmlTag(sXmlUpdates) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlUpdatesSection);
- Exit;
- end;
- if not GetXmlTag(sXmlDetails) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlDetails);
- Exit;
- end;
- if not GetXmlTag(sXmlAppName) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlAppName);
- Exit;
- end;
- if not GetXmlData then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlAppName);
- Exit;
- end;
- if MatchDetails then
- if not PerformMatchDetails(Trim(fApplicationName),
- Trim(XmlParser.CurContent)) then
- begin
- ExitMatch;
- Exit;
- end;
- FApplicationName := XmlParser.CurContent;
- if not GetXmlTag(sXmlAuthor) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlAuthor);
- Exit;
- end;
- if not GetXmlData then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlAuthor);
- Exit;
- end;
- if MatchDetails then
- if not PerformMatchDetails(Trim(fAuthor),
- Trim(XmlParser.CurContent)) then
- begin
- ExitMatch;
- Exit;
- end;
- FAuthor := XmlParser.CurContent;
- if not GetXmlTag(sXmlCompany) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlCompany);
- Exit;
- end;
- if not GetXmlData then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlCompany);
- Exit;
- end;
- if MatchDetails then
- if not PerformMatchDetails(Trim(fCompany),
- Trim(XmlParser.CurContent)) then
- begin
- ExitMatch;
- Exit;
- end;
- FCompany := XmlParser.CurContent;
-
- if not GetXmlTag(sXmlMajorVer)or (not GetXmlData) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlVersion);
- Exit;
- end;
- FVersion.FNewMajorVer := StrToInt(XmlParser.CurContent);
-
- if not GetXmlTag(sXmlMinorVer)or (not GetXmlData) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlVersion);
- Exit;
- end;
- FVersion.FNewMinorVer := StrToInt(XmlParser.CurContent);
-
- if not GetXmlTag(sXmlReleaseVer)or (not GetXmlData) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlVersion);
- Exit;
- end;
- FVersion.FNewReleaseVer := StrToInt(XmlParser.CurContent);
-
- if not GetXmlTag(sXmlBuildVer)or (not GetXmlData) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlVersion);
- Exit;
- end;
- FVersion.FNewBuildVer := StrToInt(XmlParser.CurContent);
-
- if not GetXmlTag(sXmlChangeLog) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlChangeLog + sSection);
- Exit;
- end;
- FUpdateText.Add(LineBrk);
- while GetXmlTag(sXmlInfo) do
- begin
- for i := 0 to XmlParser.CurAttr.Count - 1 do
- begin
- Node := TNvpNode(XmlParser.CurAttr[i]);
- if Node.Name = sXmlText then
- FUpdateText.Add(TrimLeft(Node.Value));
- end;
- end;
- XmlParser.StartScan;
- if not GetXmlTag(sXmlInstructions) then
- if FQuitOnError then
- begin
- ExitError(sXMLFileError + sXmlInstructions + sSection);
- Exit;
- end;
- while GetXmlTag(sXmlFile) do
- begin
- New(UpdRec);
- UpdRec.dlFileName := '';
- UpdRec.dlDestination := '';
- UpdRec.dlTerminate := False;
- for i := 0 to XmlParser.CurAttr.Count - 1 do
- begin
- Node := TNvpNode(XmlParser.CurAttr[i]);
- Container := Trim(Node.Name);
- if Container = sXmlName then
- UpdRec.dlFileName := Trim(Node.Value)
- else
- if (Container = sXmlDestination) then
- begin
- UpdRec.dlDestination := Trim(Node.Value) + '\';
- if (UpdRec.dlDestination = ApplicationFolder) or
- (UpdRec.dlDestination = '\') then
- UpdRec.dlDestination := '';
- end
- else
- if (Container = sTerminate) then
- begin
- if Trim(Node.Value) = sYes then
- begin
- UpdRec.dlTerminate := True;
- UpdateRec.WithRestartList.AddObject(UpdRec.dlFileName, Pointer(UpdRec));
- AddLog(sAddingRestartFiles + UpdRec.dlFileName);
- Result := True;
- end
- else
- if Trim(Node.Value) = sNo then
- begin
- UpdRec.dlTerminate := False;
- UpdateRec.NoRestartList.AddObject(UpdRec.dlFileName, Pointer(UpdRec));
- AddLog(sAddingFilesToList + UpdRec.dlFileName);
- Result := True;
- end;
- end;
- end;
- end;
- finally
- MS.Free;
- end;
- end;
- end;
-end;
-
-function TWebUpdater.ProcessBatch: boolean;
-var
- slBatchFile: TStringList;
- Destination, FileName: string;
- i: integer;
- UpdRecRestart: PUpRec;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- AddLog(sCreatingBatch + FBatFileName);
- slBatchFile := TStringList.Create;
- try
- slBatchFile.Add('@Echo On'); // Dos commands.
- slBatchFile.Add(':again');
- for i := 0 to UpdateRec.WithRestartList.Count - 1 do
- begin
- UpdRecRestart := PUpRec(UpdateRec.WithRestartList.Objects[i]);
- FileName := Trim(UpdRecRestart.dlFileName);
- Destination := Trim(UpdRecRestart.dlDestination);
- if Destination <> '' then
- slBatchFile.Add('if not exist "' + Destination + '" MD " ' + Destination + '"');
- slBatchFile.Add('del "' + Destination + FileName + '"');
- slBatchFile.Add('if exist "' + Destination + FileName + '" goto again');
- slBatchFile.Add('copy "' + FUpdatesFolder + FileName + '" "' + Destination + FileName + '"');
- slBatchFile.Add('if not exist "' + Destination + FileName + '" ' + ' copy "' + FBackupFolder + '" "' + Destination + FileName + '"');
- end;
- slBatchFile.Add('call "' + Application.ExeName + '"');
- if FDeleteUpdates then
- slBatchFile.Add('RMDIR /S /Q "' + FUpdatesFolder + '"');
- if FDeleteBatch then
- slBatchFile.Add('del "' + fBatFileName + '"');
- slBatchFile.SaveToFile(fBatFileName);
- AddLog(sBatchCommands + LineBrk + LineBrk + slBatchFile.Text);
- finally
- slBatchFile.Free;
- end;
- Result := True;
-end;
-
-function TWebUpdater.PerformMatchDetails(aString, bString: string): boolean;
-begin
- Result := True;
- AddLog(sMatchingDetails + aString + sInTo + bString);
- if aString = bString then
- AddLog(sResultMatch)
- else
- begin
- AddLog(sResultNoMatch);
- Result := False;
- end;
-end;
-
-procedure TWebUpdater.RestartApplication;
-var
- ProcessInfo: TProcessInformation;
- StartupInfo: TStartupInfo;
- Res: DWORD;
-begin
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- AddLog(sCreateProcess);
- FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
- StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
- StartupInfo.wShowWindow := SW_HIDE;
- if CreateProcess(nil, PChar(fBatFileName), nil, nil, False,
- IDLE_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
- begin
- AddLog(sRestarting);
- Application.ProcessMessages;
- CloseHandle(ProcessInfo.hThread);
- GetExitCodeProcess(ProcessInfo.hProcess, Res);
- CloseHandle(ProcessInfo.hProcess);
- PostMessage(Application.Handle, WM_CLOSE, 0, 0);
- end
- else
- begin
- AddLog(sErrorRunningCmd);
- raise
- Exception.CreateFmt(sErrorRunningCmd, [GetLastError]);
- end;
-end;
-
-procedure TWebUpdater.FinishHandler;
-begin
- RestoreAppControls;
- UpdateProgressControls(100, 0);
- FUpdateInfoText.Clear;
- CleanUp;
- Busy := False;
-end;
-
-procedure TWebUpdater.ExitOK;
-begin
- SuccessMessagesHandler(smDone);
- if FOpenAppFolder then
- OpenFolder(ApplicationFolder);
- FinishHandler;
-end;
-
-procedure TWebUpdater.ExitError(ErrString: string);
-begin
- ErrMessagesHandler(emError, ErrString);
- FinishHandler;
-end;
-
-procedure TWebUpdater.ExitMatch;
-begin
- ErrMessagesHandler(emMatch);
- FinishHandler;
-end;
-
-procedure TWebUpdater.ExitUser;
-begin
- ErrMessagesHandler(emExit);
- FinishHandler;
-end;
-
-procedure TWebUpdater.ExitNoUpdateFound;
-begin
- UpdateTextControls(sNoAvailableUpdates);
- FinishHandler;
-end;
-
-///////////////// End of private procedures//////////////
-
-///////////////// public procedures//////////////
-
-function TWebUpdater.CheckBusyState: boolean;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- if Busy then
- begin
- ErrMessagesHandler(emBusy);
- Result := True;
- end
- else
- AddLog(sUpdaterRunning);
-end;
-
-procedure TWebUpdater.CleanUp;
-begin
- Addlog(sCleaning);
- if FDeleteWebInfo then
- DeleteFiles(Trim(fWebInfoFileName));
- if (fDeleteUpdates and not NeedTerminate) then
- DeleteFolder(Trim(fUpdatesFolder));
- if FDeleteLog then
- DeleteFiles(Trim(fLogFileName));
-end;
-
-function TWebUpdater.DownloadWebUpdates: boolean;
-var
- i: Integer;
- DLfilename, dest: string;
- UpdRec, UpdRecRestart: PUpRec;
-begin
- Result := False;
- if Quit then
- begin
- ExitUser;
- Exit;
- end;
- if UpdateRec.NoRestartList.Count > 0 then
- begin
- for i := 0 to UpdateRec.NoRestartList.Count - 1 do
- begin
- UpdRec := PUpRec(UpdateRec.NoRestartList.Objects[i]);
- if (Trim(UpdRec.dlFileName) <> '') then
- begin
- if not FileExists(fUpdatesFolder + Trim(UpdateRec.NoRestartList[i])) then
- begin
- DLfilename := FWebURL + '/' + (Trim(UpdateRec.NoRestartList[i]));
- Dest := FUpdatesFolder + Trim(UpdateRec.NoRestartList[i]);
- DownloadFile(DLfilename, Dest);
- end
- else
- begin
- if Dest = '' then
- Dest := FUpdatesFolder + sFolder;
- AddLog(sFileName + Trim(UpdateRec.NoRestartList[i]) +
- sAlredayExists + Dest + sOverWriting);
- end;
- end;
- end;
- end;
- if UpdateRec.WithRestartList.Count > 0 then
- begin
- for i := 0 to UpdateRec.WithRestartList.Count - 1 do
- begin
- UpdRecRestart := PUpRec(UpdateRec.WithRestartList.Objects[i]);
- if (Trim(UpdRecRestart.dlFileName) <> '') then
- begin
- if not FileExists(fUpdatesFolder + Trim(UpdateRec.WithRestartList[i])) then
- begin
- DLfilename := FWebURL + '/' + (Trim(UpdateRec.WithRestartList[i]));
- Dest := FUpdatesFolder + Trim(UpdateRec.WithRestartList[i]);
- DownloadFile(DLfilename, Dest);
- end
- else
- begin
- if Dest = '' then
- Dest := FUpdatesFolder + sFolder;
- AddLog(sFileName + Trim(UpdateRec.WithRestartList[i]) +
- sAlredayExists + Dest + sOverWriting);
- end;
- end;
- end;
- end;
-end;
-
-function TWebUpdater.Start: boolean;
-var
- i: integer;
- SM, st: string;
- UpdRec, UpdRecRestart: PUpRec;
-begin
- Result := False;
- if not Enabled then
- Exit;
- CheckBusyState;
- Busy := True;
- InitialUpdating;
- if not ParseXML then
- ExitError(fErrorMessage + sXMLError)
- else
- begin
- if (not CheckVersions) then
- begin
- ExitNoUpdateFound;
- Exit;
- end;
-
- UpdateInfo;
- AddLog(sXMLInformation + LineBrk + FUpdateInfoText.Text);
- if FShowMessages then
- begin
- SM := FUpdateInfoText.Text;
- if MessageDlg(SM, mtCustom, [mbOK, mbAbort], 0) <> 1 then
- begin
- ExitUser;
- Exit;
- end;
- end;
-
- if Check_CreateFolder(fUpdatesFolder) then
- if FQuitOnError then
- begin
- ExitError(fErrorMessage + sErrorCreating + sCreateFolder);
- Exit;
- end;
- if Check_CreateFolder(fBackupFolder) then
- if FQuitOnError then
- begin
- ExitError(fErrorMessage + sErrorCreating + sCreateFolder);
- Exit;
- end;
- if CreateSubBackupFolder then
- if FQuitOnError then
- begin
- ExitError(fErrorMessage + sErrorCreating + sCreateFolder);
- Exit;
- end;
-
- DownloadWebUpdates;
- end;
-
- if UpdateRec.NoRestartList.Count > 0 then
- begin
- for i := 0 to UpdateRec.NoRestartList.Count - 1 do
- begin
- UpdRec := PUpRec(UpdateRec.NoRestartList.Objects[i]);
- if ((Trim(UpdRec.dlFileName) <> '') and (UpdRec.dlTerminate = False)) then
- begin
- if FSaveBackup then
- begin
- if FileExists(UpdRec.dlDestination + UpdRec.dlFileName) then
- CopyFiles(UpdRec.dlDestination, FBackUpFolder,
- UpdRec.dlFileName);
- end;
-
- if Trim(UpdRec.dlFileName) <> '' then
- begin
- CopyFiles(fUpdatesFolder, UpdRec.dlDestination,
- UpdRec.dlFileName);
- end;
- end;
- end;
- end;
-
- if UpdateRec.WithRestartList.Count > 0 then
- begin
- NeedTerminate := True;
- st := sRestartMessage1 + LineBrk + sRestartMessage2;
- UpdateTextControls(st);
- if MessageDlg(st, mtCustom, [mbYes, mbAbort], 0) = 6 then
- begin
- for i := 0 to UpdateRec.WithRestartList.Count - 1 do
- begin
- UpdRecRestart := PUpRec(UpdateRec.WithRestartList.Objects[i]);
- if ((Trim(UpdRecRestart.dlFileName) <> '') and
- (UpdRecRestart.dlTerminate = True)) then
- begin
- if FSaveBackup then
- begin
- if FileExists(UpdRecRestart.dlDestination +
- UpdRecRestart.dlFileName) then
- CopyFiles(UpdRecRestart.dlDestination, FBackUpFolder,
- UpdRecRestart.dlFileName);
- end;
- end;
- end;
- if ProcessBatch then
- begin
- RestartApplication;
- ExitOK;
- end;
- end
- else
- ExitUser;
- end;
- if ((UpdateRec.NoRestartList.Count > 0) and not (NeedTerminate)) then
- ExitOK;
- Busy := False;
- Result := not Busy;
-end;
-
-function TWebUpdater.GetFileVersion: boolean;
-var
- InfoSize: DWORD;
- pInfo: Pointer;
- ValueSize: DWORD;
- FixedFileInfo: PVSFixedFileInfo;
- dwHandle: DWORD;
-begin
- Result:= False;
- InfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), dwHandle);
- GetMem(pInfo, InfoSize);
- GetFileVersionInfo(PChar(ParamStr(0)), 0, InfoSize, pInfo);
- VerQueryValue(pInfo, '', Pointer(FixedFileInfo), ValueSize);
- with FixedFileInfo^ do
- begin
- FVersion.FAppMajorVer := dwFileVersionMS shr 16;
- FVersion.FAppMinorVer := dwFileVersionMS and $FFFF;
- FVersion.FAppReleaseVer := dwFileVersionLS shr 16;
- FVersion.FAppBuildVer := dwFileVersionLS and $FFFF;
- end;
- FreeMem(pInfo, InfoSize);
-end;
-
-
-procedure TWebUpdater.SendErrorReport;
-var
- emMail, emSubject: string;
- emBody: TStringList;
-begin
- if FileExists(GetFullLogFileName) then
- begin
- embody := TStringList.Create;
- try
- emBody.Clear;
- emBody.LoadFromFile(GetFullLogFileName);
- emSubject := sUpdaterErrorReport;
- emMail := 'mailto:' + FEmail + '?subject=' + emSubject + '&body=' + emBody.Text;
- AddLog(sMailingReport);
- ShellExecute(Forms.Application.Handle, 'open', PChar(emMail), nil, nil, SW_SHOWNORMAL);
- finally
- emBody.Free;
- end;
- end;
-end;
-
-procedure TWebUpdater.Stop;
-begin
- if Busy then
- begin
- Quit := True;
- UpdateTextControls(sStopped);
- end;
-end;
-
-///////////////// End of public procedures//////////////
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/CryptFuncDll.txt b/windows/src/ext/embeddedwb/Source/CryptFuncDll.txt
deleted file mode 100644
index 1b11baf4c5c7392971d1805a0174fc95d1bde62c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/CryptFuncDll.txt
+++ /dev/null
@@ -1,622 +0,0 @@
---------------------------------------------------------
-This document is Copyright 1997-98 Project JEDI.
-Visit the JEDI home page at:http://www.delphi-jedi.org/
---------------------------------------------------------
-
---------------------------------------------------------
-CryptoApi version 2 (sdk date 12/1997)
-Delphi binding version 1.0.2
-DLL Dump From Windows NT 4 sp 3.
---------------------------------------------------------
-
-
-LIST OF EXPORTED FUNCTION FROM CRYPTOAPI DLLs
-
-
-
-Exports from ADVAPI32.dll
- 397 exported name(s), 397 export addresse(s). Ordinal base is 1.
- Ordinal RVA Name
- ------- -------- ----
- 0000 000195bb AbortSystemShutdownA
- 0001 00019586 AbortSystemShutdownW
- 0002 00001fd9 AccessCheck
- 0003 00002225 AccessCheckAndAuditAlarmA
- 0004 00002191 AccessCheckAndAuditAlarmW
- 0005 00002984 AddAccessAllowedAce
- 0006 000029b1 AddAccessDeniedAce
- 0007 00002908 AddAce
- 0008 000029de AddAuditAccessAce
- 0009 00002122 AdjustTokenGroups
- 0010 000020eb AdjustTokenPrivileges
- 0011 0000279b AllocateAndInitializeSid
- 0012 00001fb9 AllocateLocallyUniqueId
- 0013 0000283d AreAllAccessesGranted
- 0014 00002851 AreAnyAccessesGranted
- 0015 000017a7 BackupEventLogA
- 0016 000012ce BackupEventLogW
- 0017 0000fcd7 BuildAccessRequestA
- 0018 0000fcbb BuildAccessRequestW
- 0019 0000fd1c BuildExplicitAccessWithNameA
- 0020 0000fcf3 BuildExplicitAccessWithNameW
- 0021 0000fd79 BuildImpersonateExplicitAccessWithNameA
- 0022 0000fd45 BuildImpersonateExplicitAccessWithNameW
- 0023 0000fdff BuildImpersonateTrusteeA
- 0024 0000fdeb BuildImpersonateTrusteeW
- 0025 000106de BuildSecurityDescriptorA
- 0026 000104a2 BuildSecurityDescriptorW
- 0027 0000fdcc BuildTrusteeWithNameA
- 0028 0000fdad BuildTrusteeWithNameW
- 0029 0000fe2e BuildTrusteeWithSidA
- 0030 0000fe13 BuildTrusteeWithSidW
- 0031 0001759a ChangeServiceConfigA
- 0032 0001774a ChangeServiceConfigW
- 0033 00001743 ClearEventLogA
- 0034 000011a6 ClearEventLogW
- 0035 000010ff CloseEventLog
- 0036 00016c80 CloseServiceHandle
- 0037 00016a46 ControlService
- 0038 00002815 CopySid
- 0039 00002c44 CreatePrivateObjectSecurity
- 0040 00006c7b CreateProcessAsUserA
- 0041 00006ce2 CreateProcessAsUserW
- 0042 0001784d CreateServiceA
- 0043 00017a0f CreateServiceW
- 0044 00006e3c CryptAcquireContextA
- 0045 00006d49 CryptAcquireContextW
- 0046 00008440 CryptCreateHash
- 0047 00008316 CryptDecrypt
- 0048 000077e0 CryptDeriveKey
- 0049 000087ed CryptDestroyHash
- 0050 000079c5 CryptDestroyKey
- 0051 000081e9 CryptEncrypt
- 0052 00007eb0 CryptExportKey
- 0053 000076ae CryptGenKey
- 0054 00007d0e CryptGenRandom
- 0055 00008f67 CryptGetHashParam
- 0056 00007c36 CryptGetKeyParam
- 0057 00008d93 CryptGetProvParam
- 0058 00007da6 CryptGetUserKey
- 0059 000085fe CryptHashData
- 0060 000086d3 CryptHashSessionKey
- 0061 00007fda CryptImportKey
- 0062 000075b9 CryptReleaseContext
- 0063 00008e31 CryptSetHashParam
- 0064 00007b00 CryptSetKeyParam
- 0065 00008c8f CryptSetProvParam
- 0066 000090e6 CryptSetProviderA
- 0067 0000903f CryptSetProviderW
- 0068 00008a03 CryptSignHashA
- 0069 00008928 CryptSignHashW
- 0070 00008bdc CryptVerifySignatureA
- 0071 00008ab6 CryptVerifySignatureW
- 0072 00002938 DeleteAce
- 0073 00017b1f DeleteService
- 0074 00010cbc DenyAccessRightsA
- 0075 00010ca0 DenyAccessRightsW
- 0076 0000111e DeregisterEventSource
- 0077 00002cd7 DestroyPrivateObjectSecurity
- 0078 00001f17 DuplicateToken
- 0079 00001f31 DuplicateTokenEx
- 0080 0000a75c ElfBackupEventLogFileA
- 0081 0000a1f9 ElfBackupEventLogFileW
- 0082 00009edd ElfChangeNotify
- 0083 0000a6e7 ElfClearEventLogFileA
- 0084 0000a184 ElfClearEventLogFileW
- 0085 0000a27d ElfCloseEventLog
- 0086 0000a2f0 ElfDeregisterEventSource
- 0087 00009ddb ElfNumberOfRecords
- 0088 00009e5c ElfOldestRecord
- 0089 0000a642 ElfOpenBackupEventLogA
- 0090 0000a0dc ElfOpenBackupEventLogW
- 0091 0000a4cc ElfOpenEventLogA
- 0092 00009f68 ElfOpenEventLogW
- 0093 0000a7e0 ElfReadEventLogA
- 0094 0000a363 ElfReadEventLogW
- 0095 0000a587 ElfRegisterEventSourceA
- 0096 0000a022 ElfRegisterEventSourceW
- 0097 0000a895 ElfReportEventA
- 0098 0000a418 ElfReportEventW
- 0099 00017ba6 EnumDependentServicesA
- 0100 00017c74 EnumDependentServicesW
- 0101 00016af9 EnumServiceGroupW
- 0102 000172ff EnumServicesStatusA
- 0103 00016ad3 EnumServicesStatusW
- 0104 00002743 EqualPrefixSid
- 0105 0000272f EqualSid
- 0106 00002a11 FindFirstFreeAce
- 0107 0000278e FreeSid
- 0108 0000295c GetAce
- 0109 000028ae GetAclInformation
- 0110 000114d4 GetAuditedPermissionsFromAclA
- 0111 0001146a GetAuditedPermissionsFromAclW
- 0112 00010b97 GetAuditedPermissionsFromSDA
- 0113 00010b89 GetAuditedPermissionsFromSDW
- 0114 00001d65 GetCurrentHwProfileA
- 0115 00001aee GetCurrentHwProfileW
- 0116 00011008 GetEffectiveAccessRightsA
- 0117 00010f70 GetEffectiveAccessRightsW
- 0118 0001140c GetEffectiveRightsFromAclA
- 0119 000113a6 GetEffectiveRightsFromAclW
- 0120 00010b2b GetEffectiveRightsFromSDA
- 0121 00010b1d GetEffectiveRightsFromSDW
- 0122 0001112f GetExplicitAccessRightsA
- 0123 00011097 GetExplicitAccessRightsW
- 0124 00011357 GetExplicitEntriesFromAclA
- 0125 000112c5 GetExplicitEntriesFromAclW
- 0126 00002fc9 GetFileSecurityA
- 0127 00002ede GetFileSecurityW
- 0128 00003047 GetKernelObjectSecurity
- 0129 00002808 GetLengthSid
- 0130 0000feb2 GetMultipleTrusteeA
- 0131 0000fe9f GetMultipleTrusteeOperationA
- 0132 0000fe95 GetMultipleTrusteeOperationW
- 0133 0000fea9 GetMultipleTrusteeW
- 0134 00011619 GetNamedSecurityInfoA
- 0135 00011535 GetNamedSecurityInfoW
- 0136 00001160 GetNumberOfEventLogRecords
- 0137 00001183 GetOldestEventLogRecord
- 0138 00002ca7 GetPrivateObjectSecurity
- 0139 00002a78 GetSecurityDescriptorControl
- 0140 00002acd GetSecurityDescriptorDacl
- 0141 00002c0c GetSecurityDescriptorGroup
- 0142 00002a6b GetSecurityDescriptorLength
- 0143 00002bac GetSecurityDescriptorOwner
- 0144 00002b3f GetSecurityDescriptorSacl
- 0145 0001167e GetSecurityInfo
- 0146 00017d42 GetServiceDisplayNameA
- 0147 00017df7 GetServiceDisplayNameW
- 0148 00017ead GetServiceKeyNameA
- 0149 00017f62 GetServiceKeyNameW
- 0150 000027dd GetSidIdentifierAuthority
- 0151 00002757 GetSidLengthRequired
- 0152 000027ea GetSidSubAuthority
- 0153 000027fb GetSidSubAuthorityCount
- 0154 0000208e GetTokenInformation
- 0155 0000fe60 GetTrusteeNameA
- 0156 0000fe49 GetTrusteeNameW
- 0157 0000fe81 GetTrusteeTypeA
- 0158 0000fe77 GetTrusteeTypeW
- 0159 00003e53 GetUserNameA
- 0160 00003dbd GetUserNameW
- 0161 00010c14 GrantAccessRightsA
- 0162 00010bf8 GrantAccessRightsW
- 0163 00017090 I_ScGetCurrentGroupStateW
- 0164 00016f40 I_ScSetServiceBitsA
- 0165 00016fe8 I_ScSetServiceBitsW
- 0166 000067d9 ImpersonateLoggedOnUser
- 0167 00003077 ImpersonateNamedPipeClient
- 0168 000030b2 ImpersonateSelf
- 0169 00002886 InitializeAcl
- 0170 00002a25 InitializeSecurityDescriptor
- 0171 00002766 InitializeSid
- 0172 000194eb InitiateSystemShutdownA
- 0173 0001948b InitiateSystemShutdownW
- 0174 00010f32 IsAccessPermittedA
- 0175 00010d9e IsAccessPermittedW
- 0176 00005df6 IsTextUnicode
- 0177 00002876 IsValidAcl
- 0178 00002a49 IsValidSecurityDescriptor
- 0179 0000271f IsValidSid
- 0180 0001801b LockServiceDatabase
- 0181 00006567 LogonUserA
- 0182 00006636 LogonUserW
- 0183 0000313e LookupAccountNameA
- 0184 00003289 LookupAccountNameW
- 0185 00003469 LookupAccountSidA
- 0186 000035c2 LookupAccountSidW
- 0187 00003b12 LookupPrivilegeDisplayNameA
- 0188 00003c97 LookupPrivilegeDisplayNameW
- 0189 000038ea LookupPrivilegeNameA
- 0190 00003a07 LookupPrivilegeNameW
- 0191 000037b2 LookupPrivilegeValueA
- 0192 00003846 LookupPrivilegeValueW
- 0193 000109a2 LookupSecurityDescriptorPartsA
- 0194 000107d5 LookupSecurityDescriptorPartsW
- 0195 0000b9e5 LsaAddAccountRights
- 0196 0000d5eb LsaAddPrivilegesToAccount
- 0197 0000c838 LsaClearAuditLog
- 0198 0000ca8a LsaClose
- 0199 0000cd6e LsaCreateAccount
- 0200 0000d20d LsaCreateSecret
- 0201 0000ce96 LsaCreateTrustedDomain
- 0202 0000cb23 LsaDelete
- 0203 0000bf73 LsaDeleteTrustedDomain
- 0204 0000b91b LsaEnumerateAccountRights
- 0205 0000cdef LsaEnumerateAccounts
- 0206 0000b851 LsaEnumerateAccountsWithUserRight
- 0207 0000d166 LsaEnumeratePrivileges
- 0208 0000d56f LsaEnumeratePrivilegesOfAccount
- 0209 0000d0b0 LsaEnumerateTrustedDomains
- 0210 0000d8e8 LsaFreeMemory
- 0211 0000d6e4 LsaGetQuotasForAccount
- 0212 0000d7da LsaGetSystemAccessAccount
- 0213 0000dcf3 LsaGetUserName
- 0214 0000d2e0 LsaICLookupNames
- 0215 0000d3ee LsaICLookupSids
- 0216 0000d2b3 LsaLookupNames
- 0217 0000c9d9 LsaLookupPrivilegeDisplayName
- 0218 0000c940 LsaLookupPrivilegeName
- 0219 0000c8b0 LsaLookupPrivilegeValue
- 0220 0000d3c1 LsaLookupSids
- 0221 0000c5c5 LsaNtStatusToWinError
- 0222 0000d4ee LsaOpenAccount
- 0223 0000c5d2 LsaOpenPolicy
- 0224 0000d971 LsaOpenSecret
- 0225 0000cf18 LsaOpenTrustedDomain
- 0226 0000cf99 LsaQueryInfoTrustedDomain
- 0227 0000c721 LsaQueryInformationPolicy
- 0228 0000db39 LsaQuerySecret
- 0229 0000cbea LsaQuerySecurityObject
- 0230 0000bb4d LsaQueryTrustedDomainInfo
- 0231 0000ba96 LsaRemoveAccountRights
- 0232 0000d666 LsaRemovePrivilegesFromAccount
- 0233 0000c13d LsaRetrievePrivateData
- 0234 0000c7ba LsaSetInformationPolicy
- 0235 0000d032 LsaSetInformationTrustedDomain
- 0236 0000d75f LsaSetQuotasForAccount
- 0237 0000d9f2 LsaSetSecret
- 0238 0000cc8d LsaSetSecurityObject
- 0239 0000d861 LsaSetSystemAccessAccount
- 0240 0000bdc5 LsaSetTrustedDomainInformation
- 0241 0000c00e LsaStorePrivateData
- 0242 00002d1f MakeAbsoluteSD
- 0243 00002cf7 MakeSelfRelativeSD
- 0244 00002865 MapGenericMask
- 0245 00011e2f NTAccessMaskToProvAccessRights
- 0246 0001840c NotifyBootConfigStatus
- 0247 0000113d NotifyChangeEventLog
- 0248 00002528 ObjectCloseAuditAlarmA
- 0249 00002578 ObjectCloseAuditAlarmW
- 0250 000025b4 ObjectDeleteAuditAlarmA
- 0251 00002604 ObjectDeleteAuditAlarmW
- 0252 0000231e ObjectOpenAuditAlarmA
- 0253 0000241a ObjectOpenAuditAlarmW
- 0254 0000248a ObjectPrivilegeAuditAlarmA
- 0255 000024e3 ObjectPrivilegeAuditAlarmW
- 0256 0000189b OpenBackupEventLogA
- 0257 00001487 OpenBackupEventLogW
- 0258 0000180b OpenEventLogA
- 0259 000013f7 OpenEventLogW
- 0260 00002039 OpenProcessToken
- 0261 00017149 OpenSCManagerA
- 0262 00016d08 OpenSCManagerW
- 0263 000171e0 OpenServiceA
- 0264 00016bee OpenServiceW
- 0265 00002061 OpenThreadToken
- 0266 00002159 PrivilegeCheck
- 0267 00002640 PrivilegedServiceAuditAlarmA
- 0268 000026cf PrivilegedServiceAuditAlarmW
- 0269 00011e8f ProvAccessRightsToNTAccessMask
- 0270 000180a7 QueryServiceConfigA
- 0271 00018167 QueryServiceConfigW
- 0272 0001823f QueryServiceLockStatusA
- 0273 000182e0 QueryServiceLockStatusW
- 0274 000173d3 QueryServiceObjectSecurity
- 0275 00016d9f QueryServiceStatus
- 0276 0000413d QueryWindows31FilesMigration
- 0277 00001951 ReadEventLogA
- 0278 000015ab ReadEventLogW
- 0279 00019723 RegCloseKey
- 0280 0001a0a8 RegConnectRegistryA
- 0281 00019f9c RegConnectRegistryW
- 0282 000197c4 RegCreateKeyA
- 0283 00019876 RegCreateKeyExA
- 0284 000199e5 RegCreateKeyExW
- 0285 00019856 RegCreateKeyW
- 0286 0001a0f7 RegDeleteKeyA
- 0287 0001a17d RegDeleteKeyW
- 0288 0001a1df RegDeleteValueA
- 0289 0001a265 RegDeleteValueW
- 0290 0001a2c7 RegEnumKeyA
- 0291 0001a323 RegEnumKeyExA
- 0292 0001a456 RegEnumKeyExW
- 0293 0001a2f5 RegEnumKeyW
- 0294 0001a536 RegEnumValueA
- 0295 0001a97e RegEnumValueW
- 0296 00019b03 RegFlushKey
- 0297 0001ab6a RegGetKeySecurity
- 0298 0001adbd RegLoadKeyA
- 0299 0001aea0 RegLoadKeyW
- 0300 0001b1ea RegNotifyChangeKeyValue
- 0301 00019b48 RegOpenKeyA
- 0302 00019c6a RegOpenKeyExA
- 0303 00019dc6 RegOpenKeyExW
- 0304 00019bdd RegOpenKeyW
- 0305 0001b270 RegQueryInfoKeyA
- 0306 0001b44a RegQueryInfoKeyW
- 0307 0001b5d6 RegQueryMultipleValuesA
- 0308 0001b943 RegQueryMultipleValuesW
- 0309 0001bb90 RegQueryValueA
- 0310 0001bd2c RegQueryValueExA
- 0311 0001bfa2 RegQueryValueExW
- 0312 0001bc5d RegQueryValueW
- 0313 0001b020 RegReplaceKeyA
- 0314 0001b14b RegReplaceKeyW
- 0315 0001c092 RegRestoreKeyA
- 0316 0001c126 RegRestoreKeyW
- 0317 0001c192 RegSaveKeyA
- 0318 0001c242 RegSaveKeyW
- 0319 0001ac7f RegSetKeySecurity
- 0320 0001c2c7 RegSetValueA
- 0321 0001c409 RegSetValueExA
- 0322 0001c5c6 RegSetValueExW
- 0323 0001c363 RegSetValueW
- 0324 0001af26 RegUnLoadKeyA
- 0325 0001afb7 RegUnLoadKeyW
- 0326 00001853 RegisterEventSourceA
- 0327 0000143f RegisterEventSourceW
- 0328 00018a44 RegisterServiceCtrlHandlerA
- 0329 0001899c RegisterServiceCtrlHandlerW
- 0330 00010c4c ReplaceAllAccessRightsA
- 0331 00010c30 ReplaceAllAccessRightsW
- 0332 00001986 ReportEventA
- 0333 000015e0 ReportEventW
- 0334 000030d2 RevertToSelf
- 0335 00010d3b RevokeExplicitAccessRightsA
- 0336 00010cd8 RevokeExplicitAccessRightsW
- 0337 00010c84 SetAccessRightsA
- 0338 00010c68 SetAccessRightsW
- 0339 000028db SetAclInformation
- 0340 00011275 SetEntriesInAclA
- 0341 000111cb SetEntriesInAclW
- 0342 00002e8e SetFileSecurityA
- 0343 00002daf SetFileSecurityW
- 0344 0000301f SetKernelObjectSecurity
- 0345 00011876 SetNamedSecurityInfoA
- 0346 0001173b SetNamedSecurityInfoW
- 0347 00002c77 SetPrivateObjectSecurity
- 0348 00002aa0 SetSecurityDescriptorDacl
- 0349 00002be4 SetSecurityDescriptorGroup
- 0350 00002b84 SetSecurityDescriptorOwner
- 0351 00002b12 SetSecurityDescriptorSacl
- 0352 000118d8 SetSecurityInfo
- 0353 00017119 SetServiceBits
- 0354 00017466 SetServiceObjectSecurity
- 0355 00016eb6 SetServiceStatus
- 0356 00003107 SetThreadToken
- 0357 000020be SetTokenInformation
- 0358 00017272 StartServiceA
- 0359 0001858a StartServiceCtrlDispatcherA
- 0360 0001866b StartServiceCtrlDispatcherW
- 0361 00016e29 StartServiceW
- 0362 00004264 SynchronizeWindows31FilesAndWindowsNTRegistry
- 0363 0000e3a4 SystemFunction001
- 0364 0000e3e6 SystemFunction002
- 0365 0000e428 SystemFunction003
- 0366 0000e701 SystemFunction004
- 0367 0000e7c2 SystemFunction005
- 0368 0000e87b SystemFunction006
- 0369 0000e8f0 SystemFunction007
- 0370 0000e972 SystemFunction008
- 0371 0000e9ee SystemFunction009
- 0372 0000ea02 SystemFunction010
- 0373 0000ea4b SystemFunction011
- 0374 0000ee7e SystemFunction012
- 0375 0000eeb0 SystemFunction013
- 0376 0000eee2 SystemFunction014
- 0377 0000eef6 SystemFunction015
- 0378 0000ef0a SystemFunction016
- 0379 0000ef39 SystemFunction017
- 0380 0000ef68 SystemFunction018
- 0381 0000ef7c SystemFunction019
- 0382 0000f069 SystemFunction020
- 0383 0000f07d SystemFunction021
- 0384 0000f091 SystemFunction022
- 0385 0000f0a5 SystemFunction023
- 0386 0000efbd SystemFunction024
- 0387 0000efff SystemFunction025
- 0388 0000f041 SystemFunction026
- 0389 0000f055 SystemFunction027
- 0390 0000ea5f SystemFunction028
- 0391 0000eca1 SystemFunction029
- 0392 0000e934 SystemFunction030
- 0393 0000e953 SystemFunction031
- 0394 0000f0b9 SystemFunction032
- 0395 0000f0f9 SystemFunction033
- 0396 00018381 UnlockServiceDatabase
-
-Exports from CRYPT32.dll
- 172 exported name(s), 172 export addresse(s). Ordinal base is 1.
- Ordinal RVA Name
- ------- -------- ----
- 0003 00007fa6 CertAddCRLContextToStore
- 0004 00008af2 CertAddCTLContextToStore
- 0005 00007b9b CertAddCertificateContextToStore
- 0006 00007d7d CertAddEncodedCRLToStore
- 0007 00008832 CertAddEncodedCTLToStore
- 0008 000079ab CertAddEncodedCertificateToStore
- 0009 0000a33a CertAddEncodedCertificateToSystemStoreA
- 0010 0000a37c CertAddEncodedCertificateToSystemStoreW
- 0011 0000a4f8 CertAddEnhancedKeyUsageIdentifier
- 0012 00008cba CertAddSerializedElementToStore
- 0013 0000b735 CertAlgIdToOID
- 0014 00006613 CertCloseStore
- 0015 0000add8 CertCompareCertificate
- 0016 0000ae15 CertCompareCertificateName
- 0017 0000ad47 CertCompareIntegerBlob
- 0018 0000aff2 CertComparePublicKeyInfo
- 0019 000078e1 CertCreateCRLContext
- 0020 00008187 CertCreateCTLContext
- 0021 0000771b CertCreateCertificateContext
- 0022 000080c2 CertDeleteCRLFromStore
- 0023 00008c0e CertDeleteCTLFromStore
- 0024 00007cb7 CertDeleteCertificateFromStore
- 0025 000078c8 CertDuplicateCRLContext
- 0026 0000816e CertDuplicateCTLContext
- 0027 000078c8 CertDuplicateCertificateContext
- 0028 000065fe CertDuplicateStore
- 0029 00007994 CertEnumCRLContextProperties
- 0030 0000823a CertEnumCTLContextProperties
- 0031 00008251 CertEnumCTLsInStore
- 0032 000077ce CertEnumCertificateContextProperties
- 0033 0000703a CertEnumCertificatesInStore
- 0034 0000b7af CertFindAttribute
- 0035 0000851e CertFindCTLInStore
- 0036 000070bc CertFindCertificateInStore
- 0037 0000b77c CertFindExtension
- 0038 0000b7e2 CertFindRDNAttr
- 0039 000082d3 CertFindSubjectInCTL
- 0040 00007901 CertFreeCRLContext
- 0041 000081a7 CertFreeCTLContext
- 0042 0000773b CertFreeCertificateContext
- 0043 00007958 CertGetCRLContextProperty
- 0044 000077e5 CertGetCRLFromStore
- 0045 000081fe CertGetCTLContextProperty
- 0046 00007792 CertGetCertificateContextProperty
- 0047 0000a3be CertGetEnhancedKeyUsage
- 0048 0000b82e CertGetIntendedKeyUsage
- 0049 000075dd CertGetIssuerCertificateFromStore
- 0050 0000bf60 CertGetPublicKeyLength
- 0051 00006fa0 CertGetSubjectCertificateFromStore
- 0052 0000ae3d CertIsRDNAttrsInCertificateName
- 0053 0000d6f0 CertNameToStrA
- 0054 0000d301 CertNameToStrW
- 0055 0000b759 CertOIDToAlgId
- 0056 00006543 CertOpenStore
- 0057 0000a2d7 CertOpenSystemStoreA
- 0058 0000a308 CertOpenSystemStoreW
- 0059 0000c86e CertRDNValueToStrA
- 0060 0000c8ef CertRDNValueToStrW
- 0061 0000a5ef CertRemoveEnhancedKeyUsageIdentifier
- 0062 000068b3 CertSaveStore
- 0063 00008045 CertSerializeCRLStoreElement
- 0064 00008b91 CertSerializeCTLStoreElement
- 0065 00007c3a CertSerializeCertificateStoreElement
- 0066 00007936 CertSetCRLContextProperty
- 0067 000081dc CertSetCTLContextProperty
- 0068 00007770 CertSetCertificateContextProperty
- 0069 0000a4b2 CertSetEnhancedKeyUsage
- 0070 0000df24 CertStrToNameA
- 0071 0000d777 CertStrToNameW
- 0072 0000b6d2 CertVerifyCRLRevocation
- 0073 0000b62f CertVerifyCRLTimeValidity
- 0074 0000dfff CertVerifyCTLUsage
- 0075 0000e2e8 CertVerifyRevocation
- 0076 000076e0 CertVerifySubjectCertificateContext
- 0077 0000b5d4 CertVerifyTimeValidity
- 0078 0000b698 CertVerifyValidityNesting
- 0079 00004d1b CreateFileU
- 0080 00005237 CryptAcquireContextU
- 0081 0000e5b5 CryptCloseAsyncHandle
- 0082 0000e54b CryptCreateAsyncHandle
- 0083 0000ee99 CryptDecodeMessage
- 0084 0000ff86 CryptDecodeObject
- 0085 0000eb43 CryptDecryptAndVerifyMessageSignature
- 0086 0000ea58 CryptDecryptMessage
- 0087 0000ff32 CryptEncodeObject
- 0088 0000e9e5 CryptEncryptMessage
- 0089 00015a3a CryptEnumOIDFunction
- 0090 00005415 CryptEnumProvidersU
- 0091 0000c2e6 CryptExportPKCS8
- 0092 0000b90f CryptExportPublicKeyInfo
- 0093 0000b94d CryptExportPublicKeyInfoEx
- 0094 00016551 CryptFindOIDInfo
- 0095 00016b59 CryptFormatObject
- 0096 00016315 CryptFreeOIDFunctionAddress
- 0097 0000e59d CryptGetAsyncParam
- 0098 00016275 CryptGetDefaultOIDDllList
- 0099 00016290 CryptGetDefaultOIDFunctionAddress
- 0100 0000e9bc CryptGetMessageCertificates
- 0101 0000e959 CryptGetMessageSignerCount
- 0102 00015ea9 CryptGetOIDFunctionAddress
- 0103 00015547 CryptGetOIDFunctionValue
- 0104 0000b22a CryptHashCertificate
- 0105 0000ec34 CryptHashMessage
- 0106 0000c07d CryptHashPublicKeyInfo
- 0107 0000b2c3 CryptHashToBeSigned
- 0108 0000c0dc CryptImportPKCS8
- 0109 0000b930 CryptImportPublicKeyInfo
- 0110 0000b9a9 CryptImportPublicKeyInfoEx
- 0111 00014fe4 CryptInitOIDFunctionSet
- 0112 0001509a CryptInstallOIDFunctionAddress
- 0000 00021957 CryptLoadSip
- 0113 00016bd6 CryptMemAlloc
- 0114 00016bf8 CryptMemFree
- 0115 00016be5 CryptMemRealloc
- 0116 00019032 CryptMsgCalculateEncodedLength
- 0117 0001abcf CryptMsgClose
- 0118 0001d592 CryptMsgControl
- 0119 0001df82 CryptMsgCountersign
- 0120 0001dd40 CryptMsgCountersignEncoded
- 0121 0001f94a CryptMsgEncodeAndSignCTL
- 0122 0001f7b2 CryptMsgGetAndVerifySigner
- 0123 0001ef73 CryptMsgGetParam
- 0124 0001ab29 CryptMsgOpenToDecode
- 0125 0001aa9e CryptMsgOpenToEncode
- 0126 0001f856 CryptMsgSignCTL
- 0127 0001c3ce CryptMsgUpdate
- 0128 0001e099 CryptMsgVerifyCountersignatureEncoded
- 0129 000156ef CryptRegisterDefaultOIDFunction
- 0130 000155db CryptRegisterOIDFunction
- 0131 000163ca CryptRegisterOIDInfo
- 0132 00021d6c CryptSIPAddProvider
- 0133 0002196b CryptSIPLoad
- 0134 00022063 CryptSIPRemoveProvider
- 0135 0002212a CryptSIPRetrieveSubjectGuid
- 0136 0000e585 CryptSetAsyncParam
- 0137 00015389 CryptSetOIDFunctionValue
- 0138 000053b2 CryptSetProviderU
- 0139 0000b4a9 CryptSignAndEncodeCertificate
- 0140 0000ea83 CryptSignAndEncryptMessage
- 0141 0000b383 CryptSignCertificate
- 0142 000052bc CryptSignHashU
- 0143 0000e889 CryptSignMessage
- 0144 0000eed1 CryptSignMessageWithKey
- 0145 00015924 CryptUnregisterDefaultOIDFunction
- 0146 00015662 CryptUnregisterOIDFunction
- 0147 0001651e CryptUnregisterOIDInfo
- 0148 0000b07c CryptVerifyCertificateSignature
- 0149 0000ee71 CryptVerifyDetachedMessageHash
- 0150 0000e92a CryptVerifyDetachedMessageSignature
- 0151 0000ee4b CryptVerifyMessageHash
- 0152 0000e8fd CryptVerifyMessageSignature
- 0153 0000f064 CryptVerifyMessageSignatureWithKey
- 0154 00005337 CryptVerifySignatureU
- 0155 00016d15 I_CryptAllocTls
- 0156 00016ed4 I_CryptDetachTls
- 0157 0000ac08 I_CryptGetDefaultCryptProv
- 0158 0000acaa I_CryptGetDefaultCryptProvForEncrypt
- 0159 00016f3a I_CryptGetOssGlobal
- 0160 00016d8e I_CryptGetTls
- 0161 00016f05 I_CryptInstallOssGlobal
- 0162 00016eb1 I_CryptSetTls
- 0001 00022c70 PFXExportCertStore
- 0002 00022b34 PFXImportCertStore
- 0163 00005f8b RegCreateHKCUKeyExU
- 0164 00005704 RegCreateKeyExU
- 0165 00005bfb RegDeleteValueU
- 0166 0000599f RegEnumValueU
- 0167 00006003 RegOpenHKCUKeyExU
- 0168 00005f13 RegOpenKeyExU
- 0169 00005e67 RegQueryInfoKeyU
- 0170 00005c5e RegQueryValueExU
- 0171 00005d8b RegSetValueExU
-
-Exports from SOFTPUB.dll
- 22 exported name(s), 22 export addresse(s). Ordinal base is 1.
- Ordinal RVA Name
- ------- -------- ----
- 0003 0000b3c6 AddPersonalTrustDBPages
- 0004 00005fb8 DllRegisterServer
- 0005 00006246 DllUnregisterServer
- 0006 000064ed DriverCleanupPolicy
- 0007 00006730 DriverFinalPolicy
- 0008 00006387 DriverInitializePolicy
- 0009 00006d05 FindCertsByIssuer
- 0010 0000930a HTTPSCheckCertProv
- 0011 00009437 HTTPSFinalProv
- 0012 00008585 OfficeCleanupPolicy
- 0013 00008340 OfficeInitializePolicy
- 0014 0000b451 OpenPersonalTrustDBDialog
- 0015 00005060 SoftpubAuthenticode
- 0016 00005cb2 SoftpubCheckCert
- 0017 00005e7e SoftpubCleanup
- 0000 0000541a SoftpubDefCertInit
- 0018 00009769 SoftpubDumpStructure
- 0001 00005f61 SoftpubFreeDefUsageCallData
- 0019 00007711 SoftpubInitialize
- 0002 00005e83 SoftpubLoadDefUsageCallData
- 0020 00007831 SoftpubLoadMessage
- 0021 00008672 SoftpubLoadSignature
-
diff --git a/windows/src/ext/embeddedwb/Source/DirMonitor.pas b/windows/src/ext/embeddedwb/Source/DirMonitor.pas
deleted file mode 100644
index 954c07245698e9e2d4567d3b9a5b62615127f330..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/DirMonitor.pas
+++ /dev/null
@@ -1,158 +0,0 @@
-unit DirMonitor;
-//**************************************************************************
-// DirMonitor unit *
-// by Peter Morris (Cubud) *
-// For Delphi 5 to XE *
-// Freeware Unit *
-// *
-// Contributor: *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com - D2005 update *
-// Robert Marquardt Clean the code and Update *
-// I got Permition to add the DirMonitor unit and to change *
-// the code by my needs from Peter Morris (Pete@StuckIndoors.com) *
-// We thank him for that. *
-// Regards, *
-// bsalsa *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-// *
-// Ps, to get your own FREE events page, go to *
-// www.stuckindoors.com *
-//**************************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-{*******************************************************************************}
-//$Id: DirMonitor.pas,v 1.2 2006/11/15 21:01:38 sergev Exp $
-
-interface
-
-{$I EWB.inc}
-
-{$IFDEF DELPHI6_UP}
-{$WARN UNIT_PLATFORM OFF}
-{$ENDIF}
-
-uses
- Windows, SysUtils, Classes, FileCtrl;
-
-type
- TDirMonitor = class(TThread)
- private
- FCallback: TNotifyEvent;
- FDirectoryPath: string;
- FSubDirs: Boolean;
- procedure DoCallback;
- protected
- procedure Execute; override;
- public
- constructor Create(ADirectoryPath: string; ASubDirs: Boolean; ACallback: TNotifyEvent);
- property DirectoryPath: string read FDirectoryPath;
- property SubDirs: Boolean read FSubDirs;
- end;
-
-implementation
-
-constructor TDirMonitor.Create(ADirectoryPath: string;
- ASubDirs: Boolean; ACallback: TNotifyEvent);
-begin
- inherited Create(True);
- if not {$IFDEF DELPHI6_UP}SysUtils.{$ENDIF}DirectoryExists(ADirectoryPath) then
- raise Exception.Create('Path does not exist');
- if not Assigned(ACallback) then
- raise Exception.Create('No callback has been set');
- FSubDirs := ASubDirs;
- FDirectoryPath := ADirectoryPath;
- FCallback := ACallback;
- FreeOnTerminate := True;
- {$IFDEF DELPHI2010_UP}
- Start;
- {$ELSE}
- Resume;
- {$ENDIF}
-end;
-
-procedure TDirMonitor.DoCallback;
-begin
- FCallback(Self);
-end;
-
-procedure TDirMonitor.Execute;
-var
- Event: THandle;
- WaitResult: DWORD;
-begin
- Event := FindFirstChangeNotification(PChar(DirectoryPath), SubDirs,
- FILE_NOTIFY_CHANGE_FILE_NAME or FILE_NOTIFY_CHANGE_DIR_NAME or
- FILE_NOTIFY_CHANGE_SIZE or FILE_NOTIFY_CHANGE_LAST_WRITE);
- if Event = INVALID_HANDLE_VALUE then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Terminate;
- end
- else
- repeat
- WaitResult := WaitForSingleObject(Event, 100);
- case WaitResult of
- WAIT_FAILED or WAIT_ABANDONED:
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Terminate;
- end;
- WAIT_OBJECT_0:
- if Assigned(FCallback) then
- try
- Synchronize(DoCallback);
- finally
- Terminate;
- end;
- end;
- until Terminated or (WaitResult = WAIT_OBJECT_0);
- if not FindCloseChangeNotification(Event) then
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
-end;
-(*
-procedure TDirMonitor.Execute;
-var
- Event: THandle;
- Finished: Boolean;
- WaitResult: DWORD;
-begin
- Event := FindFirstChangeNotification(PChar(DirectoryPath), SubDirs,
- FILE_NOTIFY_CHANGE_FILE_NAME or FILE_NOTIFY_CHANGE_DIR_NAME or
- FILE_NOTIFY_CHANGE_SIZE or FILE_NOTIFY_CHANGE_LAST_WRITE);
- if Event = INVALID_HANDLE_VALUE then Exit;
- repeat
- WaitResult := WaitForSingleObject(Event, 100);
- Finished := (WaitResult = WAIT_OBJECT_0);
- if Finished and Assigned(FCallback) then
- Synchronize(DoCallback);
- until Terminated or Finished;
- FindCloseChangeNotification(Event);
-end;
-*)
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EWB.dcr b/windows/src/ext/embeddedwb/Source/EWB.dcr
deleted file mode 100644
index fad3b5af3918461e60fa557aaec55ab45e7fff48..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Source/EWB.dcr and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Source/EWB.inc b/windows/src/ext/embeddedwb/Source/EWB.inc
deleted file mode 100644
index 39a7613ee7044e42b22831ef3eacf50164c0b85f..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EWB.inc
+++ /dev/null
@@ -1,116 +0,0 @@
-//*************************************************************
-// EWB.inc - Embedded Webbrowser definitions *
-// *
-// For Delphi 5 -Delphi XE *
-// Freeware unit *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@bsalsa.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{
-
-LICENSE:
-
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-
-{*******************************************************************************}
-{$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}
-
-
-{$I EWB_jedi.inc}
-
-// Specify the modules to include:
-// To remove the extras, just put a dot in front of the $DEFINE. E.g. "{.$DEFINE USE_EwbTools}"
-// To include an extra, remove the dot.
-// Then re-compile the package.
-
-
-//---- EmbeddedWB.pas: ---------------------------------------------------------
-
-// ** Activated by default:
-
-// Use functions from EwbTools.pas as methods in EmbeddedWB
-{$DEFINE USE_EwbTools}
-
-// Enable Subclassing of TEmbeddedWB Child windows (focus issues, ActiveControl, TAB and ActiveControl)
-{$DEFINE Enable_SubClassChildWindows}
-
-// Enable Mouse Hook to catch WM_MOUSEWHEEL and set Focus on TEmbeddedWB while not active
-{$DEFINE Enable_AutoMouseWheelFix}
-
-// Enable FocusControl to catch CM_ACTIVATE (EWB focus issue when switching back to the application)
-{$DEFINE Enable_AutoFocusControl}
-
-// Enable FormWndProc "Hooking" to handle Dialog Boxes / Popups
-{$DEFINE Enable_HookParentFormWndProc}
-
-
-// ** Deactivated by default:
-
-
-// Enable DDE Support EwbDDE.pas
-{.$DEFINE USE_EwbDDE}
-
-// Enable MSHTML events (MSHTMLEvents.pas)
-{.$DEFINE Enable_EwbMSHTMLEvents}
-
-// Enable Mouse (OnEnter, OnLeave) Events in TEmbeddedWB (D5, D6, D7 only)
-{.$DEFINE Enable_MouseEnterLeaveEvents}
-
-// Enable OleCtrls Fix (experimental)
-{.$DEFINE USE_OleCtrlsFix}
-
-// Enable Debugging
-{.$DEFINE Enable_Debug}
-
-
-//---- EwbCore.pas ---------------------------------------------------------
-
-{$DEFINE USE_IOLECOMMANDTARGET}
-
-{.$DEFINE GETKEYPATH_HANDLERS}
-
-{.$DEFINE RESEARCH_MODE}
-
-//-------------------------------------------------------------------------
-
-
-//---- TEwbControl (EwbControlComponent.pas)-------------------------------
-
- // Enable Property InternetFeatures in the Object Inspector.
- {$DEFINE Enable_InternetFeatures}
-
-//-------------------------------------------------------------------------
-
-
-// Do not change:
-
-{$IFDEF Enable_AutoFocusControl}
- {$DEFINE AutoUse_EwbControl}
-{$ENDIF Enable_AutoFocusControl}
-
-{$IFDEF Enable_AutoMouseWheelFix}
- {$DEFINE AutoUse_EwbControl}
-{$ENDIF Enable_AutoMouseWheelFix}
\ No newline at end of file
diff --git a/windows/src/ext/embeddedwb/Source/EWBIEConst.pas b/windows/src/ext/embeddedwb/Source/EWBIEConst.pas
deleted file mode 100644
index 614be69b0e59ee53032fa314b00e09df6e56c98a..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EWBIEConst.pas
+++ /dev/null
@@ -1,1094 +0,0 @@
-//**************************************************************
-// *
-// IE-Const *
-// For Delphi *
-// *
-// Contributions: *
-// Per Linds Larsen *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// Thomas Stutz (smot) *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbIEConst;
-
-interface
-
-{$I EWB.inc}
-
-
-// The reason for this file is that some constants are
-// missing in previous delphi versions.
-
-const
- ACO_NONE = 0;
- ACO_AUTOSUGGEST = $1;
- ACO_AUTOAPPEND = $2;
- ACO_SEARCH = $4;
- ACO_FILTERPREFIXES = $8;
- ACO_USETAB = $10;
- ACO_UPDOWNKEYDROPSLIST = $20;
- ACO_RTLREADING = $40;
- ACLO_NONE = 0; {don't enumerate anything}
- ACLO_CURRENTDIR = 1; {enumerate current directory}
- ACLO_MYCOMPUTER = 2; {enumerate MyComputer}
- ACLO_DESKTOP = 4; {enumerate Desktop Folder}
- ACLO_FAVORITES = 8; {enumerate Favorites Folder}
- ACLO_FILESYSONLY = 16; {enumerate only the file system}
- BINDSTATUS_FINDINGRESOURCE = 1;
- BINDSTATUS_CONNECTING = 2;
- BINDSTATUS_REDIRECTING = 3;
- BINDSTATUS_BEGINDOWNLOADDATA = 4;
- BINDSTATUS_DOWNLOADINGDATA = 5;
- BINDSTATUS_ENDDOWNLOADDATA = 6;
- BINDSTATUS_BEGINDOWNLOADCOMPONENTS = 7;
- BINDSTATUS_INSTALLINGCOMPONENTS = 8;
- BINDSTATUS_ENDDOWNLOADCOMPONENTS = 9;
- BINDSTATUS_USINGCACHEDCOPY = 10;
- BINDSTATUS_SENDINGREQUEST = 11;
- BINDSTATUS_CLASSIDAVAILABLE = 12;
- BINDSTATUS_MIMETYPEAVAILABLE = 13;
- BINDSTATUS_CACHEFILENAMEAVAILABLE = 14;
- BINDSTATUS_BEGINSYNCOPERATION = 15;
- BINDSTATUS_ENDSYNCOPERATION = 16;
- BINDSTATUS_BEGINUPLOADDATA = 17;
- BINDSTATUS_UPLOADINGDATA = 18;
- BINDSTATUS_ENDUPLOADINGDATA = 19;
- BINDSTATUS_PROTOCOLCLASSID = 20;
- BINDSTATUS_ENCODING = 21;
- BINDSTATUS_VERFIEDMIMETYPEAVAILABLE = 22;
- BINDSTATUS_CLASSINSTALLLOCATION = 23;
- BINDSTATUS_DECODING = 24;
- BINDSTATUS_LOADINGMIMEHANDLER = 25;
- BINDSTATUS_CONTENTDISPOSITIONATTACH = 26;
- BINDSTATUS_FILTERREPORTMIMETYPE = 27;
- BINDSTATUS_CLSIDCANINSTANTIATE = 28;
- BINDSTATUS_IUNKNOWNAVAILABLE = 29;
- BINDSTATUS_DIRECTBIND = 30;
- BINDSTATUS_RAWMIMETYPE = 31;
- BINDSTATUS_PROXYDETECTING = 32;
- BINDSTATUS_ACCEPTRANGES = 33;
- BINDSTATUS_COOKIE_SENT = 34;
- BINDSTATUS_COMPACT_POLICY_RECEIVED = 35;
- BINDSTATUS_COOKIE_SUPPRESSED = 36;
- BINDSTATUS_COOKIE_STATE_UNKNOWN = 37;
- BINDSTATUS_COOKIE_STATE_ACCEPT = 38;
- BINDSTATUS_COOKIE_STATE_REJECT = 39;
- BINDSTATUS_COOKIE_STATE_PROMPT = 40;
- BINDSTATUS_COOKIE_STATE_LEASH = 41;
- BINDSTATUS_COOKIE_STATE_DOWNGRADE = 42;
- BINDSTATUS_POLICY_HREF = 43;
- BINDSTATUS_P3P_HEADER = 44;
- BINDSTATUS_SESSION_COOKIE_RECEIVED = 45;
- BINDSTATUS_PERSISTENT_COOKIE_RECEIVED = 46;
- BINDSTATUS_SESSION_COOKIES_ALLOWED = 47;
- BINDSTATUS_CACHECONTROL = 48;
- BINDSTATUS_CONTENTDISPOSITIONFILENAME = 49;
- BINDSTATUS_MIMETEXTPLAINMISMATCH = 50;
- BINDSTATUS_PUBLISHERAVAILABLE = 51;
- BINDSTATUS_DISPLAYNAMEAVAILABLE = 52;
- BINDSTATUS_SSLUX_NAVBLOCKED = 53;
- BINDSTATUS_SERVER_MIMETYPEAVAILABLE = 54;
- BINDSTATUS_SNIFFED_CLASSIDAVAILABLE = 55;
- BINDSTATUS_64BIT_PROGRESS = 56;
- VER_NUM = ' 14.70.0';
- _MaskedChars: string = 'ACFNP';
- ADDRESS_NOT_VALID = 2147221020; //**
- ASS_MESS = 'Please assign a WebBrowser before using this feature.';
- CACHEGROUP_ATTRIBUTE_BASIC = $00000001;
- CACHEGROUP_ATTRIBUTE_FLAG = $00000002;
- CACHEGROUP_ATTRIBUTE_GET_ALL = $FFFFFFFF;
- CACHEGROUP_ATTRIBUTE_GROUPNAME = $00000010;
- CACHEGROUP_ATTRIBUTE_QUOTA = $00000008;
- CACHEGROUP_ATTRIBUTE_STORAGE = $00000020;
- CACHEGROUP_ATTRIBUTE_TYPE = $00000004;
- CACHEGROUP_FLAG_FLUSHURL_ONDELETE = $00000002;
- CACHEGROUP_FLAG_GIDONLY = $00000004;
- CACHEGROUP_FLAG_NONPURGEABLE = $00000001;
- CACHEGROUP_SEARCH_ALL = $00000000;
- CACHEGROUP_SEARCH_BYURL = $00000001;
- CACHEGROUP_TYPE_INVALID = $00000001;
- CACHEGROUP_READWRITE_MASK = CACHEGROUP_ATTRIBUTE_TYPE or
- CACHEGROUP_ATTRIBUTE_QUOTA or CACHEGROUP_ATTRIBUTE_GROUPNAME or
- CACHEGROUP_ATTRIBUTE_STORAGE;
- CAddMenuExtensionsCommandID = 53;
- CContextMenuID = 24641;
- CGetMimeSubMenuCommandID = 27;
- CIP_NEED_REBOOT_UI_PERMISSION = 9;
- comctl32 = 'comctl32.dll';
- CONTEXT_MENU_ANCHOR = 5;
- CONTEXT_MENU_CONTROL = 2;
- CONTEXT_MENU_DEBUG = 9;
- CONTEXT_MENU_DEFAULT = 0;
- CONTEXT_MENU_HSCROLL = 11;
- CONTEXT_MENU_IMAGE = 1;
- CONTEXT_MENU_IMGART = 8;
- CONTEXT_MENU_IMGDYNSRC = 7;
- CONTEXT_MENU_TABLE = 3;
- CONTEXT_MENU_TEXTSELECT = 4;
- CONTEXT_MENU_UNKNOWN = 6;
- CONTEXT_MENU_VSCROLL = 10;
- CP_SYMBOL = 42;
- CP_THREAD_ACP = 3;
- DISPID_AMBIENT_DLCONTROL = (-5512);
- DISPID_AMBIENT_USERAGENT = (-5513);
- DOCHOSTUIDBLCLK_DEFAULT = 0;
- DOCHOSTUIDBLCLK_SHOWCODE = 2;
- DOCHOSTUIDBLCLK_SHOWPROPERTIES = 1;
- DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY = $0200;
- DOCHOSTUIFLAG_CODEPAGELINKEDFONTS = $0800;
- DOCHOSTUIFLAG_DIALOG = $0001;
- DOCHOSTUIFLAG_DISABLE_HELP_MENU = $0002;
- DOCHOSTUIFLAG_DISABLE_OFFSCREEN = $0040;
- DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE = $0010;
- DOCHOSTUIFLAG_DIV_BLOCKDEFAULT = $0100;
- DOCHOSTUIFLAG_ENABLE_FORMS_AUTOCOMPLETE = $4000;
- DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION = $10000;
- DOCHOSTUIFLAG_FLAT_SCROLLBAR = $0080;
- DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION = $20000;
- DOCHOSTUIFLAG_NO3DBORDER = $0004;
- DOCHOSTUIFLAG_OPENNEWWIN = $0020;
- DOCHOSTUIFLAG_OVERRIDEBEHAVIORFACTORY = $0400;
- DOCHOSTUIFLAG_SCROLL_NO = $0008;
- DOCHOSTUIFLAG_URL_ENCODING_DISABLE_UTF8 = $1000;
- DOCHOSTUIFLAG_URL_ENCODING_ENABLE_UTF8 = $2000;
- DOCHOSTUITYPE_AUTHOR = 1;
- DOCHOSTUITYPE_BROWSE = 0;
- ERROR_INTERNET_FORTEZZA_LOGIN_NEEDED = 12054;
- INTERNET_ERROR_BASE = 12000;
- ERROR_INTERNET_OUT_OF_HANDLES = INTERNET_ERROR_BASE + 1;
- ERROR_INTERNET_TIMEOUT = INTERNET_ERROR_BASE + 2;
- ERROR_INTERNET_EXTENDED_ERROR = INTERNET_ERROR_BASE + 3;
- ERROR_INTERNET_INTERNAL_ERROR = INTERNET_ERROR_BASE + 4;
- ERROR_INTERNET_INVALID_URL = INTERNET_ERROR_BASE + 5;
- ERROR_INTERNET_UNRECOGNIZED_SCHEME = INTERNET_ERROR_BASE + 6;
- ERROR_INTERNET_NAME_NOT_RESOLVED = INTERNET_ERROR_BASE + 7;
- ERROR_INTERNET_PROTOCOL_NOT_FOUND = INTERNET_ERROR_BASE + 8;
- ERROR_INTERNET_INVALID_OPTION = INTERNET_ERROR_BASE + 9;
- ERROR_INTERNET_BAD_OPTION_LENGTH = INTERNET_ERROR_BASE + 10;
- ERROR_INTERNET_OPTION_NOT_SETTABLE = INTERNET_ERROR_BASE + 11;
- ERROR_INTERNET_SHUTDOWN = INTERNET_ERROR_BASE + 12;
- ERROR_INTERNET_INCORRECT_USER_NAME = INTERNET_ERROR_BASE + 13;
- ERROR_INTERNET_INCORRECT_PASSWORD = INTERNET_ERROR_BASE + 14;
- ERROR_INTERNET_LOGIN_FAILURE = INTERNET_ERROR_BASE + 15;
- ERROR_INTERNET_INVALID_OPERATION = INTERNET_ERROR_BASE + 16;
- ERROR_INTERNET_OPERATION_CANCELLED = INTERNET_ERROR_BASE + 17;
- ERROR_INTERNET_INCORRECT_HANDLE_TYPE = INTERNET_ERROR_BASE + 18;
- ERROR_INTERNET_INCORRECT_HANDLE_STATE = INTERNET_ERROR_BASE + 19;
- ERROR_INTERNET_NOT_PROXY_REQUEST = INTERNET_ERROR_BASE + 20;
- ERROR_INTERNET_REGISTRY_VALUE_NOT_FOUND = INTERNET_ERROR_BASE + 21;
- ERROR_INTERNET_BAD_REGISTRY_PARAMETER = INTERNET_ERROR_BASE + 22;
- ERROR_INTERNET_NO_DIRECT_ACCESS = INTERNET_ERROR_BASE + 23;
- ERROR_INTERNET_NO_CONTEXT = INTERNET_ERROR_BASE + 24;
- ERROR_INTERNET_NO_CALLBACK = INTERNET_ERROR_BASE + 25;
- ERROR_INTERNET_REQUEST_PENDING = INTERNET_ERROR_BASE + 26;
- ERROR_INTERNET_INCORRECT_FORMAT = INTERNET_ERROR_BASE + 27;
- ERROR_INTERNET_ITEM_NOT_FOUND = INTERNET_ERROR_BASE + 28;
- ERROR_INTERNET_CANNOT_CONNECT = INTERNET_ERROR_BASE + 29;
- ERROR_INTERNET_CONNECTION_ABORTED = INTERNET_ERROR_BASE + 30;
- ERROR_INTERNET_CONNECTION_RESET = INTERNET_ERROR_BASE + 31;
- ERROR_INTERNET_FORCE_RETRY = INTERNET_ERROR_BASE + 32;
- ERROR_INTERNET_INVALID_PROXY_REQUEST = INTERNET_ERROR_BASE + 33;
- ERROR_INTERNET_HANDLE_EXISTS = INTERNET_ERROR_BASE + 36;
- ERROR_INTERNET_SEC_CERT_DATE_INVALID = INTERNET_ERROR_BASE + 37;
- ERROR_INTERNET_SEC_CERT_CN_INVALID = INTERNET_ERROR_BASE + 38;
- ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR = INTERNET_ERROR_BASE + 39;
- ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR = INTERNET_ERROR_BASE + 40;
- ERROR_INTERNET_MIXED_SECURITY = INTERNET_ERROR_BASE + 41;
- ERROR_INTERNET_CHG_POST_IS_NON_SECURE = INTERNET_ERROR_BASE + 42;
- ERROR_INTERNET_POST_IS_NON_SECURE = INTERNET_ERROR_BASE + 43;
- ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED = INTERNET_ERROR_BASE + 44;
- ERROR_INTERNET_INVALID_CA = INTERNET_ERROR_BASE + 45;
- ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP = INTERNET_ERROR_BASE + 46;
- ERROR_INTERNET_ASYNC_THREAD_FAILED = INTERNET_ERROR_BASE + 47;
- ERROR_INTERNET_REDIRECT_SCHEME_CHANGE = INTERNET_ERROR_BASE + 48;
- ERROR_INTERNET_DIALOG_PENDING = INTERNET_ERROR_BASE + 49;
- ERROR_INTERNET_RETRY_DIALOG = INTERNET_ERROR_BASE + 50;
- ERROR_INTERNET_HTTPS_HTTP_SUBMIT_REDIR = INTERNET_ERROR_BASE + 52;
- ERROR_INTERNET_INSERT_CDROM = INTERNET_ERROR_BASE + 53;
- E_PENDING = $8000000A;
- IED_INFO = ' IEDownload http://bsalsa.com/';
- EWB_INFO = ' EmbeddedWB http://bsalsa.com/';
- EXPLORE_COMMAND = 2;
- FEATURE_FROM_PROCESS = $00000002;
- FEATURE_FROM_REGISTRY = $00000004;
- FEATURE_FROM_THREAD = $00000001;
- FEATURE_FROM_THREAD_INTERNET = $00000040;
- FEATURE_FROM_THREAD_INTRANET = $00000010;
- FEATURE_FROM_THREAD_LOCALMACHINE = $00000008;
- FEATURE_FROM_THREAD_RESTRICTED = $00000080;
- FEATURE_FROM_THREAD_TRUSTED = $00000020;
- FIND_COMMAND = 3;
- Free_Index = 73;
- GROUP_OWNER_STORAGE_SIZE = 4;
- GROUPNAME_MAX_LENGTH = 120;
- hhctrl = 'hhctrl.ocx';
- HoursPerDay = 24;
- HTMLID_FIND = 1;
- HTMLID_OPTIONS = 3;
- HTMLID_VIEWSOURCE = 2;
- HTTP_QUERY_FLAG_COALESCE = $10000000;
- HTTP_QUERY_FLAG_NUMBER = $20000000;
- HTTP_QUERY_FLAG_REQUEST_HEADERS = $80000000;
- HTTP_QUERY_FLAG_SYSTEMTIME = $40000000;
- HTTP_QUERY_MODIFIER_FLAGS_MASK = (HTTP_QUERY_FLAG_REQUEST_HEADERS or
- HTTP_QUERY_FLAG_SYSTEMTIME or HTTP_QUERY_FLAG_NUMBER or
- HTTP_QUERY_FLAG_COALESCE);
- ID_EDITMODE = 32801;
- ID_IE_CONTEXTMENU_ADDFAV = 2261;
- ID_IE_CONTEXTMENU_NEWWINDOW = 2137;
- ID_IE_CONTEXTMENU_REFRESH = 6042;
- ID_IE_F5_REFRESH = 6041; // added by smot
- ID_IE_FILE_ADDLOCAL = 377;
- ID_IE_FILE_ADDTRUST = 376;
- ID_IE_FILE_IMPORTEXPORT = 374;
- ID_IE_FILE_NEWCALL = 395;
- ID_IE_FILE_NEWMAIL = 279;
- ID_IE_FILE_NEWPEOPLE = 390;
- ID_IE_FILE_NEWPUBLISHINFO = 387;
- ID_IE_FILE_NEWWINDOW = 275;
- ID_IE_FILE_PAGESETUP = 259;
- ID_IE_FILE_PRINT = 260;
- ID_IE_FILE_PRINTPREVIEW = 277;
- ID_IE_FILE_SENDDESKTOPSHORTCUT = 284;
- ID_IE_FILE_SENDLINK = 283;
- ID_IE_FILE_SENDPAGE = 282;
- ID_IE_HELP_BESTPAGE = 346;
- ID_IE_HELP_ENHANCEDSECURITY = 375;
- ID_IE_HELP_FAQ = 343;
- ID_IE_HELP_FEEDBACK = 345;
- ID_IE_HELP_FREESTUFF = 341;
- ID_IE_HELP_HELPINDEX = 337;
- ID_IE_HELP_MSHOME = 348;
- ID_IE_HELP_NETSCAPEUSER = 351;
- ID_IE_HELP_ONLINESUPPORT = 344;
- ID_IE_HELP_PRODUCTUPDATE = 342;
- ID_IE_HELP_SEARCHWEB = 347;
- ID_IE_HELP_STARTPAGE = 350;
- ID_IE_HELP_VERSIONINFO = 336;
- ID_IE_HELP_VISITINTERNET = 349;
- ID_IE_HELP_WEBTUTORIAL = 338;
- IDM_1D = 2170;
- IDM_ADDFAVORITES = 2261;
- IDM_ADDRESS = 2189;
- IDM_ADDTOFAVOURITES = 2261;
- IDM_ALIGNBOTTOM = 1;
- IDM_ALIGNHORIZONTALCENTERS = 2;
- IDM_ALIGNLEFT = 3;
- IDM_ALIGNRIGHT = 4;
- IDM_ALIGNTOGRID = 5;
- IDM_ALIGNTOP = 6;
- IDM_ALIGNVERTICALCENTERS = 7;
- IDM_APPLYHEADING1 = 2255;
- IDM_APPLYHEADING2 = 2256;
- IDM_APPLYHEADING3 = 2257;
- IDM_APPLYNORMAL = 2254;
- IDM_ARRANGEBOTTOM = 8;
- IDM_ARRANGERIGHT = 9;
- IDM_AUTODETECT = 2329;
- IDM_BACK = 2282;
- IDM_BACKCOLOR = 51;
- IDM_BASELINEFONT1 = 2141;
- IDM_BASELINEFONT3 = 2143;
- IDM_BASELINEFONT4 = 2144;
- IDM_BASELINEFONT5 = 2145;
- IDM_BLINK = 2190;
- IDM_BLOCKFMT = 2234;
- IDM_BOLD = 52;
- IDM_BOOKMARK = 2123;
- IDM_BORDERCOLOR = 53;
- IDM_BREAKATNEXT = 2311;
- IDM_BRINGFORWARD = 10;
- IDM_BRINGTOFRONT = 11;
- IDM_BROWSEMODE = 2126;
- IDM_BUTTON = 2167;
- IDM_CANCEL = 89;
- IDM_CAPTIONINSERT = 2203;
- IDM_CELLINSERT = 2202;
- IDM_CELLMERGE = 2204;
- IDM_CELLPROPERTIES = 2211;
- IDM_CELLSELECT = 2206;
- IDM_CELLSPLIT = 2205;
- IDM_CENTERALIGNPARA = 2250;
- IDM_CENTERHORIZONTALLY = 12;
- IDM_CENTERVERTICALLY = 13;
- IDM_CHANGECASE = 2246;
- IDM_CHANGEFONT = 2240;
- IDM_CHANGEFONTSIZE = 2241;
- IDM_CHECKBOX = 2163;
- IDM_CHISELED = 64;
- IDM_CLEARSELECTION = 2007;
- IDM_CODE = 14;
- IDM_COLUMNINSERT = 2213;
- IDM_COLUMNSELECT = 2208;
- IDM_COMMENT = 2173;
- IDM_COMPOSESETTINGS = 2318;
- IDM_CONTEXTMENU = 2280;
- IDM_CONVERTOBJECT = 82;
- IDM_COPY = 15;
- IDM_COPYBACKGROUND = 2265;
- IDM_COPYCONTENT = 2291;
- IDM_COPYFORMAT = 2237;
- IDM_COPYSHORTCUT = 2262;
- IDM_CREATELINK = 2290;
- IDM_CREATESHORTCUT = 2266;
- IDM_CUSTOMCONTROL = 83;
- IDM_CUSTOMIZEITEM = 84;
- IDM_CUT = 16;
- IDM_DECFONTSIZE = 2243;
- IDM_DECFONTSIZE1PT = 2245;
- IDM_DELETE = 17;
- IDM_DELETEWORD = 92;
- IDM_DIV = 2191;
- IDM_DOCPROPERTIES = 2260;
- IDM_DROPDOWNBOX = 2165;
- IDM_DYNSRCPLAY = 2271;
- IDM_DYNSRCSTOP = 2272;
- IDM_EDITMODE = 2127;
- IDM_EDITSOURCE = 2122;
- IDM_ENABLE_INTERACTION = 2302;
- IDM_ENCODING = 2292;
- IDM_ETCHED = 65;
- IDM_FILE = 2172;
- IDM_FIND = 67;
- IDM_FLAT = 54;
- IDM_FOLLOW_ANCHOR = 2008;
- IDM_FOLLOWLINKC = 2136;
- IDM_FOLLOWLINKN = 2137;
- IDM_FONT = 90;
- IDM_FONTNAME = 18;
- IDM_FONTSIZE = 19;
- IDM_FORECOLOR = 55;
- IDM_FORM = 2181;
- IDM_FORMATMARK = 2132;
- IDM_FORWARD = 2283;
- IDM_GETBLOCKFMTS = 2233;
- IDM_GETBYTESDOWNLOADED = 2331;
- IDM_GETZOOM = 68;
- IDM_GOBACKWARD = 2282;
- IDM_GOFORWARD = 2283;
- IDM_GOTO = 2239;
- IDM_GROUP = 20;
- IDM_HELP_ABOUT = 2221;
- IDM_HELP_CONTENT = 2220;
- IDM_HELP_README = 2222;
- IDM_HORIZONTALLINE = 2150;
- IDM_HORIZSPACECONCATENATE = 21;
- IDM_HORIZSPACEDECREASE = 22;
- IDM_HORIZSPACEINCREASE = 23;
- IDM_HORIZSPACEMAKEEQUAL = 24;
- IDM_HTMLCONTAIN = 2159;
- IDM_HTMLEDITMODE = 2316;
- IDM_HTMLSOURCE = 2157;
- IDM_HYPERLINK = 2124;
- IDM_IFRAME = 2158;
- IDM_IMAGE = 2168;
- IDM_IMAGEMAP = 2171;
- IDM_IMGARTPLAY = 2274;
- IDM_IMGARTREWIND = 2276;
- IDM_IMGARTSTOP = 2275;
- IDM_IMPORT = 86;
- IDM_INCFONTSIZE = 2242;
- IDM_INCFONTSIZE1PT = 2244;
- IDM_INDENT = 2186;
- IDM_INSERTOBJECT = 25;
- IDM_INSFIELDSET = 2119;
- IDM_INSINPUTBUTTON = 2115;
- IDM_INSINPUTHIDDEN = 2312;
- IDM_INSINPUTIMAGE = 2114;
- IDM_INSINPUTPASSWORD = 2313;
- IDM_INSINPUTRESET = 2116;
- IDM_INSINPUTSUBMIT = 2117;
- IDM_INSINPUTUPLOAD = 2118;
- IDM_ITALIC = 56;
- IDM_JAVAAPPLET = 2175;
- IDM_JUSTIFYCENTER = 57;
- IDM_JUSTIFYFULL = 50;
- IDM_JUSTIFYGENERAL = 58;
- IDM_JUSTIFYLEFT = 59;
- IDM_JUSTIFYRIGHT = 60;
- IDM_LANGUAGE = 2292;
- IDM_LAUNCHDEBUGGER = 2310;
- IDM_LEFTALIGNPARA = 2251;
- IDM_LINEBREAKBOTH = 2154;
- IDM_LINEBREAKLEFT = 2152;
- IDM_LINEBREAKNORMAL = 2151;
- IDM_LINEBREAKRIGHT = 2153;
- IDM_LIST = 2183;
- IDM_LISTBOX = 2166;
- IDM_MARQUEE = 2182;
- IDM_MENUEXT_COUNT = 3733;
- IDM_MENUEXT_FIRST__ = 3700;
- IDM_MENUEXT_LAST__ = 3732;
- IDM_MIMECSET__FIRST__ = 3609;
- IDM_MIMECSET__LAST__ = 3640;
- IDM_MOVE = 88;
- IDM_MULTILEVELREDO = 30;
- IDM_MULTILEVELUNDO = 44;
- IDM_NEW = 2001;
- IDM_NEWPAGE = 87;
- IDM_NOACTIVATEDESIGNTIMECONTROLS = 2333;
- IDM_NOACTIVATEJAVAAPPLETS = 2334;
- IDM_NOACTIVATENORMALOLECONTROLS = 2332;
- IDM_NONBREAK = 2155;
- IDM_OBJECT = 2169;
- IDM_OBJECTVERBLIST0 = 72;
- IDM_OBJECTVERBLIST1 = 73;
- IDM_OBJECTVERBLIST2 = 74;
- IDM_OBJECTVERBLIST3 = 75;
- IDM_OBJECTVERBLIST4 = 76;
- IDM_OBJECTVERBLIST5 = 77;
- IDM_OBJECTVERBLIST6 = 78;
- IDM_OBJECTVERBLIST7 = 79;
- IDM_OBJECTVERBLIST8 = 80;
- IDM_OBJECTVERBLIST9 = 81;
- IDM_OPEN = 2000;
- IDM_OPENINNEWWINDOW = 2137;
- IDM_OPENLINK = 2136;
- IDM_OPTIONS = 2135;
- IDM_ORDERLIST = 2184;
- IDM_OUTDENT = 2187;
- IDM_OVERWRITE = 2314;
- IDM_PAGE = 2267;
- IDM_PAGEBREAK = 2177;
- IDM_PAGEINFO = 2231;
- IDM_PAGESETUP = 2004;
- IDM_PARAGRAPH = 2180;
- IDM_PARSECOMPLETE = 2315;
- IDM_PASTE = 26;
- IDM_PASTEFORMAT = 2238;
- IDM_PASTEINSERT = 2120;
- IDM_PASTESPECIAL = 2006;
- IDM_PERSISTSTREAMSYNC = 2341;
- IDM_PLUGIN = 2176;
- IDM_PREFORMATTED = 2188;
- IDM_PRESTOP = 2284;
- IDM_PRINT = 27;
- IDM_PRINTPREVIEW = 2003;
- IDM_PRINTQUERYJOBSPENDING = 2277;
- IDM_PRINTTARGET = 2273;
- IDM_PROPERTIES = 28;
- IDM_RADIOBUTTON = 2164;
- IDM_RAISED = 61;
- IDM_RCINSERT = 2201;
- IDM_REDO = 29;
- IDM_REFRESH = 2300;
- IDM_REGISTRYREFRESH = 2317;
- IDM_REMOVEFORMAT = 2230;
- IDM_REMOVEPARAFORMAT = 2253;
- IDM_RENAME = 85;
- IDM_REPLACE = 2121;
- IDM_RIGHTALIGNPARA = 2252;
- IDM_ROWINSERT = 2212;
- IDM_ROWSELECT = 2207;
- IDM_SAVE = 70;
- IDM_SAVEAS = 71;
- IDM_SAVEBACKGROUND = 2263;
- IDM_SAVECOPYAS = 2002;
- IDM_SAVEPICTURE = 2270;
- IDM_SAVETARGET = 2268;
- IDM_SCRIPT = 2174;
- IDM_SCRIPTDEBUGGER = 2330;
- IDM_SELECTALL = 31;
- IDM_SENDBACKWARD = 32;
- IDM_SENDTOBACK = 33;
- IDM_SETASBACKGROUND = 2264;
- IDM_SETASDESKTOPITEM = 2278;
- IDM_SETDIRTY = 2342;
- IDM_SETWALLPAPER = 2264;
- IDM_SHADOWED = 66;
- IDM_SHOWALIGNEDSITETAGS = 2321;
- IDM_SHOWALLTAGS = 2320;
- IDM_SHOWAREATAGS = 2325;
- IDM_SHOWCOMMENTTAGS = 2324;
- IDM_SHOWGRID = 69;
- IDM_SHOWHIDE_CODE = 2235;
- IDM_SHOWMISCTAGS = 2327;
- IDM_SHOWPICTURE = 2269;
- IDM_SHOWSCRIPTTAGS = 2322;
- IDM_SHOWSPECIALCHAR = 2249;
- IDM_SHOWSTYLETAGS = 2323;
- IDM_SHOWTABLE = 34;
- IDM_SHOWUNKNOWNTAGS = 2326;
- IDM_SHOWWBRTAGS = 2340;
- IDM_SHOWZEROBORDERATDESIGNTIME = 2328;
- IDM_SIZETOCONTROL = 35;
- IDM_SIZETOCONTROLHEIGHT = 36;
- IDM_SIZETOCONTROLWIDTH = 37;
- IDM_SIZETOFIT = 38;
- IDM_SIZETOGRID = 39;
- IDM_SNAPTOGRID = 40;
- IDM_SPECIALCHAR = 2156;
- IDM_SPELL = 2005;
- IDM_STATUSBAR = 2131;
- IDM_STOP = 2138;
- IDM_STOPDOWNLOAD = 2301;
- IDM_STRIKETHROUGH = 91;
- IDM_SUBSCRIPT = 2247;
- IDM_SUNKEN = 62;
- IDM_SUPERSCRIPT = 2248;
- IDM_TABLE = 2236;
- IDM_TABLEINSERT = 2200;
- IDM_TABLEPROPERTIES = 2210;
- IDM_TABLESELECT = 2209;
- IDM_TABORDER = 41;
- IDM_TELETYPE = 2232;
- IDM_TEXTAREA = 2162;
- IDM_TEXTBOX = 2161;
- IDM_TEXTONLY = 2133;
- IDM_TOOLBARS = 2130;
- IDM_TOOLBOX = 42;
- IDM_TRIED_CONSTRAIN = 12; //[in,VT_BOOL]
- IDM_TRIED_DELETECELLS = 21;
- IDM_TRIED_DELETECOLS = 17;
- IDM_TRIED_DELETEROWS = 16;
- IDM_TRIED_INSERTCELL = 20;
- IDM_TRIED_INSERTCOL = 15;
- IDM_TRIED_INSERTROW = 14;
- IDM_TRIED_INSERTTABLE = 22; //[in, VT_ARRAY]
- IDM_TRIED_IS_1D_ELEMENT = 0; //[out,VT_BOOL]
- IDM_TRIED_IS_2D_ELEMENT = 1; //[out,VT_BOOL]
- IDM_TRIED_LAST_CID = IDM_TRIED_INSERTTABLE; //WARNING WARNING WARNING!!! Don't forget to modify IDM_TRIED_LAST_CID
- IDM_TRIED_LOCK_ELEMENT = 5;
- IDM_TRIED_MAKE_ABSOLUTE = 4;
- IDM_TRIED_MERGECELLS = 18;
- IDM_TRIED_NUDGE_ELEMENT = 2; //[in,VT_BYREF VARIANT.byref=LPPOINT]
- IDM_TRIED_SEND_BACKWARD = 8;
- IDM_TRIED_SEND_BEHIND_1D = 10;
- IDM_TRIED_SEND_FORWARD = 9;
- IDM_TRIED_SEND_FRONT_1D = 11;
- IDM_TRIED_SEND_TO_BACK = 6;
- IDM_TRIED_SEND_TO_FRONT = 7;
- IDM_TRIED_SET_2D_DROP_MODE = 13; //[in,VT_BOOL]
- IDM_TRIED_SET_ALIGNMENT = 3; //[in,VT_BYREF VARIANT.byref=LPPOINT]
- IDM_TRIED_SPLITCELL = 19;
- IDM_UNBOOKMARK = 2128;
- IDM_UNDERLINE = 63;
- IDM_UNDO = 43;
- IDM_UNGROUP = 45;
- IDM_UNKNOWN = 0;
- IDM_UNLINK = 2125;
- IDM_UNORDERLIST = 2185;
- IDM_VERTSPACECONCATENATE = 46;
- IDM_VERTSPACEDECREASE = 47;
- IDM_VERTSPACEINCREASE = 48;
- IDM_VERTSPACEMAKEEQUAL = 49;
- IDM_VIEWSOURCE = 2139;
- IDM_ZOOMPERCENT = 50;
- IDM_ZOOMPOPUP = 2140;
- IE_PPREVIEWCLASS = 'Internet Explorer_TridentDlgFrame';
- InchToMetric = 25.4;
- INET_E_AUTHENTICATION_REQUIRED = -2146697207;
- INET_E_CANNOT_CONNECT = -2146697212;
- INET_E_CANNOT_INSTANTIATE_OBJECT = -2146697200;
- INET_E_CANNOT_LOAD_DATA = -2146697201;
- INET_E_CANNOT_LOCK_REQUEST = -2146697194;
- INET_E_CANNOT_REPLACE_SFP_FILE = -2146697448;
- INET_E_CODE_DOWNLOAD_DECLINED = -2146697960;
- INET_E_CONNECTION_TIMEOUT = -2146697205; //**
- INET_E_DATA_NOT_AVAILABLE = -2146697209;
- INET_E_DOWNLOAD_FAILURE = -2146697208;
- INET_E_INVALID_REQUEST = -2146697204;
- INET_E_INVALID_URL = -2146697214;
- INET_E_NO_SESSION = -2146697213;
- INET_E_NO_VALID_MEDIA = -2146697206;
- INET_E_OBJECT_NOT_FOUND = -2146697210;
- INET_E_REDIRECT_FAILED = -2146697196;
- INET_E_REDIRECT_TO_DIR = -2146697195;
- INET_E_RESOURCE_NOT_FOUND = -2146697211; //**
- INET_E_RESULT_DISPATCHED = -2146697704;
- INET_E_SECURITY_PROBLEM = -2146697202; //**
- INET_E_TERMINATED_BIND = -2146697192;
- INET_E_UNKNOWN_PROTOCOL = -2146697203;
- INET_E_USE_EXTEND_BINDING = -2146697193;
- INTERNET_OPTION_PER_CONNECTION_OPTION = 75;
- INTERNET_OPTION_REFRESH = 37;
- INTERNET_OPTION_SETTINGS_CHANGED = 39;
- INTERNET_PER_CONN_AUTOCONFIG_URL = 4;
- INTERNET_PER_CONN_AUTODISCOVERY_FLAGS = 5;
- INTERNET_PER_CONN_FLAGS = 1;
- INTERNET_PER_CONN_PROXY_BYPASS = 3;
- INTERNET_PER_CONN_PROXY_SERVER = 2;
- INTERNET_SCHEME_PARTIAL = -2;
- INTERNET_SCHEME_UNKNOWN = -1;
- INTERNET_SCHEME_DEFAULT = 0;
- INTERNET_SCHEME_FTP = 1;
- INTERNET_SCHEME_GOPHER = 2;
- INTERNET_SCHEME_HTTP = 3;
- INTERNET_SCHEME_HTTPS = 4;
- INTERNET_SCHEME_FILE = 5;
- INTERNET_SCHEME_NEWS = 6;
- INTERNET_SCHEME_MAILTO = 7;
- INTERNET_SCHEME_SOCKS = 8;
- INTERNET_SCHEME_JAVASCRIPT = 9;
- INTERNET_SCHEME_VBSCRIPT = 10;
- INTERNET_SCHEME_RES = 11;
- INTERNET_SCHEME_FIRST = INTERNET_SCHEME_FTP;
- INTERNET_SCHEME_LAST = INTERNET_SCHEME_MAILTO;
- INTERNET_SCHEME_ABOUT = 24;
- INTERNET_SCHEME_COOKIE = 25;
- INTERNET_SCHEME_CUSTOM_FIRST = INTERNET_SCHEME_ABOUT;
- INTERNET_SCHEME_CUSTOM_LAST = INTERNET_SCHEME_COOKIE;
- INTERNET_STATE_CONNECTED = $1;
- INTERNET_STATE_DISCONNECTED_BY_USER = $10;
- INSTALL_SCOPE_INVALID = 0;
- INSTALL_SCOPE_MACHINE = 1;
- INSTALL_SCOPE_USER = 2;
- ISDigit = ['0'..'9', '-', '+'];
- ISO_FORCE_DISCONNECTED = $1;
- IURL_INVOKECOMMAND_FL_ALLOW_UI = $0001;
- IURL_INVOKECOMMAND_FL_DDEWAIT = $0004; // pass DDEWAIT to ShellExec
- IURL_INVOKECOMMAND_FL_USE_DEFAULT_VERB = $0002; // Ignore pcszVerb
- IURL_SETURL_FL_GUESS_PROTOCOL = $0001; // Guess protocol if missing
- IURL_SETURL_FL_USE_DEFAULT_PROTOCOL = $0002; // Use default protocol if missing
- MIMEASSOCDLG_FL_REGISTER_ASSOC = $0001;
- MinsPerHour = 60;
- MOUSE_XBUTTONNEXT = $20000;
- MOUSE_XBUTTONPREV = $10000;
- MSecsPerSec = 1000;
- navAllowAutosearch = $00000010;
- navBrowserBar = $00000020;
- navNoHistory = $00000002;
- navNoReadFromCache = $00000004;
- navNoWriteToCache = $00000008;
- navOpenInNewWindow = $00000001;
- NO_COMMAND = 0;
- PathDelim = {$IFDEF MSWINDOWS} '\'; {$ELSE} '/'; {$ENDIF}
- PROXY_TYPE_AUTO_DETECT = $00000008;
- PROXY_TYPE_AUTO_PROXY_URL = $00000004;
- PROXY_TYPE_DIRECT = $00000001;
- PROXY_TYPE_PROXY = $00000002;
- QUERY_EXPIRATION_DATE = 1;
- QUERY_TIME_OF_LAST_CHANGE = 2;
- QUERY_CONTENT_ENCODING = 3;
- QUERY_CONTENT_TYPE = 4;
- QUERY_REFRESH = 5;
- QUERY_RECOMBINE = 6;
- QUERY_CAN_NAVIGATE = 7;
- QUERY_USES_NETWORK = 8;
- QUERY_IS_CACHED = 9;
- QUERY_IS_INSTALLEDENTRY = 10;
- QUERY_IS_CACHED_OR_MAPPED = 11;
- QUERY_USES_CACHE = 12;
- QUERY_IS_SECURE = 13;
- QUERY_IS_SAFE = 14;
- QUERY_USES_HISTORYFOLDER = 15;
- QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv';
- READYSTATE_COMPLETE = $00000004;
- READYSTATE_INTERACTIVE = $00000003;
- READYSTATE_LOADED = $00000002;
- READYSTATE_LOADING = $00000001;
- READYSTATE_UNINITIALIZED = $00000000;
- RegMail = 'Software\Microsoft\Windows\CurrentVersion\UnreadMail\';
- SecsPerMin = 60;
- SHACF_AUTOAPPEND_FORCE_OFF = $80000000; // Ignore the registry default and force the feature off. (Also know as AutoComplete)
- SHACF_AUTOAPPEND_FORCE_ON = $40000000; // Ignore the registry default and force the feature on. (Also know as AutoComplete)
- SHACF_AUTOSUGGEST_FORCE_OFF = $20000000; // Ignore the registry default and force the feature off.
- SHACF_AUTOSUGGEST_FORCE_ON = $10000000; // Ignore the registry default and force the feature on.
- SHACF_DEFAULT = $00000000; // Currently (SHACF_FILESYSTEM | SHACF_URLALL)
- SHACF_FILESYSTEM = $00000001; // This includes the File System as well as the rest of the shell (Desktop\My Computer\Control Panel\)
- SHACF_URLHISTORY = $00000002; // URLs in the User's History
- SHACF_URLMRU = $00000004; // URLs in the User's Recently Used list.
- SHACF_USETAB = $00000008;
- SHACF_URLALL = (SHACF_URLHISTORY + SHACF_URLMRU);
- SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer';
- Shell32 = 'shell32.dll';
- SHFreeShared_Index = 523;
- SHLockShared_Index = 521;
- SHUnlockShared_Index = 522;
- SITE_ADDRESS = 'http://bsalsa.com/';
- STATURL_QUERYFLAG_ISCACHED = $00010000;
- STATURL_QUERYFLAG_NOTITLE = $00040000;
- STATURL_QUERYFLAG_NOURL = $00020000;
- STATURL_QUERYFLAG_TOPLEVEL = $00080000;
- STATURLFLAG_ISCACHED = $00000001;
- STATURLFLAG_ISTOPLEVEL = $00000002;
- TLEF_ABSOLUTE = $00000031;
- TLEF_INCLUDE_UNINVOKEABLE = $00000040;
- TLEF_RELATIVE_BACK = $00000010;
- TLEF_RELATIVE_FORE = $00000020;
- TLEF_RELATIVE_INCLUDE_CURRENT = $00000001;
- TRANSLATEURL_FL_GUESS_PROTOCOL = $0001; // Guess protocol if missing
- TRANSLATEURL_FL_USE_DEFAULT_PROTOCOL = $0002; // Use default protocol if missing
- UNKNOWN_RESPOND = 262632;
- URLACTION_CLIENT_CERT_PROMPT = $00001A04;
- URLACTION_COOKIES = $00001A02;
- URLACTION_COOKIES_SESSION = $00001A03;
- URLACTION_CROSS_DOMAIN_DATA = $00001406;
- URLACTION_HTML_SUBFRAME_NAVIGATE = $00001607;
- URLACTION_HTML_USERDATA_SAVE = $00001606;
- URLACTION_SCRIPT_PASTE = $00001407;
- URLASSOCDLG_FL_REGISTER_ASSOC = $0002;
- URLASSOCDLG_FL_USE_DEFAULT_NAME = $0001;
- urldll = 'url.dll';
- UrlMonLib = 'URLMON.DLL';
- URL_MK_LEGACY = 0;
- URL_MK_UNIFORM = 1;
- URL_MK_NO_CANONICALIZE = 2;
- URLPOLICY_ACTIVEX_CHECK_LIST = $00010000;
- URLTEMPLATE_MEDLOW = $10500;
- USER_AGENT_IE6 = 'User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)';
- USER_AGENT_IE7 = 'User-agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
- USER_AGENT_PATH = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform';
- VER_GREATER_EQUAL = 3;
- VER_MAJORVERSION = $0000002;
- VER_MINORVERSION = $0000001;
- VER_SERVICEPACKMAJOR = $0000020;
- VER_SERVICEPACKMINOR = $0000010;
- VIEW_COMMAND = 1;
- WEB_SITE = 'Help & Support: http://www.bsalsa.com/';
- WM_USER = $0400;
- WM_USER_STARTWALKING = WM_USER + 1;
- WM_XBUTTONDBLCLK = $020D;
- WM_XBUTTONDOWN = $020B;
- WM_XBUTTONUP = $020C;
-
-const
- MinsPerDay = HoursPerDay * MinsPerHour;
- SecsPerDay = MinsPerDay * SecsPerMin;
- MSecsPerDay = SecsPerDay * MSecsPerSec;
-
-const
- INTERNET_CONNECTION_MODEM = 1;
-{$EXTERNALSYM INTERNET_CONNECTION_MODEM}
- INTERNET_CONNECTION_LAN = 2;
-{$EXTERNALSYM INTERNET_CONNECTION_LAN}
- INTERNET_CONNECTION_PROXY = 4;
-{$EXTERNALSYM INTERNET_CONNECTION_PROXY}
- INTERNET_CONNECTION_MODEM_BUSY = 8;
-{$EXTERNALSYM INTERNET_CONNECTION_MODEM_BUSY}
- INTERNET_RAS_INSTALLED = 16;
-{$EXTERNALSYM INTERNET_RAS_INSTALLED}
- INTERNET_CONNECTION_OFFLINE = 32;
-{$EXTERNALSYM INTERNET_CONNECTION_OFFLINE}
- INTERNET_CONNECTION_CONFIGURED = 64;
-{$EXTERNALSYM INTERNET_CONNECTION_CONFIGURED}
-
-{$EXTERNALSYM MAX_SIZE_SECURITY_ID}
- MAX_SIZE_SECURITY_ID = 512;
-{$EXTERNALSYM PUAF_DEFAULT}
- PUAF_DEFAULT = $00000000;
-{$EXTERNALSYM PUAF_NOUI}
- PUAF_NOUI = $00000001;
-{$EXTERNALSYM PUAF_ISFILE}
- PUAF_ISFILE = $00000002;
-{$EXTERNALSYM PUAF_WARN_IF_DENIED}
- PUAF_WARN_IF_DENIED = $00000004;
-{$EXTERNALSYM PUAF_FORCEUI_FOREGROUND}
- PUAF_FORCEUI_FOREGROUND = $00000008;
-{$EXTERNALSYM PUAF_CHECK_TIFS}
- PUAF_CHECK_TIFS = $00000010;
-{$EXTERNALSYM SZM_CREATE}
- SZM_CREATE = $00000000;
-{$EXTERNALSYM SZM_DELETE}
- SZM_DELETE = $00000001;
-{$EXTERNALSYM URLACTION_MIN}
- URLACTION_MIN = $00001000;
-{$EXTERNALSYM URLACTION_DOWNLOAD_MIN}
- URLACTION_DOWNLOAD_MIN = $00001000;
-{$EXTERNALSYM URLACTION_DOWNLOAD_SIGNED_ACTIVEX}
- URLACTION_DOWNLOAD_SIGNED_ACTIVEX = $00001001;
-{$EXTERNALSYM URLACTION_DOWNLOAD_UNSIGNED_ACTIVEX}
- URLACTION_DOWNLOAD_UNSIGNED_ACTIVEX = $00001004;
-{$EXTERNALSYM URLACTION_DOWNLOAD_CURR_MAX}
- URLACTION_DOWNLOAD_CURR_MAX = $00001004;
-{$EXTERNALSYM URLACTION_DOWNLOAD_MAX}
- URLACTION_DOWNLOAD_MAX = $000011FF;
-{$EXTERNALSYM URLACTION_ACTIVEX_MIN}
- URLACTION_ACTIVEX_MIN = $00001200;
-{$EXTERNALSYM URLACTION_ACTIVEX_RUN}
- URLACTION_ACTIVEX_RUN = $00001200;
-{$EXTERNALSYM URLACTION_ACTIVEX_OVERRIDE_OBJECT_SAFETY}
- URLACTION_ACTIVEX_OVERRIDE_OBJECT_SAFETY = $00001201;
-{$EXTERNALSYM URLACTION_ACTIVEX_OVERRIDE_DATA_SAFETY}
- URLACTION_ACTIVEX_OVERRIDE_DATA_SAFETY = $00001202;
-{$EXTERNALSYM URLACTION_ACTIVEX_OVERRIDE_SCRIPT_SAFETY}
- URLACTION_ACTIVEX_OVERRIDE_SCRIPT_SAFETY = $00001203;
-{$EXTERNALSYM URLACTION_SCRIPT_OVERRIDE_SAFETY}
- URLACTION_SCRIPT_OVERRIDE_SAFETY = $00001401; //
-{$EXTERNALSYM URLACTION_ACTIVEX_CONFIRM_NOOBJECTSAFETY}
- URLACTION_ACTIVEX_CONFIRM_NOOBJECTSAFETY = $00001204;
-{$EXTERNALSYM URLACTION_ACTIVEX_TREATASUNTRUSTED}
- URLACTION_ACTIVEX_TREATASUNTRUSTED = $00001205;
-{$EXTERNALSYM URLACTION_ACTIVEX_CURR_MAX}
- URLACTION_ACTIVEX_CURR_MAX = $00001205;
-{$EXTERNALSYM URLACTION_ACTIVEX_MAX}
- URLACTION_ACTIVEX_MAX = $000013FF;
-{$EXTERNALSYM URLACTION_SCRIPT_MIN}
- URLACTION_SCRIPT_MIN = $00001400;
-{$EXTERNALSYM URLACTION_SCRIPT_RUN}
- URLACTION_SCRIPT_RUN = $00001400;
-{$EXTERNALSYM URLACTION_SCRIPT_JAVA_USE}
- URLACTION_SCRIPT_JAVA_USE = $00001402;
-{$EXTERNALSYM URLACTION_SCRIPT_SAFE_ACTIVEX}
- URLACTION_SCRIPT_SAFE_ACTIVEX = $00001405;
-{$EXTERNALSYM URLACTION_SCRIPT_CURR_MAX}
- URLACTION_SCRIPT_CURR_MAX = $00001405;
-{$EXTERNALSYM URLACTION_SCRIPT_MAX}
- URLACTION_SCRIPT_MAX = $000015FF;
-{$EXTERNALSYM URLACTION_HTML_MIN}
- URLACTION_HTML_MIN = $00001600;
-{$EXTERNALSYM URLACTION_HTML_SUBMIT_FORMS}
- URLACTION_HTML_SUBMIT_FORMS = $00001601; // aggregate next two
-{$EXTERNALSYM URLACTION_HTML_SUBMIT_FORMS_FROM}
- URLACTION_HTML_SUBMIT_FORMS_FROM = $00001602; //
-{$EXTERNALSYM URLACTION_HTML_SUBMIT_FORMS_TO}
- URLACTION_HTML_SUBMIT_FORMS_TO = $00001603; //
-{$EXTERNALSYM URLACTION_HTML_FONT_DOWNLOAD}
- URLACTION_HTML_FONT_DOWNLOAD = $00001604;
-{$EXTERNALSYM URLACTION_HTML_JAVA_RUN}
- URLACTION_HTML_JAVA_RUN = $00001605; // derive from Java custom policy;
-{$EXTERNALSYM URLACTION_HTML_CURR_MAX}
- URLACTION_HTML_CURR_MAX = $00001605;
-{$EXTERNALSYM URLACTION_HTML_MAX}
- URLACTION_HTML_MAX = $000017FF;
-{$EXTERNALSYM URLACTION_SHELL_MIN}
- URLACTION_SHELL_MIN = $00001800;
-{$EXTERNALSYM URLACTION_SHELL_INSTALL_DTITEMS}
- URLACTION_SHELL_INSTALL_DTITEMS = $00001800;
-{$EXTERNALSYM URLACTION_SHELL_MOVE_OR_COPY}
- URLACTION_SHELL_MOVE_OR_COPY = $00001802;
-{$EXTERNALSYM URLACTION_SHELL_FILE_DOWNLOAD}
- URLACTION_SHELL_FILE_DOWNLOAD = $00001803;
-{$EXTERNALSYM URLACTION_SHELL_VERB}
- URLACTION_SHELL_VERB = $00001804;
-{$EXTERNALSYM URLACTION_SHELL_WEBVIEW_VERB}
- URLACTION_SHELL_WEBVIEW_VERB = $00001805;
-{$EXTERNALSYM URLACTION_SHELL_CURR_MAX}
- URLACTION_SHELL_CURR_MAX = $00001805;
-{$EXTERNALSYM URLACTION_SHELL_MAX}
- URLACTION_SHELL_MAX = $000019FF;
-{$EXTERNALSYM URLACTION_NETWORK_MIN}
- URLACTION_NETWORK_MIN = $00001A00;
-{$EXTERNALSYM URLACTION_CREDENTIALS_USE}
- URLACTION_CREDENTIALS_USE = $00001A00;
-{$EXTERNALSYM URLPOLICY_CREDENTIALS_SILENT_LOGON_OK}
- URLPOLICY_CREDENTIALS_SILENT_LOGON_OK = $00000000;
-{$EXTERNALSYM URLPOLICY_CREDENTIALS_MUST_PROMPT_USER}
- URLPOLICY_CREDENTIALS_MUST_PROMPT_USER = $00010000;
-{$EXTERNALSYM URLPOLICY_CREDENTIALS_CONDITIONAL_PROMPT}
- URLPOLICY_CREDENTIALS_CONDITIONAL_PROMPT = $00020000;
-{$EXTERNALSYM URLPOLICY_CREDENTIALS_ANONYMOUS_ONLY}
- URLPOLICY_CREDENTIALS_ANONYMOUS_ONLY = $00030000;
-{$EXTERNALSYM URLACTION_AUTHENTICATE_CLIENT}
- URLACTION_AUTHENTICATE_CLIENT = $00001A01;
-{$EXTERNALSYM URLPOLICY_AUTHENTICATE_CLEARTEXT_OK}
- URLPOLICY_AUTHENTICATE_CLEARTEXT_OK = $00000000;
-{$EXTERNALSYM URLPOLICY_AUTHENTICATE_CHALLENGE_RESPONSE}
- URLPOLICY_AUTHENTICATE_CHALLENGE_RESPONSE = $00010000;
-{$EXTERNALSYM URLPOLICY_AUTHENTICATE_MUTUAL_ONLY}
- URLPOLICY_AUTHENTICATE_MUTUAL_ONLY = $00030000;
-{$EXTERNALSYM URLACTION_NETWORK_CURR_MAX}
- URLACTION_NETWORK_CURR_MAX = $00001A01;
-{$EXTERNALSYM URLACTION_NETWORK_MAX}
- URLACTION_NETWORK_MAX = $00001BFF;
-{$EXTERNALSYM URLACTION_JAVA_MIN}
- URLACTION_JAVA_MIN = $00001C00;
-{$EXTERNALSYM URLACTION_JAVA_PERMISSIONS}
- URLACTION_JAVA_PERMISSIONS = $00001C00;
-{$EXTERNALSYM URLPOLICY_JAVA_PROHIBIT}
- URLPOLICY_JAVA_PROHIBIT = $00000000;
-{$EXTERNALSYM URLPOLICY_JAVA_HIGH}
- URLPOLICY_JAVA_HIGH = $00010000;
-{$EXTERNALSYM URLPOLICY_JAVA_MEDIUM}
- URLPOLICY_JAVA_MEDIUM = $00020000;
-{$EXTERNALSYM URLPOLICY_JAVA_LOW}
- URLPOLICY_JAVA_LOW = $00030000;
-{$EXTERNALSYM URLPOLICY_JAVA_CUSTOM}
- URLPOLICY_JAVA_CUSTOM = $00800000;
-{$EXTERNALSYM URLACTION_JAVA_CURR_MAX}
- URLACTION_JAVA_CURR_MAX = $00001C00;
-{$EXTERNALSYM URLACTION_JAVA_MAX}
- URLACTION_JAVA_MAX = $00001CFF;
-{$EXTERNALSYM URLACTION_INFODELIVERY_MIN}
- URLACTION_INFODELIVERY_MIN = $00001D00;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_ADDING_CHANNELS}
- URLACTION_INFODELIVERY_NO_ADDING_CHANNELS = $00001D00;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_EDITING_CHANNELS}
- URLACTION_INFODELIVERY_NO_EDITING_CHANNELS = $00001D01;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_REMOVING_CHANNELS}
- URLACTION_INFODELIVERY_NO_REMOVING_CHANNELS = $00001D02;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_ADDING_SUBSCRIPTIONS}
- URLACTION_INFODELIVERY_NO_ADDING_SUBSCRIPTIONS = $00001D03;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_EDITING_SUBSCRIPTIONS}
- URLACTION_INFODELIVERY_NO_EDITING_SUBSCRIPTIONS = $00001D04;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_REMOVING_SUBSCRIPTIONS}
- URLACTION_INFODELIVERY_NO_REMOVING_SUBSCRIPTIONS = $00001D05;
-{$EXTERNALSYM URLACTION_INFODELIVERY_NO_CHANNEL_LOGGING}
- URLACTION_INFODELIVERY_NO_CHANNEL_LOGGING = $00001D06;
-{$EXTERNALSYM URLACTION_INFODELIVERY_CURR_MAX}
- URLACTION_INFODELIVERY_CURR_MAX = $00001D06;
-{$EXTERNALSYM URLACTION_INFODELIVERY_MAX}
- URLACTION_INFODELIVERY_MAX = $00001DFF;
-{$EXTERNALSYM URLACTION_CHANNEL_SOFTDIST_MIN}
- URLACTION_CHANNEL_SOFTDIST_MIN = $00001E00;
-{$EXTERNALSYM URLACTION_CHANNEL_SOFTDIST_PERMISSIONS}
- URLACTION_CHANNEL_SOFTDIST_PERMISSIONS = $00001E05;
-{$EXTERNALSYM URLPOLICY_CHANNEL_SOFTDIST_PROHIBIT}
- URLPOLICY_CHANNEL_SOFTDIST_PROHIBIT = $00010000;
-{$EXTERNALSYM URLPOLICY_CHANNEL_SOFTDIST_PRECACHE}
- URLPOLICY_CHANNEL_SOFTDIST_PRECACHE = $00020000;
-{$EXTERNALSYM URLPOLICY_CHANNEL_SOFTDIST_AUTOINSTALL}
- URLPOLICY_CHANNEL_SOFTDIST_AUTOINSTALL = $00030000;
-{$EXTERNALSYM URLACTION_CHANNEL_SOFTDIST_MAX}
- URLACTION_CHANNEL_SOFTDIST_MAX = $00001EFF;
-{$EXTERNALSYM URLPOLICY_ALLOW}
- URLPOLICY_ALLOW = $00;
-{$EXTERNALSYM URLPOLICY_QUERY}
- URLPOLICY_QUERY = $01;
-{$EXTERNALSYM URLPOLICY_DISALLOW}
- URLPOLICY_DISALLOW = $03;
-{$EXTERNALSYM URLPOLICY_NOTIFY_ON_ALLOW}
- URLPOLICY_NOTIFY_ON_ALLOW = $10;
-{$EXTERNALSYM URLPOLICY_NOTIFY_ON_DISALLOW}
- URLPOLICY_NOTIFY_ON_DISALLOW = $20;
-{$EXTERNALSYM URLPOLICY_LOG_ON_ALLOW}
- URLPOLICY_LOG_ON_ALLOW = $40;
-{$EXTERNALSYM URLPOLICY_LOG_ON_DISALLOW}
- URLPOLICY_LOG_ON_DISALLOW = $80;
-{$EXTERNALSYM URLPOLICY_MASK_PERMISSIONS}
- URLPOLICY_MASK_PERMISSIONS = $0F;
-{$EXTERNALSYM URLZONE_PREDEFINED_MIN}
- URLZONE_PREDEFINED_MIN = 0;
-{$EXTERNALSYM URLZONE_LOCAL_MACHINE}
- URLZONE_LOCAL_MACHINE = 0;
-{$EXTERNALSYM URLZONE_INTRANET}
- URLZONE_INTRANET = URLZONE_LOCAL_MACHINE + 1;
-{$EXTERNALSYM URLZONE_TRUSTED}
- URLZONE_TRUSTED = URLZONE_INTRANET + 1;
-{$EXTERNALSYM URLZONE_INTERNET}
- URLZONE_INTERNET = URLZONE_TRUSTED + 1;
-{$EXTERNALSYM URLZONE_UNTRUSTED}
- URLZONE_UNTRUSTED = URLZONE_INTERNET + 1;
-{$EXTERNALSYM URLZONE_PREDEFINED_MAX}
- URLZONE_PREDEFINED_MAX = 999;
-{$EXTERNALSYM URLZONE_USER_MIN}
- URLZONE_USER_MIN = 1000;
-{$EXTERNALSYM URLZONE_USER_MAX}
- URLZONE_USER_MAX = 10000;
-{$EXTERNALSYM URLTEMPLATE_CUSTOM}
- URLTEMPLATE_CUSTOM = $00000000;
-{$EXTERNALSYM URLTEMPLATE_PREDEFINED_MIN}
- URLTEMPLATE_PREDEFINED_MIN = $00010000;
-{$EXTERNALSYM URLTEMPLATE_LOW}
- URLTEMPLATE_LOW = $00010000;
-{$EXTERNALSYM URLTEMPLATE_MEDIUM}
- URLTEMPLATE_MEDIUM = $00011000;
-{$EXTERNALSYM URLTEMPLATE_HIGH}
- URLTEMPLATE_HIGH = $00012000;
-{$EXTERNALSYM URLTEMPLATE_PREDEFINED_MAX}
- URLTEMPLATE_PREDEFINED_MAX = $00020000;
-{$EXTERNALSYM MAX_ZONE_PATH}
- MAX_ZONE_PATH = 260;
-{$EXTERNALSYM MAX_ZONE_DESCRIPTION}
- MAX_ZONE_DESCRIPTION = 200;
-{$EXTERNALSYM ZAFLAGS_CUSTOM_EDIT}
- ZAFLAGS_CUSTOM_EDIT = $00000001;
-{$EXTERNALSYM ZAFLAGS_ADD_SITES}
- ZAFLAGS_ADD_SITES = $00000002;
-{$EXTERNALSYM ZAFLAGS_REQUIRE_VERIFICATION}
- ZAFLAGS_REQUIRE_VERIFICATION = $00000004;
-{$EXTERNALSYM ZAFLAGS_INCLUDE_PROXY_OVERRIDE}
- ZAFLAGS_INCLUDE_PROXY_OVERRIDE = $00000008;
-{$EXTERNALSYM ZAFLAGS_INCLUDE_INTRANET_SITES}
- ZAFLAGS_INCLUDE_INTRANET_SITES = $00000010;
-{$EXTERNALSYM ZAFLAGS_NO_UI}
- ZAFLAGS_NO_UI = $00000020;
-{$EXTERNALSYM ZAFLAGS_SUPPORTS_VERIFICATION}
- ZAFLAGS_SUPPORTS_VERIFICATION = $00000040;
-{$EXTERNALSYM ZAFLAGS_UNC_AS_INTRANET}
- ZAFLAGS_UNC_AS_INTRANET = $00000080;
-{$EXTERNALSYM URLZONEREG_DEFAULT}
- URLZONEREG_DEFAULT = 0;
-{$EXTERNALSYM URLZONEREG_HKLM}
- URLZONEREG_HKLM = URLZONEREG_DEFAULT + 1;
-{$EXTERNALSYM URLZONEREG_HKCU}
- URLZONEREG_HKCU = URLZONEREG_HKLM + 1;
-
-const
- IID_IWebBrowserEventsService: TGUID = '{87CC5D04-EAFA-4833-9820-8F986530CC00}';
- IID_ITravelLogEntry: TGUID = '{7EBFDD87-AD18-11d3-A4C5-00C04F72D6B8}';
- IID_IEnumTravelLogEntry: TGUID = '{7EBFDD85-AD18-11d3-A4C5-00C04F72D6B8}';
- IID_ITravelLogStg: TGUID = '{7EBFDD80-AD18-11d3-A4C5-00C04F72D6B8}';
- IID_IInputObjectSite: TGUID = (D1: $F1DB8392; D2: $7331; D3: $11D0; D4: ($8C,
- $99, $00, $A0, $C9, $2D, $BF, $E8));
- IID_IQueryInfo: TGUID = (D1: $00021500; D2: $0000; D3: $0000; D4: ($C0, $00,
- $00, $00, $00, $00, $00, $46));
- IID_IUniformResourceLocatorA: TGUID = (D1: $FBF23B80; D2: $E3F0; D3: $101B;
- D4: ($84, $88, $00, $AA, $00, $3E, $56, $F8));
- IID_IUniformResourceLocatorW: TGUID = (D1: $CABB0DA0; D2: $DA57; D3: $11CF;
- D4: ($99, $74, $00, $20, $AF, $D7, $97, $62));
- IID_IUrlHistoryNotify: TGUID = (D1: $BC40BEC1; D2: $C493; D3: $11D0; D4: ($83,
- $1B, $00, $C0, $4F, $D5, $AE, $38));
- IID_IUrlHistoryStg: TGUID = (D1: $3C374A41; D2: $BAE4; D3: $11CF; D4: ($BF,
- $7D, $00, $AA, $00, $69, $46, $EE));
- IID_IUrlHistoryStg2: TGUID = (D1: $AFA0DC11; D2: $C313; D3: $831A; D4: ($83,
- $1A, $00, $C0, $4F, $D5, $AE, $38));
- SID_IHTMLOMWindowServices = '{3050F5FC-98B5-11CF-BB82-00AA00BDCE0B}';
- CLSID_InternetShortCut: TGUID = (d1: $FBF23B40; D2: $E3F0; D3: $101B; D4:
- ($84, $88, $00, $AA, $00, $3E, $56, $F8));
- CGID_DocHostCommandHandler: TGUID = (D1: $F38BC242; D2: $B950; D3: $11D1; D4:
- ($89, $18, $00, $C0, $4F, $C2, $C8, $36));
- CLSID_CUrlHistory: TGUID = '{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
- CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
- CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
- CGID_MSHTML: TGUID = '{DE4BA900-59CA-11CF-9592-444553540000}';
- IID_IoleCommandTarget: TGUID = '{B722BCCB-4E68-101B-A2BC-00AA00404770}';
- GUID_TriEditCommandGroup: TGUID = '{2582F1C0-084E-11d1-9A0E-006097C9B344}';
- IID_IACList: TGUID = '{77A130B0-94FD-11D0-A544-00C04FD7d062}';
- IID_IACList2: TGUID = '{470141a0-5186-11d2-bbb6-0060977b464c}';
- IID_ICustomDoc: TGUID = '{3050f3f0-98b5-11cf-bb82-00aa00bdce0b}';
- IID_IDocHostShowUI: TGUID = '{c4d244b0-d43e-11cf-893b-00aa00bdce1a}';
- IID_IDocHostUIHandler: TGUID = '{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}';
- IID_IDocHostUIHandler2: TGUID = '{3050f6d0-98b5-11cf-bb82-00aa00bdce0b}';
- IID_IDownloadManager: TGUID = (D1: $988934A4; D2: $064B; D3: $11D3; D4: ($BB,
- $80, $0, $10, $4B, $35, $E7, $F9));
- IID_IEnumStatUrl: TGUID = (D1: $3C374A42; D2: $BAE4; D3: $11CF; D4: ($BF, $7D,
- $00, $AA, $00, $69, $46, $EE));
- IID_IHTMLOMWindowServices: TGUID = '{3050F5FC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHlinkFrame: TGUID = '{79eac9c5-baf9-11ce-8c82-00aa004ba90b}';
- IID_INewWindowManager: TGUID = '{D2BC4C84-3F72-4a52-A604-7BCBF3982CBB}';
- IID_IProtectFocus: TGUID = '{D81F90A3-8156-44F7-AD28-5ABB87003274}';
- SID_STravelLogCursor: TGUID = '{7EBFDD80-AD18-11d3-A4C5-00C04F72D6B8}';
- SID_IEnumStatUrl = '{3C374A42-BAE4-11CF-BF7D-00AA006946EE}';
- SID_IURLHistoryNotify = '{BC40BEC1-C493-11d0-831B-00C04FD5AE38}';
- SID_IUrlHistoryStg = '{3C374A41-BAE4-11CF-BF7D-00AA006946EE}';
- SID_IUrlHistoryStg2 = '{AFA0DC11-C313-11d0-831A-00C04FD5AE38}';
- SID_SDownloadManager = '{988934A4-064B-11D3-BB80-00104B35E7F9}';
- SID_IUniformResourceLocatorA = '{FBF23B80-E3F0-101B-8488-00AA003E56F8}';
- SID_IUniformResourceLocatorW = '{CABB0DA0-DA57-11CF-9974-0020AFD79762}';
-{$IFDEF UNICODE}
- SID_IUniformResourceLocator = SID_IUniformResourceLocatorW;
-{$ELSE}
- SID_IUniformResourceLocator = SID_IUniformResourceLocatorA;
-{$ENDIF}
- IID_IUniformResourceLocator: TGUID = SID_IUniformResourceLocator;
-
-implementation
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EWBMouseHook.pas b/windows/src/ext/embeddedwb/Source/EWBMouseHook.pas
deleted file mode 100644
index 35a14acee6fb78a7caa3f3d0763bc071c9674147..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EWBMouseHook.pas
+++ /dev/null
@@ -1,265 +0,0 @@
-//***********************************************************
-// EwbMouseHook unit *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// (smot) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbMouseHook;
-
-interface
-
-{$I EWB.inc}
-
-uses
- System.Types,
- Windows, Messages, Classes, Forms, Controls;
-
-// -- TEWBMouseHook ------------------------------------------------------------
-
-type
- TFNMouseProc = function(nCode: Integer; wp: WPARAM; lp: LParam): LRESULT
- stdcall;
- TFNMouseMethod = function(nCode: Integer; wp: WPARAM; lp: LParam): LRESULT
- stdcall of object;
- TMouseWheelEvent = procedure(Point: TPoint; hwndFromPoint: HWND; lp: LPARAM;
- var Handled: Boolean) of object;
-
-type
- TEWBMouseHook = class(TObject)
- private
- FMouseHook: HHOOK;
- FMouseHookProc: TFNMouseProc;
- FMouseHookMethod: TFNMouseMethod;
- function LocalMouseProc(nCode: Integer; wp: WPARAM; lp: LPARAM): LRESULT
- stdcall;
- public
- OnMouseWheel: TMouseWheelEvent;
- FActiveFormOnly: Boolean;
- class function NewInstance: TObject; override;
- procedure FreeInstance; override;
- constructor Create;
- destructor Destroy; override;
- procedure Activate;
- procedure Deactivate;
- end;
-
-var
- EWBEnableMouseWheelFix: Boolean = True; // DO NOT CHANGE HERE
-
-implementation
-
-uses
- EWBCoreTools;
-
-{$IFDEF DELPHI5}
-type
- TMethod = record
- Code, Data: Pointer;
- end;
-{$ENDIF}
-
-var
- GEWBMouseHook: TEWBMouseHook = nil;
- GRefCount: Integer = 0;
-
- // MakeStdcallCallback (thunk to use stdcall method as static callback)
-
-function MakeStdcallCallback(const Method: TMethod): Pointer;
-type
- PCallbackCode = ^TCallbackCode;
- TCallbackCode = packed record
- Ops1: array[0..2] of Longword;
- Val1: Pointer;
- Ops2: array[0..1] of Longword;
- Val2: Pointer;
- end;
-begin
- Result := VirtualAlloc(nil, $100, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
- if Assigned(Result) then
- try
- with PCallbackCode(Result)^ do
- begin
- Ops1[0] := $448B5050;
- Ops1[1] := $44890824;
- Ops1[2] := $058B0424;
- Val1 := Addr(Method.Data);
- Ops2[0] := $08244489;
- Ops2[1] := $25FF9058;
- Val2 := Addr(Method.Code);
- end;
- except
- VirtualFree(Result, 0, MEM_RELEASE);
- Result := nil;
- end;
-end;
-
-procedure FreeCallback(Callback: Pointer);
-begin
- if Assigned(Callback) then
- VirtualFree(Callback, 0, MEM_RELEASE);
-end;
-
-function TEWBMouseHook.LocalMouseProc(nCode: Integer; wp: WPARAM; lp: LPARAM):
- LRESULT stdcall;
-var
- bHandled, bCancel: Boolean;
- mhs: TMouseHookStruct;
- hwndCurrentFocus: HWND;
- P: TPoint;
- hwndFromPoint, hwndFocusShellEmbedding, hwndWFPShellEmbedding: HWND;
- WinControl: TWinControl;
- ParentForm: TCustomForm;
-// nState: SHORT;
-begin
- if nCode < 0 then
- Result := CallNextHookEx(FMouseHook, nCode, wp, LPARAM(lp))
- else
- begin
- bHandled := False;
- if (wp = WM_MOUSEWHEEL) and (nCode = HC_ACTION) then
- begin
- mhs := PMouseHookStruct(lp)^;
- P := Point(mhs.pt.X, mhs.pt.Y);
- hwndFromPoint := WindowFromPoint(P);
- // Handle OnMouseWheel
- bCancel := False;
- if Assigned(OnMouseWheel) then
- OnMouseWheel(P, hwndFromPoint, lp, bCancel);
- // Handle ActiveFormOnly
- if FActiveFormOnly then
- begin
- WinControl := FindVCLWindow(P);
- if Assigned(WinControl) then
- begin
- ParentForm := GetParentForm(WinControl);
- if Assigned(ParentForm) then
- bCancel := ParentForm <> Screen.ActiveForm;
- end;
- end;
-
- if not bCancel then
- if hwndFromPoint <> 0 then
- begin
- hwndCurrentFocus := GetFocus;
- if hwndCurrentFocus <> 0 then
- begin
- hwndWFPShellEmbedding := GetParentWinByClass(hwndFromPoint,
- 'Shell Embedding');
- if (hwndWFPShellEmbedding <> 0) then
- // Parent of WindowFromPoint is WB
- begin
- hwndFocusShellEmbedding :=
- GetParentWinByClass(hwndCurrentFocus,
- 'Shell Embedding');
- if (hwndWFPShellEmbedding <> hwndFocusShellEmbedding) or
- (GetWinClass(hwndCurrentFocus) =
- 'Shell DocObject View') then
- // Only handle if WB has not the focus or other WB has the focus
- begin
- // nState := GetKeyState(VK_CONTROL);
- // if (nState and $80000000) = $80000000 then
- begin
- bHandled := True;
- Windows.SetFocus(hwndFromPoint);
- end;
- end;
- end;
- end;
- end;
- end;
- if bHandled then
- Result := HC_SKIP
- else
- Result := CallNextHookEx(FMouseHook, nCode, wp, lp);
- end;
-end;
-
-class function TEWBMouseHook.NewInstance: TObject;
-begin
- if not Assigned(GEWBMouseHook) then
- begin
- GEWBMouseHook := TEWBMouseHook(inherited NewInstance);
- GEWBMouseHook.FActiveFormOnly := False;
- end;
- Result := GEWBMouseHook;
- Inc(GRefCount);
-end;
-
-procedure TEWBMouseHook.FreeInstance;
-begin
- Dec(GRefCount);
- if GRefCount = 0 then
- begin
- GEWBMouseHook := nil;
- inherited FreeInstance;
- end;
-end;
-
-procedure TEWBMouseHook.Activate;
-begin
- if (FMouseHook = 0) and EWBEnableMouseWheelFix then
- begin
- FMouseHookMethod := LocalMouseProc;
- FMouseHookProc :=
- TFNMouseProc(MakeStdcallCallback(TMethod(FMouseHookMethod)));
- FMouseHook := SetWindowsHookEx(WH_MOUSE, TFNHookProc(FMouseHookProc), 0,
- GetCurrentThreadID);
- end;
-end;
-
-procedure TEWBMouseHook.Deactivate;
-begin
- if FMouseHook <> 0 then
- begin
- if UnhookWindowsHookEx(FMouseHook) then
- FMouseHook := 0;
- end;
- if Assigned(FMouseHookProc) then
- begin
- FreeCallback(Addr(FMouseHookProc));
- FMouseHookProc := nil;
- end;
-end;
-
-constructor TEWBMouseHook.Create;
-begin
- inherited;
- // if (GRefCount = 1) then
-end;
-
-destructor TEWBMouseHook.Destroy;
-begin
- inherited;
- // if ((GRefCount <= 1)) then
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EWB_jedi.inc b/windows/src/ext/embeddedwb/Source/EWB_jedi.inc
deleted file mode 100644
index 4e6114b5b2cc294d3579b955bb9ec809121ad5ab..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EWB_jedi.inc
+++ /dev/null
@@ -1,1335 +0,0 @@
-{$IFNDEF JEDI_INC}
-{$DEFINE JEDI_INC}
-
-{**************************************************************************************************}
-{ }
-{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License");}
-{ you may not use this file except in compliance with the License. You may obtain a copy of the }
-{ License at http://www.mozilla.org/MPL/ }
-{ }
-{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF }
-{ ANY KIND, either express or implied. See the License for the specific language governing rights }
-{ and limitations under the License. }
-{ }
-{ The Original Code is: jedi.inc. }
-{ The Initial Developer of the Original Code is Project JEDI http://www.delphi-jedi.org }
-{ }
-{ Alternatively, the contents of this file may be used under the terms of the GNU Lesser General }
-{ Public License (the "LGPL License"), in which case the provisions of the LGPL License are }
-{ applicable instead of those above. If you wish to allow use of your version of this file only }
-{ under the terms of the LGPL License and not to allow others to use your version of this file }
-{ under the MPL, indicate your decision by deleting the provisions above and replace them with }
-{ the notice and other provisions required by the LGPL License. If you do not delete the }
-{ provisions above, a recipient may use your version of this file under either the MPL or the }
-{ LGPL License. }
-{ }
-{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
-{ }
-{**************************************************************************************************}
-{ }
-{ This file defines various generic compiler directives used in different libraries, e.g. in the }
-{ JEDI Code Library (JCL) and JEDI Visual Component Library Library (JVCL). The directives in }
-{ this file are of generic nature and consist mostly of mappings from the VERXXX directives }
-{ defined by Delphi, C++Builder and FPC to friendly names such as DELPHI5 and }
-{ SUPPORTS_WIDESTRING. These friendly names are subsequently used in the libraries to test for }
-{ compiler versions and/or whether the compiler supports certain features (such as widestrings or }
-{ 64 bit integers. The libraries provide an additional, library specific, include file. For the }
-{ JCL e.g. this is jcl.inc. These files should be included in source files instead of this file }
-{ (which is pulled in automatically). }
-{ }
-{**************************************************************************************************}
-{ }
-{ Last modified: $Date:: $ }
-{ Revision: $Rev:: $ }
-{ Author: $Author:: $ }
-{ }
-{**************************************************************************************************}
-
-(*
-
-- Development environment directives
-
- This file defines two directives to indicate which development environment the
- library is being compiled with. Currently this can either be Delphi, Kylix,
- C++Builder or FPC.
-
- Directive Description
- ------------------------------------------------------------------------------
- DELPHI Defined if compiled with Delphi
- KYLIX Defined if compiled with Kylix
- DELPHICOMPILER Defined if compiled with Delphi or Kylix/Delphi
- BCB Defined if compiled with C++Builder
- CPPBUILDER Defined if compiled with C++Builder (alias for BCB)
- BCBCOMPILER Defined if compiled with C++Builder or Kylix/C++
- DELPHILANGUAGE Defined if compiled with Delphi, Kylix or C++Builder
- BORLAND Defined if compiled with Delphi, Kylix or C++Builder
- FPC Defined if compiled with FPC
-
-- Platform Directives
-
- Platform directives are not all explicitly defined in this file, some are
- defined by the compiler itself. They are listed here only for completeness.
-
- Directive Description
- ------------------------------------------------------------------------------
- WIN32 Defined when target platform is 32 bit Windows
- WIN64 Defined when target platform is 64 bit Windows
- MSWINDOWS Defined when target platform is 32 bit Windows
- LINUX Defined when target platform is Linux
- UNIX Defined when target platform is Unix-like (including Linux)
- CLR Defined when target platform is .NET
-
-- Architecture directives. These are auto-defined by FPC
- CPU32 and CPU64 are mostly for generic pointer size dependant differences rather
- than for a specific architecture.
-
- CPU386 Defined when target platform is native x86 (win32)
- CPUx86_64 Defined when target platform is native x86_64 (win64)
- CPU32 Defined when target is 32-bit
- CPU64 Defined when target is 64-bit
- CPUASM Defined when target assembler is available
-
-- Visual library Directives
-
- The following directives indicate for a visual library. In a Delphi/BCB
- (Win32) application you need to define the VisualCLX symbol in the project
- options, if you want to use the VisualCLX library. Alternatively you can use
- the IDE expert, which is distributed with the JCL to do this automatically.
-
- Directive Description
- ------------------------------------------------------------------------------
- VCL Defined for Delphi/BCB (Win32) exactly if VisualCLX is not defined
- VisualCLX Defined for Kylix; needs to be defined for Delphi/BCB to
- use JCL with VisualCLX applications.
-
-
-- Other cross-platform related defines
-
- These symbols are intended to help in writing portable code.
-
- Directive Description
- ------------------------------------------------------------------------------
- PUREPASCAL Code is machine-independent (as opposed to assembler code)
- Win32API Code is specific for the Win32 API;
- use instead of "{$IFNDEF CLR} {$IFDEF MSWINDOWS}" constructs
-
-
-- Delphi Versions
-
- The following directives are direct mappings from the VERXXX directives to a
- friendly name of the associated compiler. These directives are only defined if
- the compiler is Delphi (ie DELPHI is defined).
-
- Directive Description
- ------------------------------------------------------------------------------
- DELPHI1 Defined when compiling with Delphi 1 (Codename WASABI/MANGO)
- DELPHI2 Defined when compiling with Delphi 2 (Codename POLARIS)
- DELPHI3 Defined when compiling with Delphi 3 (Codename IVORY)
- DELPHI4 Defined when compiling with Delphi 4 (Codename ALLEGRO)
- DELPHI5 Defined when compiling with Delphi 5 (Codename ARGUS)
- DELPHI6 Defined when compiling with Delphi 6 (Codename ILLIAD)
- DELPHI7 Defined when compiling with Delphi 7 (Codename AURORA)
- DELPHI8 Defined when compiling with Delphi 8 (Codename OCTANE)
- DELPHI2005 Defined when compiling with Delphi 2005 (Codename DIAMONDBACK)
- DELPHI9 Alias for DELPHI2005
- DELPHI10 Defined when compiling with Delphi 2006 (Codename DEXTER)
- DELPHI2006 Alias for DELPHI10
- DELPHI11 Defined when compiling with Delphi 2007 for Win32 (Codename SPACELY)
- DELPHI2007 Alias for DELPHI11
- DELPHI12 Defined when compiling with Delphi 2009 for Win32 (Codename TIBURON)
- DELPHI2009 Alias for DELPHI12
- DELPHI14 Defined when compiling with Delphi 2010 for Win32 (Codename WEAVER)
- DELPHI2010 Alias for DELPHI14
- DELPHI15 Defined when compiling with Delphi XE for Win32 (Codename FULCRUM)
- DELPHIXE Alias for DELPHI15
- DELPHI1_UP Defined when compiling with Delphi 1 or higher
- DELPHI2_UP Defined when compiling with Delphi 2 or higher
- DELPHI3_UP Defined when compiling with Delphi 3 or higher
- DELPHI4_UP Defined when compiling with Delphi 4 or higher
- DELPHI5_UP Defined when compiling with Delphi 5 or higher
- DELPHI6_UP Defined when compiling with Delphi 6 or higher
- DELPHI7_UP Defined when compiling with Delphi 7 or higher
- DELPHI8_UP Defined when compiling with Delphi 8 or higher
- DELPHI2005_UP Defined when compiling with Delphi 2005 or higher
- DELPHI9_UP Alias for DELPHI2005_UP
- DELPHI10_UP Defined when compiling with Delphi 2006 or higher
- DELPHI2006_UP Alias for DELPHI10_UP
- DELPHI11_UP Defined when compiling with Delphi 2007 for Win32 or higher
- DELPHI2007_UP Alias for DELPHI11_UP
- DELPHI12_UP Defined when compiling with Delphi 2009 for Win32 or higher
- DELPHI2009_UP Alias for DELPHI12_UP
- DELPHI14_UP Defined when compiling with Delphi 2010 for Win32 or higher
- DELPHI2010_UP Alias for DELPHI14_UP
- DELPHI15_UP Defined when compiling with Delphi XE for Win32 or higher
- DELPHIXE_UP Alias for DELPHI15_UP
-
-
-- Kylix Versions
-
- The following directives are direct mappings from the VERXXX directives to a
- friendly name of the associated compiler. These directives are only defined if
- the compiler is Kylix (ie KYLIX is defined).
-
- Directive Description
- ------------------------------------------------------------------------------
- KYLIX1 Defined when compiling with Kylix 1
- KYLIX2 Defined when compiling with Kylix 2
- KYLIX3 Defined when compiling with Kylix 3 (Codename CORTEZ)
- KYLIX1_UP Defined when compiling with Kylix 1 or higher
- KYLIX2_UP Defined when compiling with Kylix 2 or higher
- KYLIX3_UP Defined when compiling with Kylix 3 or higher
-
-
-- Delphi Compiler Versions (Delphi / Kylix, not in BCB mode)
-
- Directive Description
- ------------------------------------------------------------------------------
- DELPHICOMPILER1 Defined when compiling with Delphi 1
- DELPHICOMPILER2 Defined when compiling with Delphi 2
- DELPHICOMPILER3 Defined when compiling with Delphi 3
- DELPHICOMPILER4 Defined when compiling with Delphi 4
- DELPHICOMPILER5 Defined when compiling with Delphi 5
- DELPHICOMPILER6 Defined when compiling with Delphi 6 or Kylix 1, 2 or 3
- DELPHICOMPILER7 Defined when compiling with Delphi 7
- DELPHICOMPILER8 Defined when compiling with Delphi 8
- DELPHICOMPILER9 Defined when compiling with Delphi 2005
- DELPHICOMPILER10 Defined when compiling with Delphi Personality of BDS 4.0
- DELPHICOMPILER11 Defined when compiling with Delphi 2007 for Win32
- DELPHICOMPILER12 Defined when compiling with Delphi Personality of BDS 6.0
- DELPHICOMPILER14 Defined when compiling with Delphi Personality of BDS 7.0
- DELPHICOMPILER15 Defined when compiling with Delphi Personality of BDS 8.0
- DELPHICOMPILER1_UP Defined when compiling with Delphi 1 or higher
- DELPHICOMPILER2_UP Defined when compiling with Delphi 2 or higher
- DELPHICOMPILER3_UP Defined when compiling with Delphi 3 or higher
- DELPHICOMPILER4_UP Defined when compiling with Delphi 4 or higher
- DELPHICOMPILER5_UP Defined when compiling with Delphi 5 or higher
- DELPHICOMPILER6_UP Defined when compiling with Delphi 6 or Kylix 1, 2 or 3 or higher
- DELPHICOMPILER7_UP Defined when compiling with Delphi 7 or higher
- DELPHICOMPILER8_UP Defined when compiling with Delphi 8 or higher
- DELPHICOMPILER9_UP Defined when compiling with Delphi 2005
- DELPHICOMPILER10_UP Defined when compiling with Delphi 2006 or higher
- DELPHICOMPILER11_UP Defined when compiling with Delphi 2007 for Win32 or higher
- DELPHICOMPILER12_UP Defined when compiling with Delphi 2009 for Win32 or higher
- DELPHICOMPILER14_UP Defined when compiling with Delphi 2010 for Win32 or higher
- DELPHICOMPILER15_UP Defined when compiling with Delphi XE for Win32 or higher
-
-
-- C++Builder Versions
-
- The following directives are direct mappings from the VERXXX directives to a
- friendly name of the associated compiler. These directives are only defined if
- the compiler is C++Builder (ie BCB is defined).
-
- Directive Description
- ------------------------------------------------------------------------------
- BCB1 Defined when compiling with C++Builder 1
- BCB3 Defined when compiling with C++Builder 3
- BCB4 Defined when compiling with C++Builder 4
- BCB5 Defined when compiling with C++Builder 5 (Codename RAMPAGE)
- BCB6 Defined when compiling with C++Builder 6 (Codename RIPTIDE)
- BCB10 Defined when compiling with C++Builder Personality of BDS 4.0 (also known as C++Builder 2006) (Codename DEXTER)
- BCB11 Defined when compiling with C++Builder Personality of RAD Studio 2007 (also known as C++Builder 2007) (Codename COGSWELL)
- BCB12 Defined when compiling with C++Builder Personality of RAD Studio 2009 (also known as C++Builder 2009) (Codename TIBURON)
- BCB14 Defined when compiling with C++Builder Personality of RAD Studio 2010 (also known as C++Builder 2010) (Codename WEAVER)
- BCB1_UP Defined when compiling with C++Builder 1 or higher
- BCB3_UP Defined when compiling with C++Builder 3 or higher
- BCB4_UP Defined when compiling with C++Builder 4 or higher
- BCB5_UP Defined when compiling with C++Builder 5 or higher
- BCB6_UP Defined when compiling with C++Builder 6 or higher
- BCB10_UP Defined when compiling with C++Builder Personality of BDS 4.0 or higher
- BCB11_UP Defined when compiling with C++Builder Personality of RAD Studio 2007 or higher
- BCB12_UP Defined when compiling with C++Builder Personality of RAD Studio 2009 or higher
- BCB14_UP Defined when compiling with C++Builder Personality of RAD Studio 2010 or higher
- BCB15_UP Defined when compiling with C++Builder Personality of RAD Studio XE or higher
-
-
-- RAD Studio / Borland Developer Studio Versions
-
- The following directives are direct mappings from the VERXXX directives to a
- friendly name of the associated IDE. These directives are only defined if
- the IDE is Borland Developer Studio Version 2 or above.
-
- Note: Borland Developer Studio 2006 is marketed as Delphi 2006 or C++Builder 2006,
- but those provide only different labels for identical content.
-
- Directive Description
- ------------------------------------------------------------------------------
- BDS Defined when compiling with BDS version of dcc32.exe (Codename SIDEWINDER)
- BDS2 Defined when compiling with BDS 2.0 (Delphi 8) (Codename OCTANE)
- BDS3 Defined when compiling with BDS 3.0 (Delphi 2005) (Codename DIAMONDBACK)
- BDS4 Defined when compiling with BDS 4.0 (Borland Developer Studio 2006) (Codename DEXTER)
- BDS5 Defined when compiling with BDS 5.0 (CodeGear RAD Studio 2007) (Codename HIGHLANDER)
- BDS6 Defined when compiling with BDS 6.0 (CodeGear RAD Studio 2009) (Codename TIBURON)
- BDS7 Defined when compiling with BDS 7.0 (Embarcadero RAD Studio 2010) (Codename WEAVER)
- BDS8 Defined when compiling with BDS 8.0 (Embarcadero RAD Studio XE) (Codename FULCRUM)
- BDS2_UP Defined when compiling with BDS 2.0 or higher
- BDS3_UP Defined when compiling with BDS 3.0 or higher
- BDS4_UP Defined when compiling with BDS 4.0 or higher
- BDS5_UP Defined when compiling with BDS 5.0 or higher
- BDS6_UP Defined when compiling with BDS 6.0 or higher
- BDS7_UP Defined when compiling with BDS 7.0 or higher
- BDS8_UP Defined when compiling with BDS 8.0 or higher
-
-- Compiler Versions
-
- The following directives are direct mappings from the VERXXX directives to a
- friendly name of the associated compiler. Unlike the DELPHI_X and BCB_X
- directives, these directives are indepedent of the development environment.
- That is, they are defined regardless of whether compilation takes place using
- Delphi or C++Builder.
-
- Directive Description
- ------------------------------------------------------------------------------
- COMPILER1 Defined when compiling with Delphi 1
- COMPILER2 Defined when compiling with Delphi 2 or C++Builder 1
- COMPILER3 Defined when compiling with Delphi 3
- COMPILER35 Defined when compiling with C++Builder 3
- COMPILER4 Defined when compiling with Delphi 4 or C++Builder 4
- COMPILER5 Defined when compiling with Delphi 5 or C++Builder 5
- COMPILER6 Defined when compiling with Delphi 6 or C++Builder 6
- COMPILER7 Defined when compiling with Delphi 7
- COMPILER8 Defined when compiling with Delphi 8
- COMPILER9 Defined when compiling with Delphi 9
- COMPILER10 Defined when compiling with Delphi or C++Builder Personalities of BDS 4.0
- COMPILER11 Defined when compiling with Delphi or C++Builder Personalities of BDS 5.0
- COMPILER12 Defined when compiling with Delphi or C++Builder Personalities of BDS 6.0
- COMPILER14 Defined when compiling with Delphi or C++Builder Personalities of BDS 7.0
- COMPILER15 Defined when compiling with Delphi or C++Builder Personalities of BDS 8.0
- COMPILER1_UP Defined when compiling with Delphi 1 or higher
- COMPILER2_UP Defined when compiling with Delphi 2 or C++Builder 1 or higher
- COMPILER3_UP Defined when compiling with Delphi 3 or higher
- COMPILER35_UP Defined when compiling with C++Builder 3 or higher
- COMPILER4_UP Defined when compiling with Delphi 4 or C++Builder 4 or higher
- COMPILER5_UP Defined when compiling with Delphi 5 or C++Builder 5 or higher
- COMPILER6_UP Defined when compiling with Delphi 6 or C++Builder 6 or higher
- COMPILER7_UP Defined when compiling with Delphi 7
- COMPILER8_UP Defined when compiling with Delphi 8
- COMPILER9_UP Defined when compiling with Delphi Personalities of BDS 3.0
- COMPILER10_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 4.0 or higher
- COMPILER11_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 5.0 or higher
- COMPILER12_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 6.0 or higher
- COMPILER14_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 7.0 or higher
- COMPILER15_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 8.0 or higher
-
-
-- RTL Versions
-
- Use e.g. following to determine the exact RTL version since version 14.0:
- {$IFDEF CONDITIONALEXPRESSIONS}
- {$IF Declared(RTLVersion) and (RTLVersion >= 14.2)}
- // code for Delphi 6.02 or higher, Kylix 2 or higher, C++Builder 6 or higher
- ...
- {$IFEND}
- {$ENDIF}
-
- Directive Description
- ------------------------------------------------------------------------------
- RTL80_UP Defined when compiling with Delphi 1 or higher
- RTL90_UP Defined when compiling with Delphi 2 or higher
- RTL93_UP Defined when compiling with C++Builder 1 or higher
- RTL100_UP Defined when compiling with Delphi 3 or higher
- RTL110_UP Defined when compiling with C++Builder 3 or higher
- RTL120_UP Defined when compiling with Delphi 4 or higher
- RTL125_UP Defined when compiling with C++Builder 4 or higher
- RTL130_UP Defined when compiling with Delphi 5 or C++Builder 5 or higher
- RTL140_UP Defined when compiling with Delphi 6, Kylix 1, 2 or 3 or C++Builder 6 or higher
- RTL150_UP Defined when compiling with Delphi 7 or higher
- RTL160_UP Defined when compiling with Delphi 8 or higher
- RTL170_UP Defined when compiling with Delphi Personalities of BDS 3.0 or higher
- RTL180_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 4.0 or higher
- RTL185_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 5.0 or higher
- RTL190_UP Defined when compiling with Delphi.NET of BDS 5.0 or higher
- RTL200_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 6.0 or higher
- RTL210_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 7.0 or higher
- RTL220_UP Defined when compiling with Delphi or C++Builder Personalities of BDS 8.0 or higher
-
-
-- CLR Versions
-
- Directive Description
- ------------------------------------------------------------------------------
- CLR Defined when compiling for .NET
- CLR10 Defined when compiling for .NET 1.0 (may be overriden by FORCE_CLR10)
- CLR10_UP Defined when compiling for .NET 1.0 or higher
- CLR11 Defined when compiling for .NET 1.1 (may be overriden by FORCE_CLR11)
- CLR11_UP Defined when compiling for .NET 1.1 or higher
- CLR20 Defined when compiling for .NET 2.0 (may be overriden by FORCE_CLR20)
- CLR20_UP Defined when compiling for .NET 2.0 or higher
-
-
-- Feature Directives
-
- The features directives are used to test if the compiler supports specific
- features, such as method overloading, and adjust the sources accordingly. Use
- of these directives is preferred over the use of the DELPHI and COMPILER
- directives.
-
- Directive Description
- ------------------------------------------------------------------------------
- SUPPORTS_CONSTPARAMS Compiler supports const parameters (D1+)
- SUPPORTS_SINGLE Compiler supports the Single type (D1+)
- SUPPORTS_DOUBLE Compiler supports the Double type (D1+)
- SUPPORTS_EXTENDED Compiler supports the Extended type (D1+)
- SUPPORTS_CURRENCY Compiler supports the Currency type (D2+)
- SUPPORTS_THREADVAR Compiler supports threadvar declarations (D2+)
- SUPPORTS_OUTPARAMS Compiler supports out parameters (D3+)
- SUPPORTS_VARIANT Compiler supports variant (D2+)
- SUPPORTS_WIDECHAR Compiler supports the WideChar type (D2+)
- SUPPORTS_WIDESTRING Compiler supports the WideString type (D3+/BCB3+)
- SUPPORTS_INTERFACE Compiler supports interfaces (D3+/BCB3+)
- SUPPORTS_DISPINTERFACE Compiler supports dispatch interfaces (D3+/BCB3+)
- SUPPORTS_DISPID Compiler supports dispatch ids (D3+/BCB3+/FPC)
- SUPPORTS_EXTSYM Compiler supports the $EXTERNALSYM directive (D4+/BCB3+)
- SUPPORTS_NODEFINE Compiler supports the $NODEFINE directive (D4+/BCB3+)
- SUPPORTS_LONGWORD Compiler supports the LongWord type (unsigned 32 bit) (D4+/BCB4+)
- SUPPORTS_INT64 Compiler supports the Int64 type (D4+/BCB4+)
- SUPPORTS_DYNAMICARRAYS Compiler supports dynamic arrays (D4+/BCB4+)
- SUPPORTS_DEFAULTPARAMS Compiler supports default parameters (D4+/BCB4+)
- SUPPORTS_OVERLOAD Compiler supports overloading (D4+/BCB4+)
- SUPPORTS_IMPLEMENTS Compiler supports implements (D4+/BCB4+)
- SUPPORTS_DEPRECATED Compiler supports the deprecated directive (D6+/BCB6+)
- SUPPORTS_PLATFORM Compiler supports the platform directive (D6+/BCB6+)
- SUPPORTS_LIBRARY Compiler supports the library directive (D6+/BCB6+/FPC)
- SUPPORTS_LOCAL Compiler supports the local directive (D6+/BCB6+)
- SUPPORTS_SETPEFLAGS Compiler supports the SetPEFlags directive (D6+/BCB6+)
- SUPPORTS_EXPERIMENTAL_WARNINGS Compiler supports the WARN SYMBOL_EXPERIMENTAL and WARN UNIT_EXPERIMENTAL directives (D6+/BCB6+)
- SUPPORTS_INLINE Compiler supports the inline directive (D9+/FPC)
- SUPPORTS_FOR_IN Compiler supports for in loops (D9+)
- SUPPORTS_NESTED_CONSTANTS Compiler supports nested constants (D9+)
- SUPPORTS_NESTED_TYPES Compiler supports nested types (D9+)
- SUPPORTS_REGION Compiler supports the REGION and ENDREGION directives (D9+)
- SUPPORTS_ENHANCED_RECORDS Compiler supports class [operator|function|procedure] for record types (D9.NET, D10+)
- SUPPORTS_CLASS_FIELDS Compiler supports class fields (D9.NET, D10+)
- SUPPORTS_CLASS_HELPERS Compiler supports class helpers (D9.NET, D10+)
- SUPPORTS_CLASS_OPERATORS Compiler supports class operators (D9.NET, D10+)
- SUPPORTS_CLASS_CTORDTORS Compiler supports class contructors/destructors (D14+)
- SUPPORTS_STRICT Compiler supports strict keyword (D9.NET, D10+)
- SUPPORTS_STATIC Compiler supports static keyword (D9.NET, D10+)
- SUPPORTS_FINAL Compiler supports final keyword (D9.NET, D10+)
- SUPPORTS_METHODINFO Compiler supports the METHODINFO directives (D10+)
- SUPPORTS_GENERICS Compiler supports generic implementations (D11.NET, D12+)
- SUPPORTS_DEPRECATED_DETAILS Compiler supports additional text for the deprecated directive (D11.NET, D12+)
- ACCEPT_DEPRECATED Compiler supports or ignores the deprecated directive (D6+/BCB6+/FPC)
- ACCEPT_PLATFORM Compiler supports or ignores the platform directive (D6+/BCB6+/FPC)
- ACCEPT_LIBRARY Compiler supports or ignores the library directive (D6+/BCB6+)
- SUPPORTS_CUSTOMVARIANTS Compiler supports custom variants (D6+/BCB6+)
- SUPPORTS_VARARGS Compiler supports varargs (D6+/BCB6+)
- SUPPORTS_ENUMVALUE Compiler supports assigning ordinalities to values of enums (D6+/BCB6+)
- SUPPORTS_DEPRECATED_WARNINGS Compiler supports deprecated warnings (D6+/BCB6+)
- SUPPORTS_LIBRARY_WARNINGS Compiler supports library warnings (D6+/BCB6+)
- SUPPORTS_PLATFORM_WARNINGS Compiler supports platform warnings (D6+/BCB6+)
- SUPPORTS_UNSAFE_WARNINGS Compiler supports unsafe warnings (D7)
- SUPPORTS_WEAKPACKAGEUNIT Compiler supports the WEAKPACKAGEUNIT directive
- SUPPORTS_COMPILETIME_MESSAGES Compiler supports the MESSAGE directive
- SUPPORTS_PACKAGES Compiler supports Packages
- HAS_UNIT_LIBC Unit Libc exists (Kylix, FPC on Linux/x86)
- HAS_UNIT_RTLCONSTS Unit RTLConsts exists (D6+/BCB6+/FPC)
- HAS_UNIT_TYPES Unit Types exists (D6+/BCB6+/FPC)
- HAS_UNIT_VARIANTS Unit Variants exists (D6+/BCB6+/FPC)
- HAS_UNIT_STRUTILS Unit StrUtils exists (D6+/BCB6+/FPC)
- HAS_UNIT_DATEUTILS Unit DateUtils exists (D6+/BCB6+/FPC)
- HAS_UNIT_CONTNRS Unit contnrs exists (D6+/BCB6+/FPC)
- HAS_UNIT_HTTPPROD Unit HTTPProd exists (D9+)
- HAS_UNIT_GIFIMG Unit GifImg exists (D11+)
- HAS_UNIT_ANSISTRINGS Unit AnsiStrings exists (D12+)
- HAS_UNIT_PNGIMAGE Unit PngImage exists (D12+)
- XPLATFORM_RTL The RTL supports crossplatform function names (e.g. RaiseLastOSError) (D6+/BCB6+/FPC)
- SUPPORTS_UNICODE string type is aliased to an unicode string (WideString or UnicodeString) (DX.NET, D12+)
- SUPPORTS_UNICODE_STRING Compiler supports UnicodeString (D12+)
- SUPPORTS_INT_ALIASES Types Int8, Int16, Int32, UInt8, UInt16 and UInt32 are defined in the unit System (D12+)
- HAS_UNIT_RTTI Unit RTTI is available (D14+)
- SUPPORTS_CAST_INTERFACE_TO_OBJ The compiler supports casts from interfaces to objects (D14+)
- SUPPORTS_DELAYED_LOADING The compiler generates stubs for delaying imported function loads (D14+)
-
-
-- Compiler Settings
-
- The compiler settings directives indicate whether a specific compiler setting
- is in effect. This facilitates changing compiler settings locally in a more
- compact and readible manner.
-
- Directive Description
- ------------------------------------------------------------------------------
- ALIGN_ON Compiling in the A+ state (no alignment)
- BOOLEVAL_ON Compiling in the B+ state (complete boolean evaluation)
- ASSERTIONS_ON Compiling in the C+ state (assertions on)
- DEBUGINFO_ON Compiling in the D+ state (debug info generation on)
- IMPORTEDDATA_ON Compiling in the G+ state (creation of imported data references)
- LONGSTRINGS_ON Compiling in the H+ state (string defined as AnsiString)
- IOCHECKS_ON Compiling in the I+ state (I/O checking enabled)
- WRITEABLECONST_ON Compiling in the J+ state (typed constants can be modified)
- LOCALSYMBOLS Compiling in the L+ state (local symbol generation)
- LOCALSYMBOLS_ON Alias of LOCALSYMBOLS
- TYPEINFO_ON Compiling in the M+ state (RTTI generation on)
- OPTIMIZATION_ON Compiling in the O+ state (code optimization on)
- OPENSTRINGS_ON Compiling in the P+ state (variable string parameters are openstrings)
- OVERFLOWCHECKS_ON Compiling in the Q+ state (overflow checing on)
- RANGECHECKS_ON Compiling in the R+ state (range checking on)
- TYPEDADDRESS_ON Compiling in the T+ state (pointers obtained using the @ operator are typed)
- SAFEDIVIDE_ON Compiling in the U+ state (save FDIV instruction through RTL emulation)
- VARSTRINGCHECKS_ON Compiling in the V+ state (type checking of shortstrings)
- STACKFRAMES_ON Compiling in the W+ state (generation of stack frames)
- EXTENDEDSYNTAX_ON Compiling in the X+ state (Delphi extended syntax enabled)
-*)
-
-{$DEFINE BORLAND}
-
-{ Set FreePascal to Delphi mode }
-{$IFDEF FPC}
- {$MODE DELPHI}
- {$ASMMODE Intel}
- {$UNDEF BORLAND}
- {$DEFINE CPUASM}
- // FPC defines CPU32, CPU64 and Unix automatically
-{$ENDIF}
-
-{$IFDEF BORLAND}
- {$IFDEF LINUX}
- {$DEFINE KYLIX}
- {$ENDIF LINUX}
- {$IFNDEF CLR}
- {$DEFINE CPU386} // For Borland compilers select the x86 compat assembler by default
- {$DEFINE CPU32} // Assume Borland compilers are 32-bit (rather than 64-bit)
- {$DEFINE CPUASM}
- {$ENDIF ~CLR}
-{$ENDIF BORLAND}
-
-{------------------------------------------------------------------------------}
-{ VERXXX to COMPILERX, DELPHIX and BCBX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF BORLAND}
- {$IFDEF KYLIX}
- {$I kylix.inc} // FPC incompatible stuff
- {$ELSE ~KYLIX}
-
- {$DEFINE UNKNOWN_COMPILER_VERSION}
-
- {$IFDEF VER80}
- {$DEFINE COMPILER1}
- {$DEFINE DELPHI1}
- {$DEFINE DELPHICOMPILER1}
- {$DEFINE RTL80_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER90}
- {$DEFINE COMPILER2}
- {$DEFINE DELPHI2}
- {$DEFINE DELPHICOMPILER2}
- {$DEFINE RTL90_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER93}
- {$DEFINE COMPILER2}
- {$DEFINE BCB1}
- {$DEFINE BCB}
- {$DEFINE RTL93_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER100}
- {$DEFINE COMPILER3}
- {$DEFINE DELPHI3}
- {$DEFINE DELPHICOMPILER3}
- {$DEFINE RTL100_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER110}
- {$DEFINE COMPILER35}
- {$DEFINE BCB3}
- {$DEFINE BCB}
- {$DEFINE RTL110_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER120}
- {$DEFINE COMPILER4}
- {$DEFINE DELPHI4}
- {$DEFINE DELPHICOMPILER4}
- {$DEFINE RTL120_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER125}
- {$DEFINE COMPILER4}
- {$DEFINE BCB4}
- {$DEFINE BCB}
- {$DEFINE RTL125_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER130}
- {$DEFINE COMPILER5}
- {$IFDEF BCB}
- {$DEFINE BCB5}
- {$ELSE}
- {$DEFINE DELPHI5}
- {$DEFINE DELPHICOMPILER5}
- {$ENDIF}
- {$DEFINE RTL130_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER140}
- {$DEFINE COMPILER6}
- {$IFDEF BCB}
- {$DEFINE BCB6}
- {$ELSE}
- {$DEFINE DELPHI6}
- {$DEFINE DELPHICOMPILER6}
- {$ENDIF}
- {$DEFINE RTL140_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER150}
- {$DEFINE COMPILER7}
- {$DEFINE DELPHI7}
- {$DEFINE DELPHICOMPILER7}
- {$DEFINE RTL150_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER160}
- {$DEFINE BDS2}
- {$DEFINE BDS}
- {$IFDEF CLR}
- {$DEFINE CLR10}
- {$ENDIF CLR}
- {$DEFINE COMPILER8}
- {$DEFINE DELPHI8}
- {$DEFINE DELPHICOMPILER8}
- {$DEFINE RTL160_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER170}
- {$DEFINE BDS3}
- {$DEFINE BDS}
- {$IFDEF CLR}
- {$DEFINE CLR11}
- {$ENDIF CLR}
- {$DEFINE COMPILER9}
- {$DEFINE DELPHI9}
- {$DEFINE DELPHI2005} // synonym to DELPHI9
- {$DEFINE DELPHICOMPILER9}
- {$DEFINE RTL170_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER180}
- {$DEFINE BDS}
- {$IFDEF CLR}
- {$DEFINE CLR11}
- {$ENDIF CLR}
- {$IFDEF VER185}
- {$DEFINE BDS5}
- {$DEFINE COMPILER11}
- {$IFDEF BCB}
- {$DEFINE BCB11}
- {$ELSE}
- {$DEFINE DELPHI11}
- {$DEFINE DELPHI2007} // synonym to DELPHI11
- {$DEFINE DELPHICOMPILER11}
- {$ENDIF}
- {$DEFINE RTL185_UP}
- {$ELSE ~~VER185}
- {$DEFINE BDS4}
- {$DEFINE COMPILER10}
- {$IFDEF BCB}
- {$DEFINE BCB10}
- {$ELSE}
- {$DEFINE DELPHI10}
- {$DEFINE DELPHI2006} // synonym to DELPHI10
- {$DEFINE DELPHICOMPILER10}
- {$ENDIF}
- {$DEFINE RTL180_UP}
- {$ENDIF ~VER185}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$IFDEF VER190} // Delphi 2007 for .NET
- {$DEFINE BDS}
- {$DEFINE BDS5}
- {$IFDEF CLR}
- {$DEFINE CLR20}
- {$ENDIF CLR}
- {$DEFINE COMPILER11}
- {$DEFINE DELPHI11}
- {$DEFINE DELPHI2007} // synonym to DELPHI11
- {$DEFINE DELPHICOMPILER11}
- {$DEFINE RTL190_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF VER190}
-
- {$IFDEF VER200} // RAD Studio 2009
- {$DEFINE BDS}
- {$DEFINE BDS6}
- {$IFDEF CLR}
- {$DEFINE CLR20}
- {$ENDIF CLR}
- {$DEFINE COMPILER12}
- {$IFDEF BCB}
- {$DEFINE BCB12}
- {$ELSE}
- {$DEFINE DELPHI12}
- {$DEFINE DELPHI2009} // synonym to DELPHI12
- {$DEFINE DELPHICOMPILER12}
- {$ENDIF BCB}
- {$IFDEF CLR}
- {$DEFINE RTL190_UP}
- {$ELSE}
- {$DEFINE RTL200_UP}
- {$ENDIF}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF VER200}
-
- {$IFDEF VER210} // RAD Studio 2010
- {$DEFINE BDS}
- {$DEFINE BDS7}
- {$DEFINE COMPILER14}
- {$IFDEF BCB}
- {$DEFINE BCB14}
- {$ELSE}
- {$DEFINE DELPHI14}
- {$DEFINE DELPHI2010} // synonym to DELPHI14
- {$DEFINE DELPHICOMPILER14}
- {$ENDIF BCB}
- {$DEFINE RTL210_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF VER210}
-
- {$IFDEF VER220} // RAD Studio XE
- {$DEFINE BDS}
- {$DEFINE BDS8}
- {$DEFINE COMPILER15}
- {$IFDEF BCB}
- {$DEFINE BCB15}
- {$ELSE}
- {$DEFINE DELPHI15}
- {$DEFINE DELPHIXE} // synonym to DELPHI15
- {$DEFINE DELPHICOMPILER15}
- {$ENDIF BCB}
- {$DEFINE RTL220_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF VER220}
-
- {$IFDEF VER230} // RAD Studio XE2
- {$DEFINE BDS}
- {$DEFINE BDS9}
- {$DEFINE COMPILER16}
- {$IFDEF BCB}
- {$DEFINE BCB16}
- {$ELSE}
- {$DEFINE DELPHI16}
- {$DEFINE DELPHIXE2} // synonym to DELPHI15
- {$DEFINE DELPHICOMPILER16}
- {$ENDIF BCB}
- {$DEFINE RTL230_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF VER230}
-
- {$IFDEF UNKNOWN_COMPILER_VERSION} // adjust for newer version (always use latest version)
- {$DEFINE BDS}
- {$DEFINE BDS9}
- {$DEFINE COMPILER16}
- {$IFDEF BCB}
- {$DEFINE BCB16}
- {$ELSE}
- {$DEFINE DELPHI16}
- {$DEFINE DELPHIXE2} // synonym to DELPHI15
-
- {$DEFINE DELPHICOMPILER16}
- {$ENDIF BCB}
- {$DEFINE RTL230_UP}
- {$UNDEF UNKNOWN_COMPILER_VERSION}
- {$ENDIF}
-
- {$ENDIF ~KYLIX}
-
- {$IFDEF BCB}
- {$DEFINE CPPBUILDER}
- {$DEFINE BCBCOMPILER}
- {$ELSE ~BCB}
- {$DEFINE DELPHI}
- {$DEFINE DELPHICOMPILER}
- {$ENDIF ~BCB}
-
-{$ENDIF BORLAND}
-
-{------------------------------------------------------------------------------}
-{ DELPHIX_UP from DELPHIX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF DELPHI16} {$DEFINE DELPHI16_UP} {$ENDIF}
-{$IFDEF DELPHI15} {$DEFINE DELPHI15_UP} {$ENDIF}
-{$IFDEF DELPHI14} {$DEFINE DELPHI14_UP} {$ENDIF}
-{$IFDEF DELPHI12} {$DEFINE DELPHI12_UP} {$ENDIF}
-{$IFDEF DELPHI11} {$DEFINE DELPHI11_UP} {$ENDIF}
-{$IFDEF DELPHI10} {$DEFINE DELPHI10_UP} {$ENDIF}
-{$IFDEF DELPHI9} {$DEFINE DELPHI9_UP} {$ENDIF}
-{$IFDEF DELPHI8} {$DEFINE DELPHI8_UP} {$ENDIF}
-{$IFDEF DELPHI7} {$DEFINE DELPHI7_UP} {$ENDIF}
-{$IFDEF DELPHI6} {$DEFINE DELPHI6_UP} {$ENDIF}
-{$IFDEF DELPHI5} {$DEFINE DELPHI5_UP} {$ENDIF}
-{$IFDEF DELPHI4} {$DEFINE DELPHI4_UP} {$ENDIF}
-{$IFDEF DELPHI3} {$DEFINE DELPHI3_UP} {$ENDIF}
-{$IFDEF DELPHI2} {$DEFINE DELPHI2_UP} {$ENDIF}
-{$IFDEF DELPHI1} {$DEFINE DELPHI1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ DELPHIX_UP from DELPHIX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF DELPHI16_UP}
- {$DEFINE DELPHIXE2_UP} // synonym to DELPHI16_UP
- {$DEFINE DELPHI15_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI15_UP}
- {$DEFINE DELPHIXE_UP} // synonym to DELPHI15_UP
- {$DEFINE DELPHI14_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI14_UP}
- {$DEFINE DELPHI2010_UP} // synonym to DELPHI14_UP
- {$DEFINE DELPHI12_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI12_UP}
- {$DEFINE DELPHI2009_UP} // synonym to DELPHI12_UP
- {$DEFINE DELPHI11_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI11_UP}
- {$DEFINE DELPHI2007_UP} // synonym to DELPHI11_UP
- {$DEFINE DELPHI10_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI10_UP}
- {$DEFINE DELPHI2006_UP} // synonym to DELPHI10_UP
- {$DEFINE DELPHI9_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI9_UP}
- {$DEFINE DELPHI2005_UP} // synonym to DELPHI9_UP
- {$DEFINE DELPHI8_UP}
-{$ENDIF}
-
-{$IFDEF DELPHI8_UP} {$DEFINE DELPHI7_UP} {$ENDIF}
-{$IFDEF DELPHI7_UP} {$DEFINE DELPHI6_UP} {$ENDIF}
-{$IFDEF DELPHI6_UP} {$DEFINE DELPHI5_UP} {$ENDIF}
-{$IFDEF DELPHI5_UP} {$DEFINE DELPHI4_UP} {$ENDIF}
-{$IFDEF DELPHI4_UP} {$DEFINE DELPHI3_UP} {$ENDIF}
-{$IFDEF DELPHI3_UP} {$DEFINE DELPHI2_UP} {$ENDIF}
-{$IFDEF DELPHI2_UP} {$DEFINE DELPHI1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ BCBX_UP from BCBX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF BCB15} {$DEFINE BCB15_UP} {$ENDIF}
-{$IFDEF BCB14} {$DEFINE BCB14_UP} {$ENDIF}
-{$IFDEF BCB12} {$DEFINE BCB12_UP} {$ENDIF}
-{$IFDEF BCB11} {$DEFINE BCB11_UP} {$ENDIF}
-{$IFDEF BCB10} {$DEFINE BCB10_UP} {$ENDIF}
-{$IFDEF BCB6} {$DEFINE BCB6_UP} {$ENDIF}
-{$IFDEF BCB5} {$DEFINE BCB5_UP} {$ENDIF}
-{$IFDEF BCB4} {$DEFINE BCB4_UP} {$ENDIF}
-{$IFDEF BCB3} {$DEFINE BCB3_UP} {$ENDIF}
-{$IFDEF BCB1} {$DEFINE BCB1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ BCBX_UP from BCBX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF BCB15_UP} {$DEFINE BCB15_UP} {$ENDIF}
-{$IFDEF BCB14_UP} {$DEFINE BCB12_UP} {$ENDIF}
-{$IFDEF BCB12_UP} {$DEFINE BCB11_UP} {$ENDIF}
-{$IFDEF BCB11_UP} {$DEFINE BCB10_UP} {$ENDIF}
-{$IFDEF BCB10_UP} {$DEFINE BCB6_UP} {$ENDIF}
-{$IFDEF BCB6_UP} {$DEFINE BCB5_UP} {$ENDIF}
-{$IFDEF BCB5_UP} {$DEFINE BCB4_UP} {$ENDIF}
-{$IFDEF BCB4_UP} {$DEFINE BCB3_UP} {$ENDIF}
-{$IFDEF BCB3_UP} {$DEFINE BCB1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ BDSX_UP from BDSX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF BDS8} {$DEFINE BDS8_UP} {$ENDIF}
-{$IFDEF BDS7} {$DEFINE BDS7_UP} {$ENDIF}
-{$IFDEF BDS6} {$DEFINE BDS6_UP} {$ENDIF}
-{$IFDEF BDS5} {$DEFINE BDS5_UP} {$ENDIF}
-{$IFDEF BDS4} {$DEFINE BDS4_UP} {$ENDIF}
-{$IFDEF BDS3} {$DEFINE BDS3_UP} {$ENDIF}
-{$IFDEF BDS2} {$DEFINE BDS2_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ BDSX_UP from BDSX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF BDS8_UP} {$DEFINE BDS7_UP} {$ENDIF}
-{$IFDEF BDS7_UP} {$DEFINE BDS6_UP} {$ENDIF}
-{$IFDEF BDS6_UP} {$DEFINE BDS5_UP} {$ENDIF}
-{$IFDEF BDS5_UP} {$DEFINE BDS4_UP} {$ENDIF}
-{$IFDEF BDS4_UP} {$DEFINE BDS3_UP} {$ENDIF}
-{$IFDEF BDS3_UP} {$DEFINE BDS2_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ DELPHICOMPILERX_UP from DELPHICOMPILERX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF DELPHICOMPILER16} {$DEFINE DELPHICOMPILER16_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER15} {$DEFINE DELPHICOMPILER15_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER14} {$DEFINE DELPHICOMPILER14_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER12} {$DEFINE DELPHICOMPILER12_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER11} {$DEFINE DELPHICOMPILER11_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER10} {$DEFINE DELPHICOMPILER10_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER9} {$DEFINE DELPHICOMPILER9_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER8} {$DEFINE DELPHICOMPILER8_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER7} {$DEFINE DELPHICOMPILER7_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER6} {$DEFINE DELPHICOMPILER6_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER5} {$DEFINE DELPHICOMPILER5_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER4} {$DEFINE DELPHICOMPILER4_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER3} {$DEFINE DELPHICOMPILER3_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER2} {$DEFINE DELPHICOMPILER2_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER1} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ DELPHICOMPILERX_UP from DELPHICOMPILERX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF DELPHICOMPILER16_UP} {$DEFINE DELPHICOMPILER15_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER15_UP} {$DEFINE DELPHICOMPILER14_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER14_UP} {$DEFINE DELPHICOMPILER12_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER12_UP} {$DEFINE DELPHICOMPILER11_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER11_UP} {$DEFINE DELPHICOMPILER10_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER10_UP} {$DEFINE DELPHICOMPILER9_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER9_UP} {$DEFINE DELPHICOMPILER8_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER8_UP} {$DEFINE DELPHICOMPILER7_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER7_UP} {$DEFINE DELPHICOMPILER6_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER6_UP} {$DEFINE DELPHICOMPILER5_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER5_UP} {$DEFINE DELPHICOMPILER4_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER4_UP} {$DEFINE DELPHICOMPILER3_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER3_UP} {$DEFINE DELPHICOMPILER2_UP} {$ENDIF}
-{$IFDEF DELPHICOMPILER2_UP} {$DEFINE DELPHICOMPILER1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ COMPILERX_UP from COMPILERX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF COMPILER16} {$DEFINE COMPILER16_UP} {$ENDIF}
-{$IFDEF COMPILER15} {$DEFINE COMPILER15_UP} {$ENDIF}
-{$IFDEF COMPILER14} {$DEFINE COMPILER14_UP} {$ENDIF}
-{$IFDEF COMPILER12} {$DEFINE COMPILER12_UP} {$ENDIF}
-{$IFDEF COMPILER11} {$DEFINE COMPILER11_UP} {$ENDIF}
-{$IFDEF COMPILER10} {$DEFINE COMPILER10_UP} {$ENDIF}
-{$IFDEF COMPILER9} {$DEFINE COMPILER9_UP} {$ENDIF}
-{$IFDEF COMPILER8} {$DEFINE COMPILER8_UP} {$ENDIF}
-{$IFDEF COMPILER7} {$DEFINE COMPILER7_UP} {$ENDIF}
-{$IFDEF COMPILER6} {$DEFINE COMPILER6_UP} {$ENDIF}
-{$IFDEF COMPILER5} {$DEFINE COMPILER5_UP} {$ENDIF}
-{$IFDEF COMPILER4} {$DEFINE COMPILER4_UP} {$ENDIF}
-{$IFDEF COMPILER35} {$DEFINE COMPILER35_UP} {$ENDIF}
-{$IFDEF COMPILER3} {$DEFINE COMPILER3_UP} {$ENDIF}
-{$IFDEF COMPILER2} {$DEFINE COMPILER2_UP} {$ENDIF}
-{$IFDEF COMPILER1} {$DEFINE COMPILER1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ COMPILERX_UP from COMPILERX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF COMPILER16_UP} {$DEFINE COMPILER15_UP} {$ENDIF}
-{$IFDEF COMPILER15_UP} {$DEFINE COMPILER14_UP} {$ENDIF}
-{$IFDEF COMPILER14_UP} {$DEFINE COMPILER12_UP} {$ENDIF}
-{$IFDEF COMPILER12_UP} {$DEFINE COMPILER11_UP} {$ENDIF}
-{$IFDEF COMPILER11_UP} {$DEFINE COMPILER10_UP} {$ENDIF}
-{$IFDEF COMPILER10_UP} {$DEFINE COMPILER9_UP} {$ENDIF}
-{$IFDEF COMPILER9_UP} {$DEFINE COMPILER8_UP} {$ENDIF}
-{$IFDEF COMPILER8_UP} {$DEFINE COMPILER7_UP} {$ENDIF}
-{$IFDEF COMPILER7_UP} {$DEFINE COMPILER6_UP} {$ENDIF}
-{$IFDEF COMPILER6_UP} {$DEFINE COMPILER5_UP} {$ENDIF}
-{$IFDEF COMPILER5_UP} {$DEFINE COMPILER4_UP} {$ENDIF}
-{$IFDEF COMPILER4_UP} {$DEFINE COMPILER35_UP} {$ENDIF}
-{$IFDEF COMPILER35_UP} {$DEFINE COMPILER3_UP} {$ENDIF}
-{$IFDEF COMPILER3_UP} {$DEFINE COMPILER2_UP} {$ENDIF}
-{$IFDEF COMPILER2_UP} {$DEFINE COMPILER1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ RTLX_UP from RTLX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF RTL230_UP} {$DEFINE RTL220_UP} {$ENDIF}
-{$IFDEF RTL220_UP} {$DEFINE RTL210_UP} {$ENDIF}
-{$IFDEF RTL210_UP} {$DEFINE RTL200_UP} {$ENDIF}
-{$IFDEF RTL200_UP} {$DEFINE RTL190_UP} {$ENDIF}
-{$IFDEF RTL190_UP} {$DEFINE RTL185_UP} {$ENDIF}
-{$IFDEF RTL185_UP} {$DEFINE RTL180_UP} {$ENDIF}
-{$IFDEF RTL180_UP} {$DEFINE RTL170_UP} {$ENDIF}
-{$IFDEF RTL170_UP} {$DEFINE RTL160_UP} {$ENDIF}
-{$IFDEF RTL160_UP} {$DEFINE RTL150_UP} {$ENDIF}
-{$IFDEF RTL150_UP} {$DEFINE RTL145_UP} {$ENDIF}
-{$IFDEF RTL145_UP} {$DEFINE RTL142_UP} {$ENDIF}
-{$IFDEF RTL142_UP} {$DEFINE RTL140_UP} {$ENDIF}
-{$IFDEF RTL140_UP} {$DEFINE RTL130_UP} {$ENDIF}
-{$IFDEF RTL130_UP} {$DEFINE RTL125_UP} {$ENDIF}
-{$IFDEF RTL125_UP} {$DEFINE RTL120_UP} {$ENDIF}
-{$IFDEF RTL120_UP} {$DEFINE RTL110_UP} {$ENDIF}
-{$IFDEF RTL110_UP} {$DEFINE RTL100_UP} {$ENDIF}
-{$IFDEF RTL100_UP} {$DEFINE RTL93_UP} {$ENDIF}
-{$IFDEF RTL93_UP} {$DEFINE RTL90_UP} {$ENDIF}
-{$IFDEF RTL90_UP} {$DEFINE RTL80_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ Check for CLR overrides of default detection }
-{------------------------------------------------------------------------------}
-
-{$IFDEF CLR}
- {$IFDEF FORCE_CLR10}
- {$DEFINE CLR10}
- {$UNDEF CLR11}
- {$UNDEF CLR20}
- {$ENDIF FORCE_CLR10}
-
- {$IFDEF FORCE_CLR11}
- {$UNDEF CLR10}
- {$DEFINE CLR11}
- {$UNDEF CLR20}
- {$ENDIF FORCE_CLR11}
-
- {$IFDEF FORCE_CLR20}
- {$UNDEF CLR10}
- {$UNDEF CLR11}
- {$DEFINE CLR20}
- {$ENDIF FORCE_CLR20}
-{$ENDIF CLR}
-
-{------------------------------------------------------------------------------}
-{ CLRX from CLRX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF CLR10} {$DEFINE CLR10_UP} {$ENDIF}
-{$IFDEF CLR11} {$DEFINE CLR11_UP} {$ENDIF}
-{$IFDEF CLR20} {$DEFINE CLR20_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ CLRX_UP from CLRX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF CLR20_UP} {$DEFINE CLR11_UP} {$ENDIF}
-{$IFDEF CLR11_UP} {$DEFINE CLR10_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-
-{$IFDEF DELPHICOMPILER}
- {$DEFINE DELPHILANGUAGE}
-{$ENDIF}
-
-{$IFDEF BCBCOMPILER}
- {$DEFINE DELPHILANGUAGE}
-{$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ KYLIXX_UP from KYLIXX mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF KYLIX3} {$DEFINE KYLIX3_UP} {$ENDIF}
-{$IFDEF KYLIX2} {$DEFINE KYLIX2_UP} {$ENDIF}
-{$IFDEF KYLIX1} {$DEFINE KYLIX1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ KYLIXX_UP from KYLIXX_UP mappings }
-{------------------------------------------------------------------------------}
-
-{$IFDEF KYLIX3_UP} {$DEFINE KYLIX2_UP} {$ENDIF}
-{$IFDEF KYLIX2_UP} {$DEFINE KYLIX1_UP} {$ENDIF}
-
-{------------------------------------------------------------------------------}
-{ Map COMPILERX_UP to friendly feature names }
-{------------------------------------------------------------------------------}
-
-{$IFDEF FPC}
- {$IFDEF VER1_0}
- Please use FPC 2.0 or higher to compile this.
- {$ELSE}
- {$DEFINE SUPPORTS_OUTPARAMS}
- {$DEFINE SUPPORTS_WIDECHAR}
- {$DEFINE SUPPORTS_WIDESTRING}
- {$IFDEF HASINTF}
- {$DEFINE SUPPORTS_INTERFACE}
- {$ENDIF}
- {$IFDEF HASVARIANT}
- {$DEFINE SUPPORTS_VARIANT}
- {$ENDIF}
- {$IFDEF FPC_HAS_TYPE_SINGLE}
- {$DEFINE SUPPORTS_SINGLE}
- {$ENDIF}
- {$IFDEF FPC_HAS_TYPE_DOUBLE}
- {$DEFINE SUPPORTS_DOUBLE}
- {$ENDIF}
- {$IFDEF FPC_HAS_TYPE_EXTENDED}
- {$DEFINE SUPPORTS_EXTENDED}
- {$ENDIF}
- {$IFDEF HASCURRENCY}
- {$DEFINE SUPPORTS_CURRENCY}
- {$ENDIF}
- {$DEFINE SUPPORTS_THREADVAR}
- {$DEFINE SUPPORTS_CONSTPARAMS}
- {$DEFINE SUPPORTS_LONGWORD}
- {$DEFINE SUPPORTS_INT64}
- {$DEFINE SUPPORTS_DYNAMICARRAYS}
- {$DEFINE SUPPORTS_DEFAULTPARAMS}
- {$DEFINE SUPPORTS_OVERLOAD}
- {$DEFINE ACCEPT_DEPRECATED} // 2.2 also gives warnings
- {$DEFINE ACCEPT_PLATFORM} // 2.2 also gives warnings
- {$DEFINE ACCEPT_LIBRARY}
- {$DEFINE SUPPORTS_EXTSYM}
- {$DEFINE SUPPORTS_NODEFINE}
-
- {$DEFINE SUPPORTS_CUSTOMVARIANTS}
- {$DEFINE SUPPORTS_VARARGS}
- {$DEFINE SUPPORTS_ENUMVALUE}
- {$IFDEF LINUX}
- {$DEFINE HAS_UNIT_LIBC}
- {$ENDIF LINUX}
- {$DEFINE HAS_UNIT_CONTNRS}
- {$DEFINE HAS_UNIT_TYPES}
- {$DEFINE HAS_UNIT_VARIANTS}
- {$DEFINE HAS_UNIT_STRUTILS}
- {$DEFINE HAS_UNIT_DATEUTILS}
- {$DEFINE HAS_UNIT_RTLCONSTS}
-
- {$DEFINE XPLATFORM_RTL}
-
- {$IFDEF VER2_2}
- {$DEFINE SUPPORTS_DISPINTERFACE}
- {$DEFINE SUPPORTS_IMPLEMENTS}
- {$DEFINE SUPPORTS_DISPID}
- {$ELSE}
- {$UNDEF SUPPORTS_DISPINTERFACE}
- {$UNDEF SUPPORTS_IMPLEMENTS}
- {$endif}
- {$UNDEF SUPPORTS_UNSAFE_WARNINGS}
- {$ENDIF}
-{$ENDIF FPC}
-
-{$IFDEF CLR}
- {$DEFINE SUPPORTS_UNICODE}
-{$ENDIF CLR}
-
-{$IFDEF COMPILER1_UP}
- {$DEFINE SUPPORTS_CONSTPARAMS}
- {$DEFINE SUPPORTS_SINGLE}
- {$DEFINE SUPPORTS_DOUBLE}
- {$DEFINE SUPPORTS_EXTENDED}
- {$DEFINE SUPPORTS_PACKAGES}
-{$ENDIF COMPILER1_UP}
-
-{$IFDEF COMPILER2_UP}
- {$DEFINE SUPPORTS_CURRENCY}
- {$DEFINE SUPPORTS_THREADVAR}
- {$DEFINE SUPPORTS_VARIANT}
- {$DEFINE SUPPORTS_WIDECHAR}
-{$ENDIF COMPILER2_UP}
-
-{$IFDEF COMPILER3_UP}
- {$DEFINE SUPPORTS_OUTPARAMS}
- {$DEFINE SUPPORTS_WIDESTRING}
- {$DEFINE SUPPORTS_INTERFACE}
- {$DEFINE SUPPORTS_DISPINTERFACE}
- {$DEFINE SUPPORTS_DISPID}
- {$DEFINE SUPPORTS_WEAKPACKAGEUNIT}
-{$ENDIF COMPILER3_UP}
-
-{$IFDEF COMPILER35_UP}
- {$DEFINE SUPPORTS_EXTSYM}
- {$DEFINE SUPPORTS_NODEFINE}
-{$ENDIF COMPILER35_UP}
-
-{$IFDEF COMPILER4_UP}
- {$DEFINE SUPPORTS_LONGWORD}
- {$DEFINE SUPPORTS_INT64}
- {$DEFINE SUPPORTS_DYNAMICARRAYS}
- {$DEFINE SUPPORTS_DEFAULTPARAMS}
- {$DEFINE SUPPORTS_OVERLOAD}
- {$DEFINE SUPPORTS_IMPLEMENTS}
-{$ENDIF COMPILER4_UP}
-
-{$IFDEF COMPILER6_UP}
- {$DEFINE SUPPORTS_DEPRECATED}
- {$DEFINE SUPPORTS_LIBRARY}
- {$DEFINE SUPPORTS_PLATFORM}
- {$DEFINE SUPPORTS_LOCAL}
- {$DEFINE SUPPORTS_SETPEFLAGS}
- {$DEFINE SUPPORTS_EXPERIMENTAL_WARNINGS}
- {$DEFINE ACCEPT_DEPRECATED}
- {$DEFINE ACCEPT_PLATFORM}
- {$DEFINE ACCEPT_LIBRARY}
- {$DEFINE SUPPORTS_DEPRECATED_WARNINGS}
- {$DEFINE SUPPORTS_LIBRARY_WARNINGS}
- {$DEFINE SUPPORTS_PLATFORM_WARNINGS}
- {$DEFINE SUPPORTS_CUSTOMVARIANTS}
- {$DEFINE SUPPORTS_VARARGS}
- {$DEFINE SUPPORTS_ENUMVALUE}
- {$DEFINE SUPPORTS_COMPILETIME_MESSAGES}
-{$ENDIF COMPILER6_UP}
-
-{$IFDEF COMPILER7_UP}
- {$DEFINE SUPPORTS_UNSAFE_WARNINGS}
-{$ENDIF COMPILER7_UP}
-
-{$IFDEF COMPILER9_UP}
- {$DEFINE SUPPORTS_FOR_IN}
- {$DEFINE SUPPORTS_INLINE}
- {$DEFINE SUPPORTS_NESTED_CONSTANTS}
- {$DEFINE SUPPORTS_NESTED_TYPES}
- {$DEFINE SUPPORTS_REGION}
- {$IFDEF CLR}
- {$DEFINE SUPPORTS_ENHANCED_RECORDS}
- {$DEFINE SUPPORTS_CLASS_FIELDS}
- {$DEFINE SUPPORTS_CLASS_HELPERS}
- {$DEFINE SUPPORTS_CLASS_OPERATORS}
- {$DEFINE SUPPORTS_STRICT}
- {$DEFINE SUPPORTS_STATIC}
- {$DEFINE SUPPORTS_FINAL}
- {$ENDIF CLR}
-{$ENDIF COMPILER9_UP}
-
-{$IFDEF COMPILER10_UP}
- {$DEFINE SUPPORTS_ENHANCED_RECORDS}
- {$DEFINE SUPPORTS_CLASS_FIELDS}
- {$DEFINE SUPPORTS_CLASS_HELPERS}
- {$DEFINE SUPPORTS_CLASS_OPERATORS}
- {$DEFINE SUPPORTS_STRICT}
- {$DEFINE SUPPORTS_STATIC}
- {$DEFINE SUPPORTS_FINAL}
- {$DEFINE SUPPORTS_METHODINFO}
-{$ENDIF COMPILER10_UP}
-
-{$IFDEF COMPILER11_UP}
- {$IFDEF CLR}
- {$DEFINE SUPPORTS_GENERICS}
- {$DEFINE SUPPORTS_DEPRECATED_DETAILS}
- {$ENDIF CLR}
-{$ENDIF COMPILER11_UP}
-
-{$IFDEF COMPILER12_UP}
- {$DEFINE SUPPORTS_GENERICS}
- {$DEFINE SUPPORTS_DEPRECATED_DETAILS}
- {$DEFINE SUPPORTS_INT_ALIASES}
- {$IFNDEF CLR}
- {$DEFINE SUPPORTS_UNICODE}
- {$DEFINE SUPPORTS_UNICODE_STRING}
- {$ENDIF CLR}
-{$ENDIF COMPILER12_UP}
-
-{$IFDEF COMPILER14_UP}
- {$DEFINE SUPPORTS_CLASS_CTORDTORS}
- {$DEFINE HAS_UNIT_RTTI}
- {$DEFINE SUPPORTS_CAST_INTERFACE_TO_OBJ}
- {$DEFINE SUPPORTS_DELAYED_LOADING}
-{$ENDIF COMPILER14_UP}
-
-{$IFDEF RTL130_UP}
- {$DEFINE HAS_UNIT_CONTNRS}
-{$ENDIF RTL130_UP}
-
-{$IFDEF RTL140_UP}
- {$IFDEF LINUX}
- {$DEFINE HAS_UNIT_LIBC}
- {$ENDIF LINUX}
- {$DEFINE HAS_UNIT_RTLCONSTS}
- {$DEFINE HAS_UNIT_TYPES}
- {$DEFINE HAS_UNIT_VARIANTS}
- {$DEFINE HAS_UNIT_STRUTILS}
- {$DEFINE HAS_UNIT_DATEUTILS}
- {$DEFINE XPLATFORM_RTL}
-{$ENDIF RTL140_UP}
-
-{$IFDEF RTL170_UP}
- {$DEFINE HAS_UNIT_HTTPPROD}
-{$ENDIF RTL170_UP}
-
-{$IFDEF RTL185_UP}
- {$DEFINE HAS_UNIT_GIFIMG}
-{$ENDIF RTL185_UP}
-
-{$IFDEF RTL200_UP}
- {$DEFINE HAS_UNIT_ANSISTRINGS}
- {$DEFINE HAS_UNIT_PNGIMAGE}
-{$ENDIF RTL200_UP}
-
-{------------------------------------------------------------------------------}
-{ Cross-platform related defines }
-{------------------------------------------------------------------------------}
-
-{$IFNDEF CPUASM}
- {$DEFINE PUREPASCAL}
-{$ENDIF ~CPUASM}
-
-{$IFDEF WIN32}
- {$DEFINE MSWINDOWS} // predefined for D6+/BCB6+
- {$DEFINE Win32API}
-{$ENDIF}
-
-{$IFDEF DELPHILANGUAGE}
- {$IFDEF LINUX}
- {$DEFINE UNIX}
- {$ENDIF}
-
- {$IFNDEF CONSOLE}
- {$IFDEF LINUX}
- {$DEFINE VisualCLX}
- {$ENDIF}
- {$IFNDEF VisualCLX}
- {$DEFINE VCL}
- {$ENDIF}
- {$ENDIF ~CONSOLE}
-{$ENDIF DELPHILANGUAGE}
-
-{------------------------------------------------------------------------------}
-{ Compiler settings }
-{------------------------------------------------------------------------------}
-
-{$IFOPT A+} {$DEFINE ALIGN_ON} {$ENDIF}
-{$IFOPT B+} {$DEFINE BOOLEVAL_ON} {$ENDIF}
-{$IFDEF COMPILER2_UP}
- {$IFOPT C+} {$DEFINE ASSERTIONS_ON} {$ENDIF}
-{$ENDIF}
-{$IFOPT D+} {$DEFINE DEBUGINFO_ON} {$ENDIF}
-{$IFOPT G+} {$DEFINE IMPORTEDDATA_ON} {$ENDIF}
-{$IFDEF COMPILER2_UP}
- {$IFOPT H+} {$DEFINE LONGSTRINGS_ON} {$ENDIF}
-{$ENDIF}
-
-// Hints
-{$IFOPT I+} {$DEFINE IOCHECKS_ON} {$ENDIF}
-{$IFDEF COMPILER2_UP}
- {$IFOPT J+} {$DEFINE WRITEABLECONST_ON} {$ENDIF}
-{$ENDIF}
-{$IFOPT L+} {$DEFINE LOCALSYMBOLS} {$DEFINE LOCALSYMBOLS_ON} {$ENDIF}
-{$IFOPT M+} {$DEFINE TYPEINFO_ON} {$ENDIF}
-{$IFOPT O+} {$DEFINE OPTIMIZATION_ON} {$ENDIF}
-{$IFOPT P+} {$DEFINE OPENSTRINGS_ON} {$ENDIF}
-{$IFOPT Q+} {$DEFINE OVERFLOWCHECKS_ON} {$ENDIF}
-{$IFOPT R+} {$DEFINE RANGECHECKS_ON} {$ENDIF}
-
-// Real compatibility
-{$IFOPT T+} {$DEFINE TYPEDADDRESS_ON} {$ENDIF}
-{$IFOPT U+} {$DEFINE SAFEDIVIDE_ON} {$ENDIF}
-{$IFOPT V+} {$DEFINE VARSTRINGCHECKS_ON} {$ENDIF}
-{$IFOPT W+} {$DEFINE STACKFRAMES_ON} {$ENDIF}
-
-// Warnings
-{$IFOPT X+} {$DEFINE EXTENDEDSYNTAX_ON} {$ENDIF}
-
-// for Delphi/BCB trial versions remove the point from the line below
-{.$UNDEF SUPPORTS_WEAKPACKAGEUNIT}
-
-{$ENDIF ~JEDI_INC}
-
diff --git a/windows/src/ext/embeddedwb/Source/EditDesigner.pas b/windows/src/ext/embeddedwb/Source/EditDesigner.pas
deleted file mode 100644
index 109eb5ce49d2486963fed0dc9dbda397d007e68b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EditDesigner.pas
+++ /dev/null
@@ -1,717 +0,0 @@
-//***********************************************************
-// TEditDesigner *
-// *
-// For Delphi *
-// Freeware Component *
-// by *
-// Per Lindsø Larsen *
-// per.lindsoe@larsen.dk *
-// Fixed by bsalsa@gmail.com *
-// Documentation and Updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, Change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code Change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: EditDesigner.pas,v 1.3.2.1 2006/11/29 22:13:00 sergev Exp $
-{$B-}
-unit EditDesigner;
-
-//Extras----------------------------------------------------------------------
-{To remove the Extras (Events), just add a dot like "{.$DEFINE...USE_Extras" or something.
-and re-compile the package.}
-{$DEFINE USE_Extras}
-
-interface
-
-{$I EWB.inc}
-
-uses
-{$IFDEF USE_Extras}EwbAcc, Graphics, {$ENDIF}
- EmbeddedWB, ActiveX, MSHTML_EWB, Classes, Windows;
-
-const
- S_OK = 0;
-{$EXTERNALSYM S_OK}
- S_FALSE = $00000001;
-{$EXTERNALSYM S_FALSE}
- E_FAIL = HRESULT($80004005);
-{$EXTERNALSYM E_FAIL}
- IID_IOleContainer: TGUID = (D1: $0000011B; D2: $0000; D3: $0000;
- D4: ($C0, $00, $00, $00, $00, $00, $00, $46));
- SID_SHTMLEditServices: TGUID = (D1: $3050F7F9; D2: $98B5; D3: $11CF;
- D4: ($BB, $82, $00, $AA, $00, $BD, $CE, $0B));
- IID_IUnknown: TGUID = (D1: $00000000; D2: $0000; D3: $0000;
- D4: ($C0, $00, $00, $00, $00, $00, $00, $46));
-
-type
- TSnapRect = function(const pIElement: IHTMLElement; var prcNew: TRECT; eHandle: _ELEMENT_CORNER): HRESULT of object;
- TPreDrag = function: HRESULT of object;
- TPreHandleEvent = function(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT of object;
- TPostHandleEvent = function(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT of object;
- TTranslateAccelerator = function(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT of object;
- TPostEditorEventNotify = function(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT of object;
- TErrorEvent = procedure(const ErrorCode: integer; ErrMessage: string) of object;
-{$IFDEF USE_Extras}
- TMSHTMLEvent = procedure(Event: IHTMLEventObj) of object;
- TMousePositionEvent = procedure(const X, Y: integer) of object;
- TEvtDispIdEvent = procedure(const inEvtDispId: integer) of object;
- TMouseButtonEvent = procedure(const Button: integer) of object;
- TKeyStateEvent = procedure(const CapsLock, NumLock, InsertKey, altKey, ctrlKey, shiftKey: Boolean) of object;
- TKeyPressEvent = procedure(const Key: integer) of object;
- TtypeEvent = procedure(const type_: string) of object;
- TtagNameEvent = procedure(const tagName: string) of object;
- TtoStringEvent = procedure(const toString: string) of object;
- TinnerHtmlEvent = procedure(const innerHtml: string) of object;
- TinnerTextEvent = procedure(const innerText: string) of object;
-{$ENDIF}
-type
- IOleContainer = interface(IParseDisplayName)
- // The IParseDisplayName interface parses a displayable name string to convert it
- // into a moniker for custom moniker implementations.
- ['{0000011B-0000-0000-C000-000000000046}']
- function EnumObjects(grfFlags: Longint; out Enum: IEnumUnknown): HRESULT; stdcall;
- function LockContainer(fLock: BOOL): HRESULT; stdcall;
- end;
-
-type
- TImpIOleContainer = class(TObject, IOleContainer)
- protected
- m_cRef: DWORD;
- public
- function _AddRef: Integer; overload; stdcall;
- function _Release: Integer; overload; stdcall;
- constructor Create; virtual;
- destructor Destroy; override;
- function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
- function ParseDisplayName(const bc: IBindCtx; pszDisplayName: POleStr;
- out chEaten: Longint; out mkOut: IMoniker): HRESULT; stdcall;
- function EnumObjects(grfFlags: Longint; out Enum: IEnumUnknown): HRESULT; stdcall;
- function LockContainer(fLock: BOOL): HRESULT; stdcall;
- end;
-
- TEditDesigner = class(TComponent,
- IUnknown, // http://msdn.microsoft.com/en-us/library/ms680509.aspx
- IHtmlEditDesigner, // Provides methods that enable clients using the editor to intercept Windows Internet Explorer events
- // so that they can change the default behavior of the editor.
- // http://msdn.microsoft.com/en-us/library/aa704056(VS.85).aspx
- IHTMLEditHost, // Provides a method to customize the way that elements are resized and moved.
- // http://msdn.microsoft.com/en-us/library/aa704054(VS.85).aspx
- IHTMLEditHost2 // Extends IHTMLEditHost with a method that enables you to intercept drag-and-drop operations
- // at a stage earlier than the ondragstart event.
- // http://msdn.microsoft.com/en-us/library/aa704052(VS.85).aspx
- )
-
- private
- bDesignMode: Boolean;
- bConnected: Boolean;
- FAbout: string;
- FEmbeddedWB: TEmbeddedWB;
- FEnable: Boolean;
- FOnError: TErrorEvent;
-{$IFDEF USE_Extras}
- sl: TStringList;
- FOnInnerHtml: TinnerHtmlEvent;
- FOnInnerText: TinnerTextEvent;
- FOnEvtDispId: TEvtDispIdEvent;
- FOnKeyState: TKeyStateEvent;
- FOnKeyPress: TKeyPressEvent;
- FOnMousePosition: TMousePositionEvent;
- FOnMouseButton: TMouseButtonEvent;
- FonType_: TtypeEvent;
- FOnToString: TtoStringEvent;
- FOntagName: TtagNameEvent;
-{$ENDIF}
- FPostEditorEventNotify: TPostEditorEventNotify;
- FPostHandleEvent: TPostHandleEvent;
- FPreHandleEvent: TPreHandleEvent;
- FPreDrag: TPreDrag;
- FSnapRect: TSnapRect;
- FTranslateAccelerator: TTranslateAccelerator;
- procedure SetAbout(Value: string);
- protected
- {IHTMLEditHost}
- function SnapRect(const pIElement: IHTMLElement; var prcNew: TRECT; eHandle: _ELEMENT_CORNER): HRESULT; stdcall;
- {IHTMLEditHost2}
- function PreDrag: HRESULT; stdcall;
- {IHtmlEditDesigner}
- function PreHandleEvent(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- function PostHandleEvent(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- function TranslateAccelerator(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- function PostEditorEventNotify(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- procedure Loaded; override;
-
- public
- procedure SetDesignModeOff;
- procedure SetDesignModeOn;
- function ConnectDesigner: integer;
- function RemoveDesigner: integer;
-{$IFDEF USE_Extras}
- function SaveToFile(FileName: WideString): HRESULT;
- function SaveCompleted(FileName: WideString): HRESULT;
- function LoadFromFile(FileName: WideString): HRESULT;
- function IsDirty: HRESULT;
- function GetHTMLDoc2FromWB: IHTMLDocument2;
- function RGBToBGR(RGB: TColor): Integer;
- function ColorStr(RGB: TColor): string;
- procedure InsertHyperlink;
- procedure InsertImage;
- procedure InsertRadioButton;
- procedure SetFontBold;
- procedure SetFontUnderline;
- procedure SetFontItalic;
- procedure ExecCommand(Command: Widestring; ShowUI: Boolean; Value: Integer);
- procedure InsertHTML(HTML: string);
- function GetPageProperties: TStrings;
-{$ENDIF}
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure BeforeDestruction; override;
- function GetContainer(out container: IOleContainer): HRESULT;
- published
- property About: string read fAbout write SetAbout;
- property Enable: Boolean read FEnable write FEnable default True;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property OnPreDrag: TPreDrag read FPreDrag write FPreDrag;
- property OnPreHandle: TPreHandleEvent read FPreHandleEvent write FPreHandleEvent;
- property OnPostHandle: TPostHandleEvent read FPostHandleEvent write FPostHandleEvent;
- property OnPostEditorNotify: TPostEditorEventNotify read FPostEditorEventNotify write FPostEditorEventNotify;
- property OnError: TErrorEvent read FOnError write FOnError;
-{$IFDEF USE_Extras}
- property OnInnerText: TInnerTextEvent read FOnInnerText write FOnInnerText;
- property OnInnerHtml: TInnerHtmlEvent read FOnInnerHtml write FOnInnerHtml;
- property OnKeyPress: TKeyPressEvent read FOnKeyPress write FOnKeyPress;
- property OnKeyState: TKeyStateEvent read FOnKeyState write FOnKeyState;
- property OnTranslateAccelerator: TTranslateAccelerator read FTranslateAccelerator write FTranslateAccelerator;
- property OnMousePosition: TMousePositionEvent read FOnMousePosition write FOnMousePosition;
- property OnMouseButton: TMouseButtonEvent read FOnMouseButton write FOnMouseButton;
- property OnEvtDispId: TEvtDispIdEvent read FOnEvtDispId write FOnEvtDispId;
- property OnSnapRect: TSnapRect read FSnapRect write FSnapRect;
- property OnType_: TtypeEvent read FOnType_ write FOnType_;
- property OnToString: TtoStringEvent read FOnToString write FOnToString;
- property OnTagName: TtagNameEvent read FOnTagName write FOnTagName;
-{$ENDIF}
- end;
-
-implementation
-
-uses
- SysUtils;
-
-var
- EditServices: IHTMLEditServices;
-
-//--{TImpIOleContainer}---------------------------------------------------------
-
-constructor TImpIOleContainer.Create;
-begin
- inherited;
- m_cRef := 0;
-end;
-
-destructor TImpIOleContainer.Destroy;
-begin
- inherited;
-end;
-
-function TImpIOleContainer.EnumObjects(grfFlags: Longint; out Enum: IEnumUnknown): HRESULT;
-begin
- Result := E_NOINTERFACE;
-end;
-
-function TImpIOleContainer.LockContainer(fLock: BOOL): HRESULT;
-begin
- Result := E_NOINTERFACE;
-end;
-
-function TImpIOleContainer.ParseDisplayName(const bc: IBindCtx; pszDisplayName: POleStr;
- out chEaten: Longint; out mkOut: IMoniker): HRESULT;
-begin
- Result := E_NOINTERFACE;
-end;
-
-function TImpIOleContainer.QueryInterface(const IID: TGUID; out Obj): HRESULT;
-begin
- Result := S_FALSE;
- if GetInterface(IID, Obj) then
- begin
- Result := S_OK;
- Exit;
- end;
-{$IFDEF DELPHI7_UP}
- if (GUIDToString(IID_IUnknown) = GUIDToString(IID)) or
- (GUIDToString(IID_IOleContainer) = GUIDToString(IID)) then
- begin
- IOleContainer(Obj) := Self;
- Result := S_OK;
- self._AddRef;
- end;
-{$ENDIF}
-end;
-
-function TImpIOleContainer._AddRef: Integer;
-begin
- inc(m_cRef);
- Result := m_cRef;
-end;
-
-function TImpIOleContainer._Release: Integer;
-begin
- Dec(m_cRef);
- Result := m_cRef;
- if m_cRef = 0 then
- Free;
-end;
-
-//--{ TEditDesigner }-----------------------------------------------------------
-
-function TEditDesigner.GetContainer(out container: IOleContainer): HRESULT;
-var
- aCntr: TImpIOleContainer;
-begin
- aCntr := TImpIOleContainer.Create;
- Result := aCntr.QueryInterface(IID_IOleContainer, container);
-end;
-
-constructor TEditDesigner.Create;
-begin
- FAbout := 'TEditDesigner - from http://www.bsalsa.com/';
- FEnable := True;
-{$IFDEF USE_Extras}
- sl := TStringList.Create;
-{$ENDIF}
- inherited;
-end;
-
-destructor TEditDesigner.Destroy;
-begin
-{$IFDEF USE_Extras}
- sl.Free;
-{$ENDIF}
- inherited Destroy;
-end;
-
-procedure TEditDesigner.BeforeDestruction();
-begin
- if bConnected then
- EditServices.RemoveDesigner(Self);
- inherited BeforeDestruction;
-end;
-
-procedure TEditDesigner.Loaded;
-begin
-{$IFDEF USE_Extras}
- sl.Clear;
-{$ENDIF}
- bConnected := False;
- bDesignMode := False;
- if not (csDesigning in ComponentState) then
- if Assigned(FEmbeddedWB) and FEnable and not FEmbeddedWB.DocumentLoaded then
- FEmbeddedWB.AssignEmptyDocument;
- inherited;
-end;
-
-function TEditDesigner.SnapRect(const pIElement: IHTMLElement; var prcNew: TRECT;
- eHandle: _ELEMENT_CORNER): HRESULT;
-begin
- Result := S_OK;
- if Assigned(FSnapRect) and FEnable then
- Result := FSnapRect(pIElement, prcNew, eHandle);
-end;
-
-function TEditDesigner.PreDrag: HRESULT;
-begin
- Result := S_OK;
- if Assigned(FPreDrag) and FEnable then
- Result := FPreDrag;
-end;
-
-function TEditDesigner.PostEditorEventNotify(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
- if FEnable and not (csDesigning in ComponentState) then
- begin
-{$IFDEF USE_Extras}
- if (inEvtDispId = -606) and Assigned(FOnMousePosition) then
- FOnMousePosition(pIEventObj.clientX, pIEventObj.clientY);
-{$ENDIF}
- if Assigned(FPostEditorEventNotify) then
- Result := FPostEditorEventNotify(inEvtDispID, pIEventObj);
- end;
-end;
-
-function TEditDesigner.PostHandleEvent(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
- if FEnable and not (csDesigning in ComponentState) then
- begin
- if Assigned(FPostHandleEvent) and FEnable then
- Result := FPostHandleEvent(inEvtDispID, pIEventObj);
- end;
-end;
-
-function CheckCapsLock: boolean;
-begin
- if Odd(GetKeyState(VK_CAPITAL)) then
- Result := True
- else
- Result := False;
-end;
-
-function CheckInsertKey: Boolean;
-begin
- if Odd(GetKeyState(VK_INSERT)) then
- Result := True
- else
- Result := False;
-end;
-
-function CheckNumLock: Boolean;
-begin
- if Odd(GetKeyState(VK_NUMLOCK)) then
- Result := True
- else
- Result := False;
-end;
-
-function TEditDesigner.PreHandleEvent(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-{$IFDEF USE_Extras}
-var
- srcElement: IHTMLElement;
-{$ENDIF}
-begin
- Result := S_FALSE;
- if FEnable and not (csDesigning in ComponentState) then
- begin
- if Assigned(FPreHandleEvent) then
- FPreHandleEvent(inEvtDispID, pIEventObj);
-{$IFDEF USE_Extras}
- srcElement := pIEventObj.srcElement;
- if Assigned(srcElement) then
- begin
- if Assigned(FOnKeyState) then
- FOnKeyState(CheckCapsLock, CheckNumLock, CheckInsertKey, pIEventObj.altKey, pIEventObj.ctrlKey, pIEventObj.shiftKey);
- if Assigned(FOnEvtDispId) then
- FOnEvtDispId(inEvtDispId);
- if Assigned(FOnMouseButton) then
- FOnMouseButton(pIEventObj.button);
- if Assigned(FOnKeyPress) then
- FOnKeyPress(pIEventObj.keyCode);
- if Assigned(FOnTagName) then
- FOnTagName(pIEventObj.srcElement.tagName);
- if Assigned(FOnType_) then
- FonType_(pIEventObj.type_);
- if Assigned(FOnToString) then
- FOnToString(pIEventObj.srcElement.toString);
- if Assigned(FOnInnerText) then
- FOnInnerText(pIEventObj.srcElement.innerText);
- if Assigned(FOnInnerHTML) then
- FOnInnerHTML(pIEventObj.srcElement.innerHTML);
- end;
-{$ENDIF}
- end;
-end;
-
-function TEditDesigner.TranslateAccelerator(inEvtDispId: Integer;
- const pIEventObj: IHTMLEventObj): HRESULT;
-begin
- Result := S_FALSE;
- if FEnable and not (csDesigning in ComponentState) then
- begin
- if Assigned(FTranslateAccelerator) then
- Result := FTranslateAccelerator(inEvtDispID, pIEventObj);
- end;
-end;
-
-function TEditDesigner.ConnectDesigner: integer;
-begin
- Result := S_FALSE;
- if FEnable and not (csDesigning in ComponentState) then
- begin
- if not Assigned(FEmbeddedWB) then
- begin
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Please assign a TEmbeddedWB!');
- Exit;
- end;
- FEmbeddedWB.Wait;
- SetDesignModeOn;
- Result := (FEmbeddedWB.Document as IServiceProvider).Queryservice(SID_SHTMLEDITSERVICES, IID_IHTMLEditServices, EditServices);
- if Result = S_OK then
- Result := EditServices.AddDesigner(Self);
- if ((Result <> S_OK) and Assigned(FOnError)) then
- FOnError(E_FAIL, 'Failed loading the designer!')
- else
- bConnected := True;
- end;
-end;
-
-function TEditDesigner.RemoveDesigner: integer;
-begin
- Result := S_FALSE;
- if FEnable and not (csDesigning in ComponentState) then
- begin
- if not Assigned(FEmbeddedWB) and Assigned(FOnError) and (FEmbeddedWB.Document = nil) then
- begin
- FOnError(E_FAIL, 'Failed (Document = nil).');
- Exit;
- end
- else
- if FEmbeddedWB.Busy then
- begin
- FEmbeddedWB.Stop;
- FEmbeddedWB.Wait;
- end;
- Result := EditServices.RemoveDesigner(Self);
- if (Result <> S_OK) and (Assigned(FOnError)) then
- FOnError(Result, 'Failed to RemoveDesigner.')
- else
- bConnected := false;
- SetDesignModeOff;
- end;
-end;
-
-procedure TEditDesigner.SetDesignModeOn;
-begin
- if not Assigned(FEmbeddedWB) then
- begin
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Please assign a TEmbeddedWB!');
- Exit;
- end;
- if not (csDesigning in ComponentState) then
- begin
- FEmbeddedWB.Wait;
- try
- (FEmbeddedWB.document as IHTMLDocument2).designMode := 'On';
- bDesignMode := True;
- except
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Failed to set DesignMode state On.');
- end;
- end;
-end;
-
-procedure TEditDesigner.SetDesignModeOff;
-begin
- if not Assigned(FEmbeddedWB) then
- begin
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Please assign a TEmbeddedWB!');
- Exit;
- end;
- if not (csDesigning in ComponentState) then
- begin
- try
- (FEmbeddedWB.document as IHTMLDocument2).designMode := 'Off';
- bDesignMode := False;
- except
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Failed to set DedignMode state Off.');
- end;
- end;
-end;
-
-procedure TEditDesigner.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-{$IFDEF USE_Extras}
-
-function TEditDesigner.GetHTMLDoc2FromWB: IHTMLDocument2;
-begin
- if Assigned(FEmbeddedWB) then
- Result := FEmbeddedWB.Document as IHTMLDocument2
- else
- Result := nil;
-end;
-
-function TEditDesigner.LoadFromFile(FileName: WideString): HRESULT;
-begin
- if Assigned(FEmbeddedWB) then
- Result := (GetHTMLDoc2FromWB as IPersistFile).Load(PWideChar(FileName), 0)
- else
- Result := E_FAIL;
-end;
-
-function TEditDesigner.SaveToFile(FileName: WideString): HRESULT;
-begin
- if Assigned(FEmbeddedWB) then
- Result := (GetHTMLDoc2FromWB as IPersistFile).Save(PWideChar(FileName), True)
- else
- Result := E_FAIL;
-end;
-
-function TEditDesigner.SaveCompleted(FileName: WideString): HRESULT;
-begin
- if Assigned(FEmbeddedWB) then
- Result := (GetHTMLDoc2FromWB as IPersistFile).SaveCompleted(PWideChar(FileName))
- else
- Result := E_FAIL;
-end;
-
-function TEditDesigner.IsDirty: HRESULT;
-begin
- if Assigned(FEmbeddedWB) then
- Result := (GetHTMLDoc2FromWB as IPersistFile).IsDirty
- else
- Result := E_FAIL;
-end;
-
-function TEditDesigner.RGBToBGR(RGB: TColor): Integer;
-begin
- Result := (RGB and $000000FF) shl 16 + (RGB and $0000FF00) + (RGB and $00FF0000) shr 16;
-end;
-
-function TEditDesigner.ColorStr(RGB: TColor): string;
-begin
- Result := '#' + IntToHex(RGBToBGR(RGB), 6);
-end;
-
-procedure TEditDesigner.ExecCommand(Command: Widestring; ShowUI: Boolean; Value: Integer);
-begin
- if Assigned(FEmbeddedWB) then
- GetHTMLDoc2FromWB.execCommand(Command, showUI, Value);
-end;
-
-procedure TEditDesigner.InsertHyperlink;
-begin
- if Assigned(FEmbeddedWB) then
- ExecCommand('CreateLink', True, 0);
-end;
-
-procedure TEditDesigner.InsertImage;
-begin
- if Assigned(FEmbeddedWB) then
- ExecCommand('InsertImage', True, 0);
-end;
-
-procedure TEditDesigner.InsertRadioButton;
-begin
- if Assigned(FEmbeddedWB) then
- ExecCommand('InsertInputRadio', True, 0);
-end;
-
-procedure TEditDesigner.SetFontBold;
-begin
- if Assigned(FEmbeddedWB) then
- ExecCommand('Bold', False, 0);
-end;
-
-procedure TEditDesigner.SetFontUnderline;
-begin
- if Assigned(FEmbeddedWB) then
- ExecCommand('Underline', False, 0);
-end;
-
-procedure TEditDesigner.SetFontItalic;
-begin
- if Assigned(FEmbeddedWB) then
- ExecCommand('Italic', False, 0);
-end;
-
-procedure TEditDesigner.InsertHTML(HTML: string);
-var
- Sel: IHTMLSelectionObject;
- Range: IHTMLTxtRange;
- Doc: IHTMLDocument2;
-begin
- if FEnable and Assigned(FEmbeddedWB) and (not (csDesigning in ComponentState)) then
- begin
- Doc := FEmbeddedWB.Doc2;
- if Assigned(Doc) then
- begin
- Sel := Doc.selection;
- if Assigned(Sel) then
- begin
- if (Sel.type_ = 'None') or (Sel.type_ = 'Text') then
- begin
- Range := Sel.createRange as IHTMLTxtRange;
- Range.pasteHTML(HTML);
- end;
- end;
- end;
- end;
-end;
-
-function TEditDesigner.GetPageProperties: TStrings;
-var
- Doc: IHTMLDocument2;
-begin
- sl.Clear;
- if Assigned(FEmbeddedWB) and FEnable and not (csDesigning in ComponentState) then
- begin
- FEmbeddedWB.Wait;
- Doc := FEmbeddedWB.Doc2;
- if (Assigned(Doc)) and (Doc.readyState = 'complete') and (Doc <> nil) then
- with sl do
- try
- Add('URL: ' + Doc.url);
- Add('Title: ' + Doc.title);
- Add('Protocol: ' + Doc.protocol);
- Add('Location: ' + Doc.location.href);
- Add('Path Name: ' + Doc.location.pathname);
- Add('Port: ' + Doc.location.port);
- Add('Protocol: ' + Doc.location.protocol);
- Add('Host: ' + Doc.location.host);
- Add('Hash: ' + Doc.location.hash);
- Add('Search: ' + Doc.location.search);
- Add('Last Modified: ' + Doc.lastModified);
- Add('Security: ' + Doc.security);
- Add('Name Property: ' + Doc.nameProp);
- Add('Language: ' + Doc.Body.language);
- Add('Lang: ' + Doc.Body.lang);
- Add('Design Mode: ' + Doc.designMode);
- Add('Charset: ' + Doc.charset);
- Add('Default Charset: ' + Doc.defaultCharset);
- Add('Cookie: ' + Doc.cookie);
- Add('Referrer: ' + Doc.Referrer);
- Add('Doc State: ' + Doc.readyState);
- except
- on E: Exception do
- begin
- if Assigned(FOnError) then
- FOnError(E_Fail, E.Message);
- Result := sl;
- Exit;
- end;
- end;
- end
- else
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Please assign a TEmbeddedWB and load a document.');
- Result := sl;
-end;
-{$ENDIF}
-
-initialization
- OleInitialize(nil);
-
-finalization
- OleUninitialize;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/Edithost.pas b/windows/src/ext/embeddedwb/Source/Edithost.pas
deleted file mode 100644
index 8e12a0cbe1137f78f906df473c0bcbe832b1cd17..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/Edithost.pas
+++ /dev/null
@@ -1,130 +0,0 @@
-//***********************************************************
-// TEdithost *
-// *
-// Freeware Component *
-// For Delphi *
-// by *
-// Per Lindsø Larsen * // per.lindsoe@larsen.dk *
-// and bsalsa@gmail.com *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: Edithost.pas,v 1.3.2.1 2006/11/29 22:13:00 sergev Exp $
-
-unit Edithost;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, MSHTML_EWB, Classes, Controls;
-
-const
- S_OK = 0;
-{$EXTERNALSYM S_OK}
- S_FALSE = $00000001;
-{$EXTERNALSYM S_FALSE}
- SID_SHTMLEditHost: TGUID = (D1: $3050F6A0; D2: $98B5; D3: $11CF; D4: ($BB,
- $82, $00, $AA, $00, $BD, $CE, $0B));
-
-type
-
- TSnapRect = function(const pIElement: IHTMLElement; var prcNew: TRECT;
- eHandle: _ELEMENT_CORNER): HResult of object;
- TPreDrag = function: HResult of object;
-
- TEditHost = class(TComponent,
- IUnknown, // http://msdn.microsoft.com/en-us/library/ms680509(VS.85).aspx
- IHTMLEditHost, // http://msdn.microsoft.com/en-us/library/aa704054.aspx
- IHTMLEditHost2 // http://msdn.microsoft.com/en-us/library/aa704052(VS.85).aspx
- )
-
- private
- { Private declarations }
- FAbout: string;
- FSnapRect: TSnapRect;
- FPreDrag: TPreDrag;
- FEnabled: Boolean;
- procedure SetAbout(const Value: string);
- protected
- { Protected declarations }
- {IHTMLEditHost2}
- function PreDrag: HResult; stdcall;
- {IHTMLEditHost}
- function SnapRect(const pIElement: IHTMLElement; var prcNew: TRECT; eHandle:
- _ELEMENT_CORNER): HResult; stdcall;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- { Public declarations }
- published
- { Published declarations }
- property About: string read FAbout write SetAbout;
- property OnSnapRect: TSnapRect read FSnapRect write FSnapRect;
- property OnPreDrag: TPreDrag read FPreDrag write FPreDrag;
- property Enabled: Boolean read FEnabled write FEnabled default True;
- end;
-
-implementation
-
-{ TEditHost }
-
-constructor TEditHost.Create;
-begin
- FAbout := 'TEditHost - Help & Support http://www.bsalsa.com/';
- FEnabled := True;
- inherited;
-end;
-
-destructor TEditHost.Destroy;
-begin
- inherited Destroy;
-end;
-
-function TEditHost.SnapRect(const pIElement: IHTMLElement;
- var prcNew: TRECT; eHandle: _ELEMENT_CORNER): HResult;
-begin
- Result := S_OK;
- if FEnabled then
- if Assigned(FSnapRect) and FEnabled then
- Result := FSnapRect(pIElement, prcNew, eHandle);
-end;
-
-function TEditHost.PreDrag: HResult;
-begin
- Result := S_OK;
- if FEnabled then
- if Assigned(FPreDrag) and FEnabled then
- Result := FPreDrag;
-end;
-
-procedure TEditHost.SetAbout(const Value: string);
-begin
- Exit;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EmbeddedWB.pas b/windows/src/ext/embeddedwb/Source/EmbeddedWB.pas
deleted file mode 100644
index 5a539aca0787202ad0d9703f1c3ef7f369fd985d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EmbeddedWB.pas
+++ /dev/null
@@ -1,3575 +0,0 @@
-(*
- Name: EmbeddedWB
- Copyright: Copyright (C) 2003-2017 SIL International.
- Documentation:
- Description:
- Create Date: 1 May 2014
-
- Modified Date: 1 May 2014
- Authors: mcdurdin
- Related Files:
- Dependencies:
-
- Bugs:
- Todo:
- Notes:
- History: 01 May 2014 - mcdurdin - I4214 - V9.0 - Keyman spams message 0x0401 and frequent timer messages too
-
-*)
-//*************************************************************
-// TEmbeddedWB *
-// *
-// Freeware Component *
-// For Delphi 5 to Delphi XE *
-// by *
-// Per Lindso Larsen *
-// Developing Team: *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// Thomas Stutz -(smot777@yahoo.com) *
-// *
-// Contributors: *
-// Neil Moss (NeilM@BuchananInternational.com) *
-// Mathias Walter (mich@matze.tv) *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/change/modify the component under 4 conditions:
-1. In your web site, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EmbeddedWB;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, Messages,
- Classes, EwbCore, Dialogs, MSHTML_EWB, EwbAcc, Controls, Graphics, Forms,
- ExtCtrls, ActiveX, ShlObj, SysUtils, SHDocVw_EWB, EwbCoreTools, UrlMon
-{$IFDEF DELPHI6_UP}, Variants{$ENDIF}
-{$IFDEF Enable_EwbMSHTMLEvents}, MSHTMLEvents{$ENDIF}
-{$IFDEF AutoUse_EwbControl}, EwbControlComponent{$ENDIF};
-
-type
- TEmbeddedWB = class;
-
- {Private events}
- TShowDialogEvent = procedure(Sender: TObject; h: THandle; StyleEx: Integer; OldCaption: string;
- var NewCaption: WideString; var Cancel: Boolean) of object;
- TMsgEvent = procedure(Sender: TObject; var Msg: TMessage; var Handled: Boolean) of object;
- TOnBusyWait = procedure(Sender: TEmbeddedWB; AStartTime: Cardinal; var TimeOut: Cardinal; var Cancel: Boolean) of object;
- TUserAgentMode = (uaDefault, uaInternal, uaRegistry);
- TKeyEventEx = procedure(Sender: TObject; var Key: Word; ScanCode: Word;
- Shift: TShiftState) of object;
- THookChildWindowEvent = procedure(Sender: TObject; WinHandle: HWND; WinClass: string; var Handled: Boolean) of object;
- THTMLCodeChangeEvent = procedure(Sender: TObject; HTMLCode: TStrings; var Handled: Boolean) of object;
-
- TScrollIntoView = (sivNoScroll, sivFirstMatch, sivLastMatch);
- TSearchFlags = set of (sfMatchWholeWord, sfMatchCase);
- TVariantArray = array of OleVariant;
-
-{$IFDEF USE_EwbTools}
- TSearchResult = (srNotFound, srEndOf, srFound);
- TSearchResults = set of TSearchResult;
- TSearchDirections = (sdDown, sdUp);
-{$ENDIF}
-
- {============================================================================}
- // TProxySettings
- {============================================================================}
- TProxySettings = class(TPersistent)
- private
- FPort: Integer;
- FAddress: string;
- FUserName: string;
- FPassword: string;
- FAutoLoadProxy: Boolean;
- FUserAgent: string;
- FBypass: string;
- public
-{$IFDEF USE_EwbTools}
- function SetProxy(UserAgent, Address, Bypass: string): Boolean; overload;
- function SetProxy(UserAgent, Address, UserName, Password: string; Port: Integer): Boolean; overload;
- function SetProxyFromPAC(UserAgent, PACFile: string): Boolean;
-{$ENDIF}
- published
- property AutoLoadProxy: Boolean read FAutoLoadProxy write FAutoLoadProxy default False;
- property Port: Integer read FPort write FPort default 80;
- property Password: string read FPassword write FPassword;
- property Address: string read FAddress write FAddress;
- property UserName: string read FUserName write FUserName;
- property UserAgent: string read FUserAgent write FUserAgent;
- property Bypass: string read FBypass write FBypass;
- end;
-
- {============================================================================}
- // TDialogBoxes
- {============================================================================}
- TDialogBoxes = class(TPersistent)
- private
- FDisableAll: Boolean;
- FReplaceCaption: Boolean;
- FReplaceIcon: Boolean;
- FNewCaption: WideString;
- published
- property DisableAll: Boolean read FDisableAll write FDisableAll default False;
- property ReplaceCaption: Boolean read FReplaceCaption write FReplaceCaption default True;
- property ReplaceIcon: Boolean read FReplaceIcon write FReplaceIcon default True;
- property NewCaption: WideString read FNewCaption write FNewCaption;
- end;
-
- {============================================================================}
- // TDisableErrors
- {============================================================================}
- TDisableErrors = class(TPersistent)
- private
- FEnableDDE: Boolean;
- FfpExceptions: Boolean;
- FScriptErrorsSuppressed: Boolean;
- procedure SetfpExceptions(const Value: Boolean);
- published
- property EnableDDE: Boolean read FEnableDDE write FEnableDDE default True;
- property fpExceptions: Boolean read FfpExceptions write SetfpExceptions default True;
- property ScriptErrorsSuppressed: Boolean read FScriptErrorsSuppressed write FScriptErrorsSuppressed default True;
- end;
-
- {============================================================================}
- // TVisualEffects
- {============================================================================}
- TVisualEffects = class(TPersistent)
- private
- FDisableSounds: Boolean;
- FTextSize: Integer;
- published
- property TextSize: Integer read FTextSize write FTextSize default 2;
- property DisableSounds: Boolean read FDisableSounds write FDisableSounds default False;
- end;
-
- {============================================================================}
- // TMargins
- {============================================================================}
- TMeasure = (mMetric, mUS, mUnknown);
- TPrintOrientationOption = (poPortrait, poLandScape);
- TMargins = class(TPersistent)
- private
- FLeft: Real;
- FRight: Real;
- FTop: Real;
- FBottom: Real;
- published
- property Left: Real read FLeft write FLeft;
- property Right: Real read FRight write FRight;
- property Top: Real read FTop write FTop;
- property Bottom: Real read FBottom write FBottom;
- end;
-
- {============================================================================}
- // TPrintOptions
- {============================================================================}
- TPrintOptions = class(TPersistent)
- private
- FEnabled: Boolean;
- FHTMLHeader: TStrings;
- FHeader: string;
- FFooter: string;
- FMargins: TMargins;
- FOrientation: TPrintOrientationOption;
- FMeasure: TMeasure;
- procedure SetHTMLHeader(const Value: Tstrings);
- public
- HideSetup: Boolean;
- property Measure: TMeasure read FMeasure;
- published
- property Enabled: Boolean read FEnabled write FEnabled default False;
- property Margins: TMargins read FMargins write FMargins;
- property Header: string read FHeader write FHeader;
- property HTMLHeader: TStrings read FHTMLHeader write SetHTMLHeader;
- property Footer: string read FFooter write FFooter;
- property Orientation: TPrintOrientationOption read FOrientation write FOrientation;
- end;
-
- {============================================================================}
- // TEmbeddedWB
- {============================================================================}
- TEmbeddedWB = class(TCustomEmbeddedWB,
- IDocHostUIHandler, // http://msdn.microsoft.com/en-us/library/aa753260(VS.85).aspx
- IInternetProtocol, // http://msdn.microsoft.com/en-us/library/aa767883(VS.85).aspx
- IInternetProtocolRoot) // http://msdn.microsoft.com/en-us/library/ms835683.aspx
- private
- FAbout: string;
- FBindInfo: IInternetBindInfo;
- FDestroying: Boolean;
- FDialogBoxes: TDialogBoxes;
- FDisabledPopupMenuItems: TIEPopupMenuItems;
- FDisableErrors: TDisableErrors;
- FEnableMessageHandler: Boolean;
- FHostCSS: string;
- FHostNS: string;
- FHTMLChar: Char;
- FHTMLCode: TStringList;
- FModified: Boolean;
- FName: string;
- FPrintOptions: TPrintOptions;
- FProtSink: IInternetProtocolSink;
- FProxySettings: TProxySettings;
- FResizing: Boolean;
- FRuntimeMeasure: TMeasure;
- FSearchText: string;
- FSilent: Boolean;
- FTextRange: IHTMLTxtRange;
- FUserAgent: string;
- FUserAgentInt: string;
- FUserAgentMode: TUserAgentMode;
- FUserAgentReg: string;
- FUserAgentRegSet: Boolean;
- FVisible: Boolean;
- FVisualEffects: TVisualEffects;
- FStopped: Boolean;
- FWinXPSP2orLater: Boolean;
- FWndProcSubClassed: Boolean;
-
- FOnBusyWait: TOnBusyWait;
- FOnClick: TMouseEvent;
- FOnCloseQuery: TCloseQueryEvent;
- FOnKeyDown: TKeyEventEx;
- FOnKeyUp: TKeyEventEx;
- FOnMessage: TMsgEvent;
- FOnShowDialog: TShowDialogEvent;
- FOnVisible: TEWBOnVisible;
- FOnHTMLCodeChange: THTMLCodeChangeEvent;
-
- {=ParentFormWndProc =============================}
-
-{$IFDEF Enable_HookParentFormWndProc}
- FOldWindowProc: TWndMethod;
- FParentForm: TForm;
-{$ENDIF}
-
- {=Mouse Events ==================================}
-{$IFDEF Enable_MouseEnterLeaveEvents}
- FOnMouseEnter: TNotifyEvent;
- FOnMouseLeave: TNotifyEvent;
-{$ENDIF}
-
- {=SubClass ChildWindows =========================}
-
-{$IFDEF Enable_SubClassChildWindows}
- FDefInetExplorerServerProc: Pointer;
- FDefShellObjViewProc: Pointer;
- FDefSysListViewObjProc: Pointer;
- FShellDocObjViewHandle: THandle;
- FSysListViewHandle: THandle;
- FInetExplorerServerHandle: THandle;
- FShellDocObjInstance: Pointer;
- FInetExplorerServerInstance: Pointer;
- FSysListViewObjInstance: Pointer;
-{$ENDIF}
-
-{$IFDEF Enable_EwbMSHTMLEvents}
- FSinkComponent: TMSHTMLHTMLDocumentEvents;
-{$ENDIF}
-
-{$IFDEF USE_EwbTools}
- FLastSearchDirection: TSearchDirections;
-{$ENDIF}
-
-{$IFDEF DELPHI12_UP}
- FEncoding: TEncoding;
-{$ENDIF}
- {=UserAgent stuff ===============================}
- function OnSetUserAgentEvent(var UserAgent: string): HRESULT;
- procedure RestoreUserAgentReg;
- procedure SetUserAgent(const Value: string);
- procedure SetUserAgentInt;
- procedure SetUserAgentMode(Value: TUserAgentMode);
- procedure SetUserAgentReg;
- procedure UpdateUserAgent;
-
- {=Misc ==========================================}
- function GetDesginMode: Boolean;
- function GetModified: Boolean;
- function GetPrintValues: Boolean;
- procedure HTMLCodeChanged(Sender: TObject);
- procedure OnHookChildWindows(Sender: TObject);
- procedure SetAbout(Value: string);
- procedure SetDesginMode(Value: Boolean);
- procedure SetHTMLCode(Value: TStringList);
- procedure SetModified(Value: Boolean);
- procedure SetActiveControl(ParentForm: TCustomForm = nil);
- {=Events ========================================}
- procedure CMVisibleChanged(var MSG: TMessage); message CM_VISIBLECHANGED;
- procedure WMSetWBFocus(var Msg: TMessage); message WM_SETWBFOCUS;
- procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
-
-{$IFDEF Enable_MouseEnterLeaveEvents}
- procedure HandleMouseEnterLeaveEvents(var msg: TMessage);
-{$ENDIF}
-
-{$IFDEF Enable_HookParentFormWndProc}
- procedure HandleDialogBoxes(var AMsg: TMessage);
-{$ENDIF}
-
-{$IFDEF USE_EwbDDE}
- procedure DDEWndProc(var AMsg: TMessage);
-{$ENDIF}
-
-{$IFDEF Enable_HookParentFormWndProc}
- procedure UnHookParentFormWndProc;
- procedure FormWndProc(var AMsg: TMessage);
- procedure HookParentFormWndProc;
-{$ENDIF}
-
-{$IFDEF Enable_SubClassChildWindows}
- procedure ShellDocObjWndProc(var Msg: TMessage);
- procedure InetExplorerServerWndProc(var Msg: TMessage);
- procedure SysListViewWndProc(var Msg: TMessage);
- procedure InitEWBChildHook;
- procedure HookChildWindows;
- procedure UnHookChildWindows;
-{$ENDIF}
-
-{$IFDEF Enable_EwbMSHTMLEvents}
- procedure SetSinkComponent(Value: TMSHTMLHTMLDocumentEvents);
-{$ENDIF}
- protected
- FSearchTxtRange: IHTMLTxtRange;
- {IDocHostUIHandler Interface}
- function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
- {IInternetProtocolRoot Interface}
- function Abort(hrReason: HRESULT; dwOptions: DWORD): HRESULT; stdcall;
- function Continue(const ProtocolData: TProtocolData): HRESULT; stdcall;
- function Resume: HRESULT; stdcall;
- function Start(szUrl: PWideChar; OIProtSink: IInternetProtocolSink;
- OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HRESULT; stdcall;
- function Suspend: HRESULT; stdcall;
- function Terminate(dwOptions: DWORD): HRESULT; stdcall;
- {IInternetProtocol Interface}
- function Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult; stdcall;
- function Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD; out libNewPosition: ULARGE_INTEGER): HRESULT; stdcall;
- function LockRequest(dwOptions: DWORD): HRESULT; stdcall;
- function UnlockRequest: HRESULT; stdcall;
-{$IFDEF USE_EwbDDE}
- function DDEExecute(iwParam: WPARAM; ilParam: LPARAM): LRESULT;
- function DDEInitiate(iwParam: WPARAM; ilParam: LPARAM): LRESULT;
- function DDETerminate(iwParam: WPARAM; ilParam: LPARAM): BOOL;
-{$ENDIF}
- function PrintMarginStr(M: Real): string;
- function FilterPopupMenu: Boolean; override;
- procedure DoFilterPopupMenu(Sender: TObject; ID: DWORD; Menu: HMENU; const Context: IDispatch); override;
- function GetVisible: Boolean;
-
- procedure SetRegisterAsDropTarget(Value: Boolean); reintroduce;
- function GetRegisterAsDropTarget: Boolean; reintroduce;
- procedure SetRegisterAsBrowser(Value: Boolean); reintroduce;
- function GetRegisterAsBrowser: Boolean; reintroduce;
- procedure SetSilent(Value: Boolean); reintroduce;
- function GetSilent: Boolean; reintroduce;
- function GetName: string; reintroduce;
- procedure SetName(Value: string); reintroduce;
- function GetParent: TWinControl; reintroduce;
- procedure SetParent(Control: TWinControl); reintroduce;
- function GetHWND: Integer;
- procedure SetVisible(AValue: Boolean);
- procedure WndProc(var AMsg: TMessage); override;
- public
- SecurityManager: IInternetSecurityManager;
- ZoneManager: IInternetZoneManager;
- FResizable: Boolean;
- property Name: string read GetName write SetName;
- property HWND: Integer read GetHWND;
- property Parent: TWinControl read GetParent write SetParent;
- property Resizable: Boolean read FResizable write FResizable default True;
-{$IFDEF DELPHI12_UP}
- property Encoding: TEncoding read FEncoding write FEncoding;
-{$ENDIF}
- constructor Create(Owner: TComponent); override;
- destructor Destroy; override;
- procedure SetFocus; override;
- function Focused: Boolean; override;
-
- function LoadFrameFromStream(FrameNo: Integer; AStream: TStream): HRESULT;
- function LoadFrameFromStrings(FrameNo: Word; const AStrings: TStrings): HRESULT;
- function LoadFromStream(const AStream: TStream): HRESULT;
- function LoadFromStrings(const AStrings: TStrings): HRESULT; overload;
- function LoadFromStrings(const AStrings: TStrings; AddHtmlTags: Boolean): HRESULT; overload;
- function LoadFromString(const St: string): HRESULT; // by M.Grusha
- function LoadFromFile(const FileName: string): HRESULT; // by M.Grusha
- procedure LoadFromImage(Image: TImage);
-{$IFDEF DELPHI6_UP}
- function LoadFromWideString(const WideSt: WideString): HRESULT;
-{$ENDIF}
- function SaveFrameToFile(FrameNo: Word; const FName: string): HRESULT;
- function SaveFrameToStream(FrameNo: Integer; AStream: TStream): HRESULT;
- function SaveFrameToStrings(FrameNo: Integer; AStrings: TStrings): HRESULT;
- function SaveToFile(const FileName: string): HRESULT;
- function SaveToStream(AStream: TStream): HRESULT;
- function SaveToStrings(AStrings: TStrings): HRESULT;
-
- function DocumentLoaded: Boolean; overload;
- function DocumentLoaded(out Doc2: IHTMLDocument2): Boolean; overload;
- procedure AssignEmptyDocument(bWait: Boolean = False);
- function GetDocument: IHTMLDocument2;
- function GetFrame(FrameNo: Word): IWebbrowser2;
- procedure RefreshFrame(FrameNo: Word);
- function GetFrameFromDocument(SourceDoc: IHTMLDocument2; FrameNo: Integer): IWebBrowser2;
- function GetActiveFrame(): IHTMLDocument2; overload;
- function GetActiveFrame(Doc: IHTMLDocument2): IHTMLDocument2; overload;
- function GetActiveElement(Doc: IHTMLDocument2 = nil): IHTMLElement;
- function GetSelectedText(ReturnAsHTML: Boolean = False; bOnlyTopLevel: Boolean = False): string;
- function GetSelLength(bOnlyTopLevel: Boolean = False): Integer;
-
- function Copy: Boolean;
- function Cut: Boolean;
- function Paste: Boolean;
- function PasteSpecial: Boolean;
- function SelectAll: Boolean;
- function ClearSelection: Boolean;
- function Undo: Boolean;
- function Redo: Boolean;
- function Delete: Boolean;
-
- procedure Stop;
- procedure GoBack;
- procedure GoForward;
- function Go(Url: string; TimeOut: LongWord = 0): Boolean;
- function NavigateWait(const URL: WideString; TimeOut: LongWord = 0): Boolean;
- procedure NavigateFolder(CSIDL: Integer);
- procedure NavigatePidl(pidl: PItemIdlist);
- function NavigateToFrame(FrameList: string): IHTMLDocument2;
- function Wait(TimeOut: Longword = 0): Boolean;
- function WaitWhileBusy(TimeOut: Longword = 0): Boolean;
-
- class function GetIEHandle(WebBrowser: TEmbeddedWB; ClassName: string): HWND;
- function DownloadFile(SourceFile, DestFile: string): Boolean;
- function GetIEHomePage: string;
- function VariantIsObject(const value: OleVariant): Boolean;
- function IsCommandEnabled(sCmdId: WideString): Boolean;
- function QueryCommandValue(sCmdId: WideString): OleVariant;
- function InvokeCMD(InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant): HRESULT;
- procedure InvokeIEServerCommand(Cmd: Integer);
- procedure Loaded; override;
- procedure LoadSettings;
- procedure ShowImportExportFavoritesAndCookies;
- procedure ShowAboutBox; reintroduce;
-
-{$IFDEF USE_EwbTools}
- function AddHtmlToAboutBlank(StringToHtml: string): Boolean;
- function CheckIfInRestricredList(Host: string; SecureSite: Boolean): Boolean;
- function CheckIfInTrustedList(const Host: string; SecureSite: Boolean): Boolean;
- function CheckOnlineStatus: Boolean;
- function DecodeUrl(const InputStr: string): string;
- function DocumentSource: string; // By Bitmaker
- function DocumentSourceText: string; // By Bitmaker
- function EncodeUrl(const InputStr: string; const bQueryStr: Boolean): string;
- function ExecScriptEx(MethodName: string; ParamValues: array of const): OleVariant;
- function FillForm(FieldName: string; Value: string; ElementNr: Integer = -1): Boolean;
- function FrameCount: LongInt;
- function FrameCountFromDocument(SourceDoc: IHTMLDocument2): Integer;
- function GetBmpFromBrowser(FileName: string): Boolean;
- function GetCachedFileFromURL(ItemUrl: string): string;
- function GetCookie: string;
- function GetCookiesPath: string;
- function GetDefaultBrowserFromRegistry: string;
- function GetFavoritesPath: string;
- function GetFieldValue(FieldName: string): string;
- function GetHistoryPath: string;
- function GetIPAndHostName(var HostName, IPaddr, WSAErr: string): Boolean;
- function GetJpegFromBrowser(FileName: string; SourceHeight, SourceWidth, TargetHeight, TargetWidth: Integer): Boolean;
- function GetLastVisitedPage(var LastVisitedPage: string): Boolean;
- function GetSpecialFolderPath(CallerHandle: THandle; CSIDL: Integer): PChar;
- function GetSSLStatus(var SSLName, SSLDescription: string): Boolean;
- function GetURLSecurityZone(var ZoneName, ZoneDescription: string; var Icon: TIcon): Boolean;
- function GetWordAtCursor(const X, Y: Integer): string; // by M.Grusha
- function GetZoneAttributes(const URL: string): TZoneAttributes;
- function GetZoneIconToForm: Boolean;
- function HScrollBarPosition: Integer;
- function HScrollBarVisible: Boolean;
- function ImportCertFile(FileName, StoreType: string): Boolean;
- function IsGlobalOffline: Boolean;
- function IsValidProtocol(const URL: string): Boolean;
- function OpenClient(Client: string): Boolean;
- function OpenDialog: Boolean;
-
- function PageSetup(UsePrintOptions: Boolean = False): Boolean;
- function SaveDialog: Boolean;
- function SaveDialogEx(AFilter: string = ''; ATitle: string = ''): string;
- function SaveLastVisitedPage: Boolean;
- function SearchNextText(const Value: string; Direction: TSearchDirections = sdDown;
- AutoSelect: Boolean = True): TSearchResults; // by Grusha M.A.
- function SearchString(const strText: string): Boolean;
- function SearchText(const Value: string; const iPos: Integer = 1): IHTMLTxtRange; //by JJM
- function SetCharartersSet(const ACharactersSet: string; Refresh: Boolean = True): Boolean;
- function ShowFindDialog: Boolean;
- function ShowInternetOptions: Boolean;
- function ShowOrganizeFavorites: Boolean;
- function ShowPageProperties: Boolean;
- function URLFromFavorites(const dotURL: string): string;
- function UrlFromHistory(ShellFolder: IShellFolder; pidl: PItemIDList): string;
- function ViewPageSourceHtml: Boolean;
- function VScrollBarPosition: Integer;
- function VScrollBarVisible: Boolean;
- procedure AddToFavorites(URL, Title: string);
- procedure AddToRestrictedSiteList(URL: string);
- procedure AddToTrustedSiteList(URL: string);
- procedure ClearCache;
- procedure ClearHistory;
- procedure ClearTypedUrls;
- procedure CreateDesktopShortcut;
- procedure CreateNewMail;
- procedure DisableNavSound(bDisable: Boolean);
- procedure ExecScript(sExpression, sLanguage: string);
- procedure ExploreFolder(Path: string);
- procedure FillFormAndExcecute;
- procedure GetThumbnail(var Image: TImage);
- procedure GetZoneIcon(IconPath: string; var Icon: TIcon);
- procedure GoAboutBlank;
- procedure GoDownloadFile(URL: string);
- procedure GoDownloadMaskedFile(SourceFile, TargetFile: string; Notify: Boolean);
- procedure GoNoHistory(const URL: string);
- procedure GoSearchInGoogle(SearchTerm: string);
- procedure GoSearchInMSN(SearchTerm: string);
- procedure GoSearchInYahoo(SearchTerm: string);
- procedure GoWithQueryDetails(Url, Query: string);
- procedure OpenIEBrowserWithAddress;
- procedure Print;
- procedure PrintPreview;
- procedure PrintPreviewExtended(nCMDShow: Integer);
- procedure PrintPreviewFromTemplate(const TemplateFileName: string);
- procedure PrintSetup;
- procedure PrintWithOptions;
- procedure RefreshProxy;
- procedure RestoreApplicationFormSize;
- procedure SaveApplicationFormSize;
- procedure SaveImagesDialog;
- procedure SavePageTextDialog;
- procedure ScrollToBottom;
- procedure ScrollToID(ID: Integer);
- procedure ScrollToIDEx(ID: string); // by M.Grusha
- procedure ScrollToPosition(X, Y: Integer);
- procedure ScrollToTop;
- procedure SearchAndHighlight(AText: string; const ACaption, APrompt: string;
- Flags: TSearchFlags = []; cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll); overload;
- procedure SearchAndHighlight(aText: string; Flags: TSearchFlags = [];
- cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll); overload;
- procedure SendPageInMailAsAttachment(aOwner: TComponent; FileName, Subject, Body: string);
- procedure SendURLInMail;
- procedure SetNewHomePage(HomePage: string);
- procedure ShowIEVersionInfo;
- procedure ViewPageLinksToStrings(LinksList: TStrings);
- procedure ViewPageSourceHtmlToStrings(HtmlList: TStrings);
- procedure ViewPageSourceText;
- procedure ViewPageSourceTextToStrings(TextList: TStrings);
- procedure WorkOffline;
- procedure WorkOnline;
-{$ENDIF}
-{$IFDEF Enable_EwbMSHTMLEvents}
- property SinkComponent: TMSHTMLHTMLDocumentEvents read FSinkComponent write SetSinkComponent;
-{$ENDIF}
- property Modified: Boolean read GetModified write SetModified;
- property DesignMode: Boolean read GetDesginMode write SetDesginMode;
- published
- property Silent: Boolean read GetSilent write SetSilent default True;
- property RegisterAsDropTarget: Boolean read GetRegisterAsDropTarget write SetRegisterAsDropTarget default True;
- property RegisterAsBrowser: Boolean read GetRegisterAsBrowser write SetRegisterAsBrowser default False;
- property About: string read FAbout write SetAbout;
- property HostCSS: string read FHostCSS write FHostCSS;
- property HostNS: string read FHostNS write FHostNS;
- property EnableMessageHandler: Boolean read FEnableMessageHandler write FEnableMessageHandler default True;
- property DisabledPopupMenuItems: TIEPopupMenuItems read FDisabledPopupMenuItems
- write FDisabledPopupMenuItems default [];
- property DisableErrors: TDisableErrors read FDisableErrors write FDisableErrors;
- property DialogBoxes: TDialogBoxes read FDialogBoxes write FDialogBoxes;
- property HTMLCode: TStringList read FHTMLCode write SetHTMLCode;
- property OnCloseQuery: TCloseQueryEvent read FOnCloseQuery write FOnCloseQuery;
- property OnMessage: TMsgEvent read FOnMessage write FOnMessage;
- property OnShowDialog: TShowDialogEvent read FOnShowDialog write FOnShowDialog;
- property PrintOptions: TPrintOptions read FPrintOptions write FPrintOptions;
- property ProxySettings: TProxySettings read FProxySettings write FProxySettings;
- property VisualEffects: TVisualEffects read FVisualEffects write FVisualEffects;
- property Visible: Boolean read GetVisible write SetVisible default True;
- property UserAgent: string read FUserAgent write SetUserAgent;
- property UserAgentMode: TUserAgentMode read FUserAgentMode write SetUserAgentMode default uaDefault;
- property OnBusyWait: TOnBusyWait read FOnBusyWait write FOnBusyWait;
- property OnVisible: TEWBOnVisible read FOnVisible write FOnVisible;
- property OnKeyDown: TKeyEventEx read FOnKeyDown write FOnKeyDown;
- property OnKeyUp: TKeyEventEx read FOnKeyUp write FOnKeyUp;
- property OnClick: TMouseEvent read FOnClick write FOnClick;
- property OnHTMLCodeChange: THTMLCodeChangeEvent read FOnHTMLCodeChange write FOnHTMLCodeChange;
-{$IFDEF Enable_MouseEnterLeaveEvents}
- property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
- property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
-{$ENDIF}
- end;
-
-implementation
-
-uses
-{$IFDEF USE_EwbTools}
- EWBTools,
-{$ENDIF}
-{$IFDEF USE_EwbDDE}
- EwbDDE,
-{$ENDIF}
- Registry, CommCtrl, ComObj, ShellAPI, OleServer, EwbIEConst, WinInet;
-
-var
- // Boolean variables that must be global to restore settings for MDI cases
- // or multiple EWB instances
-{$IFDEF USE_EwbDDE}
- HtmlFileApp, HtmlFileTopic: string; //All DDE variables
- FHtmlCommand, bDontRespond: Boolean;
- FoldersApp, FoldersTopic: string;
- DDEHWND: THandle = 0;
-{$ENDIF}
- bPrintOptionsEnable: Boolean;
- wSaved8087CW: Word;
- bProxy: Boolean;
- bNavSound: Boolean;
- bOleInitialize: Boolean;
-{$IFDEF Enable_HookParentFormWndProc}
- bWndProcHooked: Boolean;
- PrintingWithOptions: Boolean;
-{$ENDIF}
- bInvokingPageSetup: Boolean;
-{$IFDEF AutoUse_EwbControl}
- EwbControl: TEwbControl;
-{$ENDIF}
-
- //=== Print Options-Persistent =================================================
-
-procedure TPrintOptions.SetHTMLHeader(const Value: Tstrings);
-begin
- FHTMLHeader.Assign(Value);
-end;
-
-//=== DisableErrors-Persistent =================================================
-
-procedure TDisableErrors.SetfpExceptions(const Value: Boolean);
-begin
- if not Value then
- Set8087CW($133F)
- else
- Set8087CW(wSaved8087CW);
- FfpExceptions := Value;
-end;
-
-//=== Accesories ===============================================================
-
-function NextPIDL(IDList: PItemIDList): PItemIDList;
-begin
- Result := IDList;
- Inc(PAnsiChar(Result), IDList^.mkid.cb);
-end;
-
-function GetPIDLSize(IDList: PItemIDList): Integer;
-begin
- Result := 0;
- if Assigned(IDList) then
- begin
- Result := SizeOf(IDList^.mkid.cb);
- while IDList^.mkid.cb <> 0 do
- begin
- Result := Result + IDList^.mkid.cb;
- IDList := NextPIDL(IDList);
- end;
- end;
-end;
-
-function SaveDocToStrings(Doc: IDispatch; var AStrings: TStrings): HRESULT;
-var
- IpStream: IPersistStreamInit;
- AStream: TMemoryStream;
-begin
- Result := S_FALSE;
- AStream := TMemoryStream.Create;
- try
- IpStream := doc as IPersistStreamInit;
- if Assigned(IpStream) then
- if Succeeded(IpStream.Save(TStreamAdapter.Create(AStream), True)) then
- begin
- AStream.Seek(0, 0);
- AStrings.LoadFromStream(AStream);
- Result := S_OK;
- end;
- finally
- AStream.Free;
- end;
-end;
-
-function SaveDocToStream(Doc: IDispatch; var AStream: TStream): HRESULT;
-var
- IpStream: IPersistStreamInit;
-begin
- Result := S_FALSE;
- if Assigned(Doc) then
- begin
- IpStream := Doc as IPersistStreamInit;
- if Assigned(IpStream) then
- Result := IpStream.Save(TStreamAdapter.Create(AStream), True);
- end;
-end;
-
-function SaveDocToFile(Doc: IDispatch; const FName: string): HRESULT;
-var
- PFile: IPersistFile;
-begin
- Result := S_FALSE;
- if Assigned(Doc) then
- begin
- PFile := Doc as IPersistFile;
- if Assigned(PFile) then
- Result := PFile.Save(StringToOleStr(FName), False);
- end;
-end;
-
-function GetRunTimeMeasure: TMeasure;
-var
- Buf: array[1..10] of Char;
-begin
- Result := mUnknown;
- FillChar(Buf, SizeOf(Buf), 0);
- if GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, @Buf[1], SizeOf(Buf)) <> 0 then
- begin
- if Buf[1] = '1' then
- Result := mUS
- else
- Result := mMetric;
- end;
-end;
-
-//=== IInternetProtocolRoot Interface ==========================================
-
-function TEmbeddedWB.Start(szUrl: PWideChar; OIProtSink: IInternetProtocolSink;
- OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HRESULT; stdcall;
-var
- iNeg: IHTTPNegotiate;
- szHeaders, szAdditionalHeaders: PWideChar;
- SrvProv: IServiceProvider;
-begin
- FProtSink := OIProtSink;
- FBindInfo := OIBindInfo;
-
- (OIProtSink as iUnknown).QueryInterface(IServiceProvider, SrvProv);
- if Assigned(SrvProv) then
- begin
- SrvProv.QueryService(IID_IHTTPNegotiate, IID_IHTTPNegotiate, iNeg);
- if Assigned(iNeg) then
- begin
- szHeaders := nil;
- szAdditionalHeaders := nil;
- iNeg.BeginningTransaction(szUrl, szHeaders, 0, szAdditionalHeaders);
- end;
- end;
- Result := INET_E_USE_DEFAULT_PROTOCOLHANDLER;
-end;
-
-function TEmbeddedWB.Terminate(dwOptions: DWORD): HRESULT; stdcall;
-begin
- Result := S_OK;
-end;
-
-function TEmbeddedWB.Continue(const ProtocolData: TProtocolData): HRESULT;
-begin
- Result := S_OK;
-end;
-
-function TEmbeddedWB.Abort(hrReason: HRESULT; dwOptions: DWORD): HRESULT; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TEmbeddedWB.Suspend: HRESULT; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TEmbeddedWB.Resume: HRESULT; stdcall;
-begin
- Result := E_NOTIMPL;
-end;
-
-//=== IInternetProtocol Interface =============================================
-
-function TEmbeddedWB.LockRequest(dwOptions: DWORD): HRESULT; stdcall;
-begin
- Result := S_OK;
-end;
-
-function TEmbeddedWB.Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HRESULT;
-begin
- Result := S_OK;
-end;
-
-function TEmbeddedWB.Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD;
- out libNewPosition: ULARGE_INTEGER): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TEmbeddedWB.UnlockRequest: HRESULT;
-begin
- Result := S_OK;
-end;
-
-//=== DDE stuff ================================================================
-
-{$IFDEF USE_EwbDDE}
-
-function TEmbeddedwb.DDETerminate(iwParam: WPARAM; ilParam: LPARAM): BOOL;
-begin
- Result := PostMessage(THandle(iwParam), WM_DDE_TERMINATE, handle, 0);
-end;
-
-function TEmbeddedWB.DDEInitiate(iwParam: WPARAM; ilParam: LPARAM): LResult;
-var
- dwThreadID: DWORD;
- dwProcessID: DWORD;
- hwndClient: Integer;
- aInApp, aInTopic, aOutApp, aOutTopic: ATOM;
- szInAppName, szInAppTopic: array[0..255] of Char;
-begin
- FillChar(szInAppName, SizeOf(szInAppName), 0);
- FillChar(szInAppTopic, SizeOf(szInAppTopic), 0);
- if bDontRespond then
- begin
- Result := 0;
- Exit;
- end;
- hwndClient := THandle(iwParam);
- dwThreadID := GetWindowThreadProcessId(hwndClient, @dwProcessID);
- if (GetCurrentProcessId() <> dwProcessID) or (GetCurrentThreadID() <> dwThreadID) then
- begin
- Result := 0;
- Exit;
- end;
- aInApp := LOWORD(ilParam);
- aInTopic := HIWORD(ilParam);
- GlobalGetAtomName(aInApp, szInAppName, SizeOf(szInAppName));
- GlobalGetAtomName(aInTopic, szInAppTopic, SizeOf(szInAppTopic));
- if szInAppName = HtmlFileApp then
- begin
- FHtmlCommand := True;
- aOutApp := GlobalAddAtom(PChar(HtmlFileApp));
- aOutTopic := GlobalAddAtom(PChar(HtmlFileTopic));
- if ((aOutApp <> 0) and (aOutTopic <> 0) and (aOutApp = aInApp) and (aOutTopic = aInTopic)) then
- SendMessage(hwndClient, WM_DDE_ACK, WPARAM(handle), MAKELPARAM(aOutApp, aOutTopic));
- if (aOutApp <> 0) then
- GlobalDeleteAtom(aOutApp);
- if (aOutTopic <> 0) then
- GlobalDeleteAtom(aOutTopic);
- end
- else
- begin
- FHtmlCommand := False;
- aOutApp := GlobalAddAtom(PChar(FoldersApp));
- aOutTopic := GlobalAddAtom(PChar(FoldersTopic));
- if ((aOutApp <> 0) and (aOutTopic <> 0) and (aOutApp = aInApp) and (aOutTopic = aInTopic)) then
- SendMessage(HWNDClient, WM_DDE_ACK, WPARAM(Handle), MAKELPARAM(aOutApp, aOutTopic));
- if (aOutApp <> 0) then
- GlobalDeleteAtom(aOutApp);
- if (aOutTopic <> 0) then
- GlobalDeleteAtom(aOutTopic);
- end;
- Result := 0;
-end;
-
-function TEmbeddedwb.DDEExecute(iwParam: WPARAM; ilParam: LPARAM): LResult;
-var
- szFolder: string;
- szCommand: LPTSTR;
- uLo: PUINT;
- hgMem: HGLOBAL;
- ack: DDEACK;
- lpTemp: PUINT;
- uCommand: Cardinal;
- show: Integer;
- pidl: PITEMIDLIST;
- sei: TShellExecuteInfo;
- szTmp: string;
-begin
- ulo := nil;
- if UnpackDDElParam(WM_DDE_EXECUTE, ilParam, uLo, @hgMem) then
- begin
- szCommand := GlobalLock(hgmem);
- ZeroMemory(@Ack, SizeOf(ddeAck));
- if Assigned(szCommand) then
- begin
- if FHtmlCommand then
- begin
- szTmp := szCommand;
- if Pos('"', szTmp) = 1 then
- begin
- System.Delete(szTmp, 1, 1);
- szTmp := System.Copy(szTmp, 1, Pos('"', szTmp) - 1);
- end;
- Go(szTmp);
- Ack.Flags := 1;
- end
- else
- begin
- uCommand := ParseDDECommand(szCommand, szFolder, pidl, Show);
- case uCommand of
- VIEW_COMMAND:
- begin
- if (szFolder <> '') then
- Go(szFolder)
- else if Assigned(pidl) then
- NavigatePidl(pidl);
-
- DisposePidl(pidl);
- Ack.flags := 1;
- end;
- EXPLORE_COMMAND:
- begin
- bDontRespond := True;
- ZeroMemory(@sei, SizeOf(SHELLEXECUTEINFO));
- sei.cbSize := SizeOf(SHELLEXECUTEINFO);
- if szFolder <> '' then
- begin
- sei.fMask := SEE_MASK_CLASSNAME;
- sei.lpFile := Pchar(szFolder);
- end
- else
- begin
- sei.fMask := SEE_MASK_IDLIST or SEE_MASK_CLASSNAME;
- sei.lpIDList := pidl;
- end;
- sei.lpClass := 'folder';
- sei.Wnd := 0;
- sei.nShow := Show;
- sei.lpVerb := 'explore';
- ShellExecuteEx(@sei);
- bDontRespond := False;
- DisposePidl(pidl);
- Ack.flags := 1;
- end;
- FIND_COMMAND:
- begin
- bDontRespond := True;
- ZeroMemory(@sei, SizeOf(SHELLEXECUTEINFO));
- sei.cbSize := SizeOf(SHELLEXECUTEINFO);
- if (szFolder <> '') then
- begin
- sei.fMask := 0;
- sei.lpFile := PChar(szFolder);
- end
- else
- begin
- sei.fMask := SEE_MASK_IDLIST;
- sei.lpIDList := pidl;
- end;
- sei.wnd := 0;
- sei.nShow := Show;
- sei.lpVerb := 'find';
- ShellExecuteEx(@sei);
- bDontRespond := False;
- DisposePidl(pidl);
- Ack.flags := 1;
- end;
- end;
- end;
- GlobalUnlock(hgMem);
- lpTemp := @Ack;
- PostMessage(Thandle(iwParam),
- WM_DDE_ACK,
- WPARAM(handle),
- ReuseDDElParam(ilParam, WM_DDE_EXECUTE, WM_DDE_ACK, lpTemp^, hgMem));
- end;
- end;
- Result := 0;
-end;
-
-procedure TEmbeddedWB.DDEWndProc(var AMsg: Messages.TMessage);
-begin
- with AMsg do
- if (Msg = WM_DDE_INITIATE) and FDisableErrors.FEnableDDE then
- begin
- try
- DDEInitiate(WParam, LParam)
- except
- end;
- end
- else
- Result := DefWindowProc(DDEHWND, Msg, WParam, LParam);
-end;
-{$ENDIF} // {$IFDEF USE_EwbDDE}
-
-//=== TEmbeddedWB ==============================================================
-
-procedure TEmbeddedWB.CMVisibleChanged(var MSG: TMessage);
-begin
- inherited;
- FVisible := MSG.WParam = 1;
- if Assigned(FOnVisible) then
- FOnVisible(Self, Self.Visible);
-end;
-
-//=== Hooks & Message Handling =================================================
-
-{$IFDEF Enable_SubClassChildWindows}
-
-procedure TEmbeddedWB.InitEWBChildHook;
-begin
- FDefInetExplorerServerProc := nil;
- FDefShellObjViewProc := nil;
- FDefSysListViewObjProc := nil;
-
- FShellDocObjViewHandle := 0;
- FInetExplorerServerHandle := 0;
- FSysListViewHandle := 0;
-
- FShellDocObjInstance := nil;
- FInetExplorerServerInstance := nil;
- FSysListViewObjInstance := nil;
-end;
-
-procedure TEmbeddedWB.HookChildWindows;
-begin
- if (csDesigning in ComponentState) or Forms.Application.Terminated then
- Exit;
- if not Assigned(Self) then
- Exit;
-
- if FSysListViewHandle = 0 then // SysListView32
- begin
- FSysListViewHandle := GetIEWin('SysListView32');
- if FSysListViewHandle <> 0 then
- begin
- FSysListViewObjInstance := {$IFDEF DELPHI6_UP}Classes.{$ENDIF}MakeObjectInstance(SysListViewWndProc);
- FDefSysListViewObjProc := Pointer(GetWindowLong(FSysListViewHandle, GWL_WNDPROC));
- SetWindowLongW(FSysListViewHandle, GWL_WNDPROC, Longint(FSysListViewObjInstance));
- Exit;
- end;
- end;
- // Hook child windows to catch WM_DESTROY messages
- if (FShellDocObjViewHandle = 0) and (FInetExplorerServerHandle = 0) then
- begin
- FShellDocObjViewHandle := Windows.GetWindow(Self.Handle, GW_CHILD);
- if (FShellDocObjViewHandle <> 0) then
- begin
- FInetExplorerServerInstance := {$IFDEF DELPHI6_UP}Classes.{$ENDIF}MakeObjectInstance(InetExplorerServerWndProc);
- FShellDocObjInstance := {$IFDEF DELPHI6_UP}Classes.{$ENDIF}MakeObjectInstance(ShellDocObjWndProc);
- // ShellDocObj
- FInetExplorerServerHandle := Windows.GetWindow(FShellDocObjViewHandle, GW_CHILD);
- FDefShellObjViewProc := Pointer(GetWindowLong(FShellDocObjViewHandle, GWL_WNDPROC));
- SetWindowLongW(FShellDocObjViewHandle, GWL_WNDPROC, Longint(FShellDocObjInstance));
- // Internet Explorer Server
- FDefInetExplorerServerProc := Pointer(GetWindowLong(FInetExplorerServerHandle, GWL_WNDPROC));
- SetWindowLongW(FInetExplorerServerHandle, GWL_WNDPROC, Longint(FInetExplorerServerInstance));
- end;
- end;
-end;
-
-procedure TEmbeddedWB.SysListViewWndProc(var Msg: TMessage);
-begin
- with Msg do
- Result := CallWindowProcW(FDefSysListViewObjProc, FSysListViewHandle, Msg, WParam, LParam);
- case Msg.Msg of
- WM_SETFOCUS: SetActiveControl;
- WM_DESTROY: UnHookChildWindows;
- end;
-end;
-
-procedure TEmbeddedWB.InetExplorerServerWndProc(var Msg: TMessage);
-type
- PWMKey = ^TWMKey;
-begin
- with Msg do
- Result := CallWindowProcW(FDefInetExplorerServerProc, FInetExplorerServerHandle, Msg, WParam, LParam);
- case Msg.Msg of
- WM_SETFOCUS:
- // Catching this message allows us to set the Active control to the
- // WebBrowser itself which keeps VCL in sync with the real active control
- // which makes things like tabbing work correctly.
- SetActiveControl;
- WM_DESTROY: UnHookChildWindows;
- end;
-end;
-
-procedure TEmbeddedWB.ShellDocObjWndProc(var Msg: TMessage);
-begin
- with Msg do
- Result := CallWindowProcW(FDefShellObjViewProc, FShellDocObjViewHandle, Msg, WParam, LParam);
- case Msg.Msg of
- WM_SETFOCUS: SetActiveControl;
- WM_DESTROY: UnHookChildWindows;
- end;
-end;
-
-procedure TEmbeddedWB.UnHookChildWindows;
-begin
- if FSysListViewHandle <> 0 then
- begin
- SetWindowLongW(FSysListViewHandle, GWL_WNDPROC, Integer(FDefSysListViewObjProc));
-{$IFDEF DELPHI6_UP}Classes.{$ENDIF}FreeObjectInstance(FSysListViewObjInstance);
- FSysListViewHandle := 0;
- FSysListViewObjInstance := nil;
- end;
-
- if FShellDocObjViewHandle <> 0 then
- begin
- SetWindowLongW(FShellDocObjViewHandle, GWL_WNDPROC, Integer(FDefShellObjViewProc));
-{$IFDEF DELPHI6_UP}Classes.{$ENDIF}FreeObjectInstance(FShellDocObjInstance);
- FShellDocObjViewHandle := 0;
- FShellDocObjInstance := nil;
- end;
-
- if FInetExplorerServerHandle <> 0 then
- begin
- SetWindowLongW(FInetExplorerServerHandle, GWL_WNDPROC, Integer(FDefInetExplorerServerProc));
-{$IFDEF DELPHI6_UP}Classes.{$ENDIF}FreeObjectInstance(FInetExplorerServerInstance);
- FInetExplorerServerHandle := 0;
- FInetExplorerServerInstance := nil;
- end;
-end;
-
-{$ENDIF} // Enable_SubClassChildWindows
-
-procedure TEmbeddedWB.OnHookChildWindows(Sender: TObject);
-begin
-{$IFDEF Enable_SubClassChildWindows}
- if (FShellDocObjViewHandle = 0) or (FSysListViewHandle = 0) then
- HookChildWindows;
-{$ENDIF};
-end;
-
-procedure TEmbeddedWB.SetActiveControl(ParentForm: TCustomForm = nil);
-begin
- if ParentForm = nil then
- ParentForm := GetParentForm(Self);
- if Assigned(ParentForm) then
- begin
- if Self.CanFocus then
- begin
- ParentForm.ActiveControl := Self;
- Self.SetFocusToDoc;
- end;
- end;
-end;
-
-procedure TEmbeddedWB.WMSetWBFocus(var Msg: TMessage);
-var
- ParentForm: TCustomForm;
-begin
- ParentForm := GetParentForm(Self);
- if Assigned(ParentForm) then
- if ParentForm.ActiveControl is TEmbeddedWB then
- SetActiveControl(ParentForm);
-end;
-
-procedure TEmbeddedWB.SetFocus;
-begin
- if Self.CanFocus then
- inherited;
-end;
-
-function TEmbeddedWB.Focused: Boolean;
-begin
- Result := IsChild(Self.Handle, GetFocus);
-end;
-
-procedure TEmbeddedWB.WMSetFocus(var Message: TWMSetFocus);
-begin
- inherited;
-end;
-
-{$IFDEF Enable_HookParentFormWndProc}
-
-procedure TEmbeddedWB.HandleDialogBoxes(var AMsg: Messages.TMessage);
-var
- PopHandle: Integer;
- DlgCaption, DlgClss: string;
- Msg: TWMActivate;
- WI: TWindowInfo;
-begin
- Msg := TWMActivate(AMsg);
- if Msg.Active = 0 then
- begin
- PopHandle := Msg.ActiveWindow;
- FillChar(WI, SizeOf(WI), 0);
- if PopHandle <> 0 then
- begin
- WI.dwStyle := Abs(GetWindowLong(PopHandle, GWL_STYLE));
- WI.dwExStyle := Abs(GetWindowLong(PopHandle, GWL_EXSTYLE));
- end;
-
- DlgClss := GetWinClass(PopHandle);
- if (DlgClss = 'Internet Explorer_TridentDlgFrame') or ((DlgClss = '#32770') and
- ((GetWinClass(Windows.GetParent(PopHandle)) <> 'TApplication') and
- (FindControl(Windows.GetParent(PopHandle)) = nil))) then
- begin
- DlgCaption := GetWinText(PopHandle);
- if (PopHandle <> 0) and Assigned(FOnShowDialog) then
- FOnShowDialog(Self, PopHandle, WI.dwExStyle, DlgCaption, FDialogBoxes.FNewCaption, FDialogBoxes.FDisableAll);
-
- if FDialogBoxes.FDisableAll then
- SendMessage(PopHandle, WM_CLOSE, 0, 0);
- if FDialogBoxes.FReplaceIcon then
- SendMessage(PopHandle, WM_SETICON, ICON_SMALL, Forms.Application.Icon.Handle);
-
- if FDialogBoxes.FReplaceCaption then
- begin
- DlgCaption := StringReplace(DlgCaption, 'Microsoft ', '', []);
- DlgCaption := StringReplace(DlgCaption, 'Internet Explorer', FDialogBoxes.FNewCaption, []);
- SetWindowText(PopHandle, PChar(DlgCaption));
- end;
-
- if FDisableErrors.FScriptErrorsSuppressed then
- begin
- if (AnsiPos('SCRIPT', AnsiUpperCase(DlgCaption)) <> 0) then
- begin
- PostMessage(PopHandle, WM_LBUTTONDOWN, 0, 0);
- PostMessage(PopHandle, WM_LBUTTONUP, 0, 0);
- SendMessage(PopHandle, WM_CLOSE, 0, 0);
- Forms.Application.ProcessMessages;
- Exit;
- end;
- if (AnsiPos('ERROR', AnsiUpperCase(DlgCaption)) <> 0) or (WI.dwExStyle = 4260097) then
- begin
- DestroyWindow(PopHandle);
- Exit;
- end;
- end;
- if FPrintOptions.FEnabled then
- begin
- bPrintOptionsEnable := True;
- if bInvokingPageSetup then
- begin
- bInvokingPageSetup := False;
- if PrintingWithOptions then
- begin
- SetWindowPos(0, 0, -4400, 0, 0, 0, 0); //SetWindowPos(Wnd, 0, -600, 0, 0, 0, 0);
- PrintingWithOptions := False;
- end;
- if FPrintOptions.FOrientation = poPortrait then
- SendDlgItemMessage(PopHandle, $0420, BM_CLICK, 0, 0)
- else
- SendDlgItemMessage(PopHandle, $0421, BM_CLICK, 0, 0);
- SetDlgItemText(PopHandle, $1FD3, PChar(FPrintOptions.FHeader));
- SetDlgItemText(PopHandle, $1FD5, PChar(FPrintOptions.FFooter));
- SetDlgItemText(PopHandle, $0483, PChar(PrintMarginStr(FPrintOptions.FMargins.FLeft)));
- SetDlgItemText(PopHandle, $0484, PChar(PrintMarginStr(FPrintOptions.FMargins.FTop)));
- SetDlgItemText(PopHandle, $0485, PChar(PrintMarginStr(FPrintOptions.FMargins.FRight)));
- SetDlgItemText(PopHandle, $0486, PChar(PrintMarginStr(FPrintOptions.FMargins.FBottom)));
- if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4) then
- PostMessage(FindWindowEx(PopHandle, 0, 'Button', nil), BM_CLICK, 0, 0) //Win2000
- else
- SendDlgItemMessage(PopHandle, 1, BM_CLICK, 0, 0);
- end;
- end;
- end;
- end;
-end;
-
-procedure TEmbeddedWB.FormWndProc(var AMsg: Messages.TMessage);
-{var
- s: string;}
-begin
- if AMsg.Msg = WM_ACTIVATE then
- begin
- HandleDialogBoxes(AMsg);
- {
- if ((AMsg.WParamLo and WA_ACTIVE) = WA_ACTIVE) or
- ((AMsg.WParamLo and WA_CLICKACTIVE) = WA_CLICKACTIVE) then
- begin
- s := 'FormWndProc ' +'msg.Msg'+ Inttostr(Amsg.Msg) +'msg.LParam'+ Inttostr(Amsg.LParam)
- +'msg.WParam '+ Inttostr(Amsg.WParam);
- OutputDebugString(PChar(s));
- end;
- }
- end;
- FOldWindowProc(AMsg);
-end;
-
-procedure TEmbeddedWB.HookParentFormWndProc;
-begin
- if not bWndProcHooked and not (csDesigning in ComponentState) then
- begin
- FParentForm := TForm(Owner);
- if Assigned(FParentForm) and (FParentForm.HandleAllocated) then
- begin
- FOldWindowProc := FParentForm.WindowProc;
- FParentForm.WindowProc := FormWndProc;
- bWndProcHooked := True;
- end;
- end;
-end;
-
-procedure TEmbeddedWB.UnHookParentFormWndProc;
-begin
- if bWndProcHooked and not (csDesigning in ComponentState) then
- begin
- if Assigned(FParentForm) and (FParentForm.HandleAllocated) then
- FParentForm.WindowProc := FOldWindowProc;
- FParentForm := nil;
- bWndProcHooked := False;
- end;
-end;
-
-{$ENDIF} // Enable_HookParentFormWndProc
-
-{$IFDEF Enable_MouseEnterLeaveEvents}
-
-procedure TEmbeddedWB.HandleMouseEnterLeaveEvents(var msg: TMessage);
-begin
- case msg.Msg of
- // Doesn't work in D2005+
- CM_MOUSELEAVE:
- if Assigned(FOnMouseLeave) then
- FOnMouseLeave(Self);
- CM_MOUSEENTER:
- if Assigned(FOnMouseEnter) then
- FOnMouseEnter(Self);
- end;
-end;
-{$ENDIF}
-
-function SysListView32MoveCursor(EmbeddedWB: TEmbeddedWB; Key: Word; Shift: TShiftState): Boolean;
-// Make VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT work in SysListView32
-// To-do: make HOME, ENDE, PG UP, PG DOWN work
-var
- iNextItem, iFocusedItem: Integer;
- ListView: hWnd;
- Flags: Word;
-begin
- ListView := EmbeddedWB.GetIEWin('SysListView32');
- Result := ListView <> 0;
- if Result then
- begin
- case Key of
- VK_UP: Flags := LVNI_ABOVE;
- VK_DOWN: Flags := LVNI_BELOW;
- VK_LEFT: Flags := LVNI_TOLEFT;
- VK_RIGHT: Flags := LVNI_TORIGHT;
- else
- begin
- Result := False;
- Exit;
- end;
- end;
- iFocusedItem := ListView_GetNextItem(ListView, -1, LVNI_ALL or LVNI_FOCUSED);
- iNextItem := SendMessage(ListView, LVM_GETNEXTITEM, iFocusedItem, MakeLong(Flags, 0));
- if iNextItem <> -1 then
- begin
- if not (ssShift in Shift) then
- // unselect focused items if Shift is not pressed.
- // still not perfect (like the explorer's behaviour) but works fine so far.
- begin
- ListView_SetItemState(ListView, iFocusedItem, 0, LVIS_SELECTED);
- ListView_SetItemState(ListView, iFocusedItem, 0, LVIS_FOCUSED);
- end;
- ListView_SetItemState(ListView, iNextItem, LVIS_SELECTED, LVIS_SELECTED);
- ListView_SetItemState(ListView, iNextItem, LVIS_FOCUSED, LVIS_FOCUSED);
- ListView_EnsureVisible(ListView, iNextItem, False);
- SendMessage(ListView, WM_SETFOCUS, 0, 0);
- end;
- end
- else
- Result := False;
-end;
-
-procedure TEmbeddedWB.WndProc(var AMsg: TMessage);
-var
- bProcessMessage: Boolean;
- bHandled: Boolean;
-begin
-{$IFDEF Enable_MouseEnterLeaveEvents}
- HandleMouseEnterLeaveEvents(msg);
-{$ENDIF}
-
- bProcessMessage := True;
-
- // Handle WM_CLOSE
- if AMsg.Msg = WM_CLOSE then
- begin
- if Assigned(FOnCloseQuery) then
- FOnCloseQuery(Self, bProcessMessage);
- if bProcessMessage then
- if ((not Self.Focused) and (AMsg.Msg = CM_DIALOGKEY)) then
- bProcessMessage := False;
- end;
-
- // Handle OnKeyDown / OnKeyUp Messages
- with AMsg do
- case Msg of
- CN_BASE + WM_KEYDOWN, CN_BASE + WM_SYSKEYDOWN:
- begin
- if SysListView32MoveCursor(Self, TWMKeyUp(AMsg).CharCode, KeyDataToShiftState(TWMKeyUp(AMsg).KeyData)) then
- begin
- bProcessMessage := False;
- AMsg.Result := 1;
- end;
- if Assigned(FOnKeyDown) then
- begin
- FOnKeyDown(Self, TWMKeyDown(AMsg).CharCode, (TWMKeyDown(AMsg).KeyData shr 16) and $FF,
- KeyDataToShiftState(TWMKeyDown(AMsg).KeyData));
- if (TWMKeyDown(AMsg).CharCode = 0) then
- begin
- bProcessMessage := False;
- AMsg.Result := 1;
- end;
- end;
- end;
- CN_BASE + WM_KEYUP, CN_BASE + WM_SYSKEYUP:
- if Assigned(FOnKeyUp) then
- begin
- FOnKeyUp(Self, TWMKeyUp(AMsg).CharCode, (TWMKeyUp(AMsg).KeyData shr 16) and $FF,
- KeyDataToShiftState(TWMKeyUp(AMsg).KeyData));
- if TWMKeyUp(AMsg).CharCode = 0 then
- begin
- bProcessMessage := False;
- AMsg.Result := 1;
- end;
- end;
- end;
-
- if bProcessMessage then
- begin
- if not ((AMsg.msg = CM_DOCWINDOWACTIVATE) and (Forms.Application.Terminated)) then
- inherited WndProc(AMsg);
- end;
-
- // Make VK_RETURN work in TextAreas etc.
- if FEnableMessageHandler and (AMsg.Msg = CN_BASE + WM_KEYDOWN) and
- (AMsg.WParam = VK_RETURN) then
- AMsg.Result := 0;
-
- // Our own OnMessage Handler
- if Assigned(FOnMessage) then
- begin
- bHandled := False; // not used but don't break the interface
- FOnMessage(Self, AMsg, bHandled);
- end;
-
- // Handle other messges
- with AMsg do
- begin
- case WParam of
- WM_LBUTTONDOWN:
- if Assigned(FOnClick) then
- FOnClick(Self, mbLeft, KeysToShiftState(TWMMouse(AMsg).Keys), TWMMouse(AMsg).XPos, TWMMouse(AMsg).YPos);
- WM_RBUTTONDOWN:
- if Assigned(FOnClick) then
- FOnClick(Self, mbRight, KeysToShiftState(TWMMouse(AMsg).Keys), TWMMouse(AMsg).XPos, TWMMouse(AMsg).YPos);
- end;
-
- case Msg of
- WM_GETDLGCODE: // http://msdn.microsoft.com/en-us/library/ms645425.aspx
- begin
- Result := DLGC_WANTCHARS;
- end;
- WM_SIZE:
- if (not ((not Self.Focused) and (Msg = CM_DIALOGKEY))) then
- begin
- FResizing := not FWinXPSP2orLater; // must be set in constructor
- end;
- WM_WINDOWPOSCHANGING:
- begin
- if FResizing and ((PWindowPos(LParam)^.flags and (SWP_NOMOVE or SWP_NOSIZE)) > 0) then
- begin
- if ((PWindowPos(LParam)^.flags and SWP_NOMOVE) = 0) then
- begin
- PWindowPos(LParam)^.flags := PWindowPos(LParam)^.flags or SWP_NOMOVE;
- if Assigned(OnMove) then
- OnMove(Self, PWindowPos(lParam)^.x, PWindowPos(LParam)^.y);
- end;
- if ((PWindowPos(LParam)^.flags and SWP_NOSIZE) = 0) then
- begin
- PWindowPos(LParam)^.flags := PWindowPos(LParam)^.flags or SWP_NOSIZE;
- if Assigned(OnResize) then
- OnResize(Self, PWindowPos(LParam)^.cx, PWindowPos(LParam)^.cy);
- end;
- end;
- end;
-{$IFDEF USE_EwbDDE}
- WM_DDE_EXECUTE: DDEExecute(WParam, LParam);
- WM_DDE_TERMINATE: DDETerminate(WParam, LParam);
-{$ENDIF}
- end;
- end;
-end;
-
-//=== EmbeddedWB Functions and procedures ======================================
-
-//=== override Visible Property
-
-function TEmbeddedWB.GetVisible: Boolean;
-begin
- Result := FVisible;
-end;
-
-procedure TEmbeddedWB.SetName(Value: string);
-begin
- if Value <> FName then
- begin
- TControl(Self).Name := Value;
- FName := Value;
- end;
-end;
-
-//=== override Name Property
-
-function TEmbeddedWB.GetName: string;
-begin
- Result := TControl(Self).Name;
- // IWebBrowser.Get_Name would return "Microsoft Browser Control"
-end;
-
-//=== override HWND Property
-
-function TEmbeddedWB.GetHWND: Integer;
-begin
- if HandleAllocated then
- begin
- Result := GetIEWin('Internet Explorer_Server');
- if not IsWindow(Result) then
- Result := GetIEWin('SysListView32')
- end
- else
- Result := 0;
-end;
-
-//=== override Visible Property
-
-procedure TEmbeddedWB.SetVisible(AValue: Boolean);
-begin
- if AValue <> FVisible then
- begin
- FVisible := AValue;
- TControl(Self).Visible := FVisible;
- end;
-end;
-
-//=== override Silent Property
-
-procedure TEmbeddedWB.SetSilent(Value: Boolean);
-begin
- // FSilent := Value;
- SetWordBoolProp(551, FSilent);
-end;
-
-function TEmbeddedWB.GetSilent: Boolean;
-begin
- Result := GetWordBoolProp(551)
-end;
-
-//=== override SetRegisterAsDropTarget Property
-
-procedure TEmbeddedWB.SetRegisterAsDropTarget(Value: Boolean);
-begin
- SetWordBoolProp(553, Value)
-end;
-
-function TEmbeddedWB.GetRegisterAsDropTarget: Boolean;
-begin
- Result := GetWordBoolProp(553);
-end;
-
-//=== override SetRegisterAsBrowser Property
-
-procedure TEmbeddedWB.SetRegisterAsBrowser(Value: Boolean);
-begin
- SetWordBoolProp(552, Value)
-end;
-
-function TEmbeddedWB.GetRegisterAsBrowser: Boolean;
-begin
- Result := GetWordBoolProp(552);
-end;
-
-function TEmbeddedWB.GetParent: TWinControl;
-begin
- Result := TWinControl(Self).Parent;
-end;
-
-procedure TEmbeddedWB.SetParent(Control: TWinControl);
-begin
- // Windows.SetParent(Self.Handle, Control.Handle)
- TWinControl(Self).Parent := Control;
-end;
-
-function TEmbeddedWB.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
-begin
- Result := inherited GetHostInfo(pInfo);
- if (pInfo.chHostCss = nil) and (HostCSS <> '') then
- pInfo.chHostCss := TaskAllocWideString(HostCSS);
- if (pInfo.chHostNS = nil) and (HostNS <> '') then
- pInfo.chHostNS := TaskAllocWideString(FHostNS);
-end;
-
-class function TEmbeddedWB.GetIEHandle(WebBrowser: TEmbeddedWB; ClassName: string): HWND;
-begin
- Result := WebBrowser.GetIEWin(ClassName);
-end;
-
-function TEmbeddedWB.GetModified: Boolean;
-begin
- Result := FModified;
-end;
-
-procedure TEmbeddedWB.SetHTMLCode(value: TStringList);
-begin
- if Assigned(Value) then
- FHTMLCode.Text := Value.Text;
-end;
-
-procedure TEmbeddedWB.HTMLCodeChanged(Sender: TObject);
-var
- Protocol, SURL: string;
- bLoad, bHandled: Boolean;
-begin
- if (csDesigning in ComponentState) then
- Exit;
- if HTMLCode.Count = 1 then
- begin
- bLoad := False;
- Protocol := LowerCase(System.Copy(HTMLCode[0], 1, 4));
- if (Protocol = 'http') or (Protocol = 'www.') or (Protocol = 'ftp:') or (Protocol = 'file') or
- (LowerCase(System.Copy(HTMLCode[0], 1, 6)) = 'about:') then
- begin
- SURL := HTMLCode[0];
- Go(SURL);
- end
- else
- bLoad := True;
- end
- else
- bLoad := True;
- if bLoad then
- begin
- bHandled := False;
- if Assigned(FOnHTMLCodeChange) then
- FOnHTMLCodeChange(Self, HTMLCode, bHandled);
- if not bHandled then
- if HTMLCode.Count <> 0 then
- LoadFromStrings(HTMLCode);
- end;
-end;
-
-function TEmbeddedWB.GetDocument: IHTMLDocument2;
-begin
- Wait();
- Result := nil;
- if DocumentLoaded then
- Result := Self.ControlInterface.Document as IHTMLDocument2;
-end;
-
-function TEmbeddedWB.GetFrame(FrameNo: Word): IWebbrowser2;
-var
- OleContainer: IOleContainer;
- Enum: ActiveX.IEnumUnknown;
- Unk: IUnknown;
- Fetched: PLongint;
-begin
- Result := nil;
- if Assigned(Document) then
- begin
- Fetched := nil;
- OleContainer := Document as IOleContainer;
- OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
- Enum.Skip(FrameNo);
- Enum.Next(1, Unk, Fetched);
- if Supports(Unk, IWebBrowser2, Result) then //perva 2008/12/10
- Result := Unk as IWebbrowser2;
- end;
-end;
-
-function TEmbeddedWB.GetFrameFromDocument(SourceDoc: IHTMLDocument2;
- FrameNo: Integer): IWebBrowser2; //By Aladin
-var //by Aladin
- OleContainer: IOleContainer;
- enum: ActiveX.IEnumUnknown;
- unk: IUnknown;
- Fetched: PLongint;
-begin
- Result := nil;
- Fetched := nil;
- if DocumentLoaded then
- begin
- OleContainer := SourceDoc as IOleContainer;
- OleContainer.EnumObjects(OLECONTF_EMBEDDINGS or OLECONTF_OTHERS, Enum);
- Enum.Skip(FrameNo);
- Enum.Next(1, Unk, Fetched);
- Result := Unk as IWebBrowser2;
- end;
-end;
-
-function TEmbeddedWB.GetActiveFrame: IHTMLDocument2;
-var
- HtmlDoc2: IHTMLDocument2;
-begin
- if Supports(Self.Document, IHTMLDocument2, HtmlDoc2) then
- Result := GetActiveFrame(HtmlDoc2);
-end;
-
-function TEmbeddedWB.GetActiveFrame(Doc: IHTMLDocument2): IHTMLDocument2;
-var
- Element: IHTMLElement;
- Frame: IHTMLFrameElement;
- WB: IWebBrowser2;
- HTMLDocument: IHTMLDocument2;
- HtmlDoc2: IHTMLDocument2;
-begin
- Result := nil;
- if Supports(Doc, IHTMLDocument2, HtmlDoc2) then
- begin
- Element := Doc.activeElement;
- if Assigned(Element) then
- if Element.QueryInterface(IHTMLFrameElement, Frame) = S_OK then
- if Frame.QueryInterface(IID_IWebBrowser2, WB) = S_OK then
- if Assigned(WB.Document) then
- if WB.Document.QueryInterface(IID_IHTMLDocument2, HTMLDocument) = S_OK then
- Result := GetActiveFrame(HTMLDocument);
- end;
- if Result = nil then
- result := doc;
-end;
-
-function TEmbeddedWB.GetActiveElement(Doc: IHTMLDocument2 = nil): IHTMLElement;
-begin
- Result := nil;
- if Doc = nil then
- Doc := Self.GetActiveFrame;
- if Assigned(Doc) then
- Result := Doc.activeElement;
-end;
-
-function TEmbeddedWB.GetSelectedText(ReturnAsHTML: Boolean = False; bOnlyTopLevel: Boolean = False): string;
-var
- doc2: IHTMLDocument2;
- selobj: IHTMLSelectionObject;
- range: IHTMLTxtRange;
- Disp: IDispatch;
-begin
- Result := '';
- if DocumentLoaded then
- begin
- if (bOnlyTopLevel) then
- doc2 := Self.ControlInterface.Document as IHTMLDocument2
- else
- doc2 := Self.GetActiveFrame();
- if Assigned(doc2) and Assigned(doc2.selection) and (doc2.readyState = 'complete') then
- begin
- selobj := doc2.selection as IHTMLSelectionObject;
- if Assigned(selobj) then
- begin
- if (selobj.type_ <> 'none') and (selobj.type_ <> 'control') then
- begin
- Disp := selobj.createRange;
- if Assigned(Disp) then
- begin
- range := Disp as IHTMLTxtRange;
- if Assigned(range) then
- if (ReturnAsHTML) then
- Result := range.htmlText
- else
- Result := range.text;
- end;
- end;
- end;
- end;
- end;
-end;
-
-function TEmbeddedWB.GetSelLength(bOnlyTopLevel: Boolean = False): Integer;
-begin
- Result := Length(GetSelectedText(False, bOnlyTopLevel));
-end;
-
-procedure TEmbeddedWB.AssignEmptyDocument(bWait: Boolean = False);
-begin
- Navigate('about:blank');
- if bWait then
- Wait;
-end;
-
-function TEmbeddedWB.DocumentLoaded(out Doc2: IHTMLDocument2): Boolean;
-var
- iDoc: IHTMLDocument2;
-begin
- Result := False;
- if Assigned(Document) then
- begin
- ControlInterface.Document.QueryInterface(IHTMLDocument2, iDoc);
- Doc2 := iDoc;
- Result := Assigned(iDoc);
- end;
-end;
-
-function TEmbeddedWB.DocumentLoaded(): Boolean;
-var
- iDoc: IHTMLDocument2;
-begin
- Result := False;
- if Assigned(Document) then
- begin
- ControlInterface.Document.QueryInterface(IHTMLDocument2, iDoc);
- Result := Assigned(iDoc);
- end;
-end;
-
-function TEmbeddedWB.GetPrintValues: Boolean;
-const
- REG_PATH_PAGESETUP = 'Software\Microsoft\Internet Explorer\PageSetup';
-var
- S: string;
- Reg: TRegistry;
-
- {$IFDEF DELPHI7_UP}
- FS: TFormatSettings;
- {$ENDIF}
-
- function ReadMargin(key: string): Real;
- begin
- S := Reg.ReadString(key);
- if S = '' then
- S := '0.750000'; // <-- default margin value by takeru_tk_81
- S := StringReplace(S, ' ', '', [rfReplaceAll]);
-
- if {$IFDEF DELPHI7_UP}FS.{$ENDIF}DecimalSeparator <> '.' then
- S := StringReplace(S, '.',{$IFDEF DELPHI7_UP}FS.{$ENDIF}DecimalSeparator ,[]);
-
- if PrintOptions.Measure = mMetric then
- Result := StrToFloat(S) * InchToMetric
- else
- Result := StrToFloat(S);
- end;
-
-begin
- Result := False;
- Reg := TRegistry.Create;
- try
- with Reg do
- begin
- RootKey := HKEY_CURRENT_USER;
- if OpenKey(REG_PATH_PAGESETUP, False) then
- begin
- with PrintOptions do
- begin
- Header := ReadString('header');
- Footer := ReadString('footer');
- Margins.Left := ReadMargin('margin_left');
- Margins.Right := ReadMargin('margin_right');
- Margins.Top := ReadMargin('margin_top');
- Margins.Bottom := ReadMargin('margin_bottom');
- end;
- Result := True;
- end;
- Reg.Free;
- end;
- except
- // MessageDlg('Error while getting page print values from the registry.', mtError, [mbOK], 0);
- end;
-end;
-
-function TEmbeddedWB.GetIEHomePage: string;
-var
- IEHomePage: string;
-begin
- IEHomePage := '';
- with TRegistry.Create do
- try
- RootKey := HKEY_CURRENT_USER;
- OpenKey('\Software\Microsoft\Internet Explorer\Main', False);
- IEHomePage := ReadString('Start Page');
- CloseKey;
- finally
- Free;
- end;
- Result := IEHomePage;
-end;
-
-function TEmbeddedWB.VariantIsObject(const Value: OleVariant): Boolean;
-begin
- Result := (VarType(Value) = varDispatch);
-end;
-
-// Wait procedures -------------------------------------------------------------
-
-function TEmbeddedWB.Wait(TimeOut: Longword = 0): Boolean; //by perva: Added OnBusyWait
-var
- StartTime: DWORD;
- bCancel, bDoBreak: Boolean;
-begin
- bDoBreak := False;
- if HandleAllocated then
- begin
- bCancel := False;
- bDoBreak := False;
- StartTime := GetTickCount;
- while Assigned(Self) and not FDestroying and (ReadyState <> READYSTATE_COMPLETE) do
- begin
- if Assigned(FOnBusyWait) then
- FOnBusyWait(Self, StartTime, TimeOut, bCancel);
- bDoBreak := FStopped or bCancel or ((TimeOut > 0) and ((GetTickCount - StartTime) > Timeout));
- if bDoBreak or Forms.Application.Terminated then
- Break;
- Forms.Application.ProcessMessages;
- Sleep(1);
- end;
- end;
- FStopped := False;
- Result := bDoBreak = False;
-end;
-
-function TEmbeddedWB.WaitWhileBusy(TimeOut: Longword = 0): Boolean;
-var
- StartTime: DWORD;
- bCancel, bDoBreak: Boolean;
-begin
- bCancel := False;
- bDoBreak := False;
- StartTime := GetTickCount;
- while not FDestroying and Busy do
- begin
- if Assigned(FOnBusyWait) then
- FOnBusyWait(Self, StartTime, TimeOut, bCancel);
-
- bDoBreak := FStopped or bCancel or ((TimeOut > 0) and ((GetTickCount - StartTime) > Timeout));
- if bDoBreak or Forms.Application.Terminated then
- Break;
- Forms.Application.ProcessMessages;
- Sleep(1);
- end;
- FStopped := False;
- Result := bDoBreak = False;
-end;
-
-function TEmbeddedWB.DownloadFile(SourceFile, DestFile: string): Boolean;
-begin
- try
- Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
- except
- Result := False;
- end;
-end;
-
-// Navigating ------------------------------------------------------------------
-
-function TEmbeddedWB.Go(Url: string; TimeOut: LongWord = 0): Boolean;
-var
- ovURL, ovFlags, ovTargetFrameName, ovPostData, ovHeaders: OleVariant;
-begin
- Result := True;
- if DirectoryExists(Url) then
- Navigate('file:///' + Url)
- else if (Trim(Url) <> '') then
- begin
- ovUrl := Url;
- ovFlags := 0;
- ovTargetFrameName := 0;
- ovPostData := 0;
- ovHeaders := 0;
- Navigate2(ovUrl, ovFlags, ovTargetFrameName, ovPostData, ovHeaders);
- if TimeOut <> 0 then
- Result := Wait(TimeOut)
- end;
-end;
-
-function TEmbeddedWB.NavigateWait(const URL: WideString; TimeOut: LongWord = 0): Boolean;
-begin
- Navigate(URL);
- if TimeOut = 0 then
- Result := True
- else
- Result := Wait(TimeOut)
-end;
-
-procedure TEmbeddedWB.NavigateFolder(CSIDL: Integer);
-var
- sFolder: PItemIdList;
-begin
- SHGetSpecialFolderLocation(0, CSIDL, SFolder);
- NavigatePidl(SFolder);
- CoTaskMemFree(SFolder);
-end;
-
-procedure TEmbeddedWB.NavigatePidl(pidl: PItemIdList);
-var
- VaEmpty, vaPidl: OleVariant;
- psa: PSafeArray;
- cbData: UINT;
-begin
- cbdata := GetPidlSize(pidl);
- psa := SafeArrayCreateVector(VT_UI1, 0, cbData);
- if Assigned(psa) then
- begin
- CopyMemory(psa.pvData, pidl, cbData);
- VariantInit(vaPidl);
- TVariantArg(vaPidl).vt := VT_ARRAY or VT_UI1;
- TVariantArg(vaPidl).parray := psa;
- Navigate2(vaPidl, vaEmpty, vaEmpty, vaEmpty, vaEmpty);
- VariantClear(vaPidl);
- end;
-end;
-
-function TEmbeddedWB.NavigateToFrame(FrameList: string): IHTMLDocument2;
-var
- Document: IHTMLDocument2;
- FramesIndexList: TStringList;
- i: Integer;
-begin
- Result := nil;
- Document := GetDocument;
- if Assigned(Document) then
- begin
- FramesIndexList := TStringList.Create;
- try
- FramesIndexList.CommaText := FrameList; //move into the last frame
- for i := 0 to FramesIndexList.Count - 1 do
- begin
- Document := GetFrameFromDocument(Document, StrToInt(FramesIndexList[i])).Document as IHTMLDocument2;
- if not DocumentLoaded then
- Exit;
- end;
- Result := Document;
- finally
- FramesIndexList.Free;
- end;
- end;
-end;
-
-// Saving & Loading ------------------------------------------------------------
-
-function TEmbeddedWB.SaveToFile(const FileName: string): HRESULT;
-begin
- Wait();
- if Assigned(Document) then
- Result := SaveDocToFile(Document, FileName)
- else
- Result := S_FALSE;
-end;
-
-function TEmbeddedWB.SaveToStream(AStream: TStream): HRESULT;
-begin
- Wait();
- if Assigned(Document) then
- Result := SaveDocToStream(Document, AStream)
- else
- Result := S_FALSE;
-end;
-
-function TEmbeddedWB.SaveToStrings(AStrings: TStrings): HRESULT;
-begin
- Wait();
- if Assigned(Document) then
- Result := SaveDocToStrings(Document, AStrings)
- else
- Result := S_FALSE;
-end;
-
-function TEmbeddedWB.SaveFrameToFile(FrameNo: Word; const FName: string): HRESULT;
-var
- Iw: IWebbrowser2;
- PFile: IPersistFile;
-begin
- iw := GetFrame(frameNo);
- if Assigned(iw) and Assigned(iw.Document) then
- begin
- PFile := iw.Document as IPersistFile;
- Result := PFile.Save(StringToOleStr(FName), False);
- end
- else
- Result := S_FALSE;
-end;
-
-function TEmbeddedWB.SaveFrameToStream(FrameNo: Integer; AStream: TStream): HRESULT;
-var
- iw: IWebbrowser2;
-begin
- Result := S_FALSE;
- iw := GetFrame(frameNo);
- if Assigned(iw) and Assigned(iw.Document) then
- Result := SaveDocToStream(iw.Document, AStream)
-end;
-
-function TEmbeddedWB.SaveFrameToStrings(FrameNo: Integer; AStrings: TStrings): HRESULT;
-var
- iw: Iwebbrowser2;
-begin
- Result := S_FALSE;
- iw := GetFrame(frameNo);
- if Assigned(iw) and Assigned(iw.Document) then
- Result := SaveDocToStrings(iw.Document, AStrings);
-end;
-
-function TEmbeddedWB.LoadFromString(const St: string): HRESULT;
-var
- Stream: TStringStream;
-begin
- if not Assigned(Document) then
- AssignEmptyDocument;
- Stream := TStringStream.Create(St{$IFDEF DELPHI12_UP}, FEncoding{$ENDIF});
- try
- OleCheck((Document as IPersistStreamInit).Load(TStreamAdapter.Create(Stream)));
- Result := S_OK;
- finally
- FreeAndNil(Stream);
- end;
-end;
-
-{$IFDEF DELPHI6_UP}
-
-function TEmbeddedWB.LoadFromWideString(const WideSt: WideString): HRESULT;
-var
- Strings: TStringList;
-begin
- if not Assigned(Document) then
- AssignEmptyDocument;
- Strings := TStringList.Create;
- try
- Strings.Text := WideSt;
- Result := LoadFromStrings(Strings);
- finally
- FreeAndNil(Strings);
- end;
-end;
-{$ENDIF}
-
-function TEmbeddedWB.LoadFromFile(const FileName: string): HRESULT;
-var
- Stream: TStream;
-begin
- Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
- try
- Result := LoadFromStream(Stream);
- finally
- Stream.Free;
- end;
-end;
-
-procedure TEmbeddedWB.LoadFromImage(Image: TImage);
-var
- Stm: TMemoryStream;
-begin
- Stm := TMemoryStream.Create;
- try
- Image.Picture.Bitmap.SaveToStream(Stm);
- LoadFromStream(Stm);
- finally
- Stm.Free;
- end;
-end;
-
-function TEmbeddedWB.LoadFromStrings(const AStrings: TStrings): HRESULT;
-var
- M: TMemoryStream;
-begin
- if not Assigned(Document) then
- AssignEmptyDocument;
- M := TMemoryStream.Create;
- try
- AStrings.SaveToStream(M{$IFDEF DELPHI12_UP}, FEncoding{$ENDIF});
- Result := LoadFromStream(M);
- except
- Result := S_FALSE;
- end;
- M.Free;
-end;
-
-function TEmbeddedWB.LoadFromStrings(const AStrings: TStrings; AddHtmlTags: Boolean): HRESULT;
-
- function AnsiSameStr(const S1, S2: string): Boolean;
- begin
- Result := AnsiCompareStr(S1, S2) = 0;
- end;
-
- function AnsiStartsStr(const ASubText, AText: string): Boolean;
- begin
- Result := AnsiSameStr(ASubText, System.Copy(AText, 1, Length(ASubText)));
- end;
-
-var
- M: TMemoryStream;
- stn: TStrings;
-begin
- if not Assigned(Document) then
- AssignEmptyDocument;
- M := TMemoryStream.Create;
- try
- if AddHtmlTags and not AnsiStartsStr('', UpperCase(AStrings.GetText)) then
- begin
- stn := TStringList.Create;
- try
- with stn do
- begin
- Add('');
- Add('');
- Add('');
- AddStrings(AStrings);
- Add('');
- Add('');
- SaveToStream(M{$IFDEF DELPHI12_UP}, FEncoding{$ENDIF});
- end;
- finally
- stn.Free;
- end;
- end
- else
- AStrings.SaveToStream(M{$IFDEF DELPHI12_UP}, FEncoding{$ENDIF});
- Result := LoadFromStream(M);
- finally
- M.Free;
- end;
-end;
-
-function TEmbeddedWB.LoadFromStream(const AStream: TStream): HRESULT;
-begin
- if not Assigned(Document) then
- AssignEmptyDocument;
- AStream.Seek(0, 0);
- Result := (Document as IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
-end;
-
-function TEmbeddedWB.LoadFrameFromStrings(FrameNo: Word; const AStrings: TStrings): HRESULT;
-var
- iw: IWebbrowser2;
- M: TMemoryStream;
-begin
- Result := S_FALSE;
- iw := GetFrame(FrameNo);
- if Assigned(iw) and Assigned(iw.Document) then
- begin
- M := TMemoryStream.Create;
- try
- AStrings.SaveToStream(M{$IFDEF DELPHI12_UP}, FEncoding{$ENDIF});
- M.Seek(0, 0);
- Result := (iw.Document as IPersistStreamInit).Load(TStreamAdapter.Create(M));
- except
- Result := S_FALSE;
- end;
- M.Free;
- end;
-end;
-
-function TEmbeddedWB.LoadFrameFromStream(FrameNo: Integer; AStream: TStream): HRESULT;
-var
- iw: IWebBrowser2;
-begin
- Result := S_FALSE;
- iw := GetFrame(frameNo);
- if Assigned(iw) then
- if Assigned(iw.Document) then
- begin
- AStream.Seek(0, 0);
- Result := (iw.Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
- end;
-end;
-
-// Menu Commands OLECMDID ------------------------------------------------------
-// http://msdn.microsoft.com/en-us/library/ms691264(VS.85).aspx
-
-//"Cut", "Copy", "Paste", ...
-
-function TEmbeddedWB.IsCommandEnabled(sCmdId: WideString): Boolean;
-var
- HTMLdoc2: IHTMLDocument2;
-begin
- HTMLdoc2 := doc2;
- if Assigned(HTMLdoc2) then
- Result := HTMLdoc2.queryCommandEnabled(sCmdId)
- else
- Result := False;
-end;
-
-// Command Identifiers: http://msdn.microsoft.com/en-us/library/ms533049(VS.85).aspx
-
-function TEmbeddedWB.QueryCommandValue(sCmdId: WideString): OleVariant;
-var
- HTMLdoc2: IHTMLDocument2;
-begin
- HTMLdoc2 := doc2;
- if Assigned(HTMLdoc2) then
- Result := HTMLdoc2.queryCommandValue(sCmdId)
- else
- Result := False;
-end;
-
-function TEmbeddedWB.Copy: Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
- // to check: http://support.microsoft.com/?scid=kb;en-us;897285&x=16&y=15
-end;
-
-function TEmbeddedWB.Paste;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.PasteSpecial;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_PASTESPECIAL, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.Delete;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_DELETE, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.SelectAll;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.ClearSelection;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.Undo;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_UNDO, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.Redo;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_REDO, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function TEmbeddedWB.Cut;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(False, OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-// Navigation ------------------------------------------------------------------
-
-procedure TEmbeddedWB.Stop;
-begin
- FStopped := True;
- try
- DefaultInterface.Stop;
- except
- end;
-end;
-
-procedure TEmbeddedWB.GoBack;
-begin
- try
- DefaultInterface.GoBack;
- except
- end;
-end;
-
-procedure TEmbeddedWB.GoForward;
-begin
- try
- DefaultInterface.GoForward;
- except
- end;
-end;
-
-// PopupMenu Filter ------------------------------------------------------------
-
-function TEmbeddedWB.FilterPopupMenu: Boolean;
-begin
- Result := inherited FilterPopupMenu or (DisabledPopupMenuItems <> []);
-end;
-
-procedure TEmbeddedWB.DoFilterPopupMenu(Sender: TObject; ID: DWORD; Menu: HMENU; const Context: IDispatch);
-const
- cmds: array[TIEPopupMenuItem] of UINT = (
- IDM_BACK, //rcsBack
- IDM_FORWARD, //rcsForward
- IDM_SAVEBACKGROUND, //rcsSavePageBkg
- IDM_SETASBACKGROUND, //rcsSetAsBkg
- IDM_COPYBACKGROUND, //rcsCopyBkg
- IDM_SETASDESKTOPITEM, //rcsSetAsDeskT
- IDM_SELECTALL, //rcsSelectAll
- IDM_PASTE, //rcsPaste
- IDM_CREATESHORTCUT, //rcsCreateSC
- IDM_ADDTOFAVOURITES, //rcsAddToFav
- IDM_ENCODING, //rcsEncoding
- IDM_REFRESH, //rcsRefresh
- IDM_VIEWSOURCE, //rcsViewSource
- IDM_PROPERTIES, //rcsProperties
- IDM_PRINT, //rcsPrint
- IDM_OPENINNEWWINDOW, //rcsOpenNWindow
- IDM_OPENLINK //rcsOpenLink
- );
-var
- IEPopupMenuItem: TIEPopupMenuItem;
-begin
- inherited;
- for IEPopupMenuItem := Low(TIEPopupMenuItem) to High(TIEPopupMenuItem) do
- if IEPopupMenuItem in DisabledPopupMenuItems then
- DeleteMenu(Menu, cmds[IEPopupMenuItem], MF_BYCOMMAND);
-end;
-
-// Miscellaneous ---------------------------------------------------------------
-
-procedure TEmbeddedWB.RefreshFrame(FrameNo: Word);
-var
- OleContainer: IOleContainer;
- Enum: ActiveX.IEnumUnknown;
- Unk: IUnknown;
- Fetched: PLongint;
-begin
- Wait();
- if Assigned(Document) then
- begin
- Fetched := nil;
- OleContainer := Document as IOleContainer;
- if Assigned(OleContainer) then
- begin
- OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
- Enum.Skip(FrameNo);
- Enum.Next(1, Unk, Fetched);
- (Unk as IWebbrowser2).Refresh;
- end;
- end
-end;
-
-function TEmbeddedWB.InvokeCMD(InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant): HRESULT;
-const
- PGUIDs: array[Boolean] of PGUID = (nil, @CLSID_WebBrowser);
-begin
- Result := InvokeCommand(PGUIDs[InvokeIE], Value1, Value2, vaIn, vaOut);
-end;
-
-procedure TEmbeddedWB.InvokeIEServerCommand(Cmd: Integer);
-begin
- SendMessage(Handle, WM_COMMAND, Cmd, 0);
-end;
-
-procedure TEmbeddedWB.ShowImportExportFavoritesAndCookies;
-begin
- InvokeIEServerCommand(ID_IE_FILE_IMPORTEXPORT);
-end;
-
-procedure TEmbeddedWB.SetModified(Value: Boolean);
-var
- HTMLDoc2: IHTMLDocument2;
-begin
- if ((not FModified) and (READYSTATE = READYSTATE_COMPLETE)) then
- begin
- HTMLDoc2 := doc2;
- if Assigned(HTMLDoc2) then
- FModified := HTMLdoc2.QueryCommandEnabled('Undo');
- end;
-end;
-
-procedure TEmbeddedWB.SetDesginMode(Value: Boolean);
-const
- SwitchOnOff: array[Boolean] of string = ('Off', 'On');
-var
- HTMLDoc2: IHTMLDocument2;
-begin
- HTMLDoc2 := doc2;
- if Assigned(HTMLDoc2) then
- HTMLDoc2.designMode := SwitchOnOff[Value];
-end;
-
-function TEmbeddedWB.GetDesginMode: Boolean;
-const
- SwitchOnOff: array[Boolean] of string = ('Off', 'On');
-var
- HTMLDoc2: IHTMLDocument2;
- Status: string;
-begin
- Result := False;
- HTMLDoc2 := doc2;
- if Assigned(HTMLDoc2) then
- begin
- Status := SwitchOnOff[HTMLDoc2.get_designMode = 'On'];
- Result := Status = 'On';
- end;
-end;
-
-function TEmbeddedWB.PrintMarginStr(M: Real): string;
-begin
- if PrintOptions.Measure <> FRuntimeMeasure then
- begin
- if FRuntimeMeasure = mMetric then
- Result := FloatToStr(M * InchToMetric)
- else
- Result := FloatToStr(M / InchToMetric);
- end
- else
- Result := FloatToStr(M);
-end;
-
-procedure TEmbeddedWB.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-{$IFDEF Enable_EwbMSHTMLEvents}
-
-procedure TEmbeddedWB.SetSinkComponent(Value: TMSHTMLHTMLDocumentEvents);
-begin
- Exit;
-end;
-{$ENDIF}
-
-// User Agent Stuff ------------------------------------------------------------
-
-procedure TEmbeddedWB.RestoreUserAgentReg;
-const
- REG_KEY_USERAGENT = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent';
-begin
- if (FUserAgentReg <> '') and FUserAgentRegSet then
- begin
- if (csDesigning in ComponentState) then
- begin
- FUserAgentRegSet := False;
- FUserAgentReg := '';
- end
- else
- with TRegistry.Create do
- begin
- try
- RootKey := HKEY_CURRENT_USER;
- if OpenKey(REG_KEY_USERAGENT, False) then
- begin
- DeleteKey('Post Platform');
- OpenKey(REG_KEY_USERAGENT + '\Post Platform', True);
- WriteString(USER_AGENT_IE6, '');
- FUserAgentRegSet := False;
- FUserAgentReg := '';
- end;
- finally
- CloseKey;
- Free;
- end;
- end;
- end;
-end;
-
-procedure TEmbeddedWB.SetUserAgentReg;
-begin
- if (FUserAgent <> FUserAgentReg) then
- begin
- RestoreUserAgentReg;
- FUserAgentReg := FUserAgent;
- if (not (csDesigning in ComponentState)) then
- with TRegistry.Create do
- begin
- try
- FUserAgentReg := USER_AGENT_IE6 + '(' + FUserAgentReg + ')';
- begin
- RootKey := HKEY_CURRENT_USER;
- try
- if OpenKey(USER_AGENT_PATH, True) then
- begin
- WriteString(FUserAgentReg, '');
- FUserAgentRegSet := True;
- end;
- finally
- CloseKey;
- end;
- end;
- finally
- Free;
- end;
- end;
- end;
-end;
-
-procedure TEmbeddedWB.SetUserAgentInt;
-var
- Control: IOleControl;
-begin
- if FUserAgent <> FUserAgentInt then
- begin
- RestoreUserAgentReg;
- if DefaultInterface.QueryInterface(IOleControl, Control) = 0 then
- with (Application as IOleControl) do
- begin
- FUserAgentInt := FUserAgent;
- Control.OnAmbientPropertyChange(DISPID_AMBIENT_USERAGENT);
- //_Release; I4214 // I4214
- end;
- end;
-end;
-
-procedure TEmbeddedWB.UpdateUserAgent;
-begin
- case FUserAgentMode of
- uaInternal: SetUserAgentInt;
- uaRegistry: SetUserAgentReg;
- uaDefault: RestoreUserAgentReg;
- end;
-end;
-
-procedure TEmbeddedWB.SetUserAgent(const Value: string);
-begin
- if Value <> FUserAgent then
- begin
- FUserAgent := Value;
- UpdateUserAgent;
- end;
-end;
-
-procedure TEmbeddedWB.SetUserAgentMode(Value: TUserAgentMode);
-begin
- if Value <> FUserAgentMode then
- begin
- FUserAgentMode := Value;
- UpdateUserAgent;
- end;
-end;
-
-function TEmbeddedWB.OnSetUserAgentEvent(var UserAgent: string): HRESULT;
-begin
- Result := S_FALSE;
- UserAgent := '';
- if (uaInternal = FUserAgentMode) and (FUserAgent <> '') then
- begin
- Result := S_OK;
- UserAgent := FUserAgent;
- end;
-end;
-
-procedure TEmbeddedWB.ShowAboutBox;
-begin
- try
- TEWB(Self).ShowAboutBox;
- except
- SendMessage(Self.GetIEWin('Shell DocObject View'), WM_COMMAND, 336 {ID_IE_HELP_ABOUTIE}, 0);
- end;
-end;
-
-//=== EwbTools =================================================================
-
-{$IFDEF USE_EwbTools}
-
-//Document and Frame -----------------------------------------------------------
-
-function TEmbeddedWB.SearchNextText(const Value: string; Direction: TSearchDirections = sdDown;
- AutoSelect: Boolean = True): TSearchResults;
-var
- Document2: IHTMLDocument2;
-const
- ADirection: array[TSearchDirections] of Shortint = (+1, -1);
-begin
- Result := [srNotFound];
- if AnsiCompareText(Value, FSearchText) <> 0 then
- begin
- FTextRange := nil;
- FSearchText := Value;
- FHTMLChar := #0;
- end;
- //
- if FSearchText = '' then
- Exit;
- //
- Document2 := GetDocument;
- if Document2 = nil then
- Exit;
-
- if not Assigned(FTextRange) then
- FTextRange := (Document2.body as IHTMLBodyElement).createTextRange;
- //
- if FHTMLChar <> #0 then
- begin
- if FHTMLChar <> Char(Ord(Direction) + 1) then
- FTextRange.move('character', 0)
- else
- case Direction of
- sdDown: FTextRange.move('character', 1);
- sdUp: FTextRange.move('character', -1);
- end;
- end
- else
- begin
- if FLastSearchDirection <> Direction then
- case FLastSearchDirection of
- sdDown: FTextRange.move('character', -1);
- sdUp: FTextRange.move('character', 1);
- end;
- end;
- //
- if FTextRange.findText(FSearchText, ADirection[Direction], 0) then
- begin
- FTextRange.scrollIntoView(True);
- if AutoSelect then
- begin
- try
- FTextRange.select;
- // Selecting a range sometimes fails
- // Maybe someone knows of a better way to check if a range is selectable?
- except
- end;
- end;
- FHTMLChar := Char(Ord(Direction) + 1);
- Result := [srFound];
- end
- else
- FHTMLChar := #0;
- if (FLastSearchDirection = Direction) and (FHTMLChar = #0) then
- Include(Result, srEndOf);
- FLastSearchDirection := Direction;
-end;
-
-function TEmbeddedWB.GetWordAtCursor(const X, Y: Integer): string;
-begin
- Result := EwbTools.GetWordAtCursor(X, Y, Self);
-end;
-
-procedure TEmbeddedWB.ScrollToIDEx(ID: string);
-begin
- EwbTools.ScrollToIDEx(ID, Self);
-end;
-
-procedure TEmbeddedWB.ScrollToID(ID: Integer);
-begin
- EwbTools.ScrollToID(ID, Self);
-end;
-
-function TEmbeddedWB.HScrollBarVisible: Boolean;
-var
- HScroll, VScroll: Boolean;
-begin
- EwbTools.GetScrollbarVisibility(Self, HScroll, VScroll);
- Result := HScroll;
-end;
-
-function TEmbeddedWB.VScrollBarVisible: Boolean;
-var
- HScroll, VScroll: Boolean;
-begin
- EwbTools.GetScrollbarVisibility(Self, HScroll, VScroll);
- Result := VScroll;
-end;
-
-function TEmbeddedWB.HScrollBarPosition: Integer;
-var
- ScrollPos: TPoint;
-begin
- if EwbTools.GetScrollBarPosition(Self, ScrollPos) then
- Result := ScrollPos.X
- else
- Result := -1;
-end;
-
-function TEmbeddedWB.VScrollBarPosition: Integer;
-var
- ScrollPos: TPoint;
-begin
- if EwbTools.GetScrollBarPosition(Self, ScrollPos) then
- Result := ScrollPos.Y
- else
- Result := -1;
-end;
-
-function TEmbeddedWB.DocumentSource: string;
-begin
- Result := EwbTools.DocumentSource(OleObject);
-end;
-
-function TEmbeddedWB.DocumentSourceText: string;
-begin
- Result := EwbTools.DocumentSourceText(OleObject, Document);
-end;
-
-function TEmbeddedWB.AddHtmlToAboutBlank(StringToHtml: string): Boolean;
-begin
- Result := EwbTools.AddHtmlToAboutBlank(Self, StringToHtml);
-end;
-
-function TEmbeddedWB.FrameCount: Longint;
-begin
- Wait();
- Result := EwbTools.FrameCount(Document);
-end;
-
-function TEmbeddedWB.FrameCountFromDocument(SourceDoc:
- IHTMLDocument2): Integer; //By Aladin
-begin
- Wait();
- Result := EwbTools.FrameCountFromDocument(SourceDoc);
-end;
-
-function TEmbeddedWB.GetCookie: string;
-begin
- Result := Cookie;
-end;
-
-//Document Operations ----------------------------------------------------------
-
-procedure TEmbeddedWB.ScrollToTop;
-begin
- Wait();
- EwbTools.ScrollToTop(OleObject);
-end;
-
-procedure TEmbeddedWB.ScrollToBottom;
-begin
- Wait();
- EwbTools.ScrollToBottom(Document);
-end;
-
-procedure TEmbeddedWB.ScrollToPosition(X, Y: Integer);
-begin
- Wait();
- EwbTools.ScrollToPosition(OleObject, X, Y);
-end;
-
-function TEmbeddedWB.SetCharartersSet(const ACharactersSet: string; Refresh: Boolean = True): Boolean;
-begin
- Result := EwbTools.SetCharartersSet(Self, Document, ACharactersSet);
-end;
-
-procedure TEmbeddedWB.GetThumbnail(var Image: TImage);
-begin
- EwbTools.GetThumbnail(Application, Image)
-end;
-
-function TEmbeddedWB.GetBmpFromBrowser(FileName: string): Boolean;
-begin
- Result := EwbTools.GetBmpFromBrowser(Document, Self.Handle, Self.Width, Self.Height, FileName);
-end;
-
-function TEmbeddedWB.GetJPEGfromBrowser(FileName: string; SourceHeight, SourceWidth,
- TargetHeight, TargetWidth: Integer): Boolean;
-begin
- Result := EwbTools.GetJPEGfromBrowser(Document, ControlInterface, FileName, SourceHeight,
- SourceWidth, TargetHeight, TargetWidth);
-end;
-
-//View Document Fields/Properties/Images ---------------------------------------
-
-procedure TEmbeddedWB.ViewPageSourceText;
-begin
- EwbTools.ViewPageSourceText(OleObject, Document);
-end;
-
-procedure TEmbeddedWB.ViewPageSourceTextToStrings(TextList: TStrings);
-begin
- Wait();
- EwbTools.ViewPageSourceTextToStrings(OleObject, Document, TextList);
-end;
-
-procedure TEmbeddedWB.ViewPageSourceHTMLToStrings(HtmlList: TStrings);
-begin
- Wait();
- EwbTools.ViewPageSourceHTMLToStrings(OleObject, Document, HtmlList);
-end;
-
-procedure TEmbeddedWB.ViewPageLinksToStrings(LinksList: TStrings);
-begin
- EwbTools.ViewPageLinksToStrings(OleObject, LinksList);
-end;
-
-//Printing ---------------------------------------------------------------------
-
-procedure TEmbeddedWB.Print;
-begin
- Wait();
- if FPrintOptions.Enabled then
- EwbTools.Print(ControlInterface, FPrintOptions.HideSetup)
- else
- EwbTools.Print(ControlInterface, FPrintOptions.HideSetup, True, FPrintOptions.Header, FPrintOptions.Footer)
-end;
-
-procedure TEmbeddedWB.PrintWithOptions;
-begin
- Wait();
- bPrintOptionsEnable := True;
- EwbTools.PrintWithOptions(ControlInterface, Document, True, FPrintOptions.FEnabled,
- FPrintOptions.HideSetup, bInvokingPageSetup);
-end;
-
-procedure TEmbeddedWB.PrintPreview;
-begin
- EwbTools.PrintPreview(ControlInterface);
-end;
-
-procedure TEmbeddedWB.PrintPreviewExtended(nCMDShow: Integer);
-begin
- EwbTools.PrintPreviewExtended(ControlInterface, nCMDShow, FPrintOptions.HideSetup);
- bPrintOptionsEnable := True;
-end;
-
-function TEmbeddedWB.PageSetup(UsePrintOptions: Boolean): Boolean;
-begin
- Wait();
- Result := EwbTools.PageSetup(Document, UsePrintOptions, FPrintOptions.FEnabled, bInvokingPageSetup);
- bPrintOptionsEnable := True;
-end;
-
-procedure TEmbeddedWB.PrintSetup;
-begin
- Wait();
- EwbTools.PrintSetup(ControlInterface, FPrintOptions.HideSetup);
-end;
-
-procedure TEmbeddedWB.PrintPreviewFromTemplate(const TemplateFileName: string);
-begin
- EwbTools.PrintPreviewFromTemplate(TemplateFileName, Document);
-end;
-
-//Dialogs ---------------------------------------------------------------------
-
-function TEmbeddedWB.OpenDialog: Boolean;
-begin
- Result := EwbTools.OpenDialog(Self, Self);
-end;
-
-function TEmbeddedWB.SaveDialog: Boolean;
-begin
- Result := EwbTools.SaveDialog(Document);
-end;
-
-function TEmbeddedWB.SaveDialogEx(AFilter: string = ''; ATitle: string = ''): string;
-begin
- Result := EwbTools.SaveDialog(Self, Self, ATitle, AFilter);
-end;
-
-function TEmbeddedWB.ShowInternetOptions: Boolean;
-begin
- Result := EwbTools.ShowInternetOptions(Document);
-end;
-
-function TEmbeddedWB.ShowPageProperties: Boolean;
-begin
- Result := EwbTools.ShowPageProperties(Document);
-end;
-
-function TEmbeddedWB.ShowOrganizeFavorites: Boolean;
-begin
- Result := EwbTools.ShowOrganizeFavorites(Handle);
-end;
-
-function TEmbeddedWB.ShowFindDialog: Boolean;
-begin
- Result := EwbTools.ShowFindDialog(Document)
-end;
-
-procedure TEmbeddedWB.SaveImagesDialog;
-begin
- EwbTools.SaveImagesDialog(OleObject, Document);
-end;
-
-function TEmbeddedWB.ViewPageSourceHtml: Boolean;
-begin
- Result := EwbTools.ViewPageSourceHtml(Document);
-end;
-
-procedure TEmbeddedWB.SavePageTextDialog;
-begin
- Wait();
- EwbTools.SavePageTextDialog(Self, OleObject, Document);
-end;
-
-//Open external programs -------------------------------------------------------
-
-function TEmbeddedWB.OpenClient(Client: string): Boolean;
-begin
- Result := EwbTools.OpenClient(Client);
-end;
-
-procedure TEmbeddedWB.ExploreFolder(Path: string);
-begin
- EwbTools.DoExploreFolder(Handle, Path);
-end;
-
-procedure TEmbeddedWB.OpenIEBrowserWithAddress;
-begin
- EwbTools.OpenIEBrowserWithAddress(Handle);
-end;
-
-//Open specific webpages -------------------------------------------------------
-
-procedure TEmbeddedWB.GoSearchInGoogle(SearchTerm: string);
-begin
- EwbTools.GoSearchInGoogle(Self, SearchTerm)
-end;
-
-procedure TEmbeddedWB.GoSearchInMSN(SearchTerm: string);
-begin
- EwbTools.GoSearchInMSN(Self, SearchTerm)
-end;
-
-procedure TEmbeddedWB.GoSearchInYahoo(SearchTerm: string);
-begin
- EwbTools.GoSearchInYahoo(Self, SearchTerm)
-end;
-
-//Navigatetml & Download ----------------------------------------------------------
-
-procedure TEmbeddedWB.GoDownloadFile(URL: string);
-begin
- EwbTools.GoDownloadFile(Self, URL);
-end;
-
-procedure TEmbeddedWB.GoDownloadMaskedFile(SourceFile, TargetFile: string; Notify: Boolean);
-begin
- EwbTools.GoDownloadMaskedFile(SourceFile, TargetFile, Notify);
-end;
-
-procedure TEmbeddedWB.GoWithQueryDetails(Url, Query: string);
-begin
- EwbTools.GoWithQueryDetails(Self, Url, Query);
-end;
-
-procedure TEmbeddedWB.GoNoHistory(const URL: string);
-begin
- EwbTools.GoNoHistory(Self, URL);
-end;
-
-procedure TEmbeddedWB.GoAboutBlank;
-begin
- EwbTools.GoAboutBlank(Self);
-end;
-
-//Get Special Folders/URL paths etc.--------------------------------------------
-
-function TEmbeddedWB.GetCookiesPath: string;
-begin
- Result := EwbTools.GetCookiesPath;
-end;
-
-function TEmbeddedWB.GetHistoryPath: string;
-begin
- Result := EwbTools.GetHistoryPath;
-end;
-
-function TEmbeddedWB.GetFavoritesPath: string;
-begin
- Result := EwbTools.GetFavoritesPath;
-end;
-
-function TEmbeddedWB.GetDefaultBrowserFromRegistry: string;
-begin
- Result := EwbTools.GetDefaultBrowserFromRegistry;
-end;
-
-function TEmbeddedWB.GetSpecialFolderPath(CallerHandle: THandle; CSIDL: Integer): PChar;
-begin
- Result := EwbTools.GetSpecialFolderPath(CallerHandle, CSIDL);
-end;
-
-function TEmbeddedWB.GetCachedFileFromURL(ItemUrl: string): string;
-begin
- Result := EwbTools.GetCachedFileFromURL(ItemUrl);
-end;
-
-function TEmbeddedWB.URLFromFavorites(const dotURL: string): string;
-begin
- Result := EwbTools.URLFromFavorites(dotURL);
-end;
-
-function TEmbeddedWB.UrlFromHistory(ShellFolder: IShellFolder; pidl: PItemIDList): string;
-begin
- Result := EwbTools.UrlFromHistory(ShellFolder, pidl)
-end;
-
-function TEmbeddedWB.GetIPAndHostName(var HostName, IPaddr, WSAErr: string): Boolean;
-begin
- Result := EwbTools.GetIPAndHostName(HostName, IPaddr, WSAErr);
-end;
-
-//E-Mail functions--------------------------------------------------------------
-
-procedure TEmbeddedWB.SendPageInMailAsAttachment(aOwner: TComponent; FileName, Subject, Body: string);
-begin
- EwbTools.SendPageInMailAsAttachment(Self, aOwner, Document, FileName, Subject, Body);
-end;
-
-procedure TEmbeddedWB.CreateNewMail;
-begin
- EwbTools.CreateNewMail;
-end;
-
-procedure TEmbeddedWB.SendUrlInMail;
-begin
- EwbTools.SendUrlInMail(LocationURL, LocationName);
-end;
-
-//Search in Document & Fill Forms-----------------------------------------------
-
-function TEmbeddedWB.SearchText(const Value: string; const iPos: Integer = 1): IHTMLTxtRange;
-begin //by JJM
- Result := EwbTools.SearchText(Self, Document, Value, iPos);
-end;
-
-function TEmbeddedWB.SearchString(const strText: string): Boolean;
-begin
- Result := EwbTools.SearchString(Self, strText);
-end;
-
-procedure TEmbeddedWB.SearchAndHighlight(AText: string; const ACaption, APrompt: string;
- Flags: TSearchFlags = []; cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll);
-begin
- Wait();
- EwbTools.SearchAndHighlight(Document, AText, ACaption, APrompt, Flags,
- cbackColor, cForeColor, ScrollIntoView, True);
-end;
-
-procedure TEmbeddedWB.SearchAndHighlight(AText: string; Flags: TSearchFlags = [];
- cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll);
-begin
- Wait();
- EwbTools.SearchAndHighlight(Document, AText, '', '', Flags, cbackColor, cForeColor, ScrollIntoView, False);
-end;
-
-function TEmbeddedWB.FillForm(FieldName: string; Value: string; ElementNr: Integer = -1): Boolean;
-begin
- Result := EwbTools.FillForm(Self, FieldName, Value, ElementNr)
-end;
-
-function TEmbeddedWB.GetFieldValue(FieldName: string): string;
-begin
- Result := EwbTools.GetFieldValue(OleObject, FieldName)
-end;
-
-procedure TEmbeddedWB.FillFormAndExcecute;
-begin
- EwbTools.FillIEFormAndExcecute
-end;
-
-//Clearing Cache/History/Typed ULRS---------------------------------------------
-
-procedure TEmbeddedWB.ClearCache;
-begin
- EwbTools.ClearCache;
-end;
-
-procedure TEmbeddedWB.ClearTypedUrls;
-begin
- EwbTools.ClearTypedUrls;
-end;
-
-procedure TEmbeddedWB.ClearHistory;
-begin
- EwbTools.ClearHistory;
-end;
-
-//Online Status-----------------------------------------------------------------
-
-function TEmbeddedWB.CheckOnlineStatus: Boolean;
-begin
- Result := EwbTools.CheckOnlineStatus;
-end;
-
-function TEmbeddedWB.IsGlobalOffline: Boolean;
-begin
- Result := EwbTools.IsGlobalOffline;
-end;
-
-procedure TEmbeddedWB.WorkOnline;
-begin
- EwbTools.WorkOnline();
-end;
-
-procedure TEmbeddedWB.WorkOffline;
-begin
- EwbTools.WorkOffline();
-end;
-
-//Restricted & Trusted Lists----------------------------------------------------
-
-procedure TEmbeddedWB.AddToRestrictedSiteList(URL: string);
-begin
- EwbTools.AddToRestrictedSiteList(Self, URL);
-end;
-
-procedure TEmbeddedWB.AddToTrustedSiteList(URL: string);
-begin
- EwbTools.AddToTrustedSiteList(Self, URL);
-end;
-
-function TEmbeddedWB.CheckIfInTrustedList(const Host: string; SecureSite: Boolean): Boolean;
-begin
- Result := EwbTools.CheckIfInTrustedList(Host, SecureSite);
-end;
-
-function TEmbeddedWB.CheckIfInRestricredList(Host: string; SecureSite: Boolean): Boolean;
-begin
- Result := EwbTools.CheckIfInRestricredList(Host, SecureSite);
-end;
-
-//Zone Icon, Security Zone, SSL Status ----------------------------------------
-
-function TEmbeddedWB.ImportCertFile(FileName, StoreType: string): Boolean;
-begin
- Result := EwbTools.ImportCertFile(FileName, StoreType);
-end;
-
-procedure TEmbeddedWB.GetZoneIcon(IconPath: string; var Icon: TIcon);
-begin
- EwbTools.GetZoneIcon(IconPath, Icon);
-end;
-
-function TEmbeddedWB.GetZoneAttributes(const URL: string): TZoneAttributes;
-begin
- Result := EwbTools.GetZoneAttributes(LocationURL);
-end;
-
-function TEmbeddedWB.GetZoneIconToForm: Boolean;
-begin
- Result := EwbTools.GetZoneIconToForm(LocationURL, Caption, Hint);
-end;
-
-function TEmbeddedWB.GetSSLStatus(var SSLName, SSLDescription: string): Boolean;
-begin
- Result := EwbTools.GetSSLStatus(OleObject, LocationURL, SSLName, SSLDescription);
-end;
-
-function TEmbeddedWB.GetUrlSecurityZone(var ZoneName, ZoneDescription: string; var Icon: TIcon): Boolean;
-begin
- Result := EwbTools.GetUrlSecurityZone(LocationURL, ZoneName, ZoneDescription, Icon);
-end;
-
-//Proxy ------------------------------------------------------------------------
-
-function TProxySettings.SetProxy(UserAgent, Address, Bypass: string): Boolean;
-begin
- Result := EwbTools.SetProxy(UserAgent, Address, Bypass);
- bProxy := Result;
-end;
-
-function TProxySettings.SetProxy(UserAgent, Address, UserName, Password: string; Port: Integer): Boolean;
-begin
- Result := EwbTools.SetProxy(UserAgent, Address, UserName, Password, Port);
- bProxy := Result;
-end;
-
-function TProxySettings.SetProxyFromPAC(UserAgent, PACFile: string): Boolean;
-begin
- Result := EwbTools.SetProxyFromPAC(UserAgent, PACFile);
- bProxy := Result;
-end;
-
-procedure TEmbeddedWB.RefreshProxy;
-begin
- if FProxySettings.FUserName = '' then
- FProxySettings.SetProxy(FProxySettings.FUserAgent, FProxySettings.FAddress +
- ':' + IntToStr(FProxySettings.FPort), FProxySettings.FBypass)
- else
- FProxySettings.SetProxy(FProxySettings.FUserAgent, FProxySettings.FAddress,
- FProxySettings.FUserName, FProxySettings.FPassword, FProxySettings.FPort);
-end;
-
-//Miscellaneous ----------------------------------------------------------------
-
-procedure TEmbeddedWB.RestoreApplicationFormSize;
-begin
- EwbTools.RestoreApplicationFormSize(Self);
-end;
-
-procedure TEmbeddedWB.SaveApplicationFormSize;
-begin
- EwbTools.SaveApplicationFormSize(Self);
-end;
-
-procedure TEmbeddedWB.ShowIEVersionInfo;
-begin
- EwbTools.ShowIEVersionInfo(Handle);
-end;
-
-procedure TEmbeddedWB.SetNewHomePage(HomePage: string);
-begin
- EwbTools.SetNewHomePage(HomePage);
-end;
-
-function TEmbeddedWB.GetLastVisitedPage(var LastVisitedPage: string): Boolean;
-begin
- Result := EwbTools.GetLastVisitedPage(LastVisitedPage);
-end;
-
-function TEmbeddedWB.SaveLastVisitedPage: Boolean;
-begin
- Result := EwbTools.SaveLastVisitedPage(Self, LocationURL);
-end;
-
-procedure TEmbeddedWB.AddToFavorites(URL, Title: string);
-begin
- inherited;
- EwbTools.AddToFavorites(URL, Title);
-end;
-
-procedure TEmbeddedWB.CreateDesktopShortcut;
-begin
- EwbTools.CreateDesktopShortcut(Handle);
-end;
-
-procedure TEmbeddedWB.DisableNavSound(bDisable: Boolean);
-begin
- if GetIEVersionMajor >= 7 then
- CoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, FEATURE_FROM_PROCESS, bDisable)
- else
- EwbTools.DisableNavSound(bDisable);
-end;
-
-procedure TEmbeddedWB.ExecScript(sExpression, sLanguage: string);
-// e.g. sLanguage = 'JavaScript';
-begin
- EwbTools.ExecScript(Self, sExpression, sLanguage);
-end;
-
-function TEmbeddedWB.ExecScriptEx(MethodName: string; ParamValues: array of const): OleVariant;
-begin
- Result := EwbTools.ExecScriptEx(Self, MethodName, ParamValues);
-end;
-
-function TEmbeddedWB.IsValidProtocol(const URL: string): Boolean;
-begin
- Result := EwbTools.IsValidProtocol(URL);
-end;
-
-function TEmbeddedWB.DecodeUrl(const InputStr: string): string;
-begin
- Result := EwbTools.DecodeUrl(InputStr);
-end;
-
-function TEmbeddedWB.EncodeUrl(const InputStr: string; const bQueryStr: Boolean): string;
-begin
- Result := EwbTools.EncodeUrl(InputStr, bQueryStr);
-end;
-
-{$ENDIF} // USE_EwbTools
-
-//=== OnCreate / OnDestroy / Loaded / LoadSettings ============================
-
-constructor TEmbeddedWB.Create(Owner: TComponent);
-begin
- inherited;
- {---------------------------------------------}
-{$IFDEF Enable_EwbMSHTMLEvents}
- FSinkComponent := TMSHTMLHTMLDocumentEvents.Create(Self);
-{$ENDIF}
- {---------------------------------------------}
- FAbout := EWB_INFO;
- FVisible := True;
- FSilent := True;
- {---------------------------------------------}
- FPrintOptions := TPrintOptions.Create;
- FPrintOptions.Margins := TMargins.Create;
- FPrintOptions.FHTMLHeader := TStringlist.Create;
- FPrintOptions.FHTMLHeader.Add('');
- {---------------------------------------------}
- FProxySettings := TProxySettings.Create;
- FProxySettings.FPort := 80;
- {---------------------------------------------}
- FDisableErrors := TDisableErrors.Create;
- FDisableErrors.FEnableDDE := True;
- FDisableErrors.FfpExceptions := True;
- FDisableErrors.FScriptErrorsSuppressed := True;
- {---------------------------------------------}
- FDialogBoxes := TDialogBoxes.Create;
- FDialogBoxes.FReplaceCaption := True;
- FDialogBoxes.FReplaceIcon := True;
- {---------------------------------------------}
- FVisualEffects := TVisualEffects.Create;
- FVisualEffects.FTextSize := 2;
- {---------------------------------------------}
- FWinXPSP2orLater := IsWinXPSP2OrLater;
- FResizing := not FWinXPSP2orLater;
- FSearchText := '';
- FHTMLChar := #0;
- FStopped := False;
- {---------------------------------------------}
- FUserAgent := '';
- FUserAgentInt := '';
- FUserAgentReg := '';
- {---------------------------------------------}
-{$IFDEF DELPHI12_UP}
- Encoding := TEncoding.Default;
-{$ENDIF}
- FTextRange := nil;
- FHTMLCode := TStringList.Create;
- FEnableMessageHandler := True;
- FWndProcSubClassed := False;
- FOnSetUserAgent := OnSetUserAgentEvent;
- FOnHookChildWindow := OnHookChildWindows;
-{$IFDEF Enable_SubClassChildWindows}
- InitEWBChildHook;
-{$ENDIF}
- FDestroying := False;
-end;
-
-destructor TEmbeddedWB.Destroy;
-begin
- FDestroying := True;
- FPrintOptions.HTMLHeader.Free;
- FPrintOptions.Margins.Free;
- FreeAndNil(FPrintOptions);
- FreeAndNil(FDialogBoxes);
- FreeAndNil(FDisableErrors);
- FreeAndNil(FProxySettings);
- FreeAndNil(FHTMLCode);
-{$IFDEF USE_EwbMSHTMLEvents}
- FSinkComponent.OnMouseDown := nil;
- FreeAndNil(FSinkComponent);
-{$ENDIF}
-{$IFDEF USE_EwbTools}
- if (FVisualEffects.FTextSize <> 2) and (not (csDesigning in ComponentState)) then
- Zoom := 2;
-{$ENDIF}
- FTextRange := nil;
- FreeAndNil(FVisualEffects);
- RestoreUserAgentReg;
-{$IFDEF Enable_HookParentFormWndProc}
- UnHookParentFormWndProc;
-{$ENDIF}
- inherited;
-end;
-
-procedure TEmbeddedWB.LoadSettings;
-begin
- if not (csDesigning in ComponentState) then
- begin
- Modified := False;
- FRuntimeMeasure := GetRunTimeMeasure;
- FEnableMessageHandler := True;
-{$IFDEF USE_EwbDDE}
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_DEPRECATED OFF}
-{$ENDIF}
- if DDEHWND = 0 then
- begin
- GetDDEVariables;
- DDEHWND := AllocateHWnd(DDEWndProc);
- end;
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_DEPRECATED ON}
-{$ENDIF}{$ENDIF}
- if not FWndProcSubClassed then
- begin
- WindowProc := WndProc;
- FWndProcSubClassed := True;
- end;
- if not Assigned(SecurityManager) then
- begin
- CoInternetCreateSecurityManager(Self, SecurityManager, 0);
- CoInternetCreateZoneManager(Self, ZoneManager, 0);
- end;
- if FDisableErrors.FScriptErrorsSuppressed then
- ScriptErrorAction := eaContinue;
- FDisableErrors.SetfpExceptions(FDisableErrors.FfpExceptions);
-{$IFDEF Enable_HookParentFormWndProc}
- HookParentFormWndProc;
-{$ENDIF}
-
-{$IFDEF USE_EwbTools}
- if (FProxySettings.FAutoLoadProxy) then
- RefreshProxy;
- if FVisualEffects.FDisableSounds then
- begin
- DisableNavSound(True);
- bNavSound := True;
- end;
-{$ENDIF}
- end
- else
- begin
- FPrintOptions.FMeasure := FRunTimeMeasure;
- GetPrintValues;
- end;
- HTMLCodeChanged(Self);
- FHTMLCode.OnChange := HTMLCodeChanged;
-end;
-
-procedure TEmbeddedWB.Loaded;
-begin
- inherited Loaded;
- LoadSettings;
-end;
-
-//=== Initialization & Finalization ============================================
-
-procedure DoInitialization;
-begin
-{$WARN SYMBOL_PLATFORM OFF}
- wSaved8087CW := Default8087CW;
-{$WARN SYMBOL_PLATFORM DEFAULT}
- bPrintOptionsEnable := False;
- bProxy := False;
- bNavSound := False;
- bOleInitialize := OleInitialize(nil) = S_OK;
-
-{$IFDEF AutoUse_EwbControl}
- EwbControl := TEwbControl.Create(nil);
-{$IFDEF Enable_AutoFocusControl}
- EwbControl.FocusControl.Active := True;
-{$ENDIF Enable_AutoFocusControl}
-
-{$IFDEF Enable_AutoMouseWheelFix}
- EwbControl.MouseWheelFix.Active := True;
-{$ENDIF Enable_AutoMouseWheelFix}
-
-{$ENDIF AutoUse_EwbControl}
-end;
-
-procedure DoFinalization;
-begin
-{$IFDEF USE_EwbDDE}
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_DEPRECATED OFF}
- if DDEHWND <> 0 then
- DeAllocateHWND(DDEHWND);
-{$WARN SYMBOL_DEPRECATED ON}
-{$ENDIF}
-{$ENDIF}
-
-{$IFDEF USE_EwbTools}
- if bProxy then
- RemoveProxy;
- if bNavSound then
- DisableNavSound(False);
-{$ENDIF}
-
- Set8087CW(wSaved8087CW);
- if bOleInitialize then
- try
- OleUninitialize;
- except
- end;
-
-{$IFDEF Enable_AutoFocusControl}
- if Assigned(EwbControl) then
- EwbControl.Free;
-{$ENDIF}
-end;
-
-initialization
- DoInitialization;
-finalization
- DoFinalization;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/EwbAcc.pas b/windows/src/ext/embeddedwb/Source/EwbAcc.pas
deleted file mode 100644
index 586b8ba6564a3e09de94dacc1d80b7ec22955f5f..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbAcc.pas
+++ /dev/null
@@ -1,827 +0,0 @@
-//**************************************************************
-// *
-// EwbAcc * *
-// For Delphi *
-// by bsalsa *
-// bsalsa@gmail.com *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-unit EwbAcc;
-
-interface
-
-{$I EWB.inc}
-
-uses
- ActiveX, SysUtils, ShlObj, Windows, UrlMon, EwbIEConst;
-
-type
- IObjectIdentity = interface
- ['{CA04B7E6-0D21-11d1-8CC5-00C04FC2B085}']
- function IsEqualObject(unk: IUnknown): HRESULT; stdcall;
- end;
-
- type
- PInternetPerConnOption = ^INTERNET_PER_CONN_OPTION;
- INTERNET_PER_CONN_OPTION = record
- dwOption: DWORD;
- case Integer of
- 0: (dwValue: DWORD);
- 1: (pszValue:LPTSTR);
- 2: (ftValue: FILETIME);
- end;
-
- PInternetPerConnOptionList = ^INTERNET_PER_CONN_OPTION_LIST;
- INTERNET_PER_CONN_OPTION_LIST = record
- dwSize :DWORD;
- pszConnection :LPTSTR;
- dwOptionCount :DWORD;
- dwOptionError :DWORD;
- pOptions :PInternetPerConnOption;
- end;
-
- LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;
- LPINTERNET_PER_CONN_OPTION_LIST = ^INTERNET_PER_CONN_OPTION_LIST;
-
-type
- BrowserNavConstants = TOleEnum;
- STATURL = record
- cbSize: DWORD;
- pwcsUrl: DWORD;
- pwcsTitle: DWORD;
- ftLastVisited: FILETIME;
- ftLastUpdated: FILETIME;
- ftExpires: FILETIME;
- dwFlags: DWORD;
- end;
-
- OSVERSIONINFOEX = packed record
- dwOSVersionInfoSize: DWORD;
- dwMajorVersion: DWORD;
- dwMinorVersion: DWORD;
- dwBuildNumber: DWORD;
- dwPlatformId: DWORD;
- szCSDVersion: array[0..127] of Char;
- wServicePackMajor: WORD;
- wServicePackMinor: WORD;
- wSuiteMask: WORD;
- wProductType: Byte;
- wReserved: Byte;
- end;
- TOSVersionInfoEx = OSVERSIONINFOEX;
- POSVersionInfoEx = ^TOSVersionInfoEx;
-
- IZoomEvents = interface(IUnknown)
- ['{41B68150-904C-4E17-A0BA-A438182E359D}']
- function OnZoomPercentChanged(const ulZoomPercent: ulong): HRESULT; stdcall;
- end;
-
- IHLinkFrame = interface(IUnknown)
- ['{79EAC9C5-BAF9-11CE-8C82-00AA004BA90B}']
- {Some functions are not supported any more?}
- //function SetBrowseContext(ppihlbc: IHlinkBrowseContext): HRESULT; stdcall;
- //function GetBrowseContext(out ppihlbc: IHlinkBrowseContext): HRESULT; stdcall;
- //function Navigate(grfHLNF: DWORD; pbc: IBindCtx; pibsc: IBindStatusCallback; pihlNavigate: IHLink): HRESULT; stdcall;
- function OnNavigate(grfHLNF: DWORD; pimkTarget: IMoniker; pwzLocation,
- pwzFriendlyName: PWideChar; dwreserved: DWORD): HRESULT; stdcall;
- function UpdateHlink(uHLID: ULONG; pimkTarget: IMoniker; pwzLocation,
- pwzFriendlyName: PWideChar): HRESULT; stdcall;
- end;
-
- IDownloadManager = interface(IUnknown)
- ['{988934A4-064B-11D3-BB80-00104B35E7F9}']
- function Download(
- pmk: IMoniker; // Identifies the object to be downloaded
- pbc: IBindCtx; // Stores information used by the moniker to bind
- dwBindVerb: DWORD; // The action to be performed during the bind
- grfBINDF: DWORD; // Determines the use of URL encoding during the bind
- pBindInfo: PBindInfo; // Used to implement IBindStatusCallback::GetBindInfo
- pszHeaders: PWideChar; // Additional headers to use with IHttpNegotiate
- pszRedir: PWideChar; // The URL that the moniker is redirected to
- uiCP: UINT // The code page of the object's display name
- ): HRESULT; stdcall;
- end;
-
- IEnumSTATURL = interface(IUnknown)
- ['{3C374A42-BAE4-11CF-BF7D-00AA006946EE}']
- function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT;
- stdcall;
- function Skip(celt: Longint): HRESULT; stdcall;
- function Reset: HRESULT; stdcall;
- function Clone(out ppenum: IEnumSTATURL): HRESULT; stdcall;
- function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HRESULT; stdcall;
- end;
-
-type
- TSTATURL = record
- cbSize: DWORD;
- pwcsUrl: DWORD;
- pwcsTitle: DWORD;
- ftLastVisited: FILETIME;
- ftLastUpdated: FILETIME;
- ftExpires: FILETIME;
- dwFlags: DWORD;
- end;
-
- PEntry = ^TEntry;
- TEntry = record
- Url: string;
- Title: string;
- LastVisited,
- LastUpdated,
- Expires: TDateTime;
- end;
-
- IUrlHistoryStg = interface(IUnknown)
- ['{3C374A41-BAE4-11CF-BF7D-00AA006946EE}']
- function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HRESULT; stdcall;
- function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HRESULT; stdcall;
- function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: TSTATURL): HRESULT; stdcall;
- function BindToObject(pocsUrl: PWideChar; var riid: TIID; out ppvOut: Pointer): HRESULT; stdcall;
- function EnumUrls(out ppenum: IEnumSTATURL): HRESULT; stdcall;
- end;
-
-
- IUrlHistoryStg2 = interface(IUrlHistoryStg)
- ['{AFA0DC11-C313-11D0-831A-00C04FD5AE38}']
- function AddUrlAndNotify(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer;
- FWriteHistory: Integer; var poctNotify: Pointer;
- const punkISFolder: IUnknown): HRESULT; stdcall;
- function ClearHistory: HRESULT; stdcall;
- end;
-
- IUrlHistoryNotify = interface(IOleCommandTarget)
- ['{BC40BEC1-C493-11d0-831B-00C04FD5AE38}']
- end;
-
- PDOCHOSTUIINFO = ^TDOCHOSTUIINFO;
- TDOCHOSTUIINFO = record
- cbSize: ULONG;
- dwFlags: DWORD;
- dwDoubleClick: DWORD;
- chHostCss: POleStr;
- chHostNS: POleStr;
- end;
-
-type
- INewWindowManager = interface(IUnknown)
- ['{D2BC4C84-3F72-4a52-A604-7BCBF3982CBB}']
- function EvaluateNewWindow(pszUrl, pszName, pszUrlContext, pszFeatures:
- LPCWSTR;
- fReplace: BOOL; dwFlags, dwUserActionTime: DWORD): HRESULT; stdcall;
- end;
-
- IDocHostShowUI = interface(IUnknown)
- ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}']
- function ShowMessage(hwnd: THandle; lpstrText: POleStr; lpstrCaption: POleStr;
- dwType: longint; lpstrHelpFile: POleStr; dwHelpContext: longint;
- var plResult: LRESULT): HRESULT; stdcall;
- function ShowHelp(hwnd: THandle; pszHelpFile: POleStr; uCommand: integer;
- dwData: longint; ptMouse: TPoint;
- var pDispatchObjectHit: IDispatch): HRESULT; stdcall;
- end;
-
- IDocHostUIHandler = interface(IUnknown)
- ['{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}']
- function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
- const CommandTarget: IUnknown; const Context: IDispatch): HRESULT;
- stdcall;
- function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
- function ShowUI(const dwID: DWORD; const pActiveObject:
- IOleInPlaceActiveObject;
- const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
- const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;
- function HideUI: HRESULT; stdcall;
- function UpdateUI: HRESULT; stdcall;
- function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;
- function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
- function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
- function ResizeBorder(const prcBorder: PRECT;
- const pUIWindow: IOleInPlaceUIWindow;
- const fRameWindow: BOOL): HRESULT; stdcall;
- function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;
- const nCmdID: DWORD): HRESULT; stdcall;
- function GetOptionKeyPath(out pchKey: POleStr; const dw: DWORD): HRESULT;
- stdcall;
- function GetDropTarget(const pDropTarget: IDropTarget;
- out ppDropTarget: IDropTarget): HRESULT; stdcall;
- function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;
- function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POleStr;
- out ppchURLOut: POleStr): HRESULT; stdcall;
- function FilterDataObject(const pDO: IDataObject;
- out ppDORet: IDataObject): HRESULT; stdcall;
- end;
-
- IDocHostUIHandler2 = interface(IDocHostUIHandler)
- ['{3050f6d0-98b5-11cf-bb82-00aa00bdce0b}']
- function GetOverrideKeyPath(out pchKey: POleStr; dw: DWORD): HRESULT;
- stdcall;
- end;
-
- IProtectFocus = interface
- ['{D81F90A3-8156-44F7-AD28-5ABB87003274}']
- function AllowFocusChange(out pfAllow: BOOL): HRESULT; stdcall;
- end;
-
- ICustomDoc = interface(IUnknown)
- ['{3050f3f0-98b5-11cf-bb82-00aa00bdce0b}']
- function SetUIHandler(const pUIHandler: IDocHostUIHandler): HRESULT;
- stdcall;
- end;
-
- IHTMLOMWindowServices = interface(IUnknown)
- ['{3050f5fc-98b5-11cf-bb82-00aa00bdce0b}']
- function moveTo(const x, y: Integer): HRESULT; stdcall;
- function moveBy(const x, y: Integer): HRESULT; stdcall;
- function resizeTo(const x, y: Integer): HRESULT; stdcall;
- function resizeBy(const x, y: Integer): HRESULT; stdcall;
- end;
-
-type
- ITravelLogEntry = interface(IUnknown)
- ['{7EBFDD87-AD18-11d3-A4C5-00C04F72D6B8}']
- function GetTitle(var ppszTitle: POleStr): HRESULT; stdcall;
- function GetUrl(var ppszURL: POleStr): HRESULT; stdcall;
- end;
-
- IEnumTravelLogEntry = interface(IUnknown)
- ['{7EBFDD85-AD18-11d3-A4C5-00C04F72D6B8}']
- function Next(cElt: ULONG; out rgElt: ITravelLogEntry; out pcEltFetched: ULONG): HRESULT; stdcall;
- function Skip(cElt: ULONG): HRESULT; stdcall;
- function Reset: HRESULT; stdcall;
- function Clone(out ppEnum: IEnumTravelLogEntry): HRESULT; stdcall;
- end;
-
- ITravelLogStg = interface(IUnknown)
- ['{7EBFDD80-AD18-11d3-A4C5-00C04F72D6B8}']
- function CreateEntry(pszURL, pszTitle: POleStr; ptleRelativeTo: ITravelLogEntry;
- fPrepend: BOOL; out pptle: ITravelLogEntry): HRESULT; stdcall;
- function TravelTo(ptle: ITravelLogEntry): HRESULT; stdcall;
- function EnumEntries(Flags: DWORD; out ppenum: IEnumTravellogEntry): HRESULT; stdcall;
- function FindEntries(Flags: DWORD; pszURL: POleStr; out ppenum: IEnumTravelLogEntry): HRESULT; stdcall;
- function GetCount(Flags: DWORD; out pcEntries: DWORD): HRESULT; stdcall;
- function RemoveEntry(ptle: ITravelLogEntry): HRESULT; stdcall;
- function GetRelativeEntry(iOffset: Integer; out ptle: ITravelLogEntry): HRESULT; stdcall;
- end;
-
- PUrlInvokeCommandInfoA = ^TUrlInvokeCommandInfoA;
- TUrlInvokeCommandInfoA = record
- dwcbSize: DWORD; // Size of structure
- dwFlags: DWORD; // Bit field of IURL_INVOKECOMMAND_FLAGS
- hwndParent: HWND;
- // Parent window. Valid only if IURL_INVOKECOMMAND_FL_ALLOW_UI is set.
- pcszVerb: LPCSTR;
- // Verb to invoke. Ignored if IURL_INVOKECOMMAND_FL_USE_DEFAULT_VERB is set.
- end;
-
- PUrlInvokeCommandInfoW = ^TUrlInvokeCommandInfoW;
- TUrlInvokeCommandInfoW = record
- dwcbSize: DWORD; // Size of structure
- dwFlags: DWORD; // Bit field of IURL_INVOKECOMMAND_FLAGS
- hwndParent: HWND;
- // Parent window. Valid only if IURL_INVOKECOMMAND_FL_ALLOW_UI is set.
- pcszVerb: LPCWSTR;
- // Verb to invoke. Ignored if IURL_INVOKECOMMAND_FL_USE_DEFAULT_VERB is set.
- end;
-
-{$IFDEF UNICODE}
- PURLInvokeCommandInfo = ^TUrlInvokeCommandInfoW;
- TUrlInvokeCommandInfo = TUrlInvokeCOmmandInfoW;
-{$ELSE}
- PURLInvokeCommandInfo = ^TUrlInvokeCommandInfoA;
- TUrlInvokeCommandInfo = TUrlInvokeCOmmandInfoA;
-{$ENDIF}
-
- IUniformResourceLocatorA = interface(IUnknown)
- [SID_IUniformResourceLocatorA]
- function SetURL(pcszURL: LpcStr; dwInFlags: DWORD): HRESULT; stdcall;
- function GetURL(ppszURL: LpStr): HRESULT; stdcall;
- function InvokeCommand(purlici: PURLINVOKECOMMANDINFOA): HRESULT; stdcall;
-
- end;
-
- IUniformResourceLocatorW = interface(IUnknown)
- [SID_IUniformResourceLocatorW]
- function SetURL(pcszURL: LpcWStr; dwInFlags: DWORD): HRESULT; stdcall;
- function GetURL(ppszURL: LpWStr): HRESULT; stdcall;
- function InvokeCommand(purlici: PURLINVOKECOMMANDINFOW): HRESULT; stdcall;
- end;
-
-{$IFDEF UNICODE}
- IUniformResourceLocator = IUniformResourceLocatorW;
-{$ELSE}
- IUniformResourceLocator = IUniformResourceLocatorA;
-{$ENDIF}
-
-function TranslateURLA(pcszURL: LPCSTR;
- dwInFlags: DWORD;
- ppszTranslatedURL: LPSTR): HRESULT; stdcall;
-
-function TranslateURLW(pcszURL: LPCWSTR;
- dwInFlags: DWORD;
- ppszTranslatedURL: LPWSTR): HRESULT; stdcall;
-
-{$IFDEF UNICODE}
-function TranslateURL(pcszURL: LPCWSTR;
- dwInFlags: DWORD;
- ppszTranslatedURL: LPWSTR): HRESULT; stdcall;
-{$ELSE}
-function TranslateURL(pcszURL: LPCSTR;
- dwInFlags: DWORD;
- ppszTranslatedURL: LPSTR): HRESULT; stdcall;
-{$ENDIF}
-
-function URLAssociationDialogA(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCSTR;
- pcszURL: LPCSTR;
- pszAppBuf: LPSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-
-function URLAssociationDialogW(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCWSTR;
- pcszURL: LPCWSTR;
- pszAppBuf: LPWSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-
-{$IFDEF UNICODE}
-function URLAssociationDialog(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCWSTR;
- pcszURL: LPCWSTR;
- pszAppBuf: LPWSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-{$ELSE}
-function URLAssociationDialog(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCSTR;
- pcszURL: LPCSTR;
- pszAppBuf: LPSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-{$ENDIF}
-
-function MIMEAssociationDialogA(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCSTR;
- pcszMIMEContentType: LPCSTR;
- pszAppBuf: LPSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-
-function MIMEAssociationDialogW(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCWSTR;
- pcszMIMEContentType: LPCWSTR;
- pszAppBuf: LPWSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-
-{$IFDEF UNICODE}
-function MIMEAssociationDialog(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCWSTR;
- pcszMIMEContentType: LPCWSTR;
- pszAppBuf: LPWSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-{$ELSE}
-function MIMEAssociationDialog(hwndParent: HWND;
- dwInFlags: DWORD;
- pcszFile: LPCSTR;
- pcszMIMEContentType: LPCSTR;
- pszAppBuf: LPSTR;
- ucAppBufLen: UINT): HRESULT; stdcall;
-{$ENDIF}
-
-function InetIsOffline(dwFlags: DWORD): BOOL; stdcall;
-
-//Serge
-{$IFDEF DELPHI6_UP}
-type
-{$EXTERNALSYM _tagINTERNETFEATURELIST}
- _tagINTERNETFEATURELIST = (
- FEATURE_OBJECT_CACHING = 0,
- FEATURE_ZONE_ELEVATION = 1,
- FEATURE_MIME_HANDLING = 2,
- FEATURE_MIME_SNIFFING = 3,
- FEATURE_WINDOW_RESTRICTIONS = 4,
- FEATURE_WEBOC_POPUPMANAGEMENT = 5,
- FEATURE_BEHAVIORS = 6,
- FEATURE_DISABLE_MK_PROTOCOL = 7,
- FEATURE_LOCALMACHINE_LOCKDOWN = 8,
- FEATURE_SECURITYBAND = 9,
- FEATURE_RESTRICT_ACTIVEXINSTALL = 10,
- FEATURE_VALIDATE_NAVIGATE_URL = 11,
- FEATURE_RESTRICT_FILEDOWNLOAD = 12,
- FEATURE_ADDON_MANAGEMENT = 13,
- FEATURE_PROTOCOL_LOCKDOWN = 14,
- FEATURE_HTTP_USERNAME_PASSWORD_DISABLE = 15,
- FEATURE_SAFE_BINDTOOBJECT = 16,
- FEATURE_UNC_SAVEDFILECHECK = 17,
- FEATURE_GET_URL_DOM_FILEPATH_UNENCODED = 18,
- FEATURE_TABBED_BROWSING = 19,
- FEATURE_SSLUX = 20,
- FEATURE_DISABLE_NAVIGATION_SOUNDS = 21,
- FEATURE_DISABLE_LEGACY_COMPRESSION = 22,
- FEATURE_FORCE_ADDR_AND_STATUS = 23,
- FEATURE_XMLHTTP = 24,
- FEATURE_DISABLE_TELNET_PROTOCOL = 25,
- FEATURE_FEEDS = 26,
- FEATURE_BLOCK_INPUT_PROMPTS = 27,
- FEATURE_ENTRY_COUNT = 28
- );
- TInternetFeature = _tagINTERNETFEATURELIST;
-{$ELSE}
-type
- _tagINTERNETFEATURELIST = (
- FEATURE_OBJECT_CACHING,
- FEATURE_ZONE_ELEVATION,
- FEATURE_MIME_HANDLING,
- FEATURE_MIME_SNIFFING,
- FEATURE_WINDOW_RESTRICTIONS,
- FEATURE_WEBOC_POPUPMANAGEMEN,
- FEATURE_BEHAVIORS,
- FEATURE_DISABLE_MK_PROTOCOL,
- FEATURE_LOCALMACHINE_LOCKDOWN,
- FEATURE_SECURITYBAND,
- FEATURE_RESTRICT_ACTIVEXINSTALL,
- FEATURE_VALIDATE_NAVIGATE_URL,
- FEATURE_RESTRICT_FILEDOWNLOAD,
- FEATURE_ADDON_MANAGEMENT,
- FEATURE_PROTOCOL_LOCKDOWN,
- FEATURE_HTTP_USERNAME_PASSWORD_DISABLE,
- FEATURE_SAFE_BINDTOOBJECT,
- FEATURE_UNC_SAVEDFILECHECK,
- FEATURE_GET_URL_DOM_FILEPATH_UNENCODED,
- FEATURE_TABBED_BROWSING,
- FEATURE_SSLUX,
- FEATURE_DISABLE_NAVIGATION_SOUNDS,
- FEATURE_DISABLE_LEGACY_COMPRESSION,
- FEATURE_FORCE_ADDR_AND_STATUS,
- FEATURE_XMLHTTP,
- FEATURE_DISABLE_TELNET_PROTOCOL,
- FEATURE_FEEDS,
- FEATURE_BLOCK_INPUT_PROMPTS,
- FEATURE_ENTRY_COUNT);
- TInternetFeature = _tagINTERNETFEATURELIST;
-{$ENDIF}
-
-
-function CoInternetSetFeatureEnabled(aFeature: TInternetFeature;
- dwFlags: DWORD; fEnable: Boolean): HRESULT;
-function CoInternetIsFeatureEnabled(aFeature: TInternetFeature;
- dwFlags: DWORD): HRESULT;
-function CoInternetIsFeatureEnabledForUrl(aFeature: TInternetFeature;
- dwFlags: DWORD; szUrl: LPCWSTR; pSecMgr: IInternetSecurityManager): HRESULT;
-
-function CoInternetIsFeatureZoneElevationEnabled(
- szFromURL, szToURL: LPCWSTR; pSecMgr: IInternetSecurityManager;
- dwFlags: DWORD): HRESULT;
-
-var
- ShellModule: THandle;
- ComCtlModule: THandle;
- HHCtrlModule: THandle;
- URLMonModule: THandle;
-
-function SHLockShared(Handle: THandle; DW: DWORD): Pointer; stdcall;
-function SHUnlockShared(Pnt: Pointer): BOOL; stdcall;
-function SHFreeShared(Handle: THandle; DW: DWORD): Pointer; stdcall;
-function _Free(Pidl: PItemIDList): BOOL; stdcall;
-function HtmlHelp(hwndCaller: HWND; pszFile: PChar; uCommand: Integer;
- dwData: DWORD): HWND; stdcall;
-
-function GetSHDOCLCModule: THandle;
-
-{events}
-type
- OnQueryInterfaceEvent = procedure(Sender: TObject; const IID: TGUID; var Obj; Rezult: HRESULT) of object;
-
- {IDispatch Interface}
- TGetTypeInfoCountEvent = procedure(Sender: TObject; var Count: Integer; var
- Rezult: HRESULT) of object;
- TGetTypeInfoEvent = procedure(Sender: TObject; Index, LocaleID: Integer; var
- TypeInfo: ITypeInfo; var Rezult: HRESULT) of object;
- TGetIDsOfNamesEvent = procedure(Sender: TObject; const IID: TGUID; Names:
- Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer; var Rezult: HRESULT) of
- object;
- TInvokeEvent = procedure(Sender: TObject; DispID: Integer; const IID: TGUID;
- LocaleID: Integer;
- Flags: Word; var Params: TDispParams; VarResult, ExcepInfo, ArgErr: Pointer;
- var Rezult: HRESULT) of object;
- {IDropTarget Interface}
- TOnDropEvent = procedure(Sender: TObject; const dataObj: IDataObject;
- grfKeyState: Longint; pt: TPoint;
- var dwEffect: Longint; var Rezult: HRESULT) of object;
- TOnDragEnterEvent = procedure(Sender: TObject; const dataObj: IDataObject;
- grfKeyState: Longint;
- pt: TPoint; var dwEffect: Longint; var Rezult: HRESULT) of object;
- TOnDragOverEvent = procedure(Sender: TObject; grfKeyState: Longint; pt:
- TPoint; var dwEffect: Longint;
- var Rezult: HRESULT) of object;
- {IOLECommandTarget Interface}
- TComTargetExecEvent = procedure(Sender: TObject; CmdGroup: PGUID; nCmdID,
- nCmdexecopt: DWORD;
- const vaIn: OleVariant; var vaOut: OleVariant; var Rezult: HRESULT) of
- object;
- {IServiceProvider Interface}
- TQueryServiceEvent = procedure(Sender: TObject; const rsid, iid: TGUID; var
- Obj: IUnknown) of object;
-
-implementation
-
-function InetIsOffline; external urldll name 'InetIsOffline';
-
-function MIMEAssociationDialogW; external urldll name 'MIMEAssociationDialogW';
-function MIMEAssociationDialogA; external urldll name 'MIMEAssociationDialogA';
-{$IFDEF UNICODE}
-function MIMEAssociationDialog; external urldll name 'MIMEAssociationDialogW';
-{$ELSE}
-function MIMEAssociationDialog; external urldll name 'MIMEAssociationDialogA';
-{$ENDIF}
-
-function URLAssociationDialogW; external urldll name 'URLAssociationDialogW';
-function URLAssociationDialogA; external urldll name 'URLAssociationDialogA';
-{$IFDEF UNICODE}
-function URLAssociationDialog; external urldll name 'URLAssociationDialogW';
-{$ELSE}
-function URLAssociationDialog; external urldll name 'URLAssociationDialogA';
-{$ENDIF}
-
-function TranslateURLA; external urldll name 'TranslateURLA';
-function TranslateURLW; external urldll name 'TranslateURLW';
-{$IFDEF UNICODE}
-function TranslateURL; external urldll name 'TranslateURLW';
-{$ELSE}
-function TranslateURL; external urldll name 'TranslateURLA';
-{$ENDIF}
-
-
-function GetShellModule: THandle;
-begin
- if ShellModule = 0 then
- begin
- ShellModule := SafeLoadLibrary(Shell32);
- if ShellModule <= HINSTANCE_ERROR then
- ShellModule := 0;
- end;
- Result := ShellModule;
-end;
-
-function GetHHctrlModule: THandle;
-begin
- if HHCtrlModule = 0 then
- begin
- HHCtrlModule := SafeLoadLibrary(HHCtrl);
- if HHCtrlModule <= HINSTANCE_ERROR then
- HHCtrlModule := 0;
- end;
- Result := HHCtrlModule;
-end;
-
-function GetComctlModule: THandle;
-begin
- if ComctlModule = 0 then
- begin
- ComctlModule := SafeLoadLibrary(comctl32);
- if ComctlModule <= HINSTANCE_ERROR then
- ComctlModule := 0;
- end;
- Result := ComctlModule;
-end;
-
-function HtmlHelp(hwndCaller: HWND; pszFile: PChar; uCommand: Integer;
- dwData: DWORD): HWND; stdcall;
-type
- TheFunctionType = function(hwndCaller: HWND; pszFile: PChar; uCommand: Integer;
- dwData: DWORD): HWND; stdcall;
-var
- TheFunction: TheFunctionType;
-begin
- Result := 0;
- if HHCtrlModule = 0 then
- HHCtrlModule := GetHHCtrlModule;
- if HHCtrlModule <> 0 then
- begin
-{$IFDEF UNICODE}
- TheFunction := GetProcAddress(HHCtrlModule, 'HtlmHelpW');
-{$ELSE}
- TheFunction := GetProcAddress(HHCtrlModule, 'HtlmHelpA');
-{$ENDIF UNICODE}
- if (Assigned(TheFunction)) then
- Result := TheFunction(hwndCaller, pszFile, uCommand, dwdata);
- end;
-end;
-
-function _Free(Pidl: PItemIDList): BOOL; stdcall;
-type
- TheFunctionType = function(Pidl: PItemIDList): BOOL; stdcall;
-var
- TheFunction: TheFunctionType;
-begin
- Result := False;
- if ComctlModule = 0 then
- ComctlModule := GetComctlModule;
- if ComctlModule <> 0 then
- begin
- TheFunction := GetProcAddress(ComctlModule, PChar(Free_Index));
- if (Assigned(TheFunction)) then
- Result := TheFunction(Pidl);
- end;
-end;
-
-function SHLockShared(Handle: THandle; DW: DWORD): Pointer; stdcall;
-type
- TheFunctionType = function(Handle: THandle; DW: DWORD): Pointer; stdcall;
-var
- TheFunction: TheFunctionType;
-begin
- Result := nil;
- if ShellModule = 0 then
- ShellModule := GetShellModule;
- if ShellModule <> 0 then
- begin
- TheFunction := GetProcAddress(ShellModule, PChar(SHLockShared_Index));
- if (Assigned(TheFunction)) then
- Result := TheFunction(Handle, DW);
- end;
-end;
-
-function SHUnLockShared(pnt: Pointer): BOOL; stdcall;
-type
- TheFunctionType = function(pnt: Pointer): BOOL; stdcall;
-var
- TheFunction: TheFunctionType;
-begin
- Result := FALSE;
- if ShellModule = 0 then
- ShellModule := GetShellModule;
- if ShellModule <> 0 then
- begin
- TheFunction := GetProcAddress(ShellModule, PChar(SHUnLockShared_Index));
- if (Assigned(TheFunction)) then
- Result := TheFunction(pnt);
- end;
-end;
-
-function SHFreeShared(Handle: THandle; DW: DWORD): Pointer; stdcall;
-type
- TheFunctionType = function(Handle: THandle; DW: DWORD): Pointer; stdcall;
-var
- TheFunction: TheFunctionType;
-begin
- Result := nil;
- if ShellModule = 0 then
- ShellModule := GetShellModule;
- if ShellModule <> 0 then
- begin
- TheFunction := GetProcAddress(ShellModule, PChar(SHFreeShared_Index));
- if (Assigned(TheFunction)) then
- Result := TheFunction(Handle, DW);
- end;
-end;
-
-function CheckURLMonModule: Boolean;
-begin
- if URLMonModule = 0 then
- URLMonModule := SafeLoadLibrary(UrlMonLib);
- Result := URLMonModule > HINSTANCE_ERROR;
-end;
-
-function CheckURLMonModuleFunc(const Name: string; var ptr: Pointer): Boolean;
-begin
- Result := CheckURLMonModule;
- if Result then
- begin
- ptr := GetProcAddress(URLMonModule, PChar(Name));
- Result := Assigned(ptr);
- if not Result then
- ptr := Pointer(1); // ???
- end;
-end;
-
-type
- TCoInternetSetFeatureEnabled = function(aFeature: DWORD;
- dwFlags: DWORD; fEnable: BOOL): HRESULT; stdcall;
- TCoInternetIsFeatureEnabled = function(aFeature: DWORD;
- dwFlags: DWORD): HRESULT; stdcall;
- TCoInternetIsFeatureEnabledForUrl = function(aFeature: DWORD;
- dwFlags: DWORD; szUrl: LPCWSTR; pSecMgr: IInternetSecurityManager): HRESULT;
- stdcall;
- TCoInternetIsFeatureZoneElevationEnabled = function(szFromURL, szToURL:
- LPCWSTR; pSecMgr: IInternetSecurityManager;
- dwFlags: DWORD): HRESULT; stdcall;
-
-var
- CoInternetIsFeatureZoneElevationEnabledPtr: Pointer;
-
- CoInternetSetFeatureEnabledPtr: Pointer;
- CoInternetIsFeatureEnablePtr: Pointer;
- CoInternetIsFeatureEnabledForUrlPtr: Pointer;
-
-function CoInternetSetFeatureEnabled(aFeature: TInternetFeature;
- dwFlags: DWORD; fEnable: Boolean): HRESULT;
-begin
- if (Integer(CoInternetSetFeatureEnabledPtr) > 1) or
- CheckURLMonModuleFunc('CoInternetSetFeatureEnabled',
- CoInternetSetFeatureEnabledPtr) then
- Result := TCoInternetSetFeatureEnabled(CoInternetSetFeatureEnabledPtr)(
- DWORD(aFeature), dwFlags, fEnable)
- else
- Result := E_NOTIMPL;
-end;
-
-function CoInternetIsFeatureEnabled(aFeature: TInternetFeature;
- dwFlags: DWORD): HRESULT;
-begin
- if (Integer(CoInternetIsFeatureEnablePtr) > 1) or
- CheckURLMonModuleFunc('CoInternetIsFeatureEnabled',
- CoInternetIsFeatureEnablePtr) then
- Result := TCoInternetIsFeatureEnabled(CoInternetIsFeatureEnablePtr)(
- DWORD(aFeature), dwFlags)
- else
- Result := E_NOTIMPL;
-end;
-
-function CoInternetIsFeatureEnabledForUrl(aFeature: TInternetFeature;
- dwFlags: DWORD; szUrl: LPCWSTR; pSecMgr: IInternetSecurityManager): HRESULT;
-begin
- if (Integer(CoInternetIsFeatureEnabledForUrlPtr) > 1) or
- CheckURLMonModuleFunc('CoInternetIsFeatureEnabledForUrl',
- CoInternetIsFeatureEnabledForUrlPtr) then
- Result :=
- TCoInternetIsFeatureEnabledForUrl(CoInternetIsFeatureEnabledForUrlPtr)(
- DWORD(aFeature), dwFlags, szUrl, pSecMgr)
- else
- Result := E_NOTIMPL;
-end;
-
-
-function CoInternetIsFeatureZoneElevationEnabled(
- szFromURL, szToURL: LPCWSTR; pSecMgr: IInternetSecurityManager;
- dwFlags: DWORD): HRESULT;
-begin
- if (Integer(CoInternetIsFeatureZoneElevationEnabledPtr) > 1) or
- CheckURLMonModuleFunc('CoInternetIsFeatureZoneElevationEnabled',
- CoInternetIsFeatureZoneElevationEnabledPtr) then
- Result :=
- TCoInternetIsFeatureZoneElevationEnabled(CoInternetIsFeatureZoneElevationEnabledPtr)(
- szFromURL, szToURL, pSecMgr, dwFlags)
- else
- Result := E_NOTIMPL;
-end;
-
-var
- HSHDOCLCModule: THandle;
-
-function GetSHDOCLCModule: THandle;
-begin
- if HSHDOCLCModule = 0 then
- begin
- HSHDOCLCModule := GetModuleHandle('SHDOCLC.DLL');
- if HSHDOCLCModule = 0 then
- HSHDOCLCModule := SafeLoadLibrary('SHDOCLC.DLL');
- if HSHDOCLCModule <= HINSTANCE_ERROR then
- HSHDOCLCModule := 0;
- end;
- Result := HSHDOCLCModule;
-end;
-
-
-initialization
-
-finalization
- if ShellModule <> 0 then
- FreeLibrary(ShellModule);
- if ComctlModule <> 0 then
- FreeLibrary(ComctlModule);
- if HHCtrlModule <> 0 then
- FreeLibrary(HHCtrlModule);
- if URLMonModule <> 0 then
- FreeLibrary(URLMonModule);
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbActns.pas b/windows/src/ext/embeddedwb/Source/EwbActns.pas
deleted file mode 100644
index 4c2f01eefe75a227efa58d39abdb7aa22bcc24de..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbActns.pas
+++ /dev/null
@@ -1,145 +0,0 @@
-//*************************************************************
-// EwbActns *
-// *
-// Freeware unit *
-// For Delphi *
-// by *
-// Serge Voloshenyuk *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbActns.pas,v 1.1.2.1 2006/11/29 22:13:00 sergev Exp $
-
-unit EwbActns;
-
-{$I EWB.inc}
-
-interface
-
-uses
- Classes, ActnList, EwbCore;
-
-type
- TEwbAction = class(TCustomAction)
- private
- FControl: TEwbCore;
- procedure SetControl(Value: TEwbCore);
- protected
- function GetControl(Target: TObject): TEwbCore; virtual;
- procedure Notification(AComponent: TComponent; Operation: TOperation); override;
- public
- destructor Destroy; override;
- function HandlesTarget(Target: TObject): Boolean; override;
- property Control: TEwbCore read FControl write SetControl;
- end;
-
- TEwbLinkAction = class(TEwbAction)
- private
- FURL: WideString;
- procedure setURL(const Value: WideString);
- public
- procedure ExecuteTarget(Target: TObject); override;
- constructor Create(AOwner: TComponent); override;
- published
- property URL: WideString read FURL write setURL;
- property Caption;
- property HelpContext;
-{$IFDEF DELPHI6_UP}
- property HelpKeyword;
- property HelpType;
- property SecondaryShortCuts;
-{$ENDIF}
- property Hint;
- property ImageIndex;
- property ShortCut;
- property Visible;
- property OnExecute;
- property OnHint;
- property OnUpdate;
- end;
-
-implementation
-
-{ TEwbAction }
-
-destructor TEwbAction.Destroy;
-begin
- if FControl <> nil then
- FControl.RemoveFreeNotification(Self);
- inherited;
-end;
-
-function TEwbAction.GetControl(Target: TObject): TEwbCore;
-begin
- Result := Target as TEwbCore;
-end;
-
-function TEwbAction.HandlesTarget(Target: TObject): Boolean;
-begin
- Result := ((Control <> nil) and (Target = Control) or
- (Control = nil) and (Target is TEwbCore))
- { and TEwbCore(Target).Focused}; //FIXME
-end;
-
-procedure TEwbAction.Notification(AComponent: TComponent;
- Operation: TOperation);
-begin
- inherited Notification(AComponent, Operation);
- if (Operation = opRemove) and (AComponent = Control) then Control := nil;
-end;
-
-procedure TEwbAction.SetControl(Value: TEwbCore);
-begin
- if Value <> FControl then
- begin
- FControl := Value;
- if Value <> nil then Value.FreeNotification(Self);
- end;
-end;
-
-{ TEwbLinkAction }
-
-constructor TEwbLinkAction.Create(AOwner: TComponent);
-begin
- inherited;
- Enabled := False;
-end;
-
-procedure TEwbLinkAction.ExecuteTarget(Target: TObject);
-begin
- GetControl(Target).Navigate(Self.URL);
-end;
-
-procedure TEwbLinkAction.setURL(const Value: WideString);
-begin
- FURL := Value;
- Enabled := FURL <> '';
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbBehaviorsComp.pas b/windows/src/ext/embeddedwb/Source/EwbBehaviorsComp.pas
deleted file mode 100644
index 35eae0d6ae9e79875f9140f3a517b580f257f826..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbBehaviorsComp.pas
+++ /dev/null
@@ -1,1166 +0,0 @@
-//*************************************************************
-// EwbBehaviorsComp *
-// *
-// Freeware Component *
-// For Delphi *
-// by *
-// Serge Voloshenyuk *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbBehaviorsComp.pas,v 1.1.2.1 2006/11/29 22:13:00 sergev Exp $
-
-unit EwbBehaviorsComp;
-
-interface
-
-{$I EWB.inc}
-
-uses
-{$IFDEF DELPHI6_UP}Variants, {$ENDIF}
- Windows, Classes, Graphics, ActiveX, Mshtml_Ewb, EwbAcc, EwbClasses, EwbEvents,
- EwbEventsComp;
-
-type
- TEwbBehaviorFactory = class;
- TBinBehavior = class;
- TEwbBehaviorController = class;
-
- TPainterProperty = (
- ppOpaque,
- ppTransparent,
- //NOIMPL ppAlpha,
- //NOIMPL ppComplex,
- ppOverlay,
- ppHitTest,
- ppSurface,
- pp3DSurface,
- //NOIMPL ppNoBand,
- ppNoDC,
- ppNoPhysicalClip,
- ppNoSaveDC,
- ppSupportsXForm,
- ppExpand,
- ppNoScrollBits
- );
- TPainterProperties = set of TPainterProperty;
-
- TPaintZOrder = (
- pzNone,
- pzReplaceAll,
- pzReplaceContent,
- pzReplaceBackground,
- pzBelowContent,
- pzBelowFlow,
- pzAboveFlow,
- pzAboveContent,
- pzWinTop
- );
-
- TPaintEventFlag = (pfTarget, pfSetCursor);
- TPaintEventFlags = set of TPaintEventFlag;
-
- TLayoutMode = (
- lmNone,
- lmFullDelegation,
- lmModifyNatural,
- lmMapSize
- );
-
- {events}
- TBehaviorNameEvent = procedure(Sender: TEwbBehaviorController;
- Element: IHTMLElement2; var aName: WideString) of object;
- TCreateBehaviorEvent = function(Sender: TEwbBehaviorController;
- const bstrBehavior, bstrBehaviorUrl: WideString;
- pSite: IElementBehaviorSite): IElementBehavior of object;
-
- TGetIdOfNameEvent = procedure(Sender: TBinBehavior; const name: widestring; var id: Integer) of object;
- TInvokeEvent = procedure(Sender: TBinBehavior; DispID: Integer;
- VarResult: POleVariant; Params: TDispParams; var Rezult: HRESULT) of object;
- TGetPropertyEvent = procedure(Sender: TBinBehavior; DispID: Integer;
- VarResult: POleVariant; Params: TDispParams; var Rezult: HRESULT) of object;
- TPutPropertyEvent = procedure(Sender: TBinBehavior; DispID: Integer;
- Params: TDispParams; var Rezult: HRESULT) of object;
-
-
- TBehaviorNotifyEvent = procedure(Sender: TBinBehavior) of object;
- TPainterDrawEvent = procedure(Sender: TBinBehavior;
- rcBounds, rcUpdate: TRect; lDrawFlags: Integer; Canvas: TCanvas) of object;
- TPainterDirectDrawEvent = procedure(Sender: TBinBehavior;
- rcBounds, rcUpdate: TRect; lDrawFlags: Integer; DrawObject: Pointer) of
- object;
- TPainterResizeEvent = procedure(Sender: TBinBehavior; size: TSize) of object;
- TPainterInfoEvent = procedure(Sender: TBinBehavior; var pInfo:
- _HTML_PAINTER_INFO) of object;
- TPainterHitTestEvent = procedure(Sender: TBinBehavior; pt: TPoint; var pbHit:
- BOOL;
- var plPartID: Longint) of object;
-
- TLayoutSizeEvent = procedure(Sender: TBinBehavior; dwFlags: Integer;
- sizeContent: TSize; var pptTranslateBy: TPoint;
- var pptTopLeft: TPoint; var psizeProposed: TSize) of object;
- TLayoutPositionEvent = procedure(Sender: TBinBehavior; lFlags: Integer; var
- pptTopLeft: TPoint) of object;
- TLayoutMapSizeEvent = procedure(Sender: TBinBehavior; psizeIn: PSize; var
- prcOut: TRect) of object;
- TLayoutTextDescentEvent = procedure(Sender: TBinBehavior; var plDescent:
- Integer) of object;
-
- TEventTargetEvent = procedure(Sender: TBinBehavior; var ppElement:
- IHTMLElement) of object;
- TSetCursorEvent = procedure(Sender: TBinBehavior; lPartID: Integer) of object;
- TStringFromPartIDEvent = procedure(Sender: TBinBehavior; lPartID: Integer; var
- pbstrPart: WideString) of object;
- TOverlayMoveEvent = procedure(Sender: TBinBehavior; rcDevice: TRect) of
- object;
- TGetFocusRectEvent = procedure(Sender: TBinBehavior; var pRect: TRect) of
- object;
- TGetSubmitInfoEvent = procedure(Sender: TBinBehavior; pSubmitData:
- IHTMLSubmitData) of object;
- TResetSubmitEvent = procedure(Sender: TBinBehavior) of object;
-
- TFindBehaviorEvent = procedure(Sender: TObject;
- const bstrBehavior, bstrBehaviorUrl: WideString;
- pSite: IElementBehaviorSite; var ppBehavior: IElementBehavior) of object;
-
- TResolveNSEvent = procedure(Sender: TObject;
- const bstrNamespace, bstrTagName, bstrAttrs: WideString;
- pNamespace: IElementNamespace) of object;
-
- TCreateNamespaceEvent = procedure(Sender: TObject;
- pNamespace: IElementNamespace) of object;
-
- TCreateNSWithImplEvent = procedure(Sender: TObject;
- pNamespace: IElementNamespace;
- const bstrImplementation: WideString) of object;
-
- TEwbBehaviorFactory = class(TComponent
- , IElementBehaviorFactory
- , IElementNamespaceFactoryCallback
- , IElementNamespaceFactory
- , IElementNamespaceFactory2
- )
- private
- FOnFindBehavior: TFindBehaviorEvent;
- FOnResolveNS: TResolveNSEvent;
- FOnCreateNS: TCreateNamespaceEvent;
- FOnCreateNSWithImpl: TCreateNSWithImplEvent;
- protected
- {IElementBehaviorFactory}
- function FindBehavior(const bstrBehavior: WideString; const bstrBehaviorUrl:
- WideString;
- const pSite: IElementBehaviorSite; out ppBehavior: IElementBehavior):
- HRESULT; stdcall;
- {IElementNamespaceFactoryCallback}
- function Resolve(const bstrNamespace: WideString; const bstrTagName:
- WideString;
- const bstrAttrs: WideString; pNamespace: IElementNamespace): HRESULT;
- stdcall;
- {IElementNamespaceFactory}
- function IElementNamespaceFactory.create = FactoryCreate;
- function FactoryCreate(pNamespace: IElementNamespace): HRESULT; stdcall;
- {IElementNamespaceFactory2}
- function IElementNamespaceFactory2.create = FactoryCreate;
- function CreateWithImplementation(pNamespace: IElementNamespace;
- const bstrImplementation: WideString): HRESULT; stdcall;
- published
- property OnFindBehavior: TFindBehaviorEvent read FOnFindBehavior write
- FOnFindBehavior;
- property OnResolveNS: TResolveNSEvent read FOnResolveNS write FOnResolveNS;
- property OnCreateNS: TCreateNamespaceEvent read FOnCreateNS write
- FOnCreateNS;
- property OnCreateNSWithImpl: TCreateNSWithImplEvent read FOnCreateNSWithImpl
- write FOnCreateNSWithImpl;
- end;
-
- TEwbBehaviorController = class(THtmlListener, IElementBehaviorFactory)
- private
- FBehaviors: TList;
- FZOrder: TPaintZOrder;
- FPainterProperties: TPainterProperties;
- FPainterFlags: Integer;
- FOnDetach: TBehaviorNotifyEvent;
- FOnApplyStyle: TBehaviorNotifyEvent;
- FOnDocContextChange: TBehaviorNotifyEvent;
- FOnContentReady: TBehaviorNotifyEvent;
- FOnInit: TBehaviorNotifyEvent;
- FOnContentSave: TBehaviorNotifyEvent;
- FOnDocReady: TBehaviorNotifyEvent;
- FOnDraw: TPainterDrawEvent;
- FOnHitTest: TPainterHitTestEvent;
- FOnPainterInfo: TPainterInfoEvent;
- FOnResize: TPainterResizeEvent;
- FOnGetName: TBehaviorNameEvent;
- FOnCreateBehavior: TCreateBehaviorEvent;
- fHandleEvents: Boolean;
- FLayoutMode: TLayoutMode;
- fLayoutMapSize: TLayoutMapSizeEvent;
- fLayoutPosition: TLayoutPositionEvent;
- FLayoutSize: TLayoutSizeEvent;
- FLayoutTextDescent: Integer;
- FOnLayoutTextDescent: TLayoutTextDescentEvent;
- fPaintEventInfo: TPaintEventFlags;
- FOnEventTarget: TEventTargetEvent;
- FOnSetCursor: TSetCursorEvent;
- FOnStringFromPartID: TStringFromPartIDEvent;
- FOnOverlayMove: TOverlayMoveEvent;
- FOnDirectDraw: TPainterDirectDrawEvent;
- FOnGetFocusRect: TGetFocusRectEvent;
- FOnGetSubmitInfo: TGetSubmitInfoEvent;
- FOnResetSubmit: TResetSubmitEvent;
- FOnGetIdOfName: TGetIdOfNameEvent;
- FOnGetProperty: TGetPropertyEvent;
- FOnInvoke: TInvokeEvent;
- FOnPutProperty: TPutPropertyEvent;
- fAlive: Boolean;
- procedure setPainterProperties(const Value: TPainterProperties);
- procedure setZOrder(const Value: TPaintZOrder);
- procedure setLayoutMode(const Value: TLayoutMode);
- procedure setLayoutTextDescent(const Value: Integer);
- protected
- {IElementBehaviorFactory}
- function FindBehavior(const bstrBehavior: WideString; const bstrBehaviorUrl:
- WideString;
- const pSite: IElementBehaviorSite; out ppBehavior: IElementBehavior):
- HRESULT; stdcall;
-
- protected
- procedure Add(aBehavior: TBinBehavior);
- procedure Remove(aBehavior: TBinBehavior);
-
- procedure DoGetIdOfName(Sender: TBinBehavior; const name: widestring; var id: Integer); virtual;
- procedure DoInvoke(Sender: TBinBehavior; DispID: Integer;
- VarResult: POleVariant; Params: TDispParams; var Rezult: HRESULT); virtual;
- procedure DoGetProperty(Sender: TBinBehavior; DispID: Integer;
- VarResult: POleVariant; Params: TDispParams; var Rezult: HRESULT); virtual;
- procedure DoPutProperty(Sender: TBinBehavior; DispID: Integer;
- Params: TDispParams; var Rezult: HRESULT); virtual;
-
- procedure DoInit(Sender: TBinBehavior); virtual;
- procedure DoDetach(Sender: TBinBehavior); virtual;
- procedure DoNotify(Sender: TBinBehavior; lEvent: Integer); virtual;
- procedure DoDraw(Sender: TBinBehavior;
- rcBounds, rcUpdate: TRect; lDrawFlags: Integer; Canvas: TCanvas); virtual;
- procedure DoDirectDraw(Sender: TBinBehavior;
- rcBounds, rcUpdate: TRect; lDrawFlags: Integer; pvDrawObject: Pointer);
- virtual;
- procedure DoPainterResize(Sender: TBinBehavior; size: TSize); virtual;
- procedure GetPainterInfo(Sender: TBinBehavior; var pInfo:
- _HTML_PAINTER_INFO); virtual;
- procedure DoHitTestPoint(Sender: TBinBehavior; pt: TPoint; var pbHit: BOOL;
- var plPartID: Longint); virtual;
- procedure DoLayoutSize(Sender: TBinBehavior; dwFlags: Integer; sizeContent:
- TSize; var pptTranslateBy: TPoint;
- var pptTopLeft: TPoint; var psizeProposed: TSize); virtual;
- procedure DoLayoutPosition(Sender: TBinBehavior; lFlags: Integer; var
- pptTopLeft: TPoint); virtual;
- procedure DoLayoutMapSize(Sender: TBinBehavior; psizeIn: PSize; var prcOut:
- TRect); virtual;
- procedure DoTextDescent(Sender: TBinBehavior; var plDescent: Integer);
- virtual;
-
- procedure DoEventTarget(Sender: TBinBehavior; var ppElement: IHTMLElement);
- virtual;
- procedure DoSetCursor(Sender: TBinBehavior; lPartID: Integer); virtual;
- function DoStringFromPartID(Sender: TBinBehavior; lPartID: Integer; out
- pbstrPart: WideString): Boolean; virtual;
- procedure DoOverlayMove(Sender: TBinBehavior; rcDevice: TRect); virtual;
- procedure DoGetFocusRect(Sender: TBinBehavior; var pRect: TRect); virtual;
- procedure DoGetSubmitInfo(Sender: TBinBehavior; pSubmitData:
- IHTMLSubmitData); virtual;
- procedure DoResetSubmit(Sender: TBinBehavior); virtual;
- public
- destructor Destroy; override;
-
- procedure InvalidatePainterInfo;
- procedure InvalidateLayoutInfo;
-
- function Attach(Element: IHTMLElement2): Integer; overload;
- function Attach(Element: IHTMLElement): Integer; overload;
- published
- property Alive: Boolean read fAlive write fAlive;
- property ZOrder: TPaintZOrder read FZOrder write setZOrder default pzNone;
- property LayoutMode: TLayoutMode read FLayoutMode write setLayoutMode default lmNone;
- property PainterProperties: TPainterProperties read FPainterProperties write
- setPainterProperties;
- property HandleEvents: Boolean read fHandleEvents write fHandleEvents;
- property LayoutTextDescent: Integer read FLayoutTextDescent write
- setLayoutTextDescent;
- property PaintEventInfo: TPaintEventFlags read fPaintEventInfo write
- fPaintEventInfo;
-
- property OnGetName: TBehaviorNameEvent read FOnGetName write FOnGetName;
- property OnInvoke: TInvokeEvent read FOnInvoke write FOnInvoke;
- property OnGetProperty: TGetPropertyEvent read FOnGetProperty write FOnGetProperty;
- property OnPutProperty: TPutPropertyEvent read FOnPutProperty write FOnPutProperty;
-
-
- property OnCreateBehavior: TCreateBehaviorEvent read FOnCreateBehavior write
- FOnCreateBehavior;
-
- property OnGetIdOfName: TGetIdOfNameEvent read FOnGetIdOfName write FOnGetIdOfName;
-
- property OnInit: TBehaviorNotifyEvent read FOnInit write FOnInit;
- property OnDetach: TBehaviorNotifyEvent read FOnDetach write FOnDetach;
- property OnContentReady: TBehaviorNotifyEvent read FOnContentReady write
- FOnContentReady;
- property OnDocReady: TBehaviorNotifyEvent read FOnDocReady write
- FOnDocReady;
- property OnApplyStyle: TBehaviorNotifyEvent read FOnApplyStyle write
- FOnApplyStyle;
- property OnDocContextChange: TBehaviorNotifyEvent read FOnDocContextChange
- write FOnDocContextChange;
- property OnContentSave: TBehaviorNotifyEvent read FOnContentSave write
- FOnContentSave;
-
- property OnDraw: TPainterDrawEvent read FOnDraw write FOnDraw;
- property OnDirectDraw: TPainterDirectDrawEvent read FOnDirectDraw write
- FOnDirectDraw;
- property OnPainterResize: TPainterResizeEvent read FOnResize write
- FOnResize;
- property OnPainterInfo: TPainterInfoEvent read FOnPainterInfo write
- FOnPainterInfo;
- property OnPainterHitTest: TPainterHitTestEvent read FOnHitTest write
- FOnHitTest;
-
- property OnOverlayMove: TOverlayMoveEvent read FOnOverlayMove write
- FOnOverlayMove;
-
- property OnEventTarget: TEventTargetEvent read FOnEventTarget write
- FOnEventTarget;
- property OnSetCursor: TSetCursorEvent read FOnSetCursor write FOnSetCursor;
- property OnStringFromPartID: TStringFromPartIDEvent read FOnStringFromPartID
- write FOnStringFromPartID;
-
- property OnLayoutSize: TLayoutSizeEvent read FLayoutSize write FLayoutSize;
- property OnLayoutPosition: TLayoutPositionEvent read fLayoutPosition write
- fLayoutPosition;
- property OnLayoutMapSize: TLayoutMapSizeEvent read fLayoutMapSize write
- fLayoutMapSize;
- property OnLayoutTextDescent: TLayoutTextDescentEvent read
- FOnLayoutTextDescent write FOnLayoutTextDescent;
-
- property OnGetFocusRect: TGetFocusRectEvent read FOnGetFocusRect write
- FOnGetFocusRect;
- property OnGetSubmitInfo: TGetSubmitInfoEvent read FOnGetSubmitInfo write
- FOnGetSubmitInfo;
- property OnResetSubmit: TResetSubmitEvent read FOnResetSubmit write
- FOnResetSubmit;
- end;
-
- TBihState = set of 0..7;
-
- TBinBehavior = class(TInterfacedDispatchObject
- , IElementBehavior
- , IHTMLPainter
- , IHTMLPainterEventInfo
- , IHTMLPainterOverlay
- , IElementBehaviorLayout
- , IElementBehaviorLayout2
- , IElementBehaviorFocus
- , IElementBehaviorSubmit
- )
- private
- fController: TEwbBehaviorController;
- fSite: IElementBehaviorSite;
- FElement: IHTMLElement;
- FEventsLink: IHubLink;
- fState: TBihState;
- function getSiteOM: IElementBehaviorSiteOM;
- function getPaintSite: IHTMLPaintSite;
- function getDefaults: IHTMLElementDefaults;
- function getSiteLayout: IElementBehaviorSiteLayout;
- function getSiteLayout2: IElementBehaviorSiteLayout2;
- protected
- {IDispatch}
- function GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT; override;
- stdcall;
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
- override; stdcall;
- {IElementBehavior}
- function Init(pBehaviorSite: IElementBehaviorSite): HRESULT; stdcall;
- function Notify(lEvent: Integer; var pVar: OleVariant): HRESULT; stdcall;
- function Detach: HRESULT; stdcall;
- {IHTMLPainter}
- function IHTMLPainter.Draw = PainterDraw;
- function PainterDraw(rcBounds, rcUpdate: TRect; lDrawFlags: Integer;
- hdc: hdc; pvDrawObject: Pointer): HRESULT; stdcall;
- function IHTMLPainter.onresize = PainterResize;
- function PainterResize(size: TSize): HRESULT; stdcall;
- function IHTMLPainter.GetPainterInfo = PainterInfo;
- function PainterInfo(out pInfo: _HTML_PAINTER_INFO): HRESULT; stdcall;
- function IHTMLPainter.HitTestPoint = PainterHitTestPoint;
- function PainterHitTestPoint(pt: TPoint; out pbHit: BOOL; out plPartID:
- Longint): HRESULT; stdcall;
- {IHTMLPainterEventInfo}
- function GetEventInfoFlags(out plEventInfoFlags: Integer): HRESULT; stdcall;
- function GetEventTarget(var ppElement: IHTMLElement): HRESULT; stdcall;
- function SetCursor(lPartID: Integer): HRESULT; stdcall;
- function StringFromPartID(lPartID: Integer; out pbstrPart: WideString):
- HRESULT; stdcall;
- {IHTMLPainterOverlay}
- function IHTMLPainterOverlay.onmove = onOverlayMove;
- function onOverlayMove(rcDevice: TRect): HRESULT; stdcall;
- {IElementBehaviorLayout}
- function GetSize(dwFlags: Integer; sizeContent: TSize; var pptTranslateBy:
- TPoint;
- var pptTopLeft: TPoint; var psizeProposed: TSize): HRESULT; stdcall;
- function GetLayoutInfo(out plLayoutInfo: Integer): HRESULT; stdcall;
- function GetPosition(lFlags: Integer; var pptTopLeft: TPoint): HRESULT;
- stdcall;
- function MapSize(psizeIn: PSize; out prcOut: TRect): HRESULT; stdcall;
- {IElementBehaviorLayout2}
- function GetTextDescent(out plDescent: Integer): HRESULT; stdcall;
- {IElementBehaviorFocus}
- function GetFocusRect(var pRect: TRect): HRESULT; stdcall;
- {IElementBehaviorSubmit}
- function GetSubmitInfo(pSubmitData: IHTMLSubmitData): HRESULT; stdcall;
- function IElementBehaviorSubmit.reset = ResetSubmit;
- function ResetSubmit: HRESULT; stdcall;
- protected
- function getBoolProp(const Index: Integer): Boolean;
- procedure SetBoolProp(const Index: Integer; const Value: Boolean);
- public
- constructor Create(aController: TEwbBehaviorController);
- destructor Destroy; override;
-
- procedure ConnectToEvents;
- procedure DisconnectFromEvents;
- property Controller: TEwbBehaviorController read fController;
- property Site: IElementBehaviorSite read fSite;
- property SiteOM: IElementBehaviorSiteOM read getSiteOM;
- property ContextReady: Boolean index 0 read getBoolProp;
- property DocumentReady: Boolean index 1 read getBoolProp;
- property Element: IHTMLElement read FElement;
- property PaintSite: IHTMLPaintSite read getPaintSite;
- property Defaults: IHTMLElementDefaults read getDefaults;
- property SiteLayout: IElementBehaviorSiteLayout read getSiteLayout;
- property SiteLayout2: IElementBehaviorSiteLayout2 read getSiteLayout2;
- end;
-
-implementation
-uses SysUtils;
-
-const
-
- _zorders: array[TPaintZOrder] of Integer = (
- HTMLPAINT_ZORDER_NONE,
- HTMLPAINT_ZORDER_REPLACE_ALL,
- HTMLPAINT_ZORDER_REPLACE_CONTENT,
- HTMLPAINT_ZORDER_REPLACE_BACKGROUND,
- HTMLPAINT_ZORDER_BELOW_CONTENT,
- HTMLPAINT_ZORDER_BELOW_FLOW,
- HTMLPAINT_ZORDER_ABOVE_FLOW,
- HTMLPAINT_ZORDER_ABOVE_CONTENT,
- HTMLPAINT_ZORDER_WINDOW_TOP
- );
-
- _pproperties: array[TPainterProperty] of Integer = (
- HTMLPAINTER_OPAQUE,
- HTMLPAINTER_TRANSPARENT,
- //NOIMPL HTMLPAINTER_ALPHA,
- //NOIMPL HTMLPAINTER_COMPLEX,
- HTMLPAINTER_OVERLAY,
- HTMLPAINTER_HITTEST,
- HTMLPAINTER_SURFACE,
- HTMLPAINTER_3DSURFACE,
- //NOIMPL HTMLPAINTER_NOBAND,
- HTMLPAINTER_NODC,
- HTMLPAINTER_NOPHYSICALCLIP,
- HTMLPAINTER_NOSAVEDC,
- HTMLPAINTER_SUPPORTS_XFORM,
- HTMLPAINTER_EXPAND,
- HTMLPAINTER_NOSCROLLBITS
- );
-
- _layouts: array[TLayoutMode] of Integer = (
- 0,
- BEHAVIORLAYOUTINFO_FULLDELEGATION,
- BEHAVIORLAYOUTINFO_MODIFYNATURAL,
- BEHAVIORLAYOUTINFO_MAPSIZE
- );
-
- { TEwbBehaviorFactory }
-
-function TEwbBehaviorFactory.CreateWithImplementation(
- pNamespace: IElementNamespace;
- const bstrImplementation: WideString): HRESULT;
-begin
- Result := S_OK;
- if Assigned(FOnCreateNSWithImpl) then
- FOnCreateNSWithImpl(Self, pNamespace, bstrImplementation)
- else if Assigned(FOnCreateNS) then
- FOnCreateNS(Self, pNamespace);
-end;
-
-function TEwbBehaviorFactory.FactoryCreate(pNamespace: IElementNamespace):
- HRESULT;
-begin
- Result := S_OK;
- if Assigned(FOnCreateNS) then
- FOnCreateNS(Self, pNamespace);
-end;
-
-function TEwbBehaviorFactory.FindBehavior(const bstrBehavior,
- bstrBehaviorUrl: WideString; const pSite: IElementBehaviorSite;
- out ppBehavior: IElementBehavior): HRESULT;
-begin
- ppBehavior := nil;
- if Assigned(FOnFindBehavior) then
- FOnFindBehavior(Self, bstrBehavior, bstrBehaviorUrl, pSite, ppBehavior);
- if ppBehavior = nil then
- Result := E_NOTIMPL
- else
- Result := S_OK;
-end;
-
-function TEwbBehaviorFactory.Resolve(const bstrNamespace, bstrTagName,
- bstrAttrs: WideString; pNamespace: IElementNamespace): HRESULT;
-begin
- Result := S_OK;
- if Assigned(FOnResolveNS) then
- FOnResolveNS(Self, bstrNamespace, bstrTagName, bstrAttrs, pNamespace);
-end;
-
-{ TBinBehavior }
-
-constructor TBinBehavior.Create(aController: TEwbBehaviorController);
-begin
- inherited Create;
- aController.Add(Self);
-end;
-
-destructor TBinBehavior.Destroy;
-begin
- FController.Remove(Self);
- inherited;
-end;
-
-function TBinBehavior.getBoolProp(const Index: Integer): Boolean;
-begin
- Result := Index in fState;
-end;
-
-procedure TBinBehavior.SetBoolProp(const Index: Integer;
- const Value: Boolean);
-begin
- if Value then
- Include(fState, Index)
- else
- Exclude(fState, Index);
-end;
-
-function TBinBehavior.getSiteOM: IElementBehaviorSiteOM;
-begin
- if not Supports(fSite, IElementBehaviorSiteOM, Result) then
- Result := nil;
-end;
-
-function TBinBehavior.getPaintSite: IHTMLPaintSite;
-begin
- if not Supports(fSite, IHTMLPaintSite, Result) then
- Result := nil;
-end;
-
-function TBinBehavior.getDefaults: IHTMLElementDefaults;
-var
- OM2: IElementBehaviorSiteOM2;
-begin
- if Supports(fSite, IElementBehaviorSiteOM2, OM2) then
- OM2.GetDefaults(Result)
- else
- Result := nil;
-end;
-
-function TBinBehavior.getSiteLayout: IElementBehaviorSiteLayout;
-begin
- if not Supports(fSite, IElementBehaviorSiteLayout, Result) then
- Result := nil;
-end;
-
-function TBinBehavior.getSiteLayout2: IElementBehaviorSiteLayout2;
-begin
- if not Supports(fSite, IElementBehaviorSiteLayout2, Result) then
- Result := nil;
-end;
-
-function TBinBehavior.Detach: HRESULT;
-begin
- FController.DoDetach(Self);
- DisconnectFromEvents;
- FElement := nil;
- SetBoolProp(1, False);
- fSite := nil;
- SetBoolProp(0, False);
- Result := S_OK;
-end;
-
-procedure TBinBehavior.ConnectToEvents;
-begin
- if FEventsLink = nil then
- FEventsLink := FController.Connect2(Element, Self);
-end;
-
-procedure TBinBehavior.DisconnectFromEvents;
-begin
- if FEventsLink <> nil then
- try
- FEventsLink.Disconnect;
- finally
- FEventsLink := nil;
- end;
-end;
-
-function TBinBehavior.Init(pBehaviorSite: IElementBehaviorSite): HRESULT;
-begin
- fSite := pBehaviorSite;
- FController.DoInit(Self);
- Result := S_OK;
-end;
-
-function TBinBehavior.Notify(lEvent: Integer;
- var pVar: OleVariant): HRESULT;
-begin
- case lEvent of
- BEHAVIOREVENT_CONTENTREADY:
- begin
- SetBoolProp(0, True);
- Site.GetElement(FElement);
- if FController.HandleEvents then
- Self.ConnectToEvents;
- end;
- BEHAVIOREVENT_DOCUMENTREADY:
- SetBoolProp(1, True);
- end;
- FController.DoNotify(Self, lEvent);
- Result := S_OK;
-end;
-
-function TBinBehavior.PainterDraw(rcBounds, rcUpdate: TRect;
- lDrawFlags: Integer; hdc: hdc; pvDrawObject: Pointer): HRESULT;
-var
- Canvas: TCanvas;
-begin
- Result := S_OK;
- if hdc <> 0 then
- begin
- Canvas := TCanvas.Create;
- Canvas.Handle := hdc;
- end else if pvDrawObject <> nil then
- begin
- FController.DoDirectDraw(Self, rcBounds, rcUpdate, lDrawFlags,
- pvDrawObject);
- Exit;
- end else
- Canvas := nil;
- try
- FController.DoDraw(Self, rcBounds, rcUpdate, lDrawFlags, Canvas);
- finally
- Canvas.Free;
- end;
-end;
-
-function TBinBehavior.PainterHitTestPoint(pt: TPoint; out pbHit: BOOL;
- out plPartID: Integer): HRESULT;
-begin
- pbHit := False;
- plPartID := 0;
- FController.DoHitTestPoint(Self, pt, pbHit, plPartID);
- Result := S_OK;
-end;
-
-function TBinBehavior.PainterInfo(out pInfo: _HTML_PAINTER_INFO): HRESULT;
-begin
- pInfo.lZOrder := _zorders[FController.ZOrder];
- pInfo.lFlags := FController.FPainterFlags;
- FController.GetPainterInfo(Self, pInfo);
- Result := S_OK;
-end;
-
-function TBinBehavior.PainterResize(size: TSize): HRESULT;
-begin
- FController.DoPainterResize(Self, size);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetLayoutInfo(out plLayoutInfo: Integer): HRESULT;
-begin
- plLayoutInfo := _layouts[FController.LayoutMode];
- Result := S_OK;
-end;
-
-function TBinBehavior.GetPosition(lFlags: Integer;
- var pptTopLeft: TPoint): HRESULT;
-begin
- FController.DoLayoutPosition(Self, lFlags, pptTopLeft);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetSize(dwFlags: Integer; sizeContent: TSize;
- var pptTranslateBy, pptTopLeft: TPoint;
- var psizeProposed: TSize): HRESULT;
-begin
- FController.DoLayoutSize(Self, dwFlags, sizeContent,
- pptTranslateBy, pptTopLeft, psizeProposed);
- Result := S_OK;
-end;
-
-function TBinBehavior.MapSize(psizeIn: PSize; out prcOut: TRect): HRESULT;
-begin
- FController.DoLayoutMapSize(Self, psizeIn, prcOut);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetTextDescent(out plDescent: Integer): HRESULT;
-begin
- FController.DoTextDescent(Self, plDescent);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetEventInfoFlags(
- out plEventInfoFlags: Integer): HRESULT;
-begin
- plEventInfoFlags := 0;
- with Self.FController do
- begin
- if pfTarget in PaintEventInfo then
- plEventInfoFlags := HTMLPAINT_EVENT_TARGET;
- if pfSetCursor in PaintEventInfo then
- plEventInfoFlags := plEventInfoFlags or HTMLPAINT_EVENT_SETCURSOR;
- end;
- Result := S_OK;
-end;
-
-function TBinBehavior.GetEventTarget(var ppElement: IHTMLElement): HRESULT;
-begin
- FController.DoEventTarget(Self, ppElement);
- Result := S_OK;
-end;
-
-function TBinBehavior.SetCursor(lPartID: Integer): HRESULT;
-begin
- FController.DoSetCursor(Self, lPartID);
- Result := S_OK;
-end;
-
-function TBinBehavior.StringFromPartID(lPartID: Integer;
- out pbstrPart: WideString): HRESULT;
-begin
- if FController.DoStringFromPartID(Self, lPartID, pbstrPart) then
- Result := S_OK
- else
- Result := E_NOTIMPL;
-end;
-
-function TBinBehavior.onOverlayMove(rcDevice: TRect): HRESULT;
-begin
- FController.DoOverlayMove(Self, rcDevice);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetFocusRect(var pRect: TRect): HRESULT;
-begin
- FController.DoGetFocusRect(Self, pRect);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetSubmitInfo(
- pSubmitData: IHTMLSubmitData): HRESULT;
-begin
- FController.DoGetSubmitInfo(Self, pSubmitData);
- Result := S_OK;
-end;
-
-function TBinBehavior.ResetSubmit: HRESULT;
-begin
- FController.DoResetSubmit(Self);
- Result := S_OK;
-end;
-
-function TBinBehavior.GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT;
-var
- I: Integer;
- pname: WideString;
- id: Integer;
-begin
- pname := PWideChar(Names^);
- for I := 0 to NameCount - 1 do
- PDispIDList(DispIDs)^[i] := -1;
- id := -1;
- FController.DoGetIdOfName(Self, pname, id);
- if id <> -1 then
- begin
- PDispIDList(DispIDs)^[0] := TDispID(id);
- Result := S_OK
- end else Result := E_NOTIMPL;
-end;
-
-function TBinBehavior.Invoke(DispID: Integer; const IID: TGUID;
- LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
- ArgErr: Pointer): HRESULT;
-begin
- try
- Result := DISP_E_MEMBERNOTFOUND;
- if integer(DispID) <> -1 then
- if Flags = DISPATCH_METHOD then
- FController.DoInvoke(Self, DispID, POleVariant(VarResult),
- TDispParams(Params), Result)
- else
- case Flags and not DISPATCH_METHOD of
- DISPATCH_PROPERTYGET:
- FController.DoGetProperty(Self, DispID, POleVariant(VarResult),
- TDispParams(Params), Result);
-
- DISPATCH_PROPERTYPUT,
- DISPATCH_PROPERTYPUTREF,
- DISPATCH_PROPERTYPUT + DISPATCH_PROPERTYPUTREF:
- FController.DoPutProperty(Self, DispID, TDispParams(Params), Result);
- end;
- except
- on E: Exception do
- with PExcepInfo(ExcepInfo)^ do
- begin
- Result := DISP_E_EXCEPTION;
- wCode := 9999;
- bstrDescription := E.Message;
- bstrSource := E.ClassName;
- dwHelpContext := E.HelpContext;
- end;
- end;
-end;
-
-{ TEwbBehaviorController }
-
-destructor TEwbBehaviorController.Destroy;
-begin
- FreeAndNil(FBehaviors);
- inherited;
-end;
-
-procedure TEwbBehaviorController.Add(aBehavior: TBinBehavior);
-begin
- aBehavior.fController := Self;
- if Alive then
- begin
- if FBehaviors = nil then
- FBehaviors := TList.Create;
- FBehaviors.Add(aBehavior);
- end;
-end;
-
-procedure TEwbBehaviorController.Remove(aBehavior: TBinBehavior);
-begin
- aBehavior.fController := nil;
- if FBehaviors <> nil then
- FBehaviors.Remove(aBehavior);
-end;
-
-procedure TEwbBehaviorController.InvalidatePainterInfo;
-var I: Integer;
-begin
- if FBehaviors <> nil then
- for I := 0 to FBehaviors.Count - 1 do
- with TBinBehavior(FBehaviors[I]) do
- PaintSite.InvalidatePainterInfo;
-end;
-
-procedure TEwbBehaviorController.InvalidateLayoutInfo;
-var I: Integer;
-begin
- if FBehaviors <> nil then
- for I := 0 to FBehaviors.Count - 1 do
- with TBinBehavior(FBehaviors[I]) do
- SiteLayout.InvalidateLayoutInfo;
-end;
-
-procedure TEwbBehaviorController.setZOrder(const Value: TPaintZOrder);
-begin
- if FZOrder <> Value then
- begin
- FZOrder := Value;
- InvalidatePainterInfo;
- end;
-end;
-
-procedure TEwbBehaviorController.setPainterProperties(
- const Value: TPainterProperties);
-var
- lFlags: Integer;
- I: TPainterProperty;
-begin
- lFlags := 0;
- FPainterProperties := Value;
- for I := Low(TPainterProperty) to High(TPainterProperty) do
- if I in Value then
- lFlags := lFlags or _pproperties[I];
- FPainterFlags := lFlags;
- InvalidatePainterInfo;
-end;
-
-procedure TEwbBehaviorController.setLayoutMode(const Value: TLayoutMode);
-begin
- if FLayoutMode <> Value then
- begin
- FLayoutMode := Value;
- InvalidateLayoutInfo;
- end;
-end;
-
-procedure TEwbBehaviorController.setLayoutTextDescent(
- const Value: Integer);
-begin
- if FLayoutTextDescent <> Value then
- begin
- FLayoutTextDescent := Value;
- InvalidateLayoutInfo;
- end;
-end;
-
-function TEwbBehaviorController.FindBehavior(const bstrBehavior,
- bstrBehaviorUrl: WideString; const pSite: IElementBehaviorSite;
- out ppBehavior: IElementBehavior): HRESULT;
-begin
- if Assigned(FOnCreateBehavior) then
- ppBehavior := FOnCreateBehavior(Self, bstrBehavior, bstrBehaviorUrl, pSite);
- if ppBehavior = nil then
- ppBehavior := TBinBehavior.Create(Self) as IElementBehavior;
- Result := S_OK;
-end;
-
-function TEwbBehaviorController.Attach(Element: IHTMLElement2): Integer;
-var
- aName: Widestring;
-{$IFDEF DELPHI5_UP}
- SelfIntf: IElementBehaviorFactory;
-{$ENDIF}
-begin
- aName := '';
- if Assigned(FOnGetName) then
- FOnGetName(Self, Element, aName);
-{$IFDEF DELPHI5_UP}
- GetInterface(IElementBehaviorFactory, SelfIntf);
- Result := Element.addBehavior(aName, SelfIntf);
-{$ELSE}
- Result := Element.addBehavior(aName, Self as IElementBehaviorFactory);
-{$ENDIF}
-end;
-
-function TEwbBehaviorController.Attach(Element: IHTMLElement): Integer;
-var
- E: IHTMLElement2;
-begin
- if Supports(Element, IHTMLElement2, E) then
- Result := Attach(E)
- else
- Result := 0;
-end;
-
-procedure TEwbBehaviorController.DoInit(Sender: TBinBehavior);
-begin
- if Assigned(FOnInit) then
- FOnInit(Sender);
-end;
-
-procedure TEwbBehaviorController.DoDetach(Sender: TBinBehavior);
-begin
- if Assigned(FOnDetach) then
- FOnDetach(Sender);
-end;
-
-procedure TEwbBehaviorController.DoDraw(Sender: TBinBehavior; rcBounds,
- rcUpdate: TRect; lDrawFlags: Integer; Canvas: TCanvas);
-begin
- if Assigned(FOnDraw) then
- FOnDraw(Sender, rcBounds, rcUpdate, lDrawFlags, Canvas);
-end;
-
-procedure TEwbBehaviorController.DoDirectDraw(Sender: TBinBehavior;
- rcBounds, rcUpdate: TRect; lDrawFlags: Integer; pvDrawObject: Pointer);
-begin
- if Assigned(FOnDirectDraw) then
- FOnDirectDraw(Sender, rcBounds, rcUpdate, lDrawFlags, pvDrawObject);
-end;
-
-procedure TEwbBehaviorController.DoHitTestPoint(Sender: TBinBehavior;
- pt: TPoint; var pbHit: BOOL; var plPartID: Integer);
-begin
- if Assigned(FOnHitTest) then
- FOnHitTest(Sender, pt, pbHit, plPartID);
-end;
-
-procedure TEwbBehaviorController.DoPainterResize(Sender: TBinBehavior;
- Size: TSize);
-begin
- if Assigned(FOnResize) then
- FOnResize(Sender, size);
-end;
-
-procedure TEwbBehaviorController.GetPainterInfo(Sender: TBinBehavior;
- var pInfo: _HTML_PAINTER_INFO);
-begin
- if Assigned(FOnPainterInfo) then
- FOnPainterInfo(Sender, pInfo);
-end;
-
-procedure TEwbBehaviorController.DoNotify(Sender: TBinBehavior;
- lEvent: Integer);
-begin
- case lEvent of
- BEHAVIOREVENT_CONTENTREADY:
- if Assigned(FOnContentReady) then
- FOnContentReady(Sender);
- BEHAVIOREVENT_DOCUMENTREADY:
- if Assigned(FOnDocReady) then
- FOnDocReady(Sender);
- BEHAVIOREVENT_DOCUMENTCONTEXTCHANGE:
- if Assigned(FOnDocContextChange) then
- FOnDocContextChange(Sender);
- BEHAVIOREVENT_CONTENTSAVE:
- if Assigned(FOnContentSave) then
- FOnContentSave(Sender);
- BEHAVIOREVENT_APPLYSTYLE:
- if Assigned(FOnApplyStyle) then
- FOnApplyStyle(Sender);
- end;
-end;
-
-procedure TEwbBehaviorController.DoLayoutMapSize(Sender: TBinBehavior;
- psizeIn: PSize; var prcOut: TRect);
-begin
- if Assigned(fLayoutMapSize) then
- fLayoutMapSize(Sender, psizeIn, prcOut);
-end;
-
-procedure TEwbBehaviorController.DoLayoutPosition(Sender: TBinBehavior;
- lFlags: Integer; var pptTopLeft: TPoint);
-begin
- if Assigned(fLayoutPosition) then
- fLayoutPosition(Sender, lFlags, pptTopLeft);
-end;
-
-procedure TEwbBehaviorController.DoLayoutSize(Sender: TBinBehavior;
- dwFlags: Integer; sizeContent: TSize; var pptTranslateBy,
- pptTopLeft: TPoint; var psizeProposed: TSize);
-begin
- if Assigned(FLayoutSize) then
- FLayoutSize(Sender, dwFlags, sizeContent, pptTranslateBy, pptTopLeft,
- psizeProposed);
-end;
-
-procedure TEwbBehaviorController.DoTextDescent(Sender: TBinBehavior;
- var plDescent: Integer);
-begin
- plDescent := Self.LayoutTextDescent;
- if Assigned(FOnLayoutTextDescent) then
- FOnLayoutTextDescent(Sender, plDescent);
-end;
-
-procedure TEwbBehaviorController.DoEventTarget(Sender: TBinBehavior;
- var ppElement: IHTMLElement);
-begin
- if Assigned(FOnEventTarget) then
- FOnEventTarget(Sender, ppElement);
-end;
-
-procedure TEwbBehaviorController.DoSetCursor(Sender: TBinBehavior;
- lPartID: Integer);
-begin
- if Assigned(FOnSetCursor) then
- FOnSetCursor(Sender, lPartID);
-end;
-
-function TEwbBehaviorController.DoStringFromPartID(Sender: TBinBehavior;
- lPartID: Integer; out pbstrPart: WideString): Boolean;
-begin
- Result := Assigned(FOnStringFromPartID);
- if Result then
- FOnStringFromPartID(Sender, lPartID, pbstrPart);
-end;
-
-procedure TEwbBehaviorController.DoOverlayMove(Sender: TBinBehavior;
- rcDevice: TRect);
-begin
- if Assigned(FOnOverlayMove) then
- FOnOverlayMove(Sender, rcDevice);
-end;
-
-procedure TEwbBehaviorController.DoGetFocusRect(Sender: TBinBehavior;
- var pRect: TRect);
-begin
- if Assigned(FOnGetFocusRect) then
- FOnGetFocusRect(Sender, pRect);
-end;
-
-procedure TEwbBehaviorController.DoGetSubmitInfo(Sender: TBinBehavior;
- pSubmitData: IHTMLSubmitData);
-begin
- if Assigned(FOnGetSubmitInfo) then
- FOnGetSubmitInfo(Sender, pSubmitData);
-end;
-
-procedure TEwbBehaviorController.DoResetSubmit(Sender: TBinBehavior);
-begin
- if Assigned(FOnResetSubmit) then
- FOnResetSubmit(Sender);
-end;
-
-procedure TEwbBehaviorController.DoGetIdOfName(Sender: TBinBehavior;
- const name: widestring; var id: Integer);
-begin
- if Assigned(FOnGetIdOfName) then
- FOnGetIdOfName(Sender, name, id);
-end;
-
-procedure TEwbBehaviorController.DoGetProperty(Sender: TBinBehavior;
- DispID: Integer; VarResult: POleVariant; Params: TDispParams;
- var Rezult: HRESULT);
-begin
- if Assigned(FOnGetProperty) then
- FOnGetProperty(Sender, DispID, VarResult, Params, Rezult);
-end;
-
-procedure TEwbBehaviorController.DoInvoke(Sender: TBinBehavior;
- DispID: Integer; VarResult: POleVariant; Params: TDispParams;
- var Rezult: HRESULT);
-begin
- if Assigned(FOnInvoke) then
- FOnInvoke(Sender, DispID, VarResult, Params, Rezult);
-end;
-
-procedure TEwbBehaviorController.DoPutProperty(Sender: TBinBehavior;
- DispID: Integer; Params: TDispParams; var Rezult: HRESULT);
-begin
- if Assigned(FOnPutProperty) then
- FOnPutProperty(Sender, DispID, Params, Rezult);
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbClasses.pas b/windows/src/ext/embeddedwb/Source/EwbClasses.pas
deleted file mode 100644
index 52e0d93e43fbf854685c7cccb3a9beb2a35ec1e1..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbClasses.pas
+++ /dev/null
@@ -1,146 +0,0 @@
-//*************************************************************
-// EwbClasses *
-// *
-// Freeware unit *
-// For Delphi 5 to XE *
-// by *
-// Serge Voloshenyuk *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbClasses.pas,v 1.1.2.1 2006/11/29 22:13:01 sergev Exp $
-
-unit EwbClasses;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows;
-
-type
- IInterfaceObjectReference = interface
- ['{C0D28425-8410-45F6-BD60-8AE66782E545}']
- function GetObject: TObject;
- end;
-
- TInterfacedDispatchObject = class(TObject, IUnknown,
- IInterfaceObjectReference, IDispatch)
- protected
- {IInterface}
- FRefCount: Integer;
- function QueryInterface(const IID: TGUID; out Obj): HResult;
-{$IFDEF RESEARCH_MODE} virtual; {$ENDIF} stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
- {IInterfaceObjectReference}
- function GetObject: TObject;
- {IDispatch}
- function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
- function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
- function GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; virtual; stdcall;
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
- virtual; stdcall;
- public
- procedure AfterConstruction; override;
- class function NewInstance: TObject; override;
- property RefCount: Integer read FRefCount;
- end;
-
-implementation
-
-{ TInterfacedDispatchObject }
-
-class function TInterfacedDispatchObject.NewInstance: TObject;
-begin
- Result := inherited NewInstance;
- TInterfacedDispatchObject(Result).FRefCount := 1;
-end;
-
-procedure TInterfacedDispatchObject.AfterConstruction;
-begin
- InterlockedDecrement(FRefCount);
-end;
-
-function TInterfacedDispatchObject._AddRef: Integer;
-begin
- Result := InterlockedIncrement(FRefCount);
-end;
-
-function TInterfacedDispatchObject._Release: Integer;
-begin
- Result := InterlockedDecrement(FRefCount);
- if Result = 0 then
- Destroy;
-end;
-
-function TInterfacedDispatchObject.QueryInterface(const IID: TGUID;
- out Obj): HResult;
-begin
- if GetInterface(IID, Obj) then
- Result := 0
- else
- Result := E_NOINTERFACE;
-end;
-
-function TInterfacedDispatchObject.GetIDsOfNames(const IID: TGUID;
- Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;
-begin
- Result := DISP_E_UNKNOWNNAME;
-end;
-
-function TInterfacedDispatchObject.GetObject: TObject;
-begin
- Result := Self;
-end;
-
-function TInterfacedDispatchObject.GetTypeInfo(Index, LocaleID: Integer;
- out TypeInfo): HResult;
-begin
- Result := DISP_E_BADINDEX;
-end;
-
-function TInterfacedDispatchObject.GetTypeInfoCount(
- out Count: Integer): HResult;
-begin
- Count := 0;
- Result := S_OK;
-end;
-
-function TInterfacedDispatchObject.Invoke(DispID: Integer;
- const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult,
- ExcepInfo, ArgErr: Pointer): HResult;
-begin
- Result := S_OK;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbControlComponent.pas b/windows/src/ext/embeddedwb/Source/EwbControlComponent.pas
deleted file mode 100644
index f84f8902eea41679a553d60d2d91e8052e76308c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbControlComponent.pas
+++ /dev/null
@@ -1,348 +0,0 @@
-//***********************************************************
-// EwbControl component *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// (smot) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbControlComponent;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, Messages, SysUtils, Classes, Forms, EWBMouseHook;
-
-{============================================================================}
-// Mouse WheelFix
-{============================================================================}
-type
- TMouseWheelFix = class(TPersistent)
- private
- FActive: Boolean;
- FActiveFormOnly: Boolean;
- FEWBMouseHook: TEWBMouseHook;
- FDesignMode: Boolean;
- procedure SetActive(const Value: Boolean);
- procedure SetActiveFormOnly(const Value: Boolean);
- public
- OnMouseWheel: TMouseWheelEvent;
- published
- property Active: Boolean read FActive write SetActive default True;
- property ActiveFormOnly: Boolean read FActiveFormOnly write SetActiveFormOnly
- default False;
- end;
-
- {============================================================================}
- // FocusControl
- {============================================================================}
-type
- TFocusControl = class(TPersistent)
- private
- FActive: Boolean;
- FDesignMode: Boolean;
- procedure SetActive(const Value: Boolean);
- published
- property Active: Boolean read FActive write SetActive default True;
- end;
-
- {============================================================================}
- // OnMessage Handler
- {============================================================================}
-{
-type
- TMessageHandler = class(TPersistent)
- private
- FActive: Boolean;
- FDesignMode: Boolean;
- FOnMessage: TMessageEvent;
- procedure SetActive(const Value: Boolean);
- published
- property Active: Boolean read FActive write SetActive default True;
- end;
-}
-
-{$IFDEF Enable_InternetFeatures}
- {============================================================================}
- { Feature Controls }
- { http://msdn.microsoft.com/en-us/library/ms537169(VS.85).aspx }
- { TInternetFeatures = (
-FEATURE_OBJECT_CACHING
-FEATURE_ZONE_ELEVATION
-FEATURE_MIME_HANDLING
-FEATURE_MIME_SNIFFING
-FEATURE_WINDOW_RESTRICTIONS
-FEATURE_WEBOC_POPUPMANAGEMENT
-FEATURE_BEHAVIORS
-FEATURE_DISABLE_MK_PROTOCOL
-FEATURE_LOCALMACHINE_LOCKDOWN
-FEATURE_SECURITYBAND
-FEATURE_RESTRICT_ACTIVEXINSTALL
-FEATURE_VALIDATE_NAVIGATE_URL
-FEATURE_RESTRICT_FILEDOWNLOAD
-FEATURE_ADDON_MANAGEMENT
-FEATURE_PROTOCOL_LOCKDOWN
-FEATURE_HTTP_USERNAME_PASSWORD_DISABLE
-FEATURE_SAFE_BINDTOOBJECT
-FEATURE_UNC_SAVEDFILECHECK
-FEATURE_GET_URL_DOM_FILEPATH_UNENCODED
-FEATURE_TABBED_BROWSING
-FEATURE_SSLUX
-FEATURE_DISABLE_NAVIGATION_SOUNDS
-FEATURE_DISABLE_LEGACY_COMPRESSION
-FEATURE_FORCE_ADDR_AND_STATUS
-FEATURE_XMLHTTP
-FEATURE_DISABLE_TELNET_PROTOCOL
-FEATURE_FEEDS
-FEATURE_BLOCK_INPUT_PROMPTS
-FEATURE_ENTRY_COUNT);
- }
-
- TInternetFeatureList = (
- ObjectCaching, ZoneElevation, MimeHandling, MimeSniffing, WindowRestrictions,
- WebocPopupManagement, Behaviors, DisableMkProtocol, LocalMachineLockDown,
- Securityband, RestrictActivexInstall, ValidateNavigateUrl, RestrictFileDownload,
- AddonManagement, ProtocolLockdown, HttpUsernamePasswordDisable, SafeBindToObject,
- UncSavedFileCheck, GetUrlDomFilePathUnencoded, TabbedBrowsing, Sslux,
- DisableNavigationSounds, DisableLegacyCompression, ForceAddrAndStatus,
- XmlHttp, DisableTelnetProtocol, Feeds, BlockInputPrompts, EntryCount
- );
- TInternetFeatures = set of TInternetFeatureList;
-{$ENDIF Enable_InternetFeatures}
-
-{============================================================================}
-// TEwbControl
-{============================================================================}
-
-type
- TEwbControl = class(TComponent)
- private
- { Private declarations }
- FMouseWheelFix: TMouseWheelFix;
- FFocusControl: TFocusControl;
- // FMessageHandler: TMessageHandler;
- // FOnMessage: TMessageEvent;
- FOnMouseWheel: TMouseWheelEvent;
- FDesignMode: Boolean;
-{$IFDEF Enable_InternetFeatures}
- FInternetFeatures: TInternetFeatures;
- procedure SetInternetFeatures(const Value: TInternetFeatures);
-{$ENDIF}
- // procedure DoMessage(var Msg: TMsg; var Handled: Boolean);
- protected
- { Protected declarations }
- // procedure ProcessWBEvents(var Msg: TMsg; var Handled: Boolean);
-{$IFDEF Enable_InternetFeatures}
- procedure UpdateInternetFeatures;
- procedure SetDefaultInternetFeatures;
-{$ENDIF}
-
- public
- { Public declarations }
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Loaded; override;
- published
- { Published declarations }
- property MouseWheelFix: TMouseWheelFix read FMouseWheelFix write
- FMouseWheelFix;
- property FocusControl: TFocusControl read FFocusControl write FFocusControl;
- // property MessageHandler: TMessageHandler read FMessageHandler write FMessageHandler;
- // property OnMessage: TMessageEvent read FOnMessage write FOnMessage;
- property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write
- FOnMouseWheel;
-{$IFDEF Enable_InternetFeatures}
- property InternetFeatures: TInternetFeatures read FInternetFeatures
- write SetInternetFeatures default [];
-{$ENDIF}
- end;
-
-implementation
-
-uses
- EwbFocusControl, EwbAcc, EwbIEConst;
-
-procedure TFocusControl.SetActive(const Value: Boolean);
-begin
- FActive := Value;
- if not FDesignMode then
- TEWBFocusControl.Activate(Value);
-end;
-
-{procedure TMessageHandler.SetActive(const Value: Boolean);
-begin
- FActive := Value;
- if not FDesignMode then
- begin
- if FActive then
- Application.OnMessage := FOnMessage;
- end;
-end; }
-
-procedure TMouseWheelFix.SetActiveFormOnly(const Value: Boolean);
-begin
- FActiveFormOnly := Value;
- if Assigned(FEWBMouseHook) then
- FEWBMouseHook.FActiveFormOnly := FActiveFormOnly;
-end;
-
-procedure TMouseWheelFix.SetActive(const Value: Boolean);
-begin
- FActive := Value;
- if not FDesignMode then
- if Value then
- begin
- if FEWBMouseHook = nil then
- begin
- FEWBMouseHook := TEWBMouseHook.Create;
- FEWBMouseHook.OnMouseWheel := OnMouseWheel;
- FEWBMouseHook.FActiveFormOnly := FActiveFormOnly;
- FEWBMouseHook.Activate;
- end;
- end
- else
- begin
- if Assigned(FEWBMouseHook) then
- begin
- try
- FEWBMouseHook.Deactivate;
- finally
- FreeAndNil(FEWBMouseHook);
- end;
- end;
- end;
-end;
-
-procedure TEwbControl.Loaded;
-begin
- inherited Loaded;
- if Assigned(OnMouseWheel) then
- FMouseWheelFix.OnMouseWheel := OnMouseWheel;
- { if Assigned(FMessageHandler) then
- FMessageHandler.FOnMessage := DoMessage; }
-end;
-
-constructor TEwbControl.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
-
- FDesignMode := (csDesigning in ComponentState);
-
- FMouseWheelFix := TMouseWheelFix.Create;
- FMouseWheelFix.FDesignMode := FDesignMode;
- FMouseWheelFix.FActive := True;
-
- FFocusControl := TFocusControl.Create;
- FFocusControl.FDesignMode := FDesignMode;
- FFocusControl.FActive := True;
-
-{$IFDEF Enable_InternetFeatures}
- if FDesignMode then
- SetDefaultInternetFeatures;
-{$ENDIF}
-
- { FMessageHandler := TMessageHandler.Create;
- FMessageHandler.FDesignMode := FDesignMode;
- FMessageHandler.FOnMessage := DoMessage;
-
- FMessageHandler.FActive := True; }
-end;
-
-destructor TEwbControl.Destroy;
-begin
- if not (csDesigning in ComponentState) then
- begin
- { if Assigned(FMessageHandler) then
- begin
- FMessageHandler.Active := False;
- Application.OnMessage := nil;
- FreeAndNil(FMessageHandler);
- end; }
- if Assigned(FMouseWheelFix) then
- begin
- FMouseWheelFix.Active := False;
- FreeAndNil(FMouseWheelFix);
- end;
- if Assigned(FFocusControl) then
- begin
- FFocusControl.Active := False;
- FreeAndNil(FFocusControl);
- end;
- end;
- inherited Destroy;
-end;
-
-{$IFDEF Enable_InternetFeatures}
-
-procedure TEwbControl.UpdateInternetFeatures;
-var
- dco: TInternetFeatureList;
-begin
- if (FInternetFeatures <> []) then
- for dco := Low(TInternetFeatureList) to High(TInternetFeatureList) do
- CoInternetSetFeatureEnabled(TInternetFeature(dco), FEATURE_FROM_PROCESS, (dco in FInternetFeatures));
-end;
-
-procedure TEwbControl.SetInternetFeatures(const Value: TInternetFeatures);
-begin
- FInternetFeatures := Value;
- UpdateInternetFeatures;
-end;
-
-procedure TEwbControl.SetDefaultInternetFeatures;
-var
- dco: TInternetFeatureList;
-begin
- FInternetFeatures := [];
- for dco := Low(TInternetFeatureList) to High(TInternetFeatureList) do
- if CoInternetIsFeatureEnabled(TInternetFeature(dco), FEATURE_FROM_PROCESS) = S_OK then
- FInternetFeatures := FInternetFeatures + [TInternetFeatureList(dco)];
-end;
-
-{$ENDIF}
-
-{
-procedure TEwbControl.ProcessWBEvents(var Msg: TMsg; var Handled: Boolean);
-begin
-end;
-
-procedure TEwbControl.DoMessage(var Msg: TMsg; var Handled: Boolean);
-begin
- if Assigned(FOnMessage) then
- begin
- FOnMessage(Msg, Handled);
- end;
- ProcessWBEvents(Msg, Handled);
-end;
-}
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbCore.pas b/windows/src/ext/embeddedwb/Source/EwbCore.pas
deleted file mode 100644
index cee1cfa0637b8e5fe0f7d104ed894c55869d2d9d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbCore.pas
+++ /dev/null
@@ -1,1998 +0,0 @@
-(*
- Name: EwbCore
- Copyright: Copyright (C) 2003-2017 SIL International.
- Documentation:
- Description:
- Create Date: 1 May 2014
-
- Modified Date: 1 May 2014
- Authors: mcdurdin
- Related Files:
- Dependencies:
-
- Bugs:
- Todo:
- Notes:
- History: 01 May 2014 - mcdurdin - I4214 - V9.0 - Keyman spams message 0x0401 and frequent timer messages too
-
-*)
-//*************************************************************
-// TEwbCore *
-// *
-// Freeware Component *
-// For Delphi *
-// For Delphi 5 to Delphi XE *
-// *
-// Developing Team: *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Thomas Stutz (smot777@yahoo.com *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/change/modify the component under 4 conditions:
-1. In your web site, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbCore;
-
-interface
-
-{$I EWB.inc}
-
-uses
-{$IFDEF DELPHI6_UP}Variants, {$ENDIF}
- Dialogs, Windows, Messages, Classes, MSHTML_EWB, EWBAcc, Controls, Forms,
- ExtCtrls, ActiveX, ShlObj, SHDocVw_EWB, UrlMon, EwbIEConst;
-
-type
- TCustomEmbeddedWB = class;
-
- TOleCmdArray = array of TOleCmd;
- TDragDropHandlingType = (
- ddtMS, // Microsoft implementation
- ddtMy, // TCustomEmbeddedWB event handlers
- ddtCustom, // granted by user in OnGetDropTarget event handler
- ddtNo // No drag and drop
- );
- TDocDesignMode = (ddmOn, ddmOff, ddmInherit, ddmUnknown);
-
- TIEPopupMenu = (
- rcmDefault,
- rcmImage,
- rcmControl,
- rcmTable,
- rcmSelText,
- rcmAnchor,
- rcmUnKnown,
- rcmImageArt,
- rcmImgDynSrc,
- rcmDebug,
- rcmAll
- );
- TIEPopupMenus = set of TIEPopupMenu;
-
- TIEPopupMenuItem = (
- rcsBack,
- rcsForward,
- rcsSavePageBkg,
- rcsSetAsBkg,
- rcsCopyBkg,
- rcsSetAsDeskT,
- rcsSelectAll,
- rcsPaste,
- rcsCreateSC,
- rcsAddToFav,
- rcsEncoding,
- rcsRefresh,
- rcsViewSource,
- rcsProperties,
- rcsPrint,
- rcsOpenNWindow,
- rcsOpenLink
- );
- TIEPopupMenuItems = set of TIEPopupMenuItem;
-
- {============================================================================}
- { Controlling Download and Execution }
- { http://msdn.microsoft.com/en-us/library/aa770041.aspx }
- { TDownloadControlOption = (
- DLCTL_DLIMAGES, DLCTL_VIDEOS, DLCTL_BGSOUNDS,
- DLCTL_NO_SCRIPTS, DLCTL_NO_JAVA,
- DLCTL_NO_RUNACTIVEXCTLS, DLCTL_NO_DLACTIVEXCTLS,
- DLCTL_DOWNLOADONLY,
- DLCTL_NO_FRAMEDOWNLOAD,
- DLCTL_RESYNCHRONIZE,
- DLCTL_PRAGMA_NO_CACHE,
- DLCTL_NO_BEHAVIORS, DLCTL_NO_METACHARSET,
- DLCTL_URL_ENCODING_DISABLE_UTF8, DLCTL_URL_ENCODING_ENABLE_UTF8,
- DLCTL_FORCEOFFLINE, DLCTL_NO_CLIENTPULL,
- DLCTL_SILENT, DLCTL_OFFLINE);
- }
- TDownloadControlOption = (
- DownloadImages, DownloadVideos, DownloadBGSounds, DontExecuteScripts,
- DontExecuteJava, DontExecuteActiveX, DontDownloadActiveX,
- DownloadButDontDisplay, DontDownloadFrame, CheckPageResynchronize,
- DownloadAndIgnoreCache, DontDownloadBehaviors, SuppressedMetaCharset,
- DisableUrlIfEncodingUTF8, EnableUrlIfEncodingUTF8,
- ForceOfflineMode, DontPerformClientPull, DownloadInSilentMode, WorkOffline);
- TDownloadControlOptions = set of TDownloadControlOption;
-
- { Doc Host Flags:
- http://msdn.microsoft.com/en-us/library/aa753277.aspx }
- { TUserInterfaceOption = (DIALOG, DISABLE_HELP_MENU, NO3DBORDER,
- SCROLL_NO, DISABLE_SCRIPT_INACTIVE, OPENNEWWIN, DISABLE_OFFSCREEN,
- FLAT_SCROLLBAR, DIV_BLOCKDEFAULT, ACTIVATE_CLIENTHIT_ONLY,
- OVERRIDEBEHAVIORFACTORY,
- CODEPAGELINKEDFONTS, URL_ENCODING_DISABLE_UTF8,
- URL_ENCODING_ENABLE_UTF8,
- ENABLE_FORMS_AUTOCOMPLETE, ENABLE_INPLACE_NAVIGATION,
- IME_ENABLE_RECONVERSION,
- THEME, NOTHEME, NOPICS, NO3DOUTERBORDER, DISABLE_EDIT_NS_FIXUP,
- LOCAL_MACHINE_ACCESS_CHECK, DISABLE_UNTRUSTEDPROTOCOL,
- HOST_NAVIGATES, ENABLE_REDIRECT_NOTIFICATION, USE_WINDOWLESS_SELECTCONTROL,
- USE_WINDOWED_SELECTCONTROL, ENABLE_ACTIVEX_INACTIVATE_MODE);
- }
- TUserInterfaceOption = (DisableTextSelect, DisableHelpMenu, DontUse3DBorders,
- DontUseScrollBars, PostponeScriptUntilActive, ForceOpenNewWindow,
- Reserved_OFFSCREEN,
- ForceFlatScrollBars, InsertDivTagOnEditMode, ActivateUIOnlyOnDocClick,
- ConsultBeforeRetrievingBehavior,
- CheckFontSupportsCodePage, DisableSubmitUrlInUTF8,
- EnableSubmitUrlInUTF8,
- EnablesFormsAutoComplete, ForceSameWindowNavigation,
- EmableImeLocalLanguages,
- EnableThemes, DisableThemes, DisablePicsRatings, DisableFrameSetBorder,
- DisablesAutoNameSpaceCorrection,
- DisableLocalFileAccess, DisableUntrustedProtocol,
- CheckNavigationDelegatedToHost, EnableRedirectNotification, EnableDomWindlessControls,
- EnableWindowedControls, ForceUserActivationOnActiveXJava);
- TUserInterfaceOptions = set of TUserInterfaceOption;
-
- {events}
- TMenuPreprocess = procedure(Sender: TObject; ID: DWORD; Menu: HMENU; const Context: IDispatch) of object;
-
- TEWBNotifyEvent = procedure(Sender: TObject; var Rezult: HRESULT) of object;
- TBoolQueryEvent = procedure(Sender: TObject; var Value: BOOL) of object;
- TMaskedCtrlCharEvent = procedure(Sender: TCustomEmbeddedWB; MaskedChar: Char) of object;
- TOMWindowMoveEvent = procedure(Sender: TCustomEmbeddedWB; cx, cy: Integer) of object;
-
- {IDocHostShowUI Interface}
- TShowHelpEvent = function(Sender: TObject; HWND: THandle; pszHelpFile: POleStr; uCommand: Integer;
- dwData: Longint; ptMouse: TPoint;
- var pDispatchObjectHit: IDispatch): HRESULT of object;
- TShowMessageEvent = function(Sender: TObject; HWND: THandle;
- lpstrText: POleStr; lpstrCaption: POleStr; dwType: Longint; lpstrHelpFile: POleStr;
- dwHelpContext: Longint; var plResult: LRESULT): HRESULT of object;
- {IDocHostUIHandler Interface}
- TEnableModelessEvent = procedure(Sender: TCustomEmbeddedWB; const fEnable: BOOL) of object;
- TFilterDataObjectEvent = procedure(Sender: TCustomEmbeddedWB; const pDO: IDataObject;
- var ppDORet: IDataObject) of object;
- TGetDropTargetEvent = procedure(Sender: TCustomEmbeddedWB; var DropTarget: IDropTarget) of object;
- TGetExternalEvent = procedure(Sender: TCustomEmbeddedWB; var ppDispatch: IDispatch) of object;
- TGetHostInfoEvent = procedure(Sender: TCustomEmbeddedWB; var pInfo: TDOCHOSTUIINFO) of object;
- TGetOptionKeyPathEvent = procedure(Sender: TCustomEmbeddedWB; var pchKey: POleStr) of object;
- TOnActivateEvent = procedure(Sender: TCustomEmbeddedWB; const fActivate: BOOL) of object;
- TResizeBorderEvent = procedure(Sender: TCustomEmbeddedWB; const prcBorder: PRect;
- const pUIWindow: IOleInPlaceUIWindow;
- const fRameWindow: BOOL) of object;
- TShowContextMenuEvent = procedure(Sender: TCustomEmbeddedWB; const dwID: DWORD; const ppt: PPOINT;
- const CommandTarget: IUnknown; const Context: IDispatch; var Result: HRESULT) of object;
- TShowUIEvent = procedure(Sender: TCustomEmbeddedWB; const dwID: DWORD; const
- pActiveObject: IOleInPlaceActiveObject;
- const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
- const pDoc: IOleInPlaceUIWindow; var Rezult: HRESULT) of object;
- TTranslateAcceleratorEvent = procedure(Sender: TCustomEmbeddedWB; const lpMsg: PMSG;
- const pguidCmdGroup: PGUID;
- const nCmdID: DWORD; var Done: Boolean) of object;
- TTranslateUrlEvent = procedure(Sender: TCustomEmbeddedWB; const pchURLIn: POleStr;
- var ppchURLOut: WideString) of object;
-
-{$IFDEF USE_IOLECOMMANDTARGET}
- TRefreshEvent = procedure(Sender: TCustomEmbeddedWB; CmdID: Integer; var Cancel: Boolean) of object;
-{$ENDIF}
- {INewWindowManager Interface}
- TEvaluateNewWindowEvent = procedure(Sender: TCustomEmbeddedWB; pszUrl, pszName,
- pszUrlContext, pszFeatures: LPCWSTR;
- fReplace: BOOL; dwFlags, dwUserActionTime: DWORD; var Rezult: HRESULT) of object;
- {IDownloadManager Interface}
- TDownloadEvent = procedure(Sender: TCustomEmbeddedWB; pmk: IMoniker; pbc: IBindCtx;
- dwBindVerb: DWORD;
- grfBINDF: DWORD; pBindInfo: PBindInfo; pszHeaders: PWideChar;
- pszRedir: PWidechar; uiCP: UINT; var Rezult: HRESULT) of object;
- {IAuthenticate Interface}
- TAuthenticateEvent = procedure(Sender: TCustomEmbeddedWB; var hwnd: HWnd;
- var szUserName, szPassWord: WideString; var Rezult: HRESULT) of object;
- {IZoomEvents Interface}
- TZoomPercentChangedEvent = function(Sender: TCustomEmbeddedWB; const ulZoomPercent: uLong): HRESULT of object;
- {Script Error handling}
- TScriptErrorAction = (eaContinue, eaCancel, eaAskUser);
- TScriptErrorEvent = procedure(Sender: TObject; ErrorLine, ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string;
- var ScriptErrorAction: TScriptErrorAction) of object;
-
- {User Agent Mode Event}
- TSetUserAgentEvent = function(var UserAgent: string): HRESULT of object;
-
- { TCustomEmbeddedWB }
- TCustomEmbeddedWB = class(TEWB
- , IDispatch // http://msdn.microsoft.com/en-us/library/ms221608.aspx
- , IDocHostShowUI // http://msdn.microsoft.com/en-us/library/aa753269.aspx
- , IDocHostUIHandler // http://msdn.microsoft.com/en-us/library/aa753260(VS.85).aspx
- , IDocHostUIHandler2 // http://msdn.microsoft.com/en-us/library/aa753275(VS.85).aspx
- , IDropTarget // http://msdn.microsoft.com/en-us/library/ms679679.aspx
-{$IFDEF USE_IOLECOMMANDTARGET}
- , IOleCommandTarget // http://msdn.microsoft.com/en-us/library/ms683797.aspx
-{$ENDIF}
- , IServiceProvider // http://msdn.microsoft.com/en-us/library/cc678965(VS.85).aspx
- , INewWindowManager // http://msdn.microsoft.com/en-us/library/bb775418(VS.85).aspx
- , IProtectFocus // http://msdn2.microsoft.com/en-us/library/aa361771.aspx
- , IDownloadManager // http://msdn.microsoft.com/en-us/library/aa753613(VS.85).aspx
- , IHTMLOMWindowServices //http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/hosting/reference/ifaces/IHTMLOMWindowServices/IHTMLOMWindowServices.asp
- , IHostBehaviorInit // http://msdn.microsoft.com/en-us/library/aa753687(VS.85).aspx
- , IZoomEvents // http://msdn.microsoft.com/en-us/library/aa770056(VS.85).aspx
- , IAuthenticate // http://msdn.microsoft.com/en-us/library/ms835407.aspx
- )
-
- private
- FOnZoomPercentChanged: TZoomPercentChangedEvent;
- FOnGetIDsOfNames: TGetIDsOfNamesEvent;
- FOnGetTypeInfo: TGetTypeInfoEvent;
- FOnGetTypeInfoCount: TGetTypeInfoCountEvent;
- FOnInvoke: TInvokeEvent;
- FDownloadControlOptions: TDownloadControlOptions;
- FOnShowMessage: TShowMessageEvent;
- FOnShowHelp: TShowHelpEvent;
- FHelpFile: string;
- fOptionKeyPath: string;
- fOverOptionKeyPath: Boolean;
- FOnFilterDataObject: TFilterDataObjectEvent;
- FOnGetExternal: TGetExternalEvent;
- FOnGetHostInfo: TGetHostInfoEvent;
- FUserInterfaceOptions: TUserInterfaceOptions;
- FOnEnableModeless: TEnableModelessEvent;
-{$IFDEF GETKEYPATH_HANDLERS}
- FOnGetOptionKeyPath: TGetOptionKeyPathEvent;
- FOnGetOverrideKeyPath: TGetOptionKeyPathEvent;
-{$ENDIF}
- FOnGetDropTarget: TGetDropTargetEvent;
- FOnHideUI: TEWBNotifyEvent;
- FOnOnDocWindowActivate: TOnActivateEvent;
- FOnOnFrameWindowActivate: TOnActivateEvent;
- FOnResizeBorder: TResizeBorderEvent;
- FOnShowContextmenu: TShowContextMenuEvent;
- FOnShowUI: TShowUIEvent;
- FOnTranslateAccelerator: TTranslateAcceleratorEvent;
- FOnTranslateUrL: TTranslateUrlEvent;
- FOnUpdateUI: TEWBNotifyEvent;
- FOnDragLeaveEvent: TNotifyEvent;
- FOnDragEnterEvent: TOnDragEnterEvent;
- FOnDragOverEvent: TOnDragOverEvent;
- FOnDropEvent: TOnDropEvent;
- FOnScriptError: TScriptErrorEvent;
- FScriptErrorAction: TScriptErrorAction;
-{$IFDEF USE_IOLECOMMANDTARGET}
- FOnUnload: TNotifyEvent;
- FOnStop: TNotifyEvent;
- FOnRefresh: TRefreshEvent;
- FOnCommandExec: TComTargetExecEvent;
-{$ENDIF}
- FOnQueryService: TQueryServiceEvent;
- FOnEvaluateNewWindow: TEvaluateNewWindowEvent;
- FCanGrabFocus: Boolean;
- FOnAllowFocusChange: TBoolQueryEvent;
- FOnDownload: TDownloadEvent;
- FDropHandlingType: TDragDropHandlingType;
- FZoomPercent: Integer;
- FDesignMode: Boolean;
- FDisabledPopupMenus: TIEPopupMenus;
- FOnFilterPopupMenu: TMenuPreprocess;
- FOnMaskedCtrlChar: TMaskedCtrlCharEvent;
- FDisableCtrlShortcuts: string;
- FOnResize: TOMWindowMoveEvent;
- FOnMoveBy: TOMWindowMoveEvent;
- FOnMove: TOMWindowMoveEvent;
- FOnResizeBy: TOMWindowMoveEvent;
- FFloatingHosting: Boolean;
- FOnPopulateNSTable: TNotifyEvent;
- FOnAuthenticate: TAuthenticateEvent;
-{$IFDEF RESEARCH_MODE}
- FOnQueryInterface: OnQueryInterfaceEvent;
-{$ENDIF}
- procedure SetDownloadOptions(const Value: TDownloadControlOptions);
- procedure SetUserInterfaceOptions(const Value: TUserInterfaceOptions);
- function GetDoc2: IHtmlDocument2;
- function GetDoc3: IHtmlDocument3;
- function GetDoc4: IHtmlDocument4;
- function GetDoc5: IHtmlDocument5;
- function GetElemByID(const ID: WideString): IHTMLElement;
- function GetZoom: Integer;
- procedure SetZoom(const Value: Integer);
- procedure SetOpticalZoom(const Value: Integer);
- function _getCookie: WideString;
- function GetCharSet: WideString;
- procedure SetCharSet(const Value: WideString);
- procedure SetDropHandlingType(const Value: TDragDropHandlingType);
- procedure SetDesignMode(const Value: Boolean);
- function GetDocDesignMode: TDocDesignMode;
- procedure SetDocDesignMode(const Value: TDocDesignMode);
- function GetBody: IHTMLElement;
-
- protected
- CurrentHandle: HWND; //jls
- procedure CreateWnd; override; //jls
- procedure DestroyWnd; override; //jls
- protected
-{$IFDEF RESEARCH_MODE}
- { IInterface }
- function QueryInterface(const IID: TGUID; out Obj): HRESULT; override; stdcall;
-{$ENDIF}
- {IDispatch Interface}
- function GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT; stdcall;
- function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HRESULT;
- stdcall;
- function GetTypeInfoCount(out Count: Integer): HRESULT; stdcall;
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
- stdcall;
- {IDocHostShowUI Interface }
- function ShowHelp(HWND: THandle; pszHelpFile: POleStr; uCommand: Integer;
- dwData: Longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall;
- function ShowMessage(HWND: THandle; lpstrText: POleStr; lpstrCaption: POleStr;
- dwType: Longint; lpstrHelpFile: POleStr; dwHelpContext: Longint;
- var plResult: LRESULT): HRESULT; stdcall;
- {IDocHostUIHandler Interface}
- function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;
- function FilterDataObject(const pDO: IDataObject; out ppDORet: IDataObject): HRESULT; stdcall;
- function GetDropTarget(const pDropTarget: IDropTarget;
- out ppDropTarget: IDropTarget): HRESULT; stdcall;
- function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;
- function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
- function GetOptionKeyPath(out pchKey: POleStr; const dw: DWORD): HRESULT; stdcall;
- function HideUI: HRESULT; stdcall;
- function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
- function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
- function ResizeBorder(const prcBorder: PRECT; const pUIWindow:
- IOleInPlaceUIWindow;
- const FrameWindow: BOOL): HRESULT; stdcall;
- function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
- const CommandTarget: IUnknown; const Context: IDispatch): HRESULT; stdcall;
- function ShowUI(const dwID: DWORD; const pActiveObject:
- IOleInPlaceActiveObject;
- const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
- const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;
- function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;
- const nCmdID: DWORD): HRESULT; stdcall;
- function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POleStr;
- out ppchURLOut: POleStr): HRESULT; stdcall;
- function UpdateUI: HRESULT; stdcall;
- {IDocHostUIHandler2 Interface}
- function GetOverrideKeyPath(out pchKey: POleStr; dw: DWORD): HRESULT; stdcall;
- {IDropTarget Interface}
- function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
- pt: TPoint; var dwEffect: Longint): HRESULT; stdcall;
- function IDropTarget.DragOver = DropTargetDragOver;
- function DropTargetDragOver(grfKeyState: Longint; pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
- function DragLeave: HRESULT; stdcall;
- function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
-{$IFDEF USE_IOLECOMMANDTARGET}
- {IOleCommandTarget interface}
- function IOleCommandTarget.QueryStatus = CommandTarget_QueryStatus;
- function CommandTarget_QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
- prgCmds: POleCmd; CmdText: POleCmdText): HRESULT; stdcall;
- function IOleCommandTarget.Exec = CommandTarget_Exec;
- function CommandTarget_Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
- const vaIn: OleVariant; var vaOut: OleVariant): HRESULT; stdcall;
-{$ENDIF}
- {IServiceProvider Interface}
- function QueryService(const rsid, iid: TGUID; out Obj): HRESULT; stdcall;
- {INewWindowManager Interface}
- function EvaluateNewWindow(pszUrl, pszName, pszUrlContext, pszFeatures: LPCWSTR;
- fReplace: BOOL; dwFlags, dwUserActionTime: DWORD): HRESULT; stdcall;
- {IProtectFocus IE7 interface}
- function AllowFocusChange(out pfAllow: BOOL): HRESULT; stdcall;
- {IDownloadManager Interface}
- function Download(
- pmk: IMoniker; // Identifies the object to be downloaded
- pbc: IBindCtx; // Stores information used by the moniker to bind
- dwBindVerb: DWORD; // The action to be performed during the bind
- grfBINDF: DWORD; // Determines the use of URL encoding during the bind
- pBindInfo: PBindInfo; // Used to implement IBindStatusCallback::GetBindInfo
- pszHeaders: PWidechar; // Additional headers to use with IHttpNegotiate
- pszRedir: PWidechar; // The URL that the moniker is redirected to
- uiCP: UINT // The code page of the object's display name
- ): HRESULT; stdcall;
- {IHostBehaviorInit}
- function PopulateNamespaceTable: HRESULT; stdcall;
- {IHTMLOMWindowServices Interface}
- function ResizeBy(const x, y: Integer): HRESULT; stdcall;
- function ResizeTo(const x, y: Integer): HRESULT; stdcall;
- function MoveBy(const x, y: Integer): HRESULT; stdcall;
- function MoveTo(const x, y: Integer): HRESULT; stdcall;
- {IZoomEvents interface}
- function OnZoomPercentChanged(const ulZoomPercent: uLong): HRESULT; stdcall;
- {IAuthenticate}
- function Authenticate(var hwnd: HWnd; var szUserName, szPassWord: LPWSTR):
- HRESULT; stdcall;
- protected
- FDownloadOptionValue: Longint;
- FUserInterfaceValue: Cardinal;
- FOnSetUserAgent: TSetUserAgentEvent;
- FOnPreRefresh: TNotifyEvent;
- FOnHookChildWindow: TNotifyEvent;
- procedure UpdateDownloadControlValues;
- procedure UpdateUserInterfaceValues;
- function CopyOptionKeyPath(Overrided: Boolean): PWideChar;
- function DoFilterMsg(const lpMsg: PMSG): Boolean; virtual;
- function ScriptErrorHandler(const vaIn: OleVariant; var vaOut: OleVariant): HRESULT; virtual;
- function DoQueryService(const rsid, iid: TGUID; var Obj): Boolean; virtual;
- function FilterPopupMenu: Boolean; virtual;
- procedure DoFilterPopupMenu(Sender: TObject; ID: DWORD; Menu: HMENU; const Context:
- IDispatch); virtual;
- procedure MoveParentForm(x, y: Integer; Delta: Boolean);
- procedure ResizeParentForm(w, h: Integer; Delta: Boolean);
- public
- class function dwEffectToStr(Command: Int64): string;
- class procedure DropEffect(grfKeyState: Longint; var dwEffect: longint);
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function InvokeCommand(CmdGroup: PGUID; Cmd, nCmdexecopt: DWORD;
- var vaIn, vaOut: OleVariant): HRESULT; overload;
- function InvokeCommand(CmdGroup: PGUID; Cmd: DWORD): HRESULT; overload;
- function QueryCommandStatus(CmdGroup: PGUID; cCmds: Cardinal;
- prgCmds: POleCmd; CmdText: POleCmdText): HRESULT;
- function QueryCMDEnabled(CmdGroup: PGUID; cmdID: Cardinal): Boolean;
- function QueryCMDLatched(CmdGroup: PGUID; cmdID: Cardinal): Boolean;
- function QueryCMDStatus(CmdGroup: PGUID; cmdID: Cardinal): OLECMDF;
- function QueryCMDArrayStatus(CmdGroup: PGUID; cmds: TOleCmdArray): Boolean;
-
- procedure Client2HostWin(var CX, CY: Integer);
- // just call it in OnClientToHostWindow handler
-
- function GetIEWin(const ClassName: string): HWND;
- procedure SetFocusToDoc;
- procedure SetFocusToBody;
- procedure SetFocusToParent;
-
- function ZoomRangeHigh: Integer;
- function ZoomRangeLow: Integer;
- property Zoom: Integer read GetZoom write SetZoom;
-
- property Cookie: WideString read _getCookie;
- property DesignMode: Boolean read FDesignMode write SetDesignMode;
- {html functions}
- property Doc2: IHtmlDocument2 read GetDoc2;
- property Doc3: IHtmlDocument3 read GetDoc3;
- property Doc4: IHtmlDocument4 read GetDoc4;
- property Doc5: IHtmlDocument5 read GetDoc5;
-
- property Body: IHTMLElement read getBody;
- property DocDesignMode: TDocDesignMode read getDocDesignMode write
- setDocDesignMode;
- property CharactersSet: WideString read GetCharSet write SetCharSet;
- property ElementByID[const ID: WideString]: IHTMLElement read getElemByID;
- function ScrollToElement(Element: IHTMLElement): Boolean;
-
- function GetElementNamespaceTable(out aTable: IElementNamespaceTable):
- Boolean;
-
-{$IFDEF RESEARCH_MODE}
- property OnQueryInterface: OnQueryInterfaceEvent read FOnQueryInterface write FOnQueryInterface;
-{$ENDIF}
- property CanGrabFocus: Boolean read FCanGrabFocus write FCanGrabFocus default True;
- published
- property ZoomPercent: Integer read FZoomPercent write SetOpticalZoom default 100;
- property OnAllowFocusChange: TBoolQueryEvent read FOnAllowFocusChange write
- FOnAllowFocusChange;
- property DisableCtrlShortcuts: string read FDisableCtrlShortcuts write FDisableCtrlShortcuts;
- property DownloadOptions: TDownloadControlOptions read FDownloadControlOptions
- write SetDownloadOptions default [DownloadImages, DownloadVideos, DownloadBGSounds];
- property UserInterfaceOptions: TUserInterfaceOptions read FUserInterfaceOptions
- write SetUserInterfaceOptions default [];
- property HelpFile: string read FHelpFile write FHelpFile;
- property OptionKeyPath: string read FOptionKeyPath write FOptionKeyPath;
- property OverrideOptionKeyPath: Boolean read FOverOptionKeyPath write
- FOverOptionKeyPath default False;
-
- property DropHandlingType: TDragDropHandlingType read FDropHandlingType write
- setDropHandlingType default ddtMS;
- property DisabledPopupMenus: TIEPopupMenus
- read FDisabledPopupMenus write FDisabledPopupMenus default [];
- property FloatingHosting: Boolean read FFloatingHosting write
- fFloatingHosting default False;
-
- property OnGetIDsOfNames: TGetIDsOfNamesEvent read FOnGetIDsOfNames write
- FOnGetIdsOfNames;
- property OnGetTypeInfo: TGetTypeInfoEvent read FonGetTypeInfo write
- FOnGetTypeInfo;
- property OnGetTypeInfoCount: TGetTypeInfoCountEvent read FonGetTypeInfoCount
- write FOnGetTypeInfoCount;
- property OnInvoke: TInvokeEvent read FOnInvoke write FOnInvoke;
- property OnShowHelpRequest: TShowHelpEvent read FOnShowHelp write
- FOnShowHelp;
- property OnShowMessage: TShowMessageEvent read FOnShowMessage write
- FOnShowMessage;
- property OnFilterDataObject: TFilterDataObjectEvent read FOnFilterDataObject
- write FOnFilterDataObject;
- property OnGetExternal: TGetExternalEvent read FOnGetExternal write
- FOnGetExternal;
- property OnGetHostInfo: TGetHostInfoEvent read FOnGetHostInfo write
- FOnGetHostInfo;
- property OnEnableModeless: TEnableModelessEvent read FOnEnableModeless
- write FOnEnableModeless;
-{$IFDEF GETKEYPATH_HANDLERS}
- property OnGetOptionKeyPath: TGetOptionKeyPathEvent read FOnGetOptionKeyPath
- write FOnGetOptionKeyPath;
- property OnGetOverrideKeyPath: TGetOptionKeyPathEvent read
- FOnGetOverrideKeyPath
- write FOnGetOverrideKeyPath;
-{$ENDIF}
- property OnZoomPercentChange: TZoomPercentChangedEvent read FOnZoomPercentChanged write FOnZoomPercentChanged;
- property OnGetDropTarget: TGetDropTargetEvent read FOnGetDropTarget write FOnGetDropTarget;
- property OnHideUI: TEWBNotifyEvent read FOnHideUI write FOnHideUI;
- property OnOnDocWindowActivate: TOnActivateEvent read FOnOnDocWindowActivate
- write FOnOnDocWindowActivate;
- property OnOnFrameWindowActivate: TOnActivateEvent read
- FOnOnFrameWindowActivate
- write FOnOnFrameWindowActivate;
- property OnResizeBorder: TResizeBorderEvent read FOnResizeBorder write
- FOnResizeBorder;
- property OnShowContextMenu: TShowContextMenuEvent read FOnShowContextmenu
- write FOnShowContextmenu;
- property OnShowUI: TShowUIEvent read FOnShowUI write FOnShowUI;
- property OnTranslateAccelerator: TTranslateAcceleratorEvent read
- FOnTranslateAccelerator
- write FOnTranslateAccelerator;
- property OnTranslateUrl: TTranslateUrlEvent read FOnTranslateUrL
- write FOnTranslateUrL;
- property OnUpdateUI: TEWBNotifyEvent read FOnUpdateUI write FOnUpdateUI;
-
- property OnDragEnter: TOnDragEnterEvent read FOnDragEnterEvent write
- FOnDragEnterEvent;
- property OnDragLeave: TNotifyEvent read FOnDragLeaveEvent write
- FOnDragLeaveEvent;
- property OnDragOver2: TOnDragOverEvent read FOnDragOverEvent write
- FOnDragOverEvent;
- property OnDropEvent: TOnDropEvent read FOnDropEvent write FOnDropEvent;
-
- property OnScriptError: TScriptErrorEvent read FOnScriptError write FOnScriptError;
- property ScriptErrorAction: TScriptErrorAction read FScriptErrorAction
- write FScriptErrorAction default eaContinue;
-{$IFDEF USE_IOLECOMMANDTARGET}
- property OnRefresh: TRefreshEvent read FOnRefresh write FOnRefresh;
- property OnStop: TNotifyEvent read FOnStop write FOnStop;
- property OnUnload: TNotifyEvent read FOnUnload write FOnUnload;
- property OnCommandExec: TComTargetExecEvent read FOnCommandExec write
- fOnCommandExec;
-{$ENDIF}
- property OnQueryService: TQueryServiceEvent read FOnQueryService write
- FOnQueryService;
- property OnEvaluateNewWindow: TEvaluateNewWindowEvent read
- FOnEvaluateNewWindow
- write FOnEvaluateNewWindow;
- property OnFileDownload: TDownloadEvent read FOnDownload write FOnDownload;
- property OnFilterPopupMenu: TMenuPreprocess read FOnFilterPopupMenu write
- FOnFilterPopupMenu;
- property OnMaskedCtrlChar: TMaskedCtrlCharEvent read FOnMaskedCtrlChar write
- FOnMaskedCtrlChar;
-
- property OnMove: TOMWindowMoveEvent read FOnMove write FOnMove;
- property OnMoveBy: TOMWindowMoveEvent read FOnMoveBy write FOnMoveBy;
- property OnResize: TOMWindowMoveEvent read FOnResize write FOnResize;
- property OnResizeBy: TOMWindowMoveEvent read FOnResizeBy write FOnResizeBy;
- property OnPopulateNSTable: TNotifyEvent read FOnPopulateNSTable write
- FOnPopulateNSTable;
- property OnAuthenticate: TAuthenticateEvent read FOnAuthenticate write
- FOnAuthenticate;
- property OnPreRefresh: TNotifyEvent read FOnPreRefresh write FOnPreRefresh;
- end;
-
- TEwbCore = class(TCustomEmbeddedWB)
- private
- function IsCtrlCharMask: Boolean;
- published
- property DisableCtrlShortcuts stored IsCtrlCharMask;
- end;
-
- //this two functions for using in custom OnShowContextMenu handler.
-function IsSeTIEPopupMenus(ID: DWORD; rcm: TIEPopupMenus): Boolean;
-function ShowRightClickMenu(Sender: TObject; dwID: DWORD;
- const Target: IUnknown; const Context: IDispatch;
- const ppt: PPOINT;
- const EncodingSubMenu: OleVariant;
- preprocess: TMenuPreprocess = nil): Boolean;
-
-implementation
-
-uses
- SysUtils, ComObj, EwbCoreTools, Registry;
-
-function IsSeTIEPopupMenus(ID: DWORD; rcm: TIEPopupMenus): Boolean;
-begin
- Result := (rcmAll in rcm) or
- ((ID in [0..9]) and (TIEPopupMenu(ID) in rcm));
-end;
-
-function ShowRightClickMenu(Sender: TObject; dwID: DWORD; const Target: IUnknown; const Context:
- IDispatch;
- const ppt: PPOINT; const EncodingSubMenu: OleVariant;
- Preprocess: TMenuPreprocess = nil): Boolean;
-var
- ShDocLcHandle: THandle;
- OleCommandTarget: IOleCommandTarget;
- OleWindow: IOleWindow;
- WindowHandle: HWND;
- ParentMenu, SubMenu: HMENU;
- SubMenuItemInfo: MENUITEMINFO;
- PopupResult: LongBool;
-begin
- Result := False;
- ShDocLcHandle := GetSHDOCLCModule;
-
- if ShDocLcHandle = 0 then
- Exit;
-
- if Supports(Target, IOleCommandTarget, OleCommandTarget) and
- Supports(Target, IOleWindow, OleWindow) and
- ActiveX.Succeeded(OleWindow.GetWindow(WindowHandle)) then
- begin
- ParentMenu := Windows.LoadMenu(ShDocLcHandle,
- MAKEINTRESOURCE(CContextMenuID));
- if ParentMenu <> 0 then
- try
- SubMenu := GetSubMenu(ParentMenu, dwID);
- FillChar(SubMenuItemInfo, SizeOf(SubMenuItemInfo), 0);
- SubMenuItemInfo.cbSize := SizeOf(MENUITEMINFO);
- SubMenuItemInfo.fMask := MIIM_SUBMENU;
- SubMenuItemInfo.hSubMenu := HMENU(@EncodingSubMenu);
- SetMenuItemInfo(SubMenu, IDM_LANGUAGE, False, SubMenuItemInfo);
-
- if Assigned(Preprocess) then
- Preprocess(Sender, dwID, SubMenu, Context);
-
- PopupResult := Windows.TrackPopupMenuEx(SubMenu, TPM_LEFTALIGN
- or TPM_TOPALIGN or TPM_RETURNCMD or TPM_RIGHTBUTTON
- or TPM_HORPOSANIMATION or TPM_VERPOSANIMATION, ppt^.X, ppt^.Y,
- WindowHandle, nil);
- if PopupResult then
- SendMessage(WindowHandle, WM_COMMAND, MakeWParam(LOWORD(PopupResult), 0), 0);
- Result := True;
- finally
- DestroyMenu(ParentMenu);
- end;
- end;
-end;
-
-type
- { TnoDragDrop }
- TnoDragDrop = class(TInterfacedObject, IDropTarget)
- protected
- function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
- pt: TPoint; var dwEffect: Longint): HRESULT; stdcall;
- function DragOver(grfKeyState: Longint; pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
- function DragLeave: HRESULT; stdcall;
- function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
- var dwEffect: Longint): HRESULT; stdcall;
- end;
-
-function TnoDragDrop.DragEnter(const dataObj: IDataObject; grfKeyState: Integer;
- pt: TPoint; var dwEffect: Integer): HRESULT;
-begin
- dwEffect := DROPEFFECT_NONE;
- Result := S_OK;
-end;
-
-function TnoDragDrop.DragLeave: HRESULT;
-begin
- Result := S_OK;
-end;
-
-function TnoDragDrop.DragOver(grfKeyState: Integer; pt: TPoint;
- var dwEffect: Integer): HRESULT;
-begin
- dwEffect := DROPEFFECT_NONE;
- Result := S_OK;
-end;
-
-function TnoDragDrop.Drop(const dataObj: IDataObject; grfKeyState: Integer;
- pt: TPoint; var dwEffect: Integer): HRESULT;
-begin
- dwEffect := DROPEFFECT_NONE;
- Result := S_OK;
-end;
-
-{ TCustomEmbeddedWB }
-
-class function TCustomEmbeddedWB.dwEffectToStr(Command: Int64): string;
-const
- E_UNSPEC = E_Fail;
-begin
- case (Command) of
- DROPEFFECT_NONE: Result := 'Drop target cannot accept the data.';
- DROPEFFECT_COPY: Result := 'Drag source should copy the data.';
- DROPEFFECT_MOVE: Result := 'Drag source should remove the data.';
- DROPEFFECT_LINK: Result :=
- 'Drag source should create a link to the original data.';
- DRAGDROP_S_DROP: Result := 'The drag-and-drop operation was successful.';
- DRAGDROP_S_CANCEL: Result := 'The drag-and-drop operation was canceled.';
- DRAGDROP_S_USEDEFAULTCURSORS: Result :=
- 'Successful completion. Restoring defaults.';
- DRAGDROP_E_INVALIDHWND: Result :=
- 'Invalid handle returned in the hwnd parameter.';
- DRAGDROP_E_NOTREGISTERED: Result :=
- 'Failed to revoke a drop target that has not been registered.';
- E_UNSPEC: Result := 'Unexpected error occurred.';
- E_OUTOFMEMORY: Result := 'Out of memory.';
- 7: Result := 'operation was successful.';
- else
- Result := 'Unknown.';
- end;
-end;
-
-class procedure TCustomEmbeddedWB.DropEffect(grfKeyState: Longint; var dwEffect:
- longint);
-begin
- if (grfKeyState and MK_CONTROL = 0) and (grfKeyState and MK_SHIFT <> 0) and
- (dwEffect and DropEffect_Move <> 0) then
- dwEffect := DropEffect_Move
- else if (grfKeyState and MK_CONTROL <> 0) and (grfKeyState and MK_SHIFT <> 0)
- and
- (dwEffect and DropEffect_Link <> 0) then
- dwEffect := DropEffect_Link
- else if (dwEffect and DropEffect_Copy <> 0) then
- dwEffect := DropEffect_Copy
- else if (dwEffect and DropEffect_Move <> 0) then
- dwEffect := DropEffect_Move
- else if (dwEffect and DropEffect_Link <> 0) then
- dwEffect := DropEffect_Link
- else
- dwEffect := DropEffect_None;
-end;
-
-function TCustomEmbeddedWB.AllowFocusChange(out pfAllow: BOOL): HRESULT;
-begin
- Result := S_OK;
- pfAllow := CanGrabFocus;
- if Assigned(OnAllowFocusChange) then
- OnAllowFocusChange(Self, pfAllow);
-end;
-
-function TCustomEmbeddedWB.CopyOptionKeyPath(Overrided: Boolean): PWideChar;
-begin
- if (OptionKeyPath = '') or
- (OverrideOptionKeyPath xor Overrided) then
- Result := nil
- else
- Result := StringToLPOLESTR(OptionKeyPath);
-end;
-
-constructor TCustomEmbeddedWB.Create(AOwner: TComponent);
-begin
- inherited;
- FCanGrabFocus := True;
- FScriptErrorAction := eaContinue;
- DownloadOptions := [DownloadImages, DownloadVideos, DownloadBGSounds];
- UserInterfaceOptions := [EnableThemes, EnablesFormsAutoComplete];
- FDropHandlingType := ddtMS;
- FZoomPercent := 100;
- FDisableCtrlShortcuts := 'N';
-end;
-
-destructor TCustomEmbeddedWB.Destroy();
-begin
- if (CurrentHandle <> 0) and IsWindow(CurrentHandle) then
- begin
- // Allow inherited Destroy to destroy the window
- WindowHandle := CurrentHandle;
- CurrentHandle := 0;
- end;
- inherited Destroy;
-end;
-
-procedure TCustomEmbeddedWB.CreateWnd; //jls
-begin
- if (CurrentHandle <> 0) and IsWindow(CurrentHandle) then
- begin
- WindowHandle := CurrentHandle;
- CurrentHandle := 0;
- Windows.SetParent(WindowHandle, TWinControl(Self).Parent.Handle);
- MoveWindow(WindowHandle, Left, Top, Width, Height, True); //Force a resize on the client window
- end
- else
- inherited CreateWnd;
-end;
-
-procedure TCustomEmbeddedWB.DestroyWnd; //jls
-begin
- if (csDestroying in ComponentState) then
- inherited DestroyWnd
- else
- begin
- Windows.SetParent(WindowHandle, Forms.Application.Handle); //Parent to the Application window which is 0x0 in size
- CurrentHandle := WindowHandle; // Save the WindowHandle
- WindowHandle := 0; // Set it to 0 so Createwnd will be called again...
- end;
-end;
-
-function TCustomEmbeddedWB.EnableModeless(const fEnable: BOOL): HRESULT;
-begin
- Result := S_OK;
- if Assigned(FOnEnableModeless) then
- FOnEnableModeless(Self, fEnable);
-end;
-
-function TCustomEmbeddedWB.EvaluateNewWindow(pszUrl, pszName, pszUrlContext,
- pszFeatures: LPCWSTR; fReplace: BOOL; dwFlags,
- dwUserActionTime: DWORD): HRESULT;
-begin
- Result := E_FAIL;
- if Assigned(FOnEvaluateNewWindow) then
- FOnEvaluateNewWindow(Self, pszUrl, pszName, pszUrlContext, pszFeatures,
- FReplace, dwFlags, dwUserActionTime, Result);
-end;
-
-function TCustomEmbeddedWB.FilterDataObject(const pDO: IDataObject;
- out ppDORet: IDataObject): HRESULT;
-begin
- ppDORet := nil;
- if Assigned(FOnFilterDataObject) then
- FOnFilterDataObject(Self, pDO, ppDORet);
- if ppDORet = nil then
- Result := S_FALSE
- else
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.GetDoc2: IHtmlDocument2;
-begin
- if not Supports(Document, IHtmlDocument2, Result) then
- Result := nil;
-end;
-
-function TCustomEmbeddedWB.GetDoc3: IHtmlDocument3;
-begin
- if not Supports(Document, IHtmlDocument3, Result) then
- Result := nil;
-end;
-
-function TCustomEmbeddedWB.GetDoc4: IHtmlDocument4;
-begin
- if not Supports(Document, IHtmlDocument4, Result) then
- Result := nil;
-end;
-
-function TCustomEmbeddedWB.GetDoc5: IHtmlDocument5;
-begin
- if not Supports(Document, IHtmlDocument5, Result) then
- Result := nil;
-end;
-
-function TCustomEmbeddedWB.getBody: IHTMLElement;
-var
- D: IHtmlDocument2;
-begin
- if Supports(Document, IHtmlDocument2, D) then
- Result := D.body
- else
- Result := nil;
-end;
-
-function TCustomEmbeddedWB.GetExternal(out ppDispatch: IDispatch): HRESULT;
-begin
- ppDispatch := nil;
- if Assigned(FOnGetExternal) then
- FOnGetExternal(Self, ppDispatch);
- if ppDispatch = nil then
- Result := S_FALSE
- else
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
-begin
- FillChar(pInfo, SizeOf(TDOCHOSTUIINFO), #0);
- pInfo.cbSize := SizeOf(pInfo);
- pInfo.dwFlags := FUserInterfaceValue;
- pInfo.dwDoubleClick := DOCHOSTUIDBLCLK_DEFAULT;
- Result := S_OK;
-
- if Assigned(FOnGetHostInfo) then
- FOnGetHostInfo(Self, pInfo);
-end;
-
-function TCustomEmbeddedWB.GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount,
- LocaleID: Integer; DispIDs: Pointer): HRESULT;
-begin
- Result := inherited GetIDsOfNames(IID, Names, NameCount, LocaleID, DispIDs);
- if Assigned(FOnGetIDsOfNames) then
- FOnGetIDsOfNames(Self, IID, Names, NameCount, LocaleID, DispIds, Result);
-end;
-
-function TCustomEmbeddedWB.GetIEWin(const ClassName: string): HWND;
-var
- szClass: array[0..255] of char;
-begin
- if HandleAllocated then
- begin
- Result := GetWindow(WindowHandle, GW_CHILD);
- repeat
- if (GetClassName(Result, szClass, SizeOf(szClass)) > 0) and
- (AnsiStrComp(PChar(ClassName), szClass) = 0) then
- Exit;
- Result := GetWindow(Result, GW_CHILD);
- until not IsWindow(Result);
- end;
- Result := 0;
-end;
-
-function TCustomEmbeddedWB.GetOptionKeyPath(out pchKey: POleStr;
- const dw: DWORD): HRESULT;
-begin
- pchKey := CopyOptionKeyPath(False);
-{$IFDEF GETKEYPATH_HANDLERS}
- if Assigned(FOnGetOptionKeyPath) then
- FOnGetOptionKeyPath(Self, pchKey);
-{$ENDIF}
- if pchKey = nil then
- Result := S_FALSE
- else
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.GetOverrideKeyPath(out pchKey: POleStr; dw: DWORD): HRESULT;
-begin
- pchKey := CopyOptionKeyPath(True);
-{$IFDEF GETKEYPATH_HANDLERS}
- if Assigned(FOnGetOverrideKeyPath) then
- FOnGetOverrideKeyPath(Self, pchKey);
-{$ENDIF}
- if pchKey = nil then
- Result := S_FALSE
- else
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HRESULT;
-begin
- Result := inherited GetTypeInfo(Index, LocaleID, TypeInfo);
- if Assigned(FOnGetTypeInfo) then
- FOnGetTypeInfo(Self, Index, LocaleID, ITypeInfo(TypeInfo), Result);
-end;
-
-function TCustomEmbeddedWB.GetTypeInfoCount(out Count: Integer): HRESULT;
-begin
- Result := inherited GetTypeInfoCount(Count);
- if Assigned(FOnGetTypeInfoCount) then
- FOnGetTypeInfoCount(Self, Count, Result);
-end;
-
-function TCustomEmbeddedWB.GetZoom: Integer;
-var
- vaIn, vaOut: OleVariant;
-begin
- vaIn := NULL;
- InvokeCommand(nil, OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Result := vaOut;
-end;
-
-procedure TCustomEmbeddedWB.SetZoom(const Value: Integer);
-var
- vaIn, vaOut: OleVariant;
- Range: DWORD;
-begin
- InvokeCommand(nil, OLECMDID_GETZOOMRANGE, OLECMDEXECOPT_DONTPROMPTUSER, vaIn,
- vaOut);
- Range := DWORD(vaOut);
- if Value < LoWord(Range) then
- vaIn := LoWord(Range)
- else if Value > HiWord(Range) then
- vaIn := HiWord(Range)
- else
- vaIn := Value;
- InvokeCommand(nil, OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
-end;
-
-procedure TCustomEmbeddedWB.SetOpticalZoom(const Value: Integer);
-var
- vaIn, vaOut: OleVariant;
- Range: DWORD;
-begin
- if FZoomPercent <> Value then
- begin
- FZoomPercent := Value;
- InvokeCommand(nil, OLECMDID_OPTICAL_GETZOOMRANGE, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Range := DWORD(vaOut);
- if Value < LoWord(Range) then
- vaIn := LoWord(Range)
- else if Value > HiWord(Range) then
- vaIn := HiWord(Range)
- else
- vaIn := Value;
- InvokeCommand(nil, OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- if Assigned(FOnZoomPercentChanged) then
- FOnZoomPercentChanged(Self, vaOut);
- end;
-end;
-
-function TCustomEmbeddedWB.HideUI: HRESULT;
-begin
- Result := S_FALSE;
- if Assigned(FOnHideUI) then
- FOnHideUI(Self, Result);
-end;
-
-function TCustomEmbeddedWB.InvokeCommand(CmdGroup: PGUID; Cmd, nCmdexecopt: DWORD;
- var vaIn, vaOut: OleVariant): HRESULT;
-var
- CmdTarget: IOleCommandTarget;
-begin
- if Supports(Document, IOleCommandTarget, CmdTarget) then
- Result := CmdTarget.Exec(CmdGroup, Cmd, nCmdexecopt, vaIn, vaOut)
- else
- Result := E_UNEXPECTED;
-end;
-
-function TCustomEmbeddedWB.InvokeCommand(CmdGroup: PGUID; Cmd: DWORD): HRESULT;
-var
- CmdTarget: IOleCommandTarget;
- vaIn, vaOut: Olevariant;
-begin
- if Supports(Document, IOleCommandTarget, CmdTarget) then
- Result := CmdTarget.Exec(CmdGroup, Cmd, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut)
- else
- Result := E_UNEXPECTED;
-end;
-
-function TCustomEmbeddedWB.QueryCMDArrayStatus(CmdGroup: PGUID;
- cmds: TOleCmdArray): Boolean;
-var
- CmdTarget: IOleCommandTarget;
-begin
- if Supports(Document, IOleCommandTarget, CmdTarget) then
- Result := CmdTarget.QueryStatus(CmdGroup,
- Length(cmds), @Cmds, nil) = S_OK
- else
- Result := False;
-end;
-
-function TCustomEmbeddedWB.QueryCMDEnabled(CmdGroup: PGUID; cmdID: Cardinal): Boolean;
-begin
- Result := (QueryCMDStatus(CmdGroup, cmdID) and OLECMDF_ENABLED) <> 0;
-end;
-
-function TCustomEmbeddedWB.QueryCMDLatched(CmdGroup: PGUID; cmdID: Cardinal): Boolean;
-begin
- Result := (QueryCMDStatus(CmdGroup, cmdID) and OLECMDF_LATCHED) <> 0;
-end;
-
-function TCustomEmbeddedWB.QueryCMDStatus(CmdGroup: PGUID; cmdID: Cardinal): OLECMDF;
-var
- CmdTarget: IOleCommandTarget;
- Cmd: TOleCmd;
-begin
- Result := 0;
- if Supports(Document, IOleCommandTarget, CmdTarget) then
- begin
- Cmd.CmdID := cmdID;
- Cmd.cmdf := 0;
- if CmdTarget.QueryStatus(CmdGroup, 1, @Cmd, nil) = S_OK then
- Result := Cmd.cmdf;
- end;
-end;
-
-function TCustomEmbeddedWB.QueryCommandStatus(CmdGroup: PGUID; cCmds: Cardinal; prgCmds:
- POleCmd;
- CmdText: POleCmdText): HRESULT;
-var
- CmdTarget: IOleCommandTarget;
-begin
- if Supports(Document, IOleCommandTarget, CmdTarget) then
- Result := CmdTarget.QueryStatus(CmdGroup, cCmds, prgCmds, CmdText)
- else
- Result := E_UNEXPECTED;
-end;
-
-{$IFDEF RESEARCH_MODE}
-
-function TCustomEmbeddedWB.QueryInterface(const IID: TGUID; out Obj): HRESULT;
-begin
- Result := inherited QueryInterface(IID, Obj);
- if Assigned(OnQueryInterface) then
- OnQueryInterface(Self, IID, Obj, Result);
-end;
-{$ENDIF}
-
-function TCustomEmbeddedWB.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
-var
- UserAgent: string;
-begin
- try
- Result := S_FALSE;
- if (Flags and DISPATCH_PROPERTYGET <> 0) and (VarResult <> nil) then
- begin
- Result := S_OK;
- case DispID of
- DISPID_AMBIENT_DLCONTROL:
- begin
- PVariant(VarResult)^ := FDownloadOptionValue;
- end;
- DISPID_AMBIENT_USERMODE:
- begin
- POleVariant(VarResult)^ := not DesignMode;
- end;
- DISPID_AMBIENT_USERAGENT:
- begin
- Result := S_FALSE;
- if Assigned(FOnSetUserAgent) then
- begin
- if FOnSetUserAgent(UserAgent) = S_OK then
- if UserAgent <> '' then
- begin
- POleVariant(VarResult)^ := UserAgent + #13#10;
- Result := S_OK;
- end;
- end;
- end;
- else
- Result := S_FALSE;
- end;
- end
-
- else if (Flags and DISPATCH_PROPERTYPUT <> 0) and
- (DispID = DISPID_AMBIENT_USERMODE) then
- begin
- Result := S_OK;
- Self.FDesignMode := POleVariant(TDispParams(Params).rgvarg)^;
- end;
-
- if Result = S_FALSE then
- begin
- Result := inherited Invoke(DispID, IID, LocaleID, Flags, Params,
- VarResult, ExcepInfo, ArgErr);
- if (result = DISP_E_MEMBERNOTFOUND) and Assigned(FOnInvoke) then
- FOnInvoke(Self, DispID, IID, LocaleID, Flags, TagDispParams(Params),
- VarResult, ExcepInfo, ArgErr, Result);
- end;
- except
- on E: Exception do
- begin
- Result := DISP_E_EXCEPTION;
- with PExcepInfo(ExcepInfo)^ do
- begin
- wCode := 9999;
- bstrDescription := E.Message;
- bstrSource := E.ClassName;
- dwHelpContext := E.HelpContext;
- end;
- end;
- end;
-end;
-
-function TCustomEmbeddedWB.OnDocWindowActivate(const fActivate: BOOL): HRESULT;
-begin
- if Assigned(FOnOnDocWindowActivate) then
- FOnOnDocWindowActivate(Self, FActivate);
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.OnFrameWindowActivate(const fActivate: BOOL): HRESULT;
-begin
- if Assigned(FOnOnFrameWindowActivate) then
- FOnOnFrameWindowActivate(Self, fActivate);
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.DoQueryService(const rsid, iid: TGUID; var Obj): Boolean;
-begin
- if (IsEqualGuid(rsid, IID_INewWindowManager) and Assigned(FOnEvaluateNewWindow))
- or IsEqualGuid(rsid, IID_IProtectFocus)
- or (IsEqualGuid(rsid, IID_IDownloadManager) and Assigned(FOnDownload))
- or (IsEqualGuid(rsid, IID_IHostBehaviorInit) and Assigned(OnPopulateNSTable))
- or (IsEqualGuid(rsid, IID_IHTMLOMWindowServices) and
- (FloatingHosting or Assigned(OnMove) or Assigned(Self.OnMoveBy)
- or Assigned(OnResize) or Assigned(OnResizeBy)))
- or (IsEqualGUID(iid, IID_IAuthenticate) and Assigned(OnAuthenticate)) then
- Result := QueryInterface(iid, Obj) = S_OK
- else
- Result := False;
-end;
-
-function TCustomEmbeddedWB.QueryService(const rsid, iid: TGUID; out Obj): HRESULT;
-begin
- Pointer(Obj) := nil;
- if (not DoQueryService(rsid, iid, Obj)) and Assigned(FOnQueryService) then
- FOnQueryService(Self, rsid, iid, IUnknown(obj));
-
- if Pointer(Obj) <> nil then
- Result := S_OK
- else
- Result := E_NOINTERFACE;
-end;
-
-function TCustomEmbeddedWB.ResizeBorder(const prcBorder: PRECT;
- const pUIWindow: IOleInPlaceUIWindow; const FrameWindow: BOOL): HRESULT;
-begin
- if Assigned(FOnResizeBorder) then
- FOnResizeBorder(Self, prcBorder, pUIWindow, fRameWindow);
- Result := S_OK;
-end;
-
-procedure TCustomEmbeddedWB.MoveParentForm(x, y: Integer; Delta: Boolean);
-var
- F: TCustomForm;
-begin
- F := GetParentForm(Self);
- if F <> nil then
- begin
- if Delta then
- begin
- x := F.Left + x;
- y := F.Top + y;
- end; //FIXME defend from moving outside of screen (don't forget multimonitor)
- F.SetBounds(x, y, F.Width, F.Height);
- end;
-end;
-
-procedure TCustomEmbeddedWB.ResizeParentForm(w, h: Integer; Delta: Boolean);
-var
- F: TCustomForm;
-begin
- F := GetParentForm(Self);
- if F <> nil then
- begin
- if Delta then
- begin
- w := F.Width + w;
- h := F.Height + h;
- end;
- F.SetBounds(F.Left, F.Top, w, h);
- end;
-end;
-
-function TCustomEmbeddedWB.ResizeBy(const x, y: Integer): HRESULT;
-begin
- if FloatingHosting then
- ResizeParentForm(x, y, True);
- if Assigned(OnResizeBy) then
- OnResizeBy(Self, x, y);
- Result := S_OK; // always return success to prevent script error messages
-end;
-
-function TCustomEmbeddedWB.ResizeTo(const x, y: Integer): HRESULT;
-begin
- if FloatingHosting then
- ResizeParentForm(x, y, False);
- if Assigned(OnResize) then
- OnResize(self, x, y);
- Result := S_OK; // always return success to prevent script error messages
-end;
-
-function TCustomEmbeddedWB.MoveBy(const x, y: Integer): HRESULT;
-begin
- if FloatingHosting then
- MoveParentForm(x, y, True);
- if Assigned(OnMoveBy) then
- OnMoveBy(self, x, y);
- Result := S_OK; // always return success to prevent script error messages
-end;
-
-function TCustomEmbeddedWB.MoveTo(const x, y: Integer): HRESULT;
-begin
- if FloatingHosting then
- MoveParentForm(x, y, False);
- if Assigned(OnMove) then
- OnMove(self, x, y);
- Result := S_OK; // always return success to prevent script error messages
-end;
-
-function TCustomEmbeddedWB.OnZoomPercentChanged(const ulZoomPercent: uLong): HRESULT;
-begin
- if Assigned(FOnZoomPercentChanged) then
- Result := FOnZoomPercentChanged(Self, ulZoomPercent)
- else
- Result := S_FALSE;
-end;
-
-function TCustomEmbeddedWB.GetElemByID(const ID: WideString): IHTMLElement;
-var
- Doc3: IHTMLDocument3;
-begin
- if Supports(Document, IHTMLDocument3, Doc3) then
- Result := Doc3.getElementById(ID)
- else
- Result := nil;
-end;
-
-function TCustomEmbeddedWB.ScrollToElement(Element: IHTMLElement): Boolean;
-var
- RV: IHTMLRect;
-begin
- Result := Element <> nil;
- if Result then
- begin
- RV := (Element as IHTMLElement2).getBoundingClientRect;
- Doc2.parentWindow.scrollBy(RV.left, RV.top);
- end;
-end;
-
-function TCustomEmbeddedWB.GetCharSet: WideString;
-begin
- Result := Doc2.charset;
-end;
-
-procedure TCustomEmbeddedWB.SetCharSet(const Value: WideString);
-var
- Level: OleVariant;
-begin
- Doc2.charset := Value;
- Level := 7;
- DefaultInterface.Refresh2(Level);
-end;
-
-procedure TCustomEmbeddedWB.SetDesignMode(const Value: Boolean);
-var
- Control: IOleControl;
-begin
- FDesignMode := Value;
- if DefaultInterface.QueryInterface(IOleControl, Control) = 0 then
- with (Application as IOleControl) do
- begin
- OnAmbientPropertyChange(DISPID_AMBIENT_USERMODE);
- //_Release; I4214 // I4214
- end;
-end;
-
-const
- _DesignModeValues: array[TDocDesignMode] of string =
- ('On', 'Off', 'Inherit', '');
-
-function TCustomEmbeddedWB.GetDocDesignMode: TDocDesignMode;
-var
- D: IHTMLDocument2;
- I: Integer;
-begin
- Result := ddmUnknown;
- if Supports(Document, IHTMLDocument2, D) then
- begin
- I := AnsiIndexStr(D.designMode, _DesignModeValues);
- if I in [0..2] then
- Result := TDocDesignMode(I);
- end;
-end;
-
-procedure TCustomEmbeddedWB.SetDocDesignMode(const Value: TDocDesignMode);
-var
- D: IHTMLDocument2;
-begin
- if (Value <> ddmUnknown) and Supports(Document, IHTMLDocument2, D) then
- D.designMode := _DesignModeValues[Value];
-end;
-
-procedure TCustomEmbeddedWB.SetDownloadOptions(const Value: TDownloadControlOptions);
-begin
- FDownloadControlOptions := Value;
- UpdateDownloadControlValues;
- with (Application as IOleControl) do
- begin
- OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
- //_Release; I4214 // I4214
- end;
-end;
-
-procedure TCustomEmbeddedWB.SetFocusToBody;
-var
- bodyElement: IHTMLElement2;
- HTMLDoc2: IHTMLDocument2;
-begin
- HTMLDoc2 := GetDoc2;
- if Assigned(HTMLDoc2) then
- begin
- bodyElement := HTMLDoc2.body as IHTMLElement2;
- if Assigned(bodyElement) then
- bodyElement.focus;
- end;
-end;
-
-procedure TCustomEmbeddedWB.SetFocusToDoc;
-var
- bCanGrabFocus: Boolean;
- ParentForm: TCustomForm;
-begin
- if Document <> nil then
- begin
- bCanGrabFocus := CanGrabFocus;
- CanGrabFocus := True;
- with (Application as IOleObject) do
- begin
- if DoVerb(OLEIVERB_UIACTIVATE, nil, Self, 0, Handle, GetClientRect) = S_OK then
- begin
- ParentForm := GetParentForm(Self);
- if Assigned(ParentForm) and Self.CanFocus then
- ParentForm.ActiveControl := Self;
- end;
- end;
- CanGrabFocus := bCanGrabFocus;
- end;
-end;
-
-procedure TCustomEmbeddedWB.SetFocusToParent;
-begin
- {if IsWindow(WindowHandle) then
- begin
- Windows.SetParent(WindowHandle, Parent.Handle);
- MoveWindow(WindowHandle, 0, 0, Parent.Width, Parent.Height, True);
- Parent.SetFocus;
- end;}
- if IsWindow(WindowHandle) then
- begin
- Windows.SetParent(WindowHandle, TWinControl(Self).Parent.Handle);
- MoveWindow(WindowHandle, 0, 0, TWinControl(Self).Parent.Width,
- TWinControl(Self).Parent.Height, True);
- TWinControl(Self).Parent.SetFocus;
- end;
-end;
-
-procedure TCustomEmbeddedWB.SetUserInterfaceOptions(const Value: TUserInterfaceOptions);
-begin
- FUserInterfaceOptions := Value;
- UpdateUserInterfaceValues;
- with (Application as IOleControl) do
- begin
- OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
- //_Release; I4214 // I4214
- end;
-end;
-
-procedure TCustomEmbeddedWB.SetDropHandlingType(const Value: TDragDropHandlingType);
-var
- innerWnd: LongWord;
- Impl: IDropTarget;
-begin
- if FDropHandlingType <> Value then
- begin
- FDropHandlingType := Value;
-
- if HandleAllocated then
- innerWnd := GetIEWin('Internet Explorer_Server')
- else
- innerWnd := 0;
- if innerWnd <> 0 then
- RevokeDragDrop(innerWnd);
-
- Impl := nil;
- case Value of
- ddtMS:
- DefaultInterface.RegisterAsDropTarget := True;
- ddtMy: Impl := Self;
- ddtCustom:
- if innerWnd <> 0 then
- begin
- Impl := Self;
- if Assigned(FOnGetDropTarget) then
- FOnGetDropTarget(Self, Impl);
- end;
- ddtNo:
- DefaultInterface.RegisterAsDropTarget := False;
- end;
- if (innerWnd <> 0) and (Impl <> nil) then
- RegisterDragDrop(innerWnd, Impl);
- end;
-end;
-
-function TCustomEmbeddedWB.GetDropTarget(const pDropTarget: IDropTarget;
- out ppDropTarget: IDropTarget): HRESULT;
-begin
- Result := S_OK;
- case DropHandlingType of
- ddtMS:
- begin
- DefaultInterface.RegisterAsDropTarget := True;
- Result := E_NOTIMPL;
- end;
- ddtMy:
- ppDropTarget := Self;
- ddtCustom:
- begin
- ppDropTarget := Self;
- if Assigned(FOnGetDropTarget) then
- FOnGetDropTarget(Self, ppDropTarget);
- end;
- ddtNo:
- begin
- DefaultInterface.RegisterAsDropTarget := False;
- ppDropTarget := nil;
- end;
- end;
-end;
-
-function TCustomEmbeddedWB.DragEnter(const dataObj: IDataObject; grfKeyState: Integer;
- pt: TPoint; var dwEffect: Integer): HRESULT;
-begin
- Result := NOERROR;
- dwEffect := DROPEFFECT_NONE;
- if Assigned(OnDragEnter) then
- OnDragEnter(Self, dataObj, grfKeyState, pt, dwEffect, Result);
-end;
-
-function TCustomEmbeddedWB.DragLeave: HRESULT;
-begin
- Result := NOERROR;
- if Assigned(OnDragLeave) then
- OnDragLeave(Self);
-end;
-
-function TCustomEmbeddedWB.Drop(const dataObj: IDataObject; grfKeyState: Integer;
- pt: TPoint; var dwEffect: Integer): HRESULT;
-begin
- Result := NOERROR;
- dwEffect := DROPEFFECT_NONE;
- if Assigned(FOnDropEvent) then
- FOnDropEvent(Self, dataObj, grfKeyState, pt, dwEffect, Result);
-end;
-
-function TCustomEmbeddedWB.DropTargetDragOver(grfKeyState: Integer; pt: TPoint;
- var dwEffect: Integer): HRESULT;
-begin
- Result := NOERROR;
- dwEffect := DROPEFFECT_NONE;
- if Assigned(FOnDragOverEvent) then
- FOnDragOverEvent(Self, grfKeyState, pt, dwEffect, Result);
-end;
-
-function TCustomEmbeddedWB.Download(pmk: IMoniker; pbc: IBindCtx; dwBindVerb,
- grfBINDF: DWORD; pBindInfo: PBindInfo; pszHeaders, pszRedir: PWidechar;
- uiCP: UINT): HRESULT;
-begin
- Result := E_NOTIMPL;
- if Assigned(FOnDownload) then
- FOnDownload(Self, pmk, pbc, dwBindVerb, grfBINDF, pBindInfo, pszHeaders,
- pszRedir, uiCP, Result);
-end;
-
-function TCustomEmbeddedWB.FilterPopupMenu: Boolean;
-begin
- Result := Assigned(OnFilterPopupMenu);
-end;
-
-procedure TCustomEmbeddedWB.DoFilterPopupMenu(Sender: TObject; ID: DWORD; Menu: HMENU; const Context:
- IDispatch);
-begin
- if Assigned(OnFilterPopupMenu) then
- OnFilterPopupMenu(Sender, ID, Menu, Context);
-end;
-
-function TCustomEmbeddedWB.ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
- const CommandTarget: IUnknown; const Context: IDispatch): HRESULT;
-var
- EncodingSubMenu: OleVariant;
-begin
- Result := E_NOTIMPL;
- if Assigned(FOnShowContextMenu) then
- FOnShowContextMenu(Self, dwID, ppt, CommandTarget, Context, Result);
-
- if Result = E_NOTIMPL then
- begin
- if IsSeTIEPopupMenus(dwID, DisabledPopupMenus) then
- begin
- Result := S_OK;
- if Assigned(PopUpMenu) then // Show assigned TPopupMenu
- PopUpMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
- end
- else if FilterPopupMenu then
- begin
- ExecWB(CGetMimeSubMenuCommandID, OLECMDEXECOPT_DODEFAULT, EncodingSubMenu);
- if ShowRightClickMenu(Self, dwID, CommandTarget, Context, ppt, EncodingSubMenu,
- DoFilterPopupMenu) then
- Result := S_OK
- else
- Result := S_FALSE;
- end
- else
- Result := S_FALSE;
- end;
-end;
-
-function TCustomEmbeddedWB.ShowHelp(HWND: THandle; pszHelpFile: POleStr; uCommand,
- dwData: Integer; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT;
-begin
- if Assigned(FOnShowHelp) then
- Result := FOnShowHelp(Self, HWND, pszHelpFile, uCommand, dwData, ptMouse, pDispatchObjectHit)
- else if (pszHelpFile = nil) and (HelpFile <> '') then
- begin
- HtmlHelp(HWND, PChar(HelpFile), uCommand, dwData);
- Result := S_OK;
- end
- else
- Result := S_FALSE;
-end;
-
-function TCustomEmbeddedWB.ShowMessage(HWND: THandle; lpstrText, lpstrCaption: POleStr;
- dwType: Integer; lpstrHelpFile: POleStr; dwHelpContext: Integer;
- var plResult: LRESULT): HRESULT;
-begin
- if Assigned(FOnShowMessage) then
- Result := FOnShowMessage(Self, HWND, lpstrText, lpStrCaption, dwType, lpStrHelpFile, dwHelpContext, plResult)
- else
- Result := S_FALSE;
-end;
-
-function TCustomEmbeddedWB.ShowUI(const dwID: DWORD;
- const pActiveObject: IOleInPlaceActiveObject;
- const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
- const pDoc: IOleInPlaceUIWindow): HRESULT;
-begin
- Result := S_FALSE;
- if Assigned(FOnShowUI) then
- FOnShowUI(Self, dwID, pActiveObject, pCommandTarget, pFrame, pDoc, Result);
-end;
-
-function TCustomEmbeddedWB.DoFilterMsg(const lpMsg: PMSG): Boolean;
-type
- PWMKey = ^TWMKey;
-var
- ShiftState: TShiftState;
-begin
- {
- Result := (FDisableCtrlShortcuts <> '') and (lpMsg^.message = WM_KEYDOWN)
- and (((GetKeyState(VK_LCONTROL) < 0) and (GetKeyState(VK_MENU) >= 0)) or
- ((GetKeyState(VK_RCONTROL) < 0) and (GetKeyState(VK_LMENU) >= 0)))
- and (_CharPos(Char(lpMsg.wParam), FDisableCtrlShortcuts) > 0); }
-
- ShiftState := KeyDataToShiftState(PWMKey(lpMsg)^.KeyData);
- Result := (FDisableCtrlShortcuts <> '') and (lpMsg^.message = WM_KEYDOWN)
- and ((ShiftState = [ssCtrl]) and (ShiftState <> [ssAlt]))
- and (_CharPos(Char(lpMsg.wParam), FDisableCtrlShortcuts) > 0);
-
- if Result and Assigned(OnMaskedCtrlChar) then
- OnMaskedCtrlChar(Self, Char(lpMsg.wParam));
-end;
-
-function TCustomEmbeddedWB.TranslateAccelerator(const lpMsg: PMSG;
- const pguidCmdGroup: PGUID; const nCmdID: DWORD): HRESULT;
-{ Called by MSHTML when IOleInPlaceActiveObject.TranslateAccelerator or
- IOleControlSite.TranslateAccelerator is called }
-var
- Filtered: Boolean;
-begin
- Filtered := DoFilterMsg(lpMsg);
- if (not Filtered) and Assigned(FOnTranslateAccelerator) then
- FOnTranslateAccelerator(Self, lpMsg, pguidCmdGroup, nCmdID, Filtered);
-
- if Filtered then
- Result := S_OK
- else
- Result := S_FALSE;
-end;
-
-function TCustomEmbeddedWB.TranslateUrl(const dwTranslate: DWORD; const pchURLIn:
- POleStr; out ppchURLOut: POleStr): HRESULT;
-var
- URLOut: WideString;
-begin
- URLOut := '';
- if Assigned(FOnTranslateUrl) then
- FOnTranslateUrl(Self, pchUrlIn, URLOut);
- if URLOut <> '' then
- begin
- Result := S_OK;
- ppchURLOut := WideStringToLPOLESTR(URLOut);
- end
- else
- Result := S_FALSE;
-end;
-
-function TCustomEmbeddedWB.UpdateUI: HRESULT;
-begin
- Result := S_FALSE;
- if Assigned(FOnUpdateUI) then
- FOnUpdateUI(Self, Result);
-end;
-
-procedure TCustomEmbeddedWB.UpdateUserInterfaceValues;
-const
- acardUserInterfaceValues: array[TUserInterfaceOption] of Cardinal =
- ($00000001, $00000002, $00000004, $00000008,
- $00000010, $00000020, $00000040, $00000080,
- $00000100, $00000200, $00000400, $00000800,
- $00001000, $00002000, $00004000, $00010000, $00020000,
- $00040000, $00080000, $00100000, $00200000, $00400000,
- $00800000, $01000000, $02000000, $04000000, $08000000,
- $10000000, $20000000);
-var
- uio: TUserInterfaceOption;
-begin
- FUserInterfaceValue := 0;
- if (FUserInterfaceOptions <> []) then
- for uio := Low(TUserInterfaceOption) to High(TUserInterfaceOption) do
- if (uio in FUserInterfaceOptions) then
- Inc(FUserInterfaceValue, acardUserInterfaceValues[uio]);
-end;
-
-procedure TCustomEmbeddedWB.UpdateDownloadControlValues;
-const
- acardDownloadControlValues: array[TDownloadControlOption] of Cardinal =
- ($00000010, $00000020, $00000040, $00000080,
- $00000100, $00000200, $00000400, $00000800,
- $00001000, $00002000, $00004000, $00008000,
- $00010000, $00020000, $00040000, $10000000,
- $20000000, $40000000, $80000000);
-var
- dco: TDownloadControlOption;
-begin
- FDownloadOptionValue := 0;
- if (FDownloadControlOptions <> []) then
- for dco := Low(TDownloadControlOption) to High(TDownloadControlOption) do
- if (dco in FDownloadControlOptions) then
- Inc(FDownloadOptionValue, acardDownloadControlValues[dco]);
-end;
-
-function TCustomEmbeddedWB.ZoomRangeHigh: Integer;
-var
- vaIn, vaOut: OleVariant;
-begin
- InvokeCommand(nil, OLECMDID_GETZOOMRANGE, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Result := HiWord(DWORD(vaOut));
-end;
-
-function TCustomEmbeddedWB.ZoomRangeLow: Integer;
-var
- vaIn, vaOut: OleVariant;
-begin
- InvokeCommand(nil, OLECMDID_GETZOOMRANGE, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Result := LoWord(DWORD(vaOut));
-end;
-
-function TCustomEmbeddedWB._getCookie: WideString;
-var
- D: IHTMLDocument2;
-begin
- if Supports(Document, IHTMLDocument2, D) then
- Result := OleObject.Document.Cookie
- else
- Result := '';
-end;
-
-procedure TCustomEmbeddedWB.Client2HostWin(var CX, CY: Integer);
-var
- F: TCustomForm;
-begin
- F := GetParentForm(Self);
- if F <> nil then
- begin
- Inc(CX, F.ClientWidth - Self.Width);
- Inc(CY, F.ClientHeight - Self.Height);
- end;
-end;
-
-{$IFDEF USE_IOLECOMMANDTARGET}
-//======IOleCommandTarget interface ============================================
-
-function TCustomEmbeddedWB.CommandTarget_QueryStatus(CmdGroup: PGUID; cCmds: Cardinal;
- prgCmds: POleCmd; CmdText: POleCmdText): HRESULT;
-begin
- prgCmds.cmdf := OLECMDF_ENABLED;
- Result := S_OK;
-end;
-
-function TCustomEmbeddedWB.CommandTarget_Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
- const vaIn: OleVariant; var vaOut: OleVariant): HRESULT;
-var
- tmpCancel: Boolean;
-const
-{$J+}
- LastTickEvent: Cardinal = 0;
-{$J-}
-begin
- Result := OLECMDERR_E_NOTSUPPORTED;
-
- if (nCmdID = OLECMDID_STOP) then
- begin
- if Assigned(FOnStop) then
- FOnStop(Self);
- end;
-
- if CmdGroup <> nil then
- begin
- if IsEqualGuid(cmdGroup^, CGID_EXPLORER) then
- begin
- case nCmdID of
- OLECMDID_ONUNLOAD:
- if Assigned(FOnUnload) then
- begin
- FOnUnload(Self);
- Result := S_OK;
- Exit;
- end;
-
- OLECMDID_PREREFRESH:
- begin
- if Assigned(FOnPreRefresh) then
- begin
- if GetTickCount - LastTickEvent > 150 then
- begin
- LastTickEvent := GetTickCount;
- FOnPreRefresh(Self);
- end;
- end;
-
- if Assigned(FOnHookChildWindow) then
- if (GetIEWin('Internet Explorer_Server') <> 0) or (GetIEWin('SysListView32') <> 0) then
- FOnHookChildWindow(Self);
- end;
- end
- end
- else if IsEqualGuid(cmdGroup^, CGID_DocHostCommandHandler) then
- begin
- case nCmdID of
- ID_IE_F5_REFRESH {nCmdID 6041, F5},
- ID_IE_CONTEXTMENU_REFRESH {nCmdID 6042, Refresh by ContextMenu},
- IDM_REFRESH {nCmdID 2300}:
- begin
- if Assigned(FOnRefresh) then
- begin
- tmpCancel := False;
- FOnRefresh(Self, nCmdID, tmpCancel);
- if tmpCancel then
- Result := S_OK; //FIXME is it true? Why not OLECMDERR_E_CANCELED
- end;
- Exit;
- end;
- OLECMDID_SHOWSCRIPTERROR:
- begin
- Result := ScriptErrorHandler(vaIn, vaOut);
- Exit;
- end;
- end;
- end;
- end;
- if Assigned(OnCommandExec) then
- Self.OnCommandExec(Self, CmdGroup, nCmdID, nCmdexecopt,
- vaIn, vaOut, Result);
-end;
-{$ENDIF}
-
-function TCustomEmbeddedWB.ScriptErrorHandler(const vaIn: OleVariant;
- var vaOut: OleVariant): HRESULT;
-var
- EventObject: IHTMLEventObj;
- CurWindow: IHTMLWindow2;
- CurDocument: IHTMLDocument2;
- CurUnknown: IUnknown;
-
- function GetProperty(const PropName: WideString): OleVariant;
- var
- DispParams: TDispParams;
- Disp, Status: Integer;
- ExcepInfo: TExcepInfo;
- PPropName: PWideChar;
- begin
- DispParams.rgvarg := nil;
- DispParams.rgdispidNamedArgs := nil;
- DispParams.cArgs := 0;
- DispParams.cNamedArgs := 0;
- PPropName := PWideChar(PropName);
- Status := EventObject.GetIDsOfNames(GUID_NULL, @PPropName, 1, LOCALE_SYSTEM_DEFAULT, @Disp);
- if Status = 0 then
- begin
- Status := EventObject.Invoke(disp, GUID_NULL, LOCALE_SYSTEM_DEFAULT,
- DISPATCH_PROPERTYGET, DispParams, @Result, @ExcepInfo, nil);
- if Status <> 0 then
- DispatchInvokeError(Status, ExcepInfo);
- end
- else if Status = DISP_E_UNKNOWNNAME then
- raise
- EOleError.CreateFmt('''%s'' is not supported.', [PropName])
- else
- OleCheck(Status);
- end;
-begin
- Result := S_OK;
- case FScriptErrorAction of
- eaAskUser: Result := S_FALSE; //E_FAIL;
- eaContinue: vaOut := True;
- eaCancel: vaOut := False;
- end;
-
- if Assigned(FOnScriptError) then
- begin
- CurUnknown := IUnknown(TVarData(vaIn).VUnknown);
- if Succeeded(CurUnknown.QueryInterface(IID_IHTMLDocument2, CurDocument)) then
- begin
- CurWindow := CurDocument.Get_parentWindow;
- CurDocument := nil;
- if Assigned(CurWindow) then
- begin
- EventObject := CurWindow.Get_event;
- if EventObject <> nil then
- begin
- FOnScriptError(Self,
- GetProperty('errorline'),
- GetProperty('errorCharacter'),
- GetProperty('errorCode'),
- GetProperty('errorMessage'),
- GetProperty('errorUrl'),
- FScriptErrorAction);
- end;
- end;
- end;
- end;
-end;
-
-function TCustomEmbeddedWB.PopulateNamespaceTable: HRESULT;
-begin
- Result := S_OK;
- if Assigned(fOnPopulateNSTable) then
- FOnPopulateNSTable(Self);
-end;
-
-function TCustomEmbeddedWB.GetElementNamespaceTable(
- out aTable: IElementNamespaceTable): Boolean;
-var
- SP: IServiceProvider;
-begin
- Result := Supports(Self.Document, IServiceProvider, SP) and
- (SP.QueryService(IID_IElementNamespaceTable, IID_IElementNamespaceTable,
- aTable) = S_OK);
-end;
-
-function WideStringToLPOLESTR(const Src: WideString): POLEStr;
-begin
- Result := CoTaskMemAlloc((Length(Src) + 1) * SizeOf(WideChar));
- if Result <> nil then
- Move(PWideChar(Src)^, Result^, (Length(Src) + 1) * SizeOf(WideChar));
-end;
-
-function TCustomEmbeddedWB.Authenticate(var hwnd: HWnd; var szUserName,
- szPassWord: LPWSTR): HRESULT;
-var
- aUser, aPwd: WideString;
-begin
- Result := S_OK;
- hwnd := Self.Handle;
- aUser := '';
- aPwd := '';
- if Assigned(OnAuthenticate) then
- OnAuthenticate(Self, hwnd, aUser, aPwd, Result);
- if aUser <> '' then
- szUserName := WideStringToLPOLESTR(aUser)
- else
- szUserName := nil;
- if aPwd <> '' then
- szPassWord := WideStringToLPOLESTR(aPwd)
- else
- szPassWord := nil;
-end;
-
-{ TEwbCore }
-
-function TEwbCore.IsCtrlCharMask: Boolean;
-begin
- Result := FDisableCtrlShortcuts <> 'N';
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/EwbCoreTools.pas b/windows/src/ext/embeddedwb/Source/EwbCoreTools.pas
deleted file mode 100644
index 0b10bdeeef795b47658f8d05732d1a55b3d7e14b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbCoreTools.pas
+++ /dev/null
@@ -1,411 +0,0 @@
-//*************************************************************
-// EwbCoreTools *
-// *
-// Freeware Unit *
-// For Delphi *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-
-unit EwbCoreTools;
-
-{$I EWB.inc}
-
-interface
-
-uses
- Graphics, ActiveX, Mshtml_Ewb, Windows, SysUtils;
-
-function IsWinXPSP2OrLater(): Boolean;
-function ColorToHTML(const Color: TColor): string;
-function WideStringToLPOLESTR(const Source: Widestring): POleStr;
-function XPath4Node(node: IHTMLElement): string;
-function TaskAllocWideString(const S: string): PWChar;
-function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
-function GetPos(const SubSt, Text: string; StartPos: Integer = -1): Integer;
-function _CharPos(const C: Char; const S: string): Integer;
-function CutString(var Text: string; const Delimiter: string = ' ';
- const Remove: Boolean = True): string;
-procedure FormatPath(Path: string);
-function GetWinText(WinHandle: THandle): string;
-function GetWinClass(Handle: Hwnd): WideString;
-function GetParentWinByClass(ChildHandle: HWND; const ClassName: string): HWND;
-{$IFDEF DELPHI5}
-function DirectoryExists(const Directory: string): Boolean;
-function VarSupports(const V: Variant; const IID: TGUID; out Intf): Boolean;
-{$ENDIF}
-{$IFNDEF DELPHI12_UP}
-function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean;
-{$ENDIF}
-function AddBackSlash(const S: string): string;
-
-const
- WM_SETWBFOCUS = $0400 {WM_USER} + $44;
-
-implementation
-
-uses
- EwbIeConst, EwbAcc;
-
-type
- {VerifyVersion}
- fn_VerifyVersionInfo = function(var VersionInformation: OSVERSIONINFOEX;
- dwTypeMask: DWORD; dwlConditionMask: LONGLONG): BOOL; stdcall;
- fn_VerSetConditionMask = function(ConditionMask: LONGLONG; TypeMask: DWORD;
- Condition: Byte): LONGLONG; stdcall;
-
-
-function IsWinXPSP2OrLater(): Boolean;
-var
- osvi: TOSVersionInfoEx;
- dwlConditionMask: LONGLONG;
- op: Integer;
- hlib: THandle;
- VerifyVersionInfo: fn_VerifyVersionInfo;
- VerSetConditionMask: fn_VerSetConditionMask;
-begin
- Result := False;
- hLib := GetModuleHandle('kernel32.dll');
- if hLib = 0 then
- hLib := LoadLibrary('kernel32.dll');
- if (hLib <> 0) then
- begin
- @VerifyVersionInfo := GetProcAddress(hLib, 'VerifyVersionInfoA');
- @VerSetConditionMask := GetProcAddress(hLib, 'VerSetConditionMask');
- if ((@VerifyVersionInfo = nil) or (@VerSetConditionMask = nil)) then Exit;
-
- dwlConditionMask := 0;
- op := VER_GREATER_EQUAL;
-
- // Initialize the OSVERSIONINFOEX structure.
- ZeroMemory(@osvi, SizeOf(OSVERSIONINFOEX));
- osvi.dwOSVersionInfoSize := SizeOf(OSVERSIONINFOEX);
- osvi.dwMajorVersion := 5;
- osvi.dwMinorVersion := 1;
- osvi.wServicePackMajor := 2;
- osvi.wServicePackMinor := 0;
-
- // Initialize the condition mask.
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_MAJORVERSION, op);
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_MINORVERSION, op);
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_SERVICEPACKMAJOR, op);
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_SERVICEPACKMINOR, op);
-
- // Perform the test.
- Result := VerifyVersionInfo(osvi, VER_MAJORVERSION or VER_MINORVERSION or
- VER_SERVICEPACKMAJOR or VER_SERVICEPACKMINOR, dwlConditionMask);
- end;
-end;
-
-function GetParentWinByClass(ChildHandle: HWND; const ClassName: string): HWND;
-var
- szClass: array[0..255] of Char;
-begin
- Result := GetParent(ChildHandle);
- while IsWindow(Result) do
- begin
- if (GetClassName(Result, szClass, SizeOf(szClass)) > 0) and
- (AnsiStrComp(PChar(ClassName), szClass) = 0) then Exit;
- Result := GetParent(Result);
- end;
-end;
-
-
-
-{$IFNDEF DELPHI12_UP}
-
-function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean;
-begin
- Result := C in CharSet;
-end;
-{$ENDIF}
-
-{$IFDEF DELPHI5}
-
-function DirectoryExists(const Directory: string): Boolean;
-var
- Code: Integer;
-begin
-{$RANGECHECKS OFF}
- Code := GetFileAttributes(PChar(Directory));
- Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
-{$RANGECHECKS ON}
-end;
-
-function VarSupports(const V: Variant; const IID: TGUID; out Intf): Boolean;
-begin
- Result := Supports(V, IID, Intf);
-end;
-{$ENDIF}
-
-function AddBackSlash(const S: string): string;
-begin
-{$IFDEF DELPHI5}
- Result := IncludeTrailingBackslash(S);
-{$ELSE}
-{$IFDEF DELPHI6UP}
- Result := IncludeTrailingPathDelimiter(S);
-{$ELSE}
- if Copy(S, Length(S), 1) = '\' then
- Result := S
- else
- Result := S + '\';
-{$ENDIF}
-{$ENDIF}
-end;
-
-function CutString(var Text: string; const Delimiter: string = ' ';
- const Remove: Boolean = True): string;
-var
- IdxPos: Integer;
-begin
- if Delimiter = #0 then
- IdxPos := Pos(Delimiter, Text)
- else
- IdxPos := AnsiPos(Delimiter, Text);
-
- if (IdxPos = 0) then
- begin
- Result := Text;
- if Remove then
- Text := '';
- end
- else
- begin
- Result := Copy(Text, 1, IdxPos - 1);
- if Remove then
- Delete(Text, 1, IdxPos + Length(Delimiter) - 1);
- end;
-end;
-
-
-function GetPos(const SubSt, Text: string; StartPos: Integer = -1): Integer;
-var
- i: Integer;
- LStartPos: Integer;
- LTokenLen: Integer;
-begin
- result := 0;
- LTokenLen := Length(SubSt);
- if StartPos = -1 then
- begin
- StartPos := Length(Text);
- end;
- if StartPos < (Length(Text) - LTokenLen + 1) then
- begin
- LStartPos := StartPos;
- end
- else
- begin
- LStartPos := (Length(Text) - LTokenLen + 1);
- end;
- for i := LStartPos downto 1 do
- begin
- if AnsiSameText(Copy(Text, i, LTokenLen), SubSt) then
- begin
- Result := i;
- Break;
- end;
- end;
-end;
-
-function _CharPos(const C: Char; const S: string): Integer;
-begin
- for Result := 1 to Length(S) do
- if S[Result] = C then Exit;
- Result := 0;
-end;
-
-procedure FormatPath(Path: string);
-var
- i: Integer;
-begin
- i := 1;
- while i <= Length(Path) do
- begin
- if CharInSet(Path[i], LeadBytes) then
- Inc(i, 2)
- else
- if Path[i] = '\' then
- begin
- Path[i] := '/';
- Inc(i, 1);
- end
- else
- Inc(i, 1);
- end;
-end;
-
-function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
-var
- I: Integer;
-begin
- Result := -1;
- for I := Low(AValues) to High(AValues) do
- if AnsiSameStr(AText, AValues[I]) then
- begin
- Result := I;
- Break;
- end;
-end;
-
-
-function TaskAllocWideString(const S: string): PWChar;
-var
- WideLength: integer;
- Wide: PWideChar;
-begin
- WideLength := Length(S) + 1;
- Wide := CoTaskMemAlloc(WideLength * SizeOf(WideChar));
- StringToWideChar(S, Wide, WideLength);
- Result := Wide;
-end;
-
-{
-function TaskAllocWideString(const S: string): PWChar;
-var
- Len: Integer;
-begin
- Len := Length(S) + 1;
- Result := CoTaskMemAlloc(2 * Len);
- StringToWideChar(S, Result, Len);
-end;
-}
-
-function WideStringToLPOLESTR(const Source: Widestring): POleStr;
-var
- Len: Integer;
-begin
- Len := Length(Source) * SizeOf(WideChar);
- Result := CoTaskMemAlloc(Len + 2);
- FillChar(Result^, Len + 2, 0);
- Move(Result^, PWideString(Source)^, Len);
-end;
-
-function ColorToHTML(const Color: TColor): string;
-var
- ColorRGB: LongWord;
-begin
- ColorRGB := ColorToRGB(Color);
- FmtStr(Result, '#%0.2X%0.2X%0.2X',
- [Byte(ColorRGB), Byte(ColorRGB shr 8), Byte(ColorRGB shr 16)]);
-end;
-
-function GetWinText(WinHandle: THandle): string;
-var
- DlgName: string;
- TxtLength: Integer;
-begin
- TxtLength := GetWindowTextLength(WinHandle);
- SetLength(DlgName, TxtLength + 1);
- GetWindowText(WinHandle, PChar(DlgName), TxtLength + 1);
- Result := DlgName;
-end;
-
-
-function GetWinClass(Handle: Hwnd): WideString;
-var
- pwc: PWideChar;
-const
- maxbufsize = 32767 * SizeOf(WideChar);
-begin
- Result := '';
- if IsWindow(Handle) then
- begin
- pwc := GetMemory(maxbufsize);
- if Assigned(pwc) then
- try
- ZeroMemory(pwc, maxbufsize);
- if GetClassnameW(Handle, pwc, maxbufsize) > 0 then
- SetString(Result, pwc, lstrlenW(pwc));
- finally
- FreeMemory(pwc);
- end;
- end;
-end;
-
-{
-function GetWinClass(WinHandle: THANDLE): string;
-begin
- SetLength(Result, 80);
- SetLength(Result, GetClassName(WinHandle, PChar(Result), Length(Result)));
-end;
-}
-
-
-function XPath4Node(node: IHTMLElement): string;
-
- function NodePosition(elem: IHTMLElement): string;
- var tag: Widestring;
- Idx: Integer;
- n: IHTMLElement;
- cl: IHTMLElementCollection;
- itm: IDispatch;
- I, C, mI: Integer;
- begin
- Result := '';
- if (elem.parentElement = nil) or
- not Supports(elem.parentElement.children, IHTMLElementCollection, cl) then Exit;
-
- Tag := elem.tagName;
- Idx := elem.sourceIndex;
- C := 0;
- mI := -1;
-
- for I := 0 to cl.length - 1 do
- begin
- itm := cl.item(I, I);
- if Supports(itm, IHTMLElement, n) then
- begin
- if n.tagName = Tag then
- begin
- if n.sourceIndex = Idx then mI := C;
- Inc(C);
- end;
- end;
- end;
- if (mI > 0) or (C > 1) then Result := Format('[%d]', [mI]);
- end;
-
-var id: string;
-begin
- if node <> nil then
- begin
- id := node.id;
- if id <> '' then
- Result := Format('%s[@id="%s"]', [node.tagName, id])
- else if node.parentElement = nil then
- Result := '/' + node.tagName
- else Result := Format('%s/%s%s',
- [XPath4Node(node.parentElement), node.tagName, NodePosition(node)]);
- end else Result := '';
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbDDE.pas b/windows/src/ext/embeddedwb/Source/EwbDDE.pas
deleted file mode 100644
index 91ca582edd391bf6f2c641fdde40e74faa1e1fc4..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbDDE.pas
+++ /dev/null
@@ -1,234 +0,0 @@
-//*************************************************************
-// Ewb_DDE *
-// *
-// Freeware Unit *
-// For Delphi 5 to XE *
-// by *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// Mathias Walter (mich@matze.tv) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbDDE;
-
-interface
-
-uses
- Windows, Classes, ShellAPI, EWBAcc, Registry, EwbTools, ShlObj, EwbIEConst,
- sysUtils, ActiveX, ComObj;
-
-type
- TEwb_DDE = class(TThread)
- end;
-
-procedure GetDDEVariables;
-function GetCommandTypeFromDDEString(szCommand: string): UINT;
-function GetPathFromDDEString(szCommand: string; var szFolder: string): Boolean;
-function GetPidlFromDDEString(const szCommand: string): PItemIDList;
-function GetShowCmdFromDDEString(szCommand: string): Integer;
-function ParseDDECommand(const szCommand: string; var szFolder: string;
- var pidl: PItemIDList; var show: Integer): UINT;
-procedure DisposePIDL(ID: PItemIDList);
-
-implementation
-
-uses
- EwbCoreTools;
-
-var
- FindFolder, OpenFolder, ExploreFolder, HtmlFileApp, HtmlFileTopic: string;
- //All DDE variables
- FoldersApp, FoldersTopic: string;
-
-procedure DisposePIDL(ID: PItemIDList);
-var
- Malloc: IMalloc;
-begin
- if ID <> nil then
- begin
- OLECheck(SHGetMalloc(Malloc));
- Malloc.Free(ID);
- end;
-end;
-
-procedure GetDDEVariables;
-var
- tmpStr: string;
- Reg: TRegistry;
-begin
- Reg := TRegistry.Create;
- with Reg do
- try
- RootKey := HKEY_CLASSES_ROOT;
- OpenKey('htmlfile\shell\open\ddeexec\application', False);
- HtmlFileApp := Readstring('');
- CloseKey;
- OpenKey('htmlfile\shell\open\ddeexec\topic', False);
- HtmlFileTopic := ReadString('');
- CloseKey;
- OpenKey('Folder\shell\open\ddeexec\application', False);
- FoldersApp := Readstring('');
- CloseKey;
- OpenKey('Folder\shell\open\ddeexec\topic', False);
- FoldersTopic := ReadString('');
- CloseKey;
- OpenKey('Folder\shell\open\ddeexec', False);
- tmpStr := readString('');
- CloseKey;
- tmpStr := Copy(tmpStr, Pos('[', tmpStr) + 1, length(tmpStr));
- OpenFolder := Copy(tmpStr, 1, Pos('(', tmpStr) - 1);
- OpenKey('Folder\shell\explore\ddeexec', False);
- tmpStr := readString('');
- CloseKey;
- tmpStr := Copy(tmpStr, Pos('[', tmpStr) + 1, length(tmpStr));
- ExploreFolder := Copy(tmpStr, 1, Pos('(', tmpStr) - 1);
- OpenKey('Directory\shell\find\ddeexec', False);
- tmpStr := readString('');
- CloseKey;
- tmpStr := Copy(tmpStr, Pos('[', tmpStr) + 1, length(tmpStr));
- FindFolder := Copy(tmpStr, 1, Pos('(', tmpStr) - 1);
- finally
- Free;
- end;
-end;
-
-function GetCommandTypeFromDDEString(szCommand: string): UINT;
-begin
- szCommand := Copy(szCommand, Pos('[', szCommand) + 1, length(szCommand));
- szCommand := Copy(szCommand, 1, Pos('(', szCommand) - 1);
- if szCommand = OpenFolder then
- Result := VIEW_COMMAND
- else if szCommand = ExploreFolder then
- Result := EXPLORE_COMMAND
- else if szCommand = FindFolder then
- Result := FIND_COMMAND
- else
- Result := NO_COMMAND;
-end;
-
-function GetPathFromDDEString(szCommand: string; var szFolder: string): Boolean;
-begin
- szCommand := Copy(szCommand, Pos('"', szCommand) + 1, length(szCommand));
- szFolder := Copy(szCommand, 1, Pos('"', szCommand) - 1);
- Result := (szFolder <> '');
-end;
-
-function GetPidlFromDDEString(const szCommand: string): PItemIDList;
-var
- PidlShared, PidlGlobal: PItemIDList;
- dwProcessId: Integer;
- hShared: THandle;
- St: string;
- ProcessID: string;
- i: Integer;
-begin
- St := Copy(szCommand, Pos(',', szCommand) + 1, length(szCommand));
- i := 1;
- while not (CharInSet(St[i], IsDigit) and (i <= Length(St))) do
- Inc(i);
- ProcessID := Copy(St, i, Length(St));
- St := Copy(St, i, length(St) - 1);
- i := 1;
- while CharInSet(St[i], IsDigit) and (i <= Length(St)) do
- Inc(i);
- St := Copy(St, 1, i - 1);
-
- while not ((ProcessID[i] = ':') or (ProcessID[i] = ',')) and (i <=
- Length(ProcessID)) do
- Inc(i);
- if ProcessID[i] = ':' then
- begin
- ProcessID := Copy(ProcessID, i, Length(ProcessID));
- i := 1;
- while not (CharInSet(ProcessID[i], IsDigit) and (i <= Length(ProcessID)))
- do
- Inc(i);
- ProcessID := Copy(ProcessID, i, Length(ProcessID));
- i := 1;
- while (CharInSet(ProcessID[i], IsDigit)) and (i <= Length(ProcessID)) do
- Inc(i);
- if not (CharInSet(ProcessID[i], IsDigit)) then
- ProcessID := Copy(ProcessID, 1, i - 1);
- end
- else
- ProcessID := '0';
- dwProcessId := StrToInt(ProcessID);
- if dwProcessId <> 0 then
- begin
- hShared := StrToInt(St);
- PidlShared := ShLockShared(hShared, dwProcessId);
- if PidlShared <> nil then
- begin
- Result := CopyPidl(PidlShared);
- ShUnlockShared(PidlShared);
- end
- else
- Result := nil;
- ShFreeShared(hShared, dwProcessId);
- end
- else
- begin
- PidlGlobal := PItemIDList(StrToInt(St));
- Result := CopyPidl(PidlGlobal);
- _Free(PidlGlobal);
- end;
-end;
-
-function GetShowCmdFromDDEString(szCommand: string): Integer;
-var
- tmpInt: Integer;
-begin
- tmpInt := 1;
- while szCommand[tmpInt] <> ',' do
- Inc(tmpInt);
- Inc(tmpInt);
- while szCommand[tmpInt] <> ',' do
- Inc(tmpInt);
- szCommand := Copy(szCommand, tmpInt, Length(szCommand));
- tmpInt := 0;
- repeat
- inc(tmpInt)
- until (tmpInt > Length(szCommand)) or CharInSet(szCommand[tmpInt], IsDigit);
- if tmpInt <= length(szCommand) then
- Result := StrtoInt(szCommand[tmpInt])
- else
- Result := 1;
-end;
-
-function ParseDDECommand(const szCommand: string; var szFolder: string;
- var pidl: PItemIDList; var show: Integer): UINT;
-begin
- Result := GetCommandTypeFromDDEString(szCommand);
- if Result <> NO_COMMAND then
- begin
- GetPathFromDDEString(szCommand, szFolder);
- pidl := GetPidlFromDDEString(szCommand);
- show := GetShowCmdFromDDEString(szCommand);
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbDisableFocusControl.pas b/windows/src/ext/embeddedwb/Source/EwbDisableFocusControl.pas
deleted file mode 100644
index 58f88d32403cae45839ed3e2909e16e406cd21b2..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbDisableFocusControl.pas
+++ /dev/null
@@ -1,36 +0,0 @@
-(*
-
-This unit's purpose is to disable the FocusControl even if Enable_AutoFocusControl
-is defined in EWB.inc.
-
-EwbControl.FocusControl is activated in the initialization section of the
-EmbeddedWB unit.
-To disable it, put this unit before the first form
-unit in your DPR 'uses' clause.
-
-Example:
-
-program Project1;
-
-uses
- //..
- EWBDisableFocusControl,
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
- //..
-
-*)
-
-unit EWBDisableFocusControl;
-
-interface
-
-uses
- EwbFocusControl;
-
-implementation
-
-initialization
- EWBEnableFocusControl := False;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbDisableMouseWheelFix.pas b/windows/src/ext/embeddedwb/Source/EwbDisableMouseWheelFix.pas
deleted file mode 100644
index c613d557dc1882e513955c5c31a9938c90f4cc04..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbDisableMouseWheelFix.pas
+++ /dev/null
@@ -1,36 +0,0 @@
-(*
-
-This unit's purpose is to disable the MouseWheelFix even if Enable_AutoMouseWheelFix
-is defined in EWB.inc.
-
-EwbControl.MouseWheelFix is activated in the initialization section of the
-EmbeddedWB unit.
-To disable it, put this unit before the first form
-unit in your DPR 'uses' clause.
-
-Example:
-
-program Project1;
-
-uses
- //..
- EwbDisableMouseWheelFix,
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
- //..
-
-*)
-
-unit EwbDisableMouseWheelFix;
-
-interface
-
-uses
- EWBMouseHook;
-
-implementation
-
-initialization
- EWBEnableMouseWheelFix := False;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbEditors.pas b/windows/src/ext/embeddedwb/Source/EwbEditors.pas
deleted file mode 100644
index f7783467b239a87e5b165e183d8398c9b4ee0c34..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbEditors.pas
+++ /dev/null
@@ -1,344 +0,0 @@
-//**************************************************************
-// *
-// Ewb_Editors *
-// For Delphi *
-// *
-// For Delphi 5 to 2019 *
-// by *
-// bsalsa - Eran Bodankin - bsalsa@gmail.com *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbEditors.pas,v 1.3.2.1 2006/12/10 18:43:49 sergev Exp $
-
-unit EwbEditors;
-
-interface
-
-{$I EWB.inc}
-
-uses
-{$IFDEF DELPHI6_UP}DesignEditors, DesignIntf, StrEdit{$ELSE}DsgnIntf{$ENDIF}
- , Classes;
-
-type
- TEwbCompEditor = class(TComponentEditor)
- public
- procedure ExecuteVerb(Idx: integer); override;
- function GetVerb(Idx: integer): string; override;
- function GetVerbCount: integer; override;
- end;
-
- TBFFEditor = class(TComponentEditor)
- public
- procedure ExecuteVerb(Idx: integer); override;
- function GetVerb(Idx: integer): string; override;
- function GetVerbCount: integer; override;
- end;
-
- TSaveFileDLG = class(TStringProperty)
- public
- procedure Edit; override;
- function GetAttributes: TPropertyAttributes; override;
- end;
-
- TSaveTextDLG = class(TStringProperty)
- public
- procedure Edit; override;
- function GetAttributes: TPropertyAttributes; override;
- end;
-
- TSaveHtmlDLG = class(TStringProperty)
- public
- procedure Edit; override;
- function GetAttributes: TPropertyAttributes; override;
- end;
-
- TOpenFileDLG = class(TStringProperty)
- public
- procedure Edit; override;
- function GetAttributes: TPropertyAttributes; override;
- end;
-
- TOpenHtmlDLG = class(TStringProperty)
- public
- procedure Edit; override;
- function GetAttributes: TPropertyAttributes; override;
- end;
-
- TBrowse4FolderDLG = class(TStringProperty)
- public
- procedure Edit; override;
- function GetAttributes: TPropertyAttributes; override;
- end;
-{$IFDEF DELPHI6_UP}
- TMultiStringProperty = class(TStringListProperty)
- private
- fStrings: TStringList;
- protected
- function GetStrings: TStrings; override;
- procedure SetStrings(const Value: TStrings); override;
- end;
-{$ENDIF}
-
-implementation
-
-uses
- Browse4Folder, TypInfo, ShellApi, Windows, Dialogs, SysUtils, EwbIEConst, Forms, shlobj;
-
-//--Verb Delphi menu------------------------------------------------------------
-
-procedure TEwbCompEditor.ExecuteVerb(Idx: integer);
-begin
- case Idx of
- 0: ShellExecute(0, 'open', SITE_ADDRESS, nil, nil, SW_SHOW);
- end;
-end;
-
-function TEwbCompEditor.GetVerb(Idx: Integer): string;
-begin
- case Idx of
- 0: Result := 'Support: ' + SITE_ADDRESS;
- 1: Result := 'Package Version:' + VER_NUM;
- end;
-end;
-
-function TEwbCompEditor.GetVerbCount: integer;
-begin
- Result := 2;
-end;
-
-//---BuildIn Save Dialog for the components-------------------------------------
-
-procedure TSaveFileDLG.Edit;
-var
- SD: TSaveDialog;
-begin
- SD := TSaveDialog.Create(Application);
- try
- with SD do
- begin
- Filename := GetValue();
- InitialDir := ExtractFilePath(FileName);
- Filter := '*.*';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- if Execute then
- SetValue(FileName);
- end;
- finally
- SD.Free;
- end;
-end;
-
-function TSaveFileDLG.GetAttributes: TPropertyAttributes;
-begin
- Result := [paDialog, paRevertable];
-end;
-
-procedure TSaveHtmlDLG.Edit;
-var
- SD: TSaveDialog;
-begin
- SD := TSaveDialog.Create(Application);
- try
- with SD do
- begin
- Filename := GetValue();
- InitialDir := ExtractFilePath(FileName);
- Filter := 'Html files|*.html|Htm files|*.htm';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- if Execute then
- SetValue(FileName);
- end;
- finally
- SD.Free;
- end;
-end;
-
-function TSaveHtmlDLG.GetAttributes: TPropertyAttributes;
-begin
- Result := [paDialog, paRevertable];
-end;
-
-procedure TSaveTextDLG.Edit;
-var
- SD: TSaveDialog;
-begin
- SD := TSaveDialog.Create(Application);
- try
- with SD do
- begin
- Filename := GetValue();
- InitialDir := ExtractFilePath(FileName);
- Filter := 'Text files|*.txt|Word files|*.doc';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- if Execute then
- SetValue(FileName);
- end;
- finally
- SD.Free;
- end;
-end;
-
-function TSaveTextDLG.GetAttributes: TPropertyAttributes;
-begin
- Result := [paDialog, paRevertable];
-end;
-
-//---BuildIn Open Dialog for the components-------------------------------------
-
-procedure TOpenFileDLG.Edit;
-var
- OD: TOpenDialog;
-begin
- OD := TOpenDialog.Create(Application);
- try
- with OD do
- begin
- Filename := GetValue();
- InitialDir := ExtractFilePath(FileName);
- Filter := '*.*';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- if Execute then
- SetValue(FileName);
- end;
- finally
- OD.Free;
- end;
-end;
-
-function TOpenFileDLG.GetAttributes: TPropertyAttributes;
-begin
- Result := [paDialog, paRevertable];
-end;
-
-procedure TOpenHtmlDLG.Edit;
-var
- OD: TOpenDialog;
-begin
- OD := TOpenDialog.Create(Application);
- try
- with OD do
- begin
- Filename := GetValue();
- InitialDir := ExtractFilePath(FileName);
- Filter := 'Html files|*.html|Htm files|*.htm';
- HelpContext := 0;
- Options := Options + [ofShowHelp, ofEnableSizing];
- if Execute then
- SetValue(FileName);
- end;
- finally
- OD.Free;
- end;
-end;
-
-function TOpenHtmlDLG.GetAttributes: TPropertyAttributes;
-begin
- Result := [paDialog, paRevertable];
-end;
-
-//---Browse For Folder----------------------------------------------------------
-
-function TBrowse4FolderDLG.GetAttributes: TPropertyAttributes;
-begin
- Result := [paDialog, paRevertable];
-end;
-
-procedure TBrowse4FolderDLG.Edit;
-var
- BD: TBrowse4Folder;
-begin
- BD := TBrowse4Folder.Create(Application);
- try
- with BD do
- begin
- Filename := GetValue();
- InitialDir := ExtractFilePath(FileName);
- if Execute then
- SetValue(FileName);
- end;
- finally
- BD.Free;
- end;
-end;
-
-procedure TBFFEditor.ExecuteVerb(Idx: integer);
-var
- BD: TBrowse4Folder;
-begin
- case Idx of
- 0:
- begin
- BD := TBrowse4Folder.Create(Application);
- try
- with BD do
- begin
- InitialDir := ExtractFilePath(FileName);
- Execute;
- end;
- finally
- BD.Free;
- end;
- end;
- end;
-end;
-
-function TBFFEditor.GetVerb(Idx: Integer): string;
-begin
- case Idx of
- 0: Result := 'Support: ' + SITE_ADDRESS;
- 1: Result := 'Package Version:' + VER_NUM;
- end;
-end;
-
-function TBFFEditor.GetVerbCount: integer;
-begin
- Result := 2;
-end;
-{$IFDEF DELPHI6_UP}
-{ TMultiStringProperty }
-
-function TMultiStringProperty.GetStrings: TStrings;
-begin
- if fStrings = nil then fStrings := TStringList.Create;
- fStrings.Text := GetStrValue;
- Result := fStrings;
-end;
-
-procedure TMultiStringProperty.SetStrings(const Value: TStrings);
-begin
- SetStrValue(Value.Text);
-end;
-{$ENDIF}
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbEvents.pas b/windows/src/ext/embeddedwb/Source/EwbEvents.pas
deleted file mode 100644
index a1837c7a9b8390590fc09b60e2464648b00c0eec..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbEvents.pas
+++ /dev/null
@@ -1,349 +0,0 @@
-//*************************************************************
-// EwbEvents *
-// *
-// Freeware Unit *
-// For Delphi *
-// by *
-// Serge Voloshenyuk *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbEvents.pas,v 1.1.2.1 2006/11/29 22:13:01 sergev Exp $
-
-unit EwbEvents;
-
-interface
-
-{$I EWB.inc}
-
-uses
-
- Windows, Classes, ActiveX, Mshtml_Ewb, EwbClasses, wbhFixes;
-
-type
- TSinkKind = (
- skElement,
- skLink,
- skForm,
- skControl,
- skTextContainer,
- skImg,
- skAnchor,
- skLabel,
- skSelect,
- skButton,
- skInputText,
- skOptionButton,
- skInputFile,
- skInputImage,
- skMarquee,
- skWindow,
- skDocument,
- skMap,
- skArea,
- skTable,
- skScript,
- skObject,
- skFrameSite,
- skStyle,
- skNamespace
- );
-
- TEventID = Integer;
-const
- heOnAbort = 1000;
- heOnChange = 1001; //f
- heOnError = 1002;
- // HTMLWindowEvents2.onerror(const description: WideString; const url: WideString; line: Integer); dispid 1002;
- heOnLoad = 1003;
- heOnSelect = 1006;
- heOnSubmit = 1007; //f
- heOnUnload = 1008;
- heOnBounce = 1009;
- heOnFinish = 1010;
- heOnStart = 1011;
- heOnScroll = 1014;
- heOnReset = 1015; //f
- heOnresize = 1016;
- heOnBeforeUnload = 1017;
- heOncontextmenu = 1023; //f
- heOnBeforePrint = 1024;
- heOnAfterPrint = 1025;
- heOnStop = 1026; //f
- heOnBeforeEditFocus = 1027;
- heOnlayoutcomplete = 1030;
- heOnPage = 1031;
- heOnMousewheel = 1033; //f
- heOnBeforeDeactivate = 1034; //f
- heOnMove = 1035;
- heOnControlSelect = 1036; //f
- heOnSelectionChange = 1037;
- heOnMoveStart = 1038; //f
- heOnMoveEnd = 1039;
- heOnResizeStart = 1040; //f
- heOnResizeEnd = 1041;
- heOnMouseEnter = 1042;
- heOnMouseLeave = 1043;
- heOnActivate = 1044;
- heOnDeactivate = 1045;
- heOnBeforeActivate = 1047; //f
- heOnfocusIn = 1048;
- heOnfocusOut = 1049;
-
- heOnClick = -600; //f
- heOnDblClick = -601; //f
- heOnKeyDown = -602;
- heOnKeyPress = -603; //f
- heOnKeyUp = -604;
- heOnMouseDown = -605;
- heOnMouseMove = -606;
- heOnMouseUp = -607;
- heOnReadyStateChange = -609;
-
- heOnCellChange = -2147418078;
- heOnRowsInserted = -2147418079;
- heOnRowsDelete = -2147418080;
- heOnBeforePaste = -2147418081; //f
- heOnBeforeCopy = -2147418082; //f
- heOnBeforeCut = -2147418083; //f
- heOnPaste = -2147418084; //f
- heOnCopy = -2147418085; //f
- heOnCut = -2147418086; //f
- heOnDrop = -2147418087; //f
- heOnDragLeave = -2147418088;
- heOnDragOver = -2147418089; //f
- heOnDragEnter = -2147418090; //f
- heOnDragEnd = -2147418091;
- heOnDrag = -2147418092; //f
- // heOnObjReadyStateChange = -2147418092; //HTMLObjectElementEvents2
- heOnPropertyChange = -2147418093;
- // heOnObjError = -2147418093; //f HTMLObjectElementEvents2
- heOnLoseCapture = -2147418094;
- heOnFilterChange = -2147418095;
- heOnDatasetComplete = -2147418096;
- heOnDataAvailable = -2147418097;
- heOnDatasetChanged = -2147418098;
- heOnErrorUpdate = -2147418099; //f
- heOnSelectStart = -2147418100; //f
- heOnDragStart = -2147418101; //f
- heOnHelp = -2147418102; //f
- heOnMouseOut = -2147418103;
- heOnMouseOver = -2147418104;
- heOnRowEnter = -2147418105;
- heOnRowExit = -2147418106; //f
- heOnAfterUpdate = -2147418107;
- heOnBeforeUpdate = -2147418108; //f
- heOnFocus = -2147418111;
- heOnBlur = -2147418112;
-
-type
- IHubLink = interface
- ['{EC22D916-CC24-4D88-A7ED-20C5E9AE0852}']
- procedure Disconnect;
- end;
-
- TMshtmlHandler = function(Sender: IUnknown): Boolean of object;
-
- TMSHTMLEventHandler = class(TInterfacedDispatchObject, IDispatchEx)
- private
- FHandler: TMshtmlHandler;
- protected
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
- override; stdcall;
- {IDispatchEx}
- function GetDispID(const bstrName: TBSTR; const grfdex: DWORD;
- out id: TDispID): HResult; stdcall;
- function InvokeEx(const id: TDispID; const lcid: LCID; const wflags:
- WORD; const pdp: PDispParams; out varRes: OleVariant; out pei:
- TExcepInfo; const pspCaller: PServiceProvider): HResult; stdcall;
- function DeleteMemberByName(const bstr: TBSTR;
- const grfdex: DWORD): HResult; stdcall;
- function DeleteMemberByDispID(const id: TDispID): HResult; stdcall;
- function GetMemberProperties(const id: TDispID; const grfdexFetch:
- DWORD; out grfdex: DWORD): HResult; stdcall;
- function GetMemberName(const id: TDispID; out bstrName: TBSTR):
- HResult; stdcall;
- function GetNextDispID(const grfdex: DWORD; const id: TDispID;
- out nid: TDispID): HResult; stdcall;
- function GetNameSpaceParent(out unk: IUnknown): HResult; stdcall;
- public
- constructor Create(Handler: TMshtmlHandler);
- destructor Destroy; override;
- end;
-
-function MSHTMLEventHandler(Handler: TMshtmlHandler): IDispatchEx;
-const
- mshtmlEventGUIDs: array[TSinkKind] of PGUID = (
- @DIID_HTMLElementEvents2, //IHTMLElement
- @DIID_HTMLLinkElementEvents2, //IHTMLLinkElement
- @DIID_HTMLFormElementEvents2, //IHTMLFormElement
- @DIID_HTMLControlElementEvents2, //IHTMLControlElement
- @DIID_HTMLTextContainerEvents2, //IHTMLTextContainer
- @DIID_HTMLImgEvents2, //IHTMLImgElement
- @DIID_HTMLAnchorEvents2, //IHTMLAnchorElement
- @DIID_HTMLLabelEvents2, //IHTMLLabelElement
- @DIID_HTMLSelectElementEvents2, //IHTMLSelectElement
- @DIID_HTMLButtonElementEvents2, //IHTMLButtonElement
- @DIID_HTMLInputTextElementEvents2, //IHTMLInputTextElement
- @DIID_HTMLOptionButtonElementEvents2, //IHTMLOptionButtonElement
- @DIID_HTMLInputFileElementEvents2, //IHTMLInputFileElement
- @DIID_HTMLInputImageEvents2, //IHTMLInputImage
- @DIID_HTMLMarqueeElementEvents2, //IHTMLMarqueeElement
- @DIID_HTMLWindowEvents2, //IHTMLWindow2
- @DIID_HTMLDocumentEvents2, //IHTMLDocument
- @DIID_HTMLMapEvents2, //IHTMLMapElement
- @DIID_HTMLAreaEvents2, //IHTMLAreaElement
- @DIID_HTMLTableEvents2, //IHTMLTable
- @DIID_HTMLScriptEvents2, //IHTMLScriptElement
- @DIID_HTMLObjectElementEvents2, //IHTMLObjectElement
- @DIID_HTMLFrameSiteEvents2,
- @DIID_HTMLStyleElementEvents2, //IHTMLStyleElement
- @DIID_HTMLNamespaceEvents //IHTMLNamespace
- );
-
-implementation
-uses SysUtils;
-
-{ TMSHTMLEventHandler }
-
-function MSHTMLEventHandler(Handler: TMshtmlHandler): IDispatchEx;
-begin
- Result := TMSHTMLEventHandler.Create(Handler) as IDispatchEx;
-end;
-
-constructor TMSHTMLEventHandler.Create(Handler: TMshtmlHandler);
-begin
- inherited Create;
- FHandler := Handler;
-end;
-
-destructor TMSHTMLEventHandler.Destroy;
-begin
- inherited;
-end;
-
-function TMSHTMLEventHandler.DeleteMemberByDispID(const id: TDispID): HResult;
-begin
- Result := S_FALSE;
-end;
-
-function TMSHTMLEventHandler.DeleteMemberByName(const bstr: TBSTR;
- const grfdex: DWORD): HResult;
-begin
- Result := S_FALSE;
-end;
-
-function TMSHTMLEventHandler.GetDispID(const bstrName: TBSTR;
- const grfdex: DWORD; out id: TDispID): HResult;
-begin
- Result := DISP_E_UNKNOWNNAME;
-end;
-
-function TMSHTMLEventHandler.GetMemberName(const id: TDispID;
- out bstrName: TBSTR): HResult;
-begin
- Result := DISP_E_UNKNOWNNAME;
-end;
-
-function TMSHTMLEventHandler.GetMemberProperties(const id: TDispID;
- const grfdexFetch: DWORD; out grfdex: DWORD): HResult;
-begin
- Result := DISP_E_UNKNOWNNAME;
-end;
-
-function TMSHTMLEventHandler.GetNameSpaceParent(
- out unk: IUnknown): HResult;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TMSHTMLEventHandler.GetNextDispID(const grfdex: DWORD;
- const id: TDispID; out nid: TDispID): HResult;
-begin
- Result := S_FALSE;
-end;
-
-function TMSHTMLEventHandler.Invoke(DispID: Integer; const IID: TGUID;
- LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
- ArgErr: Pointer): HResult;
-var
- Instance: IUnknown;
- R: Boolean;
-begin
- Result := S_OK;
- if (Flags and DISPATCH_METHOD = 0) then Exit;
- try
- Instance := POleVariant(TDispParams(Params).rgvarg)^;
- R := FHandler(Instance);
- if VarResult <> nil then
- POleVariant(VarResult)^ := R;
- except
- on E: Exception do
- begin
- Result := DISP_E_EXCEPTION;
- with PExcepInfo(ExcepInfo)^ do
- begin
- wCode := 9999;
- bstrDescription := E.Message;
- bstrSource := E.ClassName;
- dwHelpContext := E.HelpContext;
- end;
- end;
- end;
-end;
-
-
-function TMSHTMLEventHandler.InvokeEx(const id: TDispID; const lcid: LCID;
- const wflags: WORD; const pdp: PDispParams; out varRes: OleVariant;
- out pei: TExcepInfo; const pspCaller: PServiceProvider): HResult;
-var
- Instance: IUnknown;
-begin
- Result := S_OK;
- if (wflags and DISPATCH_METHOD = 0) then Exit;
- try
- Instance := POleVariant(pdp.rgvarg)^;
- varRes := FHandler(Instance);
- except
- on E: Exception do
- begin
- Result := DISP_E_EXCEPTION;
- with pei do
- begin
- wCode := 9999;
- bstrDescription := E.Message;
- bstrSource := E.ClassName;
- dwHelpContext := E.HelpContext;
- end;
- end;
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbEventsComp.pas b/windows/src/ext/embeddedwb/Source/EwbEventsComp.pas
deleted file mode 100644
index 9fac6738eca5b95776301ea788b5f41e54623403..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbEventsComp.pas
+++ /dev/null
@@ -1,756 +0,0 @@
-//*************************************************************
-// EwbEventsComp *
-// *
-// Freeware Component *
-// For Delphi *
-// by *
-// Serge Voloshenyuk *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbEventsComp.pas,v 1.1.2.1 2006/11/29 22:13:01 sergev Exp $
-
-unit EwbEventsComp;
-
-interface
-
-{$I EWB.inc}
-
-uses
-{$IFDEF DELPHI6_UP}Variants, {$ENDIF}
- Windows, Classes, ActiveX, Mshtml_Ewb, EwbAcc, EwbClasses, EwbEvents;
-
-type
- THtmlListener = class;
-
- TEventEnum = (
- eiUnknown,
- eiOnAbort,
- eiOnChange,
- eiOnError,
- eiOnLoad,
- eiOnSelect,
- eiOnSubmit,
- eiOnUnload,
- eiOnBounce,
- eiOnFinish,
- eiOnStart,
- eiOnScroll,
- eiOnReset,
- eiOnresize,
- eiOnBeforeUnload,
- eiOncontextmenu,
- eiOnBeforePrint,
- eiOnAfterPrint,
- eiOnStop,
- eiOnBeforeEditFocus,
- eiOnlayoutcomplete,
- eiOnpage,
- eiOnmousewheel,
- eiOnbeforedeactivate,
- eiOnmove,
- eiOncontrolselect,
- eiOnSelectionChange,
- eiOnmoveStart,
- eiOnmoveEnd,
- eiOnresizeStart,
- eiOnresizeEnd,
- eiOnmouseEnter,
- eiOnmouseLeave,
- eiOnActivate,
- eiOnDeactivate,
- eiOnBeforeActivate,
- eiOnfocusIn,
- eiOnfocusOut,
- eiOnClick,
- eiOnDblClick,
- eiOnKeyDown,
- eiOnKeyPress,
- eiOnKeyUp,
- eiOnMouseDown,
- eiOnMouseMove,
- eiOnMouseUp,
- eiOnReadyStateChange,
- eiOnCellChange,
- eiOnRowsInserted,
- eiOnRowsDelete,
- eiOnBeforePaste,
- eiOnBeforeCopy,
- eiOnBeforeCut,
- eiOnPaste,
- eiOnCopy,
- eiOnCut,
- eiOnDrop,
- eiOnDragLeave,
- eiOnDragOver,
- eiOnDragEnter,
- eiOnDragEnd,
- eiOnDrag,
- eiOnPropertyChange,
- eiOnLoseCapture,
- eiOnFilterChange,
- eiOnDatasetComplete,
- eiOnDataAvailable,
- eiOnDatasetChanged,
- eiOnErrorUpdate,
- eiOnSelectStart,
- eiOnDragStart,
- eiOnHelp,
- eiOnMouseOut,
- eiOnMouseOver,
- eiOnRowEnter,
- eiOnRowExit,
- eiOnAfterUpdate,
- eiOnBeforeUpdate,
- eiOnFocus,
- eiOnBlur
- );
-
- TMSHTMLDelegate = procedure(Sender: TObject; Event: IHTMLEventObj) of object;
-
- TEventHandlerItem = class(TCollectionItem)
- private
- FEventID: TEventEnum;
- FEvID: TEventID;
- FOnHandle: TMSHTMLDelegate;
- procedure setEventID(const Value: TEventEnum);
- protected
- procedure AssignTo(Dest: TPersistent); override;
- function GetDisplayName: string; override;
- public
- function GetNamePath: string; override;
- published
- property EventID: TEventEnum read FEventID write setEventID;
- property OnHandle: TMSHTMLDelegate read FOnHandle write FOnHandle;
- end;
-
- THandlerCollection = class(TCollection)
- private
- FOwner: THtmlListener;
- function GetItem(Index: Integer): TEventHandlerItem;
- protected
- function GetOwner: TPersistent; override;
- procedure Update(Item: TCollectionItem); override;
- public
- constructor Create(AOwner: THtmlListener);
- function Add: TEventHandlerItem;
- property Items[Index: Integer]: TEventHandlerItem read GetItem; default;
- end;
-
- THtmlListenerLink = class;
-
- THtmlListener = class(TComponent, IDispatch)
- private
- FHandlers: THandlerCollection;
- FDispList: TList;
- FSinkKind: TSinkKind;
- FSinkIID: PGUID;
- Flink: THtmlListenerLink;
- procedure setHandlers(const Value: THandlerCollection);
- procedure setSinkKind(const Value: TSinkKind);
- protected
- { IInterface }
- function QueryInterface(const IID: TGUID; out Obj): HRESULT; override;
- stdcall;
- { IDispatch }
- function GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT; stdcall;
- function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HRESULT;
- stdcall;
- function GetTypeInfoCount(out Count: Integer): HRESULT; stdcall;
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
- stdcall;
- protected
- procedure FillDispList;
- procedure Update(Item: TEventHandlerItem);
- procedure AddDisp(Item: TEventHandlerItem);
- function Find(DispID: TEventID; var Index: Integer): Boolean;
- procedure DispatchEvent(Sender: TObject; DispID: TEventID; Event:
- IHTMLEventObj);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Connect(Source: IUnknown); overload;
- function Connect2(Source: IUnknown; aAgent: TObject = nil): IHubLink;
- published
- property Handlers: THandlerCollection read fHandlers write setHandlers;
- property SinkKind: TSinkKind read FSinkKind write setSinkKind default
- skElement;
- end;
-
- THtmlListenerLink = class(TInterfacedDispatchObject, IHubLink)
- private
- FHub: THtmlListener;
- FCP: IConnectionPoint;
- FAgent: TObject;
- FSinkCookies: Integer;
- protected
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
- override; stdcall;
- procedure Connect(Source: IUnknown);
- public
- constructor Create(aHub: THtmlListener; aAgent: TObject);
- procedure Disconnect;
- end;
-
-implementation
-
-uses
- SysUtils, EwbCoreTools;
-
-const
- _eventids: array[TEventEnum] of TEventID = (
- TEventID(0),
- heOnAbort,
- heOnChange,
- heOnError,
- heOnLoad,
- heOnSelect,
- heOnSubmit,
- heOnUnload,
- heOnBounce,
- heOnFinish,
- heOnStart,
- heOnScroll,
- heOnReset,
- heOnresize,
- heOnBeforeUnload,
- heOncontextmenu,
- heOnBeforePrint,
- heOnAfterPrint,
- heOnStop,
- heOnBeforeEditFocus,
- heOnlayoutcomplete,
- heOnpage,
- heOnmousewheel,
- heOnbeforedeactivate,
- heOnmove,
- heOncontrolselect,
- heOnSelectionChange,
- heOnmoveStart,
- heOnmoveEnd,
- heOnresizeStart,
- heOnresizeEnd,
- heOnmouseEnter,
- heOnmouseLeave,
- heOnActivate,
- heOnDeactivate,
- heOnBeforeActivate,
- heOnfocusIn,
- heOnfocusOut,
-
- heOnClick,
- heOnDblClick,
- heOnKeyDown,
- heOnKeyPress,
- heOnKeyUp,
- heOnMouseDown,
- heOnMouseMove,
- heOnMouseUp,
- heOnReadyStateChange,
-
- heOnCellChange,
- heOnRowsInserted,
- heOnRowsDelete,
- heOnBeforePaste,
- heOnBeforeCopy,
- heOnBeforeCut,
- heOnPaste,
- heOnCopy,
- heOnCut,
- heOnDrop,
- heOnDragLeave,
- heOnDragOver,
- heOnDragEnter,
- heOnDragEnd,
- heOnDrag,
- heOnPropertyChange,
- heOnLoseCapture,
- heOnFilterChange,
- heOnDatasetComplete,
- heOnDataAvailable,
- heOnDatasetChanged,
- heOnErrorUpdate,
- heOnSelectStart,
- heOnDragStart,
- heOnHelp,
- heOnMouseOut,
- heOnMouseOver,
- heOnRowEnter,
- heOnRowExit,
- heOnAfterUpdate,
- heOnBeforeUpdate,
- heOnFocus,
- heOnBlur
- );
-
- _eventNames: array[TEventEnum] of string = (
- '',
- 'OnAbort',
- 'OnChange',
- 'OnError',
- 'OnLoad',
- 'OnSelect',
- 'OnSubmit',
- 'OnUnload',
- 'OnBounce',
- 'OnFinish',
- 'OnStart',
- 'OnScroll',
- 'OnReset',
- 'Onresize',
- 'OnBeforeUnload',
- 'Oncontextmenu',
- 'OnBeforePrint',
- 'OnAfterPrint',
- 'OnStop',
- 'OnBeforeEditFocus',
- 'Onlayoutcomplete',
- 'Onpage',
- 'Onmousewheel',
- 'Onbeforedeactivate',
- 'Onmove',
- 'Oncontrolselect',
- 'OnSelectionChange',
- 'OnmoveStart',
- 'OnmoveEnd',
- 'OnresizeStart',
- 'OnresizeEnd',
- 'OnmouseEnter',
- 'OnmouseLeave',
- 'OnActivate',
- 'OnDeactivate',
- 'OnBeforeActivate',
- 'OnfocusIn',
- 'OnfocusOut',
-
- 'OnClick',
- 'OnDblClick',
- 'OnKeyDown',
- 'OnKeyPress',
- 'OnKeyUp',
- 'OnMouseDown',
- 'OnMouseMove',
- 'OnMouseUp',
- 'OnReadyStateChange',
-
- 'OnCellChange',
- 'OnRowsInserted',
- 'OnRowsDelete',
- 'OnBeforePaste',
- 'OnBeforeCopy',
- 'OnBeforeCut',
- 'OnPaste',
- 'OnCopy',
- 'OnCut',
- 'OnDrop',
- 'OnDragLeave',
- 'OnDragOver',
- 'OnDragEnter',
- 'OnDragEnd',
- 'OnDrag',
- 'OnPropertyChange',
- 'OnLoseCapture',
- 'OnFilterChange',
- 'OnDatasetComplete',
- 'OnDataAvailable',
- 'OnDatasetChanged',
- 'OnErrorUpdate',
- 'OnSelectStart',
- 'OnDragStart',
- 'OnHelp',
- 'OnMouseOut',
- 'OnMouseOver',
- 'OnRowEnter',
- 'OnRowExit',
- 'OnAfterUpdate',
- 'OnBeforeUpdate',
- 'OnFocus',
- 'OnBlur'
- );
-
- { TEventHandlerItem }
-
-procedure TEventHandlerItem.AssignTo(Dest: TPersistent);
-begin
- if Dest is TEventHandlerItem then
- with TEventHandlerItem(Dest) do
- begin
- EventID := Self.EventID;
- OnHandle := Self.OnHandle;
- end
- else
- inherited AssignTo(Dest);
-end;
-
-function TEventHandlerItem.GetDisplayName: string;
-begin
- if FEventID = eiUnknown then
- Result := inherited GetDisplayName
- else
- Result := _eventNames[FEventID];
-end;
-
-function TEventHandlerItem.GetNamePath: string;
-begin
- if Collection <> nil then
- Result := Collection.GetNamePath + GetDisplayName
- else
- Result := ClassName;
-end;
-
-procedure TEventHandlerItem.setEventID(const Value: TEventEnum);
-begin
- if FEventID <> Value then
- begin
- FEventID := Value;
- FEvID := _eventids[FEventID];
- try
- Changed(False);
- except
- FEventID := eiUnknown;
- FEvID := 0;
- raise;
- end;
- end;
-end;
-
-{ THandlerCollection }
-
-function THandlerCollection.Add: TEventHandlerItem;
-begin
- Result := TEventHandlerItem(inherited Add);
-end;
-
-constructor THandlerCollection.Create(AOwner: THtmlListener);
-begin
- inherited Create(TEventHandlerItem);
- FOwner := AOwner;
-end;
-
-function THandlerCollection.GetItem(Index: Integer): TEventHandlerItem;
-begin
- Result := TEventHandlerItem(inherited GetItem(Index));
-end;
-
-function THandlerCollection.GetOwner: TPersistent;
-begin
- Result := FOwner;
-end;
-
-procedure THandlerCollection.Update(Item: TCollectionItem);
-begin
- FOwner.Update(TEventHandlerItem(Item));
-end;
-
-{ THtmlListener }
-
-constructor THtmlListener.Create(AOwner: TComponent);
-begin
- inherited;
- FHandlers := THandlerCollection.Create(Self);
- FSinkKind := skElement;
- FSinkIID := @DIID_HTMLElementEvents2;
-end;
-
-destructor THtmlListener.Destroy;
-begin
- FHandlers.Free;
- FDispList.Free;
- inherited;
-end;
-
-procedure THtmlListener.Connect(Source: IUnknown);
-var
- pcpc: IConnectionPointContainer;
- cp: IConnectionPoint;
- c: Integer;
-{$IFDEF DELPHI5}
- SelfIntf: IDispatch;
-{$ENDIF DELPHI5}
-begin
- if Supports(Source, IConnectionPointContainer, pcpc) and
- (pcpc.FindConnectionPoint(FSinkIID^, cp) = S_OK) then
- begin
-{$IFDEF DELPHI5}
- GetInterFace(IDispatch, SelfIntf);
- if cp.Advise(SelfIntf, c) <> S_OK then
-{$ELSE}
- if cp.Advise(Self, c) <> S_OK then
-{$ENDIF}
- raise Exception.Create('Error on IConnectionPoint.Advise');
- end
- else
-{$IFDEF DELPHI6_UP}
- raise Exception.CreateFmt('Source don''t have connection point for [%s]',
- [GUIDToString(FSinkIID^)]);
-{$ENDIF}
-end;
-
-
-function THtmlListener.Connect2(Source: IUnknown;
- aAgent: TObject = nil): IHubLink;
-begin
- Flink := THtmlListenerLink.Create(Self, aAgent);
- Flink.Connect(Source);
- Result := Flink as IHubLink;
-end;
-
-procedure THtmlListener.setHandlers(const Value: THandlerCollection);
-begin
- FHandlers.Assign(Value);
-end;
-
-procedure THtmlListener.setSinkKind(const Value: TSinkKind);
-begin
- FSinkKind := Value;
- FSinkIID := mshtmlEventGUIDs[Value];
-end;
-
-procedure THtmlListener.Update(Item: TEventHandlerItem);
-begin
- if csDestroying in ComponentState then
- Exit;
- if FDispList = nil then
- FDispList := TList.Create;
- if Item = nil then
- FillDispList
- else
- begin
- FDispList.Remove(Item);
- if Item.EventID <> eiUnknown then
- AddDisp(Item);
- end;
-end;
-
-procedure THtmlListener.AddDisp(Item: TEventHandlerItem);
-var
- I: Integer;
-begin
- if Find(Item.fEvID, I) then
- raise Exception.CreateFmt('Handler with EventID = %s already exists.',
- [_eventNames[Item.EventID]]);
- FDispList.Insert(I, Item);
-end;
-
-procedure THtmlListener.FillDispList;
-var
- I: Integer;
-begin
- FDispList.Clear;
- FDispList.Capacity := FHandlers.Count;
- for I := 0 to FHandlers.Count - 1 do
- if FHandlers[I].EventID <> eiUnknown then
- AddDisp(FHandlers[I]);
-end;
-
-function THtmlListener.Find(DispID: TEventID; var Index: Integer): Boolean;
-var
- L, H, I: Integer;
-begin
- Result := False;
- if FDispList = nil then
- Exit;
-
- L := 0;
- H := FDispList.Count - 1;
- while L <= H do
- begin
- I := (L + H) shr 1;
- if TEventHandlerItem(FDispList[I]).FEvID < DispID then
- L := I + 1
- else
- begin
- H := I - 1;
- if TEventHandlerItem(FDispList[I]).FEvID = DispID then
- begin
- Result := True;
- Index := I;
- Exit;
- end;
- end;
- end;
- Index := L;
-end;
-
-procedure THtmlListener.DispatchEvent(Sender: TObject; DispID: TEventID;
- Event: IHTMLEventObj);
-var
- I: Integer;
-begin
- if Find(DispID, I) then
- with TEventHandlerItem(FDispList[I]) do
- if Assigned(OnHandle) then
- OnHandle(Sender, Event);
-end;
-
-function THtmlListener.QueryInterface(const IID: TGUID; out Obj): HRESULT;
-{$IFDEF DELPHI5}
-var
- SelfIntf: IDispatch;
-{$ENDIF}
-begin
- Result := S_OK;
- if GetInterface(IID, Obj) then
- Exit;
- if IsEqualGuid(IID, fSinkIID^) then
-{$IFDEF DELPHI5}
- begin
- GetInterface(IDispatch, SelfIntf);
- IUnknown(Obj) := SelfIntf;
- end
-{$ELSE}
- IUnknown(Obj) := Self as IDispatch
-{$ENDIF}
- else
- Result := E_NOINTERFACE;
-end;
-
-function THtmlListener.GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function THtmlListener.GetTypeInfo(Index, LocaleID: Integer;
- out TypeInfo): HRESULT;
-begin
- Result := DISP_E_BADINDEX;
-end;
-
-function THtmlListener.GetTypeInfoCount(out Count: Integer): HRESULT;
-begin
- Count := 0;
- Result := S_OK;
-end;
-
-function THtmlListener.Invoke(DispID: Integer; const IID: TGUID;
- LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
- ArgErr: Pointer): HRESULT;
-var
- Event: IHTMLEventObj;
-begin
- Result := S_OK;
- try
- if Flags and DISPATCH_METHOD <> 0 then
- begin
- if (TDispParams(Params).cArgs = 0) or
- not VarSupports(POleVariant(TDispParams(Params).rgvarg)^, IHTMLEventObj,
- Event) then
- Event := nil;
- DispatchEvent(Self, TEventID(DispID), Event);
- // if VarResult<>nil then
- // POleVariant(VarResult)^ := False;
- end;
- except
- on E: Exception do
- begin
- Result := DISP_E_EXCEPTION;
- with PExcepInfo(ExcepInfo)^ do
- begin
- wCode := 9999;
- bstrDescription := E.Message;
- bstrSource := E.ClassName;
- dwHelpContext := E.HelpContext;
- end;
- end;
- end;
-end;
-
-
-{ THtmlListenerLink }
-
-constructor THtmlListenerLink.Create(aHub: THtmlListener; aAgent: TObject);
-begin
- inherited Create;
- FHub := aHub;
- FAgent := aAgent;
-end;
-
-procedure THtmlListenerLink.Disconnect;
-begin
- if FCP <> nil then
- try
- FCP.Unadvise(FSinkCookies);
- finally
- FCP := nil;
- end;
-end;
-
-procedure THtmlListenerLink.Connect(Source: IUnknown);
-var
- pcpc: IConnectionPointContainer;
-begin
- if Supports(Source, IConnectionPointContainer, pcpc) and
- (pcpc.FindConnectionPoint(fHub.fSinkIID^, FCP) = S_OK) then
- begin
- if FCP.Advise(Self, FSinkCookies) <> S_OK then
- raise Exception.Create('Error on IConnectionPoint.Advise');
- end
- else
-{$IFDEF DELPHI6_UP}
- raise Exception.CreateFmt('Source don''t have connection point for [%s]',
- [GUIDToString(FHub.FSinkIID^)]);
-{$ENDIF}
-end;
-
-function THtmlListenerLink.Invoke(DispID: Integer; const IID: TGUID;
- LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
- ArgErr: Pointer): HRESULT;
-var
- Event: IHTMLEventObj;
-begin
- Result := S_OK;
- try
- if Flags and DISPATCH_METHOD <> 0 then
- begin
- if (TDispParams(Params).cArgs = 0) or
- not VarSupports(POleVariant(TDispParams(Params).rgvarg)^, IHTMLEventObj,
- Event) then
- Event := nil;
- FHub.DispatchEvent(FAgent, TEventID(DispID), Event);
- end;
- except
- on E: Exception do
- begin
- Result := DISP_E_EXCEPTION;
- with PExcepInfo(ExcepInfo)^ do
- begin
- wCode := 9999;
- bstrDescription := E.Message;
- bstrSource := E.ClassName;
- dwHelpContext := E.HelpContext;
- end;
- end;
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbFocusControl.pas b/windows/src/ext/embeddedwb/Source/EwbFocusControl.pas
deleted file mode 100644
index 909f204f370207c3717fdd4432eb2243ec69e4ca..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbFocusControl.pas
+++ /dev/null
@@ -1,200 +0,0 @@
-//***********************************************************
-// TEWBFocusControl unit *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// (smot) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbFocusControl;
-
-{$I EWB.inc}
-
-interface
-
-uses
- Windows, Messages, Classes, Forms, Controls;
-
-// -- TEWBFocusControl ---------------------------------------------------------
-
-type
- TEWBFocusControl = class { Singleton }
- private
- constructor Create;
- public
- class procedure Activate(Value: Boolean);
- end;
-
- // Enable TEWBApplicationHook, if accessible at runtime only
- // Enable_HookMainWindow must be defined in EWB.inc
- // EWBHookMainWindow is activated by default.
-
-var
- EWBEnableFocusControl: Boolean = True; // DO NOT CHANGE HERE
-
-implementation
-
-uses
- EwbCoreTools;
-
-// -- FreeAndNil (SysUtils) ----------------------------------------------------
-
-procedure FreeAndNil(var Obj);
-var
- Temp: TObject;
-begin
- try
- Temp := TObject(Obj);
- finally
- Pointer(Obj) := nil;
- end;
- Temp.Free;
-end;
-
-// -- TAppHookWindow ----------------------------------------------------------
-
-type
- TAppHookWindow = class(TWinControl)
- private
- FHookSet: Boolean;
- function MessageHook(var Msg: TMessage): Boolean;
- public
- destructor Destroy; override;
- procedure Activate;
- procedure Deactivate;
- end;
-
-var
- EWBAppHookInstance: TAppHookWindow;
-
- // -- TEWBFocusControl ---------------------------------------------------------
-
-constructor TEWBFocusControl.Create;
-begin
- inherited;
- if EWBEnableFocusControl then
- begin
- if EWBAppHookInstance = nil then
- begin
- EWBAppHookInstance := TAppHookWindow.Create(nil);
- EWBAppHookInstance.Activate;
- end;
- end;
-end;
-
-class procedure TEWBFocusControl.Activate(Value: Boolean)
- {: TEWBApplicationHook};
-const
-{$J+}
- Instance: TEWBFocusControl = nil;
-{$J-}
-begin
- if EWBEnableFocusControl then
- case Value of
- True:
- begin
- if not Assigned(Instance) then
- Instance := Create;
- end;
- False:
- begin
- if Assigned(EWBAppHookInstance) then
- FreeAndNil(EWBAppHookInstance);
- if Assigned(Instance) then
- FreeAndNil(Instance);
- end;
- end;
-end;
-
-// -- TAppHookWindow -----------------------------------------------------------
-
-function TAppHookWindow.MessageHook(var Msg: TMessage): Boolean;
-var
- ActiveControl: TWinControl;
- ActiveForm: TCustomForm;
- bContinue: Boolean;
-// s: string;
-begin
- Result := False;
- if (Msg.Msg = WM_WINDOWPOSCHANGING) or (Msg.Msg = CM_ACTIVATE) then
- begin
- ActiveForm := Screen.ActiveForm;
- if Assigned(ActiveForm) then
- begin
- if Screen.ActiveForm.FormStyle = fsMDIChild then // Check if MDI
- bContinue := IsChild(GetActiveWindow, ActiveForm.Handle)
- else
- bContinue := not Forms.Application.Terminated and ActiveForm.HandleAllocated and
- (ActiveForm.Handle = GetActiveWindow);
-
- if bContinue and (ActiveForm.CanFocus) then
- begin
- ActiveControl := ActiveForm.ActiveControl;
- // s := '** MessageHook ' + ActiveControl.ClassName + ' ' + Inttostr(ActiveForm.Handle) + ' ' + Inttostr(GetFocus);
- // OutputDebugString(PChar(s));
- if Assigned(ActiveControl) and ((ActiveControl.ClassName = 'TEmbeddedWB') or
- (ActiveControl.ClassName = 'TEWBCore')) then
- if GetFocus <> ActiveControl.Handle then
- begin
- PostMessage(ActiveControl.Handle, WM_SETWBFOCUS, Integer(ActiveControl), 0);
- // OutputDebugString(PChar('Focus set'));
- // ActiveControl.SetFocus doesn't work when switching between forms.
- end;
- end;
- end;
- end;
-end;
-
-destructor TAppHookWindow.Destroy;
-begin
- inherited;
- Deactivate;
-end;
-
-procedure TAppHookWindow.Activate;
-begin
- if (not FHookSet) and EWBEnableFocusControl then
- if Assigned(Application) then
- begin
- Application.HookMainWindow(MessageHook);
- FHookSet := True;
- end;
-end;
-
-procedure TAppHookWindow.Deactivate;
-begin
- if Assigned(Application) then
- begin
- Application.UnHookMainWindow(MessageHook);
- FHookSet := False;
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbReg.pas b/windows/src/ext/embeddedwb/Source/EwbReg.pas
deleted file mode 100644
index 832e4971de003ff02415097299969068b21811e0..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbReg.pas
+++ /dev/null
@@ -1,153 +0,0 @@
-//**************************************************************
-// *
-// Ewb_Reg *
-// *
-// For Delphi *
-// by *
-// bsalsa - Eran Bodankin - bsalsa@gmail.com *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbReg;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Actions,
- Classes, {$IFDEF DELPHI6_UP}DesignEditors, DesignIntf, {$ELSE}DsgnIntf, {$ENDIF}
- EwbEditors, AppWebUpdater, IEParser, ExportFavorites, FavoritesTree, IETravelLog,
- FavMenu, FavoritesListView, FavoritesPopup, HistoryMenu, HistoryListView,
- ImportFavorites, LibXmlComps, LibXmlParser, LinksBar, RichEditBrowser,
- SecurityManager, SendMail_For_Ewb, UrlHistory, Edithost, EditDesigner,
- IEAddress, IEDownload, IEMultiDownload, EwbCore, EmbeddedWB, EwbControlComponent, IECache, Browse4Folder,
- FileExtAssociate, LinksLabel, UI_Less,
-{$IFDEF DELPHI6_UP}EwbEventsComp, EwbBehaviorsComp, {$ENDIF}EwbActns;
-
-procedure Register;
-
-implementation
-
-uses
- SysUtils, ActnList;
-
-procedure Register;
-begin
- RegisterComponents('Embedded Web Browser', [
- TBrowse4Folder,
-{$IFDEF DELPHI6_UP}
- TEwbBehaviorFactory,
- TEwbBehaviorController,
-{$ENDIF}
- TEasyXmlScanner,
- TEditDesigner,
- TEdithost,
- TEmbeddedWB,
- TEwbCore,
- TEwbControl,
- TEwbMapiMail,
- TExportFavorite,
- TFavoritesListView,
- TFavoritesMenu,
- TFavoritesPopup,
- TFavoritesTree,
- TFileExtAssociate,
- THistoryListView,
- THistoryMenu,
-{$IFDEF DELPHI6_UP}
- THtmlListener,
-{$ENDIF}
- TIEAddress,
- TIECache,
- TIEDownload,
- TIEMultiDownload,
- TIEParser,
- TIETravelLog,
- TImportFavorite,
- TLinksLabel,
- TLinksBar,
- TRichEditWB,
- TSecurityManager,
- TUILess,
- TUrlHistory,
- TWebUpdater,
- TXmlScanner
- ]);
-
-
- RegisterComponentEditor(TBrowse4Folder, TBFFEditor);
-{$IFDEF DELPHI6_UP}
- RegisterComponentEditor(TEwbBehaviorFactory, TEwbCompEditor);
- RegisterComponentEditor(TEwbBehaviorController, TEwbCompEditor);
-{$ENDIF}
- RegisterComponentEditor(TEasyXmlScanner, TEwbCompEditor);
- RegisterComponentEditor(TEditDesigner, TEwbCompEditor);
- RegisterComponentEditor(TEdithost, TEwbCompEditor);
- RegisterComponentEditor(TEmbeddedWB, TEwbCompEditor);
- RegisterComponentEditor(TEwbCore, TEwbCompEditor);
- RegisterComponentEditor(TEwbControl, TEwbCompEditor);
- RegisterComponentEditor(TEwbMapiMail, TEwbCompEditor);
- RegisterComponentEditor(TExportFavorite, TEwbCompEditor);
- RegisterComponentEditor(TFavoritesListView, TEwbCompEditor);
- RegisterComponentEditor(TFavoritesMenu, TEwbCompEditor);
- RegisterComponentEditor(TFavoritesTree, TEwbCompEditor);
- RegisterComponentEditor(TFileExtAssociate, TEwbCompEditor);
- RegisterComponentEditor(THistoryListView, TEwbCompEditor);
- RegisterComponentEditor(THistoryMenu, TEwbCompEditor);
-{$IFDEF DELPHI6_UP}
- RegisterComponentEditor(THtmlListener, TEwbCompEditor);
-{$ENDIF}
- RegisterComponentEditor(TIEAddress, TEwbCompEditor);
- RegisterComponentEditor(TIECache, TEwbCompEditor);
- RegisterComponentEditor(TIEDownload, TEwbCompEditor);
- RegisterComponentEditor(TIEMultiDownload, TEwbCompEditor);
- RegisterComponentEditor(TIEParser, TEwbCompEditor);
- RegisterComponentEditor(TIETravelLog, TEwbCompEditor);
- RegisterComponentEditor(TImportFavorite, TEwbCompEditor);
- RegisterComponentEditor(TLinksLabel, TEwbCompEditor);
- RegisterComponentEditor(TLinksBar, TEwbCompEditor);
- RegisterComponentEditor(TRichEditWB, TEwbCompEditor);
- RegisterComponentEditor(TSecurityManager, TEwbCompEditor);
- RegisterComponentEditor(TUILess, TEwbCompEditor);
- RegisterComponentEditor(TUrlHistory, TEwbCompEditor);
- RegisterComponentEditor(TWebUpdater, TEwbCompEditor);
- RegisterComponentEditor(TXmlScanner, TEwbCompEditor);
-
-
- RegisterPropertyEditor(TypeInfo(WideString), TIEDownload, 'DownloadDir', TBrowse4FolderDLG);
- RegisterPropertyEditor(TypeInfo(WideString), TIEParser, 'LocalFileName', TOpenFileDLG);
- RegisterPropertyEditor(TypeInfo(WideString), TIEParser, 'SaveLogAs', TSaveTextDLG);
- RegisterPropertyEditor(TypeInfo(WideString), TBrowse4Folder, 'InitialDir', TBrowse4FolderDLG);
-{$IFDEF DELPHI6_UP}
- RegisterPropertyEditor(TypeInfo(WideString), TEmbeddedWB, 'HostCSS', TMultiStringProperty);
-{$ENDIF}
- RegisterActions('EmbeddedWB', [TEwbLinkAction], nil);
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/EwbTools.pas b/windows/src/ext/embeddedwb/Source/EwbTools.pas
deleted file mode 100644
index 2ccf767d8fcbfbb1b3a167b5548314a2db7c3977..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbTools.pas
+++ /dev/null
@@ -1,3938 +0,0 @@
-(*
- Name: EwbTools
- Copyright: Copyright (C) 2003-2017 SIL International.
- Documentation:
- Description:
- Create Date: 1 May 2014
-
- Modified Date: 1 May 2014
- Authors: mcdurdin
- Related Files:
- Dependencies:
-
- Bugs:
- Todo:
- Notes:
- History: 01 May 2014 - mcdurdin - I4214 - V9.0 - Keyman spams message 0x0401 and frequent timer messages too
-
-*)
-//***********************************************************
-// EwbTools *
-// *
-// For Delphi *
-// Freeware unit *
-// by *
-// bsalsa, Smot, *
-// per lindso larsen *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit EwbTools;
-
-interface
-
-{$I EWB.inc}
-
-uses
- System.Types, System.UITypes,
- EwbAcc, Windows, Classes, ExtCtrls, ShlObj, Graphics, Dialogs, ActiveX,
-{$IFDEF DELPHI6_UP}Variants, {$ENDIF}
- MSHTML_EWB, SHDocVw_EWB, EmbeddedWB, URLMon;
-
-var
- PrintingWithOptions: Boolean;
-
-//Document and Frame
-function DocumentLoaded(Document: IDispatch): Boolean;
-procedure AssignEmptyDocument(WebBrowser: TEmbeddedWB);
-
-//Html
-function AddHtmlToAboutBlank(WebBrowser: TEmbeddedWB; StringToHtml: string): Boolean;
-function DocumentSourceText(OleObject: Variant; Document: IDispatch): string;
-function DocumentSource(OleObject: Variant): string;
-function GetWordAtCursor(const X, Y: Integer; WebBrowser: TEmbeddedWB): string;
-
-//frames
-function GetFrame(Document: IDispatch; FrameNo: Integer): IWebBrowser2;
-function GetFrameFromDocument(SourceDoc: IHTMLDocument2; FrameNo: Integer): IWebBrowser2; //By Aladin
-function FrameCount(Document: IDispatch): Longint;
-function FrameCountFromDocument(SourceDoc: IHTMLDocument2): Integer; //By Aladin
-
-//Document Operations
-procedure SetFocusToDoc(WebBrowser: TEmbeddedWB; Dispatch, Document: IDispatch);
-function CMD_Copy(Document: IDispatch): Boolean;
-function Cmd_Paste(Document: IDispatch): Boolean;
-function Cmd_Cut(Document: IDispatch): Boolean;
-function SelectAll(Document: IDispatch): Boolean;
-function UnSelectAll(Document: IDispatch): Boolean;
-
-//scroll
-procedure ScrollToTop(OleObject: Variant);
-procedure ScrollToPosition(OleObject: Variant; X, Y: Integer);
-procedure ScrollToBottom(Document: IDispatch);
-procedure ScrollToID(ID: Integer; WebBrowser: TEmbeddedWB);
-procedure ScrollToIDEx(ID: string; WebBrowser: TEmbeddedWB);
-procedure GetScrollBarVisibility(WebBrowser: TEmbeddedWB; var HScroll, VScroll: Boolean);
-function GetScrollBarPosition(WebBrowser: TEmbeddedWB; var ScrollPos: TPoint): Boolean;
-
-// zoom
-function Zoom(Document: IDispatch; ZoomValue: Integer): Boolean;
-function ZoomValue(Document: IDispatch): Integer;
-function ZoomRangeHigh(Document: IDispatch): Integer;
-function ZoomRangeLow(Document: IDispatch): Integer;
-
-function SetCharartersSet(WebBrowser: TEmbeddedWB; Document: IDispatch; const ACharactersSet: string; Refresh: Boolean = True): Boolean;
-procedure GetThumbnail(Dispatch: IDispatch; var Image: TImage);
-function GetBmpFromBrowser(Document: IDispatch; Handle: THandle; Width, Height: Integer; FileName: string): Boolean;
-function GetJPEGfromBrowser(Document: IDispatch; ControlInterface: IWebBrowser2; FileName: string; SourceHeight, SourceWidth, TargetHeight, TargetWidth: Integer): Boolean;
-
-//View Document Fields/Properties/Images
-procedure ViewPageLinksToStrings(OleObject: Variant; LinksList: TStrings);
-procedure ViewPageSourceHTMLToStrings(OleObject: Variant; Document: IDispatch; HtmlList: TStrings);
-procedure ViewPageSourceTextToStrings(OleObject: Variant; Document: IDispatch; TextList: TStrings);
-procedure ViewPageSourceText(OleObject: Variant; Document: IDispatch);
-
-//Save
-function SaveDocToStrings(Document: IDispatch; var AStrings: TStrings): HRESULT;
-function SaveDocToStream(Document: IDispatch; var AStream: TStream): HRESULT;
-function SaveDocToFile(Document: IDispatch; const Fname: string): HRESULT;
-
-//Printing
-procedure Print(ControlInterface: IWebBrowser2; bHideSetup: Boolean = False; bCustomHeaderFooter: Boolean = False; Header: string = ''; Footer: string = '');
-procedure PrintWithOptions(ControlInterface: IWebBrowser2; Document: IDispatch; UsePrintOptions, PrintOptionsEnabled, HideSetup: Boolean; var InvokingPageSetup: Boolean);
-procedure PrintPreview(Webbrowser: IWebBrowser2);
-procedure PrintPreviewExtended(ControlInterface: IWebBrowser2; nCMDShow: Integer; HideSetup: Boolean);
-procedure PrintPreviewFromTemplate(const TemplateFileName: string; Document: IDispatch);
-function PageSetup(Document: IDispatch; UsePrintOptions, PrintOptionsEnabled: Boolean; var InvokingPageSetup: Boolean): Boolean;
-procedure PrintSetup(ControlInterface: IWebBrowser2; HideSetup: Boolean);
-procedure GetPrintValues(WebBrowser: TEmbeddedWB; PrintOptions: TPrintOptions; Measure: TMeasure);
-function PrintMarginStr(Measure, RuntimeMeasure: TMeasure; M: Real): string;
-procedure RestorePrintValues;
-
-//Dialogs
-function OpenDialog(WebBrowser: TEmbeddedWB; AOwner: TComponent): Boolean;
-function SaveDialog(Document: IDispatch): Boolean; overload;
-function SaveDialog(WebBrowser: TEmbeddedWB; AOwner: TComponent; ATitle: string = ''; AFilter: string = ''): string; overload;
-
-function ShowInternetOptions(Document: IDispatch): Boolean;
-function ShowPageProperties(Document: IDispatch): Boolean;
-function ShowOrganizeFavorites(Handle: THandle): Boolean;
-procedure ShowImportExportFavoritesAndCookies(Handle: THandle);
-function ShowFindDialog(Document: IDispatch): Boolean;
-procedure SaveImagesDialog(OleObject: Variant; Document: IDispatch);
-function ViewPageSourceHtml(Document: IDispatch): Boolean;
-procedure SavePageTextDialog(AOwner: TComponent; OleObject: Variant; Document: IDispatch);
-
-//Open external programs
-procedure OpenAddressBook;
-procedure OpenEudoraMail;
-procedure OpenOutlookExpressMail;
-procedure OpenOutlookMail;
-procedure OpenRegistryEditor;
-function OpenCalendar: Boolean;
-function OpenClient(Client: string): Boolean;
-function OpenNetMeeting: Boolean;
-function OpenNewsClient: Boolean;
-procedure DoExploreFolder(Handle: THandle; Path: string);
-procedure OpenIEBrowserWithAddress(Handle: THandle);
-
-//Open specific webpages
-function OpenHotmailMail(WebBrowser: TEmbeddedWB): Boolean;
-function OpenYahooMail(WebBrowser: TEmbeddedWB): Boolean;
-function OpenGoogleMail(WebBrowser: TEmbeddedWB): Boolean;
-procedure GoSearchInGoogle(WebBrowser: TEmbeddedWB; SearchTerm: string);
-procedure GoSearchInMSN(WebBrowser: TEmbeddedWB; SearchTerm: string);
-procedure GoSearchInYahoo(WebBrowser: TEmbeddedWB; SearchTerm: string);
-
-//Navigate & Download
-procedure Go(WebBrowser: TEmbeddedWB; Url: string);
-procedure GoWithQueryDetails(WebBrowser: TEmbeddedWB; Url, Query: string);
-procedure GoNoHistory(WebBrowser: TEmbeddedWB; const URL: string);
-procedure NavigatePidl(WebBrowser: TEmbeddedWB; pidl: PItemIdList);
-procedure GoAboutBlank(WebBrowser: TEmbeddedWB);
-procedure GoDownloadFile(WebBrowser: TEmbeddedWB; URL: string);
-function DownloadFile(SourceFile, TargetFile: string): Boolean;
-procedure GoDownloadMaskedFile(SourceFile, TargetFile: string; Notify: Boolean);
-
-//Get Special Folders/URL paths etc.
-function GetSpecialFolderPath(CallerHandle: THandle; CSIDL: Integer): PChar;
-function GetShellFolderPath(FolderName: Widestring): string;
-function GetIEHomePage: string;
-function GetCachePath: string;
-function GetCachedFileFromURL(ItemUrl: string): string;
-function GetDefaultBrowserFromRegistry: string;
-function GetIPAndHostName(var HostName, IPaddr, WSAErr: string): Boolean;
-
-
-//E-Mail functions
-procedure SendPageInMailAsAttachment(WebBrowser: TEmbeddedWB; AOwner: TComponent; Document: IDispatch; mFileName, mSubject, mBody: string);
-function CreateNewMail: Boolean;
-procedure SendUrlInMail(LocationURL, LocationName: WideString);
-
-//Search in Document & Fill Forms
-function SearchString(Webbrowser: TEmbeddedWB; const strText: string): Boolean;
-//function SearchText(WebBrowser: TEmbeddedWB; Document: IDispatch; const Value: string; const iPos: Integer = 1): IHTMLTxtRange;
-function SearchText(WebBrowser: TEmbeddedWB; Document: IDispatch; const Value: string; aTypeSearch: Integer; const iPos: Integer = 1): IHTMLTxtRange;
-
-procedure SearchAndHighlight(Document: IDispatch;
- AText: string; const ACaption, APrompt: string; Flags: TSearchFlags = [];
- cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll; ShowInputQuery: Boolean = True); overload;
-
-procedure SearchAndHighlight(Document: IDispatch; aText: string; Flags: TSearchFlags = [];
- cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll); overload;
-
-procedure SetTextAreaValue(Document: IDispatch; sName, sValue: string; Options: TFindOptions);
-function FillForm(WebBrowser: TEmbeddedWB; FieldName, FieldValue: string; ElementNr: Integer = -1): Boolean; overload;
-function FillForm(Document: IDispatch; FieldName: string; FieldValue: string; ElementNr: Integer = -1): Boolean; overload;
-
-function FillForm(WebBrowser: TEmbeddedWB; FieldName: string; FieldValue: string; Value: Boolean): Boolean; overload;
-
-
-function GetFieldValue(OleObject: Variant; FieldName: string): string;
-procedure ClickInputImage(WebBrowser: TEmbeddedWB; ImageURL: string);
-
-procedure FillIEFormAndExcecute;
-
-//Clearing
-procedure ClearCache;
-procedure ClearTypedUrls;
-
-//Online Status
-function CheckOnlineStatus: Boolean;
-function IsGlobalOffline: Boolean;
-procedure WorkOffline();
-procedure WorkOnline();
-
-//Restricted & Trusted Lists
-function CheckIfInRestricredList(const Host: string; SecureSite: Boolean): Boolean;
-function CheckIfInTrustedList(const Host: string; SecureSite: Boolean): Boolean;
-procedure AddToTrustedSiteList(WebBrowser: TEmbeddedWB; const URL: string);
-procedure AddToRestrictedSiteList(WebBrowser: TEmbeddedWB; const URL: string);
-
-//Zone Icon, Security Zone, SSL Status
-procedure GetZoneIcon(IconPath: string; var Icon: TIcon);
-function GetZoneIconToForm(LocationURL: string; Caption, Hint: string): Boolean;
-function GetZoneAttributes(const URL: string): TZoneAttributes;
-function GetSSLStatus(OleObject: Variant; LocationURL: string; var SSLName, SSLDescription: string): Boolean;
-function GetUrlSecurityZone(LocationURL: string; var ZoneName, ZoneDescription: string; var Icon: TIcon): Boolean;
-
-//Proxy & User agent
-function SetProxy(UserAgent, Address, Bypass: string): Boolean; overload;
-function SetProxy(UserAgent, Address, UserName, Password: string; Port: Integer): Boolean; overload;
-function SetProxyFromPAC(UserAgent, PACFile: string): Boolean;
-
-function RemoveProxy(): Boolean;
-procedure RemoveUserAgent(UserAgent: string);
-
-//MIME Filter & NameSpace
-function RegisterMIMEFilter(clsid: TGUID; MIME: PWideChar): HRESULT;
-function UnregisterMIMEFilter(MIME: PWideChar): HRESULT;
-function RegisterNameSpace(clsid: TGUID): HRESULT;
-function UnregisterNameSpace: HRESULT;
-
-//Cookies
-function GetCookiesPath: string;
-procedure ClearSessionCookies;
-
-//Favorites
-function OrganizeFavorite(h: THandle; Path: PAnsiChar): Boolean; stdcall; overload;
-{$IFDEF UNICODE}
-function OrganizeFavorite(h: THandle; Path: PWideChar): Boolean; overload;
-{$ENDIF UNICODE}
-
-function URLFromFavorites(const dotURL: string): string;
-function GetFavoritesPath: string;
-procedure AddToFavorites(URL, Title: string);
-
-//History
-function GetHistoryPath: string;
-function UrlFromHistory(ShellFolder: IShellFolder; pidl: PItemIDList): string;
-procedure ClearHistory;
-
-//Pages
-procedure SetNewHomePage(HomePage: string);
-function GetLastVisitedPage(var LastVisitedPage: string): Boolean;
-function SaveLastVisitedPage(WebBrowser: TEmbeddedWB; LocationURL: string): Boolean;
-
-//Code accessories
-procedure Wait(WebBrowser: TEmbeddedWB);
-function InvokeCMD(Document: IDispatch; InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant): HRESULT;
-function GetIEHandle(WebBrowser: TEmbeddedWB; ClassName: string): HWND;
-
-//Execute Script
-procedure ExecScript(WebBrowser: TEmbeddedWB; sExpression, sLanguage: string);
-function ExecScriptEx(WebBrowser: TEmbeddedWB; MethodName: string; ParamValues: array of const): OleVariant;
-function WBExecScript(TargetObj: IDispatch; MethodName: string; ParamValues: array of const): OleVariant;
-
-//Miscellaneous
-procedure RestoreApplicationFormSize(WebBrowser: TEmbeddedWB);
-procedure SaveApplicationFormSize(WebBrowser: TEmbeddedWB);
-procedure ShowIEVersionInfo(Handle: THandle);
-procedure CreateDesktopShortcut(Handle: THandle);
-procedure DisableNavSound(bDisable: Boolean);
-
-//----- add to ewb-------------------------------------------------------
-function ConcatPIDLs(IDList1, IDList2: PItemIDList): PItemIDList;
-function CopyITEMID(Malloc: IMalloc; ID: PItemIDList): PItemIDList;
-function CopyPIDL(IDList: PItemIDList): PItemIDList;
-function CreatePIDL(Size: Integer): PItemIDList;
-function DeleteUrl(Url: PWideChar): HResult;
-function Encode(const S: string): string;
-function ExtractUrl(ShellFolder: IShellFolder; pidl: PItemIDList): string;
-function GetDisplayName(Folder: IShellFolder; pidl: PItemIDList): string;
-function GetFileName(Folder: IShellFolder; pidl: PItemIDList): string;
-function GetIEVersion: string;
-function GetIEVersionMajor: Integer;
-function GetImageIndex(pidl: PItemIDList): Integer;
-function GetMailClients: TStrings;
-function GetPIDLSize(IDList: PItemIDList): Integer;
-function IE5_Installed: Boolean;
-function IsChannel(ChannelShortcut: string; ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
-function IsFolder(ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
-function IsFolderEx(ChannelShortcut: string; ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
-
-
-
-
-function NextPIDL(IDList: PItemIDList): PItemIDList;
-function ResolveChannel(pFolder: IShellFolder; pidl: PItemIDList; var lpszURL: string): HRESULT;
-function ResolveLink(const Path: string): string;
-function ResolveUrlIni(FileName: string): string;
-function ResolveUrlIntShCut(FileName: string): string;
-function StringToVarArray(const S: string): Variant;
-function URLFromShortcut(const dotURL: string): string;
-function VarArrayToString(const V: Variant): string;
-procedure DisposePIDL(ID: PItemIDList);
-procedure StripLastID(IDList: PItemIDList);
-function IsWinXPSP2OrLater(): Boolean;
-function EncodeUrl(const InputStr: string; const bQueryStr: Boolean): string;
-function DecodeURL(const InputStr: string): string;
-function IsValidProtocol(URL: string): Boolean;
-function ImportCertFile(AFileName, AStoreType: string): Boolean;
-//--end of add to ewb---------------------------------
-
-implementation
-
-uses
- Registry, ShellAPI, Controls, Messages, Forms, SysUtils,
- OleCtrls, WinInet, SendMail_For_EWB, ComObj, EwbIEConst, IniFiles, JPEG, WinSock,
- Wcrypt2, Browse4Folder, EWBCoreTools;
-
-type
- OSVERSIONINFOEX = packed record
- dwOSVersionInfoSize: DWORD;
- dwMajorVersion: DWORD;
- dwMinorVersion: DWORD;
- dwBuildNumber: DWORD;
- dwPlatformId: DWORD;
- szCSDVersion: array[0..127] of Char;
- wServicePackMajor: WORD;
- wServicePackMinor: WORD;
- wSuiteMask: WORD;
- wProductType: BYTE;
- wReserved: BYTE;
- end;
- TOSVersionInfoEx = OSVERSIONINFOEX;
- POSVersionInfoEx = ^TOSVersionInfoEx;
-
-
-type
- fn_VerifyVersionInfo = function(var VersionInformation: OSVERSIONINFOEX;
- dwTypeMask: DWORD; dwlConditionMask: LONGLONG): BOOL; stdcall;
- fn_VerSetConditionMask = function(ConditionMask: LONGLONG; TypeMask: DWORD;
- Condition: Byte): LONGLONG; stdcall;
-
-function ImportCertFile(AFileName, AStoreType: string): Boolean;
-var
- f: file; //by Ray
- encCert: PByte;
- encCertLen: DWORD;
- store: HCERTSTORE;
- context: PCCERT_CONTEXT;
- n: PCCERT_CONTEXT;
- encType: DWORD;
-begin
- Result := False;
- if FileExists(AFileName) then
- begin
- AssignFile(f, AFileName);
- Reset(f, 1);
- encCertLen := FileSize(f);
- GetMem(encCert, encCertLen);
- BlockRead(f, encCert^, encCertLen);
- CloseFile(f);
- try
- encType := PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;
- context := CertCreateCertificateContext(encType, encCert, encCertLen);
- if context <> nil then
- begin
- store := CertOpenSystemStore(0, PChar(AStoreType));
- if store <> nil then
- begin
- n := nil;
- Result := CertAddCertificateContextToStore(store, context,
- CERT_STORE_ADD_REPLACE_EXISTING, n);
- CertCloseStore(store, 0);
- CertFreeCertificateContext(context);
- end;
- end;
- finally
- FreeMem(encCert, encCertLen);
- end;
- end;
-end;
-
-function IsWinXPSP2OrLater(): Boolean;
-var
- osvi: TOSVersionInfoEx;
- dwlConditionMask: LONGLONG;
- op: Integer;
- hlib: THandle;
- VerifyVersionInfo: fn_VerifyVersionInfo;
- VerSetConditionMask: fn_VerSetConditionMask;
-begin
- Result := False;
- hLib := LoadLibrary('kernel32.dll');
- if (hLib <> 0) then
- begin
- @VerifyVersionInfo := GetProcAddress(hLib, 'VerifyVersionInfoA');
- @VerSetConditionMask := GetProcAddress(hLib, 'VerSetConditionMask');
- if ((@VerifyVersionInfo = nil) or (@VerSetConditionMask = nil)) then
- Exit;
-
- dwlConditionMask := 0;
- op := VER_GREATER_EQUAL;
-
- // Initialize the OSVERSIONINFOEX structure.
- ZeroMemory(@osvi, SizeOf(OSVERSIONINFOEX));
- osvi.dwOSVersionInfoSize := SizeOf(OSVERSIONINFOEX);
- osvi.dwMajorVersion := 5;
- osvi.dwMinorVersion := 1;
- osvi.wServicePackMajor := 2;
- osvi.wServicePackMinor := 0;
-
- // Initialize the condition mask.
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_MAJORVERSION, op);
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_MINORVERSION, op);
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_SERVICEPACKMAJOR, op);
- dwlConditionMask := VerSetConditionMask(dwlConditionMask, VER_SERVICEPACKMINOR, op);
-
- // Perform the test.
- Result := VerifyVersionInfo(osvi, VER_MAJORVERSION or VER_MINORVERSION or
- VER_SERVICEPACKMAJOR or VER_SERVICEPACKMINOR, dwlConditionMask);
- end;
-end;
-
-function EncodeURL(const InputStr: string; const bQueryStr: Boolean): string;
-var
- Idx: Integer;
-begin
- Result := '';
- for Idx := 1 to Length(InputStr) do
- begin
- case InputStr[Idx] of
- 'A'..'Z', 'a'..'z', '0'..'9', '-', '_', '.':
- Result := Result + InputStr[Idx];
- ' ':
- if bQueryStr then
- Result := Result + '+'
- else
- Result := Result + '%20';
- else
- Result := Result + '%' + SysUtils.IntToHex(Ord(InputStr[Idx]), 2);
- end;
- end;
-end;
-
-function DecodeURL(const InputStr: string): string;
-var
- Idx: Integer;
- Hex: string;
- Code: Integer;
-begin
- Result := '';
- Idx := 1;
- while Idx <= Length(InputStr) do
- begin
- case InputStr[Idx] of
- '%':
- begin
- if Idx <= Length(InputStr) - 2 then
- begin
- Hex := InputStr[Idx + 1] + InputStr[Idx + 2];
- Code := SysUtils.StrToIntDef('$' + Hex, -1);
- Inc(Idx, 2);
- end
- else
- Code := -1;
- if Code = -1 then
- raise SysUtils.EConvertError.Create('Invalid HEX digit in URL');
- Result := Result + Chr(Code);
- end;
- '+':
- Result := Result + ' '
- else
- Result := Result + InputStr[Idx];
- end;
- Inc(Idx);
- end;
-end;
-
-function IsValidProtocol(URL: string): Boolean;
-const
- Protocols: array[1..11] of string = ('ftp://', 'http://', 'https://',
- 'gopher://', 'mailto:', 'news:', 'nntp://', 'telnet://', 'wais://',
- 'file://', 'prospero://');
-var
- I: Integer;
-begin
- Result := False;
- URL := SysUtils.LowerCase(URL);
- for I := Low(Protocols) to High(Protocols) do
- if Pos(Protocols[I], URL) <> 0 then
- begin
- Result := True;
- Break;
- end;
-end;
-
-function DocumentLoaded(Document: IDispatch): Boolean;
-var
- iDoc: IHTMLDocument2;
-begin
- Result := False;
- if Assigned(Document) then
- begin
- Document.QueryInterface(IHTMLDocument2, iDoc);
- Result := Assigned(iDoc);
- end;
-end;
-
-procedure AssignEmptyDocument(WebBrowser: TEmbeddedWB);
-begin
- WebBrowser.Go('about:blank');
-end;
-
-function AddHtmlToAboutBlank(WebBrowser: TEmbeddedWB; StringToHtml: string): Boolean;
-var
- Flags, TargetFrameName, PostData, Headers: OleVariant;
-begin
- WebBrowser.Navigate('about:' + StringToHtml, Flags, TargetFrameName, PostData, Headers);
- Result := True;
-end;
-
-function GetWordAtCursor(const X, Y: Integer; WebBrowser: TEmbeddedWB): string;
-var
- Doc: IHTMLDocument2;
- Selection: IHTMLSelectionObject;
- Range: IHTMLTxtRange;
-begin
- Result := '';
- if WebBrowser.DocumentLoaded(Doc) then
- begin
- Selection := (Doc as IHTMLDocument2).selection;
- if Assigned(Selection) then
- begin
- Range := Selection.createRange as IHTMLTxtRange;
- Range.moveToPoint(X, Y);
- Range.moveStart('word', -1);
- Range.moveEnd('word', 1);
- Result := Trim(Range.text);
- end;
- end;
-end;
-
-procedure PrintPreviewFromTemplate(const TemplateFileName: string; Document: IDispatch);
-var
- OleCommandTarget: IOleCommandTarget;
- ParamIn, EmptyParam: OleVariant;
-begin
- if Assigned(Document) then
- begin
- EmptyParam := EmptyStr;
- Document.QueryInterface(IID_IoleCommandTarget, OLECOMMANDTARGET);
- ParamIn := TemplateFileName;
- OleCommandTarget.Exec(
- nil,
- OLECMDID_PRINTPREVIEW,
- OLECMDEXECOPT_PROMPTUSER,
- ParamIn, EmptyParam);
- end;
-end;
-
-procedure ScrollToIDEx(ID: string; WebBrowser: TEmbeddedWB);
-var
- Doc3: IHTMLDocument3;
- Elem: IHTMLElement;
- RV: IHTMLRect;
-begin
- Doc3 := WebBrowser.Doc3;
- if Assigned(Doc3) then
- begin
- Elem := Doc3.getElementById(ID);
- if Assigned(Elem) then
- begin
- RV := (Elem as IHTMLElement2).getBoundingClientRect;
- Webbrowser.Doc2.parentWindow.scrollBy(RV.left, RV.top);
- end;
- end;
-end;
-
-procedure ScrollToID(ID: Integer; WebBrowser: TEmbeddedWB);
-var
- Doc: IHTMLDocument2;
- ACollection: IHTMLElementCollection;
- Elem: IHTMLElement;
- Match: IHTMLElement2;
- I: Integer;
- S: string;
- RV: IHTMLRect;
-begin
- if WebBrowser.DocumentLoaded(Doc) then
- begin
- ACollection := Doc.all;
- if Assigned(ACollection) then
- begin
- Match := nil;
- S := IntToStr(ID);
- for I := 0 to ACollection.length - 1 do
- begin
- Elem := ACollection.item(I, '') as IHTMLElement;
- if Assigned(Elem) and (Elem.id = S) then
- begin
- Match := Elem as IHTMLElement2;
- Break;
- end;
- end;
- if Assigned(Match) then
- begin
- RV := Match.getBoundingClientRect;
- WebBrowser.Doc2.parentWindow.scrollBy(RV.left, RV.top);
- end;
- end;
- end;
-end;
-
-// Get SysListView32 Child from the Webbrowser Control
-
-function GetWBLV(WBHandle: HWND): HWND;
-var
- WND: HWND;
-begin
- Result := 0;
- Wnd := GetNextWindow(WBHandle, GW_CHILD);
- while (Result = 0) and (WND <> 0) do
- begin
- Result := FindWindowEx(Wnd, 0, 'SysListView32', nil);
- Wnd := GetNextWindow(Wnd, GW_CHILD)
- end;
-end;
-
-// Check if the horizontal / vertical Scrollbars are visible
-
-procedure GetScrollBarVisibility(WebBrowser: TEmbeddedWB; var HScroll, VScroll: Boolean);
-var
- WndLV: HWND;
- IDoc: IHTMLDocument2;
-begin
- VScroll := False;
- HScroll := False;
- WndLV := GetWBLV(WebBrowser.Handle);
- if WndLV = 0 then
- begin
- if Assigned(WebBrowser.Document) and (Succeeded(WebBrowser.Document.QueryInterface(IHTMLDocument2, IDoc))) then
- begin
- IDoc := WebBrowser.Document as IHTMLDocument2;
- if Assigned(IDoc) and Assigned((IHTMLDocument2(IDoc).Body)) then
- begin
- VScroll := WebBrowser.OleObject.Document.body.ScrollHeight > WebBrowser.OleObject.Document.Body.ClientHeight;
- HScroll := (WebBrowser.OleObject.Document.body.ScrollWidth > WebBrowser.OleObject.Document.Body.ClientWidth);
- end;
- end;
- end else
- begin
- // if the WB is in "ListView" mode:
- VScroll := ((GetWindowLong(WndLV, GWL_STYLE) and WS_VSCROLL) <> 0);
- HScroll := ((GetWindowLong(WndLV, GWL_STYLE) and WS_HSCROLL) <> 0)
- end;
-end;
-
-// Get TEmbeddedWB Scrollbar X,Y Position
-
-function GetScrollBarPosition(WebBrowser: TEmbeddedWB; var ScrollPos: TPoint): Boolean;
-
- // Get Scrollbar X,Y Position of the ListView
- function WB_GetLVScrollPosition(WebBrowser: TEmbeddedWB; var ScrollPos: TPoint): Boolean;
- var
- lpsi: TScrollInfo;
- WndLV: HWND;
- begin
- Result := False;
- // Retrieve SysListView32 Child of TEmbeddedWB
- WndLV := GetWBLV(WebBrowser.Handle);
- if WndLV <> 0 then // SysListView32 found
- begin
- // initialize TScrollInfo
- FillChar(lpsi, SizeOf(lpsi), 0);
- with lpsi do
- begin
- cbSize := SizeOf(lpsi);
- fMask := SIF_POS;
- end;
- // Get ScrollInfos from the vertical Scrollbar
- if GetScrollInfo(WndLV, SB_VERT, lpsi) then
- begin
- ScrollPos.Y := lpsi.nPos;
- // Get ScrollInfos from the horizontal Scrollbar
- if GetScrollInfo(WndLV, SB_HORZ, lpsi) then
- begin
- ScrollPos.X := lpsi.nPos;
- Result := True;
- end;
- end;
- end;
- end;
-
- // Get Scrollbar X,Y Position of the HTML Document
- function WB_GetDOCScrollPosition(WebBrowser: TEmbeddedWB; var ScrollPos: TPoint): Boolean;
- var
- IDoc: IHTMLDocument2;
- IDoc3: IHTMLDocument3;
- IElement: IHTMLElement;
- begin
- ScrollPos := Point(-1, -1);
- Result := False;
- if Assigned(WebBrowser.Document) and (Succeeded(WebBrowser.Document.QueryInterface(IHTMLDocument2, IDoc))) then
- begin
- IDoc := WebBrowser.Document as IHTMLDocument2;
- if Assigned(IDoc) and Assigned((IHTMLDocument2(IDoc).Body)) then
- begin
- if (IDoc.QueryInterface(IHTMLDocument3, IDoc3) = S_OK) then
- if Assigned(IDoc3) then
- IElement := IDoc3.get_documentElement;
- if (Assigned(IElement)) and (Variant(IDoc).DocumentElement.scrollTop = 0) then
- ScrollPos.Y := IHTMLDocument2(IDoc).Body.getAttribute('ScrollTop', 0)
- else
- ScrollPos.Y := Variant(IDoc).DocumentElement.scrollTop;
- if Assigned(IElement) and (Variant(IDoc).DocumentElement.scrollLeft = 0) then
- ScrollPos.X := IHTMLDocument2(IDoc).Body.getAttribute('ScrollLeft', 0)
- else
- ScrollPos.X := Variant(IDoc).DocumentElement.scrollLeft
- end;
- Result := (ScrollPos.X <> -1) and (ScrollPos.Y <> -1)
- end;
- end;
-
-begin
- Result := WB_GetDOCScrollPosition(WebBrowser, ScrollPos);
- if not Result then
- Result := WB_GetLVScrollPosition(WebBrowser, ScrollPos);
-end;
-
-function DocumentSource(OleObject: Variant): string;
-var
- Strings: TStringList;
-begin
- Strings := TStringList.Create;
- try
- ViewPageSourceHTMLToStrings(OleObject, OleObject.Document, Strings);
- Result := Strings.Text;
- finally
- FreeAndNil(Strings);
- end;
-end;
-
-function DocumentSourceText(OleObject: Variant; Document: IDispatch): string;
-var
- Strings: TStringList;
-begin
- Strings := TStringList.Create;
- try
- EwbTools.ViewPageSourceTextToStrings(OleObject, Document, Strings);
- Result := Strings.Text;
- finally
- FreeAndNil(Strings);
- end;
-end;
-
-function GetFrame(Document: IDispatch; FrameNo: Integer): IWebBrowser2;
-var
- OleContainer: IOleContainer;
- enum: ActiveX.IEnumUnknown;
- unk: IUnknown;
- Fetched: PLongint;
-begin
- if Assigned(Document) then
- begin
- Fetched := nil;
- OleContainer := Document as IOleContainer;
- if OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum) = S_OK then
- begin
- Enum.Skip(FrameNo);
- Enum.Next(1, Unk, Fetched);
- Result := Unk as IWebBrowser2;
- end else
- Result := nil;
- end
- else
- Result := nil;
-end;
-
-function FrameCount(Document: IDispatch): LongInt;
-var //fix by Aladin
- OleContainer: IOleContainer;
- enum: ActiveX.IEnumUnknown;
- FetchedContrs: LongInt;
- Unknown: IUnknown;
- IWeb: IWebBrowser2;
-begin
- Result := 0; //bsalsa
- if not DocumentLoaded(Document) then Exit;
- OleContainer := Document as IOleContainer;
- if OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum) = S_OK then
- begin
- while Enum.Next(1, Unknown, @FetchedContrs) = S_OK do
- begin
- if Unknown.QueryInterface(IID_IWebBrowser2, IWeb) = S_OK then //check if it is frame
- Inc(Result);
- end;
- end;
-end;
-
-function FrameCountFromDocument(SourceDoc: IHTMLDocument2): Integer;
-var //by Aladin
- OleContainer: IOleContainer;
- enum: ActiveX.IEnumUnknown;
- unk: array[0..99] of IUnknown; // CHANGED from "unk: IUnknown;"
- EnumResult: HRESULT;
-begin
- Result := 0;
- if not DocumentLoaded(SourceDoc) then Exit;
- OleContainer := SourceDoc as IOleContainer;
- EnumResult := OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum);
- if EnumResult = S_OK then
- // Added per OLE help
- Enum.Next(100, Unk, @Result)
- else // Added per OLE help
- Enum := nil;
-end;
-
-procedure SetFocusToDoc(WebBrowser: TEmbeddedWB; Dispatch, Document: IDispatch);
-begin
- if DocumentLoaded(Document) then
- with (Dispatch as IOleObject) do
- DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser, 0, WebBrowser.Handle, WebBrowser.ClientRect);
-end;
-
-function CMD_Copy(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, False, OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function CMD_Paste(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, False, OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function CMD_Cut(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, False, OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function SelectAll(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, False, OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function UnSelectAll(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, False, OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-procedure ScrollToTop(OleObject: Variant);
-begin
- try
- if DocumentLoaded(OleObject.Document) then
- OleObject.Document.ParentWindow.ScrollTo(0, 0);
- except
- end;
-end;
-
-procedure ScrollToPosition(OleObject: Variant; X, Y: Integer);
-begin
- try
- if DocumentLoaded(OleObject.Document) then
- OleObject.Document.ParentWindow.ScrollTo(X, Y);
- except
- end;
-end;
-
-procedure ScrollToBottom(Document: IDispatch);
-var
- HTMLParentWin: IHTMLWindow2;
- Doc2: IHTMLDocument2;
-begin
- try
- if Supports(Document, IHTMLDocument2, Doc2) then
- begin
- // OleObject.Document.ParentWindow.ScrollTo(0, MaxInt); doesn't work in IE8
- HTMLParentWin := IHTMLWindow2((Doc2 as IHTMLDocument2).parentWindow);
- HTMLParentWin.scrollBy(0, (Doc2.body as IHTMLElement2).scrollHeight);
- end;
- except
- end;
-end;
-
-function Zoom(Document: IDispatch; ZoomValue: Integer): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- if ZoomValue < ZoomRangeLow(Document) then
- vaIn := ZoomRangeLow(Document)
- else
- if ZoomValue > ZoomRangeHigh(Document) then
- vaIn := ZoomRangeHigh(Document)
- else
- vaIn := ZoomValue;
- Result := InvokeCmd(Document, False, OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut) = S_OK;
-end;
-
-function ZoomValue(Document: IDispatch): Integer;
-var
- vaIn, vaOut: OleVariant;
-begin
- vaIn := null;
- InvokeCmd(Document, False, OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Result := vaOut;
-end;
-
-function ZoomRangeHigh(Document: IDispatch): Integer;
-var
- vaIn, vaOut: OleVariant;
-begin
- InvokeCmd(Document, False, OLECMDID_GETZOOMRANGE, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Result := HiWord(DWORD(vaOut));
-end;
-
-function ZoomRangeLow(Document: IDispatch): Integer;
-var
- vaIn, vaOut: OleVariant;
-begin
- InvokeCmd(Document, False, OLECMDID_GETZOOMRANGE, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
- Result := LoWord(DWORD(vaOut));
-end;
-
-function SetCharartersSet(WebBrowser: TEmbeddedWB; Document: IDispatch; const ACharactersSet: string; Refresh: Boolean = True): Boolean;
-var
- RefreshLevel: OleVariant;
-begin
- Wait(WebBrowser);
- Result := False;
- if DocumentLoaded(Document) then
- begin
- try
- WebBrowser.Doc2.Set_CharSet(ACharactersSet);
- Result := True;
- if Refresh then
- begin
- RefreshLevel := 7;
- WebBrowser.Refresh2(RefreshLevel);
- end;
- except
- end;
- end;
-end;
-
-{
-function GetCookie(OleObject: Variant): string;
-begin
- Result := '';
- if DocumentLoaded(OleObject.Document) then
- try
- Result := OleObject.Document.Cookie;
- except
- end;
-end; }
-
-procedure ClearSessionCookies;
-begin
- InternetSetOption(nil, INTERNET_OPTION_END_BROWSER_SESSION, nil, 0);
-end;
-
-procedure GetThumbnail(Dispatch: IDispatch; var Image: TImage);
-var
- DrawRect: TRect;
-begin
- if Image = nil then
- Exit;
- DrawRect := Rect(0, 0, Image.Height, Image.Width);
- Image.Picture.Bitmap.Height := Image.Height;
- Image.Picture.Bitmap.Width := Image.Width;
- (Dispatch as IViewObject).Draw(DVASPECT_DOCPRINT, 0, nil, nil, 0,
- Image.Canvas.Handle, @DrawRect, nil, nil, 0);
- Image.Refresh;
-end;
-
-function GetBmpFromBrowser(Document: IDispatch; Handle: THandle; Width, Height: Integer; FileName: string): Boolean;
-var
- ViewObject: IViewObject;
- sourceDrawRect: TRect;
- ScreenImg: Graphics.TBitmap;
-begin
- Result := False;
- if DocumentLoaded(Document) then
- try
- Document.QueryInterface(IViewObject, ViewObject);
- if Assigned(ViewObject) then
- try
- ScreenImg := TBitmap.Create;
- ScreenImg.Height := Height;
- ScreenImg.Width := Width;
- sourceDrawRect := Rect(0, 0, ScreenImg.Width, ScreenImg.Height);
- ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Handle,
- ScreenImg.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
- ScreenImg.SaveToFile(FileName);
- Result := True;
- finally
- //ViewObject._Release; I4214 // I4214
- end;
- except
- Result := False;
- end;
-end;
-
-function GetJPEGfromBrowser(Document: IDispatch; ControlInterface: IWebBrowser2; FileName: string; SourceHeight, SourceWidth,
- TargetHeight, TargetWidth: Integer): Boolean;
-var
- sourceDrawRect: TRect;
- targetDrawRect: TRect;
- sourceBitmap: Graphics.TBitmap;
- targetBitmap: Graphics.TBitmap;
- aJPG: TJPEGImage;
- aViewObject: IViewObject;
- IWeb: IWebBrowser2;
-begin
- Result := False;
- sourceBitmap := Graphics.TBitmap.Create;
- targetBitmap := Graphics.TBitmap.Create;
- aJPG := TJPEGImage.Create;
- IWeb := ControlInterface;
- try
- try
- sourceDrawRect := Rect(0, 0, SourceWidth, SourceHeight);
- sourceBitmap.Width := SourceWidth;
- sourceBitmap.Height := SourceHeight;
- aViewObject := IWeb as IViewObject;
- if aViewObject = nil then
- Exit;
- OleCheck(aViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil,
- Forms.Application.Handle,
- sourceBitmap.Canvas.Handle,
- @sourceDrawRect, nil, nil, 0));
- targetDrawRect := Rect(0, 0, TargetWidth, TargetHeight);
- targetBitmap.Height := TargetHeight;
- targetBitmap.Width := TargetWidth;
- targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap);
- aJPG.Assign(targetBitmap);
- aJPG.SaveToFile(FileName);
- Result := True;
- finally
- aJPG.Free;
- sourceBitmap.Free;
- targetBitmap.Free;
- end;
- except
- Result := False;
- end;
-end;
-
-procedure ViewPageLinksToStrings(OleObject: Variant; LinksList: TStrings);
-var //by smot
- UNum: Variant;
- s: string;
-
- procedure RecurseLinks(htmlDoc: Variant);
- var
- BodyElement, ElementCo, HTMLFrames, HTMLWnd, doc: OleVariant;
- j, i: Integer;
- begin
- if VarIsEmpty(htmlDoc) then Exit;
- BodyElement := htmlDoc.body;
- if BodyElement.tagName = 'BODY' then
- begin
- ElementCo := htmlDoc.links;
- j := ElementCo.Length - 1;
- for i := 0 to j do
- begin
- UNum := ElementCo.item(i);
- s := UNum.href;
- if j = 0 then
- s := 'No Links found in the page body';
- LinksList.Add(s);
- end;
- end;
- HTMLFrames := htmlDoc.Frames;
- j := HTMLFrames.Length - 1;
- for i := 0 to j do
- begin
- HTMLWnd := HTMLFrames.Item(i);
- try
- doc := HTMLWnd.Document;
- RecurseLinks(doc);
- except
- Continue;
- end;
- end;
- end;
-begin
- LinksList.Clear;
- if not DocumentLoaded(OleObject.Document) then
- Exit;
- RecurseLinks(OleObject.Document);
-end;
-
-procedure ViewPageSourceHTMLToStrings(OleObject: Variant; Document: IDispatch; HtmlList: TStrings);
-begin
- HtmlList.Clear;
- if DocumentLoaded(Document) then
- begin
- try
- HtmlList.Add(VarToStr(OleObject.Document.documentElement.innerHTML));
- except
- end;
- end;
-end;
-
-procedure ViewPageSourceTextToStrings(OleObject: Variant; Document: IDispatch; TextList: TStrings);
-begin
- TextList.Clear;
- if DocumentLoaded(Document) then
- begin
- try
- TextList.Add(VarToStr(OleObject.Document.documentElement.innerText));
- except
- end;
- end;
-end;
-
-procedure ViewPageSourceText(OleObject: Variant; Document: IDispatch);
-var
- TextLst: TStringList;
-begin
- TextLst := TStringList.Create;
- try
- if DocumentLoaded(Document) then
- begin
- TextLst.Add(VarToStr(OleObject.Document.documentElement.innerText));
- MessageDlg(TextLst.Text, mtCustom, [mbOK], 0);
- end;
- finally
- TextLst.Free;
- end;
-end;
-
-function SaveDocToStrings(Document: IDispatch; var AStrings: TStrings): HResult;
-var
- IpStream: IPersistStreamInit;
- AStream: TMemoryStream;
-begin
- Result := S_FALSE;
- if not DocumentLoaded(Document) then
- Exit;
- AStream := TMemoryStream.Create;
- try
- IpStream := Document as IPersistStreamInit;
- if not Assigned(IpStream) then
- Result := S_FALSE
- else
- if Succeeded(IpStream.save(TStreamadapter.Create(AStream), True))
- then
- begin
- AStream.Seek(0, 0);
- AStrings.LoadFromStream(AStream);
- Result := S_OK;
- end;
- except
- end;
- AStream.Free;
-end;
-
-function SaveDocToStream(Document: IDispatch; var AStream: TStream): HResult;
-var
- IpStream: IPersistStreamInit;
-begin
- if DocumentLoaded(Document) then
- begin
- IpStream := Document as IPersistStreamInit;
- Result := IpStream.Save(TStreamAdapter.Create(AStream), True);
- end
- else
- Result := S_FALSE;
-end;
-
-function SaveDocToFile(Document: IDispatch; const Fname: string): HResult;
-var
- PFile: IPersistFile;
-begin
- Result := S_FALSE;
- if DocumentLoaded(Document) then
- begin
- PFile := Document as IPersistFile;
- Result := PFile.Save(StringToOleStr(FName), False);
- end;
-end;
-
-procedure PrintWithHeaderFooter(ControlInterface: IWebBrowser2; Header, Footer: PWideChar; Options: OLECMDEXECOPT);
-var
- saBound: TSafeArrayBound;
- psaHeadFoot: PSafeArray;
- vaIn, vaOut: TVariantArg;
- vHeadStr, vFootStr: TVariantArg;
- rgIndex: LongInt;
-begin
- try
- saBound.lLbound := 0;
- saBound.cElements := 2;
- psaHeadFoot := SafeArrayCreate(VT_VARIANT, 1, @saBound);
- vHeadStr.vt := VT_BSTR;
- vHeadStr.bstrVal := SysAllocString(Header);
- vFootStr.vt := VT_BSTR;
- vFootStr.bstrVal := SysAllocString(Footer);
- rgIndex := 0;
- OleCheck(SafeArrayPutElement(psaHeadFoot, rgIndex, vHeadStr));
- rgIndex := 1;
- OleCheck(SafeArrayPutElement(psaHeadFoot, rgIndex, vFootStr));
- vaIn.vt := VT_ARRAY or VT_BYREF;
- vaIn.parray := psaHeadFoot;
- ControlInterFace.ExecWB(OLECMDID_PRINT, Options,
- OleVariant(vaIn), OleVariant(vaOut));
- if vHeadStr.bstrVal <> nil then
- SysFreeString(vHeadStr.bstrVal);
- if vFootStr.bstrVal <> nil then
- SysFreeString(vFootStr.bstrVal);
- except
- end;
-end;
-
-procedure Print(ControlInterface: IWebBrowser2; bHideSetup: Boolean = False; bCustomHeaderFooter: Boolean = False; Header: string = ''; Footer: string = '');
-var
- vaIn, vaOut: OleVariant;
-begin
- if DocumentLoaded(ControlInterface.Document) then
- begin
- if bCustomHeaderFooter then
- begin
- if bHideSetup then
- PrintWithHeaderFooter(ControlInterface, TaskAllocWideString(Header), TaskAllocWideString(Footer), OLECMDEXECOPT_DONTPROMPTUSER)
- else
- PrintWithHeaderFooter(ControlInterface, TaskAllocWideString(Header), TaskAllocWideString(Footer), OLECMDEXECOPT_PROMPTUSER);
- end
- else
- if bHideSetup then
- ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut)
- else
- ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)
- end;
-end;
-
-procedure PrintWithOptions(ControlInterface: IWebBrowser2; Document: IDispatch; UsePrintOptions, PrintOptionsEnabled, HideSetup: Boolean; var InvokingPageSetup: Boolean);
-begin
- PrintingWithOptions := True;
- PageSetup(Document, UsePrintOptions, PrintOptionsEnabled, InvokingPagesetup);
- Print(ControlInterface, HideSetup);
-end;
-
-procedure PrintPreview(Webbrowser: IWebBrowser2);
-// IE 5.5 only
-var
- vaIn, vaOut: Olevariant;
-begin
- if DocumentLoaded(Webbrowser.Document) then
- Webbrowser.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
-end;
-
-function OpenClient(Client: string): Boolean;
-var
- s, params, Exec: string;
-begin
- Result := False;
- with TRegistry.Create do
- try
- RootKey := HKEY_LOCAL_MACHINE;
- OpenKey('Software\Clients\' + Client, False);
- S := ReadString('');
- CloseKey;
- OpenKey('Software\Clients\' + Client + '\' + S + '\shell\open\command', False);
- S := ReadString('');
- CloseKey;
- if S <> '' then
- begin
- if Pos('/', S) > 0 then
- begin
- Exec := system.Copy(S, 1, Pos('/', S) - 2);
- Params := system.Copy(s, Length(exec) + 1, length(S));
- end
- else
- begin
- Exec := S;
- Params := '';
- end;
- Result := True;
- ShellExecute(Application.handle, 'open', PChar(Exec), PChar(Params), '', SW_SHOW);
- end;
- finally
- Free;
- end;
-end;
-
-procedure PrintPreviewExtended(ControlInterface: IWebBrowser2; nCMDShow: Integer; HideSetup: Boolean);
-var
- Preview_HWND, App_HWND: THandle;
- ClassName: array[0..255] of Char;
- StartTime, EndTime: DWORD; //Smot
- vaIn, vaOut: OleVariant;
-begin
- if DocumentLoaded(ControlInterface.Document) then
- begin
- if HideSetup then
- ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut) //jerzy
- else
- ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
- Preview_HWND := 0;
- StartTime := GetTickCount;
- repeat
- App_HWND := GetForegroundWindow();
- GetClassName(App_HWND, ClassName, SizeOf(ClassName));
- if lstrcmp(@ClassName[0], @IE_PPREVIEWCLASS[1]) = 0 then
- Preview_HWND := App_HWND;
- Forms.Application.ProcessMessages;
- EndTime := GetTickCount;
- until (Preview_HWND <> 0) or (EndTime - StartTime > 7000);
- if Preview_HWND <> 0 then
- ShowWindow(Preview_HWND, nCmdShow);
- end;
-end;
-
-function PageSetup(Document: IDispatch; UsePrintOptions, PrintOptionsEnabled: Boolean; var InvokingPageSetup: Boolean): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := False;
- if DocumentLoaded(Document) then
- begin
- if PrintOptionsEnabled and UsePrintOptions then
- InvokingPageSetup := True;
- Result := InvokeCmd(Document, False, OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK
- end;
-end;
-
-procedure PrintSetup(ControlInterface: IWebBrowser2; HideSetup: Boolean);
-var
- vaIn, vaOut: OleVariant;
-begin
- if DocumentLoaded(ControlInterface.Document) then
- begin
- if HideSetup then
- ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut)
- else
- ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut)
- end;
-end;
-
-procedure GetPrintValues(WebBrowser: TEmbeddedWB; PrintOptions: TPrintOptions; Measure: TMeasure);
-var
- S: string;
- Reg: TRegistry;
- {$IFDEF DELPHI7_UP}
- FS: TFormatSettings;
- {$ENDIF}
-
-
- function ReadMargin(key: string): Real;
- begin
- S := Reg.ReadString(key);
- if S = '' then
- S := '0.750000'; // <-- default margin value by takeru_tk_81
- S := StringReplace(S, ' ', '', [rfReplaceAll]);
-
- if {$IFDEF DELPHI7_UP}FS.{$ENDIF}DecimalSeparator <> '.' then
- S := StringReplace(S, '.',{$IFDEF DELPHI7_UP}FS.{$ENDIF}DecimalSeparator ,[]);
-
- if Measure = mMetric then
- Result := StrToFloat(S) * InchToMetric
- else
- Result := StrToFloat(S);
- end;
-
-begin
- Reg := TRegistry.Create;
- try
- with Reg do
- begin
- RootKey := HKEY_CURRENT_USER;
- if OpenKey('Software\Microsoft\Internet Explorer\PageSetup', False) then
- begin
- with PrintOptions do
- begin
- Header := ReadString('header');
- Footer := ReadString('footer');
- Margins.Left := ReadMargin('margin_left');
- Margins.Right := ReadMargin('margin_right');
- Margins.Top := ReadMargin('margin_top');
- Margins.Bottom := ReadMargin('margin_bottom');
- end;
- end;
- Reg.Free;
- end;
- except
-
- end;
-end;
-
-function PrintMarginStr(Measure, RuntimeMeasure: TMeasure; M: Real): string;
-begin
- if Measure <> RuntimeMeasure then
- begin
- if RuntimeMeasure = mMetric then
- Result := FloatToStr(M * InchToMetric)
- else
- Result := FloatToStr(M / InchToMetric);
- end
- else
- Result := FloatToStr(M);
-end;
-
-procedure RestorePrintValues;
-var
- Reg: TRegistry;
-begin
- Reg := TRegistry.Create;
- try
- with Reg do
- begin
- RootKey := HKEY_CURRENT_USER;
- if OpenKey('Software\Microsoft\Internet Explorer\PageSetup', True) then
- begin
- WriteString('header', '&w&bPage &p of &P');
- WriteString('footer', '&u&b&d');
- WriteString('margin_left', '0.750000');
- WriteString('margin_right', '0.750000');
- WriteString('margin_top', '0.750000');
- WriteString('margin_bottom', '0.750000');
- end;
- Reg.Free;
- end;
- except
- MessageDlg('Error while writing page print values to the registry!', mtError, [mbOK], 0);
- end;
-end;
-
-function OpenDialog(WebBrowser: TEmbeddedWB; AOwner: TComponent): Boolean;
-var
- OD: TOpenDialog;
-begin
- OD := TOpenDialog.Create(AOwner);
- try
- with OD do
- begin
- Filter := 'Internet Files|*.htm; *.html; *.url; *.mht; *.mhtml; *.php *.asp'
- + #10 + #13 + '|Image Files| *.gif;*.bmp;*.ico;*.jpg;*.png;*.wmf; *.emf; '
- + #10 + #13 + '|Text & Documents Files| *.txt;*.doc;*.xls;*.dot;'
- + #10 + #13 + '|Compressed Files| *.zip;'
- + #10 + #13 + '|XML Files| *.xml;'
- + #10 + #13 + '|Any Files|*.*';
- Options := Options + [ofShowHelp, ofEnableSizing];
- Title := 'Browser - Open Dialog';
- HelpContext := 0;
- Result := Execute;
- if Result then
- WebBrowser.Go(OD.FileName);
- end;
- finally
- OD.Free;
- end;
-end;
-
-function SaveDialog(WebBrowser: TEmbeddedWB; AOwner: TComponent; ATitle: string = ''; AFilter: string = ''): string;
-var
- SD: TSaveDialog;
-begin
- SD := TSaveDialog.Create(AOwner);
- try
- with SD do
- begin
- if AFilter = '' then
- Filter := 'Internet Files|*.htm; *.html;*.mht; *.mhtml; *.php *.asp'
- + #10 + #13 + '|Text & Documents Files| *.txt;*.doc;*.xls;*.dot;'
- + #10 + #13 + '|XML Files| *.xml;'
- + #10 + #13 + '|Any Files|*.*'
- else
- Filter := AFilter;
- Options := Options + [ofShowHelp, ofEnableSizing];
- if ATitle = '' then
- Title := 'Browser - Save Dialog';
- HelpContext := 0;
- if Execute then
- Result := SD.FileName;
- if SD.FileName <> '' then
- WebBrowser.SaveToFile(SD.FileName);
- end;
- finally
- SD.Free;
- end;
-end;
-
-function SaveDialog(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, False, OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function ShowInternetOptions(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, True, HTMLID_OPTIONS, 0, vaIn, vaOut) = S_OK;
-end;
-
-function ShowPageProperties(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin // OLECMDID_SHOWPAGEACTIONMENU
- Result := InvokeCmd(Document, False, OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT, vaIn, vaOut) = S_OK;
-end;
-
-function ShowOrganizeFavorites(Handle: THandle): Boolean;
-begin
- Result := OrganizeFavorite(Handle, GetSpecialFolderPath(Handle, CSIDL_FAVORITES));
-end;
-
-procedure ShowImportExportFavoritesAndCookies(Handle: THandle);
-begin
- SendMessage(Handle, WM_COMMAND, ID_IE_FILE_IMPORTEXPORT, 0);
-end;
-
-function ShowFindDialog(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, True, HTMLID_FIND, 0, vaIn, vaOut) = S_OK;
-end;
-
-procedure SaveImagesDialog(OleObject: Variant; Document: IDispatch);
-var
- k, p: Integer;
- path, Source, dest, ext: string;
-begin
- if DocumentLoaded(Document) then
- begin
- // path := TBrowse4Folder.('Web Browser - Please select a destination folder' + #10 + #13
- // + 'for the images', 'Desktop');
- MessageDlg(Path, mtCustom, [mbYes, mbAll, mbCancel], 0);
- begin
- for k := 0 to OleObject.Document.Images.Length - 1 do
- begin
- Source := OleObject.Document.Images.Item(k).Src;
- p := LastDelimiter('.', Source);
- ext := UpperCase(System.Copy(Source, p + 1, Length(Source)));
- if (ext = 'GIF') or (ext = 'JPG') or (ext = 'BMP') or (ext = 'PNG') then
- begin
- p := LastDelimiter('/', Source);
- dest := path + '/Images' + System.Copy(Source, p + 1, Length(Source));
- DownloadFile(Source, dest);
- end;
- end;
- end;
- end;
-end;
-
-function ViewPageSourceHtml(Document: IDispatch): Boolean;
-var
- vaIn, vaOut: OleVariant;
-begin
- Result := InvokeCmd(Document, True, HTMLID_VIEWSOURCE, 0, vaIn, vaOut) = S_OK;
-end;
-
-procedure SavePageTextDialog(AOwner: TComponent; OleObject: Variant; Document: IDispatch);
-var
- sd: TSaveDialog;
- textStr: TStringList;
-begin
- if not DocumentLoaded(Document) then Exit;
- textstr := TStringList.Create;
- try
- textStr.Add(VarToStr(OleObject.Document.documentElement.innerText));
- begin
- sd := TSaveDialog.Create(AOwner);
- try
- sd.Filter := 'Text file|*.txt|Word file|*.doc';
- sd.DefaultExt := 'txt';
- sd.FilterIndex := 1;
- sd.FileName := 'WebSiteText.txt';
- sd.Title := 'Web Site Text';
- if sd.Execute then
- begin
- textStr.SaveToFile(sd.FileName);
- end;
- finally
- sd.Free;
- end;
- end;
- finally
- textStr.Free;
- end;
-end;
-
-procedure ShellExecuteOpen(const sApplication: string);
-begin
- ShellExecute(Application.Handle, 'open', PChar(sApplication), nil, nil, SW_SHOW);
-end;
-
-procedure OpenOutlookMail;
-begin
- ShellExecuteOpen('outlook.exe');
-end;
-
-procedure OpenOutlookExpressMail;
-begin
- ShellExecuteOpen('msimn.exe');
-end;
-
-procedure OpenEudoraMail;
-begin
- ShellExecuteOpen('eudora.exe');
-end;
-
-procedure OpenRegistryEditor;
-begin
- ShellExecuteOpen('regedit.exe');
-end;
-
-function OpenNewsClient: Boolean;
-begin
- Result := OpenClient('News');
-end;
-
-procedure OpenAddressBook;
-begin
- ShellExecuteOpen('wab.exe');
-end;
-
-function OpenCalendar: Boolean;
-begin
- Result := OpenClient('Calendar');
-end;
-
-function OpenNetMeeting: Boolean;
-begin
- Result := OpenClient('Internet Call');
-end;
-
-procedure DoExploreFolder(Handle: THandle; Path: string);
-begin
- ShellExecute(handle, 'explore', PChar(Path), nil, nil, SW_SHOWNORMAL);
-end;
-
-procedure OpenIEBrowserWithAddress(Handle: THandle);
-begin
- SendMessage(Handle, WM_COMMAND, ID_IE_FILE_NEWWINDOW, 0);
-end;
-
-function OpenHotmailMail(WebBrowser: TEmbeddedWB): Boolean;
-begin
- Result := True;
- Go(WebBrowser, 'http://lc1.law5.hotmail.passport.com/cgi-bin/login');
-end;
-
-function OpenGoogleMail(WebBrowser: TEmbeddedWB): Boolean;
-begin
- Result := True;
- Go(WebBrowser, 'http://mail.google.com/mail/');
-end;
-
-function OpenYahooMail(WebBrowser: TEmbeddedWB): Boolean;
-begin
- Result := True;
- Go(WebBrowser, 'http://mail.yahoo.com/');
-end;
-
-procedure GoSearchInGoogle(WebBrowser: TEmbeddedWB; SearchTerm: string);
-const
- GOOGLE_QUERY = 'http://www.google.com/search?ie=ISO-8859-1&q=';
-var
- sQuery: string;
-begin
- sQuery := GOOGLE_QUERY + SearchTerm;
- Go(WebBrowser, sQuery);
-end;
-
-procedure GoSearchInMSN(WebBrowser: TEmbeddedWB; SearchTerm: string);
-const
- MSN_QUERY = 'http://search.live.com/results.aspx?q=';
- MSN_Const = '&FORM=CBPW&first=1&noredir=1';
-var
- sQuery: string;
-begin
- sQuery := MSN_QUERY + SearchTerm + MSN_Const;
- Go(WebBrowser, sQuery);
-end;
-
-procedure GoSearchInYahoo(WebBrowser: TEmbeddedWB; SearchTerm: string);
-const
- YAHOO_QUERY = 'http://search.yahoo.com/bin/search?p=';
-var
- sQuery: string;
-begin
- sQuery := YAHOO_QUERY + SearchTerm;
- WebBrowser.Go(sQuery);
-end;
-
-procedure Go(WebBrowser: TEmbeddedWB; Url: string);
-var
- _URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
-begin
- _URL := Url;
- Flags := 0;
- TargetFrameName := 0;
- Postdata := 0;
- Headers := 0;
- if (Trim(_URL) <> '') then
- WebBrowser.Navigate2(_URL, Flags, TargetFrameName, PostData, Headers);
-end;
-
-procedure GoWithQueryDetails(WebBrowser: TEmbeddedWB; Url, Query: string);
-var
- _URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
-begin
- _URL := Url + Query;
- TargetFrameName := 0;
- headers := StringtoVarArray('Content-Type:application/x-www-form-urlencoded'#13#10);
- Postdata := StringToVarArray('version=current&name=myname' + #13#10);
- Flags := 0;
- WebBrowser.Navigate2(_URL, Flags, TargetFrameName, PostData, Headers);
-end;
-
-procedure GoNoHistory(WebBrowser: TEmbeddedWB; const URL: string);
-
- function StrToChr(Str: string; Pos: Integer): Char;
- begin
- Result := Str[Pos];
- end;
-
-var
- Flags: OleVariant;
- HistoryStg: IUrlHistoryStg;
-begin
- Flags := navNoHistory;
- WebBrowser.Navigate(WideString(URL), Flags);
- Wait(WebBrowser);
- HistoryStg := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg;
- HistoryStg.DeleteUrl(PWideChar(StrToChr(URL, 0)), 0);
-end;
-
-procedure NavigatePidl(WebBrowser: TEmbeddedWB; pidl: PItemIdList);
-var
- VaEmpty, vaPidl: OleVariant;
- psa: PSafeArray;
- cbData: UINT;
-begin
- cbdata := GetPIDLSize(pidl);
- psa := SafeArrayCreateVector(VT_UI1, 0, cbData);
- if (psa <> nil) then
- begin
- CopyMemory(psa.pvData, pidl, cbData);
- VariantInit(vaPidl);
- TVariantArg(vaPidl).vt := VT_ARRAY or VT_UI1;
- TVariantArg(vaPidl).parray := psa;
- WebBrowser.Navigate2(vaPidl, vaEmpty, vaEmpty, vaEmpty, vaEmpty);
- VariantClear(vaPidl);
- end;
-end;
-
-function GetFrameFromDocument(SourceDoc: IHTMLDocument2; FrameNo: Integer): IWebBrowser2;
-var //by Aladin
- OleContainer: IOleContainer;
- enum: ActiveX.IEnumUnknown;
- unk: IUnknown;
- Fetched: PLongint;
-begin
- Result := nil;
- Fetched := nil;
- if DocumentLoaded(SourceDoc) then
- begin
- OleContainer := SourceDoc as IOleContainer;
- OleContainer.EnumObjects(OLECONTF_EMBEDDINGS or OLECONTF_OTHERS, Enum);
- Enum.Skip(FrameNo);
- Enum.Next(1, Unk, Fetched);
- if Supports(Unk, IWebBrowser2, Result) then //perva 2008/12/10
- Result := Unk as IWebBrowser2;
- end;
-end;
-
-procedure GoAboutBlank(WebBrowser: TEmbeddedWB);
-begin
- WebBrowser.Go('about:blank');
- Wait(WebBrowser);
-end;
-
-procedure SendPageInMailAsAttachment(WebBrowser: TEmbeddedWB; AOwner: TComponent; Document: IDispatch; mFileName, mSubject, mBody: string);
-begin
- WebBrowser.SaveToFile(mFileName);
- Sleep(800);
- with TEwbMapiMail.Create(AOwner) do
- begin
- try
- Subject := mSubject;
- Body := mBody;
- Attachments.Add(mFileName);
- EditDialog := True;
- Send;
- finally
- // Free;
- end;
- end;
-end;
-
-procedure GoDownloadFile(WebBrowser: TEmbeddedWB; URL: string);
-var
- Flags: OleVariant;
-begin
- Flags := navNoHistory or navNoReadFromCache or navNoWriteToCache
- or navAllowAutosearch or navBrowserBar;
- WebBrowser.Navigate(URL, Flags);
-end;
-
-function DownloadFile(SourceFile, TargetFile: string): Boolean;
-begin
- try
- Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(TargetFile), 0, nil) = 0;
- except
- Result := False;
- end;
-end;
-
-procedure GoDownloadMaskedFile(SourceFile, TargetFile: string; Notify: Boolean);
-begin
- if Notify then
- begin
- if DownloadFile(SourceFile, TargetFile) then
- MessageBox(0, PChar('Downloading: ' + SourceFile + #10 + #13 +
- 'To: ' + TargetFile + #10 + #13 + 'was successfully finished.'),
- PChar('Download successful.'), MB_OK)
- else
- MessageBox(0, PChar(
- 'An error ocurred while downloading the file.' + SourceFile),
- PChar('Downloading Error!!'), MB_ICONERROR or MB_OK);
- end
- else
- DownloadFile(SourceFile, TargetFile);
-end;
-
-procedure AddToFavorites(URL, Title: string);
-// The URL parameter must specify a valid URL using HTTP, Secure Hypertext Transfer Protocol (HTTPS),
-// or File Transfer Protocol (FTP) protocols only. Calling the IShellUIHelper::AddFavorite method with a
-// file:// or javascript: URL returns E_ACCESSDENIED.
-const
- CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
-var
- ShellUIHelper: ISHellUIHelper;
- Url1, Title1: OleVariant;
- Res : HRESULT;
-begin
- if (Trim(URL) <> '') and (Trim(Title) <> '') then
- begin
- Title1 := Title;
- Url1 := Url;
- Res := CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER, IID_IShellUIHelper, ShellUIHelper);
- if SUCCEEDED(Res) then
- try
- ShellUIHelper.AddFavorite(URL1, Title1);
- except
- end;
- end;
-end;
-
-function GetFavoritesPath: string;
-begin
- Result := GetShellFolderPath('Favorites');
-end;
-
-function GetCookiesPath: string;
-begin
- Result := GetShellFolderPath('Cookies');
-end;
-
-function GetHistoryPath: string;
-begin
- Result := GetShellFolderPath('History');
-end;
-
-function GetCachePath: string;
-begin
- Result := GetShellFolderPath('Cache');
-end;
-
-function GetShellFolderPath(FolderName: Widestring): string;
-const
- REG_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
-var
- Reg: TRegistry;
-begin
- Result := '';
- Reg := TRegistry.Create(KEY_READ);
- with Reg do
- try
- Rootkey := HKEY_CURRENT_USER;
- OpenKey(REG_PATH, False);
- if (ValueExists(FolderName)) and not (length(trim(ReadString(FolderName))) = 0) then
- Result := ReadString(FolderName);
- finally
- CloseKey;
- Free;
- end;
-end;
-
-function GetSpecialFolderPath(CallerHandle: THandle; CSIDL: Integer): PChar;
-var
- exInfo: TShellExecuteInfo;
- Buf: PChar;
-begin
- FillChar(exInfo, SizeOf(exInfo), 0);
- with exInfo do
- begin
- cbSize := SizeOf(exInfo);
- fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;
- Wnd := CallerHandle;
- nShow := SW_SHOWNORMAL;
- Buf := StrAlloc(MAX_PATH);
- try
-{$IFDEF UNICODE}
- FillChar(Buf^, MAX_PATH * SizeOf(Char), 0);
-{$ELSE}
- FillChar(Buf^, MAX_PATH, 0);
-{$ENDIF UNICODE}
- if SHGetSpecialFolderPath(wnd, Buf, CSIDL, True) then
- Result := Buf
- else
- Result := '';
- finally
- // StrDispose(Buf);
- end;
- end;
-end;
-
-function GetIEHomePage: string;
-var
- HomePage: string;
-begin
- HomePage := '';
- with TRegistry.Create do
- try
- RootKey := HKEY_CURRENT_USER;
- OpenKey('\Software\Microsoft\Internet Explorer\Main', False);
- HomePage := ReadString('Start Page');
- CloseKey;
- finally
- Free;
- end;
- Result := HomePage;
-end;
-
-function GetCachedFileFromURL(ItemUrl: string): string;
-var
- IntCacheInfo: PInternetCacheEntryInfo;
- CacheEntry, dwEntrySize, dwLastError: LongWord;
-begin
- dwEntrySize := 0;
- FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
- GetMem(IntCacheInfo, dwEntrySize);
- CacheEntry := FindFirstUrlCacheEntry(nil, IntCacheInfo^, dwEntrySize);
- if (CacheEntry <> 0) and (ItemUrl = IntCacheInfo^.lpszSourceUrlName) then
- Result := IntCacheInfo^.lpszLocalFileName;
- FreeMem(IntCacheInfo);
- if Result = '' then
- repeat
- dwEntrySize := 0;
- FindNextUrlCacheEntry(CacheEntry, TInternetCacheEntryInfo(nil^), dwEntrySize);
- dwLastError := GetLastError();
- if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
- begin
- GetMem(IntCacheInfo, dwEntrySize);
- if (FindNextUrlCacheEntry(CacheEntry, IntCacheInfo^, dwEntrySize)) then
- begin
- if ItemUrl = IntCacheInfo^.lpszSourceUrlName then
- begin
- Result := IntCacheInfo^.lpszLocalFileName;
- Break;
- end;
- end;
- FreeMem(IntCacheInfo);
- end;
- until (dwLastError = ERROR_NO_MORE_ITEMS);
-end;
-
-function OrganizeFavorite(h: THandle; Path: PAnsiChar): Boolean; stdcall;
- external 'shdocvw.dll' name 'DoOrganizeFavDlg'; overload;
-
-{$IFDEF UNICODE}
-
-function OrganizeFavorite(h: THandle; Path: PWideChar): Boolean;
-begin
- Result := OrganizeFavorite(h, PAnsiChar(AnsiString(UnicodeString(Path))));
-end;
-
-{$ENDIF UNICODE}
-
-function URLFromFavorites(const dotURL: string): string;
-begin
- Result := '';
- with TIniFile.Create(dotURL) do
- try
- try
- Result := ReadString('InternetShortcut', 'URL', '');
- except;
- end;
- finally
- Free;
- end;
-end;
-
-function UrlFromHistory(ShellFolder: IShellFolder; pidl: PItemIDList): string;
-var
- Handle: THandle;
- Info: IQueryInfo;
- W: PWideChar;
-begin
- Result := '';
- Handle := 0;
- Info := nil;
- ShellFolder.GetUIObjectOf(Handle, 1, pidl, IID_IQUERYINFO, nil, Pointer(Info));
- if Assigned(Info) then
- begin
- Info.GetInfoTip(0, w);
- Result := W;
- end;
- Result := Trim(System.Copy(Result, Pos(#10, Result) + 1, length(Result)));
-end;
-
-function GetDefaultBrowserFromRegistry: string;
-var
- Reg: TRegistry;
- KeyName: string;
-begin
- Reg := TRegistry.Create;
- try
- Reg.RootKey := HKEY_CLASSES_ROOT;
- KeyName := 'htmlfile\shell\open\command';
- if Reg.OpenKey(KeyName, False) then
- begin
- Result := Reg.ReadString('');
- Reg.CloseKey;
- end
- else
- Result := 'No default browser found.';
- finally
- Reg.Free;
- end;
-end;
-
-function GetIPAndHostName(var HostName, IPaddr, WSAErr: string): Boolean;
-var
- WSAResult: Integer;
- WSAData: TWSAData;
- HostEnt: PHostEnt;
- Host: AnsiString;
- SockAddr: TSockAddrIn;
-begin
- Result := False;
- WSAResult := WSAStartup(MakeWord(1, 1), WSAData);
- if WSAResult <> 0 then
- begin
- WSAErr := 'Winsock is not responding."';
- end else
- try
- if Host = '' then
- begin
- SetLength(Host, MAX_PATH);
- GetHostName(PAnsiChar(Host), MAX_PATH);
- end;
- HostEnt := GetHostByName(PAnsiChar(Host));
- if HostEnt <> nil then
- begin
- HostName := string(AnsiString(Host));
- SetLength(HostName, StrLen(PChar(HostName)));
- SockAddr.sin_addr.S_addr := Longint(PLongint(HostEnt^.h_addr_list^)^);
- IPaddr := string(AnsiString(inet_ntoa(SockAddr.sin_addr)));
- Result := True;
- end else
- begin
- begin
- case WSAGetLastError of
- WSANOTINITIALISED: WSAErr := 'WSANotInitialised';
- WSAENETDOWN: WSAErr := 'WSAENetDown';
- WSAEINPROGRESS: WSAErr := 'WSAEInProgress';
- end;
- end;
- end;
- finally
- WSACleanup;
- end;
-end;
-
-function CreateNewMail: Boolean;
-var
- em_subject, em_body, em_mail: string;
-begin
- em_subject := '';
- em_body := '';
- em_mail := 'mailto:?subject=' + em_subject + '&body=' + em_body;
- Result := ShellExecute(0, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL) > 32;
-end;
-
-procedure SendUrlInMail(LocationURL, LocationName: WideString);
-begin
- with TEwbMapiMail.Create(nil) do
- begin
- try
- Subject := LocationName;
- Body := LocationURL;
- EditDialog := True;
- Send;
- finally
- end;
- end;
-end;
-
-
-function SearchText(WebBrowser: TEmbeddedWB; Document: IDispatch; const Value: string; aTypeSearch: Integer; const iPos: Integer = 1): IHTMLTxtRange;
-//by JJM
-{ aTypeSearch can have the following values
-(*
-0 Default. Match partial words.
-1 Match backwards.
-2 Match whole words only.
-4 Match case.
-*)
-}
-var
- B: Boolean;
-begin
- Wait(WebBrowser);
- Result := nil;
- try
- if DocumentLoaded(Document) then
- if Assigned((Document as IHTMLDocument2).body) then
- begin
- Result := ((Document as IHTMLDocument2).body as IHTMLBodyElement).CreateTextRange;
- if Result.moveStart('character', ipos) = S_OK then
- B := Result.findText(Value, 1, aTypeSearch)
- else
- B := Result.findText(Value, iPos, aTypeSearch);
- if B then
- Result.ScrollIntoView(True)
- else
- Result := nil;
- end;
- except
- on e: Exception do ;
- end;
-end;
-
-function SearchString(Webbrowser: TEmbeddedWB; const strText: string): Boolean;
-var
- tr: IHTMLTxtRange;
-begin
- Wait(WebBrowser);
- Result := False;
- try
- if Assigned(Webbrowser.Document) then
- begin
- tr := ((Webbrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
- Result := tr.findText(strText, 1, 0);
- end;
- except
- on e: Exception do
- ;
- end;
-end;
-
-function DoSearchAndHighlight(Document: IDispatch; sFind: string;
- Flags: TSearchFlags = []; cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll): Integer;
-var
- Doc2: IHTMLDocument2;
- pElem: IHTMLElement;
- pBodyelem: IHTMLBodyElement;
- pTxtRange: IHTMLTxtRange;
- searchdir, searchcase, iMatches: Integer;
-begin
- iMatches := 0;
- if (Length(sFind) <> 0) and
- Supports(Document, IHTMLDocument2, Doc2) then
- begin
- searchdir := 1;
- searchcase := 0;
- //Set up search case
- if (sfMatchWholeWord in Flags) and (sfMatchCase in Flags) then
- searchcase := 6
- else if sfMatchWholeWord in Flags then
- searchcase := 2
- else if sfMatchCase in Flags then
- searchcase := 4;
-
- pElem := Doc2.body;
- if (pElem <> nil) then
- begin
- pBodyelem := pElem as IHTMLBodyElement;
- if (pBodyelem <> nil) then
- begin
- pTxtRange := pBodyelem.createTextRange();
- if (pTxtRange <> nil) then
- begin
- while (pTxtRange.findText(sFind, searchdir, searchcase)) do
- begin
- if (cbackColor <> '') then
- pTxtRange.execCommand('BackColor', False, cbackColor);
- if (cForeColor <> '') then
- pTxtRange.execCommand('ForeColor', False, cForeColor);
- pTxtRange.moveStart('Character', 1);
- pTxtRange.moveEnd('Textedit', 1);
- iMatches := iMatches + 1;
- if (iMatches = 1) and (ScrollIntoView = sivFirstMatch) then
- pTxtRange.scrollIntoView(True);
- end;
- if (iMatches > 1) and (ScrollIntoView = sivLastMatch) then
- pTxtRange.scrollIntoView(True);
- end;
- end;
- end;
- end;
- Result := iMatches;
-end;
-
-procedure SearchAndHighlight(Document: IDispatch;
- AText: string; const ACaption, APrompt: string; Flags: TSearchFlags = [];
- cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll; ShowInputQuery: Boolean = True); overload;
-var
-// tr: IHTMLTxtRange;
- FrameCount, i: Integer;
- Wb2: IWebBrowser2;
-begin
- if DocumentLoaded(Document) then
- begin
- if ShowInputQuery then
- if not InputQuery(ACaption, APrompt, AText) then Exit;
-
- if Length(aText) = 0 then Exit;
- try
- FrameCount := FrameCountFromDocument(Document as IHTMLDocument2);
- if FrameCount > 0 then
- begin
- for i := 0 to Pred(FrameCount) do
- begin
- Wb2 := GetFrameFromDocument(Document as IHTMLDocument2, i);
- if Assigned(Wb2) then
- SearchAndHighlight(Wb2.Document, AText, ACaption, APrompt, Flags,
- cbackColor, cForeColor, ScrollIntoView, False);
- end;
- end
- else
- begin
- DoSearchAndHighlight(Document, AText, Flags,
- cbackColor, cForeColor, ScrollIntoView);
- { tr := ((Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
- while tr.findText(aText, 1, 0) do
- begin
- tr.pasteHTML('' +
- tr.htmlText + '');
- tr.scrollIntoView(True);
- end; }
- end;
- except
- end;
- end;
-end;
-
-procedure SearchAndHighlight(Document: IDispatch; aText: string; Flags: TSearchFlags = [];
- cbackColor: string = 'yellow'; cForeColor: string = '';
- ScrollIntoView: TScrollIntoView = sivNoScroll); overload;
-begin
- SearchAndHighlight(Document, '', '', aText, Flags, cbackColor, cForeColor, ScrollIntoView, False);
-end;
-
-{function FillForm(OleObject: Variant; FieldName: string; Value: string): Boolean;
-var
- I, j: Integer;
- FormItem: Variant;
-begin
- Result := False;
- if not DocumentLoaded(OleObject.Document) or OleObject.Document.all.tags('FORM').Length = 0 then
- Exit;
- for I := 0 to OleObject.Document.forms.Length - 1 do
- begin
- FormItem := OleObject.Document.forms.Item(I);
- for j := 0 to FormItem.Length - 1 do
- begin
- try
- if (FormItem.Item(j).Name = FieldName) and
- (FormItem.Item(j).Name <> 'length') then
- begin
- FormItem.Item(j).Value := Value;
- Result := True;
- end;
- except
- Exit;
- end;
- end;
- end;
-end; }
-
-procedure SetTextAreaValue(Document: IDispatch; sName, sValue: string; Options: TFindOptions);
-var
- Doc2: IHTMLDocument2;
- i: Integer;
- field: IHTMLElement;
- textarea: IHTMLTextAreaElement;
-begin
- if Supports(Document, IHTMLDocument2, Doc2) then
- for i := 0 to Doc2.all.length - 1 do
- begin
- field := Doc2.all.item(i, '') as IHTMLElement;
- if Assigned(field) then
- begin
- if SameText(field.tagName, 'TEXTAREA') then
- begin
- textarea := field as IHTMLTextAreaElement;
- if Assigned(textarea) then
- begin
- if ((frWholeWord in Options) and (sName = textarea.Name))
- or ((Options = []) and (AnsiPos(sName, textarea.Name) <> 0)) then
- textarea.Value := sValue;
- end;
- end;
- end;
- end;
-end;
-
-function FillForm(Document: IDispatch; FieldName: string; FieldValue: string; ElementNr: Integer = -1): Boolean; overload;
-var
- Inputs: IHTMLElementCollection;
- HTMLElement: IHTMLElement;
- TagName: string;
- k, iItemNr, iInputCount: Integer;
-begin
- Result := False;
- Inputs := IHTMLDocument3(Document).getElementsByName(FieldName);
- if Assigned(Inputs) then
- begin
- try
- if ElementNr = -1 then
- iInputCount := Inputs.Length
- else
- iInputCount := ElementNr;
-
- if iInputCount = -1 then iInputCount := 0;
-
- for k := 0 to iInputCount - 1 do
- begin
- if ElementNr = -1 then
- iItemNr := k
- else
- iItemNr := ElementNr;
-
- HTMLElement := Inputs.item(iItemNr, '') as IHTMLElement;
- if Assigned(HTMLElement) then
- begin
- TagName := AnsiUpperCase(HTMLElement.tagName);
- if TagName = 'INPUT' then
- begin
- (HTMLElement as IHTMLInputElement).Value := FieldValue;
- Result := True;
- Exit;
- end
- else if TagName = 'SELECT' then
- begin
- (HTMLElement as IHTMLSelectElement).Value := FieldValue;
- Result := True;
- Exit;
- end
- else if TagName = 'TEXTAREA' then
- begin
- (HTMLElement as IHTMLTextAreaElement).Value := FieldValue;
- Result := True;
- Exit;
- end;
- end;
- if ElementNr <> -1 then Exit;
- end;
- except
- end;
- end;
-end;
-
-function FillForm(WebBrowser: TEmbeddedWB; FieldName: string; FieldValue: string; ElementNr: Integer = -1): Boolean; overload;
-var
- Doc3: IHTMLDocument3;
-begin
- Result := False;
- if Assigned(WebBrowser.Document) and
- (Succeeded(WebBrowser.Document.QueryInterface(IHTMLDocument3, Doc3))) then
- begin
- Result := FillForm(Doc3, FieldName, FieldValue, ElementNr)
- end;
-end;
-
-
-function FillForm(WebBrowser: TEmbeddedWB; FieldName: string; FieldValue: string; Value: Boolean): Boolean;
-var
- I, j: Integer;
- FormItem: Variant;
-begin
- Result := False;
- if not DocumentLoaded(WebBrowser.Document) then
- if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
- if (FieldName = '') and (FieldValue = '') then
- for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
- begin
- FormItem := WebBrowser.OleObject.Document.forms.Item(I);
- for j := 0 to FormItem.Length - 1 do
- begin
- try
- if (FormItem.Item(j).Name = FieldName) or (Fieldname = '') then
- if (FormItem.Item(j).Value = FieldValue) or (Fieldvalue = '') then
- begin
- FormItem.Item(j).checked := Value;
- Result := True;
- end;
- except
- Continue;
- end;
- end;
- end;
-end;
-
-procedure ClickInputImage(WebBrowser: TEmbeddedWB; ImageURL: string);
-var
- iDoc: IHTMLDocument2;
- iDisp: IDispatch;
- iColl: IHTMLElementCollection;
- InputImage: htmlInputImage;
- i: Integer;
-begin
- if WebBrowser.DocumentLoaded then
- begin
- if Supports(WebBrowser.Document, IHTMLDocument2, iDoc) then
- begin
- iDisp := iDoc.all.tags('INPUT');
- if Assigned(iDisp) then
- begin
- if Supports(iDisp, IHTMLElementCollection, iColl) then
- begin
- ImageURL := AnsiUpperCase(ImageURL);
- for i := 1 to iColl.Get_length do
- begin
- iDisp := iColl.item(Pred(i), 0);
- if Supports(iDisp, HTMLInputImage, ImageURL) then
- begin
- if Pos(ImageURL, AnsiUpperCase(InputImage.src)) <> 0 then
- begin
- InputImage.Click;
- end;
- end;
- end;
- end;
- end;
- end;
- end;
-end;
-
-function GetFieldValue(OleObject: Variant; FieldName: string): string;
-var
- I, j: Integer;
- FormItem: Variant;
-begin
- Result := '';
- if DocumentLoaded(OleObject.Document) then
- if OleObject.Document.all.tags('FORM').Length = 0 then
- for I := 0 to OleObject.Document.forms.Length - 1 do
- begin
- FormItem := OleObject.Document.forms.Item(I);
- for j := 0 to FormItem.Length - 1 do
- begin
- try
- if FormItem.Item(j).Name = FieldName then
- Result := FormItem.Item(j).Value;
- except
- Continue;
- end;
- end;
- end;
-end;
-
-procedure FillIEFormAndExcecute;
-var
- ShellWindow: IShellWindows;
- IWeb: IWebBrowser2;
- spDisp: IDispatch;
- IDoc1: IHTMLDocument2;
- Document: Variant;
- k, m: Integer;
- ovElements: OleVariant;
- i: Integer;
-begin
- ShellWindow := CoShellWindows.Create;
- // get the running instance of Internet Explorer
- for k := 0 to ShellWindow.Count do
- begin
- spDisp := ShellWindow.Item(k);
- if spDisp = nil then
- Continue;
- // QueryInterface determines if an interface can be used with an object
- spDisp.QueryInterface(IWebBrowser2, IWeb);
-
- if IWeb <> nil then
- begin
- IWeb.Document.QueryInterface(IHTMLDocument2, iDoc1);
- if iDoc1 <> nil then
- begin
- IWeb := ShellWindow.Item(k) as IWebBrowser2;
- begin
- Document := IWeb.Document;
- // count forms on document and iterate through its forms
- for m := 0 to Document.Forms.Length - 1 do
- begin
- ovElements := Document.Forms.Item(m).Elements;
- // iterate through elements
- for i := 0 to ovElements.Length - 1 do
- begin
- // when input fieldname is found, try to fill out
- try
- if (CompareText(ovElements.Item(i).tagName, 'INPUT') = 0) and
- (CompareText(ovElements.Item(i).type, 'text') = 0) then
- begin
- ovElements.Item(i).Value := 'FindWindow';
- end;
- except
- end;
- // when Submit button is found, try to click
- try
- if (CompareText(ovElements.Item(i).tagName, 'INPUT') = 0) and
- (CompareText(ovElements.Item(i).type, 'SUBMIT') = 0) and
- (ovElements.Item(i).Value = 'Search') then // Suchen for German
- begin
- ovElements.Item(i).Click;
- end;
- except
- end;
- end;
- end;
- end;
- end;
- end;
- end;
-end;
-
-procedure ClearHistory;
-var
- HistoryStg: IUrlHistoryStg2;
-begin
- HistoryStg := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg2;
- HistoryStg.ClearHistory;
-end;
-
-function DeleteFirstCacheEntry(var H: THandle): DWORD;
-var
- T: PInternetCacheEntryInfo;
- D: DWord;
-begin
- Result := S_OK;
- H := 0;
- D := 0;
- FindFirstUrlCacheEntryEx(nil, 0, URLCACHE_FIND_DEFAULT_FILTER, 0, nil, @D, nil, nil, nil);
- GetMem(T, D);
- try
- H := FindFirstUrlCacheEntryEx(nil, 0, URLCACHE_FIND_DEFAULT_FILTER, 0, T, @D, nil, nil, nil);
- if (H = 0) then
- Result := GetLastError
- else
- DeleteUrlCacheEntry(T^.lpszSourceUrlname);
- finally
- FreeMem(T, D)
- end;
-end;
-
-function DeleteNextCacheEntry(H: THandle): DWORD;
-var
- T: PInternetCacheEntryInfo;
- D: DWORD;
-begin
- Result := S_OK;
- D := 0;
- FindnextUrlCacheEntryEx(H, nil, @D, nil, nil, nil);
- GetMem(T, D);
- try
- if not FindNextUrlCacheEntryEx(H, T, @D, nil, nil, nil) then
- Result := GetLastError
- else
- DeleteUrlCacheEntry(T^.lpszSourceUrlname);
- finally
- FreeMem(T, D)
- end;
-end;
-
-procedure ClearCache;
-var
- H: THandle;
-begin
- if DeleteFirstCacheEntry(H) = S_OK then
- repeat
- until DeleteNextCacheEntry(H) = ERROR_NO_MORE_ITEMS;
- FindCloseUrlCache(H);
-end;
-
-procedure ClearTypedUrls;
-begin
- with TRegistry.Create do
- try
- RootKey := HKEY_CURRENT_USER;
- DeleteKey('Software\Microsoft\Internet Explorer\TypedURLs');
- finally
- Free;
- end;
-end;
-
-function CheckOnlineStatus: Boolean;
-var
- dwConnectionTypes: Integer;
-begin
- Result := False;
- try
- dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
- Result := InternetGetConnectedState(@dwConnectionTypes, 0);
- except
- end;
-end;
-
-procedure SetGlobalOffline(Value: Boolean);
-const
- INTERNET_STATE_DISCONNECTED_BY_USER = $10;
- ISO_FORCE_DISCONNECTED = $1;
- INTERNET_STATE_CONNECTED = $1;
-var
- ci: TInternetConnectedInfo;
- dwSize: DWORD;
-begin
- dwSize := SizeOf(ci);
- if Value then
- begin
- ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
- ci.dwFlags := ISO_FORCE_DISCONNECTED;
- end else
- begin
- ci.dwFlags := 0;
- ci.dwConnectedState := INTERNET_STATE_CONNECTED;
- end;
- InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ci, dwSize);
-end;
-
-procedure WorkOffline();
-begin
- SetGlobalOffline(False);
-end;
-
-procedure WorkOnline();
-begin
- SetGlobalOffline(True);
-end;
-
-function IsGlobalOffline: Boolean;
-var
- dwState: DWORD;
- dwSize: DWORD;
-begin
- dwState := 0;
- dwSize := SizeOf(dwState);
- Result := False;
- if (InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @dwState, dwSize)) then
- Result := ((dwState and INTERNET_STATE_DISCONNECTED_BY_USER) <> 0);
-end;
-
-function GetTLDFromHost(Host: string): string;
-var
- i, Dots: Integer;
-begin
- Dots := 0;
- for i := Length(Host) downto 1 do
- begin
- if Copy(Host, i, 1) = '.' then
- Inc(Dots);
- if Dots = 2 then
- break;
- Result := Copy(Host, i, 1) + Result;
- end;
-end;
-
-function CheckIfInRestricredList(const Host: string; SecureSite: Boolean): Boolean;
-const
- Path = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\';
-var
- TLD: string;
-begin // todo: check for IPs IN RANGES
- Result := False;
- TLD := GetTLDFromHost(Host);
- with TRegistry.Create(KEY_READ) do
- begin
- try
- RootKey := HKEY_CURRENT_USER;
- if not OpenKey(Path + 'Domains' + '\' + TLD + '\' +
- Copy(Host, 1, Length(Host) - Length(TLD) - 1), False) then
- begin
- CloseKey;
- if not OpenKey(Path + 'EscDomains' + '\' + TLD + '\' +
- Copy(Host, 1, Length(Host) - Length(TLD) - 1), False) then // found on IE6, W2003
- begin
- CloseKey;
- Exit;
- end;
- end;
- if SecureSite then
- Result := ReadInteger('https') = 4
- else
- Result := ReadInteger('http') = 4
- finally
- CloseKey;
- Free;
- end;
- end;
-end;
-
-function CheckIfInTrustedList(const Host: string; SecureSite: Boolean): Boolean;
-const
- Path = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\';
-var
- TLD: string;
-begin // todo: check for IPs in RANGES
- Result := False;
- TLD := GetTLDFromHost(Host);
- with TRegistry.Create(KEY_READ) do
- begin
- try
- RootKey := HKEY_CURRENT_USER;
- if not OpenKey(Path + 'Domains' + '\' + TLD + '\' +
- Copy(Host, 1, Length(Host) - Length(TLD) - 1), False) then
- begin
- CloseKey;
- if not OpenKey(Path + 'EscDomains' + '\' + TLD + '\' +
- Copy(Host, 1, Length(Host) - Length(TLD) - 1), False) then // found on IE6, W2003
- begin
- CloseKey;
- Exit;
- end;
- end;
- if SecureSite then
- Result := ReadInteger('https') = 2
- else
- Result := ReadInteger('http') = 2
- finally
- CloseKey;
- Free;
- end;
- end;
-end;
-
-procedure AddToTrustedSiteList(WebBrowser: TEmbeddedWB; const URL: string);
-const
- REG_PATH = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains';
-var
- Reg: TRegistryIniFile;
-begin
- if AnsiPos('HTTPS', AnsiUpperCase(URL)) = 0 then
- MessageDlg('Only sites with https:// prefix (secured sites) can be added to the trusted sites list zone!', mtError, [mbOK], 0)
- else
- begin
- try
- Reg := TRegistryIniFile.Create(REG_PATH);
- try
- Reg.WriteInteger(URL, 'https', (2));
- finally
- Reg.Free;
- end;
- except
- end;
- end;
-end;
-
-procedure AddToRestrictedSiteList(WebBrowser: TEmbeddedWB; const URL: string);
-const
- REG_PATH = '\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains';
-var
- st: string;
- I: Integer;
- Reg: TRegistryIniFile;
-begin
- I := LastDelimiter(':', Url) + 2;
- st := Copy(Url, I + 1, MaxInt);
- if AnsiPos('www', st) > 0 then
- begin
- I := 4;
- st := Copy(st, I + 1, MaxInt);
- end;
- try
- Reg := TRegistryIniFile.Create(REG_PATH);
- try
- Reg.WriteInteger(st, '*', (4));
- finally
- Reg.Free;
- end;
- except
- end;
-end;
-
-
-function GetZoneAttributes(const URL: string): TZoneAttributes;
-var
- dwZone: Cardinal;
- ZoneAttr: TZoneAttributes;
-var
- ZoneManager: IInternetZoneManager;
- SecManager: IInternetSecurityManager;
-begin
- ZeroMemory(@ZoneAttr, SizeOf(TZoneAttributes));
- if CoInternetCreateSecuritymanager(nil, SecManager, 0) = S_OK then
- if CoInternetCreateZoneManager(nil, ZoneManager, 0) = S_OK then
- begin
- SecManager.MapUrlToZone(PWideChar(WideString(URL)), dwZone, 0);
- ZoneManager.GetZoneAttributes(dwZone, Result);
- end;
-end;
-
-function GetZoneIconToForm(LocationURL: string; Caption, Hint: string): Boolean;
-var
- ZoneAttr: TZoneAttributes;
- ZoneIcon: TIcon;
-begin
- ZoneAttr := GetZoneAttributes(LocationURL);
- ZoneIcon := TIcon.Create;
- try
- GetZoneIcon(ZoneAttr.szIconPath, ZoneIcon);
- Caption := ZoneAttr.szDisplayName;
- Hint := ZoneAttr.szDisplayName;
- Forms.Application.Icon := ZoneIcon;
- finally
- ZoneIcon.Free;
- end;
- Result := True;
-end;
-
-procedure GetZoneIcon(IconPath: string; var Icon: TIcon);
-var
- FName, ImageName: string;
- h: hInst;
-begin
- FName := Copy(IconPath, 1, Pos('#', IconPath) - 1);
- ImageName := Copy(IconPath, Pos('#', IconPath), Length(IconPath));
- h := LoadLibrary(PChar(FName));
- try
- if h <> 0 then
- Icon.Handle := LoadImage(h, PChar(ImageName), IMAGE_ICON, 16, 16, 0);
- finally
- FreeLibrary(h);
- end;
-end;
-
-function GetUrlSecurityZone(LocationURL: string; var ZoneName, ZoneDescription: string; var Icon: TIcon): Boolean;
-var
- ZoneAttr: TZoneAttributes;
-begin
- Assert(Icon <> nil);
- ZoneAttr := GetZoneAttributes(LocationURL);
- try
- try
- GetZoneIcon(ZoneAttr.szIconPath, Icon);
- ZoneName := ZoneAttr.szDisplayName;
- ZoneDescription := ZoneAttr.szDescription;
- Result := True;
- except
- Result := False;
- end;
- finally
- end;
-end;
-
-function GetSSLStatus(OleObject: Variant; LocationURL: string; var SSLName, SSLDescription: string): Boolean;
-begin
- Result := False;
- if (Pos('https://', LocationURL) > 0) then
- begin
- if OleObject.Document.Location.Protocol = 'https:' then
- begin
- SSLName := 'SSL';
- SSLDescription := 'It is a secure web page.';
- Result := True;
- end;
- end
- else
- begin
- SSLName := 'None';
- SSLDescription := 'The page is not secured.';
- Result := False;
- end
-end;
-
-function SetProxy(UserAgent, Address, Bypass: string): Boolean;
-var
- list: INTERNET_PER_CONN_OPTION_LIST;
- dwBufSize: DWORD;
- hInternet: Pointer;
- Options: array[1..3] of INTERNET_PER_CONN_OPTION;
-begin
- Result := False;
- dwBufSize := SizeOf(list);
- list.dwSize := SizeOf(list);
- list.pszConnection := nil;
- list.dwOptionCount := High(Options);
-
- Options[1].dwOption := INTERNET_PER_CONN_FLAGS;
-// Options[1].Value.dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY; //Original code
- Options[1].dwValue := PROXY_TYPE_PROXY;
-
- Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
- Options[2].pszValue := PChar(Address);
-
- Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
- Options[3].pszValue := PChar(Bypass);
- ShowMessage(Bypass);
- list.pOptions := @Options;
- hInternet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
- if hInternet <> nil then
- try
- Result := InternetSetOption(nil, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
- Result := Result and InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
- finally
- InternetCloseHandle(hInternet)
- end;
-end;
-
-function SetProxy(UserAgent, Address, UserName, Password: string; Port: Integer): Boolean;
-var
- list: INTERNET_PER_CONN_OPTION_LIST;
- dwBufSize: DWORD;
- hInternet, hInternetConnect: Pointer;
- Options: array[1..3] of INTERNET_PER_CONN_OPTION;
-begin
- Result := False;
- dwBufSize := SizeOf(list);
- list.dwSize := SizeOf(list);
- list.pszConnection := nil;
- list.dwOptionCount := High(Options);
- Options[1].dwOption := INTERNET_PER_CONN_FLAGS;
- Options[1].dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
- Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
- Options[2].pszValue := PChar(Address);
- Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
- Options[3].pszValue := '';
- list.pOptions := @Options;
- hInternet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
- if hInternet <> nil then
- try
- hInternetConnect := InternetConnect(hInternet, PChar(Address), Port, PChar(UserName), PChar(Password),
- INTERNET_SERVICE_HTTP, 0, 0);
- if hInternetConnect <> nil then
- begin
- Result := InternetSetOption(hInternet, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
- Result := Result and InternetSetOption(hInternet, INTERNET_OPTION_REFRESH, nil, 0);
- end;
- finally
- InternetCloseHandle(hInternet)
- end;
-end;
-
-
-function SetProxyFromPAC(UserAgent, PACFile: string): Boolean;
-var
- list: INTERNET_PER_CONN_OPTION_LIST;
- dwBufSize: DWORD;
- hInternet: Pointer;
- Options: array[1..2] of INTERNET_PER_CONN_OPTION;
-begin
- Result := False;
- dwBufSize := SizeOf(list);
- list.dwSize := SizeOf(list);
- list.pszConnection := nil;
- list.dwOptionCount := High(Options);
- Options[1].dwOption := INTERNET_PER_CONN_AUTOCONFIG_URL;
- Options[1].pszValue := PChar(PacFile);
- Options[2].dwOption := INTERNET_PER_CONN_FLAGS;
- Options[2].dwValue := PROXY_TYPE_AUTO_PROXY_URL;
- list.dwOptionCount := 2;
- list.dwOptionError := 0;
- list.pOptions := @Options;
- hInternet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
- if hInternet <> nil then
- try
- Result := InternetSetOption(hInternet, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
- Result := Result and InternetSetOption(hInternet, INTERNET_OPTION_REFRESH, nil, 0);
- finally
- InternetCloseHandle(hInternet)
- end;
-end;
-
-function RemoveProxy(): Boolean;
-var
- list: INTERNET_PER_CONN_OPTION_LIST;
- dwBufSize: DWORD;
- hInternet: Pointer;
- Options: array[1..3] of INTERNET_PER_CONN_OPTION;
-begin
- Result := False;
- dwBufSize := SizeOf(list);
- list.dwSize := SizeOf(list);
- list.pszConnection := nil;
- list.dwOptionCount := High(Options);
- Options[1].dwOption := INTERNET_PER_CONN_FLAGS;
- Options[1].dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
- Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
- Options[2].pszValue := PChar('');
- Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
- Options[3].pszValue := '';
- list.pOptions := @Options;
- hInternet := InternetOpen(PChar(''), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
- if hInternet <> nil then
- try
- InternetSetOption(hInternet, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
- InternetSetOption(hInternet, INTERNET_OPTION_REFRESH, nil, 0);
- Result := True;
- finally
- InternetCloseHandle(hInternet)
- end;
-end;
-
-procedure RemoveUserAgent(UserAgent: string);
-var
- reg: TRegistry;
-begin
- Reg := TRegistry.Create;
- with Reg do
- begin
- RootKey := HKEY_CURRENT_USER;
- try
- if OpenKey(USER_AGENT_PATH, False)
- then
- DeleteValue(UserAgent);
- finally
- CloseKey;
- Free;
- end;
- end;
-end;
-
-var
- MimeFactory, NSFactory: IClassFactory;
- MimeInternetSession, NSInternetSession: IInternetSession;
-
-function RegisterMIMEFilter(clsid: TGUID; MIME: PWideChar): HRESULT;
-begin
- CoGetClassObject(Clsid, CLSCTX_SERVER, nil, IClassFactory, MimeFactory);
- CoInternetGetSession(0, MimeInternetSession, 0);
- Result := MIMEInternetSession.RegisterMimeFilter(MimeFactory, Clsid, MIME);
-end;
-
-function UnregisterMIMEFilter(MIME: PWideChar): HRESULT;
-begin
- Result := MIMEInternetSession.UnregisterMimeFilter(MIMEFactory, MIME);
-end;
-
-function RegisterNameSpace(clsid: TGUID): HRESULT;
-begin
- CoGetClassObject(Clsid, CLSCTX_SERVER, nil, IClassFactory, NSFactory);
- CoInternetGetSession(0, NSInternetSession, 0);
- Result := NSInternetSession.RegisterNameSpace(NSFactory, Clsid, 'http', 0, nil, 0);
-end;
-
-function UnregisterNameSpace: HRESULT;
-begin
- Result := NSInternetSession.UnregisterNameSpace(NSFactory, 'http');
-end;
-
-procedure RestoreApplicationFormSize(WebBrowser: TEmbeddedWB);
-var
- ws: Integer;
- RegPath: string;
-begin
- with TRegistry.Create do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title + '\FormSize';
- if OpenKey(RegPath, False) then
- try
- with Forms.Application.MainForm do
- begin
- Left := ReadInteger('Left');
- Top := ReadInteger('Top');
- Width := ReadInteger('Width');
- Height := ReadInteger('Height');
- ws := ReadInteger('WindowState');
- case ws of
- 0: WindowState := wsNormal;
- 1: WindowState := wsMinimized;
- 2: WindowState := wsMaximized;
- end;
- end;
- except
- end;
- CloseKey;
- Free;
- end;
-end;
-
-procedure SaveApplicationFormSize(WebBrowser: TEmbeddedWB);
-var
- RegPath: string;
-begin
- with TRegistry.Create do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title + '\FormSize';
- if OpenKey(RegPath, True) then
- try
- with Forms.Application.MainForm do
- begin
- WriteInteger('Top', Top);
- WriteInteger('Left', Left);
- WriteInteger('Width', Width);
- WriteInteger('Height', Height);
- with Forms.Application.MainForm do
- case WindowState of
- wsNormal: WriteInteger('WindowState', 0);
- wsMinimized: WriteInteger('WindowState', 0);
- wsMaximized: WriteInteger('WindowState', 0);
- end;
- end;
- CloseKey;
- Free;
- except
- end;
- end;
-end;
-
-procedure Wait(WebBrowser: TEmbeddedWB);
-begin
- WebBrowser.Wait;
-end;
-
-function InvokeCMD(Document: IDispatch; InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant): HRESULT;
-var
- CmdTarget: IOleCommandTarget;
- PtrGUID: PGUID;
-begin
- // New(PtrGUID);
- Result := S_FALSE;
- if InvokeIE then
- begin
- New(PtrGUID);
- PtrGUID^ := CLSID_WebBrowser;
- end
- else
- PtrGuid := PGUID(nil);
- if DocumentLoaded(Document) then
- try
- Document.QueryInterface(IOleCommandTarget, CmdTarget);
- if CmdTarget <> nil then
- try
- Result := CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
- finally
- //CmdTarget._Release; I4214 // I4214
- end;
- except
- end;
- Dispose(PtrGUID);
-end;
-
-function GetIEHandle(WebBrowser: TEmbeddedWB; ClassName: string): HWND;
-begin
- Result := WebBrowser.GetIEHandle(WebBrowser, ClassName);
-end;
-
-procedure ShowIEVersionInfo(Handle: THandle);
-begin
- SendMessage(Handle, WM_COMMAND, ID_IE_HELP_VERSIONINFO, 0);
-end;
-
-procedure SetNewHomePage(HomePage: string);
-begin
- with TRegistry.Create do
- begin
- try
- OpenKey('\Software\Microsoft\Internet Explorer\Main', True);
- WriteString('Start Page', HomePage);
- CloseKey;
- finally
- Free;
- end;
- end;
-end;
-
-function GetLastVisitedPage(var LastVisitedPage: string): Boolean;
-begin
- Result := False;
- with TRegistry.Create do
- begin
- LastVisitedPage := '';
- RootKey := HKEY_LOCAL_MACHINE;
- try
- if OpenKey('SOFTWARE\' + Forms.Application.Title + '\WebPages', False) then
- begin
- LastVisitedPage := ReadString('LastVisitedPage');
- CloseKey;
- Result := (LastVisitedPage <> '') and (AnsiPos('.', LastVisitedPage) > 0);
- end;
- finally
- Free;
- end;
- end;
-end;
-
-function SaveLastVisitedPage(WebBrowser: TEmbeddedWB; LocationURL: string): Boolean;
-var
- RegPath: string;
-begin
- Result := False;
- with TRegistry.Create do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title + '\WebPages';
- if OpenKey(RegPath, False) then
- try
- DeleteKey('LastVisitedPage');
- except
- end;
- Free;
- end;
- with TRegIniFile.Create do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title;
- if OpenKey(RegPath, True) then
- begin
- try
- WriteString('WebPages', 'LastVisitedPage', LocationURL);
- Result := True;
- except
- end;
- CloseKey;
- end;
- Free;
- end;
-end;
-
-procedure CreateDesktopShortcut(Handle: THandle);
-begin
- SendMessage(Handle, WM_COMMAND, ID_IE_FILE_SENDDESKTOPSHORTCUT, 0);
-end;
-
-procedure DisableNavSound(bDisable: Boolean);
-const
- REG_PATH = 'AppEvents\Schemes\Apps\Explorer\Navigating\';
-var
- Reg: TRegIniFile;
-begin
- Reg := TRegIniFile.Create;
- with Reg do
- begin
- RootKey := HKEY_CURRENT_USER;
- try
- if bDisable then
- begin
- if KeyExists(REG_PATH + '.Current') then
- if OpenKey(REG_PATH, True) then
- MoveKey('.Current', 'Old_Current', True);
- end
- else
- begin
- if KeyExists(REG_PATH + 'Old_Current') then
- if OpenKey(REG_PATH, False) then
- MoveKey('Old_Current', '.Current', True);
- end;
- finally
- CloseKey;
- Free;
- end;
- end;
-end;
-
-function WBExecScript(
- TargetObj: IDispatch;
- MethodName: string;
- ParamValues: array of const): OleVariant;
-var
- wide: WideString;
- disps: TDispIDList;
- panswer: ^OleVariant;
- answer: OleVariant;
- dispParams: TDispParams;
- aexception: TExcepInfo;
- pVarArg: PVariantArgList;
- res: HRESULT;
- ParamCount, i: Integer;
-begin
- Result := False;
-
- // prepare for function call
- ParamCount := High(ParamValues) + 1;
- wide := MethodName;
- pVarArg := nil;
- if ParamCount > 0 then
- GetMem(pVarArg, ParamCount * sizeof(TVariantArg));
-
- try
- // get dispid of requested method
- if not Succeeded(TargetObj.GetIDsOfNames(GUID_NULL, @wide, 1, 0, @disps)) then
- raise Exception.Create('This object does not support this method');
- pAnswer := @answer;
-
- // prepare parameters
- for i := 0 to Pred(ParamCount) do
- begin
- case ParamValues[ParamCount - 1 - i].VType of
- vtBoolean: begin
- pVarArg^[i].vt := VT_BOOL;
- pVarArg^[i].vbool := ParamValues[ParamCount - 1 - i].VBoolean;
- end;
- vtCurrency: begin
- pVarArg^[i].vt := VT_CY;
- pVarArg^[i].cyVal := ParamValues[ParamCount - 1 - i].VCurrency^;
- end;
- vtInt64: begin
- pVarArg^[i].vt := VT_I8;
- PInt64(@pVarArg^[i].cyVal)^ := ParamValues[ParamCount - 1 - i].VInt64^;
- end;
- vtInteger: begin
- pVarArg^[i].vt := VT_I4;
- pVarArg^[i].lVal := ParamValues[ParamCount - 1 - i].VInteger;
- end;
- vtExtended: begin
- pVarArg^[i].vt := VT_R8;
- pVarArg^[i].dblVal := ParamValues[ParamCount - 1 - i].VExtended^;
- end;
- vtVariant: begin
- pVarArg^[i].vt := VT_BYREF or VT_VARIANT;
- pVarArg^[i].pvarVal := ParamValues[ParamCount - 1 - i].VVariant;
- end;
- vtChar: begin
- {pVarArg^[i].vt := VT_I1;
- pVarArg^[i].cVal := ParamValues[ParamCount - 1 - i].VChar;}
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(WideString(ParamValues[ParamCount - 1 - i].VChar));
- end;
- vtWideChar: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(WideString(ParamValues[ParamCount - 1 - i].VWideChar));
- end;
- vtPChar: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(WideString(ParamValues[ParamCount - 1 - i].VPChar));
- end;
- vtPWideChar: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := ParamValues[ParamCount - 1 - i].VPWideChar;
- end;
- vtAnsiString: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(WideString(PAnsiChar(ParamValues[ParamCount - 1 - i].VAnsiString)));
- end;
- vtWideString: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(WideString(ParamValues[ParamCount - 1 - i].VWideString));
- end;
- vtString: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(WideString(PAnsiChar(ParamValues[ParamCount - 1 - i].VString)));
- end;
-{$IFDEF UNICODE}
- vtUnicodeString: begin
- pVarArg^[i].vt := VT_BSTR;
- pVarArg^[i].bstrVal := PWideChar(UnicodeString(ParamValues[ParamCount - 1 - i].VUnicodeString));
- end;
-{$ENDIF UNICODE}
- else
- raise Exception.CreateFmt('Unsupported type for Parameter with Index %d', [i]);
- end;
- end;
-
- // prepare dispatch parameters
- dispparams.rgvarg := pVarArg;
- dispparams.rgdispidNamedArgs := nil;
- dispparams.cArgs := ParamCount;
- dispparams.cNamedArgs := 0;
-
- // make IDispatch call
- res := TargetObj.Invoke(disps[0],
- GUID_NULL, 0, DISPATCH_METHOD or DISPATCH_PROPERTYGET,
- dispParams, pAnswer, @aexception, nil);
-
- // check the Result
- if res <> 0 then
- raise Exception.CreateFmt(
- 'Method call unsuccessful. %s (%s).',
- [string(aexception.bstrDescription), string(aexception.bstrSource)]);
-
- // return the Result
- Result := answer;
- finally
- if ParamCount > 0 then
- FreeMem(pVarArg, ParamCount * sizeof(TVariantArg));
- end;
-end;
-
-function ExecScriptEx(WebBrowser: TEmbeddedWB; MethodName: string; ParamValues: array of const): OleVariant;
-var
- doc: IHTMLDocument2;
- dScript: IDispatch;
-begin
- if WebBrowser.DocumentLoaded(Doc) then
- begin
- dScript := doc.Script;
- if Assigned(dScript) then
- Result := WBExecScript(DScript, MethodName, ParamValues);
- end;
-end;
-
-procedure ExecScript(WebBrowser: TEmbeddedWB; sExpression, sLanguage: string);
-// e.g. sLanguage = 'JavaScript';
-var
- Doc: IHTMLDocument2; // current HTML document
- HTMLWin: IHTMLWindow2; // parent window of current HTML document
-begin
- if WebBrowser.DocumentLoaded(Doc) then
- begin
- HTMLWin := Doc.parentWindow;
- if Assigned(HTMLWin) then
- begin
- try
- HTMLWin.execScript(sExpression, sLanguage);
- except
- end;
- end;
- end;
-end;
-
-//To Add--------------------------------------------------
-
-function URLFromShortcut(const dotURL: string): string;
-begin
- Result := '';
- with TIniFile.Create(dotURL) do
- try
- Result := ReadString('InternetShortcut', 'URL', '');
- finally
- Free;
- end;
-end;
-
-function ExtractUrl(ShellFolder: IShellFolder; pidl: PItemIDList): string;
-var
- Handle: THandle;
- Info: IQueryInfo;
- W: PWideChar;
-begin
- Handle := 0;
- Info := nil;
- Result := '';
- ShellFolder.GetUIObjectOf(Handle, 1, pidl, IID_IQUERYINFO, nil, Pointer(Info));
- if Assigned(Info) then
- begin
- Info.GetInfoTip(0, w);
- Result := W;
- end;
- Result := Trim(Copy(Result, Pos(#10, Result) + 1, length(Result)));
-end;
-
-function StringToVarArray(const S: string): Variant;
-begin
- Result := Unassigned;
- if S <> '' then
- begin
- Result := VarArrayCreate([0, Length(S) - 1], varByte);
- Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
- VarArrayUnlock(Result);
- end;
-end;
-
-function VarArrayToString(const V: Variant): string;
-var
- i, j: Integer;
-begin
- if VarIsArray(V) then
- for i := 0 to VarArrayHighBound(V, 1) do
- begin
- j := V[i];
- Result := Result + chr(j);
- end;
-end;
-
-function Encode(const S: string): string;
-var
- I: Integer;
- Hex: string;
-begin
- for I := 1 to Length(S) do
- case S[i] of
- ' ': Result := Result + '+';
- 'A'..'Z', 'a'..'z', '*', '@', '.', '_', '-',
- '0'..'9', '$', '!', '''', '(', ')':
- Result := Result + s[i];
- else
- begin
- Hex := IntToHex(ord(S[i]), 2);
- if Length(Hex) = 2 then
- Result := Result + '%' + Hex
- else
- Result := Result + '%0' + hex;
- end;
- end;
-end;
-
-function IE5_Installed: Boolean;
-var
- Reg: TRegistry;
- S: string;
-begin
- Reg := TRegistry.Create;
- with Reg do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- OpenKey('Software\Microsoft\Internet Explorer', False);
- if ValueExists('Version') then
- S := ReadString('Version')
- else
- S := '0';
- CloseKey;
- Free;
- end;
- Result := (StrToInt(S[1]) > 4);
-end;
-
-function GetIEVersionMajor: Integer;
-var
- i: Integer;
- s: string;
-begin
- s := GetIEVersion;
- i := Pos('.', s);
- Result := -1;
- if i <> 0 then
- begin
- try
- Result := StrToInt(Copy(s, 1, Pos('.', s) - 1));
- except
- Result := -1;
- end;
- end;
-end;
-
-function GetIEVersion: string;
-var
- SysDir: PChar;
- Info: Pointer;
- InfoData: Pointer;
- InfoSize: LongInt;
- Len: DWORD;
- FName: Pchar;
- SystemDir, Infotype: string;
- LangPtr: Pointer;
-begin
- Len := MAX_PATH + 1;
- GetMem(SysDir, Len);
- try
- if Windows.GetSystemDirectory(SysDir, Len) <> 0 then
- SystemDir := SysDir;
- finally
- FreeMem(SysDir);
- end;
- Result := '';
- InfoType := 'FileVersion';
- if FileExists(SystemDir + '\ieframe.dll') then
- FName := PChar(SystemDir + '\ieframe.dll')
- else
- FName := PChar(SystemDir + '\shdocvw.dll');
- InfoSize := GetFileVersionInfoSize(Fname, Len);
- if (InfoSize > 0) then
- begin
- GetMem(Info, InfoSize);
- try
- if GetFileVersionInfo(FName, Len, InfoSize, Info) then
- begin
- Len := 255;
- if VerQueryValue(Info, '\VarFileInfo\Translation', LangPtr, Len) then
- InfoType := Format('\StringFileInfo\%0.4x%0.4x\%s'#0, [LoWord(LongInt(LangPtr^)),
- HiWord(LongInt(LangPtr^)), InfoType]);
- if VerQueryValue(Info, Pchar(InfoType), InfoData, len) then
-{$IFDEF UNICODE}
- Result := Trim(PWideChar(InfoData));
-{$ELSE}
- Result := StrPas(PAnsiChar(InfoData));
-{$ENDIF UNICODE}
- end;
- finally
- FreeMem(Info, InfoSize);
- end;
- end;
-end;
-
-function ResolveUrlIni(Filename: string): string;
-var
- ini: TiniFile;
-begin
- Result := '';
- ini := TIniFile.Create(Filename);
- try
- Result := ini.ReadString('InternetShortcut', 'URL', '');
- finally
- ini.Free;
- end;
-end;
-
-function ResolveUrlIntShCut(Filename: string): string;
-var
- IURL: IUniformResourceLocator;
- PersistFile: IPersistfile;
- FName: array[0..MAX_PATH] of WideChar;
- p: PChar;
-begin
- if Succeeded(CoCreateInstance(CLSID_InternetShortcut, nil, CLSCTX_INPROC_SERVER,
- IID_IUniformResourceLocator, IURL)) then
- begin
- Persistfile := IUrl as IPersistFile;
- StringToWideChar(FileName, FName, MAX_PATH);
- PersistFile.Load(FName, STGM_READ);
- IUrl.GetUrl(@P);
- Result := P;
- end;
-end;
-
-function ResolveChannel(pFolder: IShellFolder; pidl: PItemIDList; var lpszURL: string): HRESULT;
-var
- pidlChannel: PItemIDList;
- psfDesktop: IShellFolder;
- pShellLink: IShellLink;
-begin
- Result := S_FALSE;
- if Succeeded(pFolder.GetUIObjectOf(0, 1, pidl, IShellLink, nil, Pointer(pShellLink)))
- then
- if Succeeded(pShellLink.GetIDList(pidlChannel)) then
- if Succeeded(SHGetDesktopFolder(psfDesktop)) then
- begin
- lpszURL := getDisplayName(psfDesktop, PidlChannel);
- Result := S_OK;
- end;
- DisposePidl(PidlChannel);
-end;
-
-function ResolveLink(const Path: string): string;
-var
- link: IShellLink;
- storage: IPersistFile;
- filedata: TWin32FindData;
- buf: array[0..MAX_PATH] of Char;
- widepath: WideString;
-begin
- OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, link));
- OleCheck(link.QueryInterface(IPersistFile, storage));
- widepath := path;
- Result := '';
- if Succeeded(storage.Load(@widepath[1], STGM_READ)) then
- if Succeeded(link.Resolve(GetActiveWindow, SLR_NOUPDATE)) then
- if Succeeded(link.GetPath(buf, SizeOf(buf), filedata, SLGP_UNCPRIORITY)) then
- Result := buf;
- storage := nil;
- link := nil;
-end;
-
-function IsFolder(ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
-var
- Flags: UINT;
-begin
- Flags := SFGAO_FOLDER;
- ShellFolder.GetAttributesOf(1, ID, Flags);
- Result := SFGAO_FOLDER and Flags <> 0;
-end;
-
-function IsChannel(ChannelShortcut: string; ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
-var
- FileInfo: TShFileInfo;
-begin
- SHGetFileInfo(Pchar(ID), 0, FileInfo, SizeOf(TSHFileInfo), SHGFI_PIDL or SHGFI_TYPENAME);
- Result := BOOL(fileinfo.szTypeName = ChannelShortcut);
-end;
-
-function IsFolderEx(ChannelShortcut: string; ShellFolder: IShellFolder; ID: PItemIDList): Boolean;
-var
- Flags: UINT;
-begin
- Flags := SFGAO_FOLDER;
- ShellFolder.GetAttributesOf(1, ID, Flags);
- if SFGAO_FOLDER and Flags <> 0 then
- Result := not isChannel(ChannelShortcut, Shellfolder, id)
- else
- Result := False;
-end;
-
-function GetImageIndex(pidl: PItemIDList): Integer;
-var
- Flags: UINT;
- FileInfo: TSHFileInfo;
-begin
- Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_SMALLICON;
- if SHGetFileInfo(PChar(pidl), 0, FileInfo, SizeOf(TSHFileInfo), Flags) = 0 then
- Result := -1
- else
- Result := FileInfo.iIcon;
-end;
-
-{function GetDisplayName(Folder: IShellFolder; pidl: PItemIDList): string;
-var
- StrRet: TStrRet;
-begin
- Result := '';
- Folder.GetDisplayNameOf(pidl, SHGDN_NORMAL, StrRet);
- case StrRet.uType of
- STRRET_CSTR:
- SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
- STRRET_OFFSET:
- Result := Pchar(@pidl.mkid.abID[StrRet.uOffset - SizeOf(pidl.mkid.cb)]);
- STRRET_WSTR:
- Result := StrRet.pOleStr;
- end;
-end; }
-
-function GetDisplayName(Folder: IShellFolder; PIDL: PItemIDList): string;
-var
- StrRet: TStrRet;
- P: PChar;
- Flags: Integer;
-begin
- Result := '';
- Flags := SHGDN_NORMAL;
- Folder.GetDisplayNameOf(PIDL, Flags, StrRet);
- case StrRet.uType of
- STRRET_CSTR:
- SetString(Result, StrRet.cStr, lStrLenA(StrRet.cStr));
- STRRET_OFFSET:
- begin
- P := @PIDL.mkid.abID[StrRet.uOffset - SizeOf(PIDL.mkid.cb)];
- SetString(Result, P, PIDL.mkid.cb - StrRet.uOffset);
- end;
- STRRET_WSTR:
- Result := StrRet.pOleStr;
- end;
-end;
-
-{function GetFileName(Folder: IShellFolder; pidl: PItemIDList): string;
-var
- StrRet: TStrRet;
-begin
- Folder.GetDisplayNameOf(pidl, SHGDN_FORPARSING, StrRet);
- case StrRet.uType of
- STRRET_CSTR:
- SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
- STRRET_OFFSET:
- Result := Pchar(@pidl.mkid.abID[StrRet.uOffset - SizeOf(pidl.mkid.cb)]);
- STRRET_WSTR:
- Result := StrRet.pOleStr;
- end;
-end; }
-
-function GetFileName(Folder: IShellFolder; pidl: PItemIDList): string;
-var
- StrRet: TStrRet;
- P: PChar;
-begin
- Result := '';
- Folder.GetDisplayNameOf(PIDL, SHGDN_FORPARSING, StrRet);
- case StrRet.uType of
- STRRET_CSTR:
- SetString(Result, StrRet.cStr, lStrLenA(StrRet.cStr));
- STRRET_OFFSET:
- begin
- P := @PIDL.mkid.abID[StrRet.uOffset - SizeOf(PIDL.mkid.cb)];
- SetString(Result, P, PIDL.mkid.cb - StrRet.uOffset);
- end;
- STRRET_WSTR:
- Result := StrRet.pOleStr;
- end;
-end;
-
-procedure DisposePIDL(ID: PItemIDList);
-var
- Malloc: IMalloc;
-begin
- if ID <> nil then
- begin
- OLECheck(SHGetMalloc(Malloc));
- Malloc.Free(ID);
- end;
-end;
-
-function CopyITEMID(Malloc: IMalloc; ID: PItemIDList): PItemIDList;
-begin
- Result := Malloc.Alloc(ID^.mkid.cb + SizeOf(ID^.mkid.cb));
- CopyMemory(Result, ID, ID^.mkid.cb + SizeOf(ID^.mkid.cb));
-end;
-
-function NextPIDL(IDList: PItemIDList): PItemIDList;
-begin
- Result := IDList;
- Inc(PAnsiChar(Result), IDList^.mkid.cb);
-end;
-
-function GetPIDLSize(IDList: PItemIDList): Integer;
-begin
- Result := 0;
- if Assigned(IDList) then
- begin
- Result := SizeOf(IDList^.mkid.cb);
- while IDList^.mkid.cb <> 0 do
- begin
- Result := Result + IDList^.mkid.cb;
- IDList := NextPIDL(IDList);
- end;
- end;
-end;
-
-procedure StripLastID(IDList: PItemIDList);
-var
- MarkerID: PItemIDList;
-begin
- MarkerID := IDList;
- if Assigned(IDList) then
- begin
- while IDList.mkid.cb <> 0 do
- begin
- MarkerID := IDList;
- IDList := NextPIDL(IDList);
- end;
- MarkerID.mkid.cb := 0;
- end;
-end;
-
-function CreatePIDL(Size: Integer): PItemIDList;
-var
- Malloc: IMalloc;
- HR: HResult;
-begin
- Result := nil;
- HR := SHGetMalloc(Malloc);
- if Failed(HR) then
- Exit;
- try
- Result := Malloc.Alloc(Size);
- if Assigned(Result) then
- FillChar(Result^, Size, 0);
- finally
- end;
-end;
-
-function CopyPIDL(IDList: PItemIDList): PItemIDList;
-var
- Size: Integer;
-begin
- Size := GetPIDLSize(IDList);
- Result := CreatePIDL(Size);
- if Assigned(Result) then
- CopyMemory(Result, IDList, Size);
-end;
-
-function ConcatPIDLs(IDList1, IDList2: PItemIDList): PItemIDList;
-var
- cb1, cb2: Integer;
-begin
- if Assigned(IDList1) then
- cb1 := GetPIDLSize(IDList1) - SizeOf(IDList1^.mkid.cb)
- else
- cb1 := 0;
- cb2 := GetPIDLSize(IDList2);
- Result := CreatePIDL(cb1 + cb2);
- if Assigned(Result) then
- begin
- if Assigned(IDList1) then
- CopyMemory(Result, IDList1, cb1);
- CopyMemory(PAnsiChar(Result) + cb1, IDList2, cb2);
- end;
-end;
-
-function DeleteUrl(Url: PWideChar): HResult;
-begin
- Result := DeleteUrl(Url);
-end;
-
-function GetMailClients: TStrings;
-var
- Reg: TRegistry;
- ts: TStrings;
- i: Integer;
-begin
- ts := TStringList.Create;
- Reg := TRegistry.Create;
- with Reg do
- begin
- RootKey := HKEY_CURRENT_USER;
- try
- OpenKey(RegMail, False);
- if HasSubKeys then
- begin
- GetKeyNames(ts);
- CloseKey;
- for i := 0 to ts.Count - 1 do
- OpenKey(RegMail + ts.Strings[i], False);
- end;
- Result := ts;
- finally
- CloseKey;
- Free;
- end;
- end;
-end;
-
-
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/EwbUrl.pas b/windows/src/ext/embeddedwb/Source/EwbUrl.pas
deleted file mode 100644
index bd0328541e3359caf4286e7d06a0681bde29ac51..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/EwbUrl.pas
+++ /dev/null
@@ -1,833 +0,0 @@
-//***********************************************************
-// URL Tools *
-// (Uniform Resource identifier) *
-// *
-// For Borland Delphi *
-// Freeware Unit *
-// by Eran Bodankin - bsalsa - bsalsa@gmail.com *
-// *
-// QueryUrl function is based on Indy algorithm *
-// from: http://www.indyproject.org/ *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: EwbUrl.pas,v 1 2007/02/15 21:01:42 bsalsa Exp $
-{
-QueryUrl Structure:
- Protocol + :// + UserName + : + Password + HostName + Port + Path +
- Document + Parameters+ Bookmark
-
-CrackUrl Structure:
-://:@:/
- Note by MS:
-(Some fields are optional.) For example, consider this URL:
-http://someone:secret@www.microsoft.com:80/visualc/stuff.htm#contents
-
-CrackUrl parses it as follows:
-* Scheme: "http" or ATL_URL_SCHEME_HTTP
-* UserName: "someone"
-* Password: "secret"
-* HostName: "www.microsoft.com"
-* PortNumber: 80
-* UrlPath: "visualc/stuff.htm"
-* ExtraInfo: "#contents"
-
-URL_COMPONENTS = record that contains:
- dwStructSize: DWORD; = size of this structure. Used in version check
- lpszScheme: LPSTR; = pointer to scheme name
- dwSchemeLength: DWORD; = length of scheme name
- nScheme: TInternetScheme; = enumerated scheme type (if known)
- lpszHostName: LPSTR; = pointer to host name
- dwHostNameLength: DWORD; = length of host name
- nPort: INTERNET_PORT; = converted port number
- pad: WORD; = force correct allignment regardless of comp. flags
- lpszUserName: LPSTR; = pointer to user name
- dwUserNameLength: DWORD; = length of user name
- lpszPassword: LPSTR; = pointer to password
- dwPasswordLength: DWORD; = length of password
- lpszUrlPath: LPSTR; = pointer to URL-path
- dwUrlPathLength: DWORD; = length of URL-path
- lpszExtraInfo: LPSTR; = pointer to extra information (e.g. ?foo or #foo)
- dwExtraInfoLength: DWORD; = length of extra information
-
-URL_COMPONENTS on MSDN:
-http://msdn2.microsoft.com/en-us/library/aa385420.aspx
-
-CoInternetQueryInfo Function fags:
-http://msdn.microsoft.com/library/default.asp?url=/workshop/networking/moniker/reference/enums/queryoption.asp
-}
-
-unit EwbUrl;
-
-{$I EWB.inc}
-
-{$DEFINE USE_DebugString}
-
-interface
-
-uses
- Dialogs, Windows, WinInet;
-
-const
- TEMP_SIZE = 1024;
- MAX_BUFFER = 256;
- WebDelim = '/';
- ProtocolDelim = '://';
- QueryDelim = '?';
- BookmarkDelim = '#';
- EqualDelim = '=';
- DriveDelim = ':'; //I know it's in SysUtils already but, not in D5.
-type
- TQueryOption = ULONG;
- TCoInternetQueryInfo = function(pwzUrl: LPCWSTR; QueryOptions: TQueryOption; dwQueryFlags: DWORD;
- pvBuffer: Pointer; cbBuffer: DWORD; var pcbBuffer: DWORD; dwReserved: DWORD): HResult; stdcall;
-
-type
- TOnError = procedure(Sender: TObject; ErrorCode: integer; ErrMessage: string) of object;
-type
- TUrl = class
- private
- FDocument: string;
- FProtocol: string;
- FUrl: string;
- FPort: Integer;
- FUrlPath: string;
- FHostName: string;
- FExtraInfo: string;
- FUserName: string;
- FPassword: string;
- FBookmark: string;
- FOnError: TOnError;
- FParameters: string;
- FUrlComponent: URL_COMPONENTS;
- CoInternetQueryInfo: TCoInternetQueryInfo;
- function initCoInternetQueryInfo: boolean;
- protected
- procedure SetUrl(const Value: string);
- procedure FillUrlComponent;
- public
- function FixUrl(Url: string): string;
- function BuildUrl: WideString;
- function CanonicalizeUrl(const Url: string; dwFlags: integer): WideString;
- function CombineUrl(const BaseUrl, RelativaUrl: string; dwFlags: DWord): WideString;
- function CompareUrl(const pwzUrl1, pwzUrl2: WideString): HResult;
- function CrackUrl(const Url: string; dwFlags: DWord): WideString;
- function CreateUrl(const dwFlags: DWord): WideString;
- function EncodeUrl(const InputStr: string; const bQueryStr: Boolean): string;
- function DecodeUrl(const InputStr: string): string;
- function IsUrlValid(const Url: string): boolean;
- function IsUrlCached(const Url: string): boolean;
- function GetUrlSize(const Url: string): string;
- function GetUrlType(const Url: string): string;
- function GetUrlProtocolVersion(const Url: string): string;
- function GetUrlServerDetails(const Url: string): string;
- function GetUrlCharSet(const Url: string): string;
- function GetUrlServer(const Url: string): string;
- function GetUrlLastModified(const Url: string): string;
- function GetUrlDate(const Url: string): string;
- function GetUrlStatusCode(const Url: string): string;
- function GetUrlEntityTag(const Url: string): string;
- function QueryInfo(const Url: string; dwInfoFlag: Integer): string;
- function CoInetQueryInfo(const Url: WideString; QueryOptions: Cardinal): Boolean;
- function ReadFile(const URL: string; TimeOut: LongWord): string;
- procedure Clear;
- procedure ClearUrlComponent;
- procedure QueryUrl(Url: string);
- constructor Create(const Url: string); overload;
- public
- property Bookmark: string read FBookmark write FBookmark;
- property Document: string read FDocument write FDocument;
- property ExtraInfo: string read FExtraInfo write FExtraInfo;
- property HostName: string read FHostName write FHostName;
- property Parameters: string read FParameters write FParameters;
- property Password: string read FPassword write FPassword;
- property Port: Integer read FPort write FPort;
- property Protocol: string read FProtocol write FProtocol;
- property OnError: TOnError read FOnError write FOnError;
- property Url: string read FUrl write SetUrl;
- property UrlComponent: URL_COMPONENTS read FUrlComponent write FUrlComponent;
- property UrlPath: string read FUrlPath write FUrlPath;
- property UserName: string read FUserName write FUserName;
- end;
-
-implementation
-
-uses
- EwbCoreTools, SysUtils, Forms, EwbIEConst;
-
-constructor TUrl.Create(const Url: string);
-begin
- if Length(Url) > 0 then
- FUrl := Url;
-end;
-
-procedure TUrl.SetUrl(const Value: string);
-begin
- if Length(Value) > 0 then
- QueryUrl(Value);
-end;
-
-//==============================================================================
-
-procedure TUrl.Clear;
-begin
- FBookmark := '';
- FHostName := '';
- FProtocol := '';
- FUrlPath := '';
- FDocument := '';
- FPort := 80;
- FExtraInfo := '';
- FUserName := '';
- FPassword := '';
- FParameters := '';
- ClearUrlComponent;
-end;
-
-procedure TUrl.ClearUrlComponent;
-begin
- with FUrlComponent do
- begin
- lpszScheme := nil;
- lpszHostName := nil;
- lpszUrlPath := nil;
- lpszUserName := nil;
- lpszPassword := nil;
- lpszExtraInfo := nil;
- end;
-end;
-
-procedure TUrl.FillUrlComponent;
-begin
- ClearUrlComponent;
- with FUrlComponent do
- begin
- dwStructSize := SizeOf(URL_COMPONENTS);
- if FProtocol <> '' then
- begin
- lpszScheme := PChar(FProtocol);
- dwSchemeLength := Length(FProtocol);
- end
- else
- lpszScheme := nil;
- if FHostName <> '' then
- begin
- lpszHostName := PChar(FHostName);
- dwHostNameLength := Length(PChar(FHostName));
- end
- else
- lpszHostName := nil;
- if FUrlPath <> '' then
- begin
- lpszUrlPath := PChar(FUrlPath);
- dwUrlPathLength := Length(FUrlPath);
- end
- else
- lpszUrlPath := nil;
- if FUserName <> '' then
- begin
- lpszUserName := PChar(FUserName);
- dwUserNameLength := Length(FUserName);
- end
- else
- lpszUserName := nil;
- if FPassword <> '' then
- begin
- lpszPassword := PChar(FPassword);
- dwPasswordLength := Length(FPassword);
- end
- else
- lpszPassword := nil;
- if FExtraInfo = '' then
- FExtraInfo := FDocument + FParameters;
- if FBookmark <> '' then
- FExtraInfo := FExtraInfo + BookmarkDelim + FBookmark;
- if FExtraInfo <> '' then
- begin
- lpszExtraInfo := PChar(FExtraInfo);
- dwExtraInfoLength := Length(FExtraInfo);
- end
- else
- lpszExtraInfo := nil;
- if (FPort = 0) then
- nPort := FPort;
-{$IFDEF DELPHI6_UP}
-{$IFNDEF DELPHIXE2_UP}
- pad := 1; //force correct allignment regardless of comp. flags
-{$ENDIF}
-{$ENDIF}
- end;
-end;
-
-function TUrl.initCoInternetQueryInfo: boolean;
-var
- lh: HMODULE;
-begin
- Result := False;
- CoInternetQueryInfo := nil;
- lh := loadlibrary('URLMON.DLL');
- if lh = 0 then
- Exit;
- CoInternetQueryInfo := GetProcAddress(lh, 'CoInternetQueryInfo');
- Result := (@CoInternetQueryInfo) <> nil;
-end;
-
-procedure TUrl.QueryUrl(Url: string);
-var
- TmpStr: string;
- IdxPos, CharPos: Integer;
-begin
- Clear;
- Url := FixUrl(Url);
- FormatPath(Url);
- IdxPos := AnsiPos(ProtocolDelim, Url);
- if IdxPos > 0 then
- begin
- FProtocol := Copy(Url, 1, IdxPos - 1);
- Delete(Url, 1, IdxPos + 2);
- TmpStr := CutString(Url, WebDelim, True);
- IdxPos := AnsiPos('@', TmpStr);
- FPassword := Copy(TmpStr, 1, IdxPos - 1);
- if IdxPos > 0 then
- Delete(TmpStr, 1, IdxPos);
- FUserName := CutString(FPassword, DriveDelim, True);
- if Length(FUserName) = 0 then
- begin
- FPassword := '';
- end;
- if (AnsiPos('[', TmpStr) > 0) and (AnsiPos(']', TmpStr) > AnsiPos('[', TmpStr)) then
- begin
- FHostName := CutString(TmpStr, ']');
- CutString(FHostName, '[');
- CutString(TmpStr, DriveDelim);
- end
- else
- begin
- FHostName := CutString(TmpStr, DriveDelim, True);
- end;
- FPort := StrToIntDef(TmpStr, 80);
- CharPos := AnsiPos(QueryDelim, Url);
- if CharPos > 0 then
- begin
- IdxPos := GetPos(WebDelim, Url, CharPos);
- end
- else
- begin
- CharPos := AnsiPos(EqualDelim, Url);
- if CharPos > 0 then
- begin
- IdxPos := GetPos(WebDelim, Url, CharPos);
- end
- else
- begin
- IdxPos := GetPos(WebDelim, Url, -1);
- end;
- end;
- FUrlPath := WebDelim + Copy(Url, 1, IdxPos);
- if CharPos > 0 then
- begin
- FDocument := Copy(Url, 1, CharPos - 1);
- Delete(Url, 1, CharPos - 1);
- FParameters := Url;
- end
- else
- FDocument := Url;
- Delete(FDocument, 1, IdxPos);
- FBookmark := FDocument;
- FDocument := CutString(FBookmark, BookmarkDelim);
- end
- else
- begin
- CharPos := AnsiPos(QueryDelim, Url);
- if CharPos > 0 then
- begin
- IdxPos := GetPos(WebDelim, Url, CharPos);
- end
- else
- begin
- CharPos := AnsiPos(EqualDelim, Url);
- if CharPos > 0 then
- begin
- IdxPos := GetPos(WebDelim, Url, CharPos);
- end
- else
- begin
- IdxPos := GetPos(WebDelim, Url, -1);
- end;
- end;
- FUrlPath := Copy(Url, 1, IdxPos);
- if CharPos > 0 then
- begin
- FDocument := Copy(Url, 1, CharPos - 1);
- Delete(Url, 1, CharPos - 1);
- FParameters := Url;
- end
- else
- begin
- FDocument := Url;
- end;
- Delete(FDocument, 1, IdxPos);
- end;
- if FBookmark = '' then
- begin
- FBookmark := FParameters;
- FParameters := CutString(FBookmark, BookmarkDelim);
- end;
- FillUrlComponent;
-end;
-
-function TUrl.CrackUrl(const Url: string; dwFlags: DWord): WideString;
-var
- Buffers: array[0..5, 0..MAX_BUFFER - 1] of Char;
- bResult: boolean;
-begin
- Clear;
- FUrl := FixUrl(Url);
- ZeroMemory(@FUrlComponent, SizeOf(URL_COMPONENTS));
- with FUrlComponent do
- begin
- dwStructSize := SizeOf(URL_COMPONENTS);
- dwSchemeLength := INTERNET_MAX_SCHEME_LENGTH;
- lpszScheme := Buffers[0];
- dwHostNameLength := INTERNET_MAX_HOST_NAME_LENGTH;
- lpszHostName := Buffers[1];
- dwUserNameLength := INTERNET_MAX_USER_NAME_LENGTH;
- lpszUserName := Buffers[2];
- dwPasswordLength := INTERNET_MAX_PASSWORD_LENGTH;
- lpszPassword := Buffers[3];
- dwUrlPathLength := INTERNET_MAX_PATH_LENGTH;
- lpszUrlPath := Buffers[4];
- dwExtraInfoLength := INTERNET_MAX_URL_LENGTH;
- lpszExtraInfo := Buffers[5];
- end;
- bResult := InternetCrackURL(PChar(Url), 0, dwFlags, FUrlComponent);
- if bResult then
- begin
- with FUrlComponent do
- begin
- FHostName := lpszHostName;
- FProtocol := lpszScheme;
- FUrlPath := lpszUrlPath;
- FPort := nPort;
- FExtraInfo := lpszExtraInfo;
- FUserName := lpszUserName;
- FPassword := lpszPassword;
- Result := Url;
- end;
- end
- else
- begin
- Clear;
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Result := '';
- end;
-end;
-
-function TUrl.CombineUrl(const BaseUrl, RelativaUrl: string; dwFlags: DWord): WideString;
-var
- Buffer: array[0..255] of Char;
- Size: DWORD;
- bResult: boolean;
-begin
- Size := SizeOf(Buffer);
- bResult := InternetCombineUrl(PChar(BaseUrl), PChar(RelativaUrl),
- Buffer, Size, dwFlags);
- if bResult then
- begin
- Result := Buffer;
- FUrl := Result;
- end
- else
- begin
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Result := '';
- end;
-
-end;
-
-function TUrl.CanonicalizeUrl(const Url: string; dwFlags: integer): WideString;
-var
- Buffer: array[0..255] of Char;
- Size: DWORD;
- bResult: boolean;
-begin
- Size := SizeOf(Buffer);
- bResult := InternetCanonicalizeUrl(PChar(Url), Buffer, Size, dwFlags);
- if bResult then
- begin
- Result := Buffer;
- FUrl := Result;
- end
- else
- begin
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Result := '';
- end;
-end;
-
-function TUrl.CreateUrl(const dwFlags: DWord): WideString;
-var
- Size: DWORD;
- Buffer: array[0..511] of Char;
- bResult: boolean;
-begin
- FillUrlComponent;
- Size := FUrlComponent.dwStructSize;
- bResult := InternetCreateUrl(FUrlComponent, dwFlags, Buffer, Size);
- if bResult then
- begin
- Result := Buffer;
- FUrl := Result;
- end
- else
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
- end;
-end;
-
-function TUrl.FixUrl(Url: string): string;
-
- function AnsiEndsStr(const ASubText, AText: string): Boolean;
- var
- SubTextLocation: Integer;
- begin
- SubTextLocation := Length(AText) - Length(ASubText) + 1;
- if (SubTextLocation > 0) and (ASubText <> '') and
- (ByteType(AText, SubTextLocation) <> mbTrailByte) then
- Result := AnsiStrComp((PChar(ASubText)), Pointer(@AText[SubTextLocation])) = 0
- else
- Result := False;
- end;
-var
- DotPos, ipos: Integer;
-begin
- Result := Url;
- if not AnsiEndsStr('/', Url) then
- begin
- ipos := LastDelimiter('/', Url);
- DotPos := LastDelimiter('.', Url);
- if DotPos < ipos then
- Result := Url + '/';
- end;
-end;
-
-function TUrl.EncodeURL(const InputStr: string; const bQueryStr: Boolean): string;
-var
- Idx: Integer;
-begin
- Result := '';
- for Idx := 1 to Length(InputStr) do
- begin
- case InputStr[Idx] of
- 'A'..'Z', 'a'..'z', '0'..'9', '-', '_', '.':
- Result := Result + InputStr[Idx];
- ' ':
- if bQueryStr then
- Result := Result + '+'
- else
- Result := Result + '%20';
- else
- Result := Result + '%' + SysUtils.IntToHex(Ord(InputStr[Idx]), 2);
- end;
- end;
-end;
-
-function TUrl.DecodeUrl(const InputStr: string): string;
-var
- Idx: Integer;
- Hex: string;
- Code: Integer;
-begin
- Result := '';
- Idx := 1;
- while Idx <= Length(InputStr) do
- begin
- case InputStr[Idx] of
- '%':
- begin
- if Idx <= Length(InputStr) - 2 then
- begin
- Hex := InputStr[Idx + 1] + InputStr[Idx + 2];
- Code := SysUtils.StrToIntDef('$' + Hex, -1);
- Inc(Idx, 2);
- end
- else
- Code := -1;
- if Code = -1 then
- raise SysUtils.EConvertError.Create('Invalid hex digit in URL');
- Result := Result + Chr(Code);
- end;
- '+':
- Result := Result + ' '
- else
- Result := Result + InputStr[Idx];
- end;
- Inc(Idx);
- end;
-end;
-
-function TUrl.BuildUrl: WideString;
-begin
- FillUrlComponent;
- if (FProtocol = '') or (FHostName = '') then
- begin
- if Assigned(FOnError) then
- FOnError(Self, 0, 'Can not Create Url. Protocol or HostName are not valid!');
-{$IFDEF USE_DebugString}
- OutputDebugString('Can not Create Url. Protocol or HostName are not valid!');
-{$ENDIF}
- Exit;
- end;
- Result := FProtocol + ProtocolDelim;
- if (FUserName <> '') then
- begin
- Result := Result + FUserName;
- if FPassword <> '' then
- begin
- Result := Result + DriveDelim + FPassword;
- end;
- Result := Result + '@';
- end;
- Result := Result + FHostName;
- if (FPort <> 0) and (FPort <> 80) then
- begin
- Result := Result + DriveDelim + IntToStr(FPort);
- end;
- Result := Result + FUrlPath + FDocument + FParameters;
- if (FBookmark <> '') then
- begin
- Result := Result + BookmarkDelim + FBookmark;
- end;
-end;
-
-function TUrl.CompareUrl(const pwzUrl1, pwzUrl2: WideString): HResult;
-begin
- if (pwzUrl1 = '') or (pwzUrl2 = '') then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString('Can not Compare Url. pwzUrl1 or pwzUrl2 are empty!');
-{$ENDIF}
- if Assigned(FOnError) then
- FOnError(Self, 0, 'Can not Compare Url. pwzUrl1 or pwzUrl2 are empty!');
- end;
- Result := AnsiCompareText(pwzUrl1, pwzUrl2);
-end;
-
-function TUrl.CoInetQueryInfo(const Url: WideString; QueryOptions: Cardinal): boolean;
-var
- pcbBuffer: DWORD;
- dwCached: DWORD;
-begin
- if not initCoInternetQueryInfo then
- begin
- Result := False;
- Exit;
- end;
- pcbBuffer := SizeOf(dwCached);
- if CoInternetQueryInfo(PWideChar(Url), QueryOptions, 0, @dwCached,
- SizeOf(dwCached), pcbBuffer, 0) <> S_OK then
- begin
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- end;
- Result := dwCached <> 0;
-end;
-
-function TUrl.QueryInfo(const Url: string; dwInfoFlag: Integer): string;
-var
- hInet: HINTERNET;
- hConnect: HINTERNET;
- infoBuffer: array[0..512] of char;
- dummy: DWORD;
- bufLen: DWORD;
- ok: LongBool;
-begin
- hInet := InternetOpen(PChar(Forms.Application.Title),
- INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY, nil, nil, 0);
- hConnect := InternetOpenUrl(hInet, PChar(Url), nil, 0, INTERNET_FLAG_NO_UI, 0);
- if not Assigned(hConnect) then
- begin
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Result := '';
- end
- else
- begin
- dummy := 0;
- bufLen := Length(infoBuffer);
- ok := HttpQueryInfo(hConnect, dwInfoFlag, @infoBuffer[0], bufLen, dummy);
- if ok then
- Result := infoBuffer
- else
- Result := '';
- InternetCloseHandle(hConnect);
- end;
- InternetCloseHandle(hInet);
-end;
-
-function TUrl.ReadFile(const URL: string; TimeOut: LongWord): string;
-var
- hInet: HInternet;
- hConnect: HInternet;
- infoBuffer: array[0..TEMP_SIZE - 1] of Char;
- iRead, iTimeOut: DWORD;
- strRead: string;
-begin
- strRead := '';
- hInet := InternetOpen(PChar(Forms.Application.Title), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_NO_CACHE_WRITE);
- if Assigned(hInet) then
- begin
- InternetQueryOption(hInet, INTERNET_OPTION_CONNECT_TIMEOUT, @iTimeOut, iRead);
- iTimeOut := TimeOut;
- InternetSetOption(hInet, INTERNET_OPTION_CONNECT_TIMEOUT, @iTimeOut, iRead);
- try
- hConnect := InternetOpenURL(hInet, PChar(Url), nil, 0, 0, 0);
- if Assigned(hConnect) then
- try
- repeat
- FillChar(infoBuffer, SizeOf(infoBuffer), #0);
- InternetReadFile(hConnect, @infoBuffer, sizeof(infoBuffer), iRead);
- strRead := strRead + string(infoBuffer);
- until iRead < TEMP_SIZE;
- finally
- InternetCloseHandle(hConnect);
- end
- else
- begin
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Result := '';
- end;
- finally
- InternetCloseHandle(hInet);
- end;
- Result := strRead;
- end
- else
- begin
- if Assigned(FOnError) then
- FOnError(Self, GetLastError, SysErrorMessage(GetLastError));
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Result := '';
- end;
-end;
-
-function TUrl.IsUrlValid(const Url: string): boolean;
-var
- Reply: string;
-begin
- Reply := QueryInfo(Url, HTTP_QUERY_STATUS_CODE);
- if (Reply = '200') or (Reply = '401') then
- Result := True
- else
- Result := False;
-end;
-
-function TUrl.GetUrlSize(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_CONTENT_LENGTH);
-end;
-
-function TUrl.GetUrlType(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_CONTENT_TYPE);
-end;
-
-function TUrl.GetUrlDate(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_DATE);
-end;
-
-function TUrl.GetUrlLastModified(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_LAST_MODIFIED);
-end;
-
-function TUrl.GetUrlStatusCode(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_STATUS_CODE);
-end;
-
-function TUrl.GetUrlServer(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_SERVER);
-end;
-
-function TUrl.GetUrlEntityTag(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_ETAG);
-end;
-
-function TUrl.GetUrlCharset(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_ACCEPT_CHARSET);
-end;
-
-function TUrl.GetUrlServerDetails(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_RAW_HEADERS_CRLF);
-end;
-
-function TUrl.GetUrlProtocolVersion(const Url: string): string;
-begin
- Result := QueryInfo(Url, HTTP_QUERY_VERSION);
-end;
-
-function TUrl.IsUrlCached(const Url: string): boolean;
-begin
- Result := CoInetQueryInfo(Url, QUERY_IS_CACHED);
-end;
-{=====================================================================================}
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/ExportFavorites.pas b/windows/src/ext/embeddedwb/Source/ExportFavorites.pas
deleted file mode 100644
index 32644407f9fa4206bf6ca9165602205e24129724..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/ExportFavorites.pas
+++ /dev/null
@@ -1,481 +0,0 @@
-//***********************************************************
-// TExportFavorites *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Based on ideas by: Troels Jakobsen *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: ExportFavorites.pas,v 1.3 2006/11/26 05:55:31 bsalsa Exp $
-
-unit ExportFavorites;
-
-{$I EWB.inc}
-
-interface
-
-{$IFDEF DELPHI6_UP}
-{$WARN UNIT_PLATFORM OFF}
-{$ENDIF}
-
-uses
- Classes, Dialogs, ShellApi, IniFiles, SHDocVw_EWB, ComCtrls, EwbCore, EmbeddedWB;
-
-const
- ERROR_FAV_TARGET_PATH_INVALID = 101;
- ERROR_FAV_TARGET_FILENAME_INVALID = 102;
- ERROR_FAV_TARGET_FILENAME_EXTINVALID = 103;
- ERROR_FAV_FAVORITES_PATH_INVALID = 104;
- ERROR_FAV_NO_SUCCESS_MESSAGE = 105;
-
-type
- PUrlRec = ^TUrlRec;
- TUrlRec = record
- Rep: string;
- UrlName: string;
- UrlPath: string;
- Level: Integer;
- end;
-
- TOnErrorEvent = procedure(Sender: TObject; const ErrorMsg: string; const ErrorCode: Byte) of object;
- TOnMessageEvent = procedure(Sender: TObject; const Msg: string) of object;
-
- TLocalization = class(TPersistent)
- private
- FTargetPathInvalid: string;
- FTargetFileNameInvalid: string;
- FTargetFileNameExtInvalid: string;
- FFavoritesPathInvalid: string;
- FNoSuccessMessage: string;
- FChangeItMessage: string;
- FHTMLTitle: string;
- published
- property TargetPathInvalid: string read FTargetPathInvalid write FTargetPathInvalid;
- property TargetFileNameInvalid: string read FTargetFileNameInvalid write FTargetFileNameInvalid;
- property TargetFileNameExtInvalid: string read FTargetFileNameExtInvalid write FTargetFileNameExtInvalid;
- property FavoritesPathInvalid: string read FFavoritesPathInvalid write FFavoritesPathInvalid;
- property NoSuccessMessage: string read FNoSuccessMessage write FNoSuccessMessage;
- property ChangeItMessage: string read FChangeItMessage write FChangeItMessage;
- property HTMLTitle: string read FHTMLTitle write FHTMLTitle;
- end;
-
- TExportFavorite = class(TComponent)
- private
- FAbout: string;
- FBmkList: TStringList;
- FLocalization: TLocalization;
- FavFolder: string;
- FavList: TList;
- FEnabled: Boolean;
- FExploreFavFileFolder: Boolean;
- FFavoritesPath: string;
- FNavigateOnComplete: Boolean;
- FShowSuccessMessage: Boolean;
- FStatusBar: TStatusBar;
- FSuccessMessage: TStrings;
- FTargetFileName: string;
- FTargetPath: string;
- FEmbeddedWB: TCustomEmbeddedWB;
- FOnError: TOnErrorEvent;
- FOnSuccess: TOnMessageEvent;
- procedure GetFavoritesFolder;
- function MakeBookMarkFile: Boolean;
- procedure SearchURL(Folder: string; Level: Integer);
- procedure SetAbout(Value: string);
- procedure SetSuccessMessage(Value: TStrings);
- procedure TraverseFavList(Idx, PrevIdx: Integer);
- function Check: Boolean;
- protected
- procedure MakeBookmark(UrlRec: PUrlRec);
- procedure MakeDocumentBottom;
- procedure MakeDocumentTop;
- procedure MakeHeaderBottom(UrlRec: PUrlRec);
- procedure MakeHeaderTop(UrlRec: PUrlRec);
- public
- SuccessFlag: Boolean;
- NavigatePath: string;
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function ExportFavorites: Boolean;
- published
- property About: string read FAbout write SetAbout;
- property Enabled: boolean read FEnabled write FEnabled default True;
- property ExploreFavFileOnComplete: Boolean read FExploreFavFileFolder write FExploreFavFileFolder default False;
- property FavoritesPath: string read FFavoritesPath write FFavoritesPath;
- property NavigateOnComplete: Boolean read FNavigateOnComplete write FNavigateOnComplete default False;
- property StatusBar: TStatusBar read FStatusBar write FStatusBar;
- property SuccessMessage: TStrings read FSuccessMessage write SetSuccessMessage;
- property TargetFileName: string read FTargetFileName write FTargetFileName;
- property TargetPath: string read FTargetPath write FTargetPath;
- property EmbeddedWB: TCustomEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property Localization: TLocalization read FLocalization write FLocalization;
- property OnError: TOnErrorEvent read FOnError write FOnError;
- property OnSuccess: TOnMessageEvent read FOnSuccess write FOnSuccess;
- end;
-
-implementation
-
-uses
- Windows, SysUtils, {$IFDEF DELPHI5}EwbCoreTools, {$ENDIF}Registry, Forms, EwbIEConst;
-
-constructor TExportFavorite.Create;
-begin
- FFavoritesPath := 'Auto';
- FTargetPath := 'C:\';
- FTargetFileName := 'newbook.htm';
-
- FLocalization := TLocalization.Create;
- FLocalization.TargetPathInvalid := 'The target path is invalid.';
- FLocalization.TargetFileNameInvalid := 'The target file name is invalid.';
- FLocalization.TargetFileNameExtInvalid := 'The target file name extension is invalid. It must be "*.htm".';
- FLocalization.FavoritesPathInvalid := 'The Favorites Path is invalid.';
- FLocalization.NoSuccessMessage := 'You must enter a SuccessMessage or turn off messages.';
- FLocalization.ChangeItMessage := 'Please change it.';
- FLocalization.HTMLTitle := 'Exported Favorites';
-
- FSuccessMessage := TStringList.Create;
- FSuccessMessage.Add('Your favorites have been exported successfully!');
- FSuccessMessage.Text := 'Your favorites have been successfully exported to %s';
- FShowSuccessMessage := True;
- FAbout := 'TExportFavorites by bsalsa. ' + WEB_SITE;
-
- FEnabled := True;
- SuccessFlag := False;
- FExploreFavFileFolder := False;
- FNavigateOnComplete := False;
- inherited;
-end;
-
-destructor TExportFavorite.Destroy;
-begin
- FLocalization.Free;
- FSuccessMessage.Free;
- inherited Destroy;
-end;
-
-procedure TExportFavorite.SetSuccessMessage(Value: TStrings);
-begin
- FSuccessMessage.Assign(Value)
-end;
-
-procedure TExportFavorite.GetFavoritesFolder;
-var
- Reg: TRegistry;
-begin
- Reg := TRegistry.Create;
- try
- Reg.RootKey := HKEY_CURRENT_USER;
- Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);
- FavFolder := Reg.ReadString('Favorites');
- finally
- Reg.Free;
- end;
-end;
-
-procedure TExportFavorite.SearchURL(Folder: string; Level: Integer);
-var
- Found: Integer;
- SearchRec: TSearchRec;
- UrlFile: TIniFile;
- UrlRec: PUrlRec;
-begin
- Found := FindFirst(Folder + '\*.*', faAnyFile, SearchRec);
- while Found = 0 do
- begin
- if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
- if (SearchRec.Attr and faDirectory > 0) then
- begin
-{$WARNINGS OFF}
- if not (SearchRec.Attr and faSysFile > 0) then
- begin
- UrlRec := New(PUrlRec);
- UrlRec.Rep := Copy(Folder + '\' + SearchRec.Name, Length(FavFolder) + 2, Length(Folder + '\' + SearchRec.Name));
- UrlRec.UrlName := '';
- UrlRec.UrlPath := '';
- UrlRec.Level := Level;
- FavList.Add(UrlRec);
- end;
- SearchURL(Folder + '\' + SearchRec.Name, Level + 1); // Recursion
-{$WARNINGS ON}
- end
- else
- begin
- if UpperCase(ExtractFileExt(SearchRec.Name)) = '.URL' then
- begin
- UrlRec := New(PUrlRec);
- UrlRec.Rep := Copy(Folder, Length(FavFolder) + 2, Length(Folder));
- UrlRec.UrlName := Copy(SearchRec.Name, 0, Length(SearchRec.Name) - 3);
- UrlFile := TIniFile.Create(Folder + '\' + SearchRec.Name);
- UrlRec.UrlPath := UrlFile.ReadString('InternetShortcut', 'URL', 'no path');
- UrlRec.Level := Level;
- UrlFile.Free;
- FavList.Add(UrlRec);
- end;
- end;
- Found := FindNext(SearchRec);
- end;
-
-end;
-
-procedure TExportFavorite.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TExportFavorite.TraverseFavList(Idx, PrevIdx: Integer);
-var
- UrlRec, PrevUrlRec: PUrlRec;
- X: Integer;
-begin
- if Idx < FavList.Count then
- begin
- UrlRec := FavList[Idx];
- if PrevIdx = -1 then
- PrevUrlRec := nil
- else
- PrevUrlRec := FavList[PrevIdx];
- if UrlRec.UrlName = '' then
- begin
- if PrevUrlRec <> nil then
- begin
- X := PrevUrlRec.Level;
- while UrlRec.Level <= X do
- begin
- MakeHeaderBottom(PrevUrlRec);
- Dec(PrevUrlRec.Level);
- Dec(X);
- end;
- end;
- MakeHeaderTop(UrlRec);
- PrevIdx := Idx;
- end
- else
- MakeBookmark(UrlRec);
- TraverseFavList(Idx + 1, PrevIdx);
- end;
-end;
-
-procedure TExportFavorite.MakeDocumentTop;
-begin
- FBmkList.Add('');
- FBmkList.Add('');
- FBmkList.Add('' + FLocalization.HTMLTitle + '');
- FBmkList.Add('' + FLocalization.HTMLTitle + '
');
- FBmkList.Add('');
- FBmkList.Add('');
-end;
-
-procedure TExportFavorite.MakeDocumentBottom;
-begin
- FBmkList.Add('');
- FBmkList.Add('
');
-end;
-
-procedure TExportFavorite.MakeHeaderTop(UrlRec: PUrlRec);
-var
- I, Idx: Integer;
- S: string;
- A: array[0..255] of Char;
-begin
- FillChar(A, SizeOf(A), 0);
- Idx := 1;
- for I := 1 to Length(UrlRec.Rep) do
- if UrlRec.Rep[I] = '\' then
- Idx := I + 1;
- for I := Idx to Length(UrlRec.Rep) do
- A[I - Idx] := UrlRec.Rep[I];
- FBmkList.Add('');
- for I := 1 to UrlRec.Level do
- S := S + ' ';
- FBmkList.Add(S + '
' + A + '
');
- FBmkList.Add(S + '');
-end;
-
-procedure TExportFavorite.MakeHeaderBottom(UrlRec: PUrlRec);
-var
- I: Integer;
- S: string;
-begin
- for I := 1 to UrlRec.Level do
- S := S + ' ';
- FBmkList.Add(S + '
');
- FBmkList.Add('');
-end;
-
-procedure TExportFavorite.MakeBookmark(UrlRec: PUrlRec);
-var
- I: Integer;
- S: string;
-begin
- Delete(UrlRec.UrlName, Length(UrlRec.UrlName), 1);
- for I := 1 to UrlRec.Level do
- S := S + ' ';
- FBmkList.Add(S + '
' +
- UrlRec.UrlName + '' + '
');
-end;
-
-function SortFunction(Item1, Item2: Pointer): Integer;
-var
- Rec1, Rec2: PUrlRec;
-begin
- Result := 0;
- Rec1 := Item1;
- Rec2 := Item2;
- if Rec1.Rep < Rec2.Rep then
- Result := -1;
- if Rec1.Rep > Rec2.Rep then
- Result := 1;
- if Rec1.Rep = Rec2.Rep then
- begin
- if Rec1.UrlName < Rec2.UrlName then
- Result := -1;
- if Rec1.UrlName > Rec2.UrlName then
- Result := 1;
- if Rec1.UrlName = Rec2.UrlName then
- Result := 0;
- end;
-end;
-
-function TExportFavorite.Check: Boolean;
-begin
- Result := (FTargetPath <> '') and DirectoryExists(FTargetPath);
- if Result then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.TargetPathInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_TARGET_PATH_INVALID);
- Result := False;
- end
- else if FTargetFileName = '' then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.TargetFileNameInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_TARGET_FILENAME_INVALID);
- Result := False;
- end
- else if not (Pos('htm', FTargetFileName) > 1) then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.TargetFileNameExtInvalid + #10#13 + FLocalization.ChangeItMessage + '"*.htm"', ERROR_FAV_TARGET_FILENAME_EXTINVALID);
- Result := False;
- end
- else if Trim(FFavoritesPath) = '' then
- begin
- if Assigned(FOnError) then
- FOnError(Self, Localization.FavoritesPathInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_FAVORITES_PATH_INVALID);
- Result := False;
- end
- else if Trim(FSuccessMessage.Text) = '' then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.NoSuccessMessage + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_NO_SUCCESS_MESSAGE);
- Result := False;
- end;
-end;
-
-function TExportFavorite.MakeBookMarkFile: Boolean;
-begin
- Result := Check;
- if Result then
- begin
-{$IFDEF DELPHI6_UP}{$WARN SYMBOL_PLATFORM OFF}{$ENDIF}
- NavigatePath := IncludeTrailingBackslash(FTargetPath) + FTargetFileName;
-{$IFDEF DELPHI6_UP}{$WARN SYMBOL_PLATFORM ON}{$ENDIF}
- FBmkList := TStringList.Create;
- try
- MakeDocumentTop;
- TraverseFavList(0, -1);
- MakeDocumentBottom;
- try
- FBmkList.SaveToFile(NavigatePath);
- except on EFCreateError do
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.TargetFileNameInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_TARGET_FILENAME_INVALID);
- Result := False;
- end;
- end;
- finally
- FBmkList.Free;
- end;
- if Result then
- begin
- if Assigned(FOnSuccess) then
- FOnSuccess(Self, Format(SuccessMessage.Text, [NavigatePath]));
- if Assigned(FStatusBar) then
- FStatusBar.SimpleText := Format(SuccessMessage.Text, [NavigatePath]);
- end;
- end;
-end;
-
-function TExportFavorite.ExportFavorites: Boolean;
-var
- I: Integer;
-begin
- Result := Enabled;
- if Result then
- begin
- FavList := TList.Create;
- try
- if FFavoritesPath = 'Auto' then
- GetFavoritesFolder
- else
- FavFolder := FFavoritesPath;
- if (Trim(FavFolder) <> '') then
- begin
- SearchURL(FavFolder, 1);
- FavList.Sort(SortFunction);
- Result := MakeBookMarkFile;
- if Result then
- begin
- SuccessFlag := True;
- if FExploreFavFileFolder then
- ShellExecute(Forms.Application.Handle, 'explore', PChar(FTargetPath), nil,
- nil, SW_SHOWNORMAL);
- if FNavigateOnComplete then
- if Assigned(FEmbeddedWB) then
- FEmbeddedWB.Navigate(FTargetPath + FTargetFileName)
- else
- MessageDlg(ASS_MESS, mtError, [MbOk], 0);
- end;
- end
- else if Assigned(FOnError) then
- FOnError(Self, Localization.FavoritesPathInvalid, ERROR_FAV_FAVORITES_PATH_INVALID);
-
- for I := 0 to FavList.Count - 1 do
- Dispose(PUrlRec(FavList[I]));
- finally
- FavList.Free;
- end;
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/FavMenu.pas b/windows/src/ext/embeddedwb/Source/FavMenu.pas
deleted file mode 100644
index a9e1a4e172d875e121ab61861ec99ace15408712..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/FavMenu.pas
+++ /dev/null
@@ -1,621 +0,0 @@
-//******************************************************************
-// *
-// TFavoritesMenu * *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.dk *
-// *
-// *
-// Contributions: *
-// Pete Morris (MrPMorris@Hotmail.com) *
-// Rob Young (rob@coolfocus.com) *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// - D2005 update & added new functions *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//******************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: FavMenu.pas,v 1.4 2006/12/05 11:56:31 bsalsa Exp $
-
-unit FavMenu;
-
-interface
-
-{$I EWB.inc}
-
-uses
-
- Classes, Controls, Forms, ShlObj, Imglist, Menus, EmbeddedWB;
-
-
-type
- PItem = ^TItem;
- TItem = record
- ID: PItemIDList;
- FullID: PItemIDList;
- Folder: Boolean;
- Created: Boolean;
- end;
-
-type
- TErrorEvent = procedure(const ErrorCode: integer; ErrMessage: string) of object;
- TFavOptions = (foAddFavorites, foOrganizeFavorites, foImportFavorites,
- foExportFavorites, foImportExportWizard);
- TOptions = set of TFavOptions;
- TOnAddFavoritesEvent = procedure(const EmbeddedWB: TEmbeddedWB; Title, URL: WideString; Success: integer) of object;
- TOnUrlSelectedEvent = procedure(Sender: TObject; Url: string) of object;
- TResolveUrl = (IntShCut, IniFile);
-
- TLocalization = class(TPersistent)
- private
- FAddFavorites: string;
- FOrganizeFavorites: string;
- FImportFavorites: string;
- FExportFavorites: string;
- FImportExportWizard: string;
- FEmptyCaption: string;
- published
- property AddFavorites: string read FAddFavorites write FAddFavorites;
- property OrganizeFavorites: string read FOrganizeFavorites write FOrganizeFavorites;
- property ImportFavorites: string read FImportFavorites write FImportFavorites;
- property ExportFavorites: string read FExportFavorites write FExportFavorites;
- property ImportExportWizard: string read FImportExportWizard write FImportExportWizard;
- property EmptyCaption: string read FEmptyCaption write FEmptyCaption;
- end;
-
- TFavoritesMenu = class(TComponent)
- private
- { Private declarations }
- Counter: Integer;
- Desktop: IShellFolder;
- FavoritesMenu: TMenuItem;
- FavoritesPidl: PItemIDList;
- FAbout: string;
- FCaption: string;
- FChannels: Boolean;
- FEmbeddedWB: TEmbeddedWB;
- FEnabled: Boolean;
- FOnError: TErrorEvent;
- FLocalization: TLocalization;
- FMainMenu: TMainmenu;
- FMaxWidth: Integer;
- FMenuPosition: Integer;
- FOnAddFavorites: TOnAddFavoritesEvent;
- FOnUrlSelected: TOnUrlSelectedEvent;
- FOptions: TOptions;
- FResolveUrl: TResolveUrl;
- Images: TImageList;
- Item: PItem;
- List: TList;
- procedure AddFavorite(Sender: TObject);
- procedure FavoritesExport(Sender: TObject);
- procedure FavoritesImport(Sender: TObject);
- procedure OrganizeFavorite(Sender: TObject);
- procedure ImportExportWizard(Sender: TObject);
- procedure SetAbout(Value: string);
- protected
- { Protected declarations }
- procedure AddDummy(menu: TMenuItem);
- procedure AddEmpty(menu: TMenuItem);
- procedure AddMenu(Menu: TMenuItem; FullID: PItemIDList);
- procedure BuildOptionsMenu;
- procedure DestroyList;
- procedure MenuClick(Sender: TObject);
- public
- { Public declarations }
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure CreateMenu(mi: TMenuItem); overload;
- procedure CreateMenu; overload;
- procedure ReBuildMenu;
- published
- { Published declarations }
- property About: string read fAbout write SetAbout;
- property Caption: string read FCaption write FCaption;
- property Channels: Boolean read FChannels write FChannels default False;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property Enabled: Boolean read FEnabled write FEnabled default True;
- property Localization: TLocalization read FLocalization write FLocalization;
- property MainMenu: TMainMenu read FMainMenu write FMainMenu;
- property MaxWidth: Integer read FMaxWidth write FMaxWidth default 50;
- property MenuPosition: Integer read FMenuPosition write FMenuPosition default 1;
- property OnAddFavorites: TOnAddFavoritesEvent read FOnAddFavorites write FOnAddFavorites;
- property OnError: TErrorEvent read FOnError write FOnError;
- property OnURLSelected: TOnURLSelectedEvent read FOnURLSelected write FOnURLSelected;
- property Options: TOptions read FOptions write FOptions default [foAddFavorites, foOrganizeFavorites];
- property ResolveUrl: TResolveUrl read FResolveUrl write FResolveUrl default IntShCut;
- end;
-
-implementation
-
-uses
- ImportFavorites, ExportFavorites, Windows, ShellApi, SysUtils, SHDocVw_EWB, ActiveX, Registry, EwbTools;
-
-var
- ChannelShortcut, InternetShortcut: string;
- Folder: IShellFolder;
- Procedur: procedure(Handle: THandle; Path: PAnsiChar); stdcall;
-
-function SortFunc(Item1, Item2: Pointer): Integer;
-begin
- Result := SmallInt(Folder.CompareIDs(0, PItem(Item1).ID, PItem(Item2).ID));
-end;
-
-function CheckShortcut(Shortcut, Flag: Integer): Boolean;
-begin
- Result := ShortCut and Flag <> 0;
-end;
-
-function GetImageIndex(PIDL: PItemIDList; Large, Open: Boolean): Integer;
-var
- FileInfo: TSHFileInfo;
- Flags: Integer;
-begin
- Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX;
- if Open then
- Flags := Flags or SHGFI_OPENICON;
- if Large then
- Flags := Flags or SHGFI_LARGEICON
- else
- Flags := Flags or SHGFI_SMALLICON;
- SHGetFileInfo(PChar(PIDL), 0, FileInfo, SizeOf(FileInfo), Flags);
- Result := FileInfo.iIcon;
-end;
-
-constructor TFavoritesMenu.Create;
-begin
- FAbout := 'TFavoritesMenu - from http://www.bsalsa.com/';
- FEnabled := True;
- FLocalization := TLocalization.Create;
- FLocalization.FAddFavorites := 'Add to Favorites';
- FLocalization.FOrganizeFavorites := 'Organize Favorites';
- FLocalization.FImportFavorites := 'Import Favorites';
- FLocalization.FExportFavorites := 'Export Favorites';
- FLocalization.FImportExportWizard := 'Import Export Favorites Wizard';
- FLocalization.FEmptyCaption := ' (empty) ';
- SHGetDesktopFolder(Desktop);
- SHGetSpecialFolderLocation(Application.Handle, CSIDL_FAVORITES, FavoritesPIDL);
- FCaption := ExtractFileName(GetFileName(Desktop, FavoritesPidl));
- with TRegistry.Create do
- begin
- RootKey := HKEY_CLASSES_ROOT;
- if OpenKey('ChannelShortcut', FALSE)
- then
- ChannelShortCut := ReadString('')
- else
- ChannelShortCut := 'Channel Shortcut';
- Closekey;
- if OpenKey('InternetShortcut', FALSE)
- then
- InternetShortCut := ReadString('')
- else
- InternetShortCut := 'Internet Shortcut';
- Closekey;
- Free;
- end;
- FMaxWidth := 50;
- FMenuPosition := 1;
- FOptions := [foAddFavorites, foOrganizeFavorites];
- inherited;
-end;
-
-procedure TFavoritesMenu.DestroyList;
-var
- I: Integer;
-begin
- if list <> nil then
- begin
- for I := 0 to List.Count - 1 do
- begin
- DisposePIDL(PItem(List[I]).ID);
- DisposePIDL(PItem(List[i]).FULLID);
- Dispose(PItem(List[i]));
- end;
- Counter := 0;
- List.Free;
- end;
-end;
-
-destructor TFavoritesMenu.Destroy;
-begin
- FLocalization.Free;
- DestroyList;
- inherited;
-end;
-
-procedure TFavoritesMenu.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TFavoritesMenu.FavoritesExport(Sender: TObject);
-var
- ExportFav: TExportFavorite;
-begin
- if FEnabled and Assigned(FEmbeddedWB) then
- begin
- if not FEmbeddedWB.DocumentLoaded then
- FEmbeddedWB.AssignEmptyDocument(True);
- ExportFAv := TExportFavorite.Create(Self);
- with ExportFav do
- begin
- ExportFavorites;
- Free;
- end;
- end;
-end;
-
-procedure TFavoritesMenu.FavoritesImport(Sender: TObject);
-var
- ImportFav: TImportFavorite;
-begin
- if FEnabled and Assigned(FEmbeddedWB) then
- begin
- if not FEmbeddedWB.DocumentLoaded then
- FEmbeddedWB.AssignEmptyDocument(True);
- ImportFav := TImportFavorite.Create(Self);
- with ImportFav do
- begin
- ImportFavorites;
- Free;
- end;
- end;
-end;
-
-procedure TFavoritesMenu.ImportExportWizard(Sender: TObject);
-begin
- if FEnabled and Assigned(FEmbeddedWB) then
- begin
- if not FEmbeddedWB.DocumentLoaded then
- begin
- FEmbeddedWB.AssignEmptyDocument;
- FEmbeddedWB.Wait;
- end;
- FEmbeddedWB.ShowImportExportFavoritesAndCookies;
- end;
-end;
-
-procedure TFavoritesMenu.OrganizeFavorite(Sender: Tobject);
-var
- SpecialPath: array[0..MAX_PATH] of Char;
- H: Cardinal;
- bGet: Boolean;
-begin
- if FEnabled then
- begin
- H := LoadLibrary('shdocvw.dll');
- if H <> 0 then
- begin
- Procedur := GetProcAddress(H, 'DoOrganizeFavDlg');
- if Assigned(Procedur) then
- begin
- bGet := SHGetPathFromIDList(FavoritesPidl, SpecialPath);
- if (not bGet) and Assigned(FOnError) then
- FOnError(E_FAIL, 'Failed while getting path for the favorites!');
- Procedur(Application.Handle, PAnsiChar(AnsiString(SpecialPath)));
- end;
- end
- else
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Failed while loading library!');
- FreeLibrary(H);
- RebuildMenu;
- end;
-end;
-
-procedure TFavoritesMenu.AddFavorite(Sender: TObject);
-const
- CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
-var
- ShellUIHelper: ISHellUIHelper;
- Url, Title: OleVariant;
- Success: integer;
-begin
- if (FEnabled) and (Assigned(FEmbeddedWB)) then
- begin
- Title := FEmbeddedWB.LocationName;
- Url := FEmbeddedWB.LocationUrl;
- if (Url <> EmptyStr) and (url <> 'about:blank') then
- begin
- Success := CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
- IID_IShellUIHelper, ShellUIHelper);
- if Assigned(FOnAddFavorites) then
- FOnAddFavorites(FEmbeddedWB, Title, URL, Success);
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed while adding to favorites!');
- ShellUIHelper.AddFavorite(Url, Title);
- RebuildMenu;
- end
- else
- if (Assigned(FOnError)) then
- FOnError(E_FAIL, 'Failed - Empty URL string!');
- end
- else
- if (Assigned(FOnError)) then
- FOnError(E_FAIL, 'Please assign a browser');
-end;
-
-procedure TFavoritesMenu.AddDummy(menu: TMenuItem);
-var
- Dummy: TMenuItem;
-begin
- Dummy := TMenuItem.Create(self);
- Dummy.Visible := False;
- Menu.Add(Dummy);
-end;
-
-procedure TFavoritesMenu.AddEmpty(menu: TMenuItem);
-var
- Empty: TMenuItem;
-begin
- Empty := TMenuItem.Create(self);
- Empty.Caption := FLocalization.FEmptyCaption;
- Empty.Enabled := False;
- Menu.add(Empty);
-end;
-
-procedure TFavoritesMenu.AddMenu(Menu: TMenuItem; FullID: PItemIDList);
-var
- MenuItem: TMenuItem;
- EnumList: IEnumIDList;
- ID: PItemIDList;
- NumIDs: LongWord;
- TempList: TList;
- I, J: Integer;
- sfi: TShFileInfo;
- Success: integer;
-begin
- if FEnabled then
- begin
- TempList := TList.Create;
- try
- Success := Desktop.BindToObject(FullID, nil, IID_IShellFolder, Pointer(Folder));
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed to retrieve an IShellFolder object for a subfolder!');
- Success := Folder.EnumObjects(Application.Handle, SHCONTF_FOLDERS or SHCONTF_NONFOLDERS,
- EnumList);
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed Enum objects!');
- while EnumList.Next(1, ID, NumIDs) = S_OK do
- begin
- if not Channels and IsChannel(ChannelShortCut, Folder, ID) then
- Continue;
- Item := New(PItem);
- Item.ID := CopyPidl(ID);
- Item.FullID := ConcatPIDLs(FullID, ID);
- Item.Folder := IsFolderEx(ChannelShortCut, Folder, ID);
- Item.Created := False;
- TempList.Add(Item);
- end;
- DisposePidl(ID);
- if TempList.Count = 0 then
- begin
- AddEmpty(Menu);
- Exit;
- end;
- TempList.Sort(SortFunc);
- for I := 0 to TempList.Count - 1 do
- begin
- List.Add(PItem(Templist[I]));
- MenuItem := TMenuItem.Create(Menu);
- with MenuItem do
- begin
- SubMenuImages := Images;
- OnClick := MenuClick;
- Tag := Counter;
- Caption := GetDisplayName(Folder, PItem(TempList[I])^.ID);
- end;
- if Length(MenuItem.Caption) > FMaxWidth then
- MenuItem.Caption := Copy(MenuItem.Caption, 1, FMaxWidth) + '...';
- J := GetImageIndex(PItem(TempList[I])^.FullID, False, False);
- if (J = 3) and (CheckShortCut(SFGAO_LINK, SFGAO_DISPLAYATTRMASK)) then
- begin
- ShGetFileInfo('*.htm', FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- J := sfi.iIcon;
- DestroyIcon(sfi.iIcon);
- end;
- MenuItem.ImageIndex := J;
- Menu.Add(MenuItem);
- Inc(Counter);
- if PItem(TempList[I])^.Folder then
- AddDummy(MenuItem);
- end;
-
- finally
- TempList.Free;
- end;
- end;
-end;
-
-procedure TFavoritesMenu.MenuClick(Sender: TObject);
-var
- Folder: IShellFOlder;
- FileInfo: TSHFileInfo;
- ID: PItemIDList;
- X: OleVariant;
- Url: string;
- Success: integer;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- if PItem(list[(Sender as TMenuItem).Tag])^.folder then
- begin
- if not PItem(list[(Sender as TMenuItem).Tag]).Created then
- begin
- AddMenu(Sender as TMenuItem,
- PItem(list[(Sender as TMenuItem).Tag])^.FULLID);
- PItem(list[(Sender as TMenuItem).Tag]).Created := TRUE;
- end;
- end
- else
- begin
- id := CopyPidl(PItem(list[(Sender as TMenuItem).Tag])^.FULLID);
- StripLastID(ID);
- Success := Desktop.BindToObject(ID, nil, IID_IShellFolder, Pointer(Folder));
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed to retrieve an IShellFolder object for a subfolder!');
- SHGetFileInfo(PChar(PItem(list[(Sender as TMenuItem).Tag])^.ID), 0,
- FileInfo, SizeOf(TSHFileInfo), SHGFI_PIDL or SHGFI_TYPENAME or SHGFI_ATTRIBUTES);
- if Fileinfo.szTypeName = ChannelShortcut then
- ResolveChannel(Folder, PItem(list[(Sender as TMenuItem).Tag])^.ID, Url)
- else
- if fileinfo.szTypeName = InternetShortCut then
- begin
- if FResolveUrl = IntshCut then
- Url := ResolveUrlIntShCut(GetFileName(Folder,
- PItem(list[(Sender as TMenuItem).Tag])^.ID))
- else
- Url := ResolveUrlIni(GetFileName(Folder,
- PItem(list[(Sender as TMenuItem).Tag])^.ID));
- end
- else
- Url := Resolvelink(GetFileName(Folder,
- PItem(list[(Sender as TMenuItem).Tag])^.ID));
- DisposePidl(ID);
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(Sender, Url)
- else
- if Assigned(FEmbeddedWB) then
- FEmbeddedWB.Navigate(Url, X, X, X, X);
- end;
- end;
-end;
-
-procedure TFavoritesMenu.BuildOptionsMenu;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- if foAddFavorites in FOptions then
- FavoritesMenu.Add(NewItem(FLocalization.FAddFavorites, 0,
- False, True, addfavorite, 0, ''));
- if foOrganizeFavorites in FOptions then
- FavoritesMenu.Add(NewItem(FLocalization.FOrganizeFavorites, 0,
- False, True, organizefavorite, 0, ''));
- if FavoritesMenu.Count > 0 then
- FavoritesMenu.Add(NewItem('-', 0, False, True, nil, 0, ''));
- if IE5_Installed then
- begin
- if foImportFavorites in FOptions then
- FavoritesMenu.Add(NewItem(FLocalization.FImportFavorites, 0,
- False, True, FavoritesImport, 0, ''));
- if foExportFavorites in FOptions then
- FavoritesMenu.Add(NewItem(FLocalization.FExportFavorites, 0,
- False, True, FavoritesExport, 0, ''));
- if foImportExportWizard in FOptions then
- FavoritesMenu.Add(NewItem(FLocalization.FImportExportWizard, 0,
- False, True, ImportExportWizard, 0, ''));
-
- if (foImportFavorites in FOptions) or (foExportFavorites in FOptions) then
- FavoritesMenu.Add(NewItem('-', 0, False, True, nil, 0, ''));
- end;
- end;
-end;
-
-procedure TFavoritesMenu.CreateMenu;
-var
- FileInfo: TSHFileInfo;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- Counter := 0;
- List := TList.Create;
- Images := TImagelist.Create(self);
- Images.ShareImages := True;
- Images.DrawingStyle := dsTransparent;
- Images.Handle := SHGetFileInfo(Pchar(FavoritesPidl), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- FavoritesMenu := TMenuitem.Create(self);
- with FavoritesMenu do
- begin
- SubMenuImages := Images;
- Caption := FCaption;
- end;
- if Assigned(FMainMenu) then
- begin
- if FMenuPosition > FMainMenu.Items.Count + 1 then
- FMenuPosition := FMainMenu.Items.Count + 1
- else
- if FMenuPosition <= 0 then
- FMenuPosition := 1;
- FMainMenu.Items.Insert(FMenuPosition - 1, FavoritesMenu);
- end;
- BuildOptionsMenu;
- AddMenu(FavoritesMenu, FavoritesPidl);
- end;
-end;
-
-procedure TFavoritesMenu.CreateMenu(mi: TMenuItem);
-var
- FileInfo: TSHFileInfo;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- Counter := 0;
- List := TList.Create;
- Images := TImagelist.Create(self);
- with images do
- begin
- ShareImages := True;
- DrawingStyle := dsTransparent;
- Handle := SHGetFileInfo(Pchar(FavoritesPidl), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- end;
- if mi = nil then
- begin
- FavoritesMenu := TMenuitem.Create(self);
- FavoritesMenu.Caption := FCaption;
- end
- else
- FavoritesMenu := mi;
- FavoritesMenu.SubmenuImages := Images;
- if Assigned(FMainMenu) then
- begin
- if FMenuPosition > FMainMenu.Items.Count + 1 then
- FMenuPosition := FMainMenu.Items.Count + 1
- else
- if FMenuPosition <= 0 then
- FMenuPosition := 1;
- FMainMenu.Items.Insert(FMenuPosition - 1, FavoritesMenu);
- end;
- BuildOptionsMenu;
- AddMenu(FavoritesMenu, FavoritesPidl);
- end;
-end;
-
-procedure TFavoritesMenu.ReBuildMenu;
-begin
- DestroyList;
- List := TList.Create;
- FavoritesMenu.Clear;
- BuildOptionsMenu;
- AddMenu(FavoritesMenu, FavoritesPidl);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/FavoritesListView.pas b/windows/src/ext/embeddedwb/Source/FavoritesListView.pas
deleted file mode 100644
index f667a4a0526f0569dad8ca91e85133262e0035a3..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/FavoritesListView.pas
+++ /dev/null
@@ -1,630 +0,0 @@
-//******************************************************************
-// *
-// TFavoritesListView * *
-// Freeware Component *
-// For Delphi 5 to XE *
-// by *
-// Per Linds Larsen *
-// and Eran Bodankin *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//******************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit FavoritesListView;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, SysUtils, Classes, Controls, Forms, Registry, ComCtrls, ShlObj,
- Messages, MenuContext, ShellApi, ActiveX, ComObj, CommCtrl, EmbeddedWB;
-
-type
- IShellCommandVerb = interface
- ['{7D2A7245-2376-4D33-8008-A130935A2E8B}']
- procedure ExecuteCommand(Verb: string; var Handled: boolean);
- procedure CommandCompleted(Verb: string; Succeeded: boolean);
- end;
-
-type
- PItem = ^TItem;
- TItem = record
- FullID, ID: PItemIDList;
- Empty: Boolean;
- DisplayName: string;
- ImageIndex: Integer;
- end;
-
- TResolveUrl = (IntShCut, IniFile);
- TOnUrlSelectedEvent = procedure(Sender: TObject; Url: string) of object;
- TPopupMenuMode = (pmm_System, pmm_PopupMenu);
- TCustomFavoritesListView = class(TCustomListView, IShellCommandVerb)
- private
- { Private declarations }
- FEmbeddedWB: TEmbeddedWB;
- FPIDL: PItemIDList;
- Desktop: IShellFolder;
- List: TList;
- Level: Integer;
- FResolveUrl: TResolveUrl;
- FChannels: Boolean;
- FavoritesPIDL: PItemIDList;
- FOnUrlSelected: TOnUrlSelectedEvent;
- FSavePath: string;
- FPopupMenuMode: TPopupMenuMode;
- procedure EditText;
- procedure ClearIDList;
-
- protected
- { Protected declarations }
- procedure SetPath(ID: PItemIDList);
- function ShellItem(Index: Integer): PItem;
- function CustomDrawSubItem(Item: TListItem; SubItem: Integer;
- State: TCustomDrawState; Stage: TCustomDrawStage): Boolean; override;
- function OwnerDataFetch(Item: TListItem; Request: TItemRequest): Boolean;
- override;
- function OwnerDataFind(Find: TItemFind; const FindString: string;
- const FindPosition: TPoint; FindData: Pointer; StartIndex: Integer;
- Direction: TSearchDirection; Wrap: Boolean): Integer; override;
- function OwnerDataHint(StartIndex, EndIndex: Integer): Boolean; override;
- procedure KeyDown(var Key: Word; Shift: TShiftState); override;
- procedure DblClick; override;
- procedure PopupSystemContextMenu(Item: TListItem; Point: TPoint);
- procedure WMContextMenu(var Message: TMessage); message WM_Contextmenu;
- public
- constructor Create(AOwner: TComponent); override;
- procedure Loaded; override;
- destructor Destroy; override;
- procedure LevelUp;
- procedure RefreshList;
- //IShellCommandVerb
- procedure CommandCompleted(Verb: string; Succeeded: Boolean);
- procedure ExecuteCommand(Verb: string; var Handled: Boolean);
- // property Folders[Index: Integer]: TShellFolder read GetFolder; default;
- { Public declarations }
- published
- { Published declarations }
- property ResolveUrl: TResolveUrl read FResolveUrl write FResolveUrl;
- property Channels: Boolean read FChannels write FChannels;
- property OnURLSelected: TOnURLSelectedEvent read FOnURLSelected write
- FOnURLSelected;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property PopupMenuMode: TPopupMenuMode read FPopupMenuMode write
- FPopupMenuMode;
- end;
-
- TFavoritesListView = class(TCustomFavoritesListView)
- published
- property Align;
- property AllocBy;
- property Anchors;
- property BiDiMode;
- property BorderStyle;
- property BorderWidth;
- property Color;
- property Constraints;
- property Ctl3D;
- property Enabled;
- property Font;
- property FlatScrollBars;
- property HideSelection;
- property HotTrack;
- property HotTrackStyles;
- property HoverTime;
- property Items;
- property ParentBiDiMode;
- property ParentColor default False;
- property ParentFont;
- property ParentShowHint;
- property PopupMenu;
- property ShowColumnHeaders;
- property TabOrder;
- property TabStop default True;
- property Visible;
- property OnAdvancedCustomDraw;
- property OnAdvancedCustomDrawItem;
- property OnAdvancedCustomDrawSubItem;
- property OnChange;
- property OnChanging;
- property OnClick;
- property OnColumnClick;
- property OnColumnDragged;
- property OnColumnRightClick;
- property OnCompare;
- property OnContextPopup;
- property OnCustomDraw;
- property OnCustomDrawItem;
- property OnCustomDrawSubItem;
- property OnData;
- property OnDataFind;
- property OnDataHint;
- property OnDataStateChange;
- property OnDblClick;
- property OnDeletion;
- property OnDrawItem;
- property OnEdited;
- property OnEditing;
- property OnEndDock;
- property OnEndDrag;
- property OnEnter;
- property OnExit;
- property OnGetImageIndex;
- property OnGetSubItemImage;
- property OnDragDrop;
- property OnDragOver;
- property OnInfoTip;
- property OnInsert;
- property OnKeyDown;
- property OnKeyPress;
- property OnKeyUp;
- property OnMouseDown;
- property OnMouseMove;
- property OnMouseUp;
- property OnResize;
- property OnSelectItem;
- property OnStartDock;
- property OnStartDrag;
- end;
-
-var
- Folder: IShellFolder;
- ChannelShortcut, InternetShortcut: string;
-
-implementation
-
-uses
- EwbTools;
-
-procedure TCustomFavoritesListView.RefreshList;
-begin
- SetPath(FPIDL);
-end;
-
-function ListSortFunc(Item1, Item2: Pointer): Integer;
-begin
- Result := SmallInt(Folder.CompareIDs(0, PItem(Item1).ID, PItem(Item2).ID));
-end;
-
-procedure TCustomFavoritesListView.SetPath(ID: PItemIDList);
-var
- PID: PItemIDList;
- EnumList: IEnumIDList;
- NumIDs: LongWord;
- Item: PItem;
- NewShellFolder: IShellFolder;
-begin
- OLECheck(Desktop.BindToObject(ID, nil, IID_IShellFolder,
- Pointer(NewShellFolder)));
- Items.BeginUpdate;
- try
- OleCheck(NewShellFolder.EnumObjects(Application.Handle,
- SHCONTF_FOLDERS or SHCONTF_NONFOLDERS, EnumList));
- Folder := NewShellFolder;
- ClearIDList;
- while EnumList.Next(1, PID, NumIDs) = S_OK do
- begin
- if not Channels and IsChannel(ChannelShortcut, Folder, PID) then
- Continue;
- Item := New(PItem);
- Item.ID := PID;
- Item.DisplayName := GetDisplayName(Folder, PID);
- Item.Empty := True;
- List.Add(Item);
- end;
- List.Sort(ListSortFunc);
- Items.Count := List.Count;
- Repaint;
- FPIDL := ID;
- if Items.Count > 0 then
- begin
- Selected := Items[0];
- Selected.Focused := True;
- Selected.MakeVisible(False);
- if (Pos('Links', Caption) > 0) or (pos('Imported', Text) > 0) then
- Selected.ImageIndex := -1
- end;
- finally
- Items.EndUpdate;
- end;
-end;
-
-function TCustomFavoritesListView.ShellItem(Index: Integer): PItem;
-begin
- Result := PItem(List[Index]);
-end;
-
-procedure TCustomFavoritesListView.ClearIDList;
-var
- I: Integer;
-begin
- for I := 0 to List.Count - 1 do
- begin
- DisposePIDL(ShellItem(I).ID);
- Dispose(ShellItem(I));
- end;
- List.Clear;
-end;
-
-{ TCustomFavoritesListView }
-
-function TCustomFavoritesListView.CustomDrawSubItem(Item: TListItem; SubItem:
- Integer;
- State: TCustomDrawState; Stage: TCustomDrawStage): Boolean;
-begin
- if (Stage = cdPrePaint) and (SubItem <> 0) then
- Canvas.Font.Color := GetSysColor(COLOR_WINDOWTEXT);
- Result := inherited CustomDrawSubItem(Item, SubItem, State, Stage);
-end;
-
-procedure TCustomFavoritesListView.DblClick;
-var
- FileInfo: TSHFileInfo;
- x: Olevariant;
- url: string;
- RootPIDL, ID: PItemIDList;
-begin
- inherited;
- if Selected <> nil then
- begin
- ID := ShellItem(Selected.Index).ID;
- if not IsFolderEx(ChannelShortcut, Folder, ID) then
- begin
- SHGetFileInfo(PChar(ID), 0, FileInfo, SizeOf(TSHFileInfo),
- SHGFI_PIDL or SHGFI_TYPENAME or SHGFI_ATTRIBUTES);
- if FileInfo.szTypeName = ChannelShortcut then
- ResolveChannel(Folder, ID, Url)
- else if FileInfo.szTypeName = InternetShortcut then
- begin
- if FResolveUrl = IntshCut then
- Url := ResolveUrlIntShCut(GetFileName(Folder, ID))
- else
- Url := ResolveUrlIni(GetFileName(Folder, ID));
- end
- else
- Url := Resolvelink(GetFileName(Folder, ID));
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(self, Url)
- else if Assigned(EmbeddedWB) then
- EmbeddedWB.Navigate(Url, X, X, X, X);
- end
- else
- begin
- RootPIDL := ConcatPIDLs(FPIDL, ID);
- SetPath(RootPIDL);
- Inc(Level);
- end;
- end;
-end;
-
-procedure TCustomFavoritesListView.LevelUp;
-var
- Temp: PItemIDList;
-begin
- Temp := CopyPIDL(FPIDL);
- if Assigned(Temp) then
- StripLastID(Temp);
- if (Temp.mkid.cb <> 0) and (Level > 0) then
- begin
- Dec(Level);
- SetPath(Temp)
- end
- else
- Beep;
-end;
-
-procedure TCustomFavoritesListView.KeyDown(var Key: Word; Shift: TShiftState);
-begin
- inherited;
- case Key of
- VK_RETURN: DblClick;
- VK_BACK, VK_HOME, VK_ESCAPE: LevelUp;
- end;
-end;
-
-procedure TCustomFavoritesListView.Loaded;
-var
- FileInfo: TSHFileInfo;
- ImageListHandle: THandle;
-begin
- inherited;
- OLECheck(SHGetSpecialFolderLocation(Application.Handle, CSIDL_Favorites,
- FavoritesPIDL));
- OLECheck(SHGetDesktopFolder(Desktop));
- Folder := Desktop;
- if list = nil then
- List := TList.Create;
- ImageListHandle := SHGetFileInfo(PChar(FavoritesPidl), 0, FileInfo,
- SizeOf(FileInfo),
- SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- SendMessage(Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle);
- SetPath(FavoritesPIDL);
- Level := 0;
-end;
-
-constructor TCustomFavoritesListView.Create(AOwner: TComponent);
-var
- FavoritesColumn: TListColumn;
-begin
- inherited;
- ReadOnly := True;
- Height := 300;
- Width := 200;
- ShowHint := True;
- ColumnClick := False;
- OwnerData := True;
- ViewStyle := vsReport;
- with TRegistry.Create do
- begin
- RootKey := HKEY_CLASSES_ROOT;
- if OpenKey('ChannelShortcut', FALSE) then
- ChannelShortCut := ReadString('')
- else
- ChannelShortcut := 'Channel Shortcut';
- Closekey;
- if OpenKey('InternetShortcut', FALSE) then
- InternetShortCut := ReadString('')
- else
- InternetShortcut := 'Internet Shortcut';
- Closekey;
- Free;
- end;
- FavoritesColumn := Columns.Add;
- SHGetDesktopFolder(Desktop);
- SHGetSpecialFolderLocation(Application.Handle, CSIDL_FAVORITES,
- FavoritesPIDL);
- FavoritesColumn.Caption := ExtractfileName(GetFileName(Desktop,
- FavoritesPidl));
- FavoritesColumn.Width := Width - 4;
-end;
-
-destructor TCustomFavoritesListView.Destroy;
-begin
- if List <> nil then
- begin
- ClearIDList;
- List.Free;
- end;
- inherited;
-end;
-
-function TCustomFavoritesListView.OwnerDataFetch(Item: TListItem;
- Request: TItemRequest): Boolean;
-begin
- inherited OwnerDataFetch(Item, Request);
- Result := True;
- if (Item.Index <= List.Count) then
- with ShellItem(Item.Index)^ do
- begin
- Item.Caption := DisplayName;
- Item.ImageIndex := ImageIndex;
- end;
-end;
-
-function TCustomFavoritesListView.OwnerDataFind(Find: TItemFind;
- const FindString: string; const FindPosition: TPoint; FindData: Pointer;
- StartIndex: Integer; Direction: TSearchDirection;
- Wrap: Boolean): Integer;
-var
- I: Integer;
- Found: Boolean;
-begin
- Result := inherited OwnerDataFind(Find, FindString, FindPosition, FindData,
- StartIndex, Direction, Wrap);
- I := StartIndex;
- if (Find = ifExactString) or (Find = ifPartialString) then
- begin
- repeat
- if (I = List.Count - 1) then
- begin
- if Wrap then
- I := 0
- else
- Exit;
- end;
- Found := Pos(UpperCase(FindString), UpperCase(ShellItem(I)^.DisplayName))
- = 1;
- Inc(I);
- until Found or (I = StartIndex);
- if Found then
- Result := I - 1;
- end;
-end;
-
-function CheckShortcut(Shortcut, Flag: Integer): Boolean;
-begin
- Result := Shortcut and Flag <> 0;
-end;
-
-function GetImageIndex(PIDL: PItemIDList; Large, Open: Boolean): Integer;
-var
- FileInfo: TSHFileInfo;
- Flags: Integer;
-begin
- Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX;
- if Open then
- Flags := Flags or SHGFI_OPENICON;
- if Large then
- Flags := Flags or SHGFI_LARGEICON
- else
- Flags := Flags or SHGFI_SMALLICON;
- SHGetFileInfo(PChar(PIDL), 0, FileInfo, SizeOf(FileInfo), Flags);
- Result := FileInfo.iIcon;
-end;
-
-function TCustomFavoritesListView.OwnerDataHint(StartIndex, EndIndex: Integer):
- Boolean;
-var
- FileInfo: TSHFileInfo;
- Flags: Integer;
- I, J: Integer;
- sfi: TShFileInfo;
-begin
- Result := inherited OwnerDataHint(StartIndex, EndIndex);
- if (StartIndex > List.Count) or (EndIndex > List.Count) then
- Exit;
-
- for I := StartIndex to EndIndex do
- begin
- if ShellItem(I)^.Empty then
- with ShellItem(I)^ do
- begin
- FullID := ConcatPIDLs(FPIDL, ID);
- FillChar(FileInfo, SizeOf(FileInfo), #0);
- Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON or
- SHGFI_SMALLICON;
- SHGetFileInfo(PChar(FullID), 0, FileInfo, SizeOf(FileInfo), Flags);
- J := GetImageIndex(FullID, False, False);
- ImageIndex := J;
- if (J = 3) and (CheckShortcut(SFGAO_LINK, SFGAO_DISPLAYATTRMASK))
- then
- begin
- ShGetFileInfo('*.htm', FILE_ATTRIBUTE_NORMAL, sfi, sizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or
- SHGFI_SMALLICON);
- J := sfi.iIcon;
- DestroyIcon(sfi.iIcon);
- end;
- ImageIndex := j;
- Empty := False;
- end;
- end;
- Result := True;
-end;
-
-procedure TCustomFavoritesListView.EditText;
-begin
- if Selected <> nil then
- ListView_EditLabel(Handle, Selected.Index);
-end;
-
-{ IShellCommandVerb}
-
-procedure TCustomFavoritesListView.CommandCompleted(Verb: string;
- Succeeded: Boolean);
-const
- SCmdVerbOpen = 'open';
- SCmdVerbDelete = 'delete';
- SCmdVerbPaste = 'paste';
-begin
- if Succeeded then
- begin
- if SameText(Verb, SCmdVerbDelete) or SameText(Verb, SCmdVerbPaste) then
- Refresh
- else if SameText(Verb, SCmdVerbOpen) then
- SetCurrentDirectory(PChar(FSavePath));
- end;
-end;
-
-procedure TCustomFavoritesListView.ExecuteCommand(Verb: string;
- var Handled: Boolean);
-const
- SCmdVerbOpen = 'open';
- SCmdVerbRename = 'rename';
-var
- szPath: array[0..MAX_PATH] of char;
-begin
- if SameText(Verb, SCmdVerbRename) then
- begin
- EditText;
- Handled := True;
- end
- else if SameText(Verb, SCmdVerbOpen) then
- begin
- GetCurrentDirectory(MAX_PATH, szPath);
- FSavePath := StrPas(szPath);
- StrPCopy(szPath, ExtractFilePath(ShellItem(Selected.Index).DisplayName));
- // StrPCopy(szPath, ExtractFilePath(Folders[Selected.Index].PathName));
- SetCurrentDirectory(szPath);
- end;
-end;
-
-procedure TCustomFavoritesListView.PopupSystemContextMenu(Item: TListItem;
- Point: TPoint);
-var
- ISF: IShellFolder;
- Pidl: PItemIdList;
-begin
- if Assigned(Item) then
- begin
- ISF := Folder;
- if Assigned(ISF) then
- begin
- Pidl := ShellItem(Selected.Index).ID;
- try
- MenuContext.DisplayContextMenu(ISF, Pidl, 0, Application.Handle,
- Point, 1);
- except
- end;
- end;
- end;
-end;
-
-procedure TCustomFavoritesListView.WMContextMenu(var Message: TMessage);
-var
- P: TPoint;
- R: TRect;
- NewSel, SelItem: TListItem;
-begin
- NewSel := nil;
- if Message.lparam = -1 then
- begin
- SelItem := TListItem(Selected);
- if not Assigned(SelItem) then
- Exit;
- R := SelItem.DisplayRect(drSelectBounds);
- P.X := R.Left + ((R.Right - R.Left) div 2);
- P.Y := R.Top - ((R.Top - R.Bottom) div 2);
- end
- else
- begin
- P.X := LOWORD(Message.lParam);
- P.Y := HIWORD(Message.lParam);
- P := ScreenToClient(P);
- SelItem := Selected //TListItem(GetPosition(P.X,P.Y));
- end;
- P := ClientToScreen(P);
- if (Selected <> SelItem) then
- NewSel := TListItem(Selected);
- Selected := SelItem;
- if PopupMenuMode = pmm_PopupMenu then
- begin
- if Assigned(PopupMenu) then
- begin
- PopupMenu.PopupComponent := Self;
- PopupMenu.Popup(P.X, P.Y)
- end;
- end
- else
- begin
- PopupSystemContextMenu(SelItem, P);
- end;
- if Assigned(NewSel) then
- Selected := NewSel;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/FavoritesPopup.pas b/windows/src/ext/embeddedwb/Source/FavoritesPopup.pas
deleted file mode 100644
index cb53ef1eed850b76b21c2f711a4988ad13c26835..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/FavoritesPopup.pas
+++ /dev/null
@@ -1,577 +0,0 @@
-//******************************************************************
-// *
-// TFavoritesPopup * *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// Based on TFavoritesMenu code *
-// by Per Linds Larsen *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//******************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: FavoritesPopup.pas,v 1.2 2006/12/05 11:56:31 bsalsa Exp $
-
-unit FavoritesPopup;
-
-interface
-
-{$I EWB.inc}
-uses
- Dialogs, Classes, Controls, Forms, Shlobj, Menus, EmbeddedWB;
-
-type
- PItem = ^TItem;
- TItem = record
- ID: PItemIDList;
- FullID: PItemIDList;
- Folder: Boolean;
- Created: Boolean;
- end;
-
-type
- TErrorEvent = procedure(const ErrorCode: integer; ErrMessage: string) of object;
- TFavOptions = (foAddFavorites, foOrganizeFavorites, foImportFavorites,
- foExportFavorites, foImportExportWizard);
- TOptions = set of TFavOptions;
- TOnAddFavoritesEvent = procedure(const EmbeddedWB: TEmbeddedWB; Title, URL: WideString; Success: integer) of object;
- TOnUrlSelectedEvent = procedure(Sender: TObject; Url: string) of object;
- TResolveUrl = (IntShCut, IniFile);
- TShellFolderProperty = (fpCut, fpIsLink, fpReadOnly, fpShared, fpFileSystem,
- fpFileSystemAncestor, fpRemovable, fpValidate);
- TShellFolderProperties = set of TShellFolderProperty;
- TLocalization = class(TPersistent)
- private
- FAddFavorites: string;
- FOrganizeFavorites: string;
- FImportFavorites: string;
- FExportFavorites: string;
- FImportExportWizard: string;
- published
- property AddFavorites: string read FAddFavorites write FAddFavorites;
- property OrganizeFavorites: string read FOrganizeFavorites write FOrganizeFavorites;
- property ImportFavorites: string read FImportFavorites write FImportFavorites;
- property ExportFavorites: string read FExportFavorites write FExportFavorites;
- property ImportExportWizard: string read FImportExportWizard write FImportExportWizard;
- end;
-
- TFavoritesPopup = class(TPopupMenu)
- private
- { Private declarations }
- Counter: Integer;
- Desktop: IShellFolder;
- FavoritesPopup: TMenuItem;
- FavoritesPidl: PItemIDList;
- FAbout: string;
- FCaption: string;
- FChannels: Boolean;
- FEmbeddedWB: TEmbeddedWB;
- FEnabled: Boolean;
- FOnError: TErrorEvent;
- FLocalization: TLocalization;
- FMaxWidth: Integer;
- FOnAddFavorites: TOnAddFavoritesEvent;
- FOnUrlSelected: TOnUrlSelectedEvent;
- FOptions: TOptions;
- FResolveUrl: TResolveUrl;
- Images: TImageList;
- Item: PItem;
- List: TList;
- procedure AddFavorite(Sender: TObject);
- procedure FavoritesExport(Sender: TObject);
- procedure FavoritesImport(Sender: TObject);
- procedure OrganizeFavorite(Sender: TObject);
- procedure ImportExportWizard(Sender: TObject);
- procedure SetAbout(Value: string);
- protected
- { Protected declarations }
- procedure AddDummy(menu: TMenuItem);
- procedure AddEmpty(menu: TMenuItem);
- procedure AddMenu(Menu: TMenuItem; FullID: PItemIDList);
- procedure BuildOptionsMenu;
- procedure DestroyList;
- procedure MenuClick(Sender: TObject);
- procedure Loaded; override;
- public
- { Public declarations }
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure CreateMenu(mi: TMenuItem); overload;
- procedure ReBuildMenu;
- published
- { Published declarations }
- property About: string read fAbout write SetAbout;
- property Channels: Boolean read FChannels write FChannels default False;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property Enabled: Boolean read FEnabled write FEnabled default True;
- property Localization: TLocalization read FLocalization write FLocalization;
- property MaxWidth: Integer read FMaxWidth write FMaxWidth default 50;
- property OnAddFavorites: TOnAddFavoritesEvent read FOnAddFavorites write FOnAddFavorites;
- property OnError: TErrorEvent read FOnError write FOnError;
- property OnURLSelected: TOnURLSelectedEvent read FOnURLSelected write FOnURLSelected;
- property Options: TOptions read FOptions write FOptions default [foAddFavorites, foOrganizeFavorites];
- property ResolveUrl: TResolveUrl read FResolveUrl write FResolveUrl default IntShCut;
- end;
-
-implementation
-
-uses
- ImportFavorites, ExportFavorites, Imglist, Windows, ShellApi, SysUtils, SHDocVw_EWB, ActiveX, Registry, EwbTools;
-
-var
- ChannelShortcut, InternetShortcut: string;
- Folder: IShellFolder;
- Procedur: procedure(Handle: THandle; Path: PAnsiChar); stdcall;
-
-function SortFunc(Item1, Item2: Pointer): Integer;
-begin
- Result := SmallInt(Folder.CompareIDs(0, PItem(Item1).ID, PItem(Item2).ID));
-end;
-
-function GetImageIndex(PIDL: PItemIDList; Large, Open: Boolean): Integer;
-var
- FileInfo: TSHFileInfo;
- Flags: Integer;
-begin
- Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX;
- if Open then
- Flags := Flags or SHGFI_OPENICON;
- if Large then
- Flags := Flags or SHGFI_LARGEICON
- else
- Flags := Flags or SHGFI_SMALLICON;
- SHGetFileInfo(PChar(PIDL), 0, FileInfo, SizeOf(FileInfo), Flags);
- Result := FileInfo.iIcon;
-end;
-
-function CheckShortcut(Shortcut, Flag: Integer): Boolean;
-begin
- Result := Shortcut and Flag <> 0;
-end;
-
-constructor TFavoritesPopup.Create;
-begin
- FAbout := 'TFavoritesPopup - from http://www.bsalsa.com/';
- FEnabled := True;
- FLocalization := TLocalization.Create;
- FLocalization.FAddFavorites := 'Add to Favorites';
- FLocalization.FOrganizeFavorites := 'Organize Favorites';
- FLocalization.FImportFavorites := 'Import Favorites';
- FLocalization.FExportFavorites := 'Export Favorites';
- FLocalization.FImportExportWizard := 'Import Export Favorites Wizard';
- SHGetDesktopFolder(Desktop);
- SHGetSpecialFolderLocation(Application.Handle, CSIDL_FAVORITES, FavoritesPIDL);
- FCaption := ExtractFileName(GetFileName(Desktop, FavoritesPidl));
- with TRegistry.Create do
- begin
- RootKey := HKEY_CLASSES_ROOT;
- if OpenKey('ChannelShortcut', FALSE)
- then
- ChannelShortCut := ReadString('')
- else
- ChannelShortcut := 'Channel Shortcut';
- Closekey;
- if OpenKey('InternetShortcut', FALSE)
- then
- InternetShortCut := ReadString('')
- else
- InternetShortcut := 'Internet Shortcut';
- Closekey;
- Free;
- end;
- FMaxWidth := 50;
- FOptions := [foAddFavorites, foOrganizeFavorites];
- inherited;
-end;
-
-procedure TFavoritesPopup.Loaded;
-begin
- CreateMenu(Self.Items);
- inherited;
-end;
-
-procedure TFavoritesPopup.DestroyList;
-var
- I: Integer;
-begin
- if list <> nil then
- begin
- for I := 0 to List.Count - 1 do
- begin
- DisposePIDL(PItem(List[I]).ID);
- DisposePIDL(PItem(List[i]).FULLID);
- Dispose(PItem(List[i]));
- end;
- Counter := 0;
- List.Free;
- end;
-end;
-
-destructor TFavoritesPopup.Destroy;
-begin
- FLocalization.Free;
- DestroyList;
- inherited;
-end;
-
-procedure TFavoritesPopup.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TFavoritesPopup.FavoritesExport(Sender: TObject);
-var
- ExportFav: TExportFavorite;
-begin
- if FEnabled and Assigned(FEmbeddedWB) then
- begin
- if not FEmbeddedWB.DocumentLoaded then
- begin
- FEmbeddedWB.AssignEmptyDocument;
- FEmbeddedWB.Wait;
- end;
- ExportFAv := TExportFavorite.Create(Self);
- with ExportFav do
- begin
- ExportFavorites;
- Free;
- end;
- end;
-end;
-
-procedure TFavoritesPopup.FavoritesImport(Sender: TObject);
-var
- ImportFav: TImportFavorite;
-begin
- if FEnabled and Assigned(FEmbeddedWB) then
- begin
- if not FEmbeddedWB.DocumentLoaded then
- begin
- FEmbeddedWB.AssignEmptyDocument;
- FEmbeddedWB.Wait;
- end;
- ImportFav := TImportFavorite.Create(Self);
- with ImportFav do
- begin
- ImportFavorites;
- Free;
- end;
- end;
-end;
-
-procedure TFavoritesPopup.ImportExportWizard(Sender: TObject);
-begin
- if FEnabled and Assigned(FEmbeddedWB) then
- begin
- if not FEmbeddedWB.DocumentLoaded then
- begin
- FEmbeddedWB.AssignEmptyDocument;
- FEmbeddedWB.Wait;
- end;
- FEmbeddedWB.ShowImportExportFavoritesAndCookies;
- end;
-end;
-
-procedure TFavoritesPopup.OrganizeFavorite(Sender: Tobject);
-var
- SpecialPath: array[0..MAX_PATH] of Char;
- H: HWnd;
- bGet: Boolean;
-begin
- if FEnabled then
- begin
- H := LoadLibrary('shdocvw.dll');
- if H <> 0 then
- begin
- Procedur := GetProcAddress(H, 'DoOrganizeFavDlg');
- if Assigned(Procedur) then
- begin
- bGet := SHGetPathFromIDList(FavoritesPidl, SpecialPath);
- if (not bGet) and (Assigned(FOnError)) then
- FOnError(E_FAIL, 'Failed while getting path for the favorites!');
- Procedur(Application.Handle, PAnsiChar(AnsiString(SpecialPath)));
- end;
- end
- else
- if Assigned(FOnError) then
- FOnError(E_FAIL, 'Failed while loading library!');
- FreeLibrary(H);
- RebuildMenu;
- end;
-end;
-
-procedure TFavoritesPopup.AddFavorite(Sender: TObject);
-const
- CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
-var
- ShellUIHelper: ISHellUIHelper;
- Url, Title: Olevariant;
- Success: integer;
-begin
- if FEnabled then
- begin
- if Assigned(FEmbeddedWB) then
- begin
- Title := FEmbeddedWB.LocationName;
- Url := FEmbeddedWB.LocationUrl;
- if Url <> '' then
- begin
- Success := CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
- IID_IShellUIHelper, ShellUIHelper);
- if Assigned(FOnAddFavorites) then
- FOnAddFavorites(FEmbeddedWB, Title, URL, Success);
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed while adding to favorites!');
- ShellUIHelper.AddFavorite(Url, Title);
- RebuildMenu;
- end
- else
- if (Assigned(FOnError)) then
- FOnError(E_FAIL, 'Failed - Empty URL string!');
- end
- else
- if (Assigned(FOnError)) then
- FOnError(E_FAIL, 'Please assign a TEmbeddedWB');
- end;
-end;
-
-procedure TFavoritesPopup.AddDummy(menu: TMenuItem);
-var
- Dummy: TMenuItem;
-begin
- Dummy := TMenuItem.Create(self);
- Dummy.Visible := False;
- Menu.Add(Dummy);
-end;
-
-procedure TFavoritesPopup.AddEmpty(menu: TMenuItem);
-var
- Empty: TMenuItem;
-begin
- Empty := TMenuItem.Create(self);
- Empty.Caption := ' (Empty) ';
- Empty.Enabled := False;
- Menu.add(Empty);
-end;
-
-procedure TFavoritesPopup.AddMenu(Menu: TMenuItem; FullID: PItemIDList);
-var
- MenuItem: TMenuItem;
- EnumList: IEnumIDList;
- ID: PItemIDList;
- NumIDs: LongWord;
- TempList: TList;
- I, j: Integer;
- Success: integer;
- sfi: TShFileInfo;
-begin
- if FEnabled then
- begin
- TempList := TList.Create;
- Success := Desktop.BindToObject(FullID, nil, IID_IShellFolder, Pointer(Folder));
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed retrieves an IShellFolder object for a subfolder!');
- Success := Folder.EnumObjects(Application.Handle, SHCONTF_FOLDERS or SHCONTF_NONFOLDERS,
- EnumList);
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed Enum objects!');
- while EnumList.Next(1, ID, NumIDs) = S_OK do
- begin
- if not Channels and IsChannel(ChannelShortcut, Folder, ID) then
- continue;
- Item := New(PItem);
- Item.ID := CopyPidl(ID);
- Item.FullID := ConcatPIDLs(FullID, ID);
- Item.Folder := IsFolderEx(ChannelShortcut, Folder, ID);
- Item.Created := False;
- TempList.Add(Item);
- end;
- DisposePidl(ID);
- if TempList.Count = 0 then
- begin
- AddEmpty(Menu);
- TempList.Free;
- exit;
- end;
- TempList.Sort(SortFunc);
- for I := 0 to TempList.Count - 1 do
- begin
- List.Add(PItem(Templist[I]));
- MenuItem := TMenuItem.Create(Menu);
- with MenuItem do
- begin
- SubMenuImages := Images;
- OnClick := MenuClick;
- Tag := Counter;
- Caption := GetDisplayName(Folder, PItem(TempList[I])^.ID);
- end;
- if Length(MenuItem.Caption) > FMaxWidth then
- MenuItem.Caption := Copy(MenuItem.Caption, 1, FMaxWidth) + '...';
- J := GetImageIndex(PItem(TempList[I])^.FullID, False, False);
- if (J = 3) and (CheckShortcut(SFGAO_LINK, SFGAO_DISPLAYATTRMASK)) then
- begin
- ShGetFileInfo('*.htm', FILE_ATTRIBUTE_NORMAL, sfi, sizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- J := sfi.iIcon;
- DestroyIcon(sfi.iIcon);
- end;
- MenuItem.ImageIndex := J;
- Menu.Add(MenuItem);
- Inc(Counter);
- if PItem(TempList[I])^.Folder then
- AddDummy(MenuItem);
- end;
- TempList.Free;
- end;
-end;
-
-procedure TFavoritesPopup.MenuClick(Sender: TObject);
-var
- Folder: IShellFOlder;
- FileInfo: TSHFileInfo;
- ID: PItemIDList;
- X: OleVariant;
- Url: string;
- Success: integer;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- if PItem(list[(Sender as TMenuItem).Tag])^.folder
- then
- begin
- if
- not PItem(list[(Sender as TMenuItem).Tag]).Created then
- begin
- AddMenu(Sender as TMenuItem,
- PItem(list[(Sender as TMenuItem).Tag])^.FULLID);
- PItem(list[(Sender as TMenuItem).Tag]).Created := TRUE;
- end;
- end
- else
- begin
- id := CopyPidl(PItem(list[(Sender as TMenuItem).Tag])^.FULLID);
- StripLastID(ID);
- Success := Desktop.BindToObject(ID, nil, IID_IShellFolder, Pointer(Folder));
- if (Success <> S_OK) and (Assigned(FOnError)) then
- FOnError(Success, 'Failed Retrieves an IShellFolder object for a subfolder!');
- SHGetFileInfo(PChar(PItem(list[(Sender as TMenuItem).Tag])^.ID), 0,
- FileInfo, SizeOf(TSHFileInfo), SHGFI_PIDL or SHGFI_TYPENAME or SHGFI_ATTRIBUTES);
- if Fileinfo.szTypeName = ChannelShortcut then
- ResolveChannel(Folder, PItem(list[(Sender as TMenuItem).Tag])^.ID, Url)
- else
- if fileinfo.szTypeName = InternetShortcut then
- begin
- if FResolveUrl = IntshCut then
- Url := ResolveUrlIntShCut(GetFileName(Folder,
- PItem(list[(Sender as TMenuItem).Tag])^.ID))
- else
- Url := ResolveUrlIni(GetFileName(Folder,
- PItem(list[(Sender as TMenuItem).Tag])^.ID));
- end
- else
- Url := Resolvelink(GetFileName(Folder,
- PItem(list[(Sender as TMenuItem).Tag])^.ID));
- DisposePidl(ID);
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(Sender, Url)
- else
- if Assigned(FEmbeddedWB) then
- FEmbeddedWB.Navigate(Url, X, X, X, X);
- end;
- end;
-end;
-
-procedure TFavoritesPopup.BuildOptionsMenu;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- if foAddFavorites in FOptions then
- FavoritesPopup.Add(NewItem(FLocalization.FAddFavorites, 0,
- False, True, addfavorite, 0, ''));
- if foOrganizeFavorites in FOptions then
- FavoritesPopup.Add(NewItem(FLocalization.FOrganizeFavorites, 0,
- False, True, organizefavorite, 0, ''));
- if FavoritesPopup.Count > 0 then
- FavoritesPopup.Add(NewItem('-', 0, False, True, nil, 0, ''));
- if IE5_Installed then
- begin
- if foImportFavorites in FOptions then
- FavoritesPopup.Add(NewItem(FLocalization.FImportFavorites, 0,
- False, True, FavoritesImport, 0, ''));
- if foExportFavorites in FOptions then
- FavoritesPopup.Add(NewItem(FLocalization.FExportFavorites, 0,
- False, True, FavoritesExport, 0, ''));
- if foImportExportWizard in FOptions then
- FavoritesPopup.Add(NewItem(FLocalization.FImportExportWizard, 0,
- False, True, ImportExportWizard, 0, ''));
-
- if (foImportFavorites in FOptions) or (foExportFavorites in FOptions)
- or (foImportExportWizard in FOptions) then
- FavoritesPopup.Add(NewItem('-', 0, False, True, nil, 0, ''));
- end;
- end;
-end;
-
-procedure TFavoritesPopup.CreateMenu(mi: TMenuItem);
-var
- FileInfo: TSHFileInfo;
-begin
- if FEnabled and not (csDesigning in ComponentState) then
- begin
- Counter := 0;
- List := TList.Create;
- Images := TImagelist.Create(self);
- with images do
- begin
- ShareImages := True;
- DrawingStyle := dsTransparent;
- Handle := SHGetFileInfo(Pchar(FavoritesPidl), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- end;
- if mi = nil then
- begin
- FavoritesPopup := TMenuitem.Create(self);
- FavoritesPopup.Caption := FCaption;
- end
- else
- FavoritesPopup := mi;
- FavoritesPopup.SubmenuImages := Images;
- BuildOptionsMenu;
- AddMenu(FavoritesPopup, FavoritesPidl);
- end;
-end;
-
-procedure TFavoritesPopup.ReBuildMenu;
-begin
- DestroyList;
- List := TList.Create;
- FavoritesPopup.Clear;
- BuildOptionsMenu;
- AddMenu(FavoritesPopup, FavoritesPidl);
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/FavoritesTree.pas b/windows/src/ext/embeddedwb/Source/FavoritesTree.pas
deleted file mode 100644
index 8a5bec46ce4f211ae91fd86ae7cdc3d109b91e83..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/FavoritesTree.pas
+++ /dev/null
@@ -1,680 +0,0 @@
-//******************************************************************
-// *
-// TFavoritesTree *
-// Freeware Component *
-// For Delphi 5 - DSelphi XE *
-// by *
-// Pete Morris *
-// and Eran Bodankin *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//******************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: FavoritesTree.pas,v 1.4 2006/12/05 11:56:31 bsalsa Exp $
-
-unit FavoritesTree;
-
-interface
-
-{$I EWB.inc}
-
-uses
- ShlObj, Messages, Windows, SysUtils, Classes, Forms, ComCtrls, DIRMonitor,
- iniFiles, EmbeddedWB, EwbCore, Controls, Imglist,
- ExportFavorites, ImportFavorites, EwbAcc, EWBTools;
-
-type
- TNodeType = (ntRoot, ntItem, ntEmptyFolder, ntFolder, ntOrganizeFavorites,
- ntAddToFavorites, ntImportFavorites, ntExportFavorites, ntTools);
- TFavoriteOption = (foShowRoot, foShowItems, foShowOrganize, foShowAdd,
- foShowImport, foShowExport);
- TFavoriteOptions = set of TFavoriteOption;
- TNodeAddedEvent = procedure(Sender: TObject; const aNode: TTreeNode;
- aNodeType: TNodeType) of object;
- TNodeMissingEvent = procedure(Sender: TObject; const aNode: TTreeNode;
- aNodeType: TNodeType) of object;
- TNavigateEvent = procedure(Sender: TObject; const Url: string) of object;
- TPopupMenuMode = (pmm_System, pmm_PopupMenu);
-
-
- TLocalization = class(TPersistent)
- private
- FNodeOrganiseFavorites: string;
- FNodeAddToFavorites: string;
- FNodeImportFavorites: string;
- FNodeExportFavorites: string;
- FNodeTools: string;
- FNodeFavorites: string;
- FTextLinks: string;
- FTextImported: string;
- published
- property NodeOrganiseFavorites: string read FNodeOrganiseFavorites write FNodeOrganiseFavorites;
- property NodeAddToFavorites: string read FNodeAddToFavorites write FNodeAddToFavorites;
- property NodeImportFavorites: string read FNodeImportFavorites write FNodeImportFavorites;
- property NodeExportFavorites: string read FNodeExportFavorites write FNodeExportFavorites;
- property NodeTools: string read FNodeTools write FNodeTools;
- property NodeFavorites: string read FNodeFavorites write FNodeFavorites;
- property TextLinks: string read FTextLinks write FTextLinks;
- property TextImported: string read FTextImported write FTextImported;
- end;
-
- TCustomFavoritesTree = class(TCustomTreeView)
- private
- foldericon: Integer;
- myRootNode, myRootNode2: TTreeNode;
- lFolder: PItemIDList;
- lPath: array[0..MAX_PATH] of char;
- FavIndex: integer;
- FOptions: TFavoriteOptions;
- FPath: string;
- ImageList: TImageList;
- FEmbeddedWB: TCustomEmbeddedWB;
- fExportFavorites: TExportFavorite;
- FImportFavorites: TImportFavorite;
- FOnNavigate: TNavigateEvent;
- FOnNodeAdded: TNodeAddedEvent;
- FOnNodeMissing: TNodeMissingEvent;
- FOnFavoritesChanged: TNotifyEvent;
- FPopupMenuMode: TPopupMenuMode;
- FLocalization: TLocalization;
- procedure SetOption(const Value: TFavoriteOptions);
- procedure CallDoOrganizeFavDlg(const DllName: string);
- protected
- procedure DblClick; override;
- function InternalAdd(const aParent: TTreeNode; const aCaption: string; const
- aNodeType: TNodeType): TTreeNode; virtual;
- procedure Loaded; override;
- property Options: TFavoriteOptions read FOptions write SetOption;
- property OnFavoritesChanged: TNotifyEvent read FOnFavoritesChanged write
- FOnFavoritesChanged;
- property OnNavigate: TNavigateEvent read FOnNavigate write FOnNavigate;
- property OnNodeAdded: TNodeAddedEvent read FOnNodeAdded write FOnNodeAdded;
- property OnNodeMissing: TNodeMissingEvent read FOnNodeMissing write
- FOnNodeMissing;
- procedure PopupSystemContextMenu(Node: TTreeNode; Point: TPoint);
- procedure WMContextMenu(var Msg: TMessage); message WM_Contextmenu;
- public
- constructor Create(AOwner: TComponent); override;
- procedure GetSelectedIndex(Node: TTreeNode); override;
- procedure NodeAdded(Sender: TObject;
- const aNode: TTreeNode; aNodeType: TNodeType);
- destructor Destroy; override;
- procedure AddToFavorites;
- procedure ExportTheFavorites;
- function GetFileName(const aNode: TTreeNode): string;
- procedure ImportTheFavorites;
- procedure OrganizeFavorites;
- procedure Refresh; dynamic;
- procedure RefreshFolder(const aFolder: TTreeNode); dynamic;
- function NodeURL(const aNode: TTreeNode): string;
- published
-
- property PopupMenuMode: TPopupMenuMode read FPopupMenuMode write
- FPopupMenuMode;
- property EmbeddedWB: TCustomEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property ImportFavorites: TImportFavorite read FImportFavorites write
- FImportFavorites;
- property ExportFavorites: TExportFavorite read fExportFavorites write
- FExportFavorites;
- property Localization: TLocalization read FLocalization write FLocalization;
- end;
-
- TFavoritesTree = class(TCustomFavoritesTree)
- private
- published
- //new properties
- property Options;
- //inherited properties
- property Align;
- property Anchors;
- property BiDiMode;
- property BorderStyle;
- property BorderWidth;
- property ChangeDelay;
- property Color;
- property Constraints;
- property Cursor;
- property DragCursor;
- property DragKind;
- property DragMode;
- property Enabled;
- // property Expand;
- property Font;
- property Height;
- property HelpContext;
- property HideSelection;
- property Hint;
- property HotTrack;
- property Images;
- property Indent;
- property ParentBiDiMode;
- property ParentColor;
- property ParentFont;
- property PopupMenu;
- property RightClickSelect;
- property RowSelect;
- property ShowButtons;
- property ShowHint;
- property ShowLines;
- property ShowRoot;
- property StateImages;
- property TabOrder;
- property TabStop;
- property Tag;
- property ToolTips;
- property Top;
- property Visible;
- property Width;
- //NewEvents
- property OnFavoritesChanged;
- //Called when you another app alters the favorites
- property OnNavigate; //When you need to navigate somewhere
- property OnNodeAdded;
- //When a node is added, so you can set the image indexes if you like
- property OnNodeMissing;
- //When a node is clicked, but someone else has deleted the file/folder
- property OnAdvancedCustomDraw;
- property OnAdvancedCustomDrawItem;
- property OnChange;
- property OnChanging;
- property OnClick;
- property OnCollapsed;
- property OnCollapsing;
- property OnContextPopup;
- property OnCustomDraw;
- property OnCustomDrawItem;
- property OnDblClick;
- property OnDeletion;
- property OnDragDrop;
- property OnDragOver;
- property OnEdited;
- property OnEditing;
- property OnEndDock;
- property OnEndDrag;
- property OnEnter;
- property OnExit;
- property OnExpanded;
- property OnExpanding;
- property OnGetImageIndex;
- property OnGetSelectedIndex;
- property OnKeyDown;
- property OnKeyPress;
- property OnKeyUp;
- property OnMouseDown;
- property OnMouseMove;
- property OnMouseUp;
- property OnStartDock;
- property OnStartDrag;
- end;
-
-var
- Folder: IShellFolder;
-
-
-implementation
-uses
-{$IFDEF DELPHI6_UP}
-{$WARN UNIT_PLATFORM OFF}
-{$ENDIF}
- MenuContext, SHDocVw_EWB, ComObj, ActiveX, FileCtrl, Registry, ShellApi;
-
-{ TCustomFavoritesTree }
-
-procedure TCustomFavoritesTree.GetSelectedIndex(Node: TTreeNode);
-begin
- inherited;
- Node.SelectedIndex := Node.ImageIndex;
-end;
-
-procedure TCustomFavoritesTree.NodeAdded(Sender: TObject;
- const aNode: TTreeNode; aNodeType: TNodeType);
-begin
- inherited;
-end;
-
-constructor TCustomFavoritesTree.Create(AOwner: TComponent);
-var FileInfo: TSHFileInfo;
-begin
- inherited;
-
- FLocalization := TLocalization.Create;
- FLocalization.NodeOrganiseFavorites := 'Organize favorites';
- FLocalization.NodeAddToFavorites := 'Add To favorites';
- FLocalization.NodeImportFavorites := 'Import favorites';
- FLocalization.NodeExportFavorites := 'Export favorites';
- FLocalization.NodeTools := 'Tools';
- FLocalization.NodeFavorites := 'Favorites';
- FLocalization.TextLinks := 'Links';
- FLocalization.TextImported := 'Imported';
-
- SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, lFolder);
- SHGetPathFromIDList(lFolder, lPath);
- //SHGetSpecialFolderLocation(Application.Handle, CSIDL_FAVORITES, FavoritesPIDL);
-
- FPath := StrPas(lPath);
- if FPath[Length(FPath)] <> '\' then
- FPath := FPath + '\';
- FOptions := [foShowRoot, foShowItems, foShowOrganize, foShowAdd, foShowImport,
- foShowExport];
- ShowRoot := True;
- ImageList := TImagelist.Create(Self);
- ImageList.ShareImages := True;
-// ImageList.DrawingStyle := dsTransparent;
- ImageList.Handle := SHGetFileInfo(Pchar(lFolder), 0, FileInfo,
- SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- Self.Images := ImageList;
- foldericon := -1;
-end;
-
-procedure TCustomFavoritesTree.Loaded;
-begin
- inherited;
- ShowRoot := True;
- Refresh;
-end;
-
-destructor TCustomFavoritesTree.Destroy;
-begin
- FLocalization.Free;
- ImageList.Free;
- inherited;
-end;
-
-function TCustomFavoritesTree.NodeURL(const aNode: TTreeNode): string;
-const
- CLSID_InternetShortCut: TGUID = (d1: $FBF23B40; D2: $E3F0; D3: $101B; D4:
- ($84, $88, $00, $AA, $00, $3E, $56, $F8));
-var
- FileName: string;
- FName: array[0..MAX_PATH] of WideChar;
- PURL: Pchar;
- IUrl: IUniformResourceLocator;
- PersistFile: IPersistFile;
-begin
- FileName := GetFileName(aNode);
- IUrl := CreateComObject(CLSID_InternetShortCut) as IUniformResourceLocator;
- PersistFile := IUrl as IPersistFile;
- StringToWideChar(FileName, FName, MAX_PATH);
- PersistFile.Load(FName, STGM_READ);
- IUrl.GetURL(@PURL);
- Result := PURL;
-end;
-
-function TCustomFavoritesTree.GetFileName(const aNode: TTreeNode): string;
-begin
- if (aNode = nil) or ((aNode = Items[FavIndex]) {and (foShowRoot in Options)}) then
- Result := FPath
- else
- begin
- case TNodeType(aNode.Data) of
- ntItem: Result := GetFileName(aNode.Parent) + aNode.Text + '.Url';
- ntFolder: Result := GetFileName(aNode.Parent) + aNode.Text + '\';
- ntEmptyFolder: Result := GetFileName(aNode.Parent) + aNode.Text + '\';
- ntTools: Result := GetFileName(aNode.Parent) + aNode.Text + '\';
- end;
- end;
-end;
-
-procedure TCustomFavoritesTree.RefreshFolder(const aFolder: TTreeNode);
-var
- CurrentPath: string;
- SR: TSearchRec;
- Found: Integer;
- newnode: TTreeNode;
- sfi: TShFileInfo;
- i: Integer;
-begin
- CurrentPath := GetFileName(aFolder);
- Found := FindFirst(CurrentPath + '*.*', faDirectory, SR);
-
- while Found = 0 do
- begin
- if (SR.Attr and faDirectory <> 0) and (SR.Name <> '.') and (SR.Name <>
- '..') then
- begin
- newnode := InternalAdd(aFolder, SR.Name, ntEmptyFolder);
- ShGetFileInfo('*.*', FILE_ATTRIBUTE_DIRECTORY, sfi, sizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- if foldericon < 0 then foldericon := sfi.iIcon;
- newnode.ImageIndex := sfi.iIcon;
- DestroyIcon(sfi.iIcon);
- end;
- Found := FindNext(SR);
- end;
- FindClose(SR);
-
- if foShowItems in Options then
- begin
- Found := FindFirst(CurrentPath + '*.Url', faAnyFile, SR);
- while Found = 0 do
- begin
- if (SR.Attr and faDirectory = 0) then
- begin
- newnode := InternalAdd(aFolder, Copy(SR.Name, 1, Length(SR.Name) - 4),
- ntItem);
- {$IFDEF UNICODE}
- ShGetFileInfo(LPWSTR((CurrentPath + SR.Name)), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi),
- SHGFI_SYSICONINDEX or
- SHGFI_USEFILEATTRIBUTES or
- SHGFI_SMALLICON);
- {$ELSE}
- ShGetFileInfo(LPCSTR((CurrentPath + SR.Name)), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi),
- SHGFI_SYSICONINDEX or
- SHGFI_USEFILEATTRIBUTES or
- SHGFI_SMALLICON);
- {$ENDIF}
- if sfi.iIcon > 3 then
- begin
- newnode.ImageIndex := sfi.iIcon;
- end
- else
- begin
- ShGetFileInfo('*.htm', FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi),
- SHGFI_SYSICONINDEX or
- SHGFI_USEFILEATTRIBUTES or
- SHGFI_SMALLICON);
- newnode.ImageIndex := sfi.iIcon;
- end;
- DestroyIcon(sfi.iIcon);
- end;
- Found := FindNext(SR);
- end;
- FindClose(SR);
- end;
-
- if aFolder <> nil then
- if TNodeType(aFolder.Data) = ntEmptyFolder then
- aFolder.Data := Pointer(ntFolder);
-
- if aFolder <> nil then
- if TNodeType(aFolder.Data) = ntFolder then
- begin
- aFolder.HasChildren := True;
- aFolder.Data := Pointer(ntFolder);
- aFolder.Expand(True);
- end;
-
- for i := 0 to myRootNode.Count do
- Self.Items[i].ImageIndex := foldericon;
-
- myRootNode.ImageIndex := foldericon;
- myRootNode2.ImageIndex := foldericon;
-end;
-
-function TCustomFavoritesTree.InternalAdd(const aParent: TTreeNode;
- const aCaption: string; const aNodeType: TNodeType): TTreeNode;
-begin
- Result := Items.AddChild(aParent, aCaption);
- Result.Data := Pointer(aNodeType);
- if Assigned(OnNodeAdded) then
- OnNodeAdded(Self, Result, aNodeType);
-end;
-
-procedure TCustomFavoritesTree.Refresh;
-var
- RootNode, RootNode2: TTreeNode;
-begin
- Items.BeginUpdate;
- try
- while Items.Count > 0 do
- Items[0].Delete;
-
- if foShowRoot in Options then
- RootNode := InternalAdd(nil, FLocalization.NodeTools, ntTools)
- else
- RootNode := nil;
- if foShowOrganize in Options then
- InternalAdd(RootNode, FLocalization.NodeOrganiseFavorites, ntOrganizeFavorites);
- if (foShowAdd in Options) then
- InternalAdd(RootNode, FLocalization.NodeAddToFavorites, ntAddToFavorites);
- if (foShowImport in Options) then
- InternalAdd(RootNode, FLocalization.NodeImportFavorites, ntImportFavorites);
- if (foShowExport in Options) then
- InternalAdd(RootNode, FLocalization.NodeExportFavorites, ntExportFavorites);
- if (RootNode <> nil) then
- RootNode.Expanded := True;
- if (Pos(FLocalization.TextLinks, RootNode.Text) > 0) or
- (Pos(FLocalization.TextImported, RootNode.Text) > 0) then
- RootNode.HasChildren := True;
-
- RootNode2 := InternalAdd(nil, FLocalization.NodeFavorites, ntRoot);
- FavIndex := RootNode.Count + 1;
-
- myRootNode := RootNode;
- myRootNode2 := RootNode2;
- RefreshFolder(RootNode2);
- RootNode2.Expand(True);
- finally
- Items.EndUpdate;
- end;
-end;
-
-procedure TCustomFavoritesTree.SetOption(const Value: TFavoriteOptions);
-begin
- FOptions := Value;
-end;
-
-procedure TCustomFavoritesTree.ExportTheFavorites;
-begin
- if Assigned(ExportFavorites) then
- FExportFavorites.ExportFavorites
- else
- Application.MessageBox('Please assign a TExportFavorites component to use this feature' + #13#10 +
- 'or set Options.foshowExport to False.', 'Hint', MB_OK);
-end;
-
-procedure TCustomFavoritesTree.ImportTheFavorites;
-begin
- if Assigned(ImportFavorites) then
- begin
- FImportFavorites.ImportFavorites;
- Refresh;
- end else
- Application.MessageBox('Please assign a TImportFavorites component to use this feature' + #13#10 +
- 'or set Options.foshowImport to False.', 'Hint',MB_OK);
-end;
-
-procedure TCustomFavoritesTree.CallDoOrganizeFavDlg(const DllName: string);
-var
- H: HWND;
- OrganizeFavDlg: procedure(Handle: THandle; Path: PAnsiChar); stdcall;
-begin
- H := LoadLibrary(PChar(DllName));
- if H <> 0 then
- begin
- OrganizeFavDlg := GetProcAddress(H, 'DoOrganizeFavDlg');
- if Assigned(OrganizeFavDlg) then
- OrganizeFavDlg(Application.Handle, PAnsiChar(AnsiString(FPath)));
- end;
- FreeLibrary(H);
-end;
-
-procedure TCustomFavoritesTree.OrganizeFavorites;
-begin
- if GetIEVersionMajor > 6 then
- CallDoOrganizeFavDlg('ieframe.dll')
- else
- CallDoOrganizeFavDlg('shdocvw.dll');
- Refresh;
-end;
-
-procedure AddToFav(const Url, Title: string);
-const
- CLSID_SHELLUIHELPER: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
-var
- ShellUIHelper: ISHellUIHelper;
- Url1, Title1: OleVariant;
-begin
- Title1 := Title;
- Url1 := Url;
- CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
- IID_IShellUIHelper, ShellUIHelper);
- ShellUIHelper.AddFavorite(Url1, Title1);
-end;
-
-procedure TCustomFavoritesTree.AddToFavorites;
-begin
- if Assigned(EmbeddedWB) then
- begin
- AddToFav(EmbeddedWB.LocationURL, EmbeddedWB.LocationName);
- Refresh;
- end;
-end;
-
-function URLFromShortcut(const dotURL: string): string;
-begin
- with TIniFile.Create(dotURL) do
- try
- try
- Result := ReadString('InternetShortcut', 'Url', '');
- except;
- Result := '';
- end;
- finally
- Free;
- end;
-end;
-
-procedure TCustomFavoritesTree.DblClick;
-var
- URLPath: WideString;
- X: OleVariant;
- Url: string;
-begin
- inherited;
- if Selected = nil then Exit;
-
- case TNodeType(Selected.Data) of
- ntFolder, ntEmptyFolder:
- if not {$IFDEF DELPHI6_UP}SysUtils.{$ENDIF}DirectoryExists(GetFileName(Selected)) then
- begin
- if Assigned(OnNodeMissing) then
- OnNodeMissing(Self, Selected, TNodeType(Selected.Data));
- Selected.Delete;
- Exit;
- end;
-
- ntItem:
- if not FileExists(GetFileName(Selected)) then
- begin
- if Assigned(OnNodeMissing) then
- OnNodeMissing(Self, Selected, TNodeType(Selected.Data));
- Selected.Delete;
- Exit;
- end;
- end;
-
- case TNodeType(Selected.Data) of
- ntAddToFavorites: AddToFavorites;
- ntOrganizeFavorites: OrganizeFavorites;
- ntImportFavorites: ImportTheFavorites;
- ntExportFavorites: ExportTheFavorites;
- ntTools: Selected.Expand(True);
- ntEmptyFolder:
- begin
- RefreshFolder(Selected);
- Selected.Expand(False);
- end;
- ntItem:
- begin
- if Assigned(OnNavigate) then
- FOnNavigate(Self, NodeURL(Selected));
- if Assigned(EmbeddedWB) then
- begin
- URLPath := GetFileName(Selected);
- Url := URLFromShortcut(URLPath);
- EmbeddedWB.Navigate(Url, X, X, X, X);
- end;
- end;
- end;
-end;
-
-procedure TCustomFavoritesTree.PopupSystemContextMenu(Node: TTreeNode; Point:
- TPoint);
-var
- ISF: IShellFolder;
- Pidl: PItemIdList;
- Par: TTreeNode;
-begin
- if Assigned(Node) then
- begin
- Par := Node.Parent;
- if Assigned(Par) then
- begin
- Pidl := Node.Data;
- try
- MenuContext.DisplayContextMenu(ISF, Pidl, 0, Application.Handle, Point, 1);
- except
- GetLastError;
- end;
- end;
- end;
-end;
-
-procedure TCustomFavoritesTree.WMContextMenu(var Msg: TMessage);
-var
- Point: TPoint;
- R: TRect;
- NewSel, SelItem: TTreeNode;
-begin
- NewSel := nil;
- if Msg.lparam = -1 then
- begin
- SelItem := TTreeNode(Selected);
- if not Assigned(SelItem) then
- Exit;
- R := SelItem.DisplayRect(True);
- Point.X := R.Left + ((R.Right - R.Left) div 2);
- Point.Y := R.Top - ((R.Top - R.Bottom) div 2);
- end
- else
- begin
- Point.X := LOWORD(Msg.lParam);
- Point.Y := HIWORD(Msg.lParam);
- Point := ScreenToClient(Point);
- SelItem := Selected //TListItem(GetPosition(P.X,P.Y));
- end;
- Point := ClientToScreen(Point);
- if (Selected <> SelItem) then
- NewSel := TTreeNode(Selected);
- Selected := SelItem;
- if PopupMenuMode = pmm_PopupMenu then
- begin
- if Assigned(Popupmenu) then
- begin
- PopupMenu.PopupComponent := Self;
- PopupMenu.Popup(Point.X, Point.Y)
- end;
- end
- else
- PopupSystemContextMenu(SelItem, Point);
-
- if Assigned(NewSel) then
- Selected := NewSel;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/FileExtAssociate.pas b/windows/src/ext/embeddedwb/Source/FileExtAssociate.pas
deleted file mode 100644
index 70a99e3c196361e232d9d517d78686b7dcbce046..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/FileExtAssociate.pas
+++ /dev/null
@@ -1,970 +0,0 @@
-//***********************************************************
-// TFileExtAssociate *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Based on idea by: Zarko Gajic *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: FileExtAssociate.pas,v 1.2 2006/11/15 21:01:41 sergev Exp $
-
-unit FileExtAssociate;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Dialogs, Windows, Classes, Graphics, Forms;
-
-type
- TFileInfo = record
- Icon: hIcon;
- Image: Integer;
- DisplayName: string;
- TypeName: string;
- Size: Integer;
- SizeAsString: string;
- DateTime: TDateTime;
- end;
-
-type
- TOnErrorEvent = procedure(Text: string) of object;
- TOnSuccessEvent = procedure(Text: string) of object;
- TOnCompleteEvent = procedure(Extension, Status: string; HResult: HResult) of object;
- TOnShortcutEvent = procedure(ShortcutItem, Status: string; HResult: HResult) of object;
- TShortcutItems = (SendTo, StartMenu, StartUp, Desktop, OpenWith, Programs,
- QuickLaunch, ProgramsSubDir);
- TShortcutItem = set of TShortcutItems;
-
- TAppShortcuts = class(TPersistent)
- private
- FCreateShortcuts: Boolean;
- FOptions: TShortcutItem;
- FMenuSubDir: WideString;
- FOnShortcut: TOnShortcutEvent;
- public
- published
- property CreateShortcuts: Boolean read FCreateShortcuts write FCreateShortcuts default True;
- property Options: TShortcutItem read FOptions write FOptions default [OpenWith];
- property MenuSubDir: WideString read FMenuSubDir write FMenuSubDir;
- property OnShortcutEvent: TOnShortcutEvent read FOnShortcut write FOnShortcut;
- end;
-
- TExtensionAssociate = class(TPersistent)
- private
- FCreateAssociation: Boolean;
- FExtensions: TStrings;
- protected
- procedure SetExtensions(Value: TStrings);
- public
- published
- property CreateAssociation: boolean read FCreateAssociation write FCreateAssociation default True;
- property Extensions: TStrings read FExtensions write SetExtensions;
- end;
-
- TAppDetails = class(TPersistent)
- private
- FAppTitle: string;
- FAppExeName: string;
- FIcon: TIcon;
- published
- property Title: string read FAppTitle write FAppTitle;
- property ExeName: string read FAppExeName write FAppExeName;
- property Icon: TIcon read FIcon write FIcon;
- end;
-
-type
- TFileExtAssociate = class(TComponent)
- private
- FAbout: string;
- FBusy: Boolean;
- FOnBusy: TNotifyEvent;
- FEnabled: Boolean;
- FApplicationDetails: TAppDetails;
- FExtensionAssociate: TExtensionAssociate;
- FOnError: TOnErrorEvent;
- FOnSuccess: TOnSuccessEvent;
- FOnComplete: TOnCompleteEvent;
- FOnShortcut: TOnShortcutEvent;
- FAppShortcuts: TAppShortcuts;
- function RegisterFileType(rExt: string; rTitle: string; rIcon: TIcon): Boolean;
- function UnRegisterFileType(uExt: string; uTitle: string): Boolean;
- function UpdateAppExeName(sExeName: string): string;
- function UpdateIcon(sIcon: TIcon): TIcon;
- function UpdateAppTitle(sTitle: string): string;
- function UpdateExtension(sExt: string): string;
- function CreateShortcut(SourceFileName: string; ShellFolder: TShortcutItems;
- SubFolder, WorkingDir, Parameters, Description: string): string;
- function DoExtension(sExt, sTitle, sExeName: string; sIcon: TIcon): Boolean;
- function DoShortcuts(dExeName, dTitle: string): Boolean;
- procedure BusyChange; dynamic;
- protected
- procedure SetAbout(Value: string);
- function UpdateShortcutItemValue: LongInt;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function Execute: Boolean; overload;
- function Execute(Extension, AppTitle, ExeName: string; Icon: TIcon): Boolean; overload;
- function Execute(Extensions: TStrings; AppTitle, ExeName: string; Icon: TIcon): Boolean; overload;
- function Remove: Boolean; overload;
- function Remove(Ext: string; ExeName: string): Boolean; overload;
- function GetExeByExtension(sExt: string): string;
- function GetIconByExtension(Extension: string; Small: Boolean): HIcon;
- function GetFileDisplayName(const Path: string): string;
- function GetFileSize(const Path: string): string;
- function GetFileTypeName(const Path: string): string;
- function GetFileIcon(const Path: string): HIcon;
- function GetFileImage(const Path: string): integer;
- function GetFileDateTime(const Path: string): TDateTime;
- function CreateShortcutSendTo(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function CreateShortcutStartUp(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function CreateShortcutStartMenu(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function CreateShortcutDesktop(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function CreateShortcutPrograms(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function CreateShortcutQuickLaunch(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function CreateShortcutOtherFolder(cExeName, cSubDir, cWorkDir, cParam,
- cTitle: string; CShellDir: TShortcutItems): HResult;
- function RemoveShortcuts(rmExeName: string): HResult;
- property Busy: Boolean read FBusy write FBusy default False;
- published
- property About: string read FAbout write SetAbout;
- property Enabled: boolean read FEnabled write FEnabled default True;
- property ExtensionAssociate: TExtensionAssociate read FExtensionAssociate write FExtensionAssociate;
- property ApplicationDetails: TAppDetails read FApplicationDetails write FApplicationDetails;
- property ApplicationShortcuts: TAppShortcuts read FAppShortcuts write FAppShortcuts;
- property OnBusyStateChange: TNotifyEvent read FOnBusy write FOnBusy;
- property OnErrorText: TOnErrorEvent read FOnError write FOnError;
- property OnSuccessText: TOnSuccessEvent read FOnSuccess write FOnSuccess;
- property OnComplete: TOnCompleteEvent read FOnComplete write FOnComplete;
- property OnShortcutEvent: TOnShortcutEvent read FOnShortcut write FOnShortcut;
- end;
-
-implementation
-
-uses
- ShellAPI, SysUtils, ActiveX, Registry, ShlObj, ComObj, EwbIEConst;
-
-// ExtensionAssociate===========================================================
-
-procedure TExtensionAssociate.SetExtensions(Value: TStrings);
-begin
- FExtensions.Assign(Value)
-end;
-// FileExtAssociate=============================================================
-
-constructor TFileExtAssociate.Create;
-begin
- FAbout := 'File Extension Associate component by bsalsa. ' + WEB_SITE;
- FApplicationDetails := TAppDetails.Create;
- FApplicationDetails.FIcon := Application.Icon;
- FEnabled := True;
- FAppShortcuts := TAppShortcuts.Create;
- FAppShortcuts.FOptions := [OpenWith];
- FAppShortcuts.FCreateShortcuts := True;
- FExtensionAssociate := TExtensionAssociate.Create;
- FExtensionAssociate.FExtensions := TStringList.Create;
- FExtensionAssociate.FCreateAssociation := True;
- inherited;
-end;
-
-destructor TFileExtAssociate.Destroy;
-begin
- FApplicationDetails.Free;
- FAppShortcuts.Free;
- FExtensionAssociate.FExtensions.Free;
- FExtensionAssociate.Free;
- inherited Destroy;
-end;
-
-procedure TFileExtAssociate.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TFileExtAssociate.BusyChange;
-begin
- if Assigned(FOnBusy) then
- FOnBusy(Self);
-end;
-
-function TFileExtAssociate.UpdateAppExeName(sExeName: string): string;
-begin
- if sExeName = '' then
- sExeName := Application.ExeName;
- FApplicationDetails.FAppExeName := sExeName;
- Result := sExeName;
- if not FileExists(sExeName) then
- begin
- if Assigned(FOnError) then
- FOnError('Can not locate your Exe name and path');
- Result := '';
- end;
-end;
-
-function TFileExtAssociate.UpdateAppTitle(sTitle: string): string;
-begin
- if sTitle = '' then
- sTitle := Application.Title;
- FApplicationDetails.FAppTitle := sTitle;
- if sTitle = '' then
- begin
- if Assigned(FOnError) then
- FOnError('Please enter a valid application title.');
- Result := '';
- end
- else
- Result := sTitle;
-end;
-
-function TFileExtAssociate.UpdateIcon(sIcon: TIcon): TIcon;
-begin
- if (sIcon = nil) then
- sIcon := Application.Icon;
- FApplicationDetails.FIcon := sIcon;
- Result := sIcon;
-end;
-
-function TFileExtAssociate.UpdateExtension(sExt: string): string;
-begin
- if sExt = '' then
- begin
- if Assigned(FOnError) then
- FOnError('Please Enter a valid extension.');
- end;
- Result := sExt;
-end;
-
-function TFileExtAssociate.Execute: Boolean;
-var
- i: integer;
- stExt: string;
- bExt, bSc: Boolean;
-begin
- FBusy := True;
- BusyChange;
- bExt := False;
- Result := bExt;
- for i := 0 to FExtensionAssociate.FExtensions.Count - 1 do
- begin
- stExt := FExtensionAssociate.FExtensions[i];
- bExt := DoExtension(stExt, FApplicationDetails.FAppTitle,
- FApplicationDetails.FAppExeName, FApplicationDetails.FIcon);
- end;
- bSc := DoShortcuts(FApplicationDetails.FAppExeName, FApplicationDetails.FAppTitle);
- if ((FAppShortcuts.FCreateShortcuts and bSc) or
- (FExtensionAssociate.FCreateAssociation and bExt)) then
- Result := True;
- FBusy := False;
- BusyChange;
-end;
-
-function TFileExtAssociate.Execute(Extension, AppTitle, ExeName: string; Icon:
- TIcon): Boolean;
-begin
- FBusy := True;
- BusyChange;
- Result := False;
- if DoExtension(Extension, AppTitle, ExeName, Icon) and
- DoShortcuts(ExeName, AppTitle) then
- Result := True;
- FBusy := False;
- BusyChange;
-end;
-
-function TFileExtAssociate.Execute(Extensions: TStrings; AppTitle, ExeName: string;
- Icon: TIcon): Boolean;
-var
- i: integer;
- stExt: string;
- bExt, bSc: Boolean;
-begin
- FBusy := True;
- BusyChange;
- bExt := False;
- Result := bExt;
- for i := 0 to Extensions.Count - 1 do
- begin
- stExt := Extensions[i];
- bExt := DoExtension(stExt, AppTitle, ExeName, Icon);
- end;
- bSc := DoShortcuts(ExeName, AppTitle);
- if ((FAppShortcuts.FCreateShortcuts and bSc) or
- (FExtensionAssociate.FCreateAssociation and bExt)) then
- Result := True;
- FBusy := False;
- BusyChange;
-end;
-
-function TFileExtAssociate.DoExtension(sExt, sTitle, sExeName: string; sIcon: TIcon): Boolean;
-begin
- Result := False;
- if FExtensionAssociate.FCreateAssociation then
- begin
- if Assigned(FOnError) then
- FOnError('');
- if Assigned(FOnSuccess) then
- FOnSuccess('');
- sTitle := UpdateAppTitle(sTitle);
- if sTitle = '' then
- Exit;
- sExeName := UpdateAppExeName(sExeName);
- if sExeName = '' then
- Exit;
- sIcon := UpdateIcon(sIcon);
- if sIcon = nil then
- Exit;
- sExt := UpdateExtension(sExt);
- if sExt = '' then
- Exit;
- if RegisterFileType(sExt, sExeName, sIcon) then
- begin
- if Assigned(FOnComplete) then
- FOnComplete(sExt, 'Registration successful.', S_OK);
- if Assigned(FOnSuccess) then
- FOnSuccess('Done.');
- end
- else
- if Assigned(FOnError) then
- FOnError('Registration failure.');
- end;
-end;
-
-function TFileExtAssociate.DoShortcuts(dExeName, dTitle: string): Boolean;
-begin
- Result := False;
- if FAppShortcuts.FCreateShortcuts then
- begin
- if Assigned(FOnError) then
- FOnError('');
- if Assigned(FOnSuccess) then
- FOnSuccess('');
- dExeName := UpdateAppExeName(dExeName);
- if dExeName = '' then
- Exit;
- UpdateShortcutItemValue;
- if SendTo in FAppShortcuts.FOptions then
- CreateShortcutSendTo(dExeName, '', '', '', dTitle, SendTo);
- if StartUp in FAppShortcuts.FOptions then
- CreateShortcutStartUp(dExeName, '', '', '', dTitle, StartUp);
- if StartMenu in FAppShortcuts.FOptions then
- CreateShortcutStartMenu(dExeName, '', '', '', dTitle, StartMenu);
- if Desktop in FAppShortcuts.FOptions then
- CreateShortcutDesktop(dExeName, '', '', '', dTitle, Desktop);
- if Programs in FAppShortcuts.FOptions then
- CreateShortcutPrograms(dExeName, '', '', '', dTitle, Programs);
- if QuickLaunch in FAppShortcuts.FOptions then
- CreateShortcutQuickLaunch(dExeName, '', '', '', dTitle, QuickLaunch);
- if ProgramsSubDir in FAppShortcuts.FOptions then
- CreateShortcutOtherFolder(dExeName, FAppShortcuts.FMenuSubDir, '', '',
- dTitle, ProgramsSubDir);
- Result := True;
- if Assigned(FOnSuccess) then
- FOnSuccess('Done.');
- end;
- if (not FAppShortcuts.FCreateShortcuts) and
- (not FExtensionAssociate.FCreateAssociation) then
- if Assigned(FOnComplete) then
- FOnComplete('', 'No action selected.', S_FALSE);
-
-end;
-
-function TFileExtAssociate.Remove: Boolean;
-var
- i: integer;
- stExt: string;
-begin
- FBusy := True;
- BusyChange;
- Result := False;
- if Assigned(FOnError) then
- FOnError('');
- if Assigned(FOnSuccess) then
- FOnSuccess('');
- RemoveShortcuts(FApplicationDetails.FAppExeName);
- for i := 0 to FExtensionAssociate.FExtensions.Count - 1 do
- begin
- stExt := FExtensionAssociate.FExtensions[i];
- if UnRegisterFileType(stExt, FApplicationDetails.FAppExeName) then
- begin
- if Assigned(FOnComplete) then
- FOnComplete(stExt, 'Unregister', S_OK);
- if Assigned(FOnSuccess) then
- FOnSuccess('Successfuly removed ' + stExt);
- Result := True;
- end
- else
- begin
- if Assigned(FOnComplete) then
- FOnComplete(stExt, 'Unregister', S_FALSE);
- Result := False;
- end;
- end;
- FBusy := False;
- BusyChange;
-end;
-
-function TFileExtAssociate.Remove(Ext: string; ExeName: string): Boolean;
-begin
- FBusy := True;
- BusyChange;
- if Assigned(FOnError) then
- FOnError('');
- if Assigned(FOnSuccess) then
- FOnSuccess('');
- RemoveShortcuts(ExeName);
- if UnRegisterFileType(Ext, ExeName) then
- begin
- if Assigned(FOnComplete) then
- FOnComplete(Ext, 'Unregister', S_OK);
- if Assigned(FOnSuccess) then
- FOnSuccess('Successfuly removed ' + Ext);
- Result := True;
- end
- else
- begin
- if Assigned(FOnComplete) then
- FOnComplete(Ext, 'Unregister', S_FALSE);
- Result := False;
- end;
- FBusy := False;
- BusyChange;
-end;
-
-function TFileExtAssociate.RegisterFileType(rExt: string; rTitle: string; rIcon: TIcon): Boolean;
-begin
- if rExt[1] = '.' then
- rExt := Copy(rExt, 2, MaxInt);
- with TRegistry.Create do
- begin
- try
- RootKey := HKEY_CLASSES_ROOT;
- OpenKey('.' + rExt, True);
- WriteString('', rExt + 'file');
- CloseKey;
- CreateKey(rExt + 'file');
- OpenKey(rExt + 'file\DefaultIcon', True);
- WriteString('', rTitle + ',0');
- CloseKey;
- OpenKey(rExt + 'file\shell\open\command', True);
- WriteString('', rTitle + ' "%1"');
- CloseKey;
- Result := True;
- finally
- Free;
- end;
- end;
- SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
-end;
-
-function TFileExtAssociate.UnRegisterFileType(uExt: string; uTitle: string): Boolean;
-var
- st: string;
-begin
- if uExt = '' then
- begin
- if Assigned(FOnError) then
- FOnError('Can not remove a null extension.');
- Result := False;
- exit;
- end;
- with TRegistry.Create do
- begin
- try
- if AnsiPos('.', uExt) = 0 then
- st := '.' + uExt;
- RootKey := HKEY_CLASSES_ROOT;
- if KeyExists(st) then
- DeleteKey(uExt)
- else
- begin
- if Assigned(FOnError) then
- FOnError('Error occured while removing ' + st);
- //Result := False;
- end;
- if uExt[1] = '.' then
- uExt := Copy(uExt, 2, MaxInt);
- if KeyExists(uExt + 'file') then
- DeleteKey(uExt + 'file')
- else
- begin
- if Assigned(FOnError) then
- FOnError('Error occured while removing ' + uExt + 'file');
- //Result := False;
- end;
- Result := True;
- finally
- Free;
- end;
- end;
- SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
-end;
-
-// Shortcuts====================================================================
-
-function TFileExtAssociate.CreateShortcut(SourceFileName: string; ShellFolder: TShortcutItems;
- SubFolder, WorkingDir, Parameters, Description: string): string; //Idea by Smot
-var
- MyObject: IUnknown;
- MySLink: IShellLink;
- MyPFile: IPersistFile;
- FolderPath, LinkName: string;
- ShortcutFile: WideString;
- Reg: TRegIniFile;
-begin
- MyObject := CreateComObject(CLSID_ShellLink);
- MySLink := MyObject as IShellLink;
- MyPFile := MyObject as IPersistFile;
- MySLink.SetPath(PChar(SourceFileName));
- MySLink.SetArguments(PChar(Parameters));
- MySLink.SetDescription(PChar(Description));
- LinkName := ChangeFileExt(SourceFileName, '.lnk');
- LinkName := ExtractFileName(LinkName);
- if LinkName = '' then
- begin
- if Assigned(FOnError) then
- FOnError('Error occured creating link.');
- Result := '';
- Exit;
- end
- else
- begin
- Reg := TRegIniFile.Create(SHELL_FOLDERS_ROOT);
- try
- case ShellFolder of
- ProgramsSubDir: FolderPath := Reg.ReadString('Shell Folders',
- 'Programs', '') + '\' + SubFolder;
- Desktop: FolderPath := Reg.ReadString('Shell Folders', 'Desktop', '');
- StartUp: FolderPath := Reg.ReadString('Shell Folders', 'Startup', '');
- StartMenu: FolderPath := Reg.ReadString('Shell Folders', 'Start Menu', '');
- SendTo: FolderPath := Reg.ReadString('Shell Folders', 'SendTo', '');
- Programs: FolderPath := Reg.ReadString('Shell Folders', 'Programs', '');
- QuickLaunch: FolderPath := Reg.ReadString('Shell Folders', 'AppData', '') +
- '\Microsoft\Internet Explorer\Quick Launch';
- end;
- finally
- Reg.Free;
- end;
- end;
- if FolderPath <> '' then
- begin
- if (SubFolder <> '') and (ShellFolder = ProgramsSubDir) then
- begin
- if CreateDir(FolderPath) then
- ShortcutFile := FolderPath + '\' + LinkName;
- end
- else
- if (SubFolder <> '') and (ShellFolder <> ProgramsSubDir) then
- ShortcutFile := FolderPath + '\' + SubFolder + '\' + LinkName
- else
- ShortcutFile := FolderPath + '\' + LinkName;
- if WorkingDir = '' then
- MySLink.SetWorkingDirectory(PChar(ExtractFilePath(SourceFileName)))
- else
- MySLink.SetWorkingDirectory(PChar(WorkingDir));
- MyPFile.Save(PWChar(ShortcutFile), False);
- Result := ShortcutFile;
- end
- else
- begin
- if Assigned(FOnError) then
- FOnError('Error occured while locating path to the shortcut.');
- Result := '';
- Exit;
- end;
-end;
-
-function TFileExtAssociate.CreateShortcutSendTo(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, '', '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('SendTo', 'Add', Result);
-end;
-
-function TFileExtAssociate.CreateShortcutStartUp(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, '', '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('StartUp', 'Add', Result);
-end;
-
-function TFileExtAssociate.CreateShortcutStartMenu(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, '', '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('StartMenu', 'Add', Result);
-end;
-
-function TFileExtAssociate.CreateShortcutPrograms(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, '', '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('Programs', 'Add', Result);
-end;
-
-function TFileExtAssociate.CreateShortcutDesktop(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, '', '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('Desktop', 'Add', Result);
-end;
-
-function TFileExtAssociate.CreateShortcutOtherFolder(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, cSubDir, '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Add', Result);
-end;
-
-function TFileExtAssociate.CreateShortcutQuickLaunch(cExeName, cSubDir, cWorkDir, cParam, cTitle: string; CShellDir: TShortcutItems): HResult;
-begin
- Result := S_OK;
- CreateShortcut(cExeName, CShellDir, '', '', '', cTitle);
- if Assigned(FOnShortcut) then
- FOnShortcut('QuickLaunch', 'Add', Result);
-end;
-
-function TFileExtAssociate.RemoveShortcuts(rmExeName: string): HResult;
-var
- FolderPath: WideString;
- Reg: TRegIniFile;
- FName, IName: string;
-begin
- if rmExeName = '' then
- begin
- rmExeName := Application.ExeName;
- FApplicationDetails.FAppExeName := rmExeName;
- if not FileExists(rmExeName) then
- if Assigned(FOnError) then
- FOnError('Error occured while removing shortcuts. (nil Exe file)');
- Result := S_FALSE;
- Exit;
- end
- else
- begin
- Reg := TRegIniFile.Create(SHELL_FOLDERS_ROOT);
- IName := ExtractFileName(rmExeName);
- FName := ChangeFileExt(IName, '.lnk');
- try
- FolderPath := Reg.ReadString('Shell Folders', 'Programs', '') + '\' + FAppShortcuts.FMenuSubDir;
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- RemoveDir(FolderPath);
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
-
- FolderPath := Reg.ReadString('Shell Folders', 'Desktop', '');
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- if Assigned(FOnShortcut) then
- FOnShortcut('Desktop', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
- FolderPath := Reg.ReadString('Shell Folders', 'Startup', '');
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- if Assigned(FOnShortcut) then
- FOnShortcut('Startup', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
- FolderPath := Reg.ReadString('Shell Folders', 'Start Menu', '');
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- if Assigned(FOnShortcut) then
- FOnShortcut('Start Menu', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
- FolderPath := Reg.ReadString('Shell Folders', 'SendTo', '');
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- if Assigned(FOnShortcut) then
- FOnShortcut('SendTo', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
- FolderPath := Reg.ReadString('Shell Folders', 'Programs', '');
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- if Assigned(FOnShortcut) then
- FOnShortcut('Programs', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
- FolderPath := Reg.ReadString('Shell Folders', 'AppData', '') +
- '\Microsoft\Internet Explorer\Quick Launch';
- if FileExists(FolderPath + '\' + FName) and
- DeleteFile(FolderPath + '\' + FName) then
- begin
- Result := S_OK;
- if Assigned(FOnShortcut) then
- FOnShortcut('Quick Launch', 'Remove', Result);
- end
- else
- begin
- Result := S_FALSE;
- if Assigned(FOnShortcut) then
- FOnShortcut('ProgramsSubDir', 'Remove', Result);
- end;
- finally
- Reg.Free;
- end;
- end;
-end;
-
-function TFileExtAssociate.UpdateShortcutItemValue: LongInt;
-const
- AcardShortcutItemValues: array[TShortcutItems] of Cardinal =
- ($01, $02, $03, $04, $05, $06, $07, $08);
-var
- i: TShortcutItems;
- j: Longint;
-begin
- j := 0;
- if (FAppShortcuts.FOptions <> []) then
- for i := Low(TShortcutItems) to High(TShortcutItems)
- do
- if (i in FAppShortcuts.FOptions) then
- Inc(j, AcardShortcutItemValues[i]);
- Result := j;
-end;
-
-//==============================================================================
-
-function FormatSize(Byte: Double): string;
-begin
- if (Byte < 1024) then
- Result := Format('%.2n b', [Byte])
- else
- begin
- Byte := (Byte / 1024);
- if (Byte < 1024) then
- Result := Format('%.2n Kb', [Byte])
- else
- begin
- Byte := (Byte / 1024);
- Result := Format('%.2n Mb', [Byte]);
- end;
- end;
-end;
-
-procedure GetFileInfo(Path: string; var Info: TFileInfo);
-var
- SHFileInfo: TSHFileInfo;
- SearchRec: TSearchRec;
- intFileAge: Integer;
-begin
- if Trim(Path) <> '' then
- begin
- ShGetFileInfo(PChar(Path), 0, SHFileInfo, SizeOf(TSHFileInfo),
- SHGFI_TYPENAME or SHGFI_DISPLAYNAME or SHGFI_SYSICONINDEX or SHGFI_ICON);
- ZeroMemory(@Info, 0);
- with Info do
- begin
- Icon := SHFileInfo.hIcon;
- Image := SHFileInfo.iIcon;
- DisplayName := SHFileInfo.szDisplayName;
- TypeName := SHFileInfo.szTypeName;
-{$IFDEF DELPHI6_UP}{$WARN SYMBOL_DEPRECATED OFF}{$ENDIF}
- intFileAge := FileAge(Path);
- if intFileAge > -1 then
- DateTime := FileDateToDateTime(intFileAge);
-{$IFDEF DELPHI6_UP}{$WARN SYMBOL_DEPRECATED ON}{$ENDIF}
- if FindFirst(Path, 0, SearchRec) = 0 then
- begin
- Size := SearchRec.Size;
- SizeAsString := FormatSize(Size);
- FindClose(searchRec);
- end;
- end;
- end;
-end;
-
-function TFileExtAssociate.GetExeByExtension(sExt: string): string;
-var
- sExtDesc: string;
-begin
- with TRegistry.Create do
- begin
- try
- if sExt = '' then
- begin
- if Assigned(FOnError) then
- FOnError('Can not locate a null extension');
- Result := '';
- Exit;
- end;
- if AnsiPos('.', sExt) = 0 then
- sExt := '.' + sExt;
- RootKey := HKEY_CLASSES_ROOT;
- if OpenKeyReadOnly(sExt) then
- begin
- sExtDesc := ReadString('');
- CloseKey;
- end;
- if sExtDesc <> '' then
- begin
- if OpenKeyReadOnly(sExtDesc + '\Shell\Open\Command') then
- Result := ReadString('');
- end;
- finally
- Free;
- end;
- end;
-
- if Result <> '' then
- begin
- if Result[1] = '"' then
- begin
- Result := Copy(Result, 2, -1 + Pos('"', Copy(Result, 2, MaxINt)));
- end
- end;
-end;
-
-function TFileExtAssociate.GetIconByExtension(Extension: string; Small: Boolean): HIcon;
-var
- Info: TSHFileInfo;
- Flags: Cardinal;
-begin
- if Small then
- Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
- else
- Flags := SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;
- if AnsiPos('.', Extension) = 0 then
- Extension := '.' + Extension;
- SHGetFileInfo(PChar(Extension), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), Flags);
- Result := Info.hIcon;
-end;
-
-function TFileExtAssociate.GetFileDisplayName(const Path: string): string;
-var
- Info: TFileInfo;
-begin
- GetFileInfo(Path, Info);
- Result := Info.DisplayName;
-end;
-
-function TFileExtAssociate.GetFileSize(const Path: string): string;
-var
- Info: TFileInfo;
-begin
- GetFileInfo(Path, Info);
- Result := Info.SizeAsString;
-end;
-
-function TFileExtAssociate.GetFileTypeName(const Path: string): string;
-var
- Info: TFileInfo;
-begin
- GetFileInfo(Path, Info);
- Result := Info.TypeName;
-end;
-
-function TFileExtAssociate.GetFileImage(const Path: string): Integer;
-var
- Info: TFileInfo;
-begin
- GetFileInfo(Path, Info);
- Result := Info.Image;
-end;
-
-function TFileExtAssociate.GetFileIcon(const Path: string): HIcon;
-var
- Info: TFileInfo;
-begin
- GetFileInfo(Path, Info);
- Result := Info.Icon;
-end;
-
-function TFileExtAssociate.GetFileDateTime(const Path: string): TDateTime;
-var
- Info: TFileInfo;
-begin
- GetFileInfo(Path, Info);
- Result := Info.DateTime;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/HighLightHTML.pas b/windows/src/ext/embeddedwb/Source/HighLightHTML.pas
deleted file mode 100644
index 550df89f00e4a746c12c952e44f7dc418425da08..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/HighLightHTML.pas
+++ /dev/null
@@ -1,2639 +0,0 @@
-{*******************************************************}
-{ RichEdit Syntax HighLight }
-{ version 3.0 }
-{ Author: }
-{ Serhiy Perevoznyk }
-{ serge_perevoznyk@hotmail.com }
-{ bsalsa made some minor code changes }
-{*******************************************************}
-
-{The contents of this file are subject to the Mozilla Public License
-Version 1.1 (the "License"); you may not use this file except in compliance
-with the License. You may obtain a copy of the License at
-http://www.mozilla.org/MPL/
-
-Software distributed under the License is distributed on an "AS IS" basis,
-WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
-the specific language governing rights and limitations under the License.
-
-The Original Code is: SynHighlighterHTML.pas, released 2000-04-10.
-The Original Code is based on the hkHTMLSyn.pas file from the
-mwEdit component suite by Martin Waldenburg and other developers, the Initial
-Author of this file is Hideo Koiso.
-All Rights Reserved.
-The Original Code can be obtained from http://synedit.sourceforge.net/
-}
-//$Id: HighLightHTML.pas,v 1.2 2006/11/15 21:01:41 sergev Exp $
-
-unit HighLightHTML;
-
-{$IFDEF UNICODE}
-{$WARN WIDECHAR_REDUCED OFF}
-{$ENDIF UNICODE}
-
-interface
-
-
-{$I EWB.inc}
-
-uses
- SysUtils, Windows, Messages, Classes, Controls, Graphics, HighLightRichSyntax;
-
-const
- MAX_ESCAPEAMPS = 151;
-
- EscapeAmps: array[0..MAX_ESCAPEAMPS - 1] of PChar = (
- ('&'), { & }
- ('<'), { > }
- ('>'), { < }
- ('"'), { " }
- ('™'), { }
- (' '), { space }
- ('©'), { }
- ('®'), { }
- ('À'), { }
- ('Á'), { }
- ('Â'), { }
- ('Ã'), { }
- ('Ä'), { }
- ('Å'), { }
- ('Æ'), { }
- ('Ç'), { }
- ('È'), { }
- ('É'), { }
- ('Ê'), { }
- ('Ë'), { }
- ('Ì'), { }
- ('Í'), { }
- ('Î'), { }
- ('Ï'), { }
- ('Ð'), { }
- ('Ñ'), { }
- ('Ò'), { }
- ('Ó'), { }
- ('Ô'), { }
- ('Õ'), { }
- ('Ö'), { }
- ('Ø'), { }
- ('Ù'), { }
- ('Ú'), { }
- ('Û'), { }
- ('Ü'), { }
- ('Ý'), { }
- ('Þ'), { }
- ('ß'), { }
- ('à'), { }
- ('á'), { }
- ('â'), { }
- ('ã'), { }
- ('ä'), { }
- ('å'), { }
- ('æ'), { }
- ('ç'), { }
- ('è'), { }
- ('é'), { }
- ('ê'), { }
- ('ë'), { }
- ('ì'), { }
- ('í'), { }
- ('î'), { }
- ('ï'), { }
- ('ð'), { }
- ('ñ'), { }
- ('ò'), { }
- ('ó'), { }
- ('ô'), { }
- ('õ'), { }
- ('ö'), { }
- ('ø'), { }
- ('ù'), { }
- ('ú'), { }
- ('û'), { }
- ('ü'), { }
- ('ý'), { }
- ('þ'), { }
- ('ÿ'), { }
- ('¡'), { }
- ('¢'), { }
- ('£'), { }
- ('¤'), { }
- ('¥'), { }
- ('¦'), { }
- ('§'), { }
- ('¨'), { }
- ('ª'), { }
- ('«'), { }
- (''), { }
- ('¯'), { }
- ('°'), { }
- ('±'), { }
- ('²'), { }
- ('³'), { }
- ('´'), { }
- ('µ'), { }
- ('·'), { }
- ('¸'), { }
- ('¹'), { }
- ('º'), { }
- ('»'), { }
- ('¼'), { }
- ('½'), { }
- ('¾'), { }
- ('¿'), { }
- ('×'), { }
- ('÷'), { }
- ('€'), { }
- //used by very old HTML editors
- (' '), { TAB }
- (''), { }
- ('€'), { }
- (''), { }
- ('‚'), { }
- ('ƒ'), { }
- ('„'), { }
- ('&ldots;'), { }
- ('†'), { }
- ('‡'), { }
- ('ˆ'), { }
- ('‰'), { }
- ('Š'), { }
- ('‹'), { }
- ('Œ'), { }
- (''), { }
- ('Ž'), { }
- (''), { }
- (''), { }
- ('˜'), { }
- ('™'), { }
- ('š'), { }
- ('›'), { }
- ('œ'), { }
- (''), { }
- ('ž'), { }
- ('Ÿ'), { }
- ('¡'), { }
- ('¢'), { }
- ('£'), { }
- ('¤'), { }
- ('¥'), { }
- ('¦'), { }
- ('§'), { }
- ('¨'), { }
- ('ª'), { }
- ('¯'), { }
- ('°'), { }
- ('±'), { }
- ('²'), { }
- ('´'), { }
- ('µ'), { }
- ('·'), { }
- ('¸'), { }
- ('¹'), { }
- ('º'), { }
- ('¼'), { }
- ('½'), { }
- ('¾'), { }
- ('¿'), { }
- ('×') { }
- );
-
-type
- TtkTokenKind = (tkAmpersand, tkASP, tkComment, tkIdentifier, tkKey, tkNull,
- tkSpace, tkString, tkSymbol, tkText, tkUndefKey, tkValue);
-
- TRangeState = (rsAmpersand, rsASP, rsComment, rsKey, rsParam, rsText,
- rsUnKnown, rsValue);
-
- TProcTableProc = procedure of object;
- TIdentFuncTableFunc = function: TtkTokenKind of object;
-
- THighlightHTML = class(THighlightRichSyntax)
- private
- fAndCode: Integer;
- fRange: TRangeState;
- fLine: PChar;
- fProcTable: array[#0..#255] of TProcTableProc;
- Run: Longint;
- Temp: PChar;
- fStringLen: Integer;
- fToIdent: PChar;
- fIdentFuncTable: array[0..243] of TIdentFuncTableFunc;
- fTokenPos: Integer;
- fTokenID: TtkTokenKind;
- fLineNumber: Integer;
- function KeyHash(ToHash: PChar): Integer;
- function KeyComp(const aKey: string): Boolean;
- function Func1: TtkTokenKind;
- function Func2: TtkTokenKind;
- function Func8: TtkTokenKind;
- function Func9: TtkTokenKind;
- function Func10: TtkTokenKind;
- function Func11: TtkTokenKind;
- function Func12: TtkTokenKind;
- function Func13: TtkTokenKind;
- function Func14: TtkTokenKind;
- function Func16: TtkTokenKind;
- function Func17: TtkTokenKind;
- function Func18: TtkTokenKind;
- function Func19: TtkTokenKind;
- function Func20: TtkTokenKind;
- function Func21: TtkTokenKind;
- function Func23: TtkTokenKind;
- function Func24: TtkTokenKind;
- function Func25: TtkTokenKind;
- function Func26: TtkTokenKind;
- function Func27: TtkTokenKind;
- function Func28: TtkTokenKind;
- function Func29: TtkTokenKind;
- function Func30: TtkTokenKind;
- function Func31: TtkTokenKind;
- function Func32: TtkTokenKind;
- function Func33: TtkTokenKind;
- function Func35: TtkTokenKind;
- function Func37: TtkTokenKind;
- function Func38: TtkTokenKind;
- function Func39: TtkTokenKind;
- function Func40: TtkTokenKind;
- function Func41: TtkTokenKind;
- function Func42: TtkTokenKind;
- function Func43: TtkTokenKind;
- function Func46: TtkTokenKind;
- function Func47: TtkTokenKind;
- function Func48: TtkTokenKind;
- function Func49: TtkTokenKind;
- function Func50: TtkTokenKind;
- function Func52: TtkTokenKind;
- function Func53: TtkTokenKind;
- function Func55: TtkTokenKind;
- function Func56: TtkTokenKind;
- function Func57: TtkTokenKind;
- function Func58: TtkTokenKind;
- function Func61: TtkTokenKind;
- function Func62: TtkTokenKind;
- function Func64: TtkTokenKind;
- function Func65: TtkTokenKind;
- function Func66: TtkTokenKind;
- function Func67: TtkTokenKind;
- function Func70: TtkTokenKind;
- function Func76: TtkTokenKind;
- function Func78: TtkTokenKind;
- function Func80: TtkTokenKind;
- function Func81: TtkTokenKind;
- function Func82: TtkTokenKind;
- function Func83: TtkTokenKind;
- function Func84: TtkTokenKind;
- function Func85: TtkTokenKind;
- function Func87: TtkTokenKind;
- function Func89: TtkTokenKind;
- function Func90: TtkTokenKind;
- function Func91: TtkTokenKind;
- function Func92: TtkTokenKind;
- function Func93: TtkTokenKind;
- function Func94: TtkTokenKind;
- function Func105: TtkTokenKind;
- function Func107: TtkTokenKind;
- function Func114: TtkTokenKind;
- function Func121: TtkTokenKind;
- function Func123: TtkTokenKind;
- function Func124: TtkTokenKind;
- function Func130: TtkTokenKind;
- function Func131: TtkTokenKind;
- function Func132: TtkTokenKind;
- function Func133: TtkTokenKind;
- function Func134: TtkTokenKind;
- function Func135: TtkTokenKind;
- function Func136: TtkTokenKind;
- function Func138: TtkTokenKind;
- function Func139: TtkTokenKind;
- function Func140: TtkTokenKind;
- function Func141: TtkTokenKind;
- function Func143: TtkTokenKind;
- function Func145: TtkTokenKind;
- function Func146: TtkTokenKind;
- function Func149: TtkTokenKind;
- function Func150: TtkTokenKind;
- function Func151: TtkTokenKind;
- function Func152: TtkTokenKind;
- function Func153: TtkTokenKind;
- function Func154: TtkTokenKind;
- function Func155: TtkTokenKind;
- function Func157: TtkTokenKind;
- function Func159: TtkTokenKind;
- function Func160: TtkTokenKind;
- function Func161: TtkTokenKind;
- function Func162: TtkTokenKind;
- function Func163: TtkTokenKind;
- function Func164: TtkTokenKind;
- function Func168: TtkTokenKind;
- function Func169: TtkTokenKind;
- function Func170: TtkTokenKind;
- function Func171: TtkTokenKind;
- function Func172: TtkTokenKind;
- function Func174: TtkTokenKind;
- function Func175: TtkTokenKind;
- function Func177: TtkTokenKind;
- function Func178: TtkTokenKind;
- function Func179: TtkTokenKind;
- function Func180: TtkTokenKind;
- function Func183: TtkTokenKind;
- function Func186: TtkTokenKind;
- function Func187: TtkTokenKind;
- function Func188: TtkTokenKind;
- function Func192: TtkTokenKind;
- function Func198: TtkTokenKind;
- function Func200: TtkTokenKind;
- function Func202: TtkTokenKind;
- function Func203: TtkTokenKind;
- function Func204: TtkTokenKind;
- function Func205: TtkTokenKind;
- function Func207: TtkTokenKind;
- function Func209: TtkTokenKind;
- function Func211: TtkTokenKind;
- function Func212: TtkTokenKind;
- function Func213: TtkTokenKind;
- function Func214: TtkTokenKind;
- function Func215: TtkTokenKind;
- function Func216: TtkTokenKind;
- function Func227: TtkTokenKind;
- function Func229: TtkTokenKind;
- function Func236: TtkTokenKind;
- function Func243: TtkTokenKind;
- function AltFunc: TtkTokenKind;
- function IdentKind(MayBe: PChar): TtkTokenKind;
- procedure InitIdent;
- procedure MakeMethodTables;
- procedure ASPProc;
- procedure TextProc;
- procedure CommentProc;
- procedure BraceCloseProc;
- procedure BraceOpenProc;
- procedure CRProc;
- procedure EqualProc;
- procedure IdentProc;
- procedure LFProc;
- procedure NullProc;
- procedure SpaceProc;
- procedure StringProc;
- procedure AmpersandProc;
- protected
- function GetEol: Boolean; override;
- function GetRange: Pointer;
- function GetTokenID: TtkTokenKind;
- procedure SetLine(NewValue: string; LineNumber: Integer); override;
- function GetToken: string; override;
- function GetTokenAttribute: integer; override;
- function GetTokenKind: integer;
- function GetTokenPos: Integer;
- procedure Next; override;
- procedure SetRange(Value: Pointer);
- procedure ReSetRange;
- procedure PrepareToken(var AToken: string); override;
- function PrepareOutput(Attr: integer; AToken: string): string; override;
- public
- constructor Create; override;
- procedure SetupDefaultColors; override;
- end;
-
-implementation
-
-var
- mHashTable: array[#0..#255] of Integer;
-
-
-procedure MakeIdentTable;
-var
- i: Char;
-begin
- for i := #0 to #255 do
- case i of
- 'a'..'z', 'A'..'Z':
- mHashTable[i] := (Ord(UpCase(i)) - 64);
- '!':
- mHashTable[i] := $7B;
- '/':
- mHashTable[i] := $7A;
- else
- mHashTable[Char(i)] := 0;
- end;
-end;
-
-procedure THighlightHTML.InitIdent;
-var
- i: Integer;
-begin
- for i := 0 to 243 do
- case i of
- 1: fIdentFuncTable[i] := Func1;
- 2: fIdentFuncTable[i] := Func2;
- 8: fIdentFuncTable[i] := Func8;
- 9: fIdentFuncTable[i] := Func9;
- 10: fIdentFuncTable[i] := Func10;
- 11: fIdentFuncTable[i] := Func11;
- 12: fIdentFuncTable[i] := Func12;
- 13: fIdentFuncTable[i] := Func13;
- 14: fIdentFuncTable[i] := Func14;
- 16: fIdentFuncTable[i] := Func16;
- 17: fIdentFuncTable[i] := Func17;
- 18: fIdentFuncTable[i] := Func18;
- 19: fIdentFuncTable[i] := Func19;
- 20: fIdentFuncTable[i] := Func20;
- 21: fIdentFuncTable[i] := Func21;
- 23: fIdentFuncTable[i] := Func23;
- 24: fIdentFuncTable[i] := Func24;
- 25: fIdentFuncTable[i] := Func25;
- 26: fIdentFuncTable[i] := Func26;
- 27: fIdentFuncTable[i] := Func27;
- 28: fIdentFuncTable[i] := Func28;
- 29: fIdentFuncTable[i] := Func29;
- 30: fIdentFuncTable[i] := Func30;
- 31: fIdentFuncTable[i] := Func31;
- 32: fIdentFuncTable[i] := Func32;
- 33: fIdentFuncTable[i] := Func33;
- 35: fIdentFuncTable[i] := Func35;
- 37: fIdentFuncTable[i] := Func37;
- 38: fIdentFuncTable[i] := Func38;
- 39: fIdentFuncTable[i] := Func39;
- 40: fIdentFuncTable[i] := Func40;
- 41: fIdentFuncTable[i] := Func41;
- 42: fIdentFuncTable[i] := Func42;
- 43: fIdentFuncTable[i] := Func43;
- 46: fIdentFuncTable[i] := Func46;
- 47: fIdentFuncTable[i] := Func47;
- 48: fIdentFuncTable[i] := Func48;
- 49: fIdentFuncTable[i] := Func49;
- 50: fIdentFuncTable[i] := Func50;
- 52: fIdentFuncTable[i] := Func52;
- 53: fIdentFuncTable[i] := Func53;
- 55: fIdentFuncTable[i] := Func55;
- 56: fIdentFuncTable[i] := Func56;
- 57: fIdentFuncTable[i] := Func57;
- 58: fIdentFuncTable[i] := Func58;
- 61: fIdentFuncTable[i] := Func61;
- 62: fIdentFuncTable[i] := Func62;
- 64: fIdentFuncTable[i] := Func64;
- 65: fIdentFuncTable[i] := Func65;
- 66: fIdentFuncTable[i] := Func66;
- 67: fIdentFuncTable[i] := Func67;
- 70: fIdentFuncTable[i] := Func70;
- 76: fIdentFuncTable[i] := Func76;
- 78: fIdentFuncTable[i] := Func78;
- 80: fIdentFuncTable[i] := Func80;
- 81: fIdentFuncTable[i] := Func81;
- 82: fIdentFuncTable[i] := Func82;
- 83: fIdentFuncTable[i] := Func83;
- 84: fIdentFuncTable[i] := Func84;
- 85: fIdentFuncTable[i] := Func85;
- 87: fIdentFuncTable[i] := Func87;
- 89: fIdentFuncTable[i] := Func89;
- 90: fIdentFuncTable[i] := Func90;
- 91: fIdentFuncTable[i] := Func91;
- 92: fIdentFuncTable[i] := Func92;
- 93: fIdentFuncTable[i] := Func93;
- 94: fIdentFuncTable[i] := Func94;
- 105: fIdentFuncTable[i] := Func105;
- 107: fIdentFuncTable[i] := Func107;
- 114: fIdentFuncTable[i] := Func114;
- 121: fIdentFuncTable[i] := Func121;
- 123: fIdentFuncTable[i] := Func123;
- 124: fIdentFuncTable[i] := Func124;
- 130: fIdentFuncTable[i] := Func130;
- 131: fIdentFuncTable[i] := Func131;
- 132: fIdentFuncTable[i] := Func132;
- 133: fIdentFuncTable[i] := Func133;
- 134: fIdentFuncTable[i] := Func134;
- 135: fIdentFuncTable[i] := Func135;
- 136: fIdentFuncTable[i] := Func136;
- 138: fIdentFuncTable[i] := Func138;
- 139: fIdentFuncTable[i] := Func139;
- 140: fIdentFuncTable[i] := Func140;
- 141: fIdentFuncTable[i] := Func141;
- 143: fIdentFuncTable[i] := Func143;
- 145: fIdentFuncTable[i] := Func145;
- 146: fIdentFuncTable[i] := Func146;
- 149: fIdentFuncTable[i] := Func149;
- 150: fIdentFuncTable[i] := Func150;
- 151: fIdentFuncTable[i] := Func151;
- 152: fIdentFuncTable[i] := Func152;
- 153: fIdentFuncTable[i] := Func153;
- 154: fIdentFuncTable[i] := Func154;
- 155: fIdentFuncTable[i] := Func155;
- 157: fIdentFuncTable[i] := Func157;
- 159: fIdentFuncTable[i] := Func159;
- 160: fIdentFuncTable[i] := Func160;
- 161: fIdentFuncTable[i] := Func161;
- 162: fIdentFuncTable[i] := Func162;
- 163: fIdentFuncTable[i] := Func163;
- 164: fIdentFuncTable[i] := Func164;
- 168: fIdentFuncTable[i] := Func168;
- 169: fIdentFuncTable[i] := Func169;
- 170: fIdentFuncTable[i] := Func170;
- 171: fIdentFuncTable[i] := Func171;
- 172: fIdentFuncTable[i] := Func172;
- 174: fIdentFuncTable[i] := Func174;
- 175: fIdentFuncTable[i] := Func175;
- 177: fIdentFuncTable[i] := Func177;
- 178: fIdentFuncTable[i] := Func178;
- 179: fIdentFuncTable[i] := Func179;
- 180: fIdentFuncTable[i] := Func180;
- 183: fIdentFuncTable[i] := Func183;
- 186: fIdentFuncTable[i] := Func186;
- 187: fIdentFuncTable[i] := Func187;
- 188: fIdentFuncTable[i] := Func188;
- 192: fIdentFuncTable[i] := Func192;
- 198: fIdentFuncTable[i] := Func198;
- 200: fIdentFuncTable[i] := Func200;
- 202: fIdentFuncTable[i] := Func202;
- 203: fIdentFuncTable[i] := Func203;
- 204: fIdentFuncTable[i] := Func204;
- 205: fIdentFuncTable[i] := Func205;
- 207: fIdentFuncTable[i] := Func207;
- 209: fIdentFuncTable[i] := Func209;
- 211: fIdentFuncTable[i] := Func211;
- 212: fIdentFuncTable[i] := Func212;
- 213: fIdentFuncTable[i] := Func213;
- 214: fIdentFuncTable[i] := Func214;
- 215: fIdentFuncTable[i] := Func215;
- 216: fIdentFuncTable[i] := Func216;
- 227: fIdentFuncTable[i] := Func227;
- 229: fIdentFuncTable[i] := Func229;
- 236: fIdentFuncTable[i] := Func236;
- 243: fIdentFuncTable[i] := Func243;
- else
- fIdentFuncTable[i] := AltFunc;
- end;
-end;
-
-function THighlightHTML.KeyHash(ToHash: PChar): Integer;
-begin
- Result := 0;
- while (ToHash^ in ['a'..'z', 'A'..'Z', '!', '/']) do
- begin
- Inc(Result, mHashTable[ToHash^]);
- Inc(ToHash);
- end;
- while (ToHash^ in ['0'..'9']) do
- begin
- Inc(Result, (Ord(ToHash^) - Ord('0')));
- Inc(ToHash);
- end;
- fStringLen := (ToHash - fToIdent);
-end;
-
-function THighlightHTML.KeyComp(const aKey: string): Boolean;
-var
- i: Integer;
-begin
- Temp := fToIdent;
- if (Length(aKey) = fStringLen) then
- begin
- Result := True;
- for i := 1 to fStringLen do
- begin
- if (mHashTable[Temp^] <> mHashTable[aKey[i]]) then
- begin
- Result := False;
- Break;
- end;
- Inc(Temp);
- end;
- end
- else
- begin
- Result := False;
- end;
-end;
-
-function THighlightHTML.Func1: TtkTokenKind;
-begin
- if KeyComp('A') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func2: TtkTokenKind;
-begin
- if KeyComp('B') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func8: TtkTokenKind;
-begin
- if KeyComp('DD') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func9: TtkTokenKind;
-begin
- if KeyComp('I') or KeyComp('H1') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func10: TtkTokenKind;
-begin
- if KeyComp('H2') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func11: TtkTokenKind;
-begin
- if KeyComp('H3') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func12: TtkTokenKind;
-begin
- if KeyComp('H4') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func13: TtkTokenKind;
-begin
- if KeyComp('H5') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func14: TtkTokenKind;
-begin
- if KeyComp('H6') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func16: TtkTokenKind;
-begin
- if KeyComp('DL') or KeyComp('P') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func17: TtkTokenKind;
-begin
- if KeyComp('KBD') or KeyComp('Q') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func18: TtkTokenKind;
-begin
- if KeyComp('BIG') or KeyComp('EM') or KeyComp('HEAD') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func19: TtkTokenKind;
-begin
- if KeyComp('S') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func20: TtkTokenKind;
-begin
- if KeyComp('BR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func21: TtkTokenKind;
-begin
- if KeyComp('DEL') or KeyComp('LI') or KeyComp('U') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func23: TtkTokenKind;
-begin
- if KeyComp('ABBR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func24: TtkTokenKind;
-begin
- if KeyComp('DFN') or KeyComp('DT') or KeyComp('TD') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func25: TtkTokenKind;
-begin
- if KeyComp('AREA') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func26: TtkTokenKind;
-begin
- if KeyComp('HR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func27: TtkTokenKind;
-begin
- if KeyComp('BASE') or KeyComp('CODE') or KeyComp('OL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func28: TtkTokenKind;
-begin
- if KeyComp('TH') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func29: TtkTokenKind;
-begin
- if KeyComp('EMBED') or KeyComp('IMG') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func30: TtkTokenKind;
-begin
- if KeyComp('COL') or KeyComp('MAP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func31: TtkTokenKind;
-begin
- if KeyComp('DIR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func32: TtkTokenKind;
-begin
- if KeyComp('LABEL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func33: TtkTokenKind;
-begin
- if KeyComp('UL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func35: TtkTokenKind;
-begin
- if KeyComp('DIV') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func37: TtkTokenKind;
-begin
- if KeyComp('CITE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func38: TtkTokenKind;
-begin
- if KeyComp('THEAD') or KeyComp('TR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func39: TtkTokenKind;
-begin
- if KeyComp('META') or KeyComp('PRE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func40: TtkTokenKind;
-begin
- if KeyComp('TABLE') or KeyComp('TT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func41: TtkTokenKind;
-begin
- if KeyComp('var') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func42: TtkTokenKind;
-begin
- if KeyComp('INS') or KeyComp('SUB') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func43: TtkTokenKind;
-begin
- if KeyComp('FRAME') or KeyComp('WBR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func46: TtkTokenKind;
-begin
- if KeyComp('BODY') or KeyComp('LINK') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func47: TtkTokenKind;
-begin
- if KeyComp('LEGend') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func48: TtkTokenKind;
-begin
- if KeyComp('BLINK') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func49: TtkTokenKind;
-begin
- if KeyComp('NOBR') or KeyComp('PARAM') or KeyComp('SAMP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func50: TtkTokenKind;
-begin
- if KeyComp('SPAN') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func52: TtkTokenKind;
-begin
- if KeyComp('FORM') or KeyComp('IFRAME') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func53: TtkTokenKind;
-begin
- if KeyComp('HTML') or KeyComp('MENU') or KeyComp('XMP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func55: TtkTokenKind;
-begin
- if KeyComp('FONT') or KeyComp('object') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func56: TtkTokenKind;
-begin
- if KeyComp('SUP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func57: TtkTokenKind;
-begin
- if KeyComp('SMALL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func58: TtkTokenKind;
-begin
- if KeyComp('NOEMBED') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func61: TtkTokenKind;
-begin
- if KeyComp('LAYER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func62: TtkTokenKind;
-begin
- if KeyComp('SPACER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func64: TtkTokenKind;
-begin
- if KeyComp('SELECT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func65: TtkTokenKind;
-begin
- if KeyComp('CENTER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func66: TtkTokenKind;
-begin
- if KeyComp('TBODY') or KeyComp('TITLE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func67: TtkTokenKind;
-begin
- if KeyComp('KEYGEN') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func70: TtkTokenKind;
-begin
- if KeyComp('ADDRESS') or KeyComp('APPLET') or KeyComp('ILAYER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func76: TtkTokenKind;
-begin
- if KeyComp('NEXTID') or KeyComp('TFOOT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func78: TtkTokenKind;
-begin
- if KeyComp('CAPTION') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func80: TtkTokenKind;
-begin
- if KeyComp('FIELDSET') or KeyComp('INPUT') or KeyComp('MARQUEE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func81: TtkTokenKind;
-begin
- if KeyComp('STYLE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func82: TtkTokenKind;
-begin
- if KeyComp('BASEFONT') or KeyComp('BGSOUND') or KeyComp('STRIKE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func83: TtkTokenKind;
-begin
- if KeyComp('COMMENT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func84: TtkTokenKind;
-begin
- if KeyComp('ISINDEX') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func85: TtkTokenKind;
-begin
- if KeyComp('SCRIPT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func87: TtkTokenKind;
-begin
- if KeyComp('SERVER') or KeyComp('FRAMESET') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func89: TtkTokenKind;
-begin
- if KeyComp('ACRONYM') or KeyComp('OPTION') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func90: TtkTokenKind;
-begin
- if KeyComp('LISTING') or KeyComp('NOLAYER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func91: TtkTokenKind;
-begin
- if KeyComp('NOFRAMES') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func92: TtkTokenKind;
-begin
- if KeyComp('BUTTON') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func93: TtkTokenKind;
-begin
- if KeyComp('STRONG') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func94: TtkTokenKind;
-begin
- if KeyComp('TEXTAREA') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func105: TtkTokenKind;
-begin
- if KeyComp('MULTICOL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func107: TtkTokenKind;
-begin
- if KeyComp('COLGROUP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func114: TtkTokenKind;
-begin
- if KeyComp('NOSCRIPT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func121: TtkTokenKind;
-begin
- if KeyComp('BLOCKQUOTE') or KeyComp('PLAINTEXT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func123: TtkTokenKind;
-begin
- if KeyComp('/A') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func124: TtkTokenKind;
-begin
- if KeyComp('/B') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func130: TtkTokenKind;
-begin
- if KeyComp('/DD') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func131: TtkTokenKind;
-begin
- if KeyComp('/I') or KeyComp('/H1') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func132: TtkTokenKind;
-begin
- if KeyComp('/H2') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func133: TtkTokenKind;
-begin
- if KeyComp('/H3') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func134: TtkTokenKind;
-begin
- if KeyComp('/H4') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func135: TtkTokenKind;
-begin
- if KeyComp('/H5') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func136: TtkTokenKind;
-begin
- if KeyComp('/H6') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func138: TtkTokenKind;
-begin
- if KeyComp('/DL') or KeyComp('/P') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func139: TtkTokenKind;
-begin
- if KeyComp('/KBD') or KeyComp('/Q') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func140: TtkTokenKind;
-begin
- if KeyComp('/BIG') or KeyComp('/EM') or KeyComp('/HEAD') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func141: TtkTokenKind;
-begin
- if KeyComp('/S') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func143: TtkTokenKind;
-begin
- if KeyComp('/DEL') or KeyComp('/LI') or KeyComp('/U') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func145: TtkTokenKind;
-begin
- if KeyComp('/ABBR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func146: TtkTokenKind;
-begin
- if KeyComp('/DFN') or KeyComp('/DT') or KeyComp('/TD') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func149: TtkTokenKind;
-begin
- if KeyComp('/CODE') or KeyComp('/OL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func150: TtkTokenKind;
-begin
- if KeyComp('/TH') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func151: TtkTokenKind;
-begin
- if KeyComp('/EMBED') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func152: TtkTokenKind;
-begin
- if KeyComp('/MAP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func153: TtkTokenKind;
-begin
- if KeyComp('/DIR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func154: TtkTokenKind;
-begin
- if KeyComp('/LABEL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func155: TtkTokenKind;
-begin
- if KeyComp('/UL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func157: TtkTokenKind;
-begin
- if KeyComp('/DIV') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func159: TtkTokenKind;
-begin
- if KeyComp('/CITE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func160: TtkTokenKind;
-begin
- if KeyComp('/THEAD') or KeyComp('/TR') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func161: TtkTokenKind;
-begin
- if KeyComp('/PRE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func162: TtkTokenKind;
-begin
- if KeyComp('/TABLE') or KeyComp('/TT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func163: TtkTokenKind;
-begin
- if KeyComp('/var') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func164: TtkTokenKind;
-begin
- if KeyComp('/INS') or KeyComp('/SUB') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func168: TtkTokenKind;
-begin
- if KeyComp('/BODY') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func169: TtkTokenKind;
-begin
- if KeyComp('/LEGend') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func170: TtkTokenKind;
-begin
- if KeyComp('/BLINK') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func171: TtkTokenKind;
-begin
- if KeyComp('/NOBR') or KeyComp('/SAMP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func172: TtkTokenKind;
-begin
- if KeyComp('/SPAN') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func174: TtkTokenKind;
-begin
- if KeyComp('/FORM') or KeyComp('/IFRAME') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func175: TtkTokenKind;
-begin
- if KeyComp('/HTML') or KeyComp('/MENU') or KeyComp('/XMP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func177: TtkTokenKind;
-begin
- if KeyComp('/FONT') or KeyComp('/object') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func178: TtkTokenKind;
-begin
- if KeyComp('/SUP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func179: TtkTokenKind;
-begin
- if KeyComp('/SMALL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func180: TtkTokenKind;
-begin
- if KeyComp('/NOEMBED') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func183: TtkTokenKind;
-begin
- if KeyComp('/LAYER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func186: TtkTokenKind;
-begin
- if KeyComp('/SELECT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func187: TtkTokenKind;
-begin
- if KeyComp('/CENTER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func188: TtkTokenKind;
-begin
- if KeyComp('/TBODY') or KeyComp('/TITLE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func192: TtkTokenKind;
-begin
- if KeyComp('/ADDRESS') or KeyComp('/APPLET') or KeyComp('/ILAYER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func198: TtkTokenKind;
-begin
- if KeyComp('/TFOOT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func200: TtkTokenKind;
-begin
- if KeyComp('/CAPTION') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func202: TtkTokenKind;
-begin
- if KeyComp('/FIELDSET') or KeyComp('/MARQUEE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func203: TtkTokenKind;
-begin
- if KeyComp('/STYLE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func204: TtkTokenKind;
-begin
- if KeyComp('/STRIKE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func205: TtkTokenKind;
-begin
- if KeyComp('/COMMENT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func207: TtkTokenKind;
-begin
- if KeyComp('/SCRIPT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func209: TtkTokenKind;
-begin
- if KeyComp('/FRAMESET') or KeyComp('/SERVER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func211: TtkTokenKind;
-begin
- if KeyComp('/ACRONYM') or KeyComp('/OPTION') or KeyComp('!DOCTYPE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func212: TtkTokenKind;
-begin
- if KeyComp('/LISTING') or KeyComp('/NOLAYER') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func213: TtkTokenKind;
-begin
- if KeyComp('/NOFRAMES') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func214: TtkTokenKind;
-begin
- if KeyComp('/BUTTON') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func215: TtkTokenKind;
-begin
- if KeyComp('/STRONG') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func216: TtkTokenKind;
-begin
- if KeyComp('/TEXTAREA') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func227: TtkTokenKind;
-begin
- if KeyComp('/MULTICOL') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func229: TtkTokenKind;
-begin
- if KeyComp('/COLGROUP') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func236: TtkTokenKind;
-begin
- if KeyComp('/NOSCRIPT') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.Func243: TtkTokenKind;
-begin
- if KeyComp('/BLOCKQUOTE') then
- begin
- Result := tkKey;
- end
- else
- begin
- Result := tkUndefKey;
- end;
-end;
-
-function THighlightHTML.AltFunc: TtkTokenKind;
-begin
- Result := tkUndefKey;
-end;
-
-procedure THighlightHTML.MakeMethodTables;
-var
- i: Char;
-begin
- for i := #0 to #255 do
- begin
- case i of
- #0:
- begin
- fProcTable[i] := NullProc;
- end;
- #10:
- begin
- fProcTable[i] := LFProc;
- end;
- #13:
- begin
- fProcTable[i] := CRProc;
- end;
- #1..#9, #11, #12, #14..#32:
- begin
- fProcTable[i] := SpaceProc;
- end;
- '&':
- begin
- fProcTable[i] := AmpersandProc;
- end;
- '"':
- begin
- fProcTable[i] := StringProc;
- end;
- '<':
- begin
- fProcTable[i] := BraceOpenProc;
- end;
- '>':
- begin
- fProcTable[i] := BraceCloseProc;
- end;
- '=':
- begin
- fProcTable[i] := EqualProc;
- end;
- else
- fProcTable[i] := IdentProc;
- end;
- end;
-end;
-
-constructor THighlightHTML.Create;
-begin
- inherited Create;
- InitIdent;
- MakeMethodTables;
- CreateColorTable([clGreen, clMaroon, clBlack, clBlue, clBlack, clGreen,
- clBlue, clBlack, clRed, clBlack, clBlack]);
-end;
-
-procedure THighlightHTML.SetLine(NewValue: string; LineNumber: Integer);
-begin
- fLine := PChar(NewValue);
- Run := 0;
- fLineNumber := LineNumber;
- Next;
-end;
-
-procedure THighlightHTML.ASPProc;
-begin
- fTokenID := tkASP;
- if (fLine[Run] in [#0, #10, #13]) then
- begin
- fProcTable[fLine[Run]];
- Exit;
- end;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run] = '>') and (fLine[Run - 1] = '%')
- then
- begin
- fRange := rsText;
- Inc(Run);
- break;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightHTML.BraceCloseProc;
-begin
- fRange := rsText;
- fTokenId := tkSymbol;
- Inc(Run);
-end;
-
-procedure THighlightHTML.CommentProc;
-begin
- fTokenID := tkComment;
-
- if (fLine[Run] in [#0, #10, #13]) then
- begin
- fProcTable[fLine[Run]];
- Exit;
- end;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run] = '>') and (fLine[Run - 1] = '-') and (fLine[Run - 2] = '-')
- then
- begin
- fRange := rsText;
- Inc(Run);
- break;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightHTML.BraceOpenProc;
-begin
- Inc(Run);
- if (fLine[Run] = '!') and (fLine[Run + 1] = '-') and (fLine[Run + 2] = '-')
- then
- begin
- fRange := rsComment;
- fTokenID := tkComment;
- Inc(Run, 3);
- end
- else
- begin
-
- if fLine[Run] = '%' then
- begin
- fRange := rsASP;
- fTokenID := tkASP;
- Inc(Run);
- end
- else
- begin
- fRange := rsKey;
- fTokenID := tkSymbol;
- end;
-
- end;
-
-end;
-
-procedure THighlightHTML.CRProc;
-begin
- fTokenID := tkSpace;
- Inc(Run);
- if fLine[Run] = #10 then
- Inc(Run);
-end;
-
-procedure THighlightHTML.EqualProc;
-begin
- fRange := rsValue;
- fTokenID := tkSymbol;
- Inc(Run);
-end;
-
-function THighlightHTML.IdentKind(MayBe: PChar): TtkTokenKind;
-var
- hashKey: Integer;
-begin
- fToIdent := MayBe;
- hashKey := KeyHash(MayBe);
- if (hashKey < 244) then
- begin
- Result := fIdentFuncTable[hashKey];
- end
- else
- begin
- Result := tkIdentifier;
- end;
-end;
-
-procedure THighlightHTML.IdentProc;
-begin
- case fRange of
- rsKey:
- begin
- fRange := rsParam;
- fTokenID := IdentKind((fLine + Run));
- Inc(Run, fStringLen);
- end;
- rsValue:
- begin
- fRange := rsParam;
- fTokenID := tkValue;
- repeat
- Inc(Run);
- until (fLine[Run] in [#0..#32, '>']);
- end;
- else
- fTokenID := tkIdentifier;
- repeat
- Inc(Run);
- until (fLine[Run] in [#0..#32, '=', '"', '>']);
- end;
-end;
-
-procedure THighlightHTML.LFProc;
-begin
- fTokenID := tkSpace;
- Inc(Run);
-end;
-
-procedure THighlightHTML.NullProc;
-begin
- fTokenID := tkNull;
-end;
-
-procedure THighlightHTML.TextProc;
-const
- StopSet = [#0..#31, '<', '&'];
-var
- i: Integer;
-begin
- if fLine[Run] in (StopSet - ['&']) then
- begin
- fProcTable[fLine[Run]];
- exit;
- end;
-
- fTokenID := tkText;
- while True do
- begin
- while not (fLine[Run] in StopSet) do
- Inc(Run);
-
- if (fLine[Run] = '&') then
- begin
- for i := Low(EscapeAmps) to High(EscapeAmps) do
- begin
- if (StrLIComp((fLine + Run), PChar(EscapeAmps[i]), StrLen(EscapeAmps[i])) = 0) then
- begin
- fAndCode := i;
- fRange := rsAmpersand;
- Exit;
- end;
- end;
-
- Inc(Run);
- end
- else
- begin
- Break;
- end;
- end;
-
-end;
-
-procedure THighlightHTML.AmpersandProc;
-begin
- case fAndCode of
- Low(EscapeAmps)..High(EscapeAmps):
- begin
- fTokenID := tkAmpersand;
- Inc(Run, StrLen(EscapeAmps[fAndCode]));
- end;
- end;
- fAndCode := -1;
- fRange := rsText;
-end;
-
-procedure THighlightHTML.SpaceProc;
-begin
- Inc(Run);
- fTokenID := tkSpace;
- while fLine[Run] <= #32 do
- begin
- if fLine[Run] in [#0, #9, #10, #13] then
- break;
- Inc(Run);
- end;
-end;
-
-procedure THighlightHTML.StringProc;
-begin
- if (fRange = rsValue) then
- begin
- fRange := rsParam;
- fTokenID := tkValue;
- end
- else
- begin
- fTokenID := tkString;
- end;
- Inc(Run); // first '"'
- while not (fLine[Run] in [#0, #10, #13, '"']) do
- Inc(Run);
- if fLine[Run] = '"' then
- Inc(Run); // last '"'
-end;
-
-procedure THighlightHTML.Next;
-begin
- fTokenPos := Run;
- case fRange of
- rsText:
- begin
- TextProc;
- end;
- rsComment:
- begin
- CommentProc;
- end;
- rsASP:
- begin
- ASPProc;
- end;
- else
- fProcTable[fLine[Run]];
- end;
-end;
-
-function THighlightHTML.GetEol: Boolean;
-begin
- Result := fTokenId = tkNull;
-end;
-
-function THighlightHTML.GetToken: string;
-var
- len: Longint;
-begin
- Len := (Run - fTokenPos);
- SetString(Result, (FLine + fTokenPos), len);
-end;
-
-function THighlightHTML.GetTokenID: TtkTokenKind;
-begin
- Result := fTokenId;
-end;
-
-function THighlightHTML.GetTokenAttribute: integer;
-begin
- case fTokenID of
- tkAmpersand: Result := 11;
- tkASP: Result := 1;
- tkComment: Result := 2;
- tkIdentifier: Result := 3;
- tkKey: Result := 4;
- tkSpace: Result := 5;
- tkString: Result := 6;
- tkSymbol: Result := 7;
- tkText: Result := 8;
- tkUndefKey: Result := 9;
- tkValue: Result := 10;
- else
- Result := 11;
- end;
-
-end;
-
-function THighlightHTML.GetTokenKind: integer;
-begin
- Result := Ord(fTokenId);
-end;
-
-function THighlightHTML.GetTokenPos: Integer;
-begin
- Result := fTokenPos;
-end;
-
-function THighlightHTML.GetRange: Pointer;
-begin
- Result := Pointer(fRange);
-end;
-
-procedure THighlightHTML.SetRange(Value: Pointer);
-begin
- fRange := TRangeState(Value);
-end;
-
-procedure THighlightHTML.ReSetRange;
-begin
- fRange := rsText;
-end;
-
-function THighlightHTML.PrepareOutput(Attr: integer; AToken: string): string;
-var
- A: integer;
-begin
- A := Attr;
- if Pos('//', Trim(AToken)) = 1 then
- A := 2;
- if ((Attr = 10) and (Pos('"', AToken) = 1)) then
- A := 6;
- Result := Format('\cf%d %s', [A, AToken]);
-end;
-
-procedure THighlightHTML.PrepareToken(var AToken: string);
-begin
- AToken := StringReplace(AToken, '\', '\\', [rfReplaceAll]);
- AToken := StringReplace(AToken, '{', '\{', [rfReplaceAll]);
- AToken := StringReplace(AToken, '}', '\}', [rfReplaceAll]);
-end;
-
-procedure THighlightHTML.SetupDefaultColors;
-begin
- CreateColorTable([clGreen, clMaroon, clBlack, clBlue, clBlack, clGreen,
- clBlue, clBlack, clRed, clBlack, clBlack]);
-end;
-
-initialization
- MakeIdentTable;
-end.
diff --git a/windows/src/ext/embeddedwb/Source/HighLightRichSyntax.pas b/windows/src/ext/embeddedwb/Source/HighLightRichSyntax.pas
deleted file mode 100644
index d441752e9305c24de3d59ca5e334277bfae1339c..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/HighLightRichSyntax.pas
+++ /dev/null
@@ -1,241 +0,0 @@
-{*******************************************************}
-{ RichEdit Syntax HighLight }
-{ version 3.2 }
-{ Author: }
-{ Serhiy Perevoznyk }
-{ serge_perevoznyk@hotmail.com }
-{ }
-{ Anderson Rodrigues Barbieri }
-{ bsalsa made some minor code changes }
-{*******************************************************}
-
-{The contents of this file are subject to the Mozilla Public License
-Version 1.1 (the "License"); you may not use this file except in compliance
-with the License. You may obtain a copy of the License at
-http://www.mozilla.org/MPL/
-
-Software distributed under the License is distributed on an "AS IS" basis,
-WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
-the specific language governing rights and limitations under the License.
-
-The Original Code is: psvSyntax.pas, released 2002-30-04
-Initial Author of these files is Serhiy Perevoznyk.
-All Rights Reserved.}
-//$Id: HighLightRichSyntax.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-unit HighLightRichSyntax;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, SysUtils, Classes, Graphics;
-
-type
- THighlightRichSyntax = class
- private
- FRTFHeader: string;
- FRTFFooter: string;
- FNewLine: string;
- FColorTable: string;
- FFontTable: string;
- FCodePage: integer;
- protected
- property RTFHeader: string read FRTFHeader write FRTFHeader;
- property RTFFooter: string read FRTFFooter write FRTFFooter;
- property ColorTable: string read FColorTable write FColorTable;
- property FontTable: string read FFontTable write FFontTable;
- procedure PrepareToken(var AToken: string); virtual;
- function PrepareOutput(Attr: integer; AToken: string): string; virtual;
- procedure Next; virtual;
- function GetEol: Boolean; virtual;
- function GetToken: string; virtual;
- function GetTokenAttribute: integer; virtual;
- function ColorToStr(AColor: TColor): string; virtual;
- procedure SetLine(NewValue: string; LineNumber: Integer); virtual;
- public
- constructor Create; virtual;
- procedure SetText(Atext: string); virtual;
- procedure CreateFontTable(const AFonts: array of TFont); virtual;
- procedure CreateColorTable(const AColors: array of TColor); virtual;
- procedure ConvertToRTFStream(AStream: TStream); virtual;
- function ConvertToRTFString: string; virtual;
- procedure SetupDefaultColors; virtual;
- property CodePage: integer read FCodePage write FCodePage;
- end;
-
-implementation
-
-{ THighlightRichSyntax }
-
-function THighlightRichSyntax.ColorToStr(AColor: TColor): string;
-begin
- Result := '\red' + IntToStr(GetRValue(ColorToRGB(AColor))) +
- '\green' + IntToStr(GetGValue(ColorToRGB(AColor))) +
- '\blue' + IntToStr(GetBValue(ColorToRGB(AColor))) + ';';
-end;
-
-procedure THighlightRichSyntax.ConvertToRTFStream(AStream: TStream);
-var
- Attr: integer;
- St: string;
- OutSt: string;
-begin
- AStream.Write(RTFHeader[1], Length(RTFHeader));
- AStream.Write(FFontTable[1], Length(FFontTable));
- AStream.Write(RTFFooter[1], Length(RTFFooter));
- AStream.Write(FColorTable[1], Length(FColorTable));
- AStream.Write(FNewLine[1], Length(FNewLine));
- AStream.Write('\f0 ', 4);
- while not GetEol do
- begin
- St := GetToken;
- Attr := GetTokenAttribute;
- PrepareToken(St);
- OutSt := PrepareOutput(Attr, St);
-
- if (St = #13#10) or (St = #13) then
- AStream.Write('\par ', 4);
-
- AStream.Write(OutSt[1], Length(OutSt));
- Next;
- end;
- AStream.Write(' }', 6);
-// AStream.Write('\par }',6);
-end;
-
-function THighlightRichSyntax.ConvertToRTFString: string;
-var
- St: TStringStream;
-begin
- St := TStringStream.Create('');
- try
- ConvertToRTFStream(St);
- Result := St.DataString;
- finally
- St.Free;
- end;
-end;
-
-constructor THighlightRichSyntax.Create;
-var
- Font: TFont;
-begin
- inherited;
- FCodePage := 1252;
- Font := TFont.Create;
- Font.Name := 'Courier New';
- CreateFontTable([Font]);
- Font.Free;
- RTFHeader := '{\rtf1\ansi\ansicpg' + IntToStr(FCodePage) + '\deff0\deftab720{\fonttbl';
- RTFFooter := '}'#13#10;
- FNewLine := '\deflang1033\pard\plain\f0\fs20';
- FColorTable := '';
-end;
-
-procedure THighlightRichSyntax.CreateColorTable(const AColors: array of TColor);
-var
- I: integer;
-begin
- FColorTable := '{\colortbl\red0\green0\blue0;';
- for I := 0 to Length(AColors) - 1 do
- FColorTable := FColorTable + ColorToStr(AColors[i]);
- FColorTable := FColorTable + '}' + #13#10;
-end;
-
-procedure THighlightRichSyntax.CreateFontTable(const AFonts: array of TFont);
-var
- DC: HDC;
- SaveFont: HFont;
- Metrics: TTextMetric;
- Temp: byte;
- I: Integer;
- charset, family: string;
-begin
- FFontTable := '';
-
- for i := 0 to Length(AFonts) - 1 do
- begin
- DC := GetDC(0);
- try
- SaveFont := SelectObject(DC, AFonts[i].Handle);
- GetTextMetrics(DC, Metrics);
- SelectObject(DC, SaveFont);
- finally
- ReleaseDC(0, DC);
- end;
-
- case Metrics.tmCharSet of
- ANSI_CHARSET: charset := 'fcharset0';
- DEFAULT_CHARSET: charset := 'fcharset1';
- SYMBOL_CHARSET: charset := 'fcharset2';
- SHIFTJIS_CHARSET: charset := 'fcharset128';
- OEM_CHARSET: charset := 'fcharset255';
- else
- charset := '';
- end;
-
- Temp := Metrics.tmPitchAndFamily;
- Temp := (Temp shr 4) shl 4;
-
- case Temp of
- FF_DECORATIVE: family := 'fdecorative';
- FF_DONTCARE: family := 'fdontcare';
- FF_MODERN: family := 'fmodern';
- FF_ROMAN: family := 'froman';
- FF_SCRIPT: family := 'fscript';
- FF_SWISS: family := 'fswiss';
- else
- family := 'froman';
- end;
- FFontTable := FFontTable + '{\f' + IntToStr(i) + '\' + family + '\' + charset + ' ' + Afonts[i].name + ';}';
- end;
-end;
-
-function THighlightRichSyntax.GetEol: Boolean;
-begin
- result := true;
-end;
-
-function THighlightRichSyntax.GetToken: string;
-begin
- result := '';
-end;
-
-function THighlightRichSyntax.GetTokenAttribute: integer;
-begin
- result := 0;
-end;
-
-function THighlightRichSyntax.PrepareOutput(Attr: integer; AToken: string): string;
-begin
- Result := Format('\cf%d %s', [Attr, AToken]);
-end;
-
-procedure THighlightRichSyntax.PrepareToken(var AToken: string);
-begin
- //
-end;
-
-procedure THighlightRichSyntax.Next;
-begin
- //
-end;
-
-procedure THighlightRichSyntax.SetLine(NewValue: string; LineNumber: Integer);
-begin
- //
-end;
-
-procedure THighlightRichSyntax.SetText(AText: string);
-begin
- SetLine(AText, 1);
-end;
-
-procedure THighlightRichSyntax.SetupDefaultColors;
-begin
- //
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/HighLightXML.pas b/windows/src/ext/embeddedwb/Source/HighLightXML.pas
deleted file mode 100644
index 219e2c4afea62d4e99caea2545068ffc53732e8d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/HighLightXML.pas
+++ /dev/null
@@ -1,751 +0,0 @@
- { I got Permition to add the XML HighLighter unit and to change the code
- by my needs from Ajay Tandon
- We thank him for that.
- bsalsa }
-
-{*******************************************************}
-{ RichEdit Syntax HighLight }
-{ version 3.0 }
-{ Author: }
-{ Ajay Tandon }
-{ }
-{ bsalsa made some minor code changes }
-{*******************************************************}
-{-------------------------------------------------------------------------------
-The contents of this file are subject to the Mozilla Public License
-Version 1.1 (the "License"); you may not use this file except in compliance
-with the License. You may obtain a copy of the License at
-http://www.mozilla.org/MPL/
-
-Software distributed under the License is distributed on an "AS IS" basis,
-WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
-the specific language governing rights and limitations under the License.
-
-The Original Code is: SynHighlighterXML.pas, released 2000-11-20.
-The Original Code is based on the SynHighlighterHTML.pas file from the
-mwEdit component suite by Martin Waldenburg and other developers, the Initial
-Author of this file is Jeff Rafter.
-All Rights Reserved.
-
-Contributors to the SynEdit and mwEdit projects are listed in the
-Contributors.txt file.
-
-Alternatively, the contents of this file may be used under the terms of the
-GNU General Public License Version 2 or later (the "GPL"), in which case
-the provisions of the GPL are applicable instead of those above.
-If you wish to allow use of your version of this file only under the terms
-of the GPL and not to allow others to use your version of this file
-under the MPL, indicate your decision by deleting the provisions above and
-replace them with the notice and other provisions required by the GPL.
-If you do not delete the provisions above, a recipient may use your version
-of this file under either the MPL or the GPL.
-
-$Id: HighLightXML.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-You may retrieve the latest version of this file at the SynEdit home page,
-located at http://SynEdit.SourceForge.net
-
-History:
--------------------------------------------------------------------------------
-2000-11-30 Removed mHashTable and MakeIdentTable per Michael Hieke
-
-Known Issues:
--------------------------------------------------------------------------------}
-//Nothing is really constrained (properly) to valid name chars
-//Entity Refs are not constrained to valid name chars
-//Support for "Combining Chars and Extender Chars" in names are lacking
-//The internal DTD is not parsed (and not handled correctly)
-//$Id: HighLightXML.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-{
-@abstract(Provides an XML highlighter for SynEdit)
-@author(Jeff Rafter-- Phil 4:13, based on SynHighlighterHTML by Hideo Koiso, converted to SynEdit by Michael Hieke)
-@created(2000-11-17)
-@lastmod(2000-11-17)
-The SynHighlighterXML unit provides SynEdit with an XML highlighter. }
-
-unit HighLightXML;
-
-interface
-
-{$IFDEF UNICODE}
-{$WARN WIDECHAR_REDUCED OFF}
-{$ENDIF UNICODE}
-
-{$I EWB.inc}
-
-uses
- SysUtils, Windows, Messages, Classes, Controls, Graphics, HighLightRichSyntax;
-
-type
-
- TtkTokenKind = (tkNull, tkElement, tkAttribute, tkText, tkCDATA, tkEntityRef,
- tkProcessingInstruction, tkComment, tkQuoteAttrValue, tkAposAttrValue,
- tkQuoteEntityRef, tkAposEntityRef, tkSymbol, tkSpace, tkEqual, tknsAttribute,
- tknsQuoteAttrValue, tknsAposAttrValue, tknsQuoteEntityRef, tknsAposEntityRef,
- tknsEqual, tkDocType);
-
- TRangeState = (rsElement, rsEqual, rsAttribute, rsQuoteAttrValue, rsAposAttrValue,
- rsQuoteEntityRef, rsAPosEntityRef, rsText, rsCDATA, rsEntityRef, rsProcessingInstruction,
- rsComment, rsnsEqual, rsnsQuoteAttrValue, rsnsAposAttrValue, rsnsQuoteEntityRef,
- rsnsAPosEntityRef, rsDocType);
-
- TProcTableProc = procedure of object;
-
- THighlightXML = class(THighlightRichSyntax)
- private
- fRange: TRangeState;
- fLine: PChar;
- Run: Longint;
- fTokenPos: Integer;
- fTokenID: TtkTokenKind;
- fLineNumber: Integer;
- fProcTable: array[#0..#255] of TProcTableProc;
- procedure NullProc;
- procedure CarriageReturnProc;
- procedure LineFeedProc;
- procedure SpaceProc;
- procedure LessThanProc;
- procedure GreaterThanProc;
- procedure CommentProc;
- procedure ProcessingInstructionProc;
- procedure DocTypeProc;
- procedure CDATAProc;
- procedure TextProc;
- procedure ElementProc;
- procedure AttributeProc;
- procedure QAttributeValueProc;
- procedure AAttributeValueProc;
- procedure EqualProc;
- procedure IdentProc;
- procedure MakeMethodTables;
- function NextTokenIs(T: string): Boolean;
- procedure EntityRefProc;
- procedure QEntityRefProc;
- procedure AEntityRefProc;
- protected
- function GetEol: Boolean; override;
- function GetRange: Pointer;
- function GetTokenID: TtkTokenKind;
- procedure SetLine(NewValue: string; LineNumber: Integer); override;
- function GetToken: string; override;
- function GetTokenAttribute: integer; override;
- function GetTokenKind: integer;
- function GetTokenPos: Integer;
- procedure Next; override;
- procedure SetRange(Value: Pointer);
- procedure ReSetRange;
- procedure PrepareToken(var AToken: string); override;
- function PrepareOutput(Attr: integer; AToken: string): string; override;
- public
- constructor Create; override;
- procedure SetupDefaultColors; override;
- end;
-
-implementation
-
-const
- SYNS_FilterXML = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt)|*.xml;*.xsd;*.xsl;*.xslt';
- SYNS_LangXML = 'XML Document';
-
- NameChars: set of char = ['0'..'9', 'a'..'z', 'A'..'Z', '_', '.', ':', '-'];
-
-constructor THighlightXML.Create;
-begin
- inherited Create;
- inherited Create;
- MakeMethodTables;
- CreateColorTable([clGreen, //1
- clMaroon, //2
- clBlack, //3
- clBlue, //4
- clBlack, //5
- clGreen, //6
- clBlue, //7
- clBlack, //8
- clRed, //9
- clBlack, //10
- clBlack]); //11
- fRange := rsText;
-end;
-
-procedure THighlightXML.MakeMethodTables;
-var
- i: Char;
-begin
- for i := #0 to #255 do
- begin
- case i of
- #0:
- begin
- fProcTable[i] := NullProc;
- end;
- #10:
- begin
- fProcTable[i] := LineFeedProc;
- end;
- #13:
- begin
- fProcTable[i] := CarriageReturnProc;
- end;
- #1..#9, #11, #12, #14..#32:
- begin
- fProcTable[i] := SpaceProc;
- end;
- '<':
- begin
- fProcTable[i] := LessThanProc;
- end;
- '>':
- begin
- fProcTable[i] := GreaterThanProc;
- end;
- else
- fProcTable[i] := IdentProc;
- end;
- end;
-end;
-
-procedure THighlightXML.SetLine(NewValue: string; LineNumber: Integer);
-begin
- fLine := PChar(NewValue);
- Run := 0;
- fLineNumber := LineNumber;
- Next;
-end;
-
-procedure THighlightXML.NullProc;
-begin
- fTokenID := tkNull;
-end;
-
-procedure THighlightXML.CarriageReturnProc;
-begin
- fTokenID := tkSpace;
- Inc(Run);
- if fLine[Run] = #10 then
- Inc(Run);
-end;
-
-procedure THighlightXML.LineFeedProc;
-begin
- fTokenID := tkSpace;
- Inc(Run);
-end;
-
-procedure THighlightXML.SpaceProc;
-begin
- Inc(Run);
- fTokenID := tkSpace;
- while fLine[Run] <= #32 do
- begin
- if fLine[Run] in [#0, #9, #10, #13] then
- break;
- Inc(Run);
- end;
-end;
-
-procedure THighlightXML.LessThanProc;
-begin
- Inc(Run);
- if (fLine[Run] = '/') then
- Inc(Run);
-
- if (fLine[Run] = '!') then
- begin
- if NextTokenIs('--') then
- begin
- fTokenID := tkSymbol;
- fRange := rsComment;
- Inc(Run, 3);
- end
- else
- if NextTokenIs('DOCTYPE') then
- begin
- fTokenID := tkDocType;
- fRange := rsDocType;
- Inc(Run, 7);
- end
- else
- if NextTokenIs('[CDATA[') then
- begin
- fTokenID := tkCDATA;
- fRange := rsCDATA;
- Inc(Run, 7);
- end
- else
- begin
- fTokenID := tkSymbol;
- fRange := rsElement;
- Inc(Run);
- end;
- end
- else
- if fLine[Run] = '?' then
- begin
- fTokenID := tkProcessingInstruction;
- fRange := rsProcessingInstruction;
- Inc(Run);
- end
- else
- begin
- fTokenID := tkSymbol;
- fRange := rsElement;
- end;
-end;
-
-procedure THighlightXML.GreaterThanProc;
-begin
- fTokenId := tkSymbol;
- fRange := rsText;
- Inc(Run);
-end;
-
-procedure THighlightXML.CommentProc;
-begin
- if (fLine[Run] = '-') and (fLine[Run + 1] = '-') and (fLine[Run + 2] = '>')
- then
- begin
- fTokenID := tkSymbol;
- fRange := rsText;
- Inc(Run, 3);
- Exit;
- end;
-
- fTokenID := tkComment;
-
- if (fLine[Run] in [#0, #10, #13]) then
- begin
- fProcTable[fLine[Run]];
- Exit;
- end;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run] = '-') and (fLine[Run + 1] = '-') and (fLine[Run + 2] = '>')
- then
- begin
- fRange := rsComment;
- break;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightXML.ProcessingInstructionProc;
-begin
- fTokenID := tkProcessingInstruction;
- if (fLine[Run] in [#0, #10, #13]) then
- begin
- fProcTable[fLine[Run]];
- Exit;
- end;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run] = '>') and (fLine[Run - 1] = '?')
- then
- begin
- fRange := rsText;
- Inc(Run);
- break;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightXML.DocTypeProc;
-begin
- fTokenID := tkDocType;
- fRange := rsDocType;
-
- if (fLine[Run] in [#0, #10, #13]) then
- begin
- fProcTable[fLine[Run]];
- Exit;
- end;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run - 1] = ']') and (fLine[Run] = '>') then
- begin
- fRange := rsAttribute;
- Inc(Run);
- break;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightXML.CDATAProc;
-begin
- fTokenID := tkCDATA;
- if (fLine[Run] in [#0, #10, #13]) then
- begin
- fProcTable[fLine[Run]];
- Exit;
- end;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run] = '>') and (fLine[Run - 1] = ']')
- then
- begin
- fRange := rsText;
- Inc(Run);
- break;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightXML.ElementProc;
-begin
- if fLine[Run] = '/' then
- Inc(Run);
- while (fLine[Run] in NameChars) do
- Inc(Run);
- fRange := rsAttribute;
- fTokenID := tkElement;
-end;
-
-procedure THighlightXML.AttributeProc;
-begin
- //Check if we are starting on a closing quote
- if (fLine[Run] in [#34, #39]) then
- begin
- fTokenID := tkSymbol;
- fRange := rsAttribute;
- Inc(Run);
- Exit;
- end;
- //Read the name
- while (fLine[Run] in NameChars) do
- Inc(Run);
- //Check if this is an xmlns: attribute
- if (Pos('xmlns', GetToken) > 0) then
- begin
- fTokenID := tknsAttribute;
- fRange := rsnsEqual;
- end
- else
- begin
- fTokenID := tkAttribute;
- fRange := rsEqual;
- end;
-end;
-
-procedure THighlightXML.EqualProc;
-begin
- if fRange = rsnsEqual then
- fTokenID := tknsEqual
- else
- fTokenID := tkEqual;
-
- while not (fLine[Run] in [#0, #10, #13]) do
- begin
- if (fLine[Run] = '/') then
- begin
- fTokenID := tkSymbol;
- fRange := rsElement;
- Inc(Run);
- Exit;
- end
- else
- if (fLine[Run] = #34) then
- begin
- if fRange = rsnsEqual then
- fRange := rsnsQuoteAttrValue
- else
- fRange := rsQuoteAttrValue;
- Inc(Run);
- Exit;
- end
- else
- if (fLine[Run] = #39) then
- begin
- if fRange = rsnsEqual then
- fRange := rsnsAPosAttrValue
- else
- fRange := rsAPosAttrValue;
- Inc(Run);
- Exit;
- end;
- Inc(Run);
- end;
-end;
-
-procedure THighlightXML.QAttributeValueProc;
-begin
- if fRange = rsnsQuoteAttrValue then
- fTokenID := tknsQuoteAttrValue
- else
- fTokenID := tkQuoteAttrValue;
-
- while not (fLine[Run] in [#0, #10, #13, '&', #34]) do
- Inc(Run);
-
- if fLine[Run] = '&' then
- begin
- if fRange = rsnsQuoteAttrValue then
- fRange := rsnsQuoteEntityRef
- else
- fRange := rsQuoteEntityRef;
- Exit;
- end
- else
- if fLine[Run] <> #34 then
- begin
- Exit;
- end;
-
- fRange := rsAttribute;
-end;
-
-procedure THighlightXML.AAttributeValueProc;
-begin
- if fRange = rsnsAPosAttrValue then
- fTokenID := tknsAPosAttrValue
- else
- fTokenID := tkAPosAttrValue;
-
- while not (fLine[Run] in [#0, #10, #13, '&', #39]) do
- Inc(Run);
-
- if fLine[Run] = '&' then
- begin
- if fRange = rsnsAPosAttrValue then
- fRange := rsnsAPosEntityRef
- else
- fRange := rsAPosEntityRef;
- Exit;
- end
- else
- if fLine[Run] <> #39 then
- begin
- Exit;
- end;
-
- fRange := rsAttribute;
-end;
-
-procedure THighlightXML.TextProc;
-const
- StopSet = [#0..#31, '<', '&'];
-begin
- if fLine[Run] in (StopSet - ['&']) then
- begin
- fProcTable[fLine[Run]];
- exit;
- end;
-
- fTokenID := tkText;
- while not (fLine[Run] in StopSet) do
- Inc(Run);
-
- if (fLine[Run] = '&') then
- begin
- fRange := rsEntityRef;
- Exit;
- end;
-end;
-
-procedure THighlightXML.EntityRefProc;
-begin
- fTokenID := tkEntityRef;
- fRange := rsEntityRef;
- while not (fLine[Run] in [#0..#32, ';']) do
- Inc(Run);
- if (fLine[Run] = ';') then
- Inc(Run);
- fRange := rsText;
-end;
-
-procedure THighlightXML.QEntityRefProc;
-begin
- if fRange = rsnsQuoteEntityRef then
- fTokenID := tknsQuoteEntityRef
- else
- fTokenID := tkQuoteEntityRef;
-
- while not (fLine[Run] in [#0..#32, ';']) do
- Inc(Run);
- if (fLine[Run] = ';') then
- Inc(Run);
-
- if fRange = rsnsQuoteEntityRef then
- fRange := rsnsQuoteAttrValue
- else
- fRange := rsQuoteAttrValue;
-end;
-
-procedure THighlightXML.AEntityRefProc;
-begin
- if fRange = rsnsAPosEntityRef then
- fTokenID := tknsAPosEntityRef
- else
- fTokenID := tkAPosEntityRef;
-
- while not (fLine[Run] in [#0..#32, ';']) do
- Inc(Run);
- if (fLine[Run] = ';') then
- Inc(Run);
-
- if fRange = rsnsAPosEntityRef then
- fRange := rsnsAPosAttrValue
- else
- fRange := rsAPosAttrValue;
-end;
-
-procedure THighlightXML.IdentProc;
-begin
- case fRange of
- rsElement: ElementProc;
- rsAttribute: AttributeProc;
- rsEqual, rsnsEqual: EqualProc;
- rsQuoteAttrValue, rsnsQuoteAttrValue: QAttributeValueProc;
- rsAposAttrValue, rsnsAPosAttrValue: AAttributeValueProc;
- rsQuoteEntityRef, rsnsQuoteEntityRef: QEntityRefProc;
- rsAposEntityRef, rsnsAPosEntityRef: AEntityRefProc;
- rsEntityRef:
- begin
- EntityRefProc;
- end;
- else
- ;
- end;
-end;
-
-procedure THighlightXML.Next;
-begin
- fTokenPos := Run;
- case fRange of
- rsText: TextProc;
- rsComment: CommentProc;
- rsProcessingInstruction: ProcessingInstructionProc;
- rsDocType: DocTypeProc;
- rsCDATA: CDATAProc;
- else
- fProcTable[fLine[Run]];
- end;
-end;
-
-function THighlightXML.NextTokenIs(T: string): Boolean;
-var
- I, Len: Integer;
-begin
- Result := True;
- Len := Length(T);
- for I := 1 to Len do
- if (fLine[Run + I] <> T[I]) then
- begin
- Result := False;
- Break;
- end;
-end;
-
-function THighlightXML.GetEol: Boolean;
-begin
- Result := fTokenId = tkNull;
-end;
-
-function THighlightXML.GetToken: string;
-var
- len: Longint;
-begin
- Len := (Run - fTokenPos);
- SetString(Result, (FLine + fTokenPos), len);
-end;
-
-function THighlightXML.GetTokenID: TtkTokenKind;
-begin
- Result := fTokenId;
-end;
-
-function THighlightXML.GetTokenAttribute: integer;
-begin
- case fTokenID of
- tkElement: Result := 1; //fElementAttri;
- tkAttribute: Result := 2; //fAttributeAttri;
- tknsAttribute: Result := 3; //fnsAttributeAttri;
- tkEqual: Result := 4; //fSymbolAttri;
- tknsEqual: Result := 5; //fSymbolAttri;
- tkQuoteAttrValue: Result := 6; //fAttributeValueAttri;
- tkAPosAttrValue: Result := 7; //fAttributeValueAttri;
- tknsQuoteAttrValue: Result := 8; //fnsAttributeValueAttri;
- tknsAPosAttrValue: Result := 9; //fnsAttributeValueAttri;
- tkText: Result := 10; //fTextAttri;
- tkCDATA: Result := 11; //fCDATAAttri;
- tkEntityRef: Result := 1; //fEntityRefAttri;
- tkQuoteEntityRef: Result := 2; //fEntityRefAttri;
- tkAposEntityRef: Result := 3; //fEntityRefAttri;
- tknsQuoteEntityRef: Result := 4; //fEntityRefAttri;
- tknsAposEntityRef: Result := 5; //fEntityRefAttri;
- tkProcessingInstruction: Result := 6; //fProcessingInstructionAttri;
- tkComment: Result := 7; //fCommentAttri;
- tkDocType: Result := 8; //fDocTypeAttri;
- tkSymbol: Result := 9; //fSymbolAttri;
- tkSpace: Result := 10; //fSpaceAttri;
- else
- Result := 1; //nil;
- end;
-end;
-
-function THighlightXML.GetTokenKind: integer;
-begin
- Result := Ord(fTokenId);
-end;
-
-function THighlightXML.GetTokenPos: Integer;
-begin
- Result := fTokenPos;
-end;
-
-function THighlightXML.GetRange: Pointer;
-begin
- Result := Pointer(fRange);
-end;
-
-procedure THighlightXML.SetRange(Value: Pointer);
-begin
- fRange := TRangeState(Value);
-end;
-
-procedure THighlightXML.ReSetRange;
-begin
- fRange := rsText;
-end;
-
-function THighlightXML.PrepareOutput(Attr: integer; AToken: string): string;
-var
- A: integer;
-begin
- A := Attr;
- if Pos('//', Trim(AToken)) = 1 then
- A := 2;
- if ((Attr = 10) and (Pos('"', AToken) = 1)) then
- A := 6;
- Result := Format('\cf%d %s', [A, AToken]);
-end;
-
-procedure THighlightXML.PrepareToken(var AToken: string);
-begin
- AToken := StringReplace(AToken, '\', '\\', [rfReplaceAll]);
-end;
-
-procedure THighlightXML.SetupDefaultColors;
-begin
- CreateColorTable([clGreen, //1
- clMaroon, //2
- clBlack, //3
- clBlue, //4
- clBlack, //5
- clGreen, //6
- clBlue, //7
- clBlack, //8
- clRed, //9
- clBlack, //10
- clBlack]); //11
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/HistoryListView.pas b/windows/src/ext/embeddedwb/Source/HistoryListView.pas
deleted file mode 100644
index 512b11145647ba64e325292de195f887ce573a52..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/HistoryListView.pas
+++ /dev/null
@@ -1,431 +0,0 @@
-//**************************************************************
-// *
-// THistoryListView * *
-// Freeware Component *
-// For Delphi 5 to XE *
-// by *
-// Per Linds Larsen *
-// and Eran Bodankin *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: HistoryListView.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-unit HistoryListView;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, SysUtils, Classes, Forms, Registry, ComCtrls, ShlObj,
- SHDocVw_EWB, EmbeddedWB;
-
-type
-
- PItem = ^TItem;
- TItem = record
- FullID, ID: PItemIDList;
- Empty: Boolean;
- DisplayName: string;
- ImageIndex: Integer;
- end;
-
- TOnUrlSelectedEvent = procedure(Sender: TObject; Url: string) of object;
- TCustomHistoryListView = class(TCustomListView)
- private
- { Private declarations }
- fEmbeddedWB: TEmbeddedWB;
- fPIDL: PItemIDList;
- List: TList;
- Desktop: IShellFolder;
- Level: Integer;
- fOnUrlSelected: TOnUrlSelectedEvent;
- procedure ClearIDList;
- function ShellItem(Index: Integer): PItem;
- protected
- { Protected declarations }
- procedure SetPath(ID: PItemIDList);
- function CustomDrawSubItem(Item: TListItem; SubItem: Integer;
- State: TCustomDrawState; Stage: TCustomDrawStage): Boolean; override;
- function OwnerDataFetch(Item: TListItem; Request: TItemRequest): Boolean;
- override;
- function OwnerDataFind(Find: TItemFind; const FindString: string;
- const FindPosition: TPoint; FindData: Pointer; StartIndex: Integer;
- Direction: TSearchDirection; Wrap: Boolean): Integer; override;
- function OwnerDataHint(StartIndex, EndIndex: Integer): Boolean; override;
- procedure KeyDown(var Key: Word; Shift: TShiftState); override;
- procedure DblClick; override;
- public
- constructor Create(AOwner: TComponent); override;
- procedure Loaded; override;
- destructor Destroy; override;
- procedure LevelUp;
- { Public declarations }
- published
- { Published declarations }
- property EmbeddedWB: TEmbeddedWB read fEmbeddedWB write fEmbeddedWB;
- property OnURLSelected: TOnUrlSelectedEvent read fOnUrlSelected write
- fOnUrlSelected;
- end;
-
- THistoryListView = class(TCustomHistoryListView)
- published
- property Align;
- property AllocBy;
- property Anchors;
- property BiDiMode;
- property BorderStyle;
- property BorderWidth;
- property Color;
- property Constraints;
- property Ctl3D;
- property Enabled;
- property Font;
- property FlatScrollBars;
- property HideSelection;
- property HotTrack;
- property HotTrackStyles;
- property HoverTime;
- property ParentBiDiMode;
- property ParentColor default False;
- property ParentFont;
- property ParentShowHint;
- property PopupMenu;
- property ShowColumnHeaders;
- property TabOrder;
- property TabStop default True;
- property Visible;
- property OnAdvancedCustomDraw;
- property OnAdvancedCustomDrawItem;
- property OnAdvancedCustomDrawSubItem;
- property OnChange;
- property OnChanging;
- property OnClick;
- property OnColumnClick;
- property OnColumnDragged;
- property OnColumnRightClick;
- property OnCompare;
- property OnContextPopup;
- property OnCustomDraw;
- property OnCustomDrawItem;
- property OnCustomDrawSubItem;
- property OnData;
- property OnDataFind;
- property OnDataHint;
- property OnDataStateChange;
- property OnDblClick;
- property OnDeletion;
- property OnDrawItem;
- property OnEdited;
- property OnEditing;
- property OnEndDock;
- property OnEndDrag;
- property OnEnter;
- property OnExit;
- property OnGetImageIndex;
- property OnGetSubItemImage;
- property OnDragDrop;
- property OnDragOver;
- property OnInfoTip;
- property OnInsert;
- property OnKeyDown;
- property OnKeyPress;
- property OnKeyUp;
- property OnMouseDown;
- property OnMouseMove;
- property OnMouseUp;
- property OnResize;
- property OnSelectItem;
- property OnStartDock;
- property OnStartDrag;
- end;
-
-var
- Folder: IShellFolder;
-
-implementation
-
-uses ShellApi, ActiveX, ComObj, CommCtrl, EwbTools;
-
-function ListSortFunc(Item1, Item2: Pointer): Integer;
-begin
- Result := SmallInt(Folder.CompareIDs(0, PItem(Item1).ID, PItem(Item2).ID));
-end;
-
-procedure TCustomHistoryListView.SetPath(ID: PItemIDList);
-var
- PID: PItemIDList;
- EnumList: IEnumIDList;
- NumIDs: LongWord;
- ShellItem: PItem;
- NewShellFolder: IShellFolder;
-begin
- OLECheck(Desktop.BindToObject(ID, nil, IID_IShellFolder,
- Pointer(NewShellFolder)));
- Items.BeginUpdate;
- try
- OleCheck(NewShellFolder.EnumObjects(Application.Handle,
- SHCONTF_FOLDERS or SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN,
- EnumList));
- Folder := NewShellFolder;
- ClearIDList;
- while EnumList.Next(1, PID, NumIDs) = S_OK do
- begin
- ShellItem := New(PItem);
- ShellItem.ID := PID;
- ShellItem.DisplayName := GetDisplayName(Folder, PID);
- ShellItem.Empty := True;
- List.Add(ShellItem);
- end;
- List.Sort(ListSortFunc);
- Items.Count := List.Count;
- Repaint;
- fPIDL := ID;
- if Items.Count > 0 then
- begin
- Selected := Items[0];
- Selected.Focused := True;
- Selected.MakeVisible(False);
- end;
- finally
- Items.EndUpdate;
- end;
-end;
-
-function TCustomHistoryListView.ShellItem(Index: Integer): PItem;
-begin
- Result := PItem(List[Index]);
-end;
-
-procedure TCustomHistoryListView.ClearIDList;
-var
- I: Integer;
-begin
- for I := 0 to List.Count - 1 do
- begin
- DisposePIDL(ShellItem(I).ID);
- Dispose(ShellItem(I));
- end;
- List.Clear;
-end;
-
-{ TCustomHistoryListView }
-
-function TCustomHistoryListView.CustomDrawSubItem(Item: TListItem; SubItem:
- Integer;
- State: TCustomDrawState; Stage: TCustomDrawStage): Boolean;
-begin
- if (Stage = cdPrePaint) and (SubItem <> 0) then
- Canvas.Font.Color := GetSysColor(COLOR_WINDOWTEXT);
- Result := inherited CustomDrawSubItem(Item, SubItem, State, Stage);
-end;
-
-procedure TCustomHistoryListView.DblClick;
-var
- X: Olevariant;
- Url: string;
- RootPIDL, ID: PItemIDList;
-begin
- inherited;
- if Selected <> nil then
- begin
- ID := ShellItem(Selected.Index).ID;
- if not IsFolder(Folder, ID) then
- begin
- Url := ExtractUrl(Folder, ID);
- if Assigned(fOnUrlSelected) then
- fOnUrlSelected(self, Url)
- else if Assigned(fEmbeddedWB) then
- fEmbeddedWB.Navigate(Url, X, X, X, X);
- end
- else
- begin
- RootPIDL := ConcatPIDLs(fPIDL, ID);
- SetPath(RootPIDL);
- Inc(Level);
- end;
- end;
-end;
-
-destructor TCustomHistoryListView.Destroy;
-begin
- if List <> nil then
- begin
- ClearIDList;
- List.Free;
- end;
- inherited;
-end;
-
-procedure TCustomHistoryListView.LevelUp;
-var
- Temp: PItemIDList;
-begin
- Temp := CopyPIDL(fPIDL);
- if Assigned(Temp) then
- StripLastID(Temp);
- if (Temp.mkid.cb <> 0) and (Level > 0) then
- begin
- Dec(Level);
- SetPath(Temp)
- end
- else
- Beep;
-end;
-
-procedure TCustomHistoryListView.KeyDown(var Key: Word; Shift: TShiftState);
-begin
- inherited;
- case Key of
- VK_RETURN:
- DblClick;
- VK_BACK:
- LevelUp;
- end;
-end;
-
-procedure TCustomHistoryListView.Loaded;
-var
- FileInfo: TSHFileInfo;
- ImageListHandle: THandle;
- szPath: array[0..MAX_PATH] of char;
- NewPIDL: PItemIDList;
-begin
- inherited;
- OLECheck(SHGetSpecialFolderLocation(Application.Handle, CSIDL_HISTORY,
- NewPIDL));
- ShGetPathFromIDList(NewPIDL, szPath);
- OLECheck(SHGetDesktopFolder(Desktop));
- Folder := Desktop;
- if List = nil then
- begin
- List := TList.Create;
- List.Clear;
- end;
- ImageListHandle := SHGetFileInfo(szPath, 0, FileInfo, SizeOf(FileInfo),
- SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- SendMessage(Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle);
- SetPath(NewPIDL);
- Level := 0;
- // Column[0].Width := width - 4;
-end;
-
-constructor TCustomHistoryListView.Create(AOwner: TComponent);
-var
- HistoryColumn: TListColumn;
-begin
- inherited;
- ReadOnly := True;
- Height := 300;
- Width := 200;
- ShowHint := True;
- ColumnClick := False;
- OwnerData := True;
- ViewStyle := vsReport;
- HistoryColumn := Columns.Add;
- with TRegistry.Create do
- begin
- RootKey := HKEY_CLASSES_ROOT;
- OpenKey('CLSID\{FF393560-C2A7-11CF-BFF4-444553540000}', FALSE);
- HistoryColumn.Caption := ReadString('');
- Closekey;
- Free;
- end;
- HistoryColumn.Width := width - 4;
-end;
-
-function TCustomHistoryListView.OwnerDataFetch(Item: TListItem;
- Request: TItemRequest): Boolean;
-begin
- inherited OwnerDataFetch(Item, Request);
- Result := True;
- if (Item.Index <= List.Count) then
- with ShellItem(Item.Index)^ do
- begin
- Item.Caption := DisplayName;
- Item.ImageIndex := ImageIndex;
- end;
-end;
-
-function TCustomHistoryListView.OwnerDataFind(Find: TItemFind;
- const FindString: string; const FindPosition: TPoint; FindData: Pointer;
- StartIndex: Integer; Direction: TSearchDirection;
- Wrap: Boolean): Integer;
-var
- I: Integer;
- Found: Boolean;
-begin
- Result := inherited OwnerDataFind(Find, FindString, FindPosition, FindData,
- StartIndex, Direction, Wrap);
- I := StartIndex;
- if (Find = ifExactString) or (Find = ifPartialString) then
- begin
- repeat
- if (I = List.Count - 1) then
- if Wrap then
- I := 0
- else
- Exit;
- Found := Pos(UpperCase(FindString), UpperCase(ShellItem(I)^.DisplayName))
- = 1;
- Inc(I);
- until Found or (I = StartIndex);
- if Found then
- Result := I - 1;
- end;
-end;
-
-function TCustomHistoryListView.OwnerDataHint(StartIndex,
- EndIndex: Integer): Boolean;
-var
- FileInfo: TSHFileInfo;
- Flags: Integer;
- I: Integer;
-begin
- Result := inherited OwnerDataHint(StartIndex, EndIndex);
- if (StartIndex > List.Count) or (EndIndex > List.Count) then
- Exit;
- for I := StartIndex to EndIndex do
- begin
- if ShellItem(I)^.Empty then
- with ShellItem(I)^ do
- begin
- FullID := ConcatPIDLs(fPIDL, ID);
- FillChar(FileInfo, SizeOf(FileInfo), #0);
- Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON or
- SHGFI_SMALLICON;
- SHGetFileInfo(PChar(FullID), 0, FileInfo, SizeOf(FileInfo), Flags);
- ImageIndex := FileInfo.iIcon;
- Empty := False;
- end;
- end;
- Result := True;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/HistoryMenu.pas b/windows/src/ext/embeddedwb/Source/HistoryMenu.pas
deleted file mode 100644
index 0c989e050e77d4902f101e77308ac964a3c3d179..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/HistoryMenu.pas
+++ /dev/null
@@ -1,346 +0,0 @@
-//**************************************************************
-// *
-// THistoryMenu * *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.dk *
-// *
-// Contributions: *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// - D2005 update & added new functions *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: HistoryMenu.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-unit HistoryMenu;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, Classes, Controls, Forms, Registry, Menus, SHellApi, shlobj,
- imglist, ActiveX, EmbeddedWB, Dialogs;
-
-type
- PItem = ^TItem;
- TItem = record
- ID, FullID: PItemIDList;
- Folder: Boolean;
- Created: Boolean;
- end;
- TOnUrlSelectedEvent = procedure(Sender: TObject; Url: string) of object;
- THistoryMenu = class(TComponent)
- private
- { Private declarations }
- FCaption: string;
- FMenuPosition: Integer;
- FMainMenu: TMainmenu;
- FOnUrlSelected: TOnUrlSelectedEvent;
- FEmbeddedWB: TEmbeddedWB;
- Desktop: IShellFolder;
- HistoryPidl: PItemIDList;
- HistMenu: TMenuItem;
- List: TList;
- Images: TImageList;
- Item: PItem;
- protected
- procedure AddMenu(Menu: TMenuItem; MenuTag: Integer);
- procedure AddDummy(menu: TMenuItem);
- procedure MenuClick(Sender: TObject);
- procedure AddEmpty(menu: TMenuItem);
- procedure DestroyList;
- procedure BuildMenu;
- { Protected declarations }
-
- public
- { Public declarations }
- procedure CreateMenu; overload;
- procedure CreateMenu(mi: TMenuItem); overload;
- procedure RebuildMenu;
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- { Published declarations }
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property MainMenu: TMainMenu read FMainMenu write FMainMenu;
- property MenuPosition: Integer read FMenuPosition write FMenuPosition;
- property Caption: string read FCaption write FCaption;
- property OnURLSelected: TOnURLSelectedEvent read FOnURLSelected write FOnURLSelected;
- end;
-
-implementation
-
-uses
- EwbTools;
-
-var
- Counter: Integer;
- Folder: IShellFolder;
-
-function SortFunc(Item1, Item2: Pointer): Integer;
-begin
- Result := SmallInt(Folder.CompareIDs(0, PItem(Item1).ID, PItem(Item2).ID));
-end;
-
-procedure THistoryMenu.AddDummy(menu: TMenuItem);
-var
- Dummy: TMenuItem;
-begin
- Dummy := TMenuItem.Create(self);
- Dummy.Visible := False;
- Menu.add(Dummy);
-end;
-
-procedure THistoryMenu.AddEmpty(menu: TMenuItem);
-var
- Empty: TMenuItem;
-begin
- Empty := TMenuItem.Create(self);
- Empty.Caption := ' (Empty) ';
- Empty.Enabled := False;
- Menu.add(Empty);
-end;
-
-procedure THistoryMenu.AddMenu(Menu: TMenuItem; MenuTag: Integer);
-var
- MenuItem: TMenuItem;
- EnumList: IEnumIDList;
- FullID, ID: PItemIDList;
- NumIDs: LongWord;
- TempList: TList;
- I: Integer;
-begin
- TempList := TList.Create;
- FullID := CopyPidl(PItem(List[menuTag])^.FullID);
- Desktop.BindToObject(FullID, nil, IID_IShellFolder, Pointer(Folder));
- Folder.EnumObjects(Application.Handle, SHCONTF_FOLDERS or SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN, EnumList);
- while EnumList.Next(1, ID, NumIDs) = S_OK do
- begin
- Item := New(PItem);
- Item.ID := CopyPidl(ID);
- Item.FullID := ConcatPIDLs(FullID, ID);
- Item.Folder := IsFolder(Folder, ID);
- Item.Created := False;
- TempList.Add(Item);
- end;
- if TempList.Count = 0 then
- begin
- AddEmpty(Menu);
- exit;
- end;
- TempList.Sort(SortFunc);
- for I := 0 to TempList.Count - 1 do
- begin
- List.Add(PItem(Templist[I]));
- MenuItem := TMenuItem.Create(Menu);
- MenuItem.SubmenuImages := Images;
- MenuItem.OnClick := MenuClick;
- MenuItem.Tag := Counter;
- MenuItem.Caption := GetDisplayName(Folder, PItem(TempList[I])^.ID);
- MenuItem.ImageIndex := GetImageIndex(PItem(TempList[I])^.FullID);
- if not PItem(TempList[I])^.Folder then
- Menuitem.Hint := ExtractUrl(Folder, PItem(TempList[I])^.ID);
- Menu.Add(MenuItem);
- Inc(Counter);
- if Item.Folder then
- AddDummy(MenuItem);
- end;
- TempList.Free;
-end;
-
-procedure THistoryMenu.MenuClick(Sender: TObject);
-var
- X: OleVariant;
- Url: string;
-begin
- if not PItem(list[(Sender as TMenuItem).Tag])^.Folder then
- begin
- url := ((Sender as TMenuItem).Hint);
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(Sender, (Sender as TMenuItem).Hint);
- rebuildmenu;
- if Assigned(FEmbeddedWB) then
- FEmbeddedWB.Navigate(Url, X, X, X, X);
-
- end
- else
- if
- not PItem(list[(Sender as TMenuItem).Tag]).Created then
- begin
- AddMenu(Sender as TMenuItem, (Sender as TMenuItem).Tag);
- PItem(list[(Sender as TMenuItem).Tag]).Created := TRUE;
- end;
-end;
-
-procedure THistoryMenu.BuildMenu;
-var
- DateFolder: IShellFolder;
- DateEnumList: IEnumIDList;
- DateMenuItem: TMenuItem;
- DateId: PItemIDList;
- NumIDs: UINT;
-begin
- List := TList.Create;
- Counter := 0;
- Desktop.BindToObject(HistoryPidl, nil, IID_IShellFolder, Pointer(DateFolder));
- DateFolder.EnumObjects(Application.Handle,
- SHCONTF_FOLDERS or SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN, DateEnumList);
- while DateEnumList.Next(1, DateID, NumIDs) = S_OK do
- begin
- DateMenuItem := TMenuItem.Create(Application);
- DateMenuItem.SubmenuImages := Images;
- DateMenuItem.OnClick := MenuClick;
- DateMenuItem.Tag := Counter;
- Inc(Counter);
- DateMenuItem.Caption := GetDisplayName(DateFolder, DateID);
- Item := New(PItem);
- Item.Id := CopyPidl(DateID);
- Item.FullID := ConcatPIDLs(HistoryPidl, DateID);
- DateMenuItem.ImageIndex := GetImageIndex(Item.FullID);
- Item.Folder := IsFolder(DateFolder, DateID);
- Item.Created := False;
- List.Add(Item);
- HistMenu.Add(DateMenuItem);
- if Item.Folder then
- AddDummy(DateMenuItem);
- end;
-end;
-
-procedure THistoryMenu.RebuildMenu;
-begin
- DestroyList;
- Histmenu.Clear;
- BuildMenu;
-end;
-
-procedure THistoryMenu.CreateMenu;
-var
- FileInfo: TSHFileInfo;
-begin
- SHGetDesktopFolder(Desktop);
- SHGetSpecialFolderLocation(Application.Handle, CSIDL_HISTORY, HistoryPIDL);
- Images := TImagelist.Create(self);
- with images do
- begin
- ShareImages := True;
- DrawingStyle := dsTransparent;
- Handle := SHGetFileInfo(Pchar(HistoryPidl), 0, FileInfo, SizeOf(FileInfo),
- SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- end;
- HistMenu := TMenuitem.Create(self);
- with HistMenu do
- begin
- SubmenuImages := Images;
- Caption := FCaption;
- end;
- if Assigned(FMainMenu) then
- begin
- if FMenuPosition > FMainMenu.Items.Count + 1 then
- FMenuPosition := FMainMenu.Items.Count + 1
- else
- if FMenuPosition <= 0 then
- FMenuPosition := 1;
- FMainMenu.Items.Insert(FMenuPosition - 1, HistMenu);
- end;
- BuildMenu;
-end;
-
-procedure THistoryMenu.CreateMenu(mi: TMenuItem);
-var
- FileInfo: TSHFileInfo;
-begin
- SHGetDesktopFolder(Desktop);
- SHGetSpecialFolderLocation(Application.Handle, CSIDL_HISTORY, HistoryPIDL);
- Images := TImagelist.Create(self);
- with images do
- begin
- ShareImages := True;
- DrawingStyle := dsTransparent;
- Handle := SHGetFileInfo(Pchar(HistoryPidl), 0, FileInfo, SizeOf(FileInfo),
- SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- end;
- if mi = nil then
- begin
- HistMenu := TMenuitem.Create(self);
- HistMenu.Caption := FCaption;
- end
- else
- HistMenu := mi;
- HistMenu.SubmenuImages := Images;
- if Assigned(FMainMenu) then
- begin
- if FMenuPosition > FMainMenu.Items.Count + 1 then
- FMenuPosition := FMainMenu.Items.Count + 1
- else
- if FMenuPosition <= 0 then
- FMenuPosition := 1;
- FMainMenu.Items.Insert(FMenuPosition - 1, HistMenu);
- end;
- BuildMenu;
-end;
-
-constructor THistoryMenu.Create;
-begin
- FMenuPosition := 1;
- with TRegistry.Create do
- begin
- RootKey := HKEY_CLASSES_ROOT;
- OpenKey('CLSID\{FF393560-C2A7-11CF-BFF4-444553540000}', FALSE);
- FCaption := ReadString('');
- Closekey;
- Free;
- end;
- inherited;
-end;
-
-procedure THistoryMenu.DestroyList;
-var
- I: Integer;
-begin
- if Assigned(list) then
- begin
- for I := 0 to List.Count - 1 do
- begin
- DisposePIDL(PItem(List[I]).ID);
- DisposePIDL(PItem(List[i]).FULLID);
- Dispose(PItem(List[i]));
- end;
- List.Free;
- end;
-end;
-
-destructor THistoryMenu.Destroy;
-begin
- DestroyList;
- inherited;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/IEAddress.pas b/windows/src/ext/embeddedwb/Source/IEAddress.pas
deleted file mode 100644
index 2e51c6e4bed9ab705e7762fe22d1c7c6d90d51f3..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEAddress.pas
+++ /dev/null
@@ -1,1903 +0,0 @@
-{*******************************************************}
-{ IEAddress Component }
-{ STAGE 3 }
-{ For Delphi 5 to XE }
-{ Freeware Component }
-{ }
-{ CONTRIBUTORS: }
-{ Eran Bodankin (bsalsa) }
-{ Per Linds Larsen }
-{ Peter Morris }
-{ Thomas Stutz }
-{ }
-{ Enjoy! }
-{ UPDATES: }
-{ http://www.bsalsa.com }
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-{ Remove the dot from the define below to enable support for TFlatComboBox.
- (FlatStyle Components, All Components look like MS Money und MS Encarta)
- http://www.torry.net/vcl/packs/interfacemiddle/flatstyl.zip}
-
-{.$DEFINE USE_TFlatComboBox}
-
-unit IEAddress;
-
-interface
-
-{$I EWB.inc}
-
-uses
- ActiveX, ComCtrls, ShlObj, Windows, Messages, Classes, Controls, StdCtrls,
- Graphics, EmbeddedWB, Dialogs{$IFDEF USE_TFlatComboBox}, TFlatComboBoxUnit{$ENDIF}; //By Smot
-
-type
- IObjMgr = interface(IUnknown)
- ['{00BB2761-6A77-11D0-A535-00C04FD7D062}']
- function Append(punk: IUnknown): HResult; stdcall;
- function Remove(punk: IUnknown): HResult; stdcall;
- end;
-
- IACList = interface(IUnknown)
- ['{77A130B0-94FD-11D0-A544-00C04FD7d062}']
- function Expand(pszExpand: POLESTR): HResult; stdcall;
- end;
-
- IACList2 = interface(IACList)
- ['{470141a0-5186-11d2-bbb6-0060977b464c}']
- function SetOptions(dwFlag: DWORD): HResult; stdcall;
- function GetOptions(var pdwFlag: DWORD): HResult; stdcall;
- end;
- IAutoComplete = interface(IUnknown)
- ['{00bb2762-6a77-11d0-a535-00c04fd7d062}']
- function Init(hwndEdit: HWND; const punkACL: IUnknown; pwszRegKeyPath,
- pwszQuickComplete: POLESTR): HResult; stdcall;
- function Enable(fEnable: BOOL): HResult; stdcall;
- end;
-type
- IAutoComplete2 = interface(IAutoComplete)
- ['{EAC04BC0-3791-11d2-BB95-0060977B464C}']
- function SetOptions(dwFlag: DWORD): HResult; stdcall;
- function GetOptions(out pdwFlag: DWORD): HResult; stdcall;
- end;
-
- TEnumString = class(TInterfacedObject, IEnumString)
- private
- FStrings: TStringList;
- FCurrIndex: integer;
- public
- {IEnumString}
- function Next(celt: Longint; out elt; pceltFetched: PLongint): HResult; stdcall;
- function Skip(celt: Longint): HResult; stdcall;
- function Reset: HResult; stdcall;
- function Clone(out enm: IEnumString): HResult; stdcall;
- {VCL}
- constructor Create;
- destructor Destroy; override;
- end;
-
- TAutoComplete2Option = (acoNone, acoAutoSuggest, acoAutoAppend, acoSearch, acoFilterPrefix,
- acoUseTab, acoUpDownKeyDropList, acoRtlReading, acoWordFilter,
- acoNoPrefixFiltering);
- TAutoComplete2Options = set of TAutoComplete2Option;
- TACSource = (acsList, acsHistory, acsMRU, acsShell);
- TAutoComplete2Source = set of TACSource;
- TAComp = (AutoComplete1, AutoComplete2);
- TAutoCompleteOption = (acAutoSuggest, acAutoAppend, acFileSystem, acUrlHistory,
- acUrlMRU, acUrlAll, acUseTab);
- TAutoCompleteOptions = set of TAutoCompleteOption;
- TIEAddressState = set of (csButtonPressed, csMouseCaptured);
- TThemes = (tmNone, tmXP, tmSilver, tmSoil);
- TGUI = (gsCombobox, gsThemes);
- TTypedUrlsMethod = (tuCommon, tuExtended);
- TTextAfterNav = (anLocationUrl, anLocationName);
- TTextOnLoad = (tlIELastVisited, tlIEHomePage, tlBlank, tlUserDefine);
- TOnUrlSelectedEvent = procedure(Sender: TObject; Url: WideString; var Cancel: boolean) of object;
- TOnGetFaviconEvent = procedure(Sender: TObject; Favicon, SiteUrl: WideString; var Cancel: boolean; Icon: TIcon) of object;
- TOnGetAppIconEvent = procedure(Sender: TObject; var Cancel: boolean; Icon: TIcon) of object;
- TOnGetIconEvent = procedure(Sender: TObject; Ext: string; hIco: hIcon) of object;
- TOnUpdateRegistryEvent = procedure(Sender: TObject; Url: WideString; var Cancel: boolean) of object;
- TOnUpdateTextEvent = procedure(Sender: TObject; OldUrl, NewUrl: WideString; var Cancel: boolean) of object;
- TOnPaintEvent = procedure(Sender: TObject; var Continue: boolean) of object;
-
-type
-{$IFDEF USE_TFlatComboBox} //By Smot
- TComboBoxType = TFlatComboBox;
-{$ELSE}
- TComboBoxType = TCustomComboBox;
-{$ENDIF}
-
-type
- TCustomIEAddress = class(TComboBoxType)
- private
- dllVer: Extended;
- FAbout: string;
- FArrowColor: TColor;
- FBorderColor: TColor;
- FButtonColor: TColor;
- FButtonPressedColor: TColor;
- FButtonWidth: Integer;
- FCanvas: TControlCanvas;
- FCustomProperty: string;
- FEditState: TIEAddressState;
- FEmbeddedWB: TEmbeddedWB;
- FFlat: Boolean;
- FGUI: TGUI;
- FHasBorder: Boolean;
- FHasDropDown: Boolean;
- FHintColor: TColor;
- FIconLeft: Integer;
- FIconTop: Integer;
- FImageIndex: Integer;
- FImageList: TImageList;
- FImageSize: Integer;
- FModified: Boolean;
- FMouseActive: Boolean;
- FNavOnDblClk: Boolean;
- FNavOnEnterKey: Boolean;
- FNavOnLoad: Boolean;
- FNavOnSelected: Boolean;
- FOldBGColor: TColor;
- FOldHintColor: TColor;
- FOnGetAppIcon: TOnGetAppIconEvent;
- FOnGetFavicon: TOnGetFaviconEvent;
- FOnGetIcon: TOnGetIconEvent;
- FOnPaint: TOnPaintEvent;
- FOnUpdateRegistry: TOnUpdateRegistryEvent;
- FOnUpdateText: TOnUpdateTextEvent;
- FOnUrlSelected: TOnUrlSelectedEvent;
- FSecureSiteBG: TColor;
- FSelImageIndex: Integer;
- FShowFavicons: Boolean;
- FShowSiteHint: Boolean;
- FTextAfterNav: TTextAfterNav;
- FTextOnLoad: TTextOnLoad;
- FTextOnShow: WideString;
- FThemes: TThemes;
- FTypedUrlsMethod: TTypedUrlsMethod;
- FUAfterNav: Boolean;
- FUpdateRegistry: Boolean;
- FUseAppIcon: Boolean;
- FUseSecureSiteBGColor: Boolean;
- FAutoComplete2Source: TAutoComplete2Source;
- FAutoComplete: IAutoComplete;
- FAutoCompleteOptions: TAutoCompleteOptions;
- FAutoComplete2Options: TAutoComplete2Options;
- FAComp: TAComp;
- function AddFaviconToImageList: integer;
- function GetImageIndex(aUrl: string; IntoLV: Boolean): Integer;
- function GrabFavicon(URL: string; dest: string): Boolean;
- function RemovePrefix(UrlIn, Prefix: WideString): WideString;
- function FixUrl(Url: string): string;
- function GetModified: Boolean;
- procedure SetModified(Value: Boolean);
- procedure GetTypedURLs;
- procedure InsertTextToList;
- procedure RegistryUpdate;
- procedure RepaintIEAddress(MouseActive: Boolean);
- procedure SetAbout(Value: string);
- procedure SetDropDown(const Value: Boolean);
- procedure SetTextPosition;
- procedure SetFlat(const Value: Boolean);
- procedure SetHasBorder(const Value: Boolean);
- procedure SetSiteHint;
- procedure SetTextOnLd;
- procedure SetTheme;
- procedure SetAutoCompleteOptions(const Value: TAutoCompleteOptions);
- procedure SetAutoComplete2Source(const Value: TAutoComplete2Source);
- procedure SetACOptions(const Value: TAutoComplete2Options);
- procedure TextUpdate;
- procedure UpdateIAutoComplete2;
- procedure UpdateAutoComplete;
- protected
- procedure CalculateRGN;
- procedure Change; override;
- procedure CheckButtonState(X, Y: Integer);
- procedure Click; override;
- procedure CreateParams(var Params: TCreateParams); override;
- procedure CreateWindowHandle(const Params: TCreateParams); override;
- procedure CreateWnd; override;
- procedure DblClick; override;
- procedure DestroyWnd; override;
- procedure DrawIEAddress(MouseInControl, DroppedDown: boolean);
- procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
- procedure KeyDown(var Key: Word; Shift: TShiftState); override;
- procedure Loaded; override;
- procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
- procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
- procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
- procedure WndProc(var Message: TMessage); override;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function IsValidURL(const URL: WideString): Boolean;
- function GetDllVersion(const ADll: string): Extended;
- procedure DragOver(Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean); override;
- procedure DragDrop(Source: TObject; X, Y: Integer); override;
- procedure CheckSecureSite;
- procedure ClearList;
- procedure AddToList;
-{$IFDEF DELPHI6_UP}
- procedure DeleteSelected; override;
-{$ENDIF}
- procedure LoadFromFile(FileName: WideString);
- procedure SaveToFile(FileName: WideString);
- procedure SetBounds(Left, Top, Width, Height: Integer); override;
- {published}
- property AutoCompleteVersion: TAComp read FAComp write FAComp default AutoComplete2;
- property AutoComplete2Source: TAutoComplete2Source read FAutoComplete2Source
- write SetAutoComplete2Source default [acsList, acsHistory, acsMRU, acsShell];
- property AutoComplete2Options: TAutoComplete2Options read FAutoComplete2Options
- write FAutoComplete2Options default [acoAutoSuggest, acoAutoAppend, acoSearch];
- property AutoCompleteOptions: TAutoCompleteOptions read FAutoCompleteOptions
- write SetAutoCompleteOptions default [acAutoAppend, acUrlHistory];
- property About: string read FAbout write SetAbout;
- property ArrowColor: Tcolor read FArrowColor write FArrowColor default clblack;
- property AutoNavigateOnDblClk: Boolean read FNavOnDblClk write FNavOnDblClk default True;
- property AutoNavigateOnEnterKey: Boolean read FNavOnEnterKey write FNavOnEnterKey default True;
- property AutoNavigateOnLoad: Boolean read FNavOnLoad write FNavOnLoad default True;
- property AutoNavigateOnSelected: Boolean read FNavOnSelected write FNavOnSelected default True;
- property BorderColor: Tcolor read FBorderColor write FBorderColor default clblack;
- property ButtonColor: Tcolor read FButtonColor write FButtonColor default clBtnFace;
- property ButtonPressedColor: Tcolor read FButtonPressedColor write FButtonPressedColor default clBtnFace;
- property ButtonWidth: integer read FButtonWidth;
- property DropDownCount;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property Flat: Boolean read FFlat write SetFlat default False;
- property GUI: TGUI read FGUI write FGUI default gsThemes;
- property HasBorder: Boolean read FHasBorder write SetHasBorder default True;
- property HasDropDown: Boolean read FHasDropDown write SetDropDown default True;
- property HintColor: Tcolor read FHintColor write FHintColor default clInfoBK;
- property IconLeft: Integer read FIconLeft write FIconLeft;
- property IconTop: Integer read FIconTop write FIconTop;
- property Modified: Boolean read GetModified write SetModified;
- property OnGetAppIcon: TOnGetAppIconEvent read FOnGetAppIcon write FOnGetAppIcon;
- property OnGetFavicon: TOnGetFaviconEvent read FOnGetFavicon write FOnGetFavicon;
- property OnGetIcon: TOnGetIconEvent read FOnGetIcon write FOnGetIcon;
- property OnUpdateRegistry: TOnUpdateRegistryEvent read FOnUpdateRegistry write FOnUpdateRegistry;
- property OnUpdateText: TOnUpdateTextEvent read FOnUpdateText write FOnUpdateText;
- property OnUrlSelected: TOnUrlSelectedEvent read FOnUrlSelected write FOnUrlSelected;
- property SecureSiteBG: TColor read FSecureSiteBG write FSecureSiteBG default clInfobk;
- property ShowFavicon: Boolean read FShowFavicons write FShowFavicons default False;
- property ShowSiteToolTip: Boolean read FShowSiteHint write FShowSiteHint default True;
- property TextAfterNav: TTextAfterNav read FTextAfterNav write FTextAfterNav default anLocationUrl;
- property TextOnLoad: TTextOnLoad read FTextOnLoad write FTextOnLoad default tlIEHomepage;
- property TextOnShow: WideString read FTextOnShow write FTextOnShow;
- property Themes: TThemes read FThemes write FThemes default tmNone;
- property UpdateItemsToRegistry: Boolean read FUpdateRegistry write FUpdateRegistry default True;
- property UpdateTextAfterNav: Boolean read FUAfterNav write FUAfterNav default True;
- property UseAppIcon: Boolean read FUseAppIcon write FUseAppIcon default False;
- property UseSecureSiteBGColor: Boolean read FUseSecureSiteBGColor write FUseSecureSiteBGColor default True;
- end;
-
- TIEAddress = class(TCustomIEAddress)
- published
- property Style; //Apparently this must be published first (see VCL);
- //New stuff-----------------------------------------------------------------
- property AutoComplete2Source default [acsList, acsHistory, acsMRU, acsShell];
- property AutoComplete2Options default [acoAutoSuggest, acoAutoAppend, acoSearch];
- property AutoCompleteOptions default [acAutoAppend, acUrlHistory];
- property AutoNavigateOnDblClk default True;
- property AutoNavigateOnEnterKey default True;
- property AutoNavigateOnLoad default True;
- property AutoNavigateOnSelected default True;
- property AutoCompleteVersion default AutoComplete2;
- property About;
- property Align;
- property Anchors;
- property ArrowColor;
- property BiDiMode;
- property BorderColor;
- property ButtonColor;
- property ButtonPressedColor;
- property Color;
- property Constraints;
- property Cursor;
- property DragCursor;
- property DragKind;
- property DragMode;
- property DropDownCount;
- property EmbeddedWB;
- property Enabled;
- property Flat;
- property Font;
- property GUI;
- property HasBorder;
- property HasDropDown;
- property HelpContext;
- property Hint;
- property HintColor;
- property IconLeft;
- property IconTop;
- property ImeMode;
- property ImeName;
- property ItemHeight;
- property MaxLength;
- property OnChange;
- property OnClick;
- property OnContextPopup;
- property OnDblClick;
- property OnDragDrop;
- property OnDragOver;
- property OnDrawItem;
- property OnDropDown;
- property OnEndDock;
- property OnEndDrag;
- property OnEnter;
- property OnExit;
- property OnGetAppIcon;
- property OnGetFavicon;
- property OnGetIcon;
- property OnKeyDown;
- property OnKeyPress;
- property OnKeyUp;
- property OnMeasureItem;
- property OnStartDock;
- property OnStartDrag;
- property OnUpdateRegistry;
- property OnUpdateText;
- property OnUrlSelected;
- property ParentBiDiMode default False;
- property ParentColor;
- property ParentFont;
- property ParentShowHint default False;
- property PopupMenu;
- property SecureSiteBG;
- property ShowFavicon;
- property ShowHint default True;
- property ShowSiteToolTip;
- property Sorted;
- property TabOrder;
- property TabStop;
- property Text;
- property TextAfterNav;
- property TextOnLoad;
- property TextOnShow;
- property Themes;
- property UpdateTextAfterNav default True;
- property UseAppIcon;
- property UseSecureSiteBGColor;
- property Visible;
- property Items; //And this must be published last
- end;
-
-implementation
-
-uses
- ComObj, UrlMon, ImgList, ShellAPI, Forms, SysUtils, Registry, EwbIEConst, EwbCoreTools;
-
-function TEnumString.Clone(out enm: IEnumString): HResult;
-begin
- Result := E_NOTIMPL;
- pointer(enm) := nil;
-end;
-
-constructor TEnumString.Create;
-begin
- inherited Create;
- FStrings := TStringList.Create;
- FCurrIndex := 0;
-end;
-
-destructor TEnumString.Destroy;
-begin
- FStrings.Free;
- inherited;
-end;
-
-function TEnumString.Next(celt: Integer; out elt; pceltFetched: PLongint): HResult;
-var
- I: Integer;
- wStr: WideString;
-begin
- I := 0;
- while (I < celt) and (FCurrIndex < FStrings.Count) do
- begin
- wStr := FStrings[FCurrIndex];
- TPointerList(elt)[I] := PWideChar(WideString(wStr));
- /// TPointerList(elt)[I] := CoTaskMemAlloc(2 * (Length(wStr) + 1));
- StringToWideChar(wStr, TPointerList(elt)[I], 2 * (Length(wStr) + 1));
- Inc(I);
- Inc(FCurrIndex);
- end;
- if pceltFetched <> nil then
- pceltFetched^ := I;
- if I = celt then
- Result := S_OK
- else
- Result := S_FALSE;
-end;
-
-function TEnumString.Reset: HResult;
-begin
- FCurrIndex := 0;
- Result := S_OK;
-end;
-
-function TEnumString.Skip(celt: Integer): HResult;
-begin
- if (FCurrIndex + celt) <= FStrings.Count then
- begin
- Inc(FCurrIndex, celt);
- Result := S_OK;
- end
- else
- begin
- FCurrIndex := FStrings.Count;
- Result := S_FALSE;
- end;
-end;
-
-//Accesories--------------------------------------------------------------------
-
-function SHAutoComplete(hwndEdit: HWND; dwFlags: DWORD): HRESULT; stdcall; external 'shlwapi.dll';
-{$R-}
-
-function GetExtension(Url: WideString): string;
-var
- st: string;
-begin
- st := LowerCase(Trim(ExtractFileExt(Url)));
- if (AnsiPos('.xml', st) <> 0) or (AnsiPos('.txt', st) <> 0) or (AnsiPos('.doc', st) <> 0)
- or (AnsiPos('.bmp', st) <> 0) or (AnsiPos('.zip', st) <> 0) or (AnsiPos('.rar', st) <> 0)
- or (AnsiPos('.jpg', st) <> 0) or (AnsiPos('.gif', st) <> 0) or (AnsiPos('.jpeg', st) <> 0) then
- Result := st
- else
- Result := '*.htm';
-end;
-
-function GetCacheFolder: WideString;
-var
- Reg: TRegistry;
-begin
- Result := '';
- Reg := TRegistry.Create;
- with Reg do
- try
- begin
- RootKey := HKEY_CURRENT_USER;
- if OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False) then
- Result := ReadString('Cache') + '\';
- end;
- finally
- CloseKey;
- Free;
- end;
-end;
-
-function StrToCase(StringOf: string; CasesList: array of string): Integer;
-var
- Idx: integer;
-begin
- Result := -1;
- for Idx := 0 to Length(CasesList) - 1 do
- begin
- if CompareText(StringOf, CasesList[Idx]) = 0 then
- begin
- Result := Idx;
- Break;
- end;
- end;
-end;
-
-function GetSpecialFolderNo(bUrl: WideString): Cardinal;
-var
- Url: string;
-begin
- Result := 3000;
- Url := AnsiUpperCase(Trim(bUrl));
- case StrToCase(Url, ['DESKTOP', 'INTERNET', 'PROGRAMS', 'CONTROL PANEL', 'PRINTERS',
- 'MY DOCUMENTS', 'FAVORITES', 'STARTUP', 'RECENT', 'SENDTO',
- 'RECYCLE BIN', 'STARTMENU', 'DESKTOP DIRECTORY', 'MY COMPUTER',
- 'NETWORK NEIGHBORHOOD', 'NETHOOD', 'FONTS', 'TEMPLATES', 'START MENU',
- 'COMMON PROGRAMS', 'COMMON STARTUP', 'COMMON DESKTOP', 'APPDATA',
- 'PRINTHOOD', 'APPLICATION DATA', 'TEMPORARY INTERNET FILES',
- 'COOKIES', 'HISTORY', 'USERPROFILE', 'DIAL UP CONNECTIONS',
- 'MY MUSIC', 'MY PICTURES', 'MY VIDEO', 'CD BURNING',
- 'COMPUTERS NEAR ME', 'PROFILES']) of
- 0: Result := CSIDL_DESKTOP;
- 1: Result := CSIDL_INTERNET;
- 2: Result := CSIDL_PROGRAMS;
- 3: Result := CSIDL_CONTROLS;
- 4: Result := CSIDL_PRINTERS;
- 5: Result := CSIDL_PERSONAL;
- 6: Result := CSIDL_FAVORITES;
- 7: Result := CSIDL_STARTUP;
- 8: Result := CSIDL_RECENT;
- 9: Result := CSIDL_SENDTO;
- 10: Result := CSIDL_BITBUCKET;
- 11: Result := CSIDL_STARTMENU;
- 12: Result := CSIDL_DESKTOPDIRECTORY;
- 13: Result := CSIDL_DRIVES;
- 14: Result := CSIDL_NETWORK;
- 15: Result := CSIDL_NETHOOD;
- 16: Result := CSIDL_FONTS;
- 17: Result := CSIDL_TEMPLATES;
- 18: Result := CSIDL_COMMON_STARTMENU;
- 19: Result := CSIDL_COMMON_PROGRAMS;
- 20: Result := CSIDL_COMMON_STARTUP;
- 21: Result := CSIDL_COMMON_DESKTOPDIRECTORY;
- 22: Result := CSIDL_APPDATA;
- 23: Result := CSIDL_PRINTHOOD;
-{$IFDEF DELPHI9_UP}
- 24: Result := CSIDL_LOCAL_APPDATA;
- 25: Result := CSIDL_INTERNET_CACHE;
- 26: Result := CSIDL_COOKIES;
- 27: Result := CSIDL_HISTORY;
- 28: Result := CSIDL_PROFILE;
- 29: Result := CSIDL_CONNECTIONS;
- 30: Result := CSIDL_COMMON_MUSIC;
- 31: Result := CSIDL_COMMON_PICTURES;
- 32: Result := CSIDL_COMMON_VIDEO;
- 33: Result := CSIDL_CDBURN_AREA;
- 34: Result := CSIDL_COMPUTERSNEARME;
-{$IFNDEF DELPHI16_UP}
- 35: Result := CSIDL_PROFILES
-{$ENDIF}
-{$ENDIF}
- end;
-end;
-
-function TCustomIEAddress.GetDllVersion(const ADll: string): Extended;
-type //by Fabio Lucarelli
- DLLVERSIONINFO = packed record
- cbSize: DWORD;
- dwMajorVersion: DWORD;
- dwMinorVersion: DWORD;
- dwBuildNumber: DWORD;
- dwPlatformID: DWORD;
- end;
- DLLGETVERSIONPROC = function(var pdvi: DLLVERSIONINFO): HRESULT; stdcall;
-var
- hinstDll: THANDLE;
- pBuffer: POINTER;
- dvi: DLLVERSIONINFO;
- pDllGetVersion: DLLGETVERSIONPROC;
-begin
- hinstDll := LoadLibrary(PChar(ADll));
- if hinstDll = 0 then
- Result := 0
- else
- try
- pBuffer := GetProcAddress(hinstDll, 'DllGetVersion');
- if Assigned(pBuffer) then
- begin
- ZeroMemory(@dvi, SizeOf(dvi));
- dvi.cbSize := SizeOf(dvi);
- pDllGetVersion := DLLGETVERSIONPROC(pBuffer);
- if pDllGetVersion(dvi) = NOERROR then
- begin
- Result := (dvi.dwMajorVersion + dvi.dwMinorVersion);
- end
- else
- Result := 0;
- end
- else
- Result := 0;
- finally
- FreeLibrary(hinstDll);
- end;
-end;
-
-function TCustomIEAddress.GetModified: Boolean;
-begin
- Result := FModified;
- if HandleAllocated then
- Result := SendMessage(EditHandle, EM_GETMODIFY, 0, 0) <> 0;
-end;
-
-function TCustomIEAddress.IsValidURL(const URL: WideString): Boolean;
-begin
- if (URL <> EmptyStr) and (UrlMon.IsValidURL(nil, PWideChar(URL), 0) = S_OK) then
- Result := True
- else
- Result := False;
-end;
-
-function TCustomIEAddress.RemovePrefix(UrlIn, Prefix: WideString): WideString;
-var
- i, j: integer;
-begin
- if (UrlIn = EmptyStr) then Exit;
- i := Length(Prefix);
- j := AnsiPos(Prefix, UPPERCASE(URLIn));
- if j <> 0 then
- System.delete(UrlIn, j, i);
- Result := UrlIn;
-end;
-
-procedure TCustomIEAddress.ClearList;
-begin
- if Items.Count > 0 then
- Items.Clear;
-end;
-
-{$IFDEF DELPHI6_UP}
-
-procedure TCustomIEAddress.DeleteSelected;
-begin
- if ItemIndex <> -1 then
- Items.Delete(ItemIndex);
-end;
-{$ENDIF}
-
-procedure TCustomIEAddress.AddToList;
-begin
- if not (csDesigning in ComponentState) then
- begin
- if (Text = EmptyStr) then Exit;
- Text := FixUrl(Text);
- RegistryUpdate;
- CheckSecureSite;
- TextUpdate;
- InsertTextToList;
- SetSiteHint;
- AddFaviconToImageList;
- end;
-end;
-
-procedure TCustomIEAddress.CheckButtonState(X, Y: Integer);
-var
- ARect: TRect;
-begin
- SetRect(ARect, ClientWidth - FButtonWidth, 0, ClientWidth, ClientHeight);
- if (csButtonPressed in FEditState) and not PtInRect(ARect, Point(X, Y)) then
- begin
- Exclude(FEditState, csButtonPressed);
- RepaintIEAddress(True);
- end;
-end;
-
-function TCustomIEAddress.FixUrl(Url: string): string;
- function AnsiEndsStr(const ASubText, AText: string): Boolean;
- var
- SubTextLocation: Integer;
- begin
- SubTextLocation := Length(AText) - Length(ASubText) + 1;
- if (SubTextLocation > 0) and (ASubText <> '') and
- (ByteType(AText, SubTextLocation) <> mbTrailByte) then
- Result := AnsiStrComp((PChar(ASubText)), Pointer(@AText[SubTextLocation])) = 0
- else
- Result := False;
- end;
-
-var
- DotPos, ipos: Integer;
-begin
- Result := Url;
- if (Text <> EmptyStr) and (not AnsiEndsStr('/', Url)) then
- begin
- ipos := LastDelimiter('/', Url);
- DotPos := LastDelimiter('.', Url);
- if DotPos < ipos then
- Result := Url + '/';
- end;
-end;
-
-procedure TCustomIEAddress.InsertTextToList;
-var
- i: integer;
- Found: boolean;
-begin
- Found := False;
- if (Text = EmptyStr) then Exit;
- for i := 0 to Items.Count do
- begin
- if Text = Items.Strings[i] then
- Found := True;
- end;
- if Items.Count = 0 then
- Found := False;
- if not Found then
- Items.Insert(0, Text);
-end;
-
-procedure TCustomIEAddress.CheckSecureSite;
-
- function AnsiStartsStr(const ASubText, AText: WideString): Boolean;
- begin
- Result := AnsiSameStr(ASubText, Copy(AText, 1, Length(ASubText)));
- end;
-begin
- if FUseSecureSiteBGColor and (Text = EmptyStr) then
- begin
- if AnsiStartsStr('https', Text) then
- Color := FSecureSiteBG
- else
- Color := FOldBGColor;
- end;
-end;
-
-procedure TCustomIEAddress.LoadFromFile(FileName: WideString);
-begin
- Clear;
- if (FileName = EmptyStr) then Exit;
- try
- Items.LoadFromFile(FileName);
- finally
- end;
-end;
-
-procedure TCustomIEAddress.SaveToFile(FileName: WideString);
-begin
- if (FileName = EmptyStr) then Exit;
- try
- Items.SaveToFile(FileName);
- finally
- end;
-end;
-
-procedure TCustomIEAddress.TextUpdate;
-var
- st: string;
- bCancel: Boolean;
-begin
- bCancel := False;
- if Assigned(FEmbeddedWB) and FUAfterNav and (Text <> EmptyStr)then
- begin
- if Assigned(FOnUpdateText) then
- FOnUpdateText(Self, Text, st, bCancel);
- if bCancel then
- Text := st;
- FEmbeddedWB.WaitWhileBusy;
- case FTextAfterNav of
- anLocationUrl: Text := FEmbeddedWB.LocationURL;
- anLocationName: Text := FEmbeddedWB.LocationName;
- end;
- end;
-end;
-
-//End of Accesories-------------------------------------------------------------
-
-//Graphical interface----------------------------------------------------------
-
-procedure TCustomIEAddress.DrawIEAddress(MouseInControl, DroppedDown: boolean);
-var
- CanvasCtrl: TControlCanvas;
- Rect: TRect;
- Position, RectT: integer;
-begin
- case FGUI of
- gsThemes:
- begin
- CanvasCtrl := TControlCanvas.Create;
- try
- CanvasCtrl.Control := Self;
- Rect := ClientRect;
- CanvasCtrl.Brush.Style := bsClear; //bsSolid;
-
- with CanvasCtrl do
- begin
- if BorderColor <> clNone then
- begin
- Brush.Color := BorderColor;
- if FHasBorder then
- begin
- FrameRect(Rect);
- end;
- end
- else
- begin
- Brush.Color := clwhite; //Color;
- if FHasBorder then
- begin
- FrameRect(Rect);
- end;
- end;
- end;
- Rect.Left := Rect.Right - GetSystemMetrics(SM_CXHTHUMB) - 3;
- Dec(Rect.Right);
- InflateRect(Rect, 0, -1);
- if DroppedDown then
- with CanvasCtrl do
- begin //the button backround
- Brush.Color := FButtonPressedColor;
- FillRect(Rect);
- Rect.Right := Rect.Left + 6;
- Brush.Color := Color;
- FillRect(Rect);
- end
- else
- with CanvasCtrl do
- begin
- Brush.Color := ButtonColor;
- FillRect(Rect);
- Rect.Right := Rect.Left + 6;
- Brush.Color := Color;
- FillRect(Rect);
- end;
- if BorderColor <> clNone then
- begin
- Dec(Rect.Right);
- with CanvasCtrl do
- begin
- Pen.Color := BorderColor;
- MoveTo(Rect.Right, Rect.Top);
- LineTo(Rect.Right, Rect.Bottom);
- end;
- end;
- CanvasCtrl.Pen.Color := ArrowColor;
- Rect := ClientRect;
- Position := Rect.Right - 10;
- RectT := Rect.Top;
- if not DroppedDown then
- with CanvasCtrl do
- begin //Draw the arrow Head Down
- Moveto(Position + 0, RectT + 10);
- LineTo(Position + 5, RectT + 10);
- MoveTo(Position + 1, RectT + 11);
- LineTo(Position + 4, RectT + 11);
- MoveTo(Position + 2, RectT + 12);
- LineTo(Position + 3, RectT + 12);
- end
- else
- with CanvasCtrl do
- begin //Draw the arrow Head Up
- MoveTo(Position + 3, RectT + 10);
- LineTo(Position + 2, RectT + 10);
- MoveTo(Position + 4, RectT + 11);
- LineTo(Position + 1, RectT + 11);
- MoveTo(Position + 5, RectT + 12);
- LineTo(Position + 0, RectT + 12);
- end;
- finally
- CanvasCtrl.Free;
- end;
- end;
- end;
-end;
-
-procedure TCustomIEAddress.RepaintIEAddress(MouseActive: Boolean);
-var
- bCont: boolean;
-begin
- bCont := True;
- if Assigned(FonPaint) then
- FOnPaint(Self, bCont);
- try
- if not bCont then
- begin
- ValidateRect(EditHandle, nil);
- Refresh;
- Exit;
- end;
- if not (csDesigning in ComponentState) then
- DrawIEAddress(FMouseActive, DroppedDown);
- finally
- end;
-end;
-
-procedure TCustomIEAddress.CalculateRGN;
-var
- BorderRGN, DropDownRGN: HRGN;
- BorderWidth, W: Integer;
-begin
- if Parent = nil then
- Exit;
- BorderRGN := CreateRectRGN(0, 0, Width, Height);
- BorderWidth := GetSystemMetrics(SM_CXDLGFRAME);
-
- if not FHasDropDown and not (Style in [csSimple]) then
- begin
- W := GetSystemMetrics(SM_CXVSCROLL);
- Invalidate;
- DropDownRGN := CreateRectRGN(Width - W - BorderWidth, 0, Width, Height);
- CombineRgn(BorderRGN, BorderRGN, DropDownRGN, RGN_XOR);
- DeleteObject(DropDownRGN);
- end;
- SetWindowRGN(Handle, BorderRGN, True);
-end;
-
-procedure TCustomIEAddress.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
-var
- ImageIndex: Integer;
- Bitmap: TBitmap;
- Offset: Integer;
-begin
- if (Text = EmptyStr) then Exit;
- Offset := 16;
- if not (csDesigning in ComponentState) and DroppedDown then
- begin
- ImageIndex := GetImageIndex(Items[Index], True); //ListV
- if (odSelected in State) then
- FImageIndex := ImageIndex;
- Bitmap := TBitMap.Create();
- with Canvas do
- begin
- FillRect(Rect);
- if Index < Items.Count then
- begin
- FImageList.GetBitmap(ImageIndex, Bitmap);
- if Assigned(Bitmap) then
- begin
- Bitmap.Canvas.Brush.Style := bsClear;
- BrushCopy(Bounds(Rect.Left + 4, (Rect.Top + Rect.Bottom - Bitmap.Height) div 2,
- Bitmap.Width, Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height),
- Bitmap.Canvas.Pixels[0, Bitmap.Height - 1]);
- Offset := Bitmap.Width + 6;
- end;
- TextOut(Rect.Left + OffSet, Rect.Top, Items[Index]);
- end;
- end;
- BitMap.free;
- end;
-end;
-//End of Graphical interface----------------------------------------------------
-
-//Icons Section-----------------------------------------------------------------
-
-function TCustomIEAddress.GetImageIndex(aUrl: string; IntoLV: Boolean): Integer;
-var
- Malloc: Imalloc;
- SpecialFolder: Cardinal;
- sfi: TShFileInfo;
- pidl: PItemIDList;
- ImgIdx: integer;
- Ext: string;
- bCancel: Boolean;
- Icon: TIcon;
-begin
- Result := -1;
- if (aUrl = EmptyStr) then Exit;
- try
- ShGetMalloc(Malloc);
- //If its a MS special folder
- SpecialFolder := GetSpecialFolderNo(aUrl);
- if (SUCCEEDED(SHGetSpecialFolderLocation(Handle, SpecialFolder, Pidl))) then
- begin
- ShGetFileInfo(PChar(pidl), 0, sfi, sizeof(sfi), SHGFI_ICON or SHGFI_PIDL);
- Result := sfi.iIcon;
- end
- else
- begin //If its a local file
- if FileExists(aUrl) or (AnsiCompareText(Copy(aURL, 1, 7), 'file://') = 0) then
- begin
- ShGetFileInfo(PChar(aUrl), FILE_ATTRIBUTE_NORMAL, sfi, sizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- Result := sfi.iIcon;
- end
- // If its a folder
- else
- if DirectoryExists(aUrl) then
- begin
- ShGetFileInfo(PChar(aUrl), FILE_ATTRIBUTE_DIRECTORY, sfi, SHGFI_EXETYPE,
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- Result := sfi.iIcon;
- end
- // if its a a url (File/internet Address or Shortcut). so, lets start ;)
- else
- if aURL <> '' then
- begin
- Ext := GetExtension(aUrl);
- if Ext = '*.htm' then
- begin
- if (not (DroppedDown)) and FShowFavicons then
- begin //Get Favicon
- ImgIdx := AddFaviconToImageList;
- if ImgIdx > -1 then
- begin
- sfi.iIcon := AddFaviconToImageList;
- Result := sfi.iIcon;
- DestroyIcon(sfi.iIcon);
- Malloc.Free(pidl);
- Exit;
- end;
- end;
- if FUseAppIcon then
- begin //Get app icon
- icon := Forms.Application.Icon;
- if Assigned(FOnGetAppIcon) then
- FOnGetAppIcon(Self, bCancel, Icon);
- if not bCancel then
- begin
- ImgIdx := FImageList.AddIcon(Icon);
- sfi.iIcon := ImgIdx;
- Result := sfi.iIcon;
- end;
- end
- else
- begin //Get icon for internet shortcuts and addresses
- ShGetFileInfo('*.htm', FILE_ATTRIBUTE_NORMAL, sfi, sizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- if Assigned(FOnGetIcon) then
- FOnGetIcon(Self, 'htm', sfi.hIcon);
- Result := sfi.iIcon;
- end
- end
- else
- begin //Get all the rest system icons
- ShGetFileInfo(Pchar(Ext), FILE_ATTRIBUTE_NORMAL, sfi, sizeOf(sfi),
- SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_SMALLICON);
- Result := sfi.iIcon;
- end;
- end;
- end;
- finally
- try
- if Result <> -1 then
- DestroyIcon(sfi.iIcon)
- else
- Result := 0;
- finally
- end;
- Malloc.Free(pidl);
- end;
-end;
-
-function TCustomIEAddress.GrabFavicon(URL: string; dest: string): Boolean;
-var
- i: Integer;
- St: string;
- bCancel: Boolean;
-begin
- Result := False;
- if (URL = EmptyStr) then Exit;
- try
- bCancel := False;
- St := RemovePrefix(URL, 'HTTP://');
- I := AnsiPos('/', RemovePrefix(St, 'HTTP://'));
- if I > 0 then
- St := 'http://' + System.Copy(St, 1, I);
- if Assigned(FOnGetFavicon) then
- FOnGetFavicon(Self, (GetCacheFolder + 'favicon.ico'), Text, bCancel, nil);
- if not bCancel then
- try
- Result := UrlDownloadToFile(nil, PChar(St + 'favicon.ico'), PChar(dest), 0, nil) = 0;
- except
- Result := False;
- end;
- finally
- end;
-end;
-
-function TCustomIEAddress.AddFaviconToImageList: integer;
-var
- ImgIdx: integer;
- Icon: TIcon;
- bCancel: Boolean;
- st: WideString;
-begin
- Result := -1;
- bCancel := False;
- Application.ProcessMessages;
- Sleep(10);
- if (Text <> EmptyStr) and FShowFavicons and (not DroppedDown) and IsValidURL(Text) and
- (not (csDesigning in ComponentState)) then
- begin
- st := GetCacheFolder + 'favicon.ico';
- if GrabFavIcon(Text, st) then
- begin
- ImgIdx := -1;
- Icon := TIcon.Create();
- if Icon <> nil then
- try
- Icon.LoadFromFile(st);
- except
- Icon.Free;
- Exit;
- end;
-{$IFDEF DELPHI10_UP}
- Icon.SetSize(16, 16);
-{$ELSE}
- Icon.Height := 16;
- Icon.Width := 16;
-{$ENDIF}
- if Assigned(FOnGetFavicon) then
- FOnGetFavicon(Self, st, Text, bCancel, Icon);
- if not bCancel then
- try
- ImgIdx := FImageList.AddIcon(Icon)
- except
- end;
- if ImgIdx > 0 then
- begin
- Result := ImgIdx;
- if not bCancel then
- FImageList.Draw(FCanvas, IconLeft, IConTop, ImgIdx, True);
- end;
- Icon.Free;
- end;
- end;
-end;
-
-//End of Icons section----------------------------------------------------------
-
-// Registry Section ------------------------------------------------------------
-
-procedure TCustomIEAddress.GetTypedURLs;
-var
- Counter: Integer;
- S: WideString;
- GetTextTmp: PChar;
-begin
- Items.Clear;
- with TRegistry.Create do
- try
- RootKey := HKEY_CURRENT_USER;
- if FTypedUrlsMethod = tuCommon then
- begin
- if OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then
- begin
- for Counter := 1 to 25 do
- begin
- if ValueExists('Url' + IntToStr(Counter)) then
- begin
- S := ReadString('Url' + IntToStr(Counter));
- GetTextTmp := Items.GetText;
- if (AnsiPos(S, GetTextTmp) = 0) and (Trim(S) <> '') then
- Items.Add(Trim(S));
- StrDispose(GetTextTmp);
- end;
- end;
- CloseKey;
- end;
- end;
- if FTypedUrlsMethod = tuExtended then
- begin
- if OpenKey('Software\Microsoft\Internet Explorer\TypedAddress', False) then
- begin
- for Counter := 1 to 25 do
- begin
- if ValueExists('Url' + IntToStr(Counter)) then
- begin
- S := ReadString('Url' + IntToStr(Counter));
- GetTextTmp := Items.GetText;
- if (Ansipos(S, GetTextTmp) = 0) and (Trim(S) <> '') then
- Items.Add(S);
- StrDispose(GetTextTmp);
- end;
- end;
- CloseKey;
- end;
- end;
- finally
- Free;
- end;
- if {not Assigned(FEmbeddedWB) and }(TextOnLoad <> tlUserDefine) then
- if Items.Count <> 0 then
- Text := Trim(Items[0])
- else
- Text := '';
-end;
-
-procedure TCustomIEAddress.RegistryUpdate;
-var
- MaxItems, Counter: Integer;
- Name, SName: WideString;
- Reg: TRegistry;
- bCancel: Boolean;
-begin
- if (Trim(Text) <> '') and FUpdateRegistry then
- begin
- Reg := TRegistry.Create;
- bCancel := False;
- try
- with Reg do
- begin
- if Assigned(FOnUpdateRegistry) then
- FOnUpdateRegistry(Self, Text, bCancel);
- if not bCancel then
- begin
- RootKey := HKEY_CURRENT_USER;
- if FTypedUrlsMethod = tuCommon then
- begin
- if OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', True) then
- begin
- if Items.Count < 24 then
- MaxItems := Items.Count + 1
- else
- MaxItems := 25;
- for Counter := 0 to MaxItems - 1 do
- begin
- Name := 'Url' + IntToStr(Counter);
- if items[Counter - 1] <> '' then
- WriteString(Name, items[Counter - 1]);
- end;
- end;
- CloseKey;
- end;
- if FTypedUrlsMethod = tuExtended then
- begin
- if OpenKey('Software\Microsoft\Internet Explorer\TypedAddress', True) then
- begin
- if Items.Count < 24 then
- MaxItems := Items.Count + 1
- else
- MaxItems := 25;
- for Counter := 0 to MaxItems - 1 do
- begin
- Name := 'Url' + IntToStr(Counter);
- if items[Counter - 1] <> '' then
- begin
- if Assigned(FEmbeddedWB) then
- begin
- FEmbeddedWB.Wait;
- SName := items[Counter - 1] + ' SiteName:' +
- FEmbeddedWB.LocationName;
- WriteString(Name, SName);
- end;
- end;
- end;
- end;
- end;
- CloseKey;
- end;
- end;
- finally
- Reg.Free;
- end;
- end;
-end;
-// End of Registry Section -----------------------------------------------------
-
-// Set--------------------------------------------------------------------------
-
-procedure TCustomIEAddress.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TCustomIEAddress.SetBounds(Left, Top, Width, Height: Integer);
-begin
- inherited SetBounds(Left, Top, Width, Height);
- SetTextPosition;
- CalculateRGN;
-end;
-
-procedure TCustomIEAddress.SetDropDown(const Value: Boolean);
-begin
- FHasDropDown := Value;
- CalculateRGN;
-end;
-
-procedure TCustomIEAddress.SetFlat(const Value: Boolean);
-begin
- if Value <> FFlat then
- begin
- FFlat := Value;
- Ctl3D := not Value;
- FHasBorder := False;
- Invalidate;
- end;
-end;
-
-procedure TCustomIEAddress.SetTextPosition;
-begin
- SetWindowPos(EditHandle, 0, FImageSize + 7, 5, Width - 46, Height - 7, 0);
-end;
-
-procedure TCustomIEAddress.SetHasBorder(const Value: Boolean);
-begin
- FHasBorder := Value;
- Invalidate;
- CalculateRGN;
- DrawIEAddress(FMouseActive, DroppedDown);
-end;
-
-procedure TCustomIEAddress.SetSiteHint;
-begin
- if Assigned(FEmbeddedWB) and FShowSiteHint then
- begin
- FEmbeddedWB.Wait;
- ShowHint := True;
- Application.HintColor := FHintColor;
- if FEmbeddedWB.LocationUrl = Text then
- Hint := FEmbeddedWB.LocationName;
- end;
-end;
-
-procedure TCustomIEAddress.SetTheme;
-begin
- case FGUI of
- gsThemes:
- begin
- case FThemes of
- tmNone:
- begin
- FBorderColor := clblack;
- FArrowColor := clblack;
- FButtonPressedColor := clBtnShadow;
- FButtonColor := clBtnFace;
- end;
- tmXP:
- begin
- FBorderColor := $00B99D7F;
- FArrowColor := $0085614D;
- FButtonColor := $00FCD5C2;
- FButtonPressedColor := $00F1A680;
- end;
- tmSilver:
- begin
- FBorderColor := clGray;
- FArrowColor := cl3DDKShadow;
- FButtonColor := clSilver;
- FButtonPressedColor := clActiveBorder;
- end;
- tmSoil:
- begin
- FBorderColor := clMaroon;
- FArrowColor := clMaroon;
- FButtonColor := clInfoBk;
- FButtonPressedColor := cl3DLight;
- end;
- end;
- RepaintIEAddress(True);
- end;
- end;
-end;
-
-function GetIEHomePage: string;
-var
- IEHomePage: string;
-begin
- IEHomePage := '';
- with TRegistry.Create do
- try
- RootKey := HKEY_CURRENT_USER;
- OpenKey('\Software\Microsoft\Internet Explorer\Main', False);
- IEHomePage := ReadString('Start Page');
- CloseKey;
- finally
- Free;
- end;
- Result := IEHomePage;
-end;
-
-procedure TCustomIEAddress.SetTextOnLd;
-begin
- case FTextOnLoad of
- tlIELastVisited: ;
- tlIEHomePage: Text := GetIEHomePage;
- tlBlank:
- begin
- if Assigned(FEmbeddedWB) then
- FEmbeddedWB.AssignEmptyDocument
- else
- Text := EmptyStr;
- end;
- tlUserDefine: Text := FTextOnShow;
- end;
- if Assigned(FEmbeddedWB) and FNavOnLoad then
- FEmbeddedWB.Go(Text);
-end;
-
-procedure TCustomIEAddress.SetModified(Value: Boolean);
-begin
- if HandleAllocated then
- PostMessage(EditHandle, EM_SETMODIFY, Byte(Value), 0)
- else
- FModified := Value;
-end;
-
-procedure TCustomIEAddress.SetAutoCompleteOptions(const Value: TAutoCompleteOptions);
-begin
- if FAutoCompleteOptions <> Value then
- begin
- FAutoCompleteOptions := Value;
- case FAComp of
- AutoComplete1: UpdateAutoComplete;
- AutoComplete2: Exit;
- end;
-
- end;
-end;
-
-procedure TCustomIEAddress.SetACOptions(const Value: TAutoComplete2Options);
-const
- IID_IAutoComplete2: TGUID = '{EAC04BC0-3791-11d2-BB95-0060977B464C}';
- Options: array[TAutoComplete2Option] of integer =
- ($0000, $0001, $0002, $0004, $0008, $0010, $0020, $0040, $0080, $0100);
-var
- Option: TAutoComplete2Option;
- Opt: DWORD;
- AC2: IAutoComplete2;
-begin
- if (FAutoComplete <> nil) then
- begin
- if S_OK = FAutoComplete.QueryInterface(IID_IAutoComplete2, AC2) then
- begin
- Opt := ACO_NONE;
- for Option := Low(Options) to High(Options) do
- begin
- if (Option in FAutoComplete2Options) then
- Opt := Opt or DWORD(Options[Option]);
- end;
- AC2.SetOptions(Opt);
- end;
- end;
- FAutoComplete2Options := Value;
-end;
-
-procedure TCustomIEAddress.SetAutoComplete2Source(const Value: TAutoComplete2Source);
-begin
- if FAutoComplete2Source <> Value then
- begin
- FAutoComplete2Source := Value;
- RecreateWnd;
- end;
-end;
-
-// End of Set-------------------------------------------------------------------
-
-//events------------------------------------------------------------------
-
-constructor TCustomIEAddress.Create(AOwner: TComponent);
-var
- sfi: TShFileInfo;
- aHandle: Cardinal;
-begin
- inherited Create(AOwner);
- ControlStyle := ControlStyle + [csOpaque] - [csSetCaption];
- DoubleBuffered := True;
- FAbout := 'TIEAddress. ' + WEB_SITE;
- FButtonWidth := GetSystemMetrics(SM_CXVSCROLL);
- FButtonColor := clBtnFace;
- FButtonPressedColor := clBtnFace;
- AutoComplete2Options := [acoAutoSuggest, acoAutoAppend, acoSearch];
- AutoComplete2Source := [acsList, acsHistory, acsMRU, acsShell];
- AutoCompleteOptions := [acAutoAppend, acUrlHistory];
- AutoCompleteVersion := AutoComplete2;
- AutoNavigateOnDblClk := True;
- AutoNavigateOnEnterKey := True;
- AutoNavigateOnLoad := True;
- AutoNavigateOnSelected := True;
- FCustomProperty := '';
- FGUI := gsThemes;
- FHasBorder := True;
- FHasDropDown := True;
- FHintColor := clInfoBK;
- FImageIndex := -1;
- FImageSize := 16;
- FMouseActive := False;
- ShowHint := True;
- FSecureSiteBG := clInfobk;
- FSelImageIndex := -1;
- FShowFavicons := False;
- FShowSiteHint := True;
- FTextOnLoad := tlIEHomePage;
- FTypedUrlsMethod := tuCommon;
- FUAfterNav := True;
- FUpdateRegistry := True;
- FUseAppIcon := False;
- FUseSecureSiteBGColor := True;
- Height := 22;
- IconLeft := 4;
- IconTop := 3;
- ItemHeight := 16;
- Sorted := False;
- Style := csDropDown;
- TabOrder := 0;
- Width := 145;
- FImageList := TImageList.Create(self);
- FImageList.DrawingStyle := dsNormal;
- FImageList.ShareImages := True;
- FImageList.Height := 16;
- FImageList.Width := 16;
- FCanvas := TControlCanvas.Create;
- FCanvas.Control := Self;
- FCanvas.Brush.Style := bsClear;
- FCanvas.Handle := EditHandle;
- dllVer := GetDllVersion('Shlwapi.dll');
- aHandle := ShGetFileInfo('', 0, sfi, sizeOf(sfi), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
- if (aHandle <> 0) then
- FImageList.Handle := aHandle;
-end;
-
-destructor TCustomIEAddress.Destroy;
-begin
- Application.HintColor := FOldHintColor;
- Color := FOldBGColor;
- FImageList.Free;
- FCanvas.Free;
- inherited Destroy;
-end;
-
-procedure TCustomIEAddress.Loaded;
-begin
- inherited;
- FOldBGColor := Self.Color;
- FOldHintColor := Application.HintColor;
- DoubleBuffered := True;
- Modified := False;
- if not (csDesigning in ComponentState) then
- begin
- case FGUI of
- gsThemes:
- begin
- BevelEdges := [];
- BevelInner := bvnone;
- BevelKind := bkFlat;
- BevelOuter := BVNone;
- BiDiMode := bdLeftToRight;
- Ctl3D := False;
- ParentBiDiMode := False;
- ParentCtl3D := False;
- ImeMode := imDontCare;
- ImeName := '';
- SetTheme;
- end;
- end;
- CalculateRGN;
- GetTypedURLs;
- SetTextOnLd;
- Text := FixUrl(Text);
- CheckSecureSite;
- TextUpdate;
- SetSiteHint;
- AddFaviconToImageList;
- end;
-end;
-
-procedure TCustomIEAddress.CreateParams(var Params: TCreateParams);
-begin
- inherited CreateParams(Params);
- Params.Style := Params.Style or cbs_OwnerDrawFixed or ES_MULTILINE;
-end;
-
-procedure TCustomIEAddress.CreateWindowHandle(const Params: TCreateParams);
-begin
- inherited CreateWindowHandle(Params);
- SetTextPosition;
-end;
-
-procedure TCustomIEAddress.CreateWnd;
-begin
- inherited CreateWnd;
- case FAComp of
- AutoComplete1: UpdateAutoComplete;
- AutoComplete2:
- if (GetDllVersion('Shlwapi.dll') > 4.72) then
- UpdateIAutoComplete2
- else
- UpdateAutoComplete;
- end;
-end;
-
-procedure TCustomIEAddress.UpdateAutoComplete;
-var
- SelOptions: DWORD;
-begin
- SelOptions := 0;
- if acAutoSuggest in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_AUTOSUGGEST_FORCE_ON
- else
- SelOptions := SelOptions or SHACF_AUTOSUGGEST_FORCE_OFF;
- if acAutoAppend in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_AUTOAPPEND_FORCE_ON
- else
- SelOptions := SelOptions or SHACF_AUTOAPPEND_FORCE_OFF;
- if acFileSystem in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_FILESYSTEM
- else
- SelOptions := SelOptions or SHACF_FILESYSTEM;
- if acUrlHistory in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_URLHISTORY
- else
- SelOptions := SelOptions or SHACF_URLHISTORY;
- if acUrlMRU in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_URLMRU
- else
- SelOptions := SelOptions or SHACF_URLMRU;
- if acUrlAll in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_URLALL
- else
- SelOptions := SelOptions or SHACF_URLALL;
- if acUseTab in FAutoCompleteOptions then
- SelOptions := SelOptions or SHACF_USETAB
- else
- SelOptions := SelOptions or SHACF_USETAB;
- SHAutoComplete(EditHandle, SelOptions);
-end;
-
-procedure TCustomIEAddress.UpdateIAutoComplete2;
-const
- IID_IAutoComplete: TGUID = '{00bb2762-6a77-11d0-a535-00c04fd7d062}';
- CLSID_IAutoComplete: TGUID = '{00BB2763-6A77-11D0-A535-00C04FD7D062}';
- CLSID_ACLHistory: TGUID = (D1: $00BB2764; D2: $6A77; D3: $11D0; D4: ($A5, $35, $00, $C0, $4F, $D7, $D0, $62));
- CLSID_ACListISF: TGUID = (D1: $03C036F1; D2: $A186; D3: $11D0; D4: ($82, $4A, $00, $AA, $00, $5B, $43, $83));
- CLSID_ACLMRU: TGUID = (D1: $6756A641; D2: $DE71; D3: $11D0; D4: ($83, $1B, $00, $AA, $00, $5B, $43, $83));
-var
- Uk: IUnknown;
- ACInterface: IEnumString;
-begin
- try
- Uk := CreateComObject(CLSID_IAutoComplete);
- if (Uk <> nil) and (Uk.QueryInterface(IID_IAutoComplete, FAutoComplete) = S_OK) then
- begin
- if acsHistory in FAutoComplete2Source then
- ACInterface := CreateComObject(CLSID_ACLHistory) as IEnumString
- else
- if acsMRU in FAutoComplete2Source then
- ACInterface := CreateComObject(CLSID_ACLMRU) as IEnumString
- else
- if acsShell in FAutoComplete2Source then
- ACInterface := CreateComObject(CLSID_ACListISF) as IEnumString;
- ACInterface := CreateComObject(CLSID_ACLHistory) as IEnumString;
- SetACOptions(FAutoComplete2Options);
- FAutoComplete.Init(Edithandle, ACInterface, nil, nil)
- end;
- except
- end;
-end;
-
-procedure TCustomIEAddress.DestroyWnd;
-begin
- FModified := Modified;
- inherited DestroyWnd;
-end;
-
-procedure TCustomIEAddress.WndProc(var Message: TMessage);
-var
- i: integer;
-begin
- inherited;
- case Message.Msg of
- CBN_DropDown or CB_ShowDropDown: SetTextPosition;
- CM_MouseEnter: RepaintIEAddress(True);
-
- WM_MOUSEACTIVATE:
- begin
- if not DroppedDown then
- Exit;
- Message.Result := MA_NOACTIVATE;
- SetWindowPos(Parent.Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
- if (GetActiveWindow <> Parent.Handle) then
- SetActiveWindow(Parent.Handle);
- end;
-
- WM_PAINT:
- begin
- if not (csReading in ComponentState) then
- begin
- ControlStyle := ControlStyle + [csOpaque];
- RepaintIEAddress(False);
- SetTextPosition;
- i := GetImageIndex(Text, False);
- if i > 0 then
- FImageList.Draw(FCanvas, IconLeft, IconTop,
- GetImageIndex(Text, False), True);
- end;
- end;
- end;
-end;
-
-procedure TCustomIEAddress.MouseMove(Shift: TShiftState; X, Y: Integer);
-begin
- CheckButtonState(-1, -1);
- inherited;
-end;
-
-procedure TCustomIEAddress.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- if DroppedDown then
- begin
- Include(FEditState, csButtonPressed);
- Include(FEditState, csMouseCaptured);
- end;
- inherited;
-end;
-
-procedure TCustomIEAddress.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- CheckButtonState(-1, -1);
- inherited;
-end;
-
-procedure TCustomIEAddress.Change;
-// var
- //Key: Word;
-begin
- PostMessage(Handle, CB_SHOWDROPDOWN, 0, 0);
- FImageList.Draw(FCanvas, IconLeft, IconTop, GetImageIndex(Text, False), True);
-// key := VK_RETURN;
-// KeyDown(key, []);
-end;
-
-procedure TCustomIEAddress.Click;
-var
- Rec: TRect;
- pt: TPoint;
- bCancel: Boolean;
-begin
- inherited;
- if not (csDesigning in ComponentState) then
- begin
- bCancel := False;
- GetCursorPos(pt);
- PostMessage(Handle, CB_GETDROPPEDCONTROLRECT, 0, longint(@rec));
- if ((pt.x >= Rec.Left) and (pt.x <= Rec.Right)
- and (pt.y >= Rec.Top) and (pt.y <= Rec.Bottom)) then
- begin
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(Self, Text, bCancel);
- if not bCancel then
- begin
- FSelImageIndex := FImageIndex;
- FImageList.Draw(FCanvas, 4, 3, FSelImageIndex, True);
- if FNavOnSelected and Assigned(FEmbeddedWB) then
- FEmbeddedWB.Go(Text);
- end;
- AddToList;
- end;
- // PostMessage(EditHandle, EM_SETREADONLY, 0, 0);
- // PostMessage(EditHandle, EM_SETSEL, 0, -1);
- end;
-end;
-
-procedure TCustomIEAddress.DblClick;
-var
- Rect: TRect;
- pt: TPoint;
-begin
- inherited;
- GetCursorPos(pt);
- PostMessage(Handle, CB_GETDROPPEDCONTROLRECT, 0, longint(@Rect));
- {if ((pt.x >= Rect.Left) and (pt.x <= Rect.Right)
- and (pt.y >= Rect.Top) and (pt.y <= Rect.Bottom)) then }
- begin
- fSelImageIndex := FImageIndex;
- fImageList.Draw(FCanvas, 4, 3, fSelImageIndex, True);
- if FNavOnDblClk and Assigned(FEmbeddedWB) then
- FEmbeddedWB.Go(Text);
- AddToList;
- end;
- PostMessage(EditHandle, EM_SETREADONLY, 0, 0);
- PostMessage(EditHandle, EM_SETSEL, 0, -1);
-end;
-
-procedure TCustomIEAddress.KeyDown(var Key: Word; Shift: TShiftState);
-var
- FListIndex: integer;
- bCancel: Boolean;
- newText: string;
-begin
- newText := Text;
- inherited;
- bCancel := False;
- if (DroppedDown) then
- begin
- if (Key = VK_RETURN) then
- begin
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(Self, Text, bCancel);
- if not bCancel then
- begin
- Key := VK_CLEAR;
- FListIndex := SendMessage(Handle, CB_GETCURSEL, 0, 0);
- if FListIndex > 0 then
- Items.Move(FListIndex, 0);
- Text := Items[0];
- PostMessage(Handle, CB_SHOWDROPDOWN, 0, 0);
- PostMessage(handle, CB_SETCURSEL, 0, 0);
- PostMessage(EditHandle, EM_SETREADONLY, 0, 0);
- PostMessage(EditHandle, EM_SETSEL, 0, -1);
- AddToList;
- if Assigned(FEmbeddedWB) then
- begin
- if FNavOnEnterKey then
- FEmbeddedWB.Go(Text);
- if FNavOnSelected then
- FEmbeddedWB.Go(Text);
- end;
- FSelImageIndex := FImageIndex;
- if Modified then
- FImageList.Draw(FCanvas, 4, 3, FSelImageIndex, True);
- end;
- end
- else
- if NewText <> Text then
- begin
- if ((ssAlt in Shift) and ((Key = VK_DOWN) or (Key = VK_UP))) or
- (Key = VK_ESCAPE) then
- begin
- Key := VK_CLEAR;
- PostMessage(Handle, CB_SHOWDROPDOWN, 0, 0);
- PostMessage(EditHandle, EM_SETREADONLY, 0, 0);
- PostMessage(EditHandle, EM_SETSEL, 0, -1);
- end
- else
- if (not (ssAlt in Shift)) and (Key = VK_DOWN) then
- begin
- Key := VK_CLEAR;
- FListIndex := SendMessage(Handle, CB_GETCURSEL, 0, 0);
- if FListIndex >= 24 then
- Exit;
- PostMessage(Handle, CB_SETCURSEL, (FListIndex + 1), 0);
- PostMessage(EditHandle, EM_SETSEL, WPARAM(-1), 0);
- FSelImageIndex := FImageIndex;
- FImageList.Draw(FCanvas, 4, 3, FSelImageIndex, True);
- if FNavOnSelected and Assigned(FEmbeddedWB) then
- FEmbeddedWB.Go(Text);
- end;
- end
- else
- if (not (ssAlt in Shift)) and (Key = VK_UP) then
- begin
- Key := VK_CLEAR;
- FListIndex := SendMessage(Handle, CB_GETCURSEL, 0, 0);
- if FListIndex <= 0 then
- Exit;
- PostMessage(Handle, CB_SETCURSEL, (FListIndex - 1), 0);
- PostMessage(EditHandle, EM_SETSEL, WPARAM(-1), 0);
- FSelImageIndex := FImageIndex;
- FImageList.Draw(FCanvas, 4, 3, FSelImageIndex, True);
- if FNavOnSelected and Assigned(FEmbeddedWB) then
- FEmbeddedWB.Go(Text);
- end;
- end
- else //Not the Droped Down. Its the text in the ComboBox
- begin
- if (Key = VK_RETURN) and (NewText <> Text) then
- begin
- if Text <> '' then
- begin
- if Assigned(FOnUrlSelected) then
- FOnUrlSelected(Self, Text, bCancel);
- if not bCancel then
- begin
- if FNavOnEnterKey and Assigned(FEmbeddedWB) then
- FEmbeddedWB.Go(Text);
- end;
- AddToList;
- end;
- end
- else
- if (NewText <> Text) and (Key = VK_DOWN) or ((ssAlt in Shift) and (Key = VK_DOWN) and (NewText <> Text)) then
- begin
- Key := VK_CLEAR;
- PostMessage(Handle, CB_GETCURSEL, 0, 0);
- // PostMessage(EditHandle, EM_SETREADONLY, 1, 0);
- PostMessage(EditHandle, EM_SETSEL, WPARAM(-1), 0);
- PostMessage(Handle, CB_SHOWDROPDOWN, 1, 0);
- if FNavOnSelected and Assigned(FEmbeddedWB) then
- FEmbeddedWB.Go(Text);
- end
- else
- if (Key = VK_UP) then
- begin
- Key := VK_CLEAR;
- Exit;
- end;
- end;
-end;
-
-procedure TCustomIEAddress.DragDrop(Source: TObject; X, Y: Integer);
-begin
- inherited;
-end;
-
-procedure TCustomIEAddress.DragOver(Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean);
-begin
- inherited;
-end;
-
-initialization //Must have for ShGetFileInfo
- OleInitialize(nil);
-
-finalization
- OleUninitialize;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/IECache.pas b/windows/src/ext/embeddedwb/Source/IECache.pas
deleted file mode 100644
index 024287854df7e4d7964827ac602ace521ff93ff1..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IECache.pas
+++ /dev/null
@@ -1,761 +0,0 @@
-//**************************************************************
-// *
-// TIECache * // *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.dk *
-// *
-// Contributions: *
-// Christian Lovis for lib dynamic linking *
-// {christian.lovis@dim.hcuge.ch] *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// - D2005 update *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit IECache;
-
-interface
-
-{$I EWB.inc}
-
-uses
- WinInet, Windows, Messages, SysUtils, Classes, EwbIeConst;
-
-type
- PInternetCacheTimeStamps = ^TInternetCacheTimeStamps;
- TInternetCacheTimeStamps = record
- ftExpires: TFileTime;
- ftLastModified: TFileTime;
- end;
- PInternetCacheGroupInfo = ^TInternetCacheGroupInfo;
- TInternetCacheGroupInfo = record
- dwGroupSize: DWORD;
- dwGroupFlags: DWORD;
- dwGroupType: DWORD;
- dwDiskUsage: DWORD;
- dwDiskQuota: DWORD;
- dwOwnerStorage: array[0..GROUP_OWNER_STORAGE_SIZE - 1] of DWORD;
- szGroupName: array[0..GROUPNAME_MAX_LENGTH - 1] of AnsiChar;
- end;
- TEntryInfo = record
- SourceUrlName: string;
- LocalFileName: string;
- EntryType: DWORD;
- UseCount: DWORD;
- HitRate: DWORD;
- FSize: DWORD;
- LastModifiedTime: TDateTime;
- ExpireTime: TDateTime;
- LastAccessTime: TDateTime;
- LastSyncTime: TDateTime;
- HeaderInfo: string;
- FileExtension: string;
- ExemptDelta: DWORD;
- end;
- TGroupInfo = record
- DiskUsage: DWORD;
- DiskQuota: DWORD;
- OwnerStorage: array[0..GROUP_OWNER_STORAGE_SIZE - 1] of DWORD;
- GroupName: string;
- end;
- TContent = record
- Buffer: Pointer;
- BufferLength: Integer;
- end;
- TFilterOption = (NORMAL_ENTRY,
- STABLE_ENTRY,
- STICKY_ENTRY,
- COOKIE_ENTRY,
- URLHISTORY_ENTRY,
- TRACK_OFFLINE_ENTRY,
- TRACK_ONLINE_ENTRY,
- SPARSE_ENTRY,
- OCX_ENTRY);
- TFilterOptions = set of TFilterOption;
- TOnEntryEvent = procedure(Sender: TObject; var Cancel: Boolean) of object;
- TOnGroupEvent = procedure(Sender: TObject; GroupID: GROUPID; var Cancel: Boolean) of object;
- TSearchPattern = (spAll, spCookies, spHistory, spUrl);
-
- TIECache = class(TComponent)
- private
- FSearchPattern: TSearchPattern;
- FOnEntry: TOnEntryEvent;
- FOnGroup: TOnGroupEvent;
- GrpHandle: THandle;
- H: THandle;
- FCancel: Boolean;
- FFilterOptions: TFilterOptions;
- FFilterOptionValue: Cardinal;
- procedure SetFilterOptions(const Value: TFilterOptions);
- procedure UpdateFilterOptionValue;
- procedure GetEntryValues(Info: PInternetCacheEntryInfo);
- procedure ClearEntryValues;
- protected { Protected declarations }
- public
- GroupInfo: TGroupInfo;
- EntryInfo: TEntryInfo;
- Content: TContent;
- constructor Create(AOwner: TComponent); override;
- function AddUrlToGroup(GroupID: INT64; URL: string): DWORD;
- function CloseFindEntry: BOOL;
- function CopyFileToCache(URL, FileName: string; CacheType: DWORD; Expire: TDateTime): DWORD;
- // function CopyFileToCache(UrlName, FileName: Pchar): string;
- function CreateEntry(URL, FileExtension: string; ExpectedFileSize: DWORD; var FName: string): DWORD;
- function CreateGroup: INT64;
- function DeleteEntry(URL: string): DWORD;
- function DeleteGroup(GroupID: INT64): DWORD;
- function FindFirstEntry(GroupID: INT64): DWORD;
- function FindFirstGroup(var GroupID: Int64): DWORD;
- function FindNextEntry: DWORD;
- function FindNextGroup(var GroupID: Int64): BOOL;
- function GetEntryContent(URL: string): DWORD;
- function GetEntryInfo(URL: string): DWORD;
- function GetGroupInfo(GroupID: INT64): DWORD;
- function getLibraryFound: Boolean;
- function RemoveUrlFromGroup(GroupID: INT64; URL: string): DWORD;
- function RetrieveGroups: DWORD;
- function SetEntryInfo(URL: string): DWORD;
- function SetGroupInfo(GroupID: INT64): DWORD;
- procedure ClearAllEntries;
- procedure RetrieveEntries(GroupID: INT64);
- { Public declarations }
- published
- property FilterOptions: TFilterOptions read FFilterOptions write SetFilterOptions;
- property LibraryFound: Boolean read getLibraryFound;
- property OnEntry: TOnEntryEvent read FOnEntry write FOnEntry;
- property OnGroup: TOnGroupEvent read FOnGroup write FOnGroup;
- property SearchPattern: TSearchpattern read FSearchpattern write FSearchPattern;
- { Published declarations }
- end;
-
-implementation
-
-type
-
- TFindFirstUrlCacheGroup =
- function(dwFlags, dwFilter: DWORD;
- lpSearchCondition: Pointer; dwSearchCondition: DWORD;
- var Group: Int64; lpReserved: Pointer): THandle; stdcall;
-
- TFindNextUrlCacheGroup =
- function(hFind: THandle; var GroupID: Int64; lpReserved: Pointer): BOOL; stdcall;
-
- TSetUrlCacheGroupAttribute =
- function(gid: Int64; dwFlags, dwAttributes: DWORD; var lpGroupInfo: TInternetCacheGroupInfo;
- lpReserved: Pointer): BOOL; stdcall;
-
- TGetUrlCacheGroupAttribute =
- function(gid: Int64; dwFlags, dwAttributes: DWORD;
- var GroupInfo: TInternetCacheGroupInfo; var dwGroupInfo: DWORD; lpReserved: Pointer): BOOL; stdcall;
-
-var
- FindFirstUrlCacheGroup: tFindFirstUrlCacheGroup;
- FindNextUrlCacheGroup: tFindNextUrlCacheGroup;
- GetUrlCacheGroupAttribute: tGetUrlCacheGroupAttribute;
- SetUrlCacheGroupAttribute: tSetUrlCacheGroupAttribute;
- winInetLibFound: Boolean;
-
-const
- winetdll = 'wininet.dll';
-
-//====Accessories===============================================================
-
-function InitializeWinInet: Boolean;
-var
- fPointer: tFarProc;
- hInst: tHandle;
-begin
- if winInetLibFound then
- Result := true
- else
- begin
- Result := False;
- hInst := loadLibrary(winetdll);
- if hInst > 0 then
- try
- fPointer := getProcAddress(hInst, 'FindFirstUrlCacheGroup');
- if fPointer <> nil then
- begin
- FindFirstUrlCacheGroup := tFindFirstUrlCacheGroup(fPointer);
- fPointer := getProcAddress(hInst, 'FindNextUrlCacheGroup');
- if fPointer <> nil then
- begin
- FindNextUrlCacheGroup := tFindNextUrlCacheGroup(fPointer);
- fPointer := getProcAddress(hInst, 'GetUrlCacheGroupAttributeA');
- if fPointer <> nil then
- begin
- GetUrlCacheGroupAttribute := tGetUrlCacheGroupAttribute(fPointer);
- fPointer := getProcAddress(hInst, 'SetUrlCacheGroupAttributeA');
- if fPointer <> nil then
- begin
- SetUrlCacheGroupAttribute := tSetUrlCacheGroupAttribute(fPointer);
- fPointer := getProcAddress(hInst, 'FindFirstUrlCacheEntryExA');
- if fPointer <> nil then
- Result := true;
- end; // SetUrlCacheGroupAttribute
- end; // GetUrlCacheGroupAttribute
- end; // FindNextUrlCacheGroup
- end; // FindFirstUrlCacheGroup
- except
- end; // loadLib
- winInetLibFound := Result;
- end;
-end;
-
-function FileTimeToDateTime(Ft: TFileTime): TDateTime;
-var
- St: TSystemTime;
- lft: TFileTime;
-begin
- Result := 0;
- try
- if FileTimeToLocalFiletime(Ft, lft) then
- if FileTimeToSyStemTime(lft, st) then
- Result := SystemTimeTODateTime(st);
- except
- end;
-end;
-
-function DateTimeToFileTime(Dt: TDateTime): TFileTime;
-var
- St: TSystemTime;
- lft: TFileTime;
-begin
- try
- DateTimeToSystemTime(Dt, ST);
- if SystemTimeToFileTime(st, lft) then
- LocalFileTimeToFileTime(lft, Result);
- except
- Result.dwLowDateTime := 0;
- Result.dwHighDateTime := 0;
- end;
-end;
-
-//====IE Cache==================================================================
-
-constructor TIECache.Create(AOwner: TComponent);
-begin
- inherited;
- Content.Buffer := nil;
- ClearEntryValues;
- // Identical to URLCACHE_FIND_DEFAULT_FILTER
- FFilterOptions := [NORMAL_ENTRY, COOKIE_ENTRY, URLHISTORY_ENTRY,
- TRACK_OFFLINE_ENTRY, TRACK_ONLINE_ENTRY, STICKY_ENTRY];
-end;
-
-function TIECache.getLibraryFound: Boolean;
-begin
- Result := InitializeWinInet;
-end;
-
-function TIECache.RemoveUrlFromGroup(GroupID: INT64; URL: string): DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- if not SetUrlCacheEntryGroup(Pchar(URL), INTERNET_CACHE_GROUP_REMOVE, GroupID, nil, 0, nil)
- then
- Result := GetLastError;
-end;
-
-function TIECache.AddUrlToGroup(GroupID: INT64; URL: string): DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- if not SetUrlCacheEntryGroup(Pchar(URL), INTERNET_CACHE_GROUP_ADD, GroupID, nil, 0, nil)
- then
- Result := GetLastError;
-end;
-
-function TIECache.CopyFileToCache(URL, FileName: string; CacheType: DWORD; Expire: TDateTime): DWORD;
-var
- FName: string;
- Ext: string;
- F: file of Byte;
- Size: DWORD;
-begin
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- if not FileExists(FileName) then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- AssignFile(F, FileName);
- Reset(F);
- Size := FileSize(F);
- CloseFile(F);
- Ext := ExtractFileExt(FileName);
- Ext := Copy(Ext, 2, Length(ext));
- Result := CreateEntry(URL, Ext, Size, FName);
- if Result <> S_OK then
- Exit;
- if not windows.copyfile(PChar(FileName), Pchar(FName), False) then
- begin
- Result := GetLastError;
- Exit;
- end;
- if not CommitUrlCacheEntry(Pchar(URL), Pchar(Fname), DateTimeToFileTime(Expire), DateTimeToFileTime(now), CacheType, nil, 0, Pchar(Ext), 0)
- then
- Result := GetLastError;
-end;
-
-function TIECache.CreateEntry(URL, FileExtension: string; ExpectedFileSize: DWORD; var FName: string): DWORD;
-var
- PC: array[0..MAX_PATH] of Char;
-begin
- PC := '';
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- if not CreateUrlCacheEntry(Pchar(URL), ExpectedFileSize, Pchar(FileExtension), PC, 0) then
- Result := GetLastError
- else
- FName := StrPas(PC);
-end;
-
-function TIECache.GetGroupInfo(GroupID: INT64): DWORD;
-var
- info: TInternetCacheGroupInfo;
- dw: DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- dw := SizeOf(TInternetCacheGroupInfo);
- if not GetUrlCacheGroupAttribute(GroupID, 0, CACHEGROUP_ATTRIBUTE_GET_ALL, info, dw, nil)
- then
- Result := GetLastError
- else
- with GroupInfo do
- begin
- DiskUsage := info.dwDiskUsage;
- DiskQuota := info.dwDiskQuota;
- Move(info.dwOwnerStorage, OwnerStorage, Sizeof(OwnerStorage));
- GroupName := string(info.szGroupName);
- end;
-end;
-
-function TIECache.SetGroupInfo(GroupID: INT64): DWORD;
-var
- info: TInternetCacheGroupInfo;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- info.dwGroupSize := SizeOf(Info);
- info.dwGroupFlags := CACHEGROUP_FLAG_NONPURGEABLE;
- info.dwGroupType := CACHEGROUP_TYPE_INVALID;
- info.dwDiskQuota := GroupInfo.DiskQuota;
- move(GroupInfo.OwnerStorage, info.dwOwnerStorage, Sizeof(info.dwOwnerStorage));
- move(GroupInfo.Groupname[1], info.szGroupName[0], length(GroupInfo.Groupname));
- if not SetUrlCacheGroupAttribute(GroupID, 0, CACHEGROUP_READWRITE_MASK, info, nil) then
- Result := GetLastError;
-end;
-
-function TIECache.CreateGroup: INT64;
-begin
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- Result := CreateUrlCacheGroup(0, nil);
-end;
-
-function TIECache.DeleteGroup(GroupID: INT64): DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- if not DeleteUrlCacheGroup(GroupID, CACHEGROUP_FLAG_FLUSHURL_ONDELETE, nil) then
- Result := GetLastError;
-end;
-
-function TIECache.SetEntryInfo(URL: string): DWORD;
-var
- Info: TInternetCacheEntryInfo;
- FC: DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- FC := CACHE_ENTRY_ATTRIBUTE_FC +
- CACHE_ENTRY_HITRATE_FC +
- CACHE_ENTRY_MODTIME_FC +
- CACHE_ENTRY_EXPTIME_FC +
- CACHE_ENTRY_ACCTIME_FC +
- CACHE_ENTRY_SYNCTIME_FC +
- CACHE_ENTRY_EXEMPT_DELTA_FC;
- with Info do
- begin
- CacheEntryType := EntryInfo.EntryType;
- dwHitRate := EntryInfo.HitRate;
- LastModifiedTime := DateTimeToFileTime(EntryInfo.LastModifiedTime);
- ExpireTime := DateTimeToFileTime(EntryInfo.ExpireTime);
- LastAccessTime := DateTimeToFileTime(EntryInfo.LastAccessTime);
- LastSyncTime := DateTimeToFileTime(EntryInfo.LastSyncTime);
- dwReserved := EntryInfo.ExemptDelta;
- end;
- if not SetUrlCacheEntryInfo(Pchar(URL), Info, FC) then
- Result := GetLastError;
-end;
-
-function TIECache.GetEntryInfo(URL: string): DWORD;
-var
- D: DWORD;
- T: PInternetCacheEntryInfo;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- if (D <= 0) or (not GetUrlCacheEntryInfoEx(Pchar(URL), nil, @D, nil, nil, nil, 0)) then
- begin
- // (PChar(SysErrorMessage(GetLastError)));
- // https objects are not stored in cache
- Result := GetLastError();
- end
- else
- begin
- GetMem(T, D);
- try
- if GetUrlCacheEntryInfoEx(Pchar(URL), T, @D, nil, nil, nil, 0)
- then
- GetEntryValues(t)
- else
- Result := GetLastError;
- finally
- FreeMem(T, D);
- end;
- end;
-end;
-
-function TIECache.GetEntryContent(URL: string): DWORD;
-var
- HR: THandle;
- D: Cardinal;
- T: PInternetCacheEntryInfo;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- D := 0;
- T := nil;
- RetrieveUrlCacheEntryStream(PChar(URL), T^, D, TRUE, 0);
- Getmem(T, D);
- try
- HR := THandle(RetrieveUrlCacheEntryStream(PChar(URL), T^, D, TRUE, 0));
- if HR <> 0 then
- begin
- Content.BufferLength := T^.dwSizeLow + 1;
- GetEntryValues(T);
- Getmem(Content.Buffer, Content.BufferLength);
- Fillchar(Content.Buffer^, Content.BufferLength, #0);
- if not ReadUrlCacheEntryStream(Hr, 0, Content.Buffer, T^.DwSizeLow, 0)
- then
- Result := GetLastError;
- end;
- finally
- FreeMem(T, D);
- end;
- UnLockUrlCacheEntryStream(HR, 0);
-end;
-
-function TIECache.FindNextGroup(var GroupID: Int64): BOOL;
-begin
- if not InitializeWinInet then
- begin
- Result := False;
- Exit;
- end;
- Result := FindNextUrlCacheGroup(GrpHandle, GroupID, nil);
- GetGroupInfo(GroupID);
-end;
-
-function TIECache.FindFirstGroup(var GroupID: Int64): DWORD;
-begin
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- GrpHandle := FindFirstUrlCacheGroup(0, 0, nil, 0, GroupID, nil);
- if GrpHandle <> 0 then
- Result := S_OK
- else
- Result := GetLastError;
- if Result = S_OK then
- GetGroupInfo(GroupID);
-end;
-
-function TIECache.RetrieveGroups: DWORD;
-var
- GroupID: INT64;
- Res: DWORD;
- NewGroup, Cancel: Boolean;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- Cancel := False;
- NewGroup := True;
- Res := FindFirstGroup(GroupID);
- if Res = S_OK then
- begin
- GetGroupInfo(GroupID);
- if Assigned(FOngroup) then
- FOnGroup(self, GroupID, FCancel);
- while not Cancel and NewGroup do
- begin
- NewGroup := FindNextGroup(GroupID);
- GetGroupInfo(GroupID);
- if Assigned(FOngroup) and NewGroup then
- FOnGroup(self, GroupID, Cancel);
- end;
- end
- else
- Result := GetLastError;
-end;
-
-function TIECache.DeleteEntry(URL: string): DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then Exit;
- if not DeleteUrlCacheEntry(PChar(URL)) then
- Result := GetLastError
- else
- ClearEntryValues;
-end;
-
-procedure TIECache.ClearAllEntries;
-var
- HR: DWord;
-begin
- if not InitializeWinInet then Exit;
- if FindFirstEntry(0) = S_OK then
- begin
- repeat
- DeleteEntry(EntryInfo.SourceUrlName);
- HR := FindNextEntry;
- until HR = ERROR_NO_MORE_ITEMS;
- end;
- FindCloseUrlCache(H);
-end;
-
-procedure TIECache.ClearEntryValues;
-begin
- if not InitializeWinInet then Exit;
- Content.Buffer := nil;
- Content.BufferLength := 0;
- with EntryInfo do
- begin
- SourceUrlName := '';
- LocalFileName := '';
- EntryType := 0;
- UseCount := 0;
- Hitrate := 0;
- LastModifiedTime := 0;
- ExpireTime := 0;
- LastAccessTime := 0;
- LastSyncTime := 0;
- FileExtension := '';
- FSize := 0;
- HeaderInfo := '';
- ExemptDelta := 0;
- end;
-end;
-
-procedure TIECache.GetEntryValues(Info: PInternetCacheEntryInfo);
-begin
- if not InitializeWinInet then Exit;
- with entryInfo do
- begin
- SourceUrlName := info^.lpszSourceUrlName;
- LocalFileName := info^.lpszLocalFileName;
- EntryType := info^.CacheEntryType;
- UseCount := info^.dwUseCount;
- Hitrate := info^.dwHitRate;
- LastModifiedTime := FileTimeToDateTime(info^.LastModifiedTime);
- ExpireTime := FileTimeToDateTime(info^.ExpireTime);
- LastAccessTime := FileTimeToDateTime(info^.LastAccessTime);
- LastSyncTime := FileTimeToDateTime(info^.LastSyncTime);
- FileExtension := info^.lpszFileExtension;
- FSize := (info^.dwSizeHigh shl 32) + info^.dwSizeLow;
- HeaderInfo := StrPas(PChar(info^.lpHeaderInfo));
- ExemptDelta := info^.dwReserved;
- end;
-end;
-
-function TIECache.FindFirstEntry(GroupID: INT64): DWORD;
-const
- Pattern: array[TSearchPattern] of PChar = (nil, 'Cookie:', 'Visited:', '');
-var
- T: PInternetCacheEntryInfo;
- D: DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- H := 0;
- D := 0;
- FindFirstUrlCacheEntryEx(Pattern[SearchPattern], 0, FFilterOptionValue, GroupID, nil, @D, nil, nil, nil);
- GetMem(T, D);
- try
- H := FindFirstUrlCacheEntryEx(Pattern[SearchPattern], 0, FFilterOptionValue, GroupID, T, @D, nil, nil, nil);
- if (H = 0) then
- Result := GetLastError
- else
- GetEntryValues(T);
- finally
- FreeMem(T, D)
- end;
-end;
-
-function TIECache.FindNextEntry: DWORD;
-var
- T: PInternetCacheEntryInfo;
- D: DWORD;
-begin
- Result := S_OK;
- if not InitializeWinInet then
- begin
- Result := ERROR_FILE_NOT_FOUND;
- Exit;
- end;
- D := 0;
- FindNextUrlCacheEntryEx(H, nil, @D, nil, nil, nil);
- GetMem(T, D);
- try
- if not FindNextUrlCacheEntryEx(H, T, @D, nil, nil, nil)
- then
- Result := GetLastError
- else
- GetEntryValues(T);
- finally
- FreeMem(T, D)
- end;
-end;
-
-procedure TIECache.RetrieveEntries(GroupID: INT64);
-var
- HR: DWORD;
-begin
- if not InitializeWinInet then Exit;
- FCancel := False;
- HR := FindFirstEntry(GroupID);
- if (HR = S_OK) then
- begin
- if Assigned(FOnEntry) then
- with EntryInfo do
- FOnEntry(self, FCancel);
- while (HR = S_OK) and not FCancel do
- begin
- HR := FindNextEntry;
- if (HR = S_OK) and Assigned(FOnEntry) then
- with EntryInfo do
- FOnEntry(self, FCancel);
- end;
- end;
- FindCloseUrlCache(H);
-end;
-
-function TIECache.CloseFindEntry: BOOL;
-begin
- if not InitializeWinInet then
- begin
- Result := False;
- Exit;
- end;
- Result := FindCloseUrlCache(H);
-end;
-
-procedure TIECache.SetFilterOptions(const Value: TFilterOptions);
-begin
- FFilterOptions := Value;
- UpdateFilterOptionValue;
-end;
-
-procedure TIECache.UpdateFilterOptionValue;
-const
- AcardFilterOptionValues: array[TFilterOption] of Cardinal = (
- $00000001, $00000002, $00000004, $00100000, $00200000,
- $00000010, $00000020, $00010000, $00020000);
-var
- i: TFilterOption;
-begin
- FFilterOptionValue := 0;
- if (FFilterOptions <> []) then
- for i := Low(TFilterOption) to High(TFilterOption) do
- if (i in FFilterOptions) then
- Inc(FFilterOptionValue, AcardFilterOptionValues[i]);
-end;
-
-initialization
- wininetLibFound := InitializeWinInet;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/IEDownload.pas b/windows/src/ext/embeddedwb/Source/IEDownload.pas
deleted file mode 100644
index a96766e61715d6ff652ab501dab5dea56d047e44..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEDownload.pas
+++ /dev/null
@@ -1,3077 +0,0 @@
-//*************************************************************************
-// *
-// IEDownload 2010 *
-// IEDownload is a UrlMon wrapper with a build-in Callback *
-// *
-// Freeware Component *
-// for Delphi by *
-// Eran Bodankin *
-// and Per Linds Larsen *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: IEDownload.pas,v 1.6 2009/02/25 11:56:31 bsalsa Exp $
-
-unit IEDownload;
-
-{To use the MSHTML, just remove the dot in the line below like {$DEFINE USE_MSHTML}{
-and re-compile the package.}
-{$DEFINE USE_MSHTML}
-
-interface
-
-{$I EWB.inc}
-
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF}
-
-{$IFDEF DELPHI7_UP}
-{$WARN SYMBOL_DEPRECATED OFF}
-{$ENDIF}
-
-uses
- Dialogs, IEDownloadAcc, Controls, Shellapi, EwbIEConst, ActiveX,
- Contnrs, ExtCtrls, Windows, WinInet, UrlMon, Classes, SysUtils
-{$IFDEF DELPHI5}, FileCtrl{$ENDIF}{$IFDEF USE_MSHTML}, MSHTML_EWB{$ENDIF};
-
-const
- WAIT_BSCB = WAIT_OBJECT_0 + 1;
-
-{$IFNDEF UNICODE}
-type
- RawByteString = AnsiString;
-{$ENDIF UNICODE}
-
-type
- TProxySettings = class(TPersistent)
- private
- FPort: Integer;
- FServer: string;
- FAutoLoadProxy: Boolean;
- public
- function SetProxy(const FullUserAgent, ProxyServer: string): Boolean;
- published
- property AutoLoadProxy: Boolean read FAutoLoadProxy write FAutoLoadProxy
- default False;
- property Port: Integer read FPort write FPort default 80;
- property Server: string read FServer write FServer;
- end;
-
- TCustomIEDownload = class;
-
- TInfoData = class(TList)
- public
- infAdditionalHeader: TStrings;
- infBindF_Value: Cardinal;
- infBindF2_Value: Cardinal;
- infBindInfoF_Value: Cardinal;
- infBindInfoOptions_Value: Cardinal;
- infBindVerb_Value: Cardinal;
- infCodePage_Value: Cardinal;
- infCustomVerb: string;
- infDescriptor: RawByteString;
- infDownloadFolder: string;
- infExtraInfo: string;
- infFileExt: string;
- infFileName: string;
- infFileSize: Cardinal;
- infHost: string;
- infIndex: Integer;
- infInheritHandle: Boolean;
- infPassword: string;
- infPostData: string;
- infPutFileName: string;
- infRangeBegin: Cardinal;
- infRangeEnd: Integer;
- infSender: TCustomIEDownload;
- infTimeOut: Integer;
- infUrl: PWideChar;
- infUserAgent: string;
- infUserName: string;
- Sender: TObject;
- public
- constructor Create;
- destructor Destroy; override;
- end;
-
- TThreadStatus = (tsRunning, tsSuspended, tsWaiting, tsTerminated);
- TState = (sBusy, sReady, sStopped);
-
- TBSCB = class(TThread,
- IAuthenticate,
-{$IFDEF DELPHI6_UP}
- IAuthenticateEx,
- IMonikerProp,
-{$ENDIF}
- IBindHost,
- IWindowForBindingUI,
- IBindStatusCallback,
- IBindStatusCallbackEx,
- ICodeInstall,
- IHttpNegotiate,
- IHttpNegotiate2,
- IHttpNegotiate3,
- IHTTPSecurity,
-{$IFDEF USE_MSHTML}
- IPropertyNotifySink,
-{$ENDIF}
- IServiceProvider,
- IUnknown)
-
- private
- Frequency: Int64;
- TimeStarted: Int64;
- TimeNow: Int64;
- FSender: TCustomIEDownload;
- FBindCtx: IBindCtx;
- FBSCBTimer: TTimer;
- FDataSize: Integer;
- FGlobalData: HGLOBAL;
- FMoniker: IMoniker;
- FRedirect: Boolean;
- fOutStream: IStream;
- FTimedOut: Boolean;
- FTotalRead: Cardinal;
- m_pPrevBSCB: IBindStatusCallback;
- fsOutputFile: TFileStream;
-
- function GetSerializedClientCertContext(out ppbCert: Byte; var pcbCert:
- DWORD): HResult; stdcall;
-{$IFDEF DELPHI6_UP}
- function AuthenticateEx(out phwnd: HWND; out pszUsername,
- pszPassword: LPWSTR; var pauthinfo: AUTHENTICATEINFO): HResult; stdcall;
- {IMonikerProp Interface}
- function PutProperty(mkp: MONIKERPROPERTY; val: LPCWSTR): HResult;
- stdcall;
-{$ENDIF}
-
- {IBindStatusCallbackEx}
- function GetBindInfoEx(out grfBINDF: DWORD; var pbindinfo: BINDINFO;
- out grfBINDF2: DWORD; out pdwReserved: DWORD): HResult; stdcall;
-
-{$IFDEF USE_MSHTML}
- {IPropertyNotifySink Interface}
- function OnChanged(dispId: TDispId): HRESULT; stdcall;
- function OnRequestEdit(dispId: TDispId): HRESULT; stdcall;
-{$ENDIF}
-
- {IHttpNegotiate2 Interface}
- function GetRootSecurityId(var SecurityIdBuffer: TByteArray; var
- BufferSize: DWord; dwReserved: DWORD): HResult; stdcall;
-
- {IBindStatusCallback Interface}
- function GetBindInfo(out grfBINDF: DWORD; var BindInfo: TBindInfo): HRESULT;
- stdcall;
- function GetPriority(out nPriority): HRESULT; stdcall;
- function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; FormatEtc:
- PFormatEtc; stgmed: PStgMedium): HRESULT; stdcall;
- function OnLowResource(Reserved: DWORD): HRESULT; stdcall;
- function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG;
- szStatusText: LPCWSTR): HRESULT; stdcall;
- function OnObjectAvailable(const IID: TGUID; punk: IUnknown): HRESULT;
- stdcall;
- function OnStartBinding(dwReserved: DWORD; pib: IBinding): HRESULT; stdcall;
- function OnStopBinding(HRESULT: HRESULT; szError: LPCWSTR): HRESULT;
- stdcall;
- function OnSecurityProblem(dwProblem: DWORD): HRESULT; stdcall;
-
- {IHTTPNegotiate methods}
- function OnResponse(dwResponseCode: DWORD; szResponseHeaders,
- szRequestHeaders: LPCWSTR;
- out szAdditionalRequestHeaders: LPWSTR): HRESULT; stdcall;
- function BeginningTransaction(szURL, szHeaders: LPCWSTR; dwReserved: DWORD;
- out szAdditionalHeaders: LPWSTR): HRESULT; stdcall;
-
- {IUnknown Interface}
- function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
-
- {IWindowForBindingUI methods}
- function GetWindow(const GUIDReason: TGUID; out hwnd): HRESULT; stdcall;
-
- {IAuthenticate Interface}
- function Authenticate(var hwnd: HWnd; var szUserName, szPassWord: LPWSTR):
- HResult; stdcall;
-
- {ICodeInstall Interface}
- function OnCodeInstallProblem(ulStatusCode: ULONG; szDestination, szSource:
- LPCWSTR;
- dwReserved: DWORD): HResult; stdcall;
-
- {IBindHost Interface}
- function CreateMoniker(szName: POLEStr; BC: IBindCtx; out mk: IMoniker;
- dwReserved: DWORD): HResult; stdcall;
- function MonikerBindToStorage(Mk: IMoniker; BC: IBindCtx; BSC:
- IBindStatusCallback;
- const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult;
- stdcall;
- function MonikerBindToObject(Mk: IMoniker; BC: IBindCtx; BSC:
- IBindStatusCallback;
- const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult;
- stdcall;
-
- {IServiceProvider Interface}
- function QueryService(const rsid, iid: TGUID; out Obj): HRESULT; stdcall;
-
- function GetBindResult(out clsidProtocol: TCLSID; out dwResult: DWORD;
- out szResult: POLEStr): HRESULT;
- private
- function CheckCancelState: Integer;
- procedure ClearAll;
- procedure TimerExpired(Sender: TObject);
- procedure DoConnect;
- procedure DoDownloadToFile;
- procedure DoDownloadToCache;
- procedure ReceiveData;
- procedure ReturnData;
- procedure GetData(aSender: TCustomIEDownload);
- procedure SetComponents;
- protected
- procedure Execute; override;
- procedure Suspend;
- procedure Terminate;
- procedure Resume;
-
- public
- Stream: TStream;
- Binding: IBinding;
- BscbInfo: TInfoData;
- ThreadStatus: TThreadStatus;
- constructor Create(aSender: TCustomIEDownload; const pmk: IMoniker;
- const pbc: IBindCtx; CreateSuspended: boolean);
- destructor Destroy; override;
- function QueryInfoFileName: HRESULT;
- function DoSaveFileAs: string;
- function QueryInfo(dwOption: DWORD; var Info: Cardinal): Boolean; overload;
- function QueryInfo(dwOption: DWORD; var Info: string): Boolean; overload;
- function QueryInfo(dwOption: DWORD; var Info: TDateTime): Boolean; overload;
- function IsRunning: Boolean;
- function GetDisplayName: PWideChar;
- function GetFileNameFromUrl(Url: string): string;
- function AbortBinding: Hresult;
- function MkParseDisplayName(var DisplayName: PWideChar): IMoniker;
- end;
-
- TBSCBList = class(TObjectList) {by Jury Gerasimov}
- private
- function GetItem(Index: Integer): TBSCB;
- procedure SetItem(Index: Integer; Value: TBSCB);
- public
- SessionList: TStrings;
- constructor Create;
- destructor Destroy; override;
- property Items[Index: Integer]: TBSCB read GetItem write SetItem; default;
- function byURL(Url: string): TBSCB;
- end;
-
- TSecurity = class(TPersistent)
- private
- FInheritHandle: Boolean;
- FDescriptor: RawByteString;
- published
- property InheritHandle: boolean read FInheritHandle write FInheritHandle
- default False;
- property Descriptor: RawByteString read FDescriptor write FDescriptor;
- end;
-
- TRange = class(TPersistent)
- private
- FRangeBegin: Integer;
- FRangeEnd: Integer;
- published
- property RangeBegin: Integer read FRangeBegin write FRangeBegin default 0;
- property RangeEnd: Integer read FRangeEnd write FRangeEnd default 0;
- end;
- {http://msdn.microsoft.com/en-us/library/ms775130(VS.85).aspx}
- TBindF = (Asynchronous, AsyncStorage, NoProgressiveRendering,
- OfflineOperation, GetNewestVersion, NoWriteCache, NeedFile, PullData,
- IgnoreSecurityProblem, Resynchronize, AllowHyperlink, No_UI,
- SilentOperation, Pragma_No_Cache, GetClassObject, Reserved_1,
- Free_Threaded, DirectReadIgnoreSize, HandleAsFormsSubmit,
- GetFromCacheIfNetFail, FromUrlmon, FisrtTryCache, PreferDefaultHandler,
- RestrictedSitesZone);
- TBindF_Options = set of TBindF;
- TBindF2 = (DisableBasicAuth, DisableAutoCookie, DisableRedirectUnlessSID,
- ReadDataOver4GB, Reserved_2, Reserved_11);
- TBindF2_Options = set of TBindF2;
- TBindInfoF = (PostData, ExtraInfo);
- TBindInfoF_Options = set of TBindInfoF;
- TBindInfoOption = (UseBindInfoOptions, EnableUtf8, DisableUtf8,
- UseIE_Encoding,
- BindToObject, SecurityOptOut, IgnoreMimeTextPlain, UseBindStrCredentials,
- IgnoreHttp2HttpsRedirect, IgnoreSslErrOnce, WpcDownloadBlocked,
- WpcLoggingEnabled,
- DisableAutoRedirect, ShDocVw_Reserved, AllowConnectMessages);
- TBindInfoOptions_Options = set of TBindInfoOption;
- TBindVerb = (Get, Post, Put, Custom);
- TCodePageOption = (
- Ansi, {default to ANSI code page}
- OEM, {default to OEM code page}
- Mac, {default to MAC code page}
- ThreadsAnsi, {Current thread's ANSI code page}
- Symbol, {Symbol code page (42)}
- UTF7, {Translate using UTF-7}
- UTF8); {Translate using UTF-8}
-
- TDownloadTo = (dtNormal, dtDownloadToFile, dtDownloadToCache, dtMoniker);
- TDownloadMethod = (dmStream, dmFile); {Set download to a file or astream}
- TFileExistsOption = (feOverWrite, feSkip, feRename); {If file exsits then..}
-
- TQueryInterfaceEvent = function(const IID: TGUID; out Obj): HRESULT of object;
- TAuthenticateEvent = procedure(Sender: TBSCB; var tmpHWND: HWnd;
- var szUserName, szPassWord: WideString; var Rezult: HRESULT) of object;
-{$IFDEF DELPHI6_UP}
- TAuthenticateExEvent = procedure(Sender: TBSCB; var tmpHWND: HWnd;
- var szUserName, szPassWord: WideString; pauthinfo: AUTHENTICATEINFO;
- var Rezult: HRESULT) of object;
- TOnPutPropertyEvent = function(Sender: TBSCB; mkp: MONIKERPROPERTY; val:
- LPCWSTR): HResult of object;
-{$ENDIF}
-
- TOnCodeInstallProblemEvent = function(Sender: TBSCB; ulStatusCode: ULONG;
- szDestination, szSource: LPCWSTR;
- dwReserved: DWORD; stResult: string): HRESULT of object;
- TStateChangeEvent = procedure(const State: TState) of object;
- TErrorEvent = procedure(const ErrorCode: integer; const
- stError: string) of object;
- TOnConnectEvent = procedure(Sender: TBSCB; Res: HRESULT; stMessage: string) of
- object;
- TOnGetBindInfoEvent = function(Sender: TBSCB; out grfBINDF: DWORD; var
- BindInfo: TBindInfo): HRESULT of object;
- TOnGetBindInfoExEvent = function(Sender: TBSCB; out grfBINDF: DWORD;
- pbindinfo: BINDINFO;
- out grfBINDF2: DWORD): HRESULT of object;
- TRedirect = procedure(Sender: TBSCB; var AbortRedirect: boolean; const
- FromUrl: string; const DestUrl: string) of object;
- TBeginningTransactionEvent = function(Sender: TBSCB; szURL, szHeaders:
- LPCWSTR; dwReserved: DWORD;
- out szAdditionalHeaders: LPWSTR): HRESULT of object;
- TOnResponseEvent = function(Sender: TBSCB; dwResponseCode: DWORD;
- szResponseHeaders, szRequestHeaders: LPCWSTR;
- out szAdditionalRequestHeaders: LPWSTR): HRESULT of object;
- TOnSecurityProblemEvent = function(Sender: TBSCB; dwProblem: DWORD; Problem:
- string): HRESULT of object;
- TFileExistsEvent = procedure(var Action: TFileExistsOption; const aFileName:
- WideString; var NewFileName: WideString) of object;
- TOnProgressEvent = procedure(Sender: TBSCB; ulProgress, ulProgressMax,
- ulStatusCode, FileSize: ULONG; szStatusText: LPCWSTR; Downloaded,
- ElapsedTime, Speed, RemainingTime, Status, Percent: string) of object;
- TOnDataAvailableEvent = procedure(Sender: TBSCB; var Buffer: PByte; var
- BufLength: Cardinal) of object;
- TOnDataAvailableInfoEvent = procedure(Sender: TBSCB; grfBSCF: DWORD;
- Status: string {; FormatEtc: PFormatEtc}) of object;
- TOnCompleteEvent = procedure(Sender: TCustomIEDownload; aFileNameAndPath,
- aFileName,
- aFolderName, aExtension: WideString; const ActiveConnections: Integer) of
- object;
- TOnStreamCompleteEvent = procedure(Sender: TBSCB; Stream: TStream; Result:
- HRESULT) of object;
- TOnResumeEvent = procedure(Sender: TBSCB; FileName: string; var Action:
- Cardinal) of object;
- TGetWindowEvent = function(Sender: TBSCB; const GUIDReason: TGUID; out hwnd:
- LongWord): HRESULT of object;
- TOnStartBindingEvent = procedure(Sender: TBSCB; var Cancel: Boolean; pib:
- IBinding; const FileName: WideString; const FileSize: integer) of object;
- TOnStopBindingEvent = procedure(Sender: TBSCB; HRESULT: HRESULT;
- szError: LPCWSTR) of object;
- TOnGetBindResultsEvent = procedure(var Sender: TBSCB; out clsidProtocol:
- TCLSID; out dwResult: DWORD; out szResult: POLEStr;
- const stResult: string) of object;
- TOnGetClientCertEvent = function(var Sender: TBSCB; out ppbCert: Byte; var
- pcbCert: DWORD): HResult of object;
- TTerminateEvent = procedure(const Sender: TBSCB; const ThreadId: Integer;
- const aFileName: Widestring; var bCancel: Boolean) of object;
- TOnGetRootSecurityIdEvent = function(var SecurityIdBuffer: TByteArray; var
- BufferSize: DWord): HRESULT of object;
- {IServiceProvider Interface}
- TQueryServiceEvent = procedure(Sender: TObject; const rsid, iid: TGUID; var
- Obj: IUnknown) of object;
- TOnBeforeDownloadEvent = procedure(Sender: TInfoData; const Url, FileName,
- FileExtension, Host, DownloadFolder: string; const FileSize: Integer; var
- Cancel: Boolean) of object;
-
- TCustomIEDownload = class(TComponent)
-
- private
- FAbout: string;
-{$IFNDEF DELPHI7_UP}
- FOldTimeSep: Char;
-{$ENDIF}
- bCancelAll: boolean;
- bDone: boolean;
- bRenamed: boolean;
- BS: TBSCB;
- FActiveConnections: integer;
- FAdditionalHeader: TStrings;
- FBeginningTransaction: TBeginningTransactionEvent;
- FBindF: TBindF_Options;
- FBindF_Value: Cardinal;
- FBindF2: TBindF2_Options;
- FBindF2_Value: Cardinal;
- FBindInfoF: TBindInfoF_Options;
- FBindInfoF_Value: Cardinal;
- FBindInfoOption_: TBindInfoOptions_Options;
- FBindInfoOption_Value: Cardinal;
- FBindVerb: TBindVerb;
- FBindVerb_Value: Cardinal;
- FBusy: Boolean;
- FCancel: Boolean;
- FCodePageOption: TCodePageOption;
- FCodePageValue: Cardinal;
- FCustomVerb: string;
- FDefaultProtocol: string;
- FDefaultUrlFileName: string;
- FDisplayName: PWideChar;
- FdlCounter: integer;
- FDownloadedFile: string;
- FDownloadFolder: string;
- FDownloadMethod: TDownloadMethod;
- FDownloadTo: TDownloadTo;
- FExtraInfo: string;
- FFileExistsOption: TFileExistsOption;
- FFileExtension: string;
- FFileName: string;
- FFileSize: ULong;
- FFullUserAgent: string;
- FGetWindow: TGetWindowEvent;
- FHWnd: HWND;
- FMimeType: string;
- FOnAuthenticate: TAuthenticateEvent;
-{$IFDEF DELPHI6_UP}
- FOnAuthenticateEx: TAuthenticateExEvent;
- FOnPutProperty: TOnPutPropertyEvent;
-{$ENDIF}
-{$IFDEF DELPHI7_UP}
- FFormatSettings: TFormatSettings;
-{$ENDIF}
- FOnCodeInstallProblem: TOnCodeInstallProblemEvent;
- FOnComplete: TOnCompleteEvent;
- FOnConnect: TOnConnectEvent;
- FOnBeforeDownload: TOnBeforeDownloadEvent;
- FOnDataAvailable: TOnDataAvailableEvent;
- FOnDataAvailableInfo: TOnDataAvailableInfoEvent;
- FOnError: TErrorEvent;
- FOnFileExists: TFileExistsEvent;
- FOnGetBindInfo: TOnGetBindInfoEvent;
- FOnGetBindInfoEx: TOnGetBindInfoExEvent;
- FOnGetBindResults: TOnGetBindResultsEvent;
- FOnGetClientCert: TOnGetClientCertEvent;
- FOnGetRootSecurityId: TOnGetRootSecurityIdEvent;
- FOnProgress: TOnProgressEvent;
- FOnQueryInterface: TQueryInterfaceEvent;
- FOnQueryService: TQueryServiceEvent;
- FOnRedirect: TRedirect;
- FOnResponse: TOnResponseEvent;
- FOnResume: TOnResumeEvent;
- FOnSecurityProblem: TOnSecurityProblemEvent;
- FOnStartBinding: TOnStartBindingEvent;
- FOnStateChange: TStateChangeEvent;
- FOnStopBinding: TOnStopBindingEvent;
- FOnStreamComplete: TOnStreamCompleteEvent;
- FOnTerminate: TTerminateEvent;
- FOpenDownloadFolder: Boolean;
- FPassword: string;
- FPostData: string;
- FProxySettings: TProxySettings;
- FPutFileName: string;
- FRange: TRange;
- FRefCount: Integer;
- FSecurity: TSecurity;
- FServerAddress: string;
- FServerIP: string;
- FStartTick: Integer;
- FState: TState;
- FTimeOut: Integer;
- FUrl: string;
- FUserAgent: string;
- FUserName: string;
- FUseSystemDownloadFolder: boolean;
- FValidateUrl: boolean;
- hProcess: THandle;
- hStop: THandle;
-
- private
- function GoAction(const actUrl, actFileName, actDownloadFolder: string;
- pmk: IMoniker; pbc: IBindCtx): boolean;
- function GoInit(const inUrl: string; const inFileName: string;
- const inDownloadFolder: string): boolean;
- function SetDownloadFolder(const aDownloadFolder: string): string;
- function SetHttpProtocol(const aUrl: string): string;
- procedure DoUpdate;
- procedure ExtractDataFromFile(const aFileName: string);
- procedure PrepareForExit;
- procedure PrepareForStart;
- procedure SetAbout(Value: string);
- procedure SetAdditionalHeader(const Value: TStrings);
- procedure SetBeforeExit;
- procedure SetBindF(const Value: TBindF_Options);
- procedure SetBindF2(const Value: TBindF2_Options);
- procedure SetBindInfoF(const Value: TBindInfoF_Options);
- procedure SetBindInfoOption(const Value: TBindInfoOptions_Options);
- procedure SetBindVerb(const Value: TBindVerb);
- procedure SetCodePage(const Value: TCodePageOption);
- procedure SetDefaultProtocol(const Value: string);
- procedure SetDownloadMethod(const Value: TDownloadMethod);
- procedure SetFileName(const Value: string);
- procedure SetUserAgent;
- procedure Update_BindF_Value;
- procedure Update_BindF2_Value;
- procedure Update_BindInfoF_Value;
- procedure Update_BindInfoOptions_Value;
-
- public
- ItemsManager: TBSCBList;
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function CheckFileExists(const aFileName: string): boolean;
- function CodeInstallProblemToStr(const ulStatusCode: Integer): string;
- function FormatSize(const Byte: Double): string;
- function FormatTickToTime(const TickCount: Cardinal): string;
- function IsAsyncMoniker(const pmk: IMoniker): HRESULT;
- function IsSynchronous(iedInfo: TInfoData): boolean;
- function IsUrlValid(const isUrl: string): Boolean;
- function OpenFolder(const aFolderName: string): Boolean;
- function ResponseCodeToStr(const dwResponse: Integer): string;
- function SetFileNameFromUrl(const aUrl: string): string;
- function URLDownloadToCacheFile(const aUrl: string): string;
- function UrlDownloadToFile(const aUrl: string): HRESULT;
- function WaitForProcess(var EventName: THandle; var aStartTick,
- aTimeOut: Integer): Boolean;
- function WideStringToLPOLESTR(const Source: string): POleStr;
- procedure BeforeDestruction; override;
- procedure Cancel(const Item: TBSCB); overload;
- procedure Cancel; overload;
- procedure Reset;
- procedure CancelAll;
- procedure Download(const pmk: IMoniker; const pbc: IBindCtx); overload;
- procedure Go(const aUrl: string); overload;
- procedure Go(const aUrl: string; const aFileName: string); overload;
- procedure Go(const aUrl: string; const aFileName: string; const
- aDownloadFolder: string); overload;
- procedure GoList(const UrlsList: TStrings); overload;
- procedure GoList(const UrlsList: TStrings; const FileNameList: TStrings);
- overload;
- procedure GoList(const UrlsList: TStrings; const FileNameList: TStrings;
- const DownloadFolderList: TStrings); overload;
- procedure Loaded; override;
- procedure Resume;
- procedure Suspend;
-
- public
- property ActiveConnections: integer read FActiveConnections;
- property Busy: Boolean read FBusy;
- property DisplayName: PWideChar read FDisplayName;
- property DownloadedFile: string read FDownloadedFile;
- property DownloadsCounter: integer read FdlCounter;
- property FileExtension: string read FFileExtension;
- property FileSize: ULong read FFileSize;
- property MimeType: string read FMimeType;
- property ServerAddress: string read FServerAddress;
- property ServerIP: string read FServerIP;
- property State: TState read FState;
-
- published
- property About: string read FAbout write SetAbout;
- property AdditionalHeader: TStrings read FAdditionalHeader write
- SetAdditionalHeader;
- property BindF: TBindF_Options read FBindF write
- SetBindF default [Asynchronous, AsyncStorage, PullData,
- NoWriteCache, GetNewestVersion];
- property BindF2: TBindF2_Options read FBindF2 write
- SetBindF2 default [ReadDataOver4GB];
- property BindInfoF: TBindInfoF_Options read FBindInfoF write
- SetBindInfoF default [];
- property BindVerb: TBindVerb read FBindVerb write
- SetBindVerb default Get;
- property BindInfoOptions: TBindInfoOptions_Options read FBindInfoOption_
- write SetBindInfoOption default [UseBindInfoOptions,
- AllowConnectMessages];
- property CodePage: TCodePageOption read FCodePageOption write
- SetCodePage default Ansi;
- property CustomVerb: string read FCustomVerb write FCustomVerb;
- property DefaultProtocol: string read FDefaultProtocol write
- SetDefaultProtocol;
- property DefaultUrlFileName: string read FDefaultUrlFileName write
- FDefaultUrlFileName;
- property DownloadFolder: string read FDownloadFolder write
- FDownloadFolder;
- property DownloadMethod: TDownloadMethod read FDownloadMethod write
- SetDownloadMethod default dmFile;
- property ExtraInfo: string read FExtraInfo write FExtraInfo;
- property FileExistsOption: TFileExistsOption read FFileExistsOption write
- FFileExistsOption default feOverwrite;
- property FileName: string read FFileName write SetFileName;
- property OnAuthenticate: TAuthenticateEvent read FOnAuthenticate
- write FOnAuthenticate;
-{$IFDEF DELPHI6_UP}
- property OnAuthenticateEx: TAuthenticateExEvent read FOnAuthenticateEx
- write FOnAuthenticateEx;
- property OnPutProperty: TOnPutPropertyEvent read FOnPutProperty write
- FOnPutProperty;
-{$ENDIF}
- property OnBeforeDownload: TOnBeforeDownloadEvent read FOnBeforeDownload
- write FOnBeforeDownload;
- property OnBeginningTransaction: TBeginningTransactionEvent read
- FBeginningTransaction write FBeginningTransaction;
- property OnCodeInstallProblem: TOnCodeInstallProblemEvent read
- FOnCodeInstallProblem write FOnCodeInstallProblem;
- property OnDataAvailable: TOnDataAvailableEvent read
- FOnDataAvailable write FOnDataAvailable;
- property OnDataAvailableInfo: TOnDataAvailableInfoEvent read
- FOnDataAvailableInfo write FOnDataAvailableInfo;
- property OnConnect: TOnConnectEvent read FOnConnect write FOnConnect;
- property OnComplete: TOnCompleteEvent read FOnComplete write FOnComplete;
- property OnStreamComplete: TOnStreamCompleteEvent read
- FOnStreamComplete write FOnStreamComplete;
- property OnError: TErrorEvent read FOnError write FOnError;
- property OnGetBindResults: TOnGetBindResultsEvent read
- FOnGetBindResults write FOnGetBindResults;
- property OnGetBindInfo: TOnGetBindInfoEvent read
- FOnGetBindInfo write FOnGetBindInfo;
- property OnGetBindInfoEx: TOnGetBindInfoExEvent read
- FOnGetBindInfoEx write FOnGetBindInfoEx;
- property OnGetSerializedClientCertContext: TOnGetClientCertEvent read
- FOnGetClientCert
- write FOnGetClientCert;
- property OnGetRootSecurityId: TOnGetRootSecurityIdEvent
- read FOnGetRootSecurityId write FOnGetRootSecurityId;
- property OnGetWindow: TGetWindowEvent read FGetWindow write
- FGetWindow;
- property OnFileExists: TFileExistsEvent read FOnFileExists write
- FOnFileExists;
- property OnProgress: TOnProgressEvent read FOnProgress write
- FOnProgress;
- property OnQueryInterface: TQueryInterfaceEvent read
- FOnQueryInterface write FOnQueryInterface;
- property OnQueryService: TQueryServiceEvent read FOnQueryService write
- FOnQueryService;
- property OnRedirect: TRedirect read FOnRedirect write FOnRedirect;
- property OnResponse: TOnResponseEvent read FOnResponse
- write FOnResponse;
- property OnResume: TOnResumeEvent read FOnResume write FOnResume;
- property OnSecurityProblem: TOnSecurityProblemEvent read FOnSecurityProblem
- write FOnSecurityProblem;
- property OnStartBinding: TOnStartBindingEvent read FOnStartBinding write
- FOnStartBinding;
- property OnStateChange: TStateChangeEvent read FOnStateChange write
- FOnStateChange;
- property OnTerminate: TTerminateEvent read FOnTerminate write FOnTerminate;
- property OnStopBinding: TOnStopBindingEvent read FOnStopBinding
- write FOnStopBinding;
- property OpenDownloadFolder: Boolean read FOpenDownloadFolder write
- FOpenDownloadFolder default False;
- property Password: string read FPassword write FPassword;
- property PostData: string read FPostData write FPostData;
- property ProxySettings: TProxySettings read FProxySettings write
- FProxySettings;
- property PutFileName: string read FPutFileName write FPutFileName;
- property Range: TRange read FRange write FRange;
- property Security: TSecurity read FSecurity write FSecurity;
- property TimeOut: Integer read FTimeOut write FTimeOut default 0;
- property Url: string read FUrl write FUrl;
- property UserAgent: string read FUserAgent write FUserAgent;
- property UserName: string read FUserName write FUserName;
- property UseSystemDownloadFolder: boolean read FUseSystemDownloadFolder write
- FUseSystemDownloadFolder default False;
- property ValidateUrl: boolean read FValidateUrl write FValidateUrl default
- False;
- end;
-
- TIEDownload = class(TCustomIEDownload)
- published
- end;
-
-var
- ThreadStatusDesc: array[TThreadStatus] of string = ('Running', 'Suspended',
- 'Waiting', 'Terminated');
-
-implementation
-
-uses
- IEDownloadStrings, EwbUrl, IEDownloadTools, Forms
-{$IFDEF DELPHI6_UP}, StrUtils{$ENDIF};
-
-{TInfoData---------------------------------------------------------------------}
-
-constructor TInfoData.Create;
-begin
- inherited Create;
- InfAdditionalHeader := TStringList.Create;
-end;
-
-destructor TInfoData.Destroy;
-begin {Cleaning out and free our resources}
- Clear;
- Remove(Sender);
- Extract(Self);
- {Its just to make sure we cleanly remove the IEDownload as an object}
- Remove(infSender);
- Extract(Self);
- if Assigned(infAdditionalHeader) then
- FreeAndNil(infAdditionalHeader);
- inherited;
-end;
-{End of TInfoData--------------------------------------------------------------}
-
-{Proxy Settings-----------------------------------------------------------------}
-
-function TProxySettings.SetProxy(const FullUserAgent, ProxyServer: string):
- Boolean; //mladen
-var
- intList: INTERNET_PER_CONN_OPTION_List;
- dwBufSize: DWORD;
- hInternet: Pointer;
- intOptions: array[1..3] of INTERNET_PER_CONN_OPTION;
-begin
- Result := False;
- dwBufSize := SizeOf(intList);
- intList.dwSize := SizeOf(intList);
- intList.pszConnection := nil;
- intList.dwOptionCount := High(intOptions);
- // the highest index of the array (in this case 3)
- intOptions[1].dwOption := INTERNET_PER_CONN_FLAGS;
- intOptions[1].Value.dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
- intOptions[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
- intOptions[2].Value.pszValue := PChar(ProxyServer);
- intOptions[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
- intOptions[3].Value.pszValue := '';
- intList.intOptions := @intOptions;
- hInternet := InternetOpen(PChar(FullUserAgent), INTERNET_OPEN_TYPE_DIRECT,
- nil, nil, 0);
- if hInternet <> nil then
- try
- Result := InternetSetOption(hInternet,
- INTERNET_OPTION_PER_CONNECTION_OPTION,
- @intList, dwBufSize);
- Result := Result and InternetSetOption(hInternet, INTERNET_OPTION_REFRESH,
- nil, 0);
- finally
- InternetCloseHandle(hInternet)
- end;
-end;
-{End of Proxy Settings-----------------------------------------------------------}
-
-{$IFDEF USE_MSHTML}
-
-function TBSCB.OnChanged(dispId: TDispId): HRESULT;
-var
- DP: TDispParams;
- vResult: OLEVariant;
- Doc: IHTMLDocument2;
-begin
- if (DISPID_READYSTATE = DispId) then
- if Succeeded((Doc as IHTMLDocument2).Invoke(DISPId_READYSTATE, GUId_null,
- LOCALE_System_DEFAULT, DISPATCH_PROPERTYGET, DP, @vResult, nil, nil)) then
- if Integer(vResult) = READYSTATE_COMPLETE then
- PostThreadMessage(GetCurrentThreadId, WM_USER_STARTWALKING, 0, 0);
- Result := S_OK;
-end;
-
-function TBSCB.OnRequestEdit(dispId: TDispId): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-{$ENDIF}
-{Callback procedure--------------------------------------------------------------}
-{IAuthenticate Interface
-Provides the URL moniker with information to authenticate the user}
-
-function TBSCB.Authenticate(var hwnd: HWnd; var szUserName, szPassWord: LPWSTR):
- HResult;
-{Provides the URL moniker with information to authenticate the user.
-S_OK Authentication was successful.
-E_ACCESSDENIED Authentication failed.
-E_INVALIDARG One or more parameters are invalid. }
-var
- aUser, aPwd: WideString;
-begin
- Result := S_OK;
- hwnd := FSender.FHWnd;
- aUser := EmptyStr;
- aPwd := EmptyStr;
- if Assigned(FSender.FOnAuthenticate) then
- FSender.FOnAuthenticate(Self, hwnd, aUser, aPwd, Result);
- if aUser <> EmptyStr then
- szUserName := WidestringToLPOLESTR(aUser)
- else
- szUserName := nil;
- if aPwd <> EmptyStr then
- szPassWord := WidestringToLPOLESTR(aPwd)
- else
- szPassWord := nil;
-end;
-
-{IHttpNegotiate Interface
-Implemented by a client application to provide support for HTTP negotiations}
-
-function TBSCB.BeginningTransaction(szURL, szHeaders: LPCWSTR; dwReserved:
- DWORD; out szAdditionalHeaders: LPWSTR): HRESULT;
-{IHttpNegotiate::BeginningTransaction Method
-Notifies the client of the URL that is being bound to at the beginning of an HTTP transaction.
-S_OK The HTTP transaction completed successfully and any additional headers specified have been appended.
-E_ABORT The HTTP transaction has been terminated.
-E_INVALIDARG A parameter is invalid.}
-var
- sr: TSearchRec;
- Action: Cardinal;
- tmpNewName: WideString;
- NewHeaders: string;
- Size: Longint;
- x, Len: Integer;
- ActExists: TFileExistsOption;
-begin
- ActExists := FSender.FFileExistsOption;
- tmpNewName := '';
- dwReserved := 0;
- if (FSender.FCancel) and (Binding <> nil) then
- begin
- Result := E_ABORT;
- binding.Abort;
- Exit;
- end;
- NewHeaders := FSender.FFullUserAgent + #13 + #10;
- if (BscbInfo.infFileName <> EmptyStr) then
- begin
- if FindFirst(BscbInfo.infFileName, faAnyFile, sr) = 0 then
- begin
- Size := sr.Size;
- FindClose(sr);
- BscbInfo.infRangeEnd := 0;
- Action := 0;
-
- {IBinding still do not support resume (By MS 4.2009)}
- if Assigned(FSender.FOnResume) then
- begin
- FSender.FOnResume(Self, BscbInfo.infFileName, Action);
- BscbInfo.infRangeBegin := Size;
- end;
-
- if Assigned(FSender.FOnFileExists) then
- FSender.FOnFileExists(ActExists, BscbInfo.infFileName, tmpNewName);
-
- if tmpNewName = EmptyStr then
- tmpNewName := TimeToStr(now) + '_' + BscbInfo.infFileName;
- case ActExists of
- feOverwrite:
- begin
- Binding.Resume;
- if Assigned(FSender.FOnResume) then
- FSender.FOnResume(Self, BscbInfo.infFileName, Action);
- BscbInfo.infRangeBegin := 0
- end;
- feSkip:
- begin
- Result := E_ABORT;
- Binding.Abort;
- Exit;
- end;
- feRename: BscbInfo.infFileName := tmpNewName;
- end
- end;
- end
- else {Download is starting}
- begin {Set the range to 0 which means start download from scratch}
- BscbInfo.infRangeBegin := 0;
- BscbInfo.infRangeEnd := 0;
- end;
-
- if ((BscbInfo.infRangeBegin <> 0) or (BscbInfo.infRangeEnd <> 0)) then
- begin {We set the new headers to send to the server}
- NewHeaders := NewHeaders + 'Range: bytes=' +
- IntToStr(BscbInfo.infRangeBegin) + '-';
- if BscbInfo.infRangeEnd <> 0 then
- NewHeaders := NewHeaders + IntToStr(BscbInfo.infRangeEnd) + #13#10
- else
- NewHeaders := NewHeaders + #13#10;
- end;
- if (BscbInfo.infAdditionalHeader.Text <> EmptyStr) then
- for x := 0 to BscbInfo.infAdditionalHeader.Count - 1 do
- NewHeaders := NewHeaders + BscbInfo.infAdditionalHeader[x] + #13#10;
- Len := Length(NewHeaders);
- szAdditionalHeaders := CoTaskMemAlloc((Len + 1) * SizeOf(WideChar));
- StringToWideChar(NewHeaders, szAdditionalHeaders, Len + 1);
- {We will post the event}
- if Assigned(FSender.FBeginningTransaction) then
- Result := FSender.FBeginningTransaction(Self, szURL, szHeaders,
- dwReserved, szAdditionalHeaders)
- else
- Result := S_OK;
- FBSCBTimer.Enabled := True; {Timeout timer}
- FTimedOut := False;
- Self._Release;
-end;
-
-function TBSCB.OnResponse(dwResponseCode: DWORD; szResponseHeaders,
- szRequestHeaders: LPCWSTR; out szAdditionalRequestHeaders: LPWSTR): HRESULT;
-{Enables the client of a bind operation to examine the response headers,
- optionally terminate the bind operation, and add HTTP headers to a
- request before resending the request.
-Returns one of the following values.
-S_OK The operation completed successfully.
-E_ABORT Terminate the HTTP transaction.
-E_INVALIDARG The parameter is invalid.}
-var
- Len: Cardinal;
- S: string;
- tmpName: string;
-begin
- if (FSender.FCancel) and (Binding <> nil) then
- begin
- Result := E_ABORT;
- binding.Abort;
- Exit;
- end;
- Result := S_OK;
- if (QueryInfo(HTTP_QUERY_CUSTOM, Len) and (Len = 0)) {file size = 0}
- or (QueryInfo(HTTP_QUERY_CONTENT_LENGTH, Len) and (Len = 0)) {file size = 0}
- or (dwResponseCode >= 400) then {An Error}
- begin
- Result := E_ABORT;
- if Assigned(FSender.FOnError) then
- FSender.FOnError(dwResponseCode,
- ResponseCodeToStr(dwResponseCode));
- end;
- begin {Publish the event}
- if Assigned(FSender.FOnResponse) then
- Result := FSender.FOnResponse(Self, dwResponseCode,
- szResponseHeaders, szRequestHeaders, szAdditionalRequestHeaders);
- if (FSender.FDownloadTo = dtDownloadToFile)
- or (FSender.FDownloadTo = dtDownloadToCache) then
- begin
- Result := S_OK;
- Exit;
- end;
-
- if (BscbInfo.infRangeBegin <> 0) and (BscbInfo.infFileName <> EmptyStr) then
- begin {Retrieves the types of range requests that are accepted for a resource.}
- QueryInfo(HTTP_QUERY_ACCEPT_RANGES, S);
- {'Partial Content'}
- if (S = 'bytes') or (dwResponseCode = 206) then
- begin {Create an output file as a stream back from where we finished}
- tmpName := DoSaveFileAs;
- if tmpName <> EmptyStr then
- begin
- fsOutputFile := TFileStream.Create(tmpName, fmOpenReadWrite);
- fsOutputFile.Seek(0, soFromEnd);
- end;
- end
- else
- begin {'Create an output file as a stream from range begin 0'}
- // not needed
- tmpName := DoSaveFileAs;
- if tmpName <> EmptyStr then
- begin
- fsOutputFile := TFileStream.Create(tmpName, fmCreate);
- BscbInfo.infRangeBegin := 0;
- end;
- end;
- end
- else
- begin {Here we create the file}
- if (FSender.FDownloadMethod = dmFile) then
- begin
- tmpName := DoSaveFileAs;
- if tmpName <> EmptyStr then
- begin
- fsOutputFile := TFileStream.Create(tmpName, fmCreate);
- fsOutputFile.Seek(0, soFromBeginning);
- end;
- end;
- end
- end;
-end;
-
-{IHttpNegotiate2 Interface}
-
-function TBSCB.GetRootSecurityId(var SecurityIdBuffer: TByteArray; var
- BufferSize: DWord; dwReserved: DWORD): HResult;
-begin {Gets a root security ID.}
- if Assigned(FSender.FOnGetRootSecurityId) then
- Result := FSender.FOnGetRootSecurityId(SecurityIdBuffer, BufferSize)
- else
- Result := E_NOTIMPL;
-end;
-
-function TBSCB.GetBindInfoEx(out grfBINDF: DWORD; var pbindinfo: BINDINFO;
- out grfBINDF2: DWORD; out pdwReserved: DWORD): HResult;
-var
- PutFile: TFileStream;
- Len: Integer;
-begin
- pdwReserved := 0;
- if Assigned(FSender.FOnGetBindInfoEx) then
- FSender.FOnGetBindInfoEx(Self, grfBINDF, pbindinfo, grfBINDF2);
- grfBINDF := BscbInfo.infBindF_Value; {Insert our options.}
- grfBINDF2 := BscbInfo.infBindF2_Value; {Insert our options 2.}
- with pbindinfo do {Lets play with our options.}
- begin
- cbSize := SizeOf(TBindInfo);
- if FRedirect then
- begin {Set method to get in case of redirect}
- dwBindVerb := BINDVERB_GET;
- end
- else {Insert the options}
- dwBindVerb := BscbInfo.infBindVerb_Value;
- grfBindInfoF := BscbInfo.infBindInfoF_Value;
- dwCodePage := BscbInfo.infCodePage_Value;
- {Insert security arguments}
- with SecurityAttributes do
- begin
- nLength := SizeOf(TSecurityAttributes);
- bInheritHandle := BscbInfo.infInheritHandle;
- if BscbInfo.infDescriptor <> '' then
- lpSecurityDescriptor := PAnsiChar(BscbInfo.infDescriptor)
- else
- lpSecurityDescriptor := nil;
- end;
- {Insert Extra Info}
- if BscbInfo.infExtraInfo <> EmptyStr then
- begin
- Len := Length(BscbInfo.infExtraInfo);
- szExtraInfo := CoTaskMemAlloc((Len + 1) * SizeOf(WideChar));
- StringToWideChar(BscbInfo.infExtraInfo, szExtraInfo, Len + 1);
- end
- else
- szExtraInfo := nil;
- case BscbInfo.infBindVerb_Value of
- {Now we will set by our BindVerbOption}
- BINDVERB_PUT: {Perform an HTTP PUT operation. The data to put should be
- specified in the stgmedData member of the BINDINFO structure.}
- if BscbInfo.infPutFileName <> EmptyStr then
- begin
- PutFile := TFileStream.Create(BscbInfo.infPutFileName,
- fmOpenRead);
- try
- PutFile.Seek(0, 0);
- FGlobalData := GlobalAlloc(GPTR, PutFile.Size);
- FDataSize := PutFile.Size;
- PutFile.ReadBuffer(Pointer(FGlobalData)^, PutFile.Size);
- finally
- PutFile.Free;
- end;
- end;
- BINDVERB_POST: {Perform an HTTP POST operation.
- The data to be posted should be specified in the stgmedData
- member of the BINDINFO structure.}
- if BscbInfo.infPostData <> EmptyStr then
- begin
- FGlobalData := GlobalAlloc(GPTR, Length(BscbInfo.infPostData)
- + 1);
- FDataSize := Length(BscbInfo.infPostData) + 1;
- Move(BscbInfo.infPostData[1], Pointer(FGlobalData)^,
- Length(BscbInfo.infPostData));
- end;
- BINDVERB_CUSTOM: {Perform a custom operation that is protocol-specific
- See the szCustomVerb member of the BINDINFO structure.
- The data to be used in the custom operation should be specified
- in the stgmedData structure.}
- if (BscbInfo.infCustomVerb <> EmptyStr) then
- begin
- Len := Length(BscbInfo.infCustomVerb);
- szCustomVerb := CoTaskMemAlloc((Len + 1) * SizeOf(WideChar));
- StringToWideChar(BscbInfo.infCustomVerb, szCustomVerb, Len + 1);
- end
- else {BINDVERB_GET so no need to play arround.}
- szCustomVerb := nil;
- end;
- FillChar(stgmedData, 0, SizeOf(STGMEDIUM));
- cbStgmedData := FDataSize;
- with StgmedData do
- begin
- if dwBindVerb = BINDVERB_GET then
- {The stgmedData member of the BINDINFO
- structure should be set to TYMED_NULL for the GET operation}
- Tymed := TYMED_NULL
- else
- Tymed := TYMED_HGLOBAL;
- {this is the only medium urlmon supports right now}
- hGlobal := FGlobalData;
- IUnknown(unkForRelease) := Self; {Set the IUnknown interface}
- end;
- end;
- Result := S_OK;
-end;
-
-{IBindStatusCallback Interface}
-{Accepts information on an asynchronous bind operation.}
-
-function TBSCB.GetBindInfo(out grfBINDF: DWORD; var BindInfo: TBindInfo):
- HRESULT;
-{Provides information about how the bind operation is handled when
- it is called by an asynchronous moniker.
-Returns S_OK if this is successful or E_INVALIDARG if one or more parameters are invalid.}
-var
- PutFile: TFileStream;
- Len: Integer;
-begin
- grfBINDF := BscbInfo.infBindF_Value; {Insert our options.}
- with BindInfo do {Lets play with our options.}
- begin
- cbSize := SizeOf(TBindInfo);
- if FRedirect then
- begin {Set method to get in case of redirect}
- dwBindVerb := BINDVERB_GET;
- end
- else {Insert the options}
- dwBindVerb := BscbInfo.infBindVerb_Value;
- grfBindInfoF := BscbInfo.infBindInfoF_Value;
- dwCodePage := BscbInfo.infCodePage_Value;
- {Insert security arguments}
- with SecurityAttributes do
- begin
- nLength := SizeOf(TSecurityAttributes);
- bInheritHandle := BscbInfo.infInheritHandle;
- if BscbInfo.infDescriptor <> '' then
- lpSecurityDescriptor := PAnsiChar(BscbInfo.infDescriptor)
- else
- lpSecurityDescriptor := nil;
- end;
- {Insert Extra Info}
- if BscbInfo.infExtraInfo <> EmptyStr then
- begin
- Len := Length(BscbInfo.infExtraInfo);
- szExtraInfo := CoTaskMemAlloc((Len + 1) * SizeOf(WideChar));
- StringToWideChar(BscbInfo.infExtraInfo, szExtraInfo, Len + 1);
- end
- else
- szExtraInfo := nil;
- case BscbInfo.infBindVerb_Value of
- {Now we will set by our BindVerbOption}
- BINDVERB_PUT: {Perform an HTTP PUT operation. The data to put should be
- specified in the stgmedData member of the BINDINFO structure.}
- if BscbInfo.infPutFileName <> EmptyStr then
- begin {Create a process to put a file}
- PutFile := TFileStream.Create(BscbInfo.infPutFileName,
- fmOpenRead);
- try
- PutFile.Seek(0, 0);
- FGlobalData := GlobalAlloc(GPTR, PutFile.Size);
- FDataSize := PutFile.Size;
- PutFile.ReadBuffer(Pointer(FGlobalData)^, PutFile.Size);
- finally
- PutFile.Free;
- end;
- end;
-
- BINDVERB_POST: {Perform an HTTP POST operation.
- The data to be posted should be specified in the stgmedData
- member of the BINDINFO structure.}
- if BscbInfo.infPostData <> EmptyStr then
- begin
- FGlobalData := GlobalAlloc(GPTR, Length(BscbInfo.infPostData)
- + 1);
- FDataSize := Length(BscbInfo.infPostData) + 1;
- Move(BscbInfo.infPostData[1], Pointer(FGlobalData)^,
- Length(BscbInfo.infPostData));
- end;
- BINDVERB_CUSTOM: {Perform a custom operation that is protocol-specific
- See the szCustomVerb member of the BINDINFO structure.
- The data to be used in the custom operation should be specified
- in the stgmedData structure.}
- if (BscbInfo.infCustomVerb <> EmptyStr) then
- begin
- Len := Length(BscbInfo.infCustomVerb);
- szCustomVerb := CoTaskMemAlloc((Len + 1) * SizeOf(WideChar));
- StringToWideChar(BscbInfo.infCustomVerb, szCustomVerb, Len + 1);
- end
- else {BINDVERB_GET so no need to play arround.}
- szCustomVerb := nil;
- end;
- FillChar(stgmedData, 0, SizeOf(STGMEDIUM));
- cbStgmedData := FDataSize;
- with StgmedData do
- begin
- if dwBindVerb = BINDVERB_GET then
- {The stgmedData member of the BINDINFO
- structure should be set to TYMED_NULL for the GET operation}
- Tymed := TYMED_NULL
- else
- Tymed := TYMED_HGLOBAL;
- {this is the only medium urlmon supports right now}
- hGlobal := FGlobalData;
- IUnknown(unkForRelease) := Self; {Set the IUnknown interface}
- end;
- end;
- if Assigned(FSender.FOnGetBindInfo) then
- FSender.FOnGetBindInfo(Self, grfBINDF, BindInfo);
- Result := S_OK;
-end;
-
-function TBSCB.GetPriority(out nPriority): HRESULT;
-{Gets the priority for the bind operation when it is called by an asynchronous moniker.}
-{Returns S_OK if this is successful or E_INVALIDARG if the pnPriority parameter is invalid.}
-begin {if you want to set priority you should implement SetPriority in your application}
- Result := S_OK;
- if (FSender.FCancel) and (Binding <> nil) then
- binding.Abort
-end;
-
-function TBSCB.OnDataAvailable(grfBSCF, dwSize: DWORD; FormatEtc: PFormatEtc;
- stgmed: PStgMedium): HRESULT;
-{Provides data to the client as it becomes available during
-asynchronous bind operations.OnDataAvailable return E_PENDING
-when they reference data not yet available through their read
-methods, rather than blocking until the data becomes available.
- This flag applies only to ASYNCHRONOUS operations}
-{Returns S_OK if this is successful or E_INVALIDARG if one or more parameters are invalid.}
-var
- Data: PByte;
- BufL, dwRead, dwActuallyRead: Cardinal;
-begin
- if (FSender.FCancel) and (Binding <> nil) then
- binding.Abort
- else
- begin
-
- if Assigned(FSender.FOnDataAvailableInfo) then
- FSender.FOnDataAvailableInfo(Self, grfBSCF,
- DataAvalibleToStr(grfBSCF) {, FormatEtc});
-
- if Assigned(FBSCBTimer) then {reset our timer.}
- begin
- FBSCBTimer.Enabled := False;
- FBSCBTimer.Enabled := True;
- end;
-
- if (grfBSCF = grfBSCF or BSCF_FIRSTDATANOTIFICATION) then
- begin
-
- if (fOutStream = nil) and (stgmed.tymed = TYMED_ISTREAM) then
- fOutStream := IStream(stgmed.stm);
- if Assigned(m_pPrevBSCB) and not Assigned(fsOutputFile)
- and (BscbInfo.infFileName <> '') then
- try
- //TODO: check for resume
- fsOutputFile := TFileStream.Create(DoSaveFileAs, fmCreate);
- BscbInfo.infRangeBegin := 0;
- except on EFCreateError do
- begin
- Binding.Abort;
- Result := E_FAIL;
- Exit;
- fsOutputFile.Free;
- end;
- end;
- end;
- dwRead := dwSize - FTotalRead;
- dwActuallyRead := 0;
- if (dwRead > 0) then
- repeat
- Data := AllocMem(dwRead + 1);
- fOutStream.Read(Data, dwRead, @dwActuallyRead);
- BufL := dwActuallyRead;
- if Assigned(FSender.FOnDataAvailable) then
- begin
- FSender.FOnDataAvailable(self, Data, BufL);
- end;
- if (BscbInfo.infFileName <> '') and Assigned(fsOutputFile) then
- begin
- fsOutputFile.WriteBuffer(Data^, BufL);
- end
- else if Assigned(Stream) then
- Stream.WriteBuffer(Data^, BufL);
- Inc(FTotalRead, dwActuallyRead);
- FreeMem(Data);
- until dwActuallyRead = 0;
- end;
- Result := S_OK;
- {if (grfBSCF = grfBSCF or BSCF_FIRSTDATANOTIFICATION) then
- begin
- if (fOutStream = nil) and (stgmed.tymed = TYMED_ISTREAM) then
- fOutStream := IStream(stgmed.stm);
- if Assigned(m_pPrevBSCB) and not Assigned(fsOutputFile)
- //and (BscbInfo.infFileName <> '')
- then
- // and (FSender.FDownloadMethod = dmFile) then
- try
- fsOutputFile := TFileStream.Create(DoSaveFileAs, fmCreate);
- BscbInfo.infRangeBegin := 0;
- except on EFCreateError do
- begin
- Binding.Abort;
- Result := E_INVALIDARG;
- if Assigned(FSender.FOnError) then
- FSender.FOnError(GetLastError, SysErrorMessage(GetLastError));
- fsOutputFile.Free;
- Exit;
- end;
- end;
- end;
- dwRead := dwSize - FTotalRead;
- dwActuallyRead := 0;
- if (dwRead > 0) then
- repeat
- Data := AllocMem(dwRead + 1); //to fix stack overflow
- fOutStream.Read(Data, dwRead, @dwActuallyRead);
- BufL := dwActuallyRead;
- if Assigned(FSender.FOnDataAvailable) then
- FSender.FOnDataAvailable(Self, Data, Bufl);
- try
- Stream.WriteBuffer(Data^, Bufl);
- except
- on EWriteError do
- begin
- Binding.Abort;
- Result := E_INVALIDARG;
- if Assigned(FSender.FOnError) then
- FSender.FOnError(GetLastError, SysErrorMessage(GetLastError));
- fsOutputFile.Free;
- Exit;
- end;
- end;
-
- if (FSender.FDownloadMethod = dmFile) and Assigned(fsOutputFile) then
- begin
- try
- fsOutputFile.WriteBuffer(Data^, bufl);
- except
- on EWriteError do
- begin
- Binding.Abort;
- Result := E_INVALIDARG;
- if Assigned(FSender.FOnError) then
- FSender.FOnError(GetLastError, SysErrorMessage(GetLastError));
- fsOutputFile.Free;
- Exit;
- end
- end;
- end;
- Inc(FTotalRead, dwActuallyRead);
- FreeMem(Data);
- until dwActuallyRead = 0;
-end;
-Result := S_OK;}
-end;
-
-function TBSCB.OnLowResource(Reserved: DWORD): HRESULT;
-{Not implemented by MS.}
-begin
- Result := E_NOTIMPL;
-end;
-
-function TBSCB.OnObjectAvailable(const IID: TGUID; punk: IUnknown): HRESULT;
-{Passes the requested object interface pointer to the client.}
-{Returns S_OK if this is successful or E_INVALIDARG if one or more parameters are invalid.}
-begin
- Self._AddRef;
- if (FSender.FCancel) and (Binding <> nil) then
- binding.Abort;
- Result := S_OK;
-end;
-
-function TBSCB.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG;
- szStatusText: LPCWSTR): HRESULT;
-{Indicates the progress and the status of the bind operation.}
-{Returns S_OK if this is successful or E_INVALIDARG if one or more parameters are invalid.}
-{Avalible flags: http://msdn.microsoft.com/en-us/library/ms775133(VS.85).aspx}
-var
- Percent, Speed, Elapsed, Downloaded, RemainingTime, Status: string;
- _Speed: Single;
- bAbort: Boolean;
- tmpElapsed, iFileSize: integer;
-begin
- if (FSender.FCancel) and (Binding <> nil) then
- Binding.Abort
- else
- begin
- tmpElapsed := 0;
- bAbort := False;
- Status := ResponseCodeToStr(ulStatusCode);
- if (ulProgress > ulProgressMax) then
- ulProgressMax := ulProgress;
- iFileSize := ulProgressMax;
- FSender.FFileSize := ulProgressMax;
- {For a download manager}
- if Assigned(m_pPrevBSCB) then
- begin
- {Weed to do this otherwise a filedownload dlg will be displayed
- as we are downloading the file.}
- if (ulStatusCode = BINDSTATUS_CONTENTDISPOSITIONATTACH) then
- begin
- Result := S_OK;
- Exit; {We must exit so no DLG will be displayed}
- end;
- m_pPrevBSCB.OnProgress(ulProgress, ulProgressMax, ulStatusCode,
- szStatusText);
- end;
- case ulStatusCode of
- BINDSTATUS_REDIRECTING: {redirecting}
- begin
- FRedirect := True;
- FSender.FServerAddress := szStatusText;
- if (Assigned(FSender.FOnRedirect)) and
- (FSender.FUrl <> szStatusText) then
- FSender.FOnRedirect(Self, bAbort, FSender.FUrl, szStatusText);
- if bAbort then {If we do not wish to be redirect}
- begin
- FSender.FCancel := True;
- Result := E_INVALIDARG;
- Exit;
- end;
- {Get the new addreess after redirecing}
- if (FSender.FDownloadMethod = dmFile) then
- FSender.SetFileNameFromUrl(szStatusText);
- end;
- BINDSTATUS_CONNECTING: FSender.FServerIP := szStatusText;
- BINDSTATUS_MIMETYPEAVAILABLE: FSender.FMimeType := szStatusText;
- BINDSTATUS_BEGINDOWNLOADDATA: FSender.FServerAddress := szStatusText;
- BINDSTATUS_DOWNLOADINGDATA: {We are downloading so here we will calculate download variables}
- if Assigned(FSender.FOnProgress) then
- begin
- if (ulProgress {+ BscbInfo.infRangeBegin} > 0) then
- Downloaded := FormatSize(ulProgress {+ BscbInfo.infRangeBegin});
- if (ulProgressMax > 0) and (ulProgress > 0) then
- Percent := Format('%.1f %%', [ulProgress / ulProgressMax * 100]);
- QueryPerformanceCounter(TimeNow);
- if (TimeNow > TimeStarted)
- {and (Round((TimeNow-TimeStarted)/Frequency) <= tmpElapsed)}then
- begin
- tmpElapsed := Round((TimeNow - TimeStarted) / Frequency);
- Elapsed := SecToStr(tmpElapsed);
- end;
- try
- if (ulProgress > 0) and (tmpElapsed > 0) then
- _Speed := ulProgress / 1024 / tmpElapsed
- else
- _Speed := 0;
- Speed := Format('%.1f ' + kb_sec, [_Speed]);
- if (ulProgressMax > 0) and ((_Speed) > 0) and (ulProgressMax >
- ulProgress) then
- RemainingTime := SecToStr(Round(ulProgressMax / _speed / 1000)
- - Round(ulProgress / _speed / 1000))
- else
- RemainingTime := TimeToStr(0);
- except
- on EZeroDivide do
- RemainingTime := TimeToStr(0);
- end;
- end;
-
- BINDSTATUS_ENDDOWNLOADDATA: {You are joking right? NO MORE DATA TO DOWNLOAD}
- begin
- Downloaded := done;
- ulProgress := 0;
- ulProgressMax := 0;
- Speed := '0/00' + kb_sec;
- RemainingTime := '00.00.00';
- Status := done;
- Percent := '100%';
- end;
- {Here you can add more handlers to any BINDSTATUS_ you like}
- end;
-
- if Assigned(FSender.FOnProgress) then {Publish the event}
- FSender.FOnProgress(Self, ulProgress {+ BscbInfo.infRangeBegin},
- ulProgressMax {+ BscbInfo.infRangeBegin}, ulStatusCode, iFileSize,
- szStatusText,
- Downloaded, Elapsed, Speed, RemainingTime, Status, Percent);
- end;
- Result := S_OK;
-end;
-
-function TBSCB.GetFileNameFromUrl(Url: string): string;
-var
- Ut: TUrl;
-begin
- Ut := TUrl.Create(Url);
- try
- Ut.CrackUrl(Url, ICU_ESCAPE);
- if AnsiPos('.', Ut.ExtraInfo) = 0 then
- Result := FSender.FDefaultUrlFileName
- else
- Result := Ut.ExtraInfo;
- finally
- Ut.Free;
- end;
-end;
-
-function TBSCB.OnStartBinding(dwReserved: DWORD; pib: IBinding): HRESULT;
-{Notifies the client about the callback methods that it is registered to receive.}
-{Returns S_OK if this is successful or
- E_INVALIDARG if the pib parameter is invalid.
-To abort the binding we should return E_FAIL.}
-var
- bAbort: Boolean;
-begin
- //dwReserved:= 0; // A demand by ms that is not needed.}
- if FSender.FCancel then
- Result := E_FAIL
- else
- begin
-
- Result := S_OK;
- bAbort := False;
- Binding := pib; {A pointer to the IBinding interface}
- Binding._AddRef; {To be released on StopBinding}
- {We will try to get the file size using query info}
- QueryInfo(HTTP_QUERY_CONTENT_LENGTH, BscbInfo.infFileSize);
- QueryInfoFileName;
- if Assigned(FSender.FOnBeforeDownload) then
- FSender.FOnBeforeDownload(BscbInfo, BscbInfo.infUrl, BscbInfo.infFileName,
- BscbInfo.infFileExt, BscbInfo.infHost, BscbInfo.infDownloadFolder,
- BscbInfo.infFileSize, bAbort);
-
- {For the download manager}
- FSender.FFileName := BscbInfo.infFileName;
- FSender.FDownloadFolder := BscbInfo.infDownloadFolder;
- if Assigned(m_pPrevBSCB) then
- m_pPrevBSCB.OnStopBinding(HTTP_STATUS_OK, nil);
-
- {Remove file name which is not needed for stream}
- case FSender.FDownloadMethod of
- dmStream: BscbInfo.infFileName := EmptyStr;
- dmFile:
- begin {Try # 2}
- if (BscbInfo.infFileName = EmptyStr) and (FSender.FDownloadTo =
- dtMoniker) then
- BscbInfo.infFileName := GetFileNameFromUrl(FSender.FUrl)
- else
- begin
- if (BscbInfo.infFileName = EmptyStr) and (not FSender.bRenamed) and
- (BscbInfo.infFileName <> GetFileNameFromUrl(BscbInfo.infUrl)) then
- BscbInfo.infFileName := GetFileNameFromUrl(BscbInfo.infUrl);
- end;
- end;
- end;
- if Assigned(FSender.FOnStartBinding) then
- FSender.FOnStartBinding(Self, bAbort, Binding, BscbInfo.infFileName,
- BscbInfo.infFileSize);
- if bAbort then
- begin {Note: We are still in busy state until OnStopBinding!!}
- Result := E_FAIL; {Do not use Binding.Abort! Just send E_FAIL}
- FSender.FCancel := True;
- end;
- end;
-end;
-
-function TBSCB.OnStopBinding(HRESULT: HRESULT; szError: LPCWSTR): HRESULT;
-{This method indicates the end of the bind operation.
-Returns S_OK if this is successful or an error value otherwise.}
-var
- clsidProtocol: TCLSID;
- dwResult: DWORD;
- szResult: POLEStr;
- HR: System.HRESULT;
-begin //OK
- if (FSender.FDownloadTo = dtDownloadToFile)
- or (FSender.FDownloadTo = dtDownloadToCache) then
- begin
- Result := S_OK;
- Exit;
- end;
-
- if (Assigned(m_pPrevBSCB) and Assigned(FBindCtx)) then
- {Stores an IUnknown pointer on the specified object }
- begin {To be used with a download manager}
- HR := FBindCtx.RegisterObjectParam('_BSCB_Holder_', m_pPrevBSCB);
- if Failed(HR) and Assigned(FSender.FOnError) then
- FSender.FOnError(GetLastError, SysErrorMessage(GetLastError))
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, Registering_new_moniker +
- ResponseCodeToStr(HR));
- m_pPrevBSCB._Release;
- m_pPrevBSCB := nil;
- FBindCtx._Release;
- FBindCtx := nil;
- Dec(FSender.FRefCount);
- end;
-
- GetBindResult(clsidProtocol, dwResult, szResult);
- if FTimedOut then
- begin {If we reached TimeOut them we will post the event}
- HRESULT := INET_E_CONNECTION_TIMEOUT;
- if Assigned(FSender.FOnError) then
- FSender.FOnError(HRESULT, ResponseCodeToStr(HRESULT));
- end;
- if Assigned(FSender.FOnStopBinding) then
- FSender.FOnStopBinding(Self, HRESULT, szError);
- Result := HRESULT;
- FSender.FState := sStopped;
- if Assigned(FSender.FOnStateChange) then
- FSender.FOnStateChange(FSender.FState);
-
- if Assigned(FSender.FOnStreamComplete) then
- FSender.FOnStreamComplete(Self, Stream, HRESULT);
- FSender.bDone := True;
- SetEvent(FSender.hStop);
- Terminate;
- Dec(FSender.FActiveConnections);
- if FSender.FActiveConnections = 0 then
- SetEvent(FSender.hProcess);
-end;
-
-{IServiceProvider Interface}
-
-function TBSCB.QueryService(const rsid, iid: TGUID; out Obj): HRESULT;
-begin
- Pointer(Obj) := nil;
- if Assigned(FSender.FOnQueryService) then
- FSender.FOnQueryService(Self, rsid, iid, IUnknown(obj));
- if Pointer(Obj) <> nil then
- Result := S_OK
- else
- Result := E_NOINTERFACE;
-end;
-
-{ICodeInstall Interface}
-
-function TBSCB.OnCodeInstallProblem(ulStatusCode: ULONG; szDestination,
- szSource: LPCWSTR; dwReserved: DWORD): HResult; stdcall;
-{Returns a value based on the status passed in, which indicates
-whether to abort the application installation or file download.
-S_OK Indicates that the installation or download should continue.
-E_ABORT Indicates that the installation or download should abort.}
-begin
- dwReserved := 0;
- if Assigned(FSender.FOnCodeInstallProblem) then
- Result := FSender.FOnCodeInstallProblem(Self, ulStatusCode, szDestination,
- szSource, dwReserved, ResponseCodeToStr(ulStatusCode))
- else
- Result := S_OK;
-end;
-
-{IUnknown Interface}
-
-function TBSCB.QueryInterface(const IID: TGUID; out Obj): HRESULT;
-{S_OK if the interface is supported, E_NOINTERFACE if not.}
-begin
- Self._AddRef;
- if Assigned(FSender.OnQueryInterface) then
- FSender.OnQueryInterface(IID, Obj);
- if GetInterface(IID, Obj) then
- Result := 0
- else
- Result := E_NOINTERFACE;
-end;
-
-function TBSCB._AddRef: Integer;
-{The IUnknown::AddRef method increments the reference count for
- an interface on an object.}
-begin
- Result := InterlockedIncrement(FSender.FRefCount);
-end;
-
-function TBSCB._Release: Integer;
-{Decrements the reference count for the calling interface on a object. }
-begin
- Result := InterlockedDecrement(FSender.FRefCount);
- if Result = 0 then
- Destroy;
-end;
-
-{IWindowForBindingUI Interface}
-
-function TBSCB.GetWindow(const GUIDReason: TGUID; out hwnd): HRESULT;
-{Returns S_OK if the window handle was successfully returned,
- or E_INVALIDARG if the phwnd parameter is invalid.
- If you implement this interface, you can return S_FALSE
- for this method to indicate that no window is available for
- to display user interface information.}
-begin
- if Assigned(FSender.FGetWindow) then
- Result := FSender.FGetWindow(Self, GUIDReason, LongWord(hwnd))
- else
- Result := S_OK;
-end;
-
-{IHttpSecurity}
-
-function TBSCB.OnSecurityProblem(dwProblem: DWORD): HResult;
-{RPC_E_RETRY The calling application should continue or retry the download.
-S_FALSE The calling application should open a dialog box to warn the user.
-E_ABORT The calling application should abort the download.}
-begin
- if Assigned(FSender.FOnSecurityProblem) then
- Result := FSender.FOnSecurityProblem(Self, dwProblem,
- ResponseCodeToStr(dwProblem))
- else
- Result := S_FALSE;
-end;
-
-function TBSCB.GetSerializedClientCertContext(out ppbCert: Byte; var pcbCert:
- DWORD): HResult; stdcall;
-begin
- if Assigned(FSender.FOnGetClientCert) then
- Result := FSender.FOnGetClientCert(Self, ppbCert, pcbCert)
- else
- Result := S_FALSE;
-end;
-{$IFDEF DELPHI6_UP}
-
-function TBSCB.AuthenticateEx(out phwnd: HWND; out pszUsername,
- pszPassword: LPWSTR; var pauthinfo: AUTHENTICATEINFO): HResult; stdcall;
-var
- aUser, aPwd: WideString;
- tmpHWND: HWND;
-begin
- Result := S_OK;
- phwnd := FSender.FHWnd;
- aUser := EmptyStr;
- aPwd := EmptyStr;
- if Assigned(FSender.FOnAuthenticateEx) then
- FSender.FOnAuthenticateEx(Self, tmpHWND, aUser, aPwd,
- pauthinfo, Result);
- if aUser <> EmptyStr then
- pszUserName := WidestringToLPOLESTR(aUser)
- else
- pszUserName := nil;
- if aPwd <> EmptyStr then
- pszPassWord := WidestringToLPOLESTR(aPwd)
- else
- pszPassWord := nil;
-end;
-
-function TBSCB.PutProperty(mkp: MONIKERPROPERTY; val: LPCWSTR): HResult;
-{This interface is implemented by persistent monikers,
- such as a MIME handler, to get properties about the moniker
- being handled.}
-begin
- if Assigned(FSender.FOnPutProperty) then
- Result := FSender.FOnPutProperty(Self, mkp, val)
- else
- Result := E_NOTIMPL;
-end;
-{$ENDIF}
-
-function TBSCB.GetBindResult(out clsidProtocol: TCLSID; out dwResult: DWORD;
- out szResult: POLEStr): HRESULT;
-{Gets the protocol-specific outcome of a bind operation.}
-var
- dwReserved: DWORD;
-begin
- dwReserved := 0;
- if (Binding <> nil) then
- Result := Binding.GetBindResult(clsidProtocol, dwResult, szResult,
- dwReserved)
- else
- Result := E_FAIL;
- if Assigned(FSender.FOnGetBindResults) then
- FSender.FOnGetBindResults(Self, clsidProtocol, dwResult,
- szResult, ResponseCodeToStr(dwResult));
- if (Result <> S_OK) and (Assigned(FSender.FOnError)) then
- FSender.FOnError(Result, ResponseCodeToStr(Result));
-end;
-
-function TBSCB.CheckCancelState: Integer;
-begin
- if (FSender.FCancel = True) then
- Result := E_ABORT
- else
- Result := S_OK;
-end;
-
-procedure TBSCB.TimerExpired(Sender: TObject);
-begin
- FTimedOut := True;
-end;
-
-procedure TBSCB.ClearAll;
-begin {Reset our resources}
- if Assigned(Binding) then
- Binding.Abort;
- FGlobalData := 0;
- FTotalRead := 0;
- if m_pPrevBSCB <> nil then
- m_pPrevBSCB := nil;
-end;
-
-function TBSCB.QueryInfo(dwOption: DWORD; var Info: Cardinal): Boolean;
-var
- HttpInfo: IWinInetHttpInfo;
- C: Cardinal;
- BufferLength: Cardinal;
- Reserved, dwFlags: Cardinal;
-begin
- if (Assigned(Binding) and (Binding.QueryInterface(IWinInetHttpInfo, HttpInfo)
- = S_OK)) then
- begin
- Info := 0;
- Reserved := 0;
- dwFlags := 0;
- BufferLength := SizeOf(Cardinal);
- Result := not Boolean(HttpInfo.QueryInfo(dwOption or HTTP_QUERY_FLAG_NUMBER,
- @C, BufferLength, dwFlags, Reserved));
- HttpInfo := nil;
- if Result then
- Info := C;
- end
- else
- Result := False;
-end;
-
-function TBSCB.QueryInfo(dwOption: DWORD; var Info: string): Boolean;
-var
- Buf: array[0..INTERNET_MAX_PATH_LENGTH] of AnsiChar;
- HttpInfo: IWinInetHttpInfo;
- BufLength, dwReserved, dwFlags: Cardinal;
-begin
- if (Assigned(Binding) and (Binding.QueryInterface(IWinInetHttpInfo, HttpInfo)
- = S_OK)) then
- begin
- Info := '';
- dwReserved := 0;
- dwFlags := 0;
- BufLength := INTERNET_MAX_PATH_LENGTH + 1;
- Result := not Boolean(HttpInfo.QueryInfo(dwOption, @Buf, BufLength, dwFlags,
- dwReserved));
- HttpInfo := nil;
- if Result then
- Info := string(Buf);
- end
- else
- Result := False;
-end;
-
-function TBSCB.QueryInfo(dwOption: DWORD; var Info: TDateTime): Boolean;
-var
- HttpInfo: IWinInetHttpInfo;
- SysTime: TSystemtime;
- BufferLength: Cardinal;
- Reserved, dwFlags: Cardinal;
-begin
- if (Assigned(Binding) and (Binding.QueryInterface(IWinInetHttpInfo, HttpInfo)
- = S_OK)) then
- begin
- Info := 0;
- Reserved := 0;
- dwFlags := 0;
- BufferLength := SizeOf(TSystemTime);
- Result := not Boolean(HttpInfo.QueryInfo(dwOption or
- HTTP_QUERY_FLAG_SYSTEMTIME,
- @SysTime, BufferLength, dwFlags, Reserved));
- HttpInfo := nil;
- if Result then
- Info := SystemTimeToDateTime(SysTime);
- end
- else
- Result := False;
-end;
-
-function TBSCB.DoSaveFileAs: string;
-begin
- if FSender.FDownloadMethod = dmFile then
- begin
- with BscbInfo do
- begin
- if (infFileName = EmptyStr) then
- infFileName := FSender.SetFileNameFromUrl(infUrl);
- if (infFileName = EmptyStr) then
- infFileName := FSender.FDefaultUrlFileName;
- end;
- with FSender do
- begin
- FDownloadedFile := BscbInfo.infDownloadFolder + BscbInfo.infFileName;
- FFileExtension := ExtractFileExt(FSender.FDownloadedFile);
- BscbInfo.infFileExt := FFileExtension;
- FFileName := BscbInfo.infFileName;
- FDownloadFolder := BscbInfo.infDownloadFolder;
- end;
- Result := CharReplace(FSender.FDownloadedFile, '?', '_');
- ;
- end;
-end;
-
-function TBSCB.QueryInfoFileName: HRESULT;
-const
- CD_FILE_PARAM = 'filename=';
-var
- i: Integer;
- st, sTmp: string;
- res: Boolean;
-begin
- Result := E_FAIL;
- sTmp := '';
- res := QueryInfo(HTTP_QUERY_CONTENT_DISPOSITION, sTmp);
- if not res then
- Exit;
- i := Pos(CD_FILE_PARAM, sTmp);
- if (i > 0) then
- begin
- sTmp := Copy(sTmp, i + Length(CD_FILE_PARAM), Length(sTmp) - i);
- if (sTmp[1] = '"') then
- i := Pos('";', sTmp)
- else
- i := Pos(';', sTmp);
- //TODO: what's happen, if the filename contains a quotion mark?
- if (i > 0) then
- sTmp := Copy(sTmp, 1, i);
- if (sTmp[1] = '"') then
- begin
- st := (Copy(sTmp, 2, Length(sTmp) - 2));
- BscbInfo.infFileName := Copy(sTmp, 2, Length(sTmp) - 2);
- end
- else
- BscbInfo.infFileName := sTmp;
- if (Length(sTmp) > 0) then
- Result := S_OK;
- end;
- FSender.FFileName := BscbInfo.infFileName; {Return Data}
-end;
-
-function TBSCB.IsRunning: Boolean;
-begin
- if (Succeeded(FMoniker.IsRunning(FBindCtx, FMoniker, nil))) then
- Result := True
- else
- Result := False;
-end;
-
-function TBSCB.GetDisplayName: PWideChar;
-begin {Expensive operation so I'll do it only once.
- For extra info use MkParseDisplayName }
- if IsRunning then
- FMoniker.GetDisplayName(FBindCtx, nil, Result);
-end;
-
-function TBSCB.MkParseDisplayName(var DisplayName: PWideChar): IMoniker;
-var
- i: cardinal;
-begin
- UrlMon.MkParseDisplayNameEx(FBindCtx, DisplayName, i, Result);
-end;
-
-function TBSCB.CreateMoniker(szName: POLEStr; BC: IBindCtx; out mk: IMoniker;
- dwReserved: DWORD): HResult;
-begin
- szName := StringToOleStr(BscbInfo.infUrl);
- Result := CreateURLMonikerEx(nil, szName, FMoniker, URL_MK_UNIFORM
- {URL_MK_LEGACY});
-end;
-
-function TBSCB.MonikerBindToStorage(Mk: IMoniker; BC: IBindCtx; BSC:
- IBindStatusCallback;
- const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult;
-begin
- Mk := FMoniker;
- BC := FBindCtx;
- BSC := Self;
- Result := Mk.BindToStorage(BC, nil, IStream, fOutStream);
-end;
-
-function TBSCB.MonikerBindToObject(Mk: IMoniker; BC: IBindCtx; BSC:
- IBindStatusCallback;
- const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult;
-begin
- Mk := FMoniker;
- BC := FBindCtx;
- BSC := Self;
- Result := Mk.BindToObject(BC, nil, IStream, fOutStream);
-end;
-
-function TBSCB.AbortBinding: HRESULT;
-begin
- Result := E_Fail;
- if Assigned(Binding) then
- Result := Binding.Abort;
-end;
-
-destructor TBSCB.Destroy;
-begin {Cleaning out and free our resources}
- ClearAll;
- if Assigned(Stream) then
- FreeAndNil(Stream);
- if Assigned(FBSCBTimer) then
- FreeAndNil(FBSCBTimer);
- if Assigned(fsOutputFile) then
- FreeAndNil(fsOutputFile);
- if (FGlobalData <> 0) then
- GlobalFree(FGlobalData);
- inherited;
-end;
-
-constructor TBSCB.Create(aSender: TCustomIEDownload; const pmk: IMoniker;
- const pbc: IBindCtx; CreateSuspended: boolean);
-var
- tmp: PWideChar;
-begin
- inherited Create(CreateSuspended);
- FreeOnTerminate := False;
- if CreateSuspended then
- ThreadStatus := tsSuspended
- else
- ThreadStatus := tsWaiting;
- Stream := TMemoryStream.Create; {A stream to contain the download}
- FSender := aSender;
- FMoniker := pmk;
- FBindCtx := pbc;
- if FSender.FDownloadTo = dtMoniker then
- begin
- FSender.FBindF := FSender.FBindF + [GetNewestVersion];
- FSender.DoUpdate;
- FMoniker.GetDisplayName(FBindCtx, nil, tmp);
- FSender.FUrl := tmp;
- FSender.ItemsManager.SessionList.Add(tmp);
- end;
-end;
-
-procedure TBSCB.SetComponents;
-begin {Initial all internals before the process}
- QueryPerformanceFrequency(Frequency);
- QueryPerformanceCounter(TimeStarted);
- ClearAll; {Clearing Internals}
- FBSCBTimer := TTimer.Create(nil); {Creating Timer for a TimeOut option}
- FBSCBTimer.OnTimer := TimerExpired;
- FBSCBTimer.Interval := BscbInfo.infTimeOut;
- FTimedOut := False;
- if not FSender.IsSynchronous(BscbInfo) then {We are on Asynchronous mode}
- begin
- FSender.ItemsManager.Add(Self); {Adding asynchronous items}
- Inc(BscbInfo.infIndex); {Pass the index}
- Inc(FSender.FdlCounter);
- end;
-end;
-
-procedure TBSCB.Resume;
-begin
- inherited;
- ThreadStatus := tsRunning;
-end;
-
-procedure TBSCB.Suspend;
-begin
- inherited;
- ThreadStatus := tsSuspended;
-end;
-
-procedure TBSCB.Terminate;
-var
- bCanc: Boolean;
-begin
- if FSender.ActiveConnections = 0 then
- FSender.FBusy := False;
- ThreadStatus := tsTerminated;
- bCanc := False;
- if Assigned(FSender.FOnTerminate) then
- FSender.FOnTerminate(Self, ThreadID, BscbInfo.infFileName, bCanc);
- if bCanc then
- FSender.CancelAll;
- inherited;
-end;
-
-procedure TBSCB.Execute;
-begin
- if Terminated then
- Exit;
- try
- {Dont be in shock, as a tread it sometimes fail so we should succeed now}
- OleInitialize(nil);
- except
- end;
- ThreadStatus := tsRunning;
- Synchronize(ReceiveData);
- Synchronize(SetComponents);
- case FSender.FDownloadTo of
- dtNormal:
- begin
- Synchronize(DoConnect);
- Synchronize(ReturnData);
- end;
- dtMoniker:
- begin
- Synchronize(DoConnect);
- Synchronize(ReturnData);
- end;
- dtDownloadToCache: Synchronize(DoDownloadToCache);
- dtDownloadToFile: Synchronize(DoDownloadToFile);
- end;
- try
- if (Assigned(BscbInfo)) then
- finally
- BscbInfo.Clear;
- FreeAndNil(BscbInfo);
- end;
- OleUninitialize;
-end;
-
-procedure TBSCB.ReceiveData;
-begin
- BscbInfo := TInfoData.Create;
- GetData(FSender); {Pass Data to the TObject}
- FSender := TCustomIEDownload(BscbInfo.Sender);
-end;
-
-procedure TBSCB.ReturnData;
-begin
- with FSender do
- begin
- FDownloadedFile := BscbInfo.infDownloadFolder + BscbInfo.infFileName;
- FFileExtension := ExtractFileExt(FSender.FDownloadedFile);
- BscbInfo.infFileExt := FFileExtension;
- FFileName := BscbInfo.infFileName;
- FDownloadFolder := BscbInfo.infDownloadFolder;
- end;
-end;
-
-procedure TBSCB.DoDownloadToCache;
-var
- Buf: array[0..INTERNET_MAX_PATH_LENGTH] of char;
-begin
- if Succeeded(UrlMon.URLDownloadToCacheFile(nil, Pchar(BscbInfo.infUrl),
- Buf, SizeOf(Buf), 0, Self)) then
- FSender.ExtractDataFromFile(Buf);
- FSender.ItemsManager.Extract(Self);
-end;
-
-procedure TBSCB.DoDownloadToFile;
-var
- HR: integer;
- tmp: string;
-begin
- tmp := BscbInfo.infDownloadFolder + BscbInfo.infFileName;
- HR := UrlMon.URLDownloadToFile(nil, Pchar(BscbInfo.infUrl),
- PChar(tmp), 0, Self);
- if Failed(HR) and Assigned(FSender.FOnError) then
- FSender.FOnError(GetLastError, Err_ToFile + SysErrorMessage(GetLastError))
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, DL_ToFile + ResponseCodeToStr(HR));
- FSender.ExtractDataFromFile(tmp);
- FSender.ItemsManager.Extract(Self);
-end;
-
-procedure TBSCB.DoConnect;
-var
- Ut: TUrl;
- HR: HRESULT;
- pPrevBSCB, tmpBSC: IBindStatusCallback;
-begin
- FSender.bDone := False;
- FSender.hStop := 0;
- if FSender.FDownloadTo <> dtMoniker then
- begin
- HR := CreateURLMonikerEx(nil, BscbInfo.infUrl, FMoniker, URL_MK_UNIFORM
- {URL_MK_LEGACY});
- if Failed(HR) and Assigned(FSender.FOnError) then
- begin
- FSender.FOnError(GetLastError, Err_URLMEx +
- ResponseCodeToStr(HR));
- Exit;
- end
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, CreateURLMEx + ResponseCodeToStr(HR));
-
- HR := CreateAsyncBindCtx(0, Self, nil, FBindCtx);
- if Failed(HR) and Assigned(FSender.FOnError) then
- begin
- FSender.FOnError(GetLastError, Err_AsyncBindCtx +
- ResponseCodeToStr(HR));
- Exit;
- end
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, CreateABindCtx + ResponseCodeToStr(HR));
- end;
-
- FSender.FDisplayName := GetDisplayName;
- begin
- if FSender.FDisplayName <> EmptyStr then
- begin
- BscbInfo.infUrl := FSender.FDisplayName;
- FSender.FUrl := FSender.FDisplayName;
- end;
- Ut := TUrl.Create(BscbInfo.infUrl);
- try
- Ut.QueryUrl(BscbInfo.infUrl);
- BscbInfo.infFileName := Ut.Document;
- BscbInfo.infHost := Ut.HostName;
- finally
- Ut.Free;
- end;
- end;
-
- HR := RegisterBindStatusCallback(FBindCtx, Self, pPrevBSCB, 0);
- if Failed(HR) and Assigned(pPrevBSCB) then
- begin
- HR := FBindCtx.RevokeObjectParam('_BSCB_Holder_');
- if (Succeeded(HR)) then
- begin {Attempt register again, should succeed now}
- HR := RegisterBindStatusCallback(FBindCtx, Self, tmpBSC, 0);
- if (SUCCEEDED(HR)) then
- begin //Need to pass a pointer for BindCtx and previous BSCB to our implementation
- m_pPrevBSCB := pPrevBSCB;
- Self._AddRef;
- m_pPrevBSCB._AddRef;
- FBindCtx._AddRef;
- if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, Reg_BSCB + ResponseCodeToStr(HR));
- end
- else if Assigned(FSender.FOnError) then
- FSender.FOnError(GetLastError, Err_RegBSCB
- + ResponseCodeToStr(HR));
- end;
- end
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, Reg_BSCB +
- ResponseCodeToStr(HR));
- FSender.hStop := CreateEvent(nil, True, False, nil);
- HR := FMoniker.BindToStorage(FBindCtx, nil, IStream, fOutStream);
- if Failed(HR) and Assigned(FSender.FOnError) then
- begin
- FSender.FOnError(GetLastError, Err_BindToSt +
- ResponseCodeToStr(HR));
- Exit;
- end
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, Bind_To_St + ResponseCodeToStr(HR));
- repeat
- try
- if FSender.WaitForProcess(FSender.hStop, FSender.FStartTick,
- FSender.FTimeOut) then
- except
- if Assigned(FSender.FOnError) then
- FSender.FOnError(E_FAIL, Err_Proc_Ev);
- raise;
- end;
- until (FSender.FCancel) or (FSender.bDone)
- {and (stream = nil)}{or (BscbInfo.infIndex = 0)};
- HR := RevokeBindStatusCallback(FBindCtx, pPrevBSCB);
- if Failed(HR) then
- HR := RevokeBindStatusCallback(FBindCtx, tmpBSC);
- if Failed(HR) and Assigned(FSender.FOnError) then
- FSender.FOnError(HR, Err_Revoke + ResponseCodeToStr(HR))
- else if (Assigned(FSender.FOnConnect)) then
- FSender.FOnConnect(Self, HR, Revoke_BSCB + ResponseCodeToStr(S_OK));
-
- if FSender.FActiveConnections = 0 then
- FSender.FBusy := False;
- if not FSender.IsSynchronous(BscbInfo) then {We are on asynchronous mode}
- begin
- FSender.ItemsManager.Extract(Self);
- {Remove the item from our list because we finished}
- Dec(BscbInfo.infIndex); {Pass the new index}
- end;
-end;
-
-procedure TBSCB.GetData(aSender: TCustomIEDownload);
-begin {Get data from IEDownload to the iedInfo}
- with BscbInfo do
- begin
- infAdditionalHeader.AddStrings(aSender.FAdditionalHeader);
- infBindF_Value := aSender.FBindF_Value;
- infBindF2_Value := aSender.FBindF2_Value;
- infBindInfoF_Value := aSender.FBindInfoF_Value;
- infBindVerb_Value := aSender.FBindVerb_Value;
- infBindInfoOptions_Value := aSender.FBindVerb_Value;
- infCodePage_Value := aSender.FCodePageValue;
- infCustomVerb := aSender.FCustomVerb;
- infDescriptor := aSender.Security.FDescriptor;
- infDownloadFolder := aSender.FDownloadFolder;
- infExtraInfo := aSender.FExtraInfo;
- infFileName := aSender.FFileName;
- inFFileSize := 0;
- infInheritHandle := aSender.Security.FInheritHandle;
- infPassword := aSender.FPassword;
- infPostData := aSender.FPostData;
- infPutFileName := aSender.FPutFileName;
- infRangeBegin := aSender.Range.FRangeBegin;
- infRangeEnd := aSender.Range.FRangeEnd;
- infTimeOut := aSender.FTimeOut;
- infUrl := StringToOleStr(aSender.FUrl);
- infUserName := aSender.FUserName;
- Sender := aSender;
- end;
-end;
-
-{Enf of Callback procedure------------------------------------------------------}
-
-{BSCBList----------------------------------------------------------------------}
-
-function TBSCBList.byURL(Url: string): TBSCB; //by Jury Gerasimov
-var
- i: integer;
-begin
- Result := nil;
- for i := 0 to Count - 1 do
- if Items[i].BscbInfo.infUrl = Url then
- begin
- Result := Items[i];
- Break;
- end;
-end;
-
-function TBSCBList.GetItem(Index: Integer): TBSCB;
-begin
- Result := TBSCB(inherited GetItem(Index));
-end;
-
-procedure TBSCBList.SetItem(Index: Integer; Value: TBSCB);
-begin
- inherited SetItem(Index, Value);
-end;
-
-constructor TBSCBList.Create;
-begin
- inherited Create;
- SessionList := TStringList.Create;
-end;
-
-destructor TBSCBList.Destroy;
-begin
- FreeAndNil(SessionList);
- inherited Destroy;
-end;
-
-{End of BSCBList---------------------------------------------------------------}
-
-{IEDownload--------------------------------------------------------------------}
-
-constructor TCustomIEDownload.Create(AOwner: TComponent);
-begin
- inherited;
-{$IFDEF DELPHI7_UP}
- // TO Do: W1000 Symbol 'GetLocaleFormatSettings' is deprecated: 'Use TFormatSettings.Create(Locale)'
- GetLocaleFormatSettings(SysLocale.DefaultLCID, FFormatSettings);
- FFormatSettings.LongTimeFormat := Frmt_Time;
- // FFormatSettings:= TFormatSettings.Create(''); //use default locale
- FFormatSettings.TimeSeparator := '_'; {For the feRename}
-{$ELSE}
- FOldTimeSep := TimeSeparator;
- LongTimeFormat := Frmt_Time;
- TimeSeparator := '_'; {For the feRename}
-{$ENDIF}
- FAbout := IED_INFO;
- hProcess := 0;
- bDone := False;
- bCancelAll := False;
- FAdditionalHeader := TStringlist.Create;
- FAdditionalHeader.Add('Content-Type: application/x-www-form-urlencoded ');
- FBindF := [Asynchronous, AsyncStorage, PullData, NoWriteCache,
- GetNewestVersion];
- FBindF2 := [ReadDataOver4GB];
- FBindVerb := Get;
- FCodePageOption := Ansi;
- FBindInfoOption_ := [UseBindInfoOptions, AllowConnectMessages];
- FDefaultProtocol := 'http://';
- FDefaultUrlFileName := 'index.html';
- FdlCounter := 0;
- FActiveConnections := 0;
- FDownloadMethod := dmFile;
- FProxySettings := TProxySettings.Create;
- FProxySettings.FPort := 80;
- FRange := TRange.Create;
- FRefCount := 0;
- FSecurity := TSecurity.Create;
- FState := sReady;
- FBindInfoF := [];
- ItemsManager := TBSCBList.Create;
- SetUserAgent;
-end;
-
-procedure TCustomIEDownload.Loaded;
-begin
- inherited Loaded;
- if FTimeOut = 0 then
- FTimeOut := MaxInt;
- if (FProxySettings.FAutoLoadProxy) and (FProxySettings.FServer <> EmptyStr)
- then
- FProxySettings.SetProxy(FFullUserAgent, FProxySettings.FServer + ':' +
- IntToStr(FProxySettings.FPort));
-end;
-
-procedure TCustomIEDownload.Resume;
-begin
- if BS <> nil then
- BS.Resume;
-end;
-
-procedure TCustomIEDownload.Suspend;
-begin
- if BS <> nil then
- BS.Suspend;
-end;
-
-destructor TCustomIEDownload.Destroy;
-begin
-{$IFNDEF DELPHI7_UP}
- TimeSeparator := FOldTimeSep;
-{$ENDIF}
- FTimeOut := 0;
- FRange.Free;
- FSecurity.Free;
- FProxySettings.Free;
- ItemsManager.Free;
- if Assigned(FAdditionalHeader) then
- FreeAndNil(FAdditionalHeader);
- inherited;
-end;
-
-procedure TCustomIEDownload.BeforeDestruction;
-begin
- if FProxySettings.FAutoLoadProxy then
- FProxySettings.SetProxy(EmptyStr, EmptyStr); {To restore proxy settings}
- inherited BeforeDestruction;
-end;
-
-procedure TCustomIEDownload.Cancel;
-begin
- if (not FBusy) or (FState <> sBusy) then
- Exit;
- FCancel := True;
- Application.ProcessMessages;
-end;
-
-procedure TCustomIEDownload.Reset;
-begin
- if (FState = sBusy) then
- Exit;
- FCancel := False;
- bCancelAll := False;
- Application.ProcessMessages;
-end;
-
-procedure TCustomIEDownload.CancelAll;
-begin
- if (not FBusy) or (FState <> sBusy) then
- Exit;
- bCancelAll := True;
- FCancel := True;
- Application.ProcessMessages;
-end;
-
-procedure TCustomIEDownload.Cancel(const Item: TBSCB);
-begin
- Item.CheckCancelState;
- FCancel := True;
-end;
-
-procedure TCustomIEDownload.Update_BindInfoF_Value;
-const
- Acard_BindInfoF_Values: array[TBindInfoF] of Cardinal = (
- $00000001, $00000002);
-var
- i: TBindInfoF;
-begin
- FBindInfoF_Value := 0;
- if (FBindInfoF <> []) then
- for i := Low(TBindInfoF) to High(TBindInfoF) do
- if (i in FBindInfoF) then
- Inc(FBindInfoF_Value, Acard_BindInfoF_Values[i]);
-end;
-
-procedure TCustomIEDownload.Update_BindF_Value;
-const
- Acard_BindF_Values: array[TBindF] of Cardinal = (
- $00000001, $00000002, $00000004, $00000008, $00000010, $00000020,
- $00000040, $00000080, $00000100, $00000200, $00000400, $00000800,
- $00001000, $00002000, $00004000, $00008000, $00010000, $00020000,
- $00040000, $00080000, $00100000, $00200000, $00400000, $00800000);
-var
- i: TBindF;
-begin
- FBindF_Value := 0;
- if (FBindF <> []) then
- for i := Low(TBindF) to High(TBindF) do
- if (i in FBindF) then
- Inc(FBindF_Value, Acard_BindF_Values[i]);
-end;
-
-procedure TCustomIEDownload.Update_BindInfoOptions_Value;
-const
- AcardBindInfoOption_Values: array[TBindInfoOption] of Cardinal = (
- $00010000, $00020000, $00040000, $00080000, $00100000, $00200000,
- $00400000, $00800000, $01000000, $02000000, $08000000, $10000000,
- $40000000, $80000000, $20000000);
-var
- i: TBindInfoOption;
-begin
- FBindInfoOption_Value := 0;
- if (FBindInfoOption_ <> []) then
- for i := Low(TBindInfoOption) to High(TBindInfoOption) do
- if (i in FBindInfoOption_) then
- Inc(FBindInfoOption_Value, AcardBindInfoOption_Values[i]);
-end;
-
-procedure TCustomIEDownload.Update_BindF2_Value;
-const
- AcardBindF2_Values: array[TBindF2] of Cardinal = ($00000001,
- $00000002, $00000004, $00000008, $40000000, $80000000);
-var
- i: TBindF2;
-begin
- FBindF2_Value := 0;
- if (FBindF2 <> []) then
- for i := Low(TBindF2) to High(TBindF2) do
- if (i in FBindF2) then
- Inc(FBindF2_Value, AcardBindF2_Values[i]);
-end;
-
-function TCustomIEDownload.OpenFolder(const aFolderName: string): Boolean;
-var
- Int: integer;
-begin
- Result := False;
- if (FDownloadMethod = dmFile) then
- begin
- Int := ShellExecute(Forms.Application.Handle, PChar('explore'),
- PChar(aFolderName), nil, nil, SW_SHOWNORMAL);
- Result := (Int > 32);
- if not Result and Assigned(FOnError) then
- FOnError(Int, Err_Folder);
- end;
-end;
-
-procedure TCustomIEDownload.DoUpdate;
-begin
- Update_BindF_Value;
- Update_BindF2_Value;
- Update_BindInfoF_Value;
- Update_BindInfoOptions_Value;
-end;
-
-function TCustomIEDownload.CodeInstallProblemToStr(const ulStatusCode: Integer):
- string;
-begin
- Result := IEDownloadTools.CodeInstallProblemToStr(ulStatusCode);
-end;
-
-function TCustomIEDownload.CheckFileExists(const aFileName: string): boolean;
-begin
- Result := FileExists(aFileName);
-end;
-
-procedure TCustomIEDownload.Go(const aUrl: string);
-begin
- GoAction(aUrl, EmptyStr, EmptyStr, nil, nil);
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
-end;
-
-procedure TCustomIEDownload.Go(const aUrl: string; const aFileName: string);
-begin
- GoAction(aUrl, aFileName, EmptyStr, nil, nil);
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
-end;
-
-procedure TCustomIEDownload.Go(const aUrl: string; const aFileName: string;
- const aDownloadFolder: string);
-begin
- GoAction(aUrl, aFileName, aDownloadFolder, nil, nil);
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
-end;
-
-procedure TCustomIEDownload.GoList(const UrlsList: TStrings);
-var
- Idx: integer;
-begin
- for Idx := 0 to UrlsList.Count - 1 do
- if (UrlsList[Idx] <> EmptyStr) and (not bCancelAll) then
- GoAction(UrlsList[Idx], EmptyStr, EmptyStr, nil, nil);
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
-end;
-
-procedure TCustomIEDownload.GoList(const UrlsList: TStrings; const FileNameList:
- TStrings);
-var
- Idx: integer;
-begin
- for Idx := 0 to UrlsList.Count - 1 do
- if (UrlsList[Idx] <> EmptyStr) and (not bCancelAll) then
- GoAction(UrlsList[Idx], FileNameList[Idx], EmptyStr, nil, nil);
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
-end;
-
-procedure TCustomIEDownload.GoList(const UrlsList: TStrings; const FileNameList:
- TStrings;
- const DownloadFolderList: TStrings);
-var
- Idx: integer;
-begin
- for Idx := 0 to UrlsList.Count - 1 do
- if (UrlsList[Idx] <> EmptyStr) and (not bCancelAll) then
- GoAction(UrlsList[Idx], FileNameList[Idx], DownloadFolderList[Idx], nil,
- nil);
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
-end;
-
-procedure TCustomIEDownload.Download(const pmk: IMoniker; const pbc: IBindCtx);
-begin
- FDownloadTo := dtMoniker;
- PrepareForStart;
- hProcess := CreateEvent(nil, True, False, nil);
- if (not GoInit('', FFileName, FDownloadFolder)) then
- begin
- PrepareForExit;
- Exit;
- end;
- BS := TBSCB.Create(Self, pmk, pbc, True);
- try
- BS.Execute;
- repeat
- try
- if WaitForProcess(hProcess, FStartTick, FTimeOut) then
- except
- if Assigned(FOnError) then
- FOnError(E_FAIL, Err_Proc_Ev);
- raise;
- end;
- until (FCancel) or (FActiveConnections = 0);
- finally
- FreeAndNil(BS);
- end;
- PrepareForExit;
-end;
-
-function TCustomIEDownload.GoAction(const actUrl, actFileName,
- actDownloadFolder: string;
- pmk: IMoniker; pbc: IBindCtx): boolean;
-begin
- Result := False;
- PrepareForStart;
- hProcess := CreateEvent(nil, True, False, nil);
- if (not GoInit(actUrl, actFileName, actDownloadFolder)) then
- begin
- PrepareForExit;
- Exit;
- end;
- BS := TBSCB.Create(Self, pmk, pbc, True); {Creating Download Callback}
- try //Fix Deadlock?
- BS.Execute;
- repeat
- try
- if WaitForProcess(hProcess, FStartTick, FTimeOut) then
- except
- if Assigned(FOnError) then
- FOnError(E_FAIL, Err_Proc_Ev);
- raise;
- end;
- until (FCancel) or (FActiveConnections = 0);
- finally
- FreeAndNil(BS);
- end;
- PrepareForExit;
- Result := True;
-end;
-
-function TCustomIEDownload.URLDownloadToCacheFile(const aUrl: string): string;
-begin
- Result := EmptyStr;
- PrepareForStart;
- if not GoInit(aUrl, '', '') then
- Exit;
- FDownloadTo := dtDownloadToCache;
- BS := TBSCB.Create(Self, nil, nil, True);
- try
- BS.Execute;
- BS.Terminate;
- Dec(FActiveConnections);
- finally
- FreeAndNil(BS);
- end;
- SetBeforeExit;
- PrepareForExit;
- Result := FDownloadFolder;
-end;
-
-function TCustomIEDownload.UrlDownloadToFile(const aUrl: string): HRESULT;
-begin
- Result := E_FAIL;
- PrepareForStart;
- if not GoInit(aUrl, '', '') then
- Exit;
- FDownloadTo := dtDownloadToFile;
- BS := TBSCB.Create(Self, nil, nil, True);
- try
- BS.Execute;
- BS.Terminate;
- Dec(FActiveConnections);
- finally
- FreeAndNil(BS);
- end;
- SetBeforeExit;
- PrepareForExit;
- Result := S_OK;
-end;
-
-procedure TCustomIEDownload.SetBeforeExit;
-begin
- if FOpenDownloadFolder then
- OpenFolder(FDownloadFolder);
- if FActiveConnections = 0 then
- FBusy := False;
- FState := sStopped;
- if Assigned(FOnStateChange) then
- FOnStateChange(FState);
-end;
-
-function TCustomIEDownload.GoInit(const inUrl: string; const inFileName:
- string; const inDownloadFolder: string): boolean;
-var
- tmpNewName: WideString;
- Act: TFileExistsOption;
-begin
- act := FFileExistsOption;
- tmpNewName := '';
- Result := False;
- if FDownloadTo <> dtMoniker then
- begin
- if inUrl = EmptyStr then
- begin
- PrepareForExit;
- Exit;
- end;
- FUrl := SetHttpProtocol(inUrl); {We pass the Address we got to the component}
- if (FValidateUrl) and not (IsUrlValid(FUrl)) then
- begin
- PrepareForExit;
- Exit;
- end;
- ItemsManager.SessionList.Add(FUrl);
- if FDownloadMethod = dmFile then
- begin
- FDownloadFolder := SetDownloadFolder(inDownloadFolder);
- if FDownloadFolder = EmptyStr then
- Exit;
- FFileName := inFileName;
- if (FFileName = EmptyStr) then
- FFileName := SetFileNameFromUrl(FUrl); {First try}
- if (CheckFileExists(FDownloadFolder + FFileName)) then
- begin
- if Assigned(FOnFileExists) then
- FOnFileExists(Act, FDownloadFolder + FFileName, tmpNewName);
- case Act of
- feSkip:
- begin
- PrepareForExit;
- Exit;
- end;
- feRename:
- begin
-{$IFDEF DELPHI7_UP}
- if tmpNewName = EmptyStr then
- tmpNewName := TimeToStr(now, FFormatSettings) + '_' + FFileName;
-{$ELSE}
- if tmpNewName = EmptyStr then
- tmpNewName := TimeToStr(now) + '_' + FFileName;
-{$ENDIF}
- FFileName := tmpNewName;
- bRenamed := True;
- end;
- feOverwrite: FBindF := FBindF + [GetNewestVersion];
- end;
- end;
- end
- else
- FBindF := FBindF + [GetNewestVersion];
- end;
- DoUpdate;
- Result := True;
-end;
-
-function TCustomIEDownload.WaitForProcess(var EventName: THandle;
- var aStartTick, aTimeOut: Integer): Boolean;
-var
- dwResult: DWORD;
- Msg: TMsg;
- EventList: array[0..0] of THandle;
-begin
- EventList[0] := EventName;
- dwResult := MsgWaitForMultipleObjects(1, EventList, False, DWORD(ATimeOut),
- QS_ALLEVENTS);
-
- case dwResult of
- WAIT_FAILED: {Waiting failed}
- begin
- if Assigned(FOnError) then
- FOnError(GetLastError, SysErrorMessage(GetLastError));
- end;
- WAIT_TIMEOUT: {Waiting Timo out}
- begin
- if Assigned(FOnError) then
- FOnError(GetLastError, SysErrorMessage(GetLastError));
- end;
- WAIT_BSCB: {Our state to process messages}
- begin
- while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
- begin
- TranslateMessage(Msg);
- DispatchMessage(Msg);
- if (Integer(GetTickCount) - aStartTick > aTimeOut) then
- begin
- if Assigned(FOnError) then
- FOnError(GetLastError, Err_TimeOut);
- end;
- end;
- if (Integer(GetTickCount) - aStartTick > aTimeOut) then
- begin
- if Assigned(FOnError) then
- FOnError(GetLastError, Err_TimeOut);
- end;
- end;
- end;
- Result := (dwResult = WAIT_OBJECT_0); {We are done waiting}
-end;
-
-function TCustomIEDownload.IsSynchronous(iedInfo: TInfoData): boolean;
-begin {Return True if mode is Synchronous}
- if iedInfo.infBindF_Value <> (iedInfo.infBindF_Value or
- BINDF_ASYNCHRONOUS) then
- Result := True
- else
- Result := False;
-end;
-
-function TCustomIEDownload.IsAsyncMoniker(const pmk: IMoniker): HRESULT;
-begin
- Result := UrlMon.IsAsyncMoniker(pmk);
-end;
-
-function TCustomIEDownload.FormatSize(const Byte: Double): string;
-begin
- Result := IEDownloadTools.FormatSize(Byte);
-end;
-
-function TCustomIEDownload.FormatTickToTime(const TickCount: Cardinal): string;
-begin
- Result := IEDownloadTools.FormatTickToTime(TickCount);
-end;
-
-function TCustomIEDownload.IsUrlValid(const isUrl: string): Boolean;
-var
- U: TUrl;
-begin
- U := TUrl.Create(isUrl);
- try
- Result := U.IsUrlValid(isUrl);
- if not Result and Assigned(FOnError) then
- FOnError(GetLastError, SysErrorMessage(GetLastError) + isUrl);
- finally
- U.Free;
- end;
-end;
-
-procedure TCustomIEDownload.PrepareForExit;
-begin
- if Assigned(FOnComplete) then
- FOnComplete(Self, FDownloadedFile, FFileName, FDownloadFolder,
- FFileExtension, ActiveConnections);
- FState := sReady;
- if Assigned(FOnStateChange) then
- FOnStateChange(FState);
-end;
-
-procedure TCustomIEDownload.PrepareForStart;
-begin
- FBusy := True;
- bRenamed := False;
- FCancel := False;
- FDownloadedFile := EmptyStr;
- FDownloadFolder := EmptyStr;
- FFileExtension := EmptyStr;
- FFileName := EmptyStr;
- FFileSize := 0;
- FMimeType := EmptyStr;
- FServerAddress := EmptyStr;
- FServerIP := EmptyStr;
- FUrl := EmptyStr;
- FState := sBusy;
- if Assigned(FOnStateChange) then
- FOnStateChange(FState);
- FStartTick := GetTickCount;
- Inc(FRefCount);
- Inc(FActiveConnections);
-end;
-
-procedure TCustomIEDownload.SetCodePage(const Value: TCodePageOption);
-begin
- FCodePageOption := Value;
- case FCodePageOption of
- Ansi: FCodePageValue := CP_ACP;
- Mac: FCodePageValue := CP_MACCP;
- OEM: FCodePageValue := CP_OEMCP;
- Symbol: FCodePageValue := CP_SYMBOL;
- ThreadsAnsi: FCodePageValue := CP_THREAD_ACP;
- UTF7: FCodePageValue := CP_UTF7;
- UTF8: FCodePageValue := CP_UTF8;
- end;
-end;
-
-procedure TCustomIEDownload.SetBindVerb(const Value: TBindVerb);
-begin {Contains values that specify an action, such as an HTTP request, to be performed during the binding operation.}
- FBindVerb := Value;
- case FBindVerb of
- Get: FBindVerb_Value := BINDVERB_GET;
- Put: FBindVerb_Value := BINDVERB_PUT;
- Post: FBindVerb_Value := BINDVERB_POST;
- Custom: FBindVerb_Value := BINDVERB_CUSTOM;
- end;
-end;
-
-procedure TCustomIEDownload.SetFileName(const Value: string);
-begin
- FFileName := Value;
-end;
-
-function TCustomIEDownload.SetFileNameFromUrl(const aUrl: string): string;
-var
- Ut: TUrl;
- sTmp1, sTmp2: string;
-begin
- if FDownloadMethod = dmFile then
- begin
- Ut := TUrl.Create(aUrl);
- try
- Ut.CrackUrl(aUrl, ICU_ESCAPE);
- if AnsiPos('.', Ut.ExtraInfo) <> 0 then
- sTmp1 := Ut.ExtraInfo;
- Ut.QueryUrl(aUrl);
- sTmp2 := Ut.Document;
- finally
- Ut.Free;
- end;
- if sTmp1 <> EmptyStr then
- begin
- Result := sTmp1;
- Exit;
- end
- else
- Result := sTmp2;
- end;
-end;
-
-procedure TCustomIEDownload.ExtractDataFromFile(const aFileName: string);
-begin
- FDownloadedFile := aFileName;
- FFileName := ExtractFileName(aFileName);
- FDownloadFolder := ExtractFilePath(aFileName);
- FFileExtension := ExtractFileExt(aFileName);
-end;
-
-procedure TCustomIEDownload.SetAdditionalHeader(const Value: TStrings);
-begin {Sets additional headers to append to the HTTP request.}
- FAdditionalHeader.Assign(Value);
-end;
-
-procedure TCustomIEDownload.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TCustomIEDownload.SetDefaultProtocol(const Value: string);
-begin
- FDefaultProtocol := (Value);
- if FDefaultProtocol = EmptyStr then
- FDefaultProtocol := 'http://';
-end;
-
-procedure TCustomIEDownload.SetUserAgent;
-begin
- FFullUserAgent := USER_AGENT_IE6 + '(' + FUserAgent + ')' + #13#10;
-end;
-
-procedure TCustomIEDownload.SetBindInfoF(const Value: TBindInfoF_Options);
-begin
- FBindInfoF := Value;
- Update_BindInfoF_Value;
-end;
-
-procedure TCustomIEDownload.SetBindF2(const Value: TBindF2_Options);
-begin
- FBindF2 := Value;
- Update_BindF2_Value;
-end;
-
-procedure TCustomIEDownload.SetBindInfoOption(const Value:
- TBindInfoOptions_Options);
-begin
- FBindInfoOption_ := Value;
- Update_BindInfoOptions_Value;
-end;
-
-procedure TCustomIEDownload.SetBindF(const Value: TBindF_Options);
-begin
- if FFileExistsOption = feOverWrite then
- FBindF := FBindF + [GetNewestVersion];
- FBindF := Value;
- Update_BindF_Value;
-end;
-
-procedure TCustomIEDownload.SetDownloadMethod(const Value: TDownloadMethod);
-begin
- FDownloadMethod := Value;
-end;
-
-function TCustomIEDownload.SetHttpProtocol(const aUrl: string): string;
-type {Insert http to an address like bsalsa.com }
- TProtocols = array[1..23] of string;
-const
- Protocols: TProtocols = (
- 'about', 'cdl', 'dvd', 'file', 'ftp', 'gopher', 'http', 'ipp', 'its',
- 'javascript', 'local', 'mailto', 'mk', 'msdaipp', 'ms-help', 'ms-its',
- 'mso', 'res', 'sysimage', 'tv', 'vbscript', 'via', 'https');
-var
- i: Integer;
-begin
- for i := 1 to 23 do
- begin
- if (AnsiPos(AnsiUpperCase(Protocols[i]), AnsiUpperCase(aUrl)) <> 0) then
- begin
- Result := aUrl;
- Exit;
- end;
- end;
- Result := 'http://' + aUrl;
-end;
-
-function TCustomIEDownload.SetDownloadFolder(const aDownloadFolder: string):
- string;
-begin
- if (FDownloadMethod = dmFile) then
- begin
- Result := aDownloadFolder;
- if (Result = EmptyStr) then
- Result := ExtractFilePath(Application.ExeName) + DL_DIR;
- if Result <> EmptyStr then
- try
- ForceDirectories(Result);
- except
- if Assigned(FOnError) then
- FOnError(GetLastError, SysErrorMessage(GetLastError) +
- Err_Creating_Dir);
- end;
- end;
-end;
-
-function TCustomIEDownload.ResponseCodeToStr(const dwResponse: Integer): string;
-begin
- Result := IEDownloadTools.ResponseCodeToStr(dwResponse);
-end;
-
-function TCustomIEDownload.WideStringToLPOLESTR(const Source: string): POleStr;
-begin
- Result := IEDownloadTools.WidestringToLPOLESTR(Source);
-end;
-
-initialization
- coInitialize(nil);
-finalization
- coUninitialize;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/IEDownloadAcc.pas b/windows/src/ext/embeddedwb/Source/IEDownloadAcc.pas
deleted file mode 100644
index bbfca456a8c6c639bb595ff68fcfd15692e3005d..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEDownloadAcc.pas
+++ /dev/null
@@ -1,182 +0,0 @@
-//*************************************************************************
-// *
-// IEDownload_Acc *
-// For Delphi *
-// *
-// Freeware unit *
-// by *
-// and Eran Bodankin *
-// bsalsa@gmail.com *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit IEDownloadAcc;
-
-interface
-
-{$I EWB.inc}
-
-uses
- ActiveX, SysUtils, ShlObj, Windows, UrlMon, EwbIEConst;
-
-{$IFDEF DELPHI6_UP}
-type
- {Authentiae }
- _AUTHENTICATEF = (
- AUTHENTICATEF_PROXY = $00000001,
- AUTHENTICATEF_BASIC = $00000002,
- AUTHENTICATEF_HTTP = $00000004);
- AUTHENTICATEF = _AUTHENTICATEF;
-
- {PutProperty }
- _MONIKERPROPERTY = (
- MIMETYPEPROP = 0,
- USE_SRC_URL = $00000001,
- CLASSIDPROP = $00000002,
- TRUSTEDDOWNLOADPROP = $00000003,
- POPUPLEVELPROP = $00000004);
- MONIKERPROPERTY = _MONIKERPROPERTY;
-
- {CIP_STATUS }
- _CIP_STATUS = (
- CIP_DISK_FULL = 0,
- CIP_ACCESS_DENIED = 1,
- CIP_NEWER_VERSION_EXISTS = 2,
- CIP_OLDER_VERSION_EXISTS = 3,
- CIP_NAME_CONFLICT = 4,
- CIP_TRUST_VERIFICATION_COMPONENT_MISSING = 5,
- CIP_EXE_SELF_REGISTERATION_TIMEOUT = 6,
- CIP_UNSAFE_TO_ABORT = 7,
- CIP_NEED_REBOOT = 8,
- CIP_NEED_REBOOT_UI_PERMISSION = 9);
- CIP_STATUS = _CIP_STATUS;
-
- {BSCF Enumerated Type}
- _BSCF = (
- BSCF_FIRSTDATANOTIFICATION = $00000001,
- BSCF_INTERMEDIATEDATANOTIFICATION = $00000002,
- BSCF_LASTDATANOTIFICATION = $00000004,
- BSCF_DATAFULLYAVAILABLE = $00000008,
- BSCF_AVAILABLEDATASIZEUNKNOWN = $00000010,
- BSCF_SKIPDRAINDATAFORFILEURLS = $00000020);
- BSCF = _BSCF;
-
-
-type
- pauthinfo = ^TAUTHENTICATEINFO;
- _tagAUTHENTICATEINFO = record
- dwFlags: LongInt;
- dwReserved: LongInt;
- end;
- TAUTHENTICATEINFO = _tagAUTHENTICATEINFO;
- AUTHENTICATEINFO = _tagAUTHENTICATEINFO;
-
-type
- IAuthenticateEx = interface(IAuthenticate)
- ['{2AD1EDAF-D83D-48B5-9ADF-03DBE19F53BD}']
- function AuthenticateEx(out phwnd: HWND; out pszUsername,
- pszPassword: LPWSTR; var pauthinfo: AUTHENTICATEINFO): HResult; stdcall;
- end;
-{$ENDIF}
-
-
-type
- IBindStatusCallbackEx = interface(IBindStatusCallback)
- ['{AAA74EF9-8EE7-4659-88D9-F8C504DA73CC}']
- function GetBindInfoEx(out grfBINDF: DWORD; var pbindinfo: BINDINFO;
- out grfBINDF2: DWORD; out pdwReserved: DWORD): HResult; stdcall;
- end;
-
-type
- ICatalogFileInfo = interface(IUnknown)
- ['{711C7600-6B48-11D1-B403-00AA00B92AF1}']
- function GetCatalogFile(out ppszCatalogFile: LPSTR): HResult;
- function GetJavaTrust(out ppJavaTrust: Pointer): HResult;
- end;
-
-type
- IHttpNegotiate2 = interface(IHttpNegotiate)
- ['{4F9F9FCB-E0F4-48EB-B7AB-FA2EA9365CB4}']
- function GetRootSecurityId(var SecurityIdBuffer: TByteArray; var
- BufferSize: DWord; dwReserved: DWORD): HResult; stdcall;
- end;
-
-type
- IHttpNegotiate3 = interface(IHttpNegotiate2)
- ['{57b6c80a-34c2-4602-bc26-66a02fc57153}']
- function GetSerializedClientCertContext(out ppbCert: Byte;
- var pcbCert: DWORD): HResult; stdcall;
- end;
-{$IFDEF DELPHI6_UP}
-type
- IMonikerProp = interface(IUnknown)
- ['{A5CA5F7F-1847-4D87-9C5B-918509F7511D}']
- function PutProperty(mkp: MONIKERPROPERTY; val: LPCWSTR): HResult; stdcall;
- end;
-{$ENDIF}
-
-
-
-type
- IBindHost = interface(IUnknown)
- ['{fc4801a1-2ba9-11cf-a229-00aa003d7352}']
- function CreateMoniker(szName: POLEStr; BC: IBindCtx; out mk: IMoniker;
- dwReserved: DWORD): HResult; stdcall;
- function MonikerBindToStorage(Mk: IMoniker; BC: IBindCtx; BSC:
- IBindStatusCallback; const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult; stdcall;
- function MonikerBindToObject(Mk: IMoniker; BC: IBindCtx; BSC:
- IBindStatusCallback; const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult; stdcall;
- end;
-
-type
- INTERNET_PER_CONN_OPTION = record
- dwOption: DWORD;
- Value: record
- case Integer of
- 1: (dwValue: DWORD);
- 2: (pszValue: PChar); {Unicode/ANSI}
- 3: (ftValue: TFileTime);
- end;
- end;
-
- LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;
- INTERNET_PER_CONN_OPTION_List = record
- dwSize: DWORD;
- pszConnection: LPTSTR;
- dwOptionCount: DWORD;
- dwOptionError: DWORD;
- intOptions: LPINTERNET_PER_CONN_OPTION;
- end;
- LPINTERNET_PER_CONN_OPTION_List = ^INTERNET_PER_CONN_OPTION_List;
-
-
-
-function CreateURLMonikerEx(MkCtx: IMoniker; szURL: LPCWSTR;
- out mk: IMoniker; dwFlags: DWORD): HRESULT; stdcall; external UrlMonLib;
-
-implementation
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/IEDownloadStrings.pas b/windows/src/ext/embeddedwb/Source/IEDownloadStrings.pas
deleted file mode 100644
index 040e8a5086077a46195a0bc416338e537240ea50..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEDownloadStrings.pas
+++ /dev/null
@@ -1,91 +0,0 @@
-//*************************************************************
-// IEDownload strings *
-// *
-// For Delphi 5 to XE *
-// Freeware unit *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit IEDownloadStrings;
-
-interface
-
-resourcestring
-
- Bind_To_St = 'MonikerBindToStorage: ';
- Create_BSCB = 'Creating IBindStatusCallback: ';
- Create_Moniker = 'CreateMoniker: ';
- CreateABindCtx = 'CreateAsyncBindCtx: ';
- CreateURLMEx = 'CreateURLMonikerEx: ';
- DL_DIR = 'Downloads\';
- done = 'Done.';
- DL_ToFile = 'UrlDownloadToFile';
- DL_ToCacheFile = 'UrlDownloadToCacheFile';
- Err_AsyncBindCtx = 'Error while CreateAsyncBindCtx: ';
- Err_BindToSt = 'Error while MonikerBindToStorage ';
- Err_CreateMoniker = 'Error while CreateMoniker ';
- Err_Creating_Dir = ' while creating download folder';
- Err_Folder = 'Error while opening folder';
- Err_Proc_DL = 'ProcessEvents fails to wait until complete downloading';
- Err_Proc_Ev = 'ProcessEvents fails to wait until complete.';
- Err_RegBSCB = 'Error while RegisterBindStatusCallback: ';
- Err_Revoke = 'Error while RevokeBindStatusCallback. ';
- Err_ToFile = 'Error while UrlDownloadToFile';
- Err_ToCacheFile = 'Error while UrlDownloadToCacheFile';
- Err_TimeOut = 'Error: Timeout.';
- Err_URLMEx = 'Error while CreateURLMonikerEx: ';
- Frmt_Time = 'mm:ss.zzz';
- kb_sec = 'kb/sec';
- Reg_BSCB = 'RegisterBindStatusCallback: ';
- Registering_new_moniker = 'Registering new moniker: ';
- Revoke_BSCB = 'RevokeBindStatusCallback: ';
- Err_Doc_AsAdvise = 'Error while getting ConnectionPoint.Advise: ';
- Doc_AsAdvise = 'Getting ConnectionPoint.Advise ';
- Err_Doc_AsPointContainer = 'Error while getting IConnectionPointContainer: ';
- Doc_AsPointContainer = 'Getting IConnectionPointContainer: ';
- Err_Doc_AsAmbientPropertyChange = 'Error while getting AmbientPropertyChang: ';
- Doc_AsAmbientPropertyChange = 'Getting Ambient Property Change: ';
- Err_Doc_AsSetClientSite = 'Error while getting Set Client Site: ';
- Doc_AsSetClientSite = 'Getting Set Client Site: ';
- Err_CoCreateInstance = 'Error while CoCreateInstance: ';
- Succ_CoCreateInstance = 'Getting CoCreateInstance: ';
- Err_IpersistMoniker_Load = 'Error while loading as IpersistMoniker: ';
- Succ_IpersistMoniker_Load = 'Loading as IpersistMoniker ';
- Err_Load_Str = 'Error while loading from string: ';
- Succ_Load_Str = 'Loading from string: ';
- Err_Load_Mon = 'Error while loading from moniker: ';
- Succ_Load_Mon = 'Loading from moniker: ';
- P_Wait = 'Please wait... ';
- General_Error = 'An error occured while ';
- Doc_Error = 'Bad document or bad address.';
-
-implementation
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/IEDownloadTools.pas b/windows/src/ext/embeddedwb/Source/IEDownloadTools.pas
deleted file mode 100644
index 39b1dd3ae4d81c3b71fb64b87eec196afce1d62a..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEDownloadTools.pas
+++ /dev/null
@@ -1,578 +0,0 @@
-//*************************************************************************
-// *
-// IEDownload Tools *
-// For Delphi *
-// *
-// Freeware Unit *
-// by *
-// Eran Bodankin -bsalsa(bsalsa@gmail.com) *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//*************************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit IEDownloadTools;
-
-interface
-
-uses
- Windows, EwbIeConst, SysUtils, ActiveX;
-
-function ResponseCodeToStr(dwResponse: Integer): string;
-function FormatSize(Byte: Double): string;
-function FormatTickToTime(TickCount: Cardinal): string;
-function IsValidURL(const URL: Widestring): Boolean;
-function WideStringToLPOLESTR(const Source: Widestring): POleStr;
-function WideStringToWideChar(const inString: WideString): PWideChar;
-function CodeInstallProblemToStr(ulStatusCode: Integer): string;
-function DataAvalibleToStr(Code: Integer): string;
-function SecToStr(const Seconds: LongInt): string;
-procedure FreeWideChar(var inString: PWideChar);
-function StrToCase(StringOf: string; CasesList: array of string): Integer;
-function QueryRemoteFileInfo(const Url: string; dwInfoFlag: Integer): string;
-function GetInfoByMimeType(const ContentType: string): boolean;
-function StrContain(SubString: string; Str: string): boolean;
-function IncludeTrailingPathDelimiter(const S: string): string;
-function CharReplace(const Source: string; OldChar, NewChar: Char): string;
-
-
-implementation
-
-uses
- WinInet, UrlMon, Registry;
-
-// Some constatants are missing in previous delphi versions.
-// That's why they are declared here.
-const
-{$EXTERNALSYM BINDSTATUS_COOKIE_SENT}
- BINDSTATUS_COOKIE_SENT = BINDSTATUS_ACCEPTRANGES + 1;
-{$EXTERNALSYM BINDSTATUS_COMPACT_POLICY_RECEIVED}
- BINDSTATUS_COMPACT_POLICY_RECEIVED = BINDSTATUS_COOKIE_SENT + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_SUPPRESSED}
- BINDSTATUS_COOKIE_SUPPRESSED = BINDSTATUS_COMPACT_POLICY_RECEIVED + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_STATE_UNKNOWN}
- BINDSTATUS_COOKIE_STATE_UNKNOWN = BINDSTATUS_COOKIE_SUPPRESSED + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_STATE_ACCEPT}
- BINDSTATUS_COOKIE_STATE_ACCEPT = BINDSTATUS_COOKIE_STATE_UNKNOWN + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_STATE_REJECT}
- BINDSTATUS_COOKIE_STATE_REJECT = BINDSTATUS_COOKIE_STATE_ACCEPT + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_STATE_PROMPT}
- BINDSTATUS_COOKIE_STATE_PROMPT = BINDSTATUS_COOKIE_STATE_REJECT + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_STATE_LEASH}
- BINDSTATUS_COOKIE_STATE_LEASH = BINDSTATUS_COOKIE_STATE_PROMPT + 1;
-{$EXTERNALSYM BINDSTATUS_COOKIE_STATE_DOWNGRADE}
- BINDSTATUS_COOKIE_STATE_DOWNGRADE = BINDSTATUS_COOKIE_STATE_LEASH + 1;
-{$EXTERNALSYM BINDSTATUS_POLICY_HREF}
- BINDSTATUS_POLICY_HREF = BINDSTATUS_COOKIE_STATE_DOWNGRADE + 1;
-{$EXTERNALSYM BINDSTATUS_P3P_HEADER}
- BINDSTATUS_P3P_HEADER = BINDSTATUS_POLICY_HREF + 1;
-{$EXTERNALSYM BINDSTATUS_SESSION_COOKIE_RECEIVED}
- BINDSTATUS_SESSION_COOKIE_RECEIVED = BINDSTATUS_P3P_HEADER + 1;
-{$EXTERNALSYM BINDSTATUS_PERSISTENT_COOKIE_RECEIVED}
- BINDSTATUS_PERSISTENT_COOKIE_RECEIVED = BINDSTATUS_SESSION_COOKIE_RECEIVED +
- 1;
-
-function CodeInstallProblemToStr(ulStatusCode: Integer): string;
-begin
- case ulStatusCode of
- CIP_DISK_FULL: Result := 'Destination can accept no more data.';
- CIP_ACCESS_DENIED: Result := 'Permissions problem.';
- CIP_NEWER_VERSION_EXISTS: Result :=
- 'Destination contains a newer version than the source.';
- CIP_OLDER_VERSION_EXISTS: Result :=
- 'Destination contains an older version than the source.';
- CIP_NAME_CONFLICT: Result :=
- 'Destination does not allow the naming convention used by the source.';
- CIP_TRUST_VERIFICATION_COMPONENT_MISSING: Result :=
- 'Destination cannot verify the source.';
- CIP_EXE_SELF_REGISTERATION_TIMEOUT: Result := 'Timeout has occurred. ';
- CIP_UNSAFE_TO_ABORT: Result :=
- 'Installation or download should not be aborted.';
- CIP_NEED_REBOOT: Result := 'Destination machine requires rebooting.';
- CIP_NEED_REBOOT_UI_PERMISSION: Result :=
- 'Destination machine should reboot without user interface (UI).';
- else
- Result := ResponseCodeToStr(ulStatusCode)
- end;
-end;
-
-function DataAvalibleToStr(Code: Integer): string;
-begin
- case Code of
- BSCF_FIRSTDATANOTIFICATION: Result :=
- 'Identifed the first call to OnDataAvailable.';
- BSCF_INTERMEDIATEDATANOTIFICATION: Result :=
- 'Identifed the intermediate call to OnDataAvailable.';
- BSCF_LASTDATANOTIFICATION: Result :=
- 'Identifed the last call to OnDataAvailable.';
- BSCF_DATAFULLYAVAILABLE: Result :=
- 'All of the requested data is available.';
- BSCF_AVAILABLEDATASIZEUNKNOWN: Result :=
- 'Size of the data available is unknown.';
- // BSCF_SKIPDRAINDATAFORFILEURLS: Result := 'Bypass cache downloads.';
- else
- Result := ResponseCodeToStr(Code)
- end;
-end;
-
-function ResponseCodeToStr(dwResponse: Integer): string;
-begin
- case dwResponse of
- 100: Result := 'Continue';
- 101: Result := 'Switching Protocols';
- 200: Result := 'OK';
- 201: Result := 'Created';
- 202: Result := 'Accepted';
- 203: Result := 'Non-Authoritative Information';
- 204: Result := 'No Content';
- 205: Result := 'Reset Content';
- 206: Result := 'Partial Content';
- 300: Result := 'Multiple Choices';
- 301: Result := 'Moved Permanently';
- 302: Result := 'Moved Temporarily';
- 303: Result := 'See Other';
- 304: Result := 'Not Modified';
- 305: Result := 'Use Proxy';
- 400: Result := 'Bad Request';
- 401: Result := 'Unauthorized';
- 402: Result := 'Payment Required';
- 403: Result := 'Forbidden';
- 404: Result := 'Not Found';
- 405: Result := 'Method Not Allowed';
- 406: Result := 'None Acceptable';
- 407: Result := 'Proxy Authentication Required';
- 408: Result := 'Request Timeout';
- 409: Result := 'Conflict';
- 410: Result := 'Gone';
- 411: Result := 'Length Required';
- 412: Result := 'Precondition Failed';
- 413: Result := 'Request Entity Too Large';
- 414: Result := 'Request-URI Too Long';
- 415: Result := 'Unsupported Media Type';
- 416: Result := 'Requested Range Not Satisfiable';
- 417: Result := 'Expectation Failed';
- 500: Result := 'Internal Server Error';
- 501: Result := 'Not Implemented';
- 502: Result := 'Bad Gateway';
- 503: Result := 'Service Unavailable';
- 504: Result := 'Gateway Timeout';
- 505: Result := 'HTTP Version Not Supported';
- BINDSTATUS_FINDINGRESOURCE: Result := 'Finding resource...';
- BINDSTATUS_CONNECTING: Result := 'Connecting...';
- BINDSTATUS_REDIRECTING: Result := 'Server redirecting client...';
- BINDSTATUS_BEGINDOWNLOADDATA: Result := 'Beginning to download data...';
- BINDSTATUS_DOWNLOADINGDATA: Result := 'Downloading data...';
- BINDSTATUS_ENDDOWNLOADDATA: Result := 'Ending data download...';
- BINDSTATUS_BEGINDOWNLOADCOMPONENTS: Result :=
- 'Beginning to download components...';
- BINDSTATUS_INSTALLINGCOMPONENTS: Result := 'Installing components...';
- BINDSTATUS_ENDDOWNLOADCOMPONENTS: Result := 'Ending component download...';
- BINDSTATUS_USINGCACHEDCOPY: Result := 'Using cached copy...';
- BINDSTATUS_SENDINGREQUEST: Result := 'Sending request...';
- BINDSTATUS_CLASSIDAVAILABLE: Result := 'CLSID available...'; //***
- BINDSTATUS_MIMETYPEAVAILABLE: Result := 'MIME type available...';
- BINDSTATUS_CACHEFILENAMEAVAILABLE: Result := 'Cache file name available...';
- BINDSTATUS_BEGINSYNCOPERATION: Result :=
- 'Synchronous operation has started...';
- BINDSTATUS_ENDSYNCOPERATION: Result := 'Ending synchronous operation...';
- BINDSTATUS_BEGINUPLOADDATA: Result := 'Beginning to upload data...';
- BINDSTATUS_UPLOADINGDATA: Result := 'Uploading data...';
- BINDSTATUS_ENDUPLOADDATA: Result := 'Ending data upload...';
- BINDSTATUS_PROTOCOLCLASSID: Result :=
- 'Protocol handler CLSID is available...';
- BINDSTATUS_ENCODING: Result := 'Encoding data...';
- BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE: Result :=
- 'Verified MIME type is available...';
- BINDSTATUS_CLASSINSTALLLOCATION: Result :=
- 'Class install location is available...';
- BINDSTATUS_DECODING: Result := 'Decoding data...';
- BINDSTATUS_LOADINGMIMEHANDLER: Result :=
- 'Pluggable MIME handler is being loaded...';
- BINDSTATUS_CONTENTDISPOSITIONATTACH: Result :=
- 'Content-Disposition resource is an attachment...';
- BINDSTATUS_FILTERREPORTMIMETYPE: Result :=
- 'New MIME type available for resource...';
- BINDSTATUS_CLSIDCANINSTANTIATE: Result :=
- 'CLSID to return on BindToObject...';
- BINDSTATUS_IUNKNOWNAVAILABLE: Result :=
- 'IUnknown interface has been released...';
- BINDSTATUS_DIRECTBIND: Result :=
- 'Connected directly to the pluggable protocol handler...';
- BINDSTATUS_RAWMIMETYPE: Result := 'Raw MIME type...';
- BINDSTATUS_PROXYDETECTING: Result := 'Proxy server has been detected...';
- BINDSTATUS_ACCEPTRANGES: Result := 'Valid types of range requests...';
- BINDSTATUS_COOKIE_SENT: Result := 'A cookie was sent';
- BINDSTATUS_COMPACT_POLICY_RECEIVED: Result :=
- 'A Platform for Privacy Preferences was received.';
- BINDSTATUS_COOKIE_SUPPRESSED: Result :=
- 'A cookie was suppressed from being sent to the web server.';
- BINDSTATUS_COOKIE_STATE_UNKNOWN: Result :=
- 'A a cookie has been initialized. ';
- BINDSTATUS_COOKIE_STATE_ACCEPT: Result :=
- 'A cookie sent by the server was accepted.';
- BINDSTATUS_COOKIE_STATE_REJECT: Result :=
- 'A cookie sent by the server was rejected.';
- BINDSTATUS_COOKIE_STATE_PROMPT: Result :=
- 'User settings require a prompt before performing a cookie operation.';
- BINDSTATUS_COOKIE_STATE_LEASH: Result := 'A cookie is a leashed cookie.';
- BINDSTATUS_COOKIE_STATE_DOWNGRADE: Result :=
- 'A cookie is a downgraded cookie.';
- BINDSTATUS_POLICY_HREF: Result :=
- 'HTTP headers contain a link to the full privacy policy';
- BINDSTATUS_P3P_HEADER: Result :=
- 'HTTP response from the server contains the P3P privacy header';
- BINDSTATUS_SESSION_COOKIE_RECEIVED: Result :=
- 'A session cookie was received.';
- BINDSTATUS_PERSISTENT_COOKIE_RECEIVED: Result :=
- 'A persistent cookie was received. ';
- BINDSTATUS_SESSION_COOKIES_ALLOWED: Result :=
- 'The session cookies are allowed.';
- BINDSTATUS_CACHECONTROL: Result :=
- 'A response from the server was written to memory only.'; //IE7
- BINDSTATUS_CONTENTDISPOSITIONFILENAME: Result :=
- 'The Content-Disposition header contains a file name.';
- BINDSTATUS_MIMETEXTPLAINMISMATCH: Result :=
- 'The reported Content-Type of the file does not match the content. ';
- BINDSTATUS_PUBLISHERAVAILABLE: Result :=
- 'The publisher name is being downloaded and is available.';
- BINDSTATUS_DISPLAYNAMEAVAILABLE: Result :=
- 'The display name being downloaded and is available.';
- BINDSTATUS_SSLUX_NAVBLOCKED: Result := 'A problem with the SSL certificate.';
- BINDSTATUS_SERVER_MIMETYPEAVAILABLE: Result :=
- 'Server''s authoritative MIME type reported'; //IE8 - Attention: This documentation is preliminary and is subject to change
- BINDSTATUS_SNIFFED_CLASSIDAVAILABLE: Result :=
- 'Class identifier (CLSID) generated from authoritative Content-Type HTTP response header'; //IE8 - Attention: This documentation is preliminary and is subject to change
- BINDSTATUS_64BIT_PROGRESS: Result :=
- 'Download progress values are above the maximum 32-bit file size limit.'; //IE8 - Attention: This documentation is preliminary and is subject to change
- // E_PENDING: Result := 'The data necessary to complete this operation is not yet available';
- E_UNEXPECTED: Result := 'Catastrophic failure';
- E_FAIL: Result := 'Failed';
- E_NOINTERFACE: Result := 'No such interface supported';
- E_NOTIMPL: Result := 'Not implemented';
- E_ABORT: Result := 'Operation Aborted.';
- E_ACCESSDENIED: Result := 'Access Denied.';
- E_INVALIDARG: Result := 'One or more parameters are invalid.';
- E_OUTOFMEMORY: Result := 'There was insufficient memory ...';
- ERROR_HTTP_REDIRECT_NEEDS_CONFIRMATION: Result :=
- 'The redirection requires user confirmation.';
- ERROR_INTERNET_CHG_POST_IS_NON_SECURE: Result :=
- 'The application is posting and attempting to change multiple lines of text on a server that is not secure.';
- ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED: Result :=
- 'The server is requesting client authentication.';
- ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP: Result :=
- 'Client authorization is not set up on this computer.';
- ERROR_INTERNET_FORTEZZA_LOGIN_NEEDED: Result :=
- 'The requested resource requires Fortezza authentication.';
- ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR: Result :=
- 'The application is moving from a non-SSL to an SSL connection because of a redirect.';
- ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR: Result :=
- 'The application is moving from an SSL to an non-SSL connection because of a redirect.';
- ERROR_INTERNET_INVALID_CA: Result :=
- 'The function is unfamiliar with the Certificate Authority that generated the server''s certificate.';
- ERROR_INTERNET_MIXED_SECURITY: Result :=
- 'The content is not entirely secure. Some of the content being viewed may have come from unsecured servers.';
- ERROR_INTERNET_POST_IS_NON_SECURE: Result :=
- 'The application is posting data to a server that is not secure.';
- ERROR_INTERNET_SEC_CERT_CN_INVALID: Result :=
- 'SSL certificate common name (host name field) is incorrect???for example, if you entered www.server.com and the common name on the certificate says www.different.com.';
- ERROR_INTERNET_SEC_CERT_DATE_INVALID: Result :=
- 'SSL certificate date that was received from the server is bad. The certificate is expired.';
- ERROR_INTERNET_SEC_CERT_REVOKED: Result := 'SSL certificate was revoked.';
- INET_E_AUTHENTICATION_REQUIRED: Result :=
- 'Authentication is needed to access the object.';
- INET_E_CANNOT_CONNECT: Result :=
- 'The attempt to connect to the Internet has failed.';
- INET_E_CANNOT_INSTANTIATE_OBJECT: Result := 'CoCreateInstance failed.';
- INET_E_CANNOT_LOAD_DATA: Result := 'The object could not be loaded.';
- INET_E_CANNOT_LOCK_REQUEST: Result :=
- 'The requested resource could not be locked.';
- INET_E_CANNOT_REPLACE_SFP_FILE: Result :=
- 'Cannot replace a protected System File Protection (SFP) file.';
- INET_E_CODE_DOWNLOAD_DECLINED: Result :=
- 'Permission to download is declined.';
- INET_E_CONNECTION_TIMEOUT: Result :=
- 'The Internet connection has timed out.';
- INET_E_DATA_NOT_AVAILABLE: Result :=
- 'An Internet connection was established, but the data cannot be retrieved.';
- INET_E_DEFAULT_ACTION: Result := 'Use the default action.';
- INET_E_DOWNLOAD_FAILURE: Result :=
- 'The download has failed (the connection was interrupted).';
- INET_E_INVALID_REQUEST: Result := 'The request was invalid.';
- INET_E_INVALID_URL: Result := 'The URL could not be parsed.';
- INET_E_NO_SESSION: Result := 'No Internet session was established.';
- INET_E_NO_VALID_MEDIA: Result :=
- 'The object is not in one of the acceptable MIME types.';
- INET_E_OBJECT_NOT_FOUND: Result := 'The object was not found.';
- INET_E_QUERYOPTION_UNKNOWN: Result := 'The requested option is unknown.';
- INET_E_REDIRECT_TO_DIR: Result :=
- 'The request is being redirected to a directory.';
- INET_E_REDIRECTING: Result := 'The request is being redirected.';
- INET_E_RESOURCE_NOT_FOUND: Result := 'The server or proxy was not found.';
- INET_E_RESULT_DISPATCHED: Result := 'Result is dispatched.';
- INET_E_SECURITY_PROBLEM: Result := 'A security problem was encountered.';
- INET_E_TERMINATED_BIND: Result := 'Binding is terminated.';
- INET_E_UNKNOWN_PROTOCOL: Result :=
- 'The protocol is not known and no pluggable protocols have been entered that match.';
- //INET_E_USE_DEFAULT_PROTOCOLHANDLER: Result := 'Use the default protocol handler.';
- INET_E_USE_EXTEND_BINDING: Result :=
- 'Re-issue request with extended Binding.';
- INET_E_USE_DEFAULT_SETTING: Result := 'Use the default settings.';
- MK_E_CANTOPENFILE: Result := 'Moniker cannot open file.';
- MK_E_CONNECTMANUALLY: Result :=
- 'The operation was unable to connect to the storage, possibly because a network device could not be connected to. For more information, see IMoniker::BindToObject.';
- MK_E_ENUMERATION_FAILED: Result := 'Moniker could not be enumerated';
- MK_E_EXCEEDEDDEADLINE: Result :=
- 'The operation could not be completed within the time limit specified by the bind context''s BIND_OPTS structure.';
- MK_E_INTERMEDIATEINTERFACENOTSUPPORTED: Result :=
- 'An intermediate object was found but it did not support an interface required for an operation. For example, an item moniker returns this value if its container does not support the IOleItemContainer interface.';
- MK_E_INVALIDEXTENSION: Result := 'Bad extension for file.';
- MK_E_MUSTBOTHERUSER: Result :=
- 'User input required for operation to succeed.';
- MK_E_NEEDGENERIC: Result := 'Moniker needs to be generic.';
- MK_E_NOINVERSE: Result := 'Moniker class has no inverse.';
- MK_E_NOOBJECT: Result := 'No object for moniker.';
- MK_E_NOPREFIX: Result := 'No common prefix.';
- MK_E_NOSTORAGE: Result :=
- 'The object identified by the moniker does not have its own storage.';
- MK_E_NOTBINDABLE: Result := 'Moniker is not bindable.';
- MK_E_NOTBOUND: Result := 'Moniker is not bound.';
- MK_E_SYNTAX: Result :=
- 'A moniker could not be created because of invalid URL syntax.';
- MK_E_UNAVAILABLE: Result := 'Operation unavailable.';
- S_OK: Result := 'The operation was successful';
- STG_E_ACCESSDENIED: Result := 'Unable to access the storage object.';
- MK_S_ASYNCHRONOUS: Result := 'Asynchronous mode.';
- else
- Result := 'Unknown Response: ' + IntToStr(dwResponse) + ' ' +
- SysErrorMessage(dwResponse)
- end;
-end;
-
-function WideStringToLPOLESTR(const Source: Widestring): POleStr;
-var
- Len: Integer;
-begin
- Len := Length(Source) * SizeOf(WideChar);
- Result := CoTaskMemAlloc(Len + 2);
- FillChar(Result^, Len + 2, 0);
- Move(Result^, PWideString(Source)^, Len);
-end;
-
-function SecToStr(const Seconds: LongInt): string;
-var
- H: Integer;
- M: Integer;
- S: Integer;
-begin
- h := (Seconds div 60) div 60 mod 60;
- m := (Seconds div 60) mod 60;
- s := Seconds mod 60;
- Result := Format('%2.2d:%2.2d:%2.2d', (.H, M, S.));
-end;
-
-function FormatTickToTime(TickCount: Cardinal): string;
-var
- Hours, Minutes, Seconds, MSecs: Cardinal;
- S_HUR, S_MIN, S_SEC, S_MSC: string;
-begin
- S_MSC := '000';
- S_SEC := '00';
- S_MIN := '00';
- S_HUR := '00';
- try
- if (TickCount > 0) then
- begin
- MSecs := TickCount mod MSecsPerSec;
- TickCount := TickCount div MSecsPerSec;
- S_MSC := Format('%.3d', [MSecs]);
- Seconds := TickCount mod SecsPerMin;
- TickCount := TickCount div SecsPerMin;
- S_SEC := Format('%.2d', [Seconds]);
- Minutes := TickCount mod MinsPerHour;
- TickCount := TickCount div MinsPerHour;
- S_MIN := Format('%.2d', [Minutes]);
- Hours := TickCount mod HoursPerDay;
- S_HUR := Format('%.2d', [Hours]);
- end;
- finally
- if S_HUR = '00' then
- Result := S_MIN + 'm :' + S_SEC + 's :' + S_MSC + 'ms';
- if (S_HUR = '00') and (S_MIN = '00') then
- Result := S_SEC + 's :' + S_MSC + 'ms';
- if S_HUR <> '00' then
- Result := S_HUR + 'h :' + S_MIN + 'm :' + S_SEC + 's :' + S_MSC + 'ms';
- end;
-end;
-
-
-function StrToCase(StringOf: string; CasesList: array of string): Integer;
-var
- Idx: integer;
-begin
- Result := -1;
- for Idx := 0 to Length(CasesList) - 1 do
- begin
- if CompareText(StringOf, CasesList[Idx]) = 0 then
- begin
- Result := Idx;
- Break;
- end;
- end;
-end;
-
-function FormatSize(Byte: Double): string;
-begin
- if (Byte > 0) then
- begin
- if (Byte < 1024) then
- Result := Format('%.2n b', [Byte])
- else
- if (Byte > 1024) then
- begin
- Byte := (Byte / 1024);
- if (Byte < 1024) then
- Result := Format('%.2n Kb', [Byte])
- else
- begin
- Byte := (Byte / 1024);
- Result := Format('%.2n Mb', [Byte]);
- end;
- end;
- end;
-end;
-
-function IsValidURL(const URL: Widestring): Boolean;
-begin
- Result := UrlMon.IsValidURL(nil, PWideChar(URL), 0) = S_OK;
-end;
-
-
-function WideStringToWideChar(const inString: WideString): PWideChar;
-begin
- Result := CoTaskMemAlloc((Length(inString) + 1) * SizeOf(WideChar));
- Move(inString, Result, (Length(inString) + 1) * SizeOf(WideChar));
-end;
-
-procedure FreeWideChar(var inString: PWideChar);
-begin
- if Assigned(inString) then
- begin
- CoTaskMemFree(inString);
- inString := nil;
- end;
-end;
-
-function QueryRemoteFileInfo(const Url: string; dwInfoFlag: Integer): string;
-var
- hInet: HINTERNET;
- hConnect: HINTERNET;
- infoBuffer: array[0..512] of char;
- dummy: DWORD;
- bufLen: DWORD;
- lbResult: LongBool;
-begin
- hInet := InternetOpen(PChar('TIDownload'),
- INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY, nil, nil, 0);
- hConnect := InternetOpenUrl(hInet, PChar(Url), nil, 0, INTERNET_FLAG_NO_UI, 0);
- if not Assigned(hConnect) then
- begin
- Result := '';
- end
- else
- begin
- dummy := 0;
- bufLen := Length(infoBuffer);
- lbResult := HttpQueryInfo(hConnect, dwInfoFlag, @infoBuffer[0], bufLen, dummy);
- if lbResult then
- Result := infoBuffer
- else
- Result := '';
- InternetCloseHandle(hConnect);
- end;
- InternetCloseHandle(hInet);
-end;
-
-function GetInfoByMimeType(const ContentType: string): boolean;
-var
- Reg: TRegistry;
- CLSID: string;
-begin
- Result := FALSE;
-
- Reg := TRegistry.Create(KEY_READ);
- try
- with Reg do
- begin
- RootKey := HKEY_CLASSES_ROOT;
- if OpenKeyReadOnly('MIME\Database\Content Type\' + ContentType) then
- begin
- if ValueExists('CLSID') then
- begin
- CLSID := ReadString('CLSID');
- if CLSID <> '' then
- begin
- if OpenKeyReadOnly('\CLSID\' + CLSID) then
- begin
- if KeyExists('Control') then
- begin
- if KeyExists('EnableFullPage') then
- begin
- Result := TRUE;
- end;
- end;
- end;
- end;
- end;
- end;
- CloseKey;
- end;
- finally
- Reg.Free;
- end;
-end;
-
-function StrContain(SubString: string; Str: string): boolean;
-begin
- Result := AnsiPos(AnsiLowerCase(SubString), AnsiLowerCase(Str)) > 0;
-end;
-
-function IncludeTrailingPathDelimiter(const S: string): string;
-begin
- Result := S;
- if not IsPathDelimiter(Result, Length(Result)) then
- Result := Result + PathDelim;
-end;
-
-function CharReplace(const Source: string; OldChar, NewChar: Char): string;
-var
- i: Integer;
-begin
- Result := Source;
- for i := 1 to Length(Result) do
- if Result[i] = OldChar then
- Result[i] := NewChar
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/IEGuid.pas b/windows/src/ext/embeddedwb/Source/IEGuid.pas
deleted file mode 100644
index 6c6569cc2a86af59c39b088fb9c4513a7c2688fb..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEGuid.pas
+++ /dev/null
@@ -1,544 +0,0 @@
-//****************************************************
-// IE-Guid *
-// For Delphi *
-// Freeware Component *
-// by *
-// *
-// Per Linds Larsen *
-// http://www.euromind.com/iedelphi *
-// *
-// Contributor: *
-// Eran Bodankin (bsalsa) - D2005 update and bug fix *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 3 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. You may consider donation in our web site!
-{*******************************************************************************}
-//$Id: IEGuid.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-
-unit IEGuid;
-
-interface
-
-uses
- Mshtml_Ewb, Clipbrd, Comobj, Activex, Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
-
-type
-
- TIEGuid = class(TObject)
- private
- function LoadList(Fname: string): Integer;
- public
- Names: TStringlist;
- Guids: TStringlist;
- function NameFromGuid(Guid: TGUID): string;
- function NameFromGuidStr(GuidStr: string): string;
- function CopyToClipboard(GuidName: string): HResult;
- function GetInterfaces(Unk: IUnknown; const S: TStrings): HResult;
- function GetServices(Unk: IUnknown; rsid: string; const S: TStrings): HResult;
- function GetConnectionPoints(Unk: IUnknown; const S: TStrings; ShowIDispatch: Boolean): HResult;
- procedure GetPropertyList(const Obj: IDispatch; const S: TStrings);
- function GetDispatchFromName(const Disp: IDispatch; const PropertyName: WideString): OleVariant;
- function GetInterfacesEx(Unk: IUnknown;
- const S: TStrings; ShowIUnknown, ShowIDispatch, ShowIDispatchEx, ShowDispinterfaces: Boolean): HResult;
- destructor Destroy; override;
- constructor Create(const fname: string);
- end;
-
-function CreateIEGuid(HeadersDir, GuidFile: string): Integer;
-function CreateIEList(Guidfile, IEList: string): Integer;
-
-implementation
-
-{ TIEGuid }
-
-function TIEGuid.GetDispatchFromName(const Disp: IDispatch; const PropertyName: WideString): OleVariant;
-var
- PName: PWideChar;
- DispID: Integer;
- ExcepInfo: TExcepInfo;
- DispParams: TDispParams;
- Status: HResult;
-begin
- Result := disp <> nil;
- if Result then
- begin
- PName := PWideChar(PropertyName);
- if PName <> 'parentDocument' then
- begin
- if PropertyName = '' then
- Result := DISPID_UNKNOWN
- else
- Disp.GetIDsOfNames(GUID_NULL, @PName, 1, GetThreadLocale, @DispID);
- FillChar(DispParams, SizeOf(DispParams), 0);
- Status := Disp.Invoke(DispID, GUID_NULL, 0, DISPATCH_PROPERTYGET, DispParams,
- @Result, @ExcepInfo, nil);
- if Status <> S_OK then
- DispatchInvokeError(Status, ExcepInfo);
- end;
- end;
-end;
-
-procedure TIEGuid.GetPropertyList(const Obj: IDispatch; const S: TStrings);
-var
- i: Integer;
- TI: ITypeInfo;
- TA: PTypeAttr;
- FD: PFuncDesc;
- aName: WideString;
- vt: Integer;
-begin
- OleCheck(Obj.GetTypeInfo(0, 0, TI));
- OleCheck(TI.GetTypeAttr(TA));
- for i := 0 to TA.cFuncs - 1 do
- begin
- OleCheck(TI.GetFuncDesc(i, FD));
- if (FD.invkind = INVOKE_PROPERTYGET) then
- begin
- TI.GetDocumentation(FD.memid, @aName, nil, nil, nil);
- vt := fd.elemdescFunc.tdesc.vt;
- if (vt = VT_DISPATCH) or (vt = VT_PTR) then
- S.add(aName);
- end;
- TI.ReleaseFuncDesc(FD);
- end;
- TI.ReleaseTypeAttr(TA);
-end;
-
-// Create list of .h-files in Headers directory
-
-function GetFileList(const Path: string; var FileList:
- TStringList): Boolean;
-var
- SearchRec: TSearchRec;
- ff: Integer;
-begin
- GetFileList := False;
- ff := FindFirst(Path + '\*.*', faAnyFile, SearchRec);
- if ff = 0 then
- begin
- GetFileList := True;
- if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
- begin
- if (SearchRec.Attr and $10 <> $10)
- then
- if Pos('.h', SearchRec.Name) > 0 then
- FileList.Add(Path + '\' + SearchRec.Name);
- end;
- repeat
- ff := FindNext(SearchRec);
- if ff = 0 then
- begin
- if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
- begin
- if (SearchRec.Attr and $10 <> $10) then
- FileList.Add(Path + '\' + SearchRec.Name);
- end;
- end;
- until ff <> 0;
- end;
-end;
-
-function FindStr(S: string; I: Integer; Token: string): string;
-var
- counter, t, t1, t2: Shortint;
-begin
- S := Token + S + Token;
- counter := 1;
- t := 0;
- while t < I do
- begin
- if Copy(S, counter, 1) = Token then
- Inc(t);
- inc(counter);
- end;
- t1 := counter;
- if Copy(S, counter, 1) = token then
- Result := ''
- else
- begin
- Inc(Counter);
- while Copy(S, counter, 1) <> Token do
- Inc(counter);
- t2 := counter - t1;
- Result := copy(S, t1, t2);
- end;
-end;
-
-function ExtractDefineGuid(GuidStr: string): string;
-var
- o, Temp, s, G: string;
- X: Integer;
-begin
- GuidStr := Trim(StringReplace(GuidStr, ' ', '', [rfReplaceAll, rfIgnoreCase]));
- Guidstr := Stringreplace(GuidStr, Chr($09), '', [rfReplaceAll]);
- g := Copy(GuidStr, 13, Pos(',', GuidStr) - 13);
- S := Uppercase(Copy(GuidStr, Pos('0x', GuidStr), 255));
- S := Trim(StringReplace(S, ');', '', [rfReplaceAll, rfIgnoreCase]));
- S := StringReplace(S, '0x', '', [rfReplaceAll, rfIgnoreCase]);
- S := StringReplace(S, 'L', '', [rfReplaceAll, rfIgnoreCase]);
- X := 1;
- o := '';
- repeat
- Temp := Findstr(S, X, ',');
- if (Length(Temp) = 1) or (Length(temp) = 3) or (Length(temp) = 7) then
- o := o + '0' + temp
- else
- o := o + temp;
- Inc(x);
- until Temp = '';
- s := o;
- S := StringReplace(S, ',', '', [rfReplaceAll, rfIgnoreCase]);
- s := Trim('{' + Copy(s, 1, 8) + '-' + Copy(S, 9, 4) + '-' + Copy(s, 13, 4) + '-' + Copy(s, 17, 4) + '-' + Copy(s, 21, 12) + '}');
- if (Length(s) <> 38) or (Pos('name', g) > 0) or (Pos('DEFINE_', S) > 0) then
- Result := ''
- else
- Result := g + '=' + S;
-end;
-
-//Extract GUIDS Registry: HKEY_CLASSES_ROOT\Interfaces
-
-procedure GetGuidsFromRegistry(Guids: TStringList);
-var
- dwIndex: DWORD;
- cb: Integer;
- szIID: array[0..80] of char;
- szvalue: array[0..256] of char;
- hk: HKEY;
- Str: string;
-begin
- cb := SizeOf(szValue);
- RegOpenKey(HKEY_CLASSES_ROOT, 'Interface', hk);
- dwIndex := 0;
- while RegEnumKey(hk, dwindex, szIID, SizeOf(szIID)) = ERROR_SUCCESS
- do
- begin
- szValue := '';
- RegQueryValue(hk, szIID, szvalue, cb);
- if (szValue <> '') then
- begin
- str := string(szvalue) + '=' + szIID;
- if Guids.IndexOf(str) = -1 then
- Guids.Add(str);
- end;
- inc(dwIndex);
- end;
-end;
-
-function CreateIEGuid(HeadersDir, GuidFile: string): Integer;
-var
- files, lines, Guids: TStringlist;
- S, n, g: string;
- X, Fcounter, Lcounter: Integer;
-begin
- Files := TStringlist.Create;
- Lines := TStringlist.Create;
- Guids := TStringlist.Create;
- Guids.Sorted := True;
- GetFileList(HeadersDir, Files);
- for FCounter := 0 to Files.Count - 1 do
- begin
- Lines.LoadFromFile(Files[FCounter]);
- for LCounter := 0 to Lines.Count - 1 do
- begin
- if Pos('MIDL_INTERFACE("', Lines[LCounter]) > 0 then
- //(1) Extract GUIDS from MIDL_INTERFACE("... lines in header files
- begin
- g := UpperCase('{' + Copy(Trim(Lines[LCounter]), 17, 36) + '}');
- n := Copy(Trim(Lines[LCounter + 1]), 1, 255);
- if n = '' then
- N := Copy(Trim(Lines[LCounter + 2]), 1, 255);
- n := Copy(n, 1, Pos(' ', n) - 1);
- S := n + '=' + g;
- if (Guids.IndexOf(S) < 0) and (n <> '') then
- Guids.Add(S);
- end
- else
- if Pos('DEFINE_GUID(', Trim(Lines[LCounter])) = 1 then
- begin
- //(2) Extract GUIDS from DEFINE_GUID("... lines in header files
- n := Lines[LCounter];
- x := LCounter;
- while (pos(');', n) = 0) and (x < lines.count) do
- begin
- Inc(x);
- n := n + Lines[x];
- end;
- S := ExtractDefineGuid(n);
- if s <> '' then
- if Guids.IndexOf(s) < 0 then
- Guids.Add(s);
- end
- else
- if (pos('__declspec(uuid("', Lines[LCounter]) > 0) and (Pos(';', Lines[LCounter]) > 0) then
- begin
- // (3) Extract GUIDS from __declspec(uuid("... lines in header files
- g := Copy(Lines[LCOunter], Pos('declspec(uuid("', Lines[LCounter]) + 15, 255);
- n := '{' + Copy(G, 1, Pos('"', G) - 1) + '}';
- g := Copy(g, Pos(' ', g), 255);
- g := Trim(StringReplace(g, ';', '', [rfReplaceAll]));
- S := g + '=' + Uppercase(n);
- if Guids.IndexOf(S) < 0 then
- Guids.Add(S);
- end;
- end;
- end;
- Files.Free;
- Lines.Free;
- GetGuidsFromRegistry(Guids);
- Result := Guids.Count;
- Guids.SaveToFile(GuidFile);
- Guids.Free;
-end;
-
-function CreateIEList(GuidFile, Ielist: string): Integer;
-var
- S: string;
- i: Integer;
- Temp: TStringlist;
- Guids: TStringlist;
-begin
- Temp := TStringlist.Create;
- Guids := TStringlist.Create;
- Guids.LoadFromFile(GuidFile);
- for I := 0 to Guids.Count - 1 do
- begin
- s := Uppercase(Guids[i]);
-
- if (pos('DISP', S) = 1) or (pos('HTML', S) = 1) or (pos('SID_', S) = 1) or
- (pos('DWEB', S) = 1) or (pos('CGID', S) = 1) or ((pos('I', S) = 1) and (pos('IID_', S) = 0))
- then
- Temp.Add(Guids[i])
- else
- if (pos('IID_I', S) = 1) and (Guids.IndexOf(Copy(S, 5, 255)) = -1) then
- Temp.add(copy(guids[i], 5, 255));
-
- end;
- if Temp.IndexOf('CGID_MSHTML={DE4BA900-59CA-11CF-9592-444553540000}') = -1 then
- Temp.Add('CGID_MSHTML={DE4BA900-59CA-11CF-9592-444553540000}');
-
- Temp.SaveToFile(IEList);
- Result := Temp.Count;
- Temp.Free;
- Guids.Free;
-end;
-
-function TIEGuid.LoadList(Fname: string): Integer;
-var
- X: Integer;
- Temp: TStringlist;
-begin
- Guids.Clear;
- Names.Clear;
- Temp := TStringlist.Create;
- try
- Temp.LoadFromFile(FName);
- for x := 0 to Temp.Count - 1 do
- begin
- Guids.Add(Copy(Temp[x], Pos('=', Temp[x]) + 1, 255));
- Names.Add(Copy(Temp[x], 1, Pos('=', Temp[x]) - 1));
- end;
- Result := Guids.Count;
- finally
- Temp.Free;
- end;
-end;
-
-destructor TIEGuid.Destroy;
-begin
- if Names <> nil then
- Names.Free;
- if Guids <> nil then
- Guids.Free;
- inherited;
-end;
-
-constructor TIEGuid.Create(const fname: string);
-begin
- inherited Create;
- if FileExists(fname) then
- begin
- Names := TStringlist.Create;
- Guids := TStringlist.Create;
- loadlist(Fname);
- end;
-end;
-
-function TIEGuid.NameFromGuidStr(GuidStr: string): string;
-var
- i: Integer;
-begin
- i := Guids.IndexOf(GuidStr);
- if i > -1 then
- Result := Names[i]
- else
- Result := GuidStr;
-end;
-
-function TIEGuid.CopyToClipboard(GuidName: string): HResult;
-var
- // s: string;
- x: Integer;
-begin
- x := Names.IndexOf(guidname);
- if x > -1 then
- begin
- ClipBoard.SetTextBuf(Pchar(Names[x] + ' : TGUID = ''' + Guids[x] + ''';'));
- Result := S_OK;
- end
- else
- Result := S_FALSE;
-end;
-
-function TIEGuid.NameFromGuid(Guid: TGUID): string;
-var
- s: string;
- i: Integer;
-begin
- s := GuidToString(Guid);
- i := Guids.IndexOf(s);
- if i > -1 then
- Result := Names[i]
- else
- Result := S;
-end;
-
-function TIEGuid.GetServices(Unk: IUnknown; rsid: string; const S: TStrings): HResult;
-var
- Isp: IServiceprovider;
- x: Integer;
- i: IUnknown;
- G, N: string;
-begin
- Result := S_FALSE;
- x := Names.IndexOf(rsid);
- if ((rsid <> '') and (x = -1)) or not Assigned(unk) then
- Exit;
- if x > -1 then
- begin
- G := Guids[x];
- n := Names[x];
- end;
- if Succeeded(Unk.QueryInterface(IServiceprovider, isp))
- then
- for x := 0 to Guids.Count - 1 do
- begin
- if rsid = '' then
- begin
- G := Guids[x];
- N := Names[x];
- end;
- try
- if isp.QueryService(StringtoGuid(G), StringtoGuid(Guids[x]), i) = S_OK
- then
- S.Add(Names[x]);
- except
- ShowMessage('Invalid GUID: ' + Names[x]);
- end;
- Result := S_OK;
- end;
-end;
-
-function TIEGuid.GetInterfaces(Unk: IUnknown;
- const S: TStrings): HResult;
-var
- i: IUnknown;
- x: Integer;
-begin
- Result := S_OK;
- if not Assigned(unk) then
- begin
- Result := S_FALSE;
- Exit;
- end
- else
- for x := 0 to Guids.count - 1 do
- try
- if Succeeded(unk.QueryInterface(StringToGuid(Guids[x]), i)) then
- S.Add(Names[x]);
- except
- ShowMessage('Invalid GUID: ' + Names[x]);
- end;
-end;
-
-function TIEGuid.GetInterfacesEx(Unk: IUnknown;
- const S: TStrings; ShowIUnknown, ShowIDispatch, ShowIDispatchEx, ShowDispinterfaces: Boolean): HResult;
-var
- I: IUnknown;
- // Show: Boolean;
- x: Integer;
-begin
- Result := S_OK;
- if not Assigned(unk) then
- begin
- Result := S_FALSE;
- Exit;
- end
- else
- for x := 0 to Guids.count - 1 do
- try
- if Succeeded(unk.QueryInterface(StringToGuid(Guids[x]), i)) then
- if ((not ShowIdispatch and (UpperCase(Names[x]) = 'IDISPATCH')) or
- (not ShowIdispatchEx and (UpperCase(Names[x]) = 'IDISPATCHEX')) or
- (not ShowIUnknown and (UpperCase(Names[x]) = 'IUNKNOWN'))) or
- (not ShowDispInterfaces and (Pos('DISP', UpperCase(Names[x])) = 1)) then
- else
- S.Add(Names[x]);
- except
- ShowMessage('Invalid GUID for: ' + Names[x]);
- end;
-end;
-
-function TIEGuid.GetConnectionPoints(Unk: IUnknown; const S: TStrings; ShowIDispatch: Boolean): HResult;
-var
- IID: TGuid;
- CPC: IConnectionPointContainer;
- iecp: IEnumConnectionPoints;
- cp: IConnectionPoint;
- Fetched: Integer;
-begin
- Result := S_FALSE;
- if Assigned(unk) then
- begin
- if Succeeded(Unk.QueryInterface(IConnectionPointContainer, CPC)) then
- begin
- CPC.EnumConnectionPoints(iecp);
- iecp.Next(1, cp, @Fetched);
- repeat
- cp.GetConnectionInterface(iid);
- if (Uppercase(NameFromGuid(IID)) = 'IDISPATCH') and not ShowIdispatch
- then else
- S.Add(NameFromGuid(IID));
- iecp.Next(1, cp, @Fetched);
- until fetched = 0;
- Result := S_OK
- end;
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/IEMultiDownload.pas b/windows/src/ext/embeddedwb/Source/IEMultiDownload.pas
deleted file mode 100644
index 35d37fdac96c482ddfd5e61fb7787f895d1ca637..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEMultiDownload.pas
+++ /dev/null
@@ -1,635 +0,0 @@
-//****************************************************
-// IEMultiDownload *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRES OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-
-unit IEMultiDownload;
-
-{$I EWB.inc}
-
-interface
-
-uses
- WinInet, MSHTML_EWB, Windows, SysUtils, Classes, Forms, ExtCtrls,
- IEDownload, IEParser, EwbUrl;
-
-type
- TIEMultiDownload = class;
-
- TMultiState = (msBusy, msReady, msStopped);
- TMultiDownloadOptions = (doAll, doImages, doPages, doVideo, doMusic);
-
- TDownloadItem = class(TCollectionItem)
- private
- FFileName: WideString;
- FPassword: WideString;
- FPath: WideString;
- FPort: integer;
- FProtocol: WideString;
- FRef: WideString;
- FRoot: WideString;
- FUser: WideString;
- procedure Set_Ref(const Value: WideString);
- procedure SetFileName(const Value: WideString);
- procedure SetPassword(const Value: WideString);
- procedure SetPath(const Value: WideString);
- procedure SetPort(const Value: integer);
- procedure SetProtocol(const Value: WideString);
- procedure SetRoot(const Value: WideString);
- procedure SetUser(const Value: WideString);
- public
- procedure Assign(Source: TPersistent); override;
- published
- property FileName: WideString read FFileName write SetFileName;
- property Ref: WideString read FRef write Set_Ref;
- property Password: WideString read FPassword write SetPassword;
- property Path: WideString read FPath write SetPath;
- property Port: integer read FPort write SetPort;
- property Protocol: WideString read FProtocol write SetProtocol;
- property Root: WideString read FRoot write SetRoot;
- property User: WideString read FUser write SetUser;
- end;
-
- TDownloadList = class(TCollection)
- private
- FIEMD: TIEMultiDownload;
- function GetItem(Index: Integer): TDownloadItem;
- procedure SetItem(Index: Integer; Value: TDownloadItem);
- protected
- function GetOwner: TPersistent; override;
- public
- constructor Create(IEMD: TIEMultiDownload);
- function Add: TDownloadItem;
- function Insert(Index: Integer): TDownloadItem;
- function IsListed(const aRef: WideString): Boolean;
- procedure DeleteItem(Index: Integer);
- procedure ClearItems;
- public
- property Items[index: Integer]: TDownloadItem read GetItem write SetItem; default;
- end;
-
- TOnMultiBeforeDownloadEvent = procedure(Sender: TObject; const hRef: WideString; const Item: TDownloadItem; var Cancel: boolean) of object;
- TOnMultiCompleteEvent = procedure(Sender: TObject; const DownloadedList: TStrings) of object;
- TOnMultiGetDocInfoEvent = procedure(Sender: TObject; const Text: string) of object;
- TOnMultiGetImageEvent = procedure(Sender: TObject; const ImgName: string; var Cancel: Boolean) of object;
- TOnMultiGetLinkEvent = procedure(Sender: TObject; const hRef, Host, HostName, PathName, Port, Protocol, MimeType, NameProp: string; var Cancel: Boolean) of object;
- TOnMultiGetQueryInfoEvent = procedure(const MimeType, Encoding, Disposition: string) of object;
- TOnMultiItemAddedEvent = procedure(Sender: TObject; const hRef, hProtocol, hRoot, hPath, hFileName, hUser, hPassword: WideString; const hPort: integer) of object;
- TOnMultiParseCompleteEvent = procedure(Sender: TObject; Doc: IhtmlDocument2; All: IHtmlElementCollection) of object;
- TOnMultiParseDocumentEvent = procedure(Sender: TObject; const Res: HRESULT; stMessage: string) of object;
- TOnMultiParseErrorEvent = procedure(Sender: TObject; const ErrorCode: integer; const Url, stError: string) of object;
- TOnMultiParseProgressEvent = procedure(Sender: TObject; const ulProgress, ulProgressMax: integer) of object;
- TOnMultiStateChangeEvent = procedure(Sender: TObject; const State: TMultiState) of object;
- TOnMultiStartParsingEvent = procedure(Sender: TObject; const aUrl: WideString) of object;
-
- TIEMultiDownload = class(TCustomIEDownload)
- private
- FAbout: string;
- FBaseFolder: WideString;
- FBaseUrl: WideString;
- FAbort: Boolean;
- FDownloadLevel: integer;
- FFromBaseSiteOnly: Boolean;
- FGetCompleteBaseSite: Boolean;
- FItems: TDownloadList;
- FMultiDownloadOptions: TMultiDownloadOptions;
- FMultiState: TMultiState;
- FMaxItems: integer;
- FOnMultiBeforeDownload: TOnMultiBeforeDownloadEvent;
- FOnMultiComplete: TOnMultiCompleteEvent;
- FOnMultiGetDocInfo: TOnMultiGetDocInfoEvent;
- FOnMultiGetImage: TOnMultiGetImageEvent;
- FOnMultiGetLink: TOnMultiGetLinkEvent;
- FOnMultiGetQueryInfo: TOnMultiGetQueryInfoEvent;
- FOnMultiItemAdded: TOnMultiItemAddedEvent;
- FOnMultiParseComplete: TOnMultiParseCompleteEvent;
- FOnMultiParseDocument: TOnMultiParseDocumentEvent;
- FOnMultiParseError: TOnMultiParseErrorEvent;
- FOnMultiParseProgress: TOnMultiParseProgressEvent;
- FOnMultiStateChange: TOnMultiStateChangeEvent;
- FOnMultiStartParsing: TOnMultiStartParsingEvent;
- FOpenFolder: boolean;
- FProgress, FProgressMax: integer;
- FTimer: TTimer;
- FRoorUrl: string;
- HtmlParser: TIEParser;
- slDownloadedList: TStringList;
- UrlParser: TUrl;
- procedure DoOnExit;
- procedure DownloadList(const aItems: TDownloadList);
- procedure MultiAnchor(Sender: TObject; hRef, Target, Rel, Rev, Urn, Methods, Name, Host, HostName, PathName, Port, Protocol, Search, Hash, AccessKey, ProtocolLong, MimeType, NameProp: string; Element: TElementInfo);
- procedure MultiGetDocInfo(Sender: TObject; const Text: string);
- procedure MultiGetQueryInfo(const MimeType, Encoding, Disposition: string);
- procedure MultiImage(Sender: TObject; Source: string; ImgElement: IHTMLImgElement; Element: TElementInfo);
- procedure MultiParseComplete(Sender: TObject; Doc: IhtmlDocument2; All: IHtmlElementCollection);
- procedure MultiParseDocument(Sender: TObject; const Res: HRESULT; stMessage: string);
- procedure MultiParseError(Sender: TObject; const ErrorCode: integer; const Url, stError: string);
- procedure MultiStartParsing(Sender: TObject; const aUrl: WideString);
- procedure SetAbout(Value: string);
- procedure SetItems(Value: TDownloadList);
- procedure SetMaxItems(Value: Integer);
- procedure MultiTimer(Sender: TObject);
- protected
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function AddItem(const aRef: string): TDownloadItem;
- procedure GoMulti(BaseUrl: WideString);
- procedure SetDownloadOptions(const Value: TMultiDownloadOptions);
- procedure Stop;
-
- public
- property DownloadedList: TStringList read slDownloadedList;
- property MultiState: TMultiState read FMultiState;
- published
- property About: string read FAbout write SetAbout;
- property BaseUrl: WideString read FBaseUrl write FBaseUrl;
- property DownloadLevel: integer read FDownloadLevel write FDownloadLevel default 1;
- property DownloadOptions: TMultiDownloadOptions read FMultiDownloadOptions write SetDownloadOptions default doAll;
- property FromBaseSiteOnly: boolean read FFromBaseSiteOnly write FFromBaseSiteOnly default True;
- property GetCompleteBaseSite: boolean read FGetCompleteBaseSite write FGetCompleteBaseSite default False;
- property Items: TDownloadList read FItems write SetItems;
- property MaxItems: integer read FMaxItems write SetMaxItems default 100;
- property OnMultiBeforeDownload: TOnMultiBeforeDownloadEvent read FOnMultiBeforeDownload write FOnMultiBeforeDownload;
- property OnMultiComplete: TOnMultiCompleteEvent read FOnMultiComplete write FOnMultiComplete;
- property OnMultiGetDocInfo: TOnMultiGetDocInfoEvent read FOnMultiGetDocInfo write FOnMultiGetDocInfo;
- property OnMultiGetImage: TOnMultiGetImageEvent read FOnMultiGetImage write FOnMultiGetImage;
- property OnMultiGetLink: TOnMultiGetLinkEvent read FOnMultiGetLink write FOnMultiGetLink;
- property OnMultiGetQueryInfo: TOnMultiGetQueryInfoEvent read FOnMultiGetQueryInfo write FOnMultiGetQueryInfo;
- property OnMultiItemAdded: TOnMultiItemAddedEvent read FOnMultiItemAdded write FOnMultiItemAdded;
- property OnMultiParseComplete: TOnMultiParseCompleteEvent read FOnMultiParseComplete write FOnMultiParseComplete;
- property OnMultiParseDocument: TOnMultiParseDocumentEvent read FOnMultiParseDocument write FOnMultiParseDocument;
- property OnMultiParseError: TOnMultiParseErrorEvent read FOnMultiParseError write FOnMultiParseError;
- property OnMultiParseProgress: TOnMultiParseProgressEvent read FOnMultiParseProgress write FOnMultiParseProgress;
- property OnMultiStateChange: TOnMultiStateChangeEvent read FOnMultiStateChange write FOnMultiStateChange;
- property OnMultiStartParsing: TOnMultiStartParsingEvent read FOnMultiStartParsing write FOnMultiStartParsing;
- end;
-
-implementation
-
-uses
- IEDownloadTools;
-
-procedure TDownloadItem.Assign(Source: TPersistent);
-var
- Item: TDownloadItem;
-begin
- if (Source is TDownloadItem) then
- begin
- Item := (Source as TDownloadItem);
- FRef := Item.Ref;
- FProtocol := Item.Protocol;
- FRoot := Item.Root;
- FPort := Item.Port;
- FFileName := Item.FileName;
- FUser := Item.User;
- FPassword := Item.Password;
- FPath := Item.Path;
- end
- else
- begin
- inherited Assign(Source);
- end;
-end;
-
-procedure TDownloadItem.SetFileName(const Value: WideString);
-begin
- if FFileName <> Value then
- FFileName := Value;
-end;
-
-procedure TDownloadItem.SetPath(const Value: WideString);
-begin
- if FPath <> Value then
- FPath := Value;
-end;
-
-procedure TDownloadItem.SetRoot(const Value: WideString);
-begin
- if FRoot <> Value then
- FRoot := Value;
-end;
-
-procedure TDownloadItem.SetPort(const Value: integer);
-begin
- if FPort <> Value then
- FPort := Value;
-end;
-
-procedure TDownloadItem.SetUser(const Value: WideString);
-begin
- if FUser <> Value then
- FUser := Value;
-end;
-
-procedure TDownloadItem.SetPassword(const Value: WideString);
-begin
- if FPassword <> Value then
- FPassword := Value;
-end;
-
-procedure TDownloadItem.Set_Ref(const Value: WideString);
-begin
- if FRef <> Value then
- FRef := Value;
-end;
-
-procedure TDownloadItem.SetProtocol(const Value: WideString);
-begin
- if FProtocol <> Value then
- FProtocol := Value;
-end;
-
-//-------------------------------------------------------------------------------
-
-procedure TDownloadList.DeleteItem(Index: Integer);
-begin
- Delete(Index);
-end;
-
-procedure TDownloadList.ClearItems;
-begin
- Clear;
-end;
-
-function TDownloadList.GetItem(Index: Integer): TDownloadItem;
-begin
- Result := TDownloadItem(inherited GetItem(Index));
-end;
-
-procedure TDownloadList.SetItem(Index: Integer; Value: TDownloadItem);
-begin
- inherited SetItem(Index, Value);
-end;
-
-function TDownloadList.Add: TDownloadItem;
-begin
- Result := TDownloadItem(inherited Add);
-end;
-
-function TDownloadList.Insert(Index: Integer): TDownloadItem;
-begin
- Result := Add;
- Result.Index := Index;
-end;
-
-function TDownloadList.IsListed(const aRef: WideString): Boolean;
-var
- I: Integer;
-begin
- Result := True;
- for I := 0 to Count - 1 do
- if CompareText(LowerCase(Items[I].FRef), LowerCase(aRef)) = 0 then
- Exit;
- Result := False;
-end;
-
-constructor TDownloadList.Create(IEMD: TIEMultiDownload);
-begin
- inherited Create(TDownloadItem);
- FIEMD := IEMD;
-end;
-
-function TDownloadList.GetOwner: TPersistent;
-begin
- Result := FIEMD;
-end;
-
-//-------------------------------------------------------------------------------
-
-function TIEMultiDownload.AddItem(const aRef: string): TDownloadItem;
-var
- UP: TUrl;
-begin
- Result := nil;
- if (not FItems.isListed(aRef)) and (FItems.Count <> FMaxItems) and
- (IEDownloadTools.IsValidURL(aRef)) then
- begin
- slDownloadedList.Add(aRef);
- UP := TUrl.Create(aRef);
- UP.Clear;
- UP.QueryUrl(aRef);
- with FItems.Add do
- begin
- FRef := aRef;
- FProtocol := UP.Protocol;
- FRoot := UP.HostName;
- FPort := UP.Port;
- FFileName := UP.Document;
- FUser := UP.UserName;
- FPassword := UP.Password;
- FPath := CharReplace(UP.UrlPath, '/', '\');
- ;
- if (FPath = Trim('/')) or (FPath = Trim('\')) then
- FPath := EmptyStr;
- if Assigned(FOnMultiItemAdded) then
- FOnMultiItemAdded(Self, FRef, FProtocol, FRoot, FPath, FFileName,
- FUser, FPassword, FPort);
- end;
- UP.Free;
- end;
-end;
-
-procedure TIEMultiDownload.DownloadList(const aItems: TDownloadList);
-var
- bCancel: Boolean;
- I: integer;
- FDLFolder: WideString;
-begin
- if (not FAbort) then
- for I := 0 to aItems.Count - 1 do
- begin
- if FAbort then
- Exit;
- with aItems.Items[I] do
- begin
- bCancel := False;
- if Assigned(FOnMultiBeforeDownload) then
- FOnMultiBeforeDownload(Self, aItems.Items[I].FRef, aItems.Items[I], bCancel);
- if not bCancel then
- begin
- FDLFolder := FBaseFolder + aItems.Items[I].FRoot +
- IncludeTrailingPathDelimiter(aItems.Items[I].FPath);
- if (aItems.Items[I].FRef <> EmptyStr) then
- Go(aItems.Items[I].FRef, aItems.Items[I].FFileName, FDLFolder);
- FDLFolder := EmptyStr;
- end;
- end;
- end;
-end;
-
-procedure TIEMultiDownload.GoMulti(BaseUrl: WideString);
-var
- I: integer;
-begin
- Reset;
- FAbort := False;
- FProgress := 0;
- FProgressMax := 100;
- FMultiState := msBusy;
- if Assigned(FOnMultiStateChange) then
- FOnMultiStateChange(Self, FMultiState);
- if OpenDownloadFolder = True then
- begin
- FOpenFolder := True;
- OpenDownloadFolder := False;
- end;
- if DownloadFolder = EmptyStr then
- DownloadFolder := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName) + 'Downloads');
- FBaseFolder := DownloadFolder;
- for I := 0 to FItems.Count - 1 do
- begin
- if (FItems[i].FRef <> EmptyStr) then
- DownloadList(FItems);
- end;
- if (BaseUrl <> EmptyStr) then
- begin
- UrlParser := TUrl.Create(BaseUrl);
- UrlParser.CrackUrl(BaseUrl, ICU_ESCAPE);
- FRoorUrl := UrlParser.HostName;
- with HtmlParser do
- begin
- FTimer := TTimer.Create(nil);
- FTimer.Enabled := True;
- FTimer.Interval := 500;
- FTimer.OnTimer := MultiTimer;
- OnAnchor := MultiAnchor;
- OnImage := MultiImage;
- OnParseDocument := MultiParseDocument;
- OnParseComplete := MultiParseComplete;
- OnParseError := MultiParseError;
- OnDocInfo := MultiGetDocInfo;
- OnQueryInfo := MultiGetQueryInfo;
- OnStartParsing := MultiStartParsing;
- Parse(BaseUrl);
- if (not FGetCompleteBaseSite) then
- begin
- if Assigned(FTimer) then
- FreeAndNil(FTimer);
- DownloadList(FItems);
- end
- else
- begin
- if (not FAbort) then
- for I := 0 to slDownloadedList.Count - 1 do
- begin
- Parse(slDownloadedList[I]);
- if Assigned(FTimer) then
- FreeAndNil(FTimer);
- end;
- DownloadList(FItems);
- end;
- end;
- if UrlParser <> nil then
- FreeAndNil(UrlParser);
- end;
- DoOnExit;
-end;
-
-procedure TIEMultiDownload.MultiTimer(Sender: TObject);
-begin
- FProgress := FProgress + 10;
- if FProgress = FProgressMax then
- FProgress := 1;
- if Assigned(FOnMultiParseProgress) then
- FOnMultiParseProgress(Self, FProgress, FProgressMax);
-end;
-
-procedure TIEMultiDownload.DoOnExit;
-begin
- if FOpenFolder then
- OpenFolder(FBaseFolder);
- if Assigned(FOnMultiComplete) then
- FOnMultiComplete(Self, slDownloadedList);
- slDownloadedList.Clear;
- Items.Clear;
- FMultiState := msStopped;
- if Assigned(FOnMultiStateChange) then
- FOnMultiStateChange(Self, FMultiState);
-end;
-
-procedure TIEMultiDownload.Stop;
-
-begin
- if FMultiState <> msBusy then
- Exit;
- FAbort := True;
- HtmlParser.Stop;
- CancelAll;
- while State <> sBusy do
- Forms.Application.ProcessMessages;
- DoOnExit;
-end;
-
-constructor TIEMultiDownload.Create(AOwner: Tcomponent);
-begin
- inherited Create(AOwner);
- FAbout := 'TIEMultiDownload from: http://www.bsalsa.com';
- FDownloadLevel := 1;
- FFromBaseSiteOnly := True;
- FItems := TDownloadList.Create(Self);
- FMaxItems := 100;
- FMultiDownloadOptions := doAll;
- slDownloadedList := TStringList.Create;
- with slDownloadedList do
- begin
-{$IFDEF DELPHI6UP}
- CaseSensitive := False;
-{$ENDIF}
- Sorted := True;
- Duplicates := dupIgnore;
- end;
- FMultiState := msReady;
- HtmlParser := TIEParser.Create(nil);
-end;
-
-destructor TIEMultiDownload.Destroy;
-begin
- slDownloadedList.Free;
- if HtmlParser <> nil then
- FreeAndNil(HtmlParser);
- FItems.Free;
- inherited Destroy;
-end;
-
-procedure TIEMultiDownload.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TIEMultiDownload.SetDownloadOptions(const Value: TMultiDownloadOptions);
-begin
- FMultiDownloadOptions := Value;
-end;
-
-procedure TIEMultiDownload.SetItems(Value: TDownloadList);
-begin
- FItems.Assign(Value);
-end;
-
-procedure TIEMultiDownload.SetMaxItems(Value: Integer);
-begin
-{$IFDEF DELPHI10_UP}
- if (Value <> FItems.Capacity) then
- FItems.Capacity := Value;
-{$ENDIF}
-end;
-
-procedure TIEMultiDownload.MultiAnchor(Sender: TObject; hRef, Target, Rel, Rev, Urn,
- Methods, Name, Host, HostName, PathName, Port, Protocol, Search, Hash,
- AccessKey, ProtocolLong, MimeType, NameProp: string; Element: TElementInfo);
-var
- bCancel: Boolean;
-begin
- if FMultiDownloadOptions = doImages then
- Exit;
- bCancel := False;
- if (hRef <> EmptyStr) and (not StrContain('mailto', hRef)) then
- begin
- if FFromBaseSiteOnly and (not StrContain(FRoorUrl, hRef)) then
- Exit;
- if Assigned(FOnMultiGetLink) then
- FOnMultiGetLink(Self, hRef, Host, HostName, PathName, Port, Protocol,
- MimeType, NameProp, bCancel);
- if (not bCancel) and (not FAbort) and ((FMultiDownloadOptions = doAll) and (not FAbort)
- or (FMultiDownloadOptions = doPages)) then
- begin
- AddItem(LowerCase(hRef));
- end;
- end;
-end;
-
-procedure TIEMultiDownload.MultiImage(Sender: TObject; Source: string; ImgElement: IHTMLImgElement; Element: TElementInfo);
-var
- bCancel: Boolean;
-begin
- if FMultiDownloadOptions = doPages then
- Exit;
- bCancel := False;
- if Source <> EmptyStr then
- begin
- if Assigned(FOnMultiGetImage) then
- FOnMultiGetImage(Self, Source, bCancel);
- if (not bCancel) and (not FAbort) and ((FMultiDownloadOptions = doAll) or
- (FMultiDownloadOptions = doImages)) then
- begin
- AddItem(LowerCase(Source));
- end;
- end;
-end;
-
-procedure TIEMultiDownload.MultiGetDocInfo(Sender: TObject; const Text: string);
-begin
- if Assigned(FOnMultiGetDocInfo) and not (FAbort) then
- FOnMultiGetDocInfo(Self, Text);
-end;
-
-procedure TIEMultiDownload.MultiParseError(Sender: TObject; const ErrorCode: integer; const
- Url, stError: string);
-begin
- if Assigned(FOnMultiParseError) then
- FOnMultiParseError(Self, ErrorCode, Url, stError);
-end;
-
-procedure TIEMultiDownload.MultiStartParsing(Sender: TObject; const aUrl: WideString);
-begin
- if Assigned(FOnMultiStartParsing) then
- FOnMultiStartParsing(Self, aUrl);
-end;
-
-procedure TIEMultiDownload.MultiGetQueryInfo(const MimeType, Encoding, Disposition: string);
-begin
- if Assigned(FOnMultiGetQueryInfo) and not (FAbort) then
- FOnMultiGetQueryInfo(MimeType, Encoding, Disposition);
-end;
-
-procedure TIEMultiDownload.MultiParseDocument(Sender: TObject; const
- Res: HRESULT; stMessage: string);
-begin
- if (Assigned(FOnMultiParseDocument)) and not (FAbort) then
- FOnMultiParseDocument(Self, Res, stMessage);
-end;
-
-procedure TIEMultiDownload.MultiParseComplete(Sender: TObject;
- Doc: IhtmlDocument2; All: IHtmlElementCollection);
-begin
- if Assigned(FOnMultiParseComplete) then
- FOnMultiParseComplete(Self, Doc, All);
-
- if Assigned(FOnMultiParseProgress) then
- FOnMultiParseProgress(Self, 0, 0);
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/IEParser.pas b/windows/src/ext/embeddedwb/Source/IEParser.pas
deleted file mode 100644
index 12c3bf35aa99a80626085d9ec2861498cd61c221..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IEParser.pas
+++ /dev/null
@@ -1,945 +0,0 @@
-//****************************************************
-// TIEParser *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// *
-// Per Linds Larsen & *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//****************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DocUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SystemS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SystemS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRES OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a Link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: IEParser.pas,v 1.3 2009/04/05 05:55:31 bsalsa Exp $
-
-unit IEParser;
-
-{$I EWB.inc}
-
-interface
-
-uses
- Dialogs, ShlObj, ComObj, Windows, Mshtml_Ewb, ActiveX, Classes;
-
-type
- TProxySettings = class(TPersistent)
- private
- FPort: Integer;
- FServer: string;
- FAutoLoadProxy: Boolean;
- public
- function SetProxy(const FullUserAgent, ProxyServer: string): Boolean;
- published
- property AutoLoadProxy: Boolean read FAutoLoadProxy write FAutoLoadProxy
- default False;
- property Port: Integer read FPort write FPort default 80;
- property Server: string read FServer write FServer;
- end;
-
-type
- TElementInfo = record
- ClassName: string;
- Id: string;
- InnerHTML: string;
- InnerText: string;
- Lang: string;
- Language: string;
- OffsetHeight: Integer;
- OffsetLeft: Integer;
- OffsetTop: Integer;
- OffsetWIdth: Integer;
- OuterHTML: string;
- OuterText: string;
- RecordNumber: OleVariant;
- SourceIndex: Integer;
- TagName: string;
- Title: string;
- end;
-
- TDownloadControlOption = (
- DownloadImages, DownloadVideos, DownloadBGSounds, DontExecuteScripts,
- DontExecuteJava, DontExecuteActiveX, DontDownloadActiveX,
- DownloadButDontDisplay, DontDownloadFrame, CheckPageResynchronize,
- DownloadAndIgnoreCache, DontDownloadBehaviors, SuppressedMetaCharset,
- DisableUrlIfEncodingUTF8, EnableUrlIfEncodingUTF8,
- ForceOfflineMode, DontPerformClientPull, DownloadInSilentMode, WorkOffline);
- TDownloadControlOptions = set of TDownloadControlOption;
-
- TParserState = (psBusy, psReady, psStopped); {A state for Busy status}
-
- TOnParseErrorEvent = procedure(Sender: TObject; const ErrorCode: integer; const
- Url, stError: string) of object;
- TOnParseDocumentEvent = procedure(Sender: TObject; const Res: HRESULT; stMessage: string) of object;
- TOnStatusTextEvent = procedure(Sender: TObject; const Text: string) of object;
- TOnDocInfoEvent = procedure(Sender: TObject; const Text: string) of object;
- TOnParseCompleteEvent = procedure(Sender: TObject; Doc: IhtmlDocument2; All: IHtmlElementCollection) of object;
- TOnBREvent = procedure(Sender: TObject; Clear: string; Element: TElementInfo) of object;
- TOnHREvent = procedure(Sender: TObject; Align: string; Color, Width, Size:
- OleVariant; NoShade: Boolean; Element: TElementInfo) of object;
- TOnDIVEvent = procedure(Sender: TObject; Align: string; NoWrap: Boolean;
- Element: TElementInfo) of object;
- TOnScriptEvent = procedure(Sender: Tobject; Source: string; ScriptElement: IHTMLScriptElement; Element: TElementInfo) of object;
- TOnFormEvent = procedure(Sender: TObject; Action, Dir, Encoding, Method, Target, Name: string;
- Element: TElementInfo) of object;
- TOnMarqueeEvent = procedure(Sender: TObject; bgColor, Width, Height: OleVariant;
- Direction, Behavior: string; ScrollAmount, ScrollDelay, Loop, vSpace, hSpace:
- Integer; Element: TElementInfo) of object;
- TOnFontEvent = procedure(Sender: TObject; Color, Size: OleVariant; Face: string;
- Element: TElementInfo) of object;
- TOnBaseFontEvent = procedure(Sender: TObject; Color: OleVariant; Face: string;
- Size: Integer; Element: TElementInfo) of object;
- TOnBaseEvent = procedure(Sender: TObject; hRef, Target: string; Element: TElementInfo) of object;
- TOnMetaEvent = procedure(Sender: TObject; HttpEquiv, Content, Name, URL, Charset:
- string; Element: TElementInfo) of object;
- TOnBodyEvent = procedure(Sender: TObject; Background, bgProperties: string; LeftMargin,
- TopMargin, RightMargin, BottomMargin, bgColor, Text, Link, vLink, aLink: OleVariant;
- NoWrap: Boolean; Element: TElementInfo) of object;
-{ TOnImageEvent = procedure(Sender: TObject; Source, LowSrc, Vrml, DynSrc, Alt, Align,
- UseMap: string; IsMap: Boolean; Border, Loop: OleVariant; vSpace, hSpace, Width,
- Height: Integer; Element: TElementInfo) of object; }
-
- TOnImageEvent = procedure(Sender: TObject; Source: string; ImgElement: IHTMLImgElement; Element: TElementInfo) of object;
-
- TOnAnchorEvent = procedure(Sender: TObject; hRef, Target, Rel, Rev, Urn, Methods, Name,
- Host, HostName, PathName, Port, Protocol, Search, Hash, AccessKey, ProtocolLong,
- MimeType, NameProp: string; Element: TElementInfo) of object;
- TOnCommentEvent = procedure(sender: TObject; Text: string; Element: TElementInfo) of object;
- TOnElementEvent = procedure(Sender: TObject; ElementInfo: TElementInfo) of object;
- TNoFramesEvent = procedure(Sender: TObject; ELement: TElementInfo) of object;
- TOnFrameEvent = procedure(Sender: TObject; Source, Name: OleVariant; Element:
- TElementInfo) of object;
- TOnFrameSetEvent = procedure(Sender: TObject; Rows, Cols, FrameBorder, Name:
- WIdeString; Border, BorderColor, FrameSpacing: OleVariant; Element:
- TelementInfo) of object;
- TStateChangeEvent = procedure(Sender: TObject; const State: TParserState) of object;
- TOnStartParsingEvent = procedure(Sender: TObject; const aUrl: WideString) of object;
- TOnQueryInfoEvent = procedure(const MimeType, Encoding, Disposition: string) of object;
-
- TIEParser = class(
- TComponent,
- IUnknown,
- IDispatch,
- IPropertyNotifySink,
- IOleClientSite)
-
- private
- BoolWorking: Boolean;
- Element: TElementInfo;
- FAbout: string;
- FAnchor: TOnAnchorEvent;
- FBase: TOnBaseEvent;
- FBaseFont: TOnBaseFontEvent;
- FBody: TOnBodyEvent;
- FBr: TOnBREvent;
- FBusy: Boolean;
- FComment: TOnCommentEvent;
- FDiv: TOnDIVEvent;
- FOnParseComplete: TOnParseCompleteEvent;
- FDownloadControlOptions: TDownloadControlOptions;
- FDownloadOnly: Boolean;
- FElement: TOnElementEvent;
- FFont: TOnFontEvent;
- FForm: TOnFormEvent;
- FHr: TOnHREvent;
- FHtml: WIdeString;
- FImage: TOnImageEvent;
- FMarquee: TOnMarqueeEvent;
- FMimeType: string;
- FDisposition: string;
- FEncoding: string;
- FMeta: TOnMetaEvent;
- FOnBusy: TNotifyEvent;
- FOnDocInfo: TOnDocInfoEvent;
- FOnFrame: TOnFrameEvent;
- FOnFrameset: TOnFrameSetEvent;
- FOnNoFrame: TNoFramesEvent;
- FOnQueryInfo: TOnQueryInfoEvent;
- FOnParseDocument: TOnParseDocumentEvent;
- FOnParseError: TOnParseErrorEvent;
- FOnStateChange: TStateChangeEvent;
- FOnStartParsing: TOnStartParsingEvent;
- FOnStatusText: TOnStatusTextEvent;
- FParseNoFrames: Boolean;
- FProxySettings: TProxySettings;
- FScript: TOnScriptEvent;
- FParserState: TParserState;
- FUrl: string;
- LoadingFromString: Boolean;
- NoFramesFound: Boolean;
- StartTick: Int64;
- private
- function UpdateDownloadControlValues: LongInt;
- protected
- function ProcessDoc(const aUrl: WideString): IHTMLDocument2;
- function GetContainer(out container: IOleContainer): HRESULT; stdcall;
- function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint; out mk: IMoniker): HRESULT; stdcall;
- function Invoke(DispId: Integer; const IId: TGUId; LocaleId: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT; stdcall;
- function LoadFromString: HRESULT;
- function LoadUrlFromMoniker(const aUrl: WideString): HRESULT;
- function OnChanged(dispId: TDispId): HRESULT; stdcall;
- function OnRequestEdit(dispId: TDispId): HRESULT; stdcall;
- function OnShowWindow(fShow: BOOL): HRESULT; stdcall;
- function RequestNewObjectLayout: HRESULT; stdcall;
- function SaveObject: HRESULT; stdcall;
- function ShowObject: HRESULT; stdcall;
- procedure Finalize;
- procedure GetPageProperties;
- procedure Initialize;
- procedure SetAbout(const Value: string);
- procedure DoQueryInfo(const aUrl: string);
- public
- All: IHtmlElementCollection;
- Doc: IHTMLDocument2;
- constructor Create(Owner: Tcomponent); override;
- destructor Destroy; override;
- procedure BeforeDestruction; override;
- procedure Parse(const aUrl: WideString);
- procedure Stop;
- procedure Loaded; override;
- public
- property Busy: Boolean read FBusy;
- property ParserState: TParserState read FParserState;
- property MimeType: string read FMimeType;
- property Disposition: string read FDisposition;
- property Encoding: string read FEncoding;
- published
- property About: string read FAbout write SetAbout;
- property DownloadOnly: Boolean read FDownloadOnly write FDownloadOnly default false;
- property DownloadOptions: TDownloadControlOptions read FDownloadControlOptions
- write FDownloadControlOptions default [DownloadImages, DownloadBGSounds,
- DownloadVideos, DownloadButDontDisplay, DontExecuteScripts,
- DontExecuteJava, DontExecuteActiveX, DontDownloadActiveX];
- property Html: WIdeString read FHtml write FHtml;
- property OnAnchor: TOnAnchorEvent read FAnchor write FAnchor;
- property OnBase: TOnBaseEvent read FBase write FBase;
- property OnBaseFont: TOnBaseFontEvent read FBaseFont write FBaseFont;
- property OnBody: TOnBodyEvent read FBody write FBody;
- property OnBR: TOnBREvent read FBr write FBr;
- property OnBusyStateChange: TNotifyEvent read FOnBusy write FOnBusy;
- property OnComment: TOnCommentEvent read FComment write FComment;
- property OnDiv: TOnDIVEvent read FDiv write FDiv;
- property OnDocInfo: TOnDocInfoEvent read FOnDocInfo write FOnDocInfo;
- property OnParseComplete: TOnParseCompleteEvent read FOnParseComplete write FOnParseComplete;
- property OnElement: TOnElementEvent read FElement write FElement;
- property OnFont: TOnFontEvent read FFont write FFont;
- property OnForm: TOnFormEvent read FForm write FForm;
- property OnFrame: TOnFrameEvent read FOnFrame write FOnFrame;
- property OnFrameSet: TOnFrameSetEvent read FOnFrameset write FOnFrameset;
- property OnQueryInfo: TOnQueryInfoEvent read FOnQueryInfo write
- FOnQueryInfo;
- property OnHR: TOnHREvent read FHr write FHr;
- property OnImage: TOnImageEvent read FImage write FImage;
- property OnMarquee: TOnMarqueeEvent read FMarquee write FMarquee;
- property OnMeta: TOnMetaEvent read FMeta write FMeta;
- property OnNoFrame: TNoFramesEvent read FOnNoFrame write FOnNoFrame;
- property OnParseDocument: TOnParseDocumentEvent read FOnParseDocument write FOnParseDocument;
- property OnParseError: TOnParseErrorEvent read FOnParseError write FOnParseError;
- property OnScript: TOnScriptEvent read FScript write FScript;
- property OnStateChange: TStateChangeEvent read FOnStateChange write
- FOnStateChange;
- property OnStartParsing: TOnStartParsingEvent read FOnStartParsing write FOnStartParsing;
- property OnStatusText: TOnStatusTextEvent read FOnStatusText write FOnStatusText;
- property ParseNoFrames: Boolean read FParseNoFrames write FParseNoFrames default False;
- property ProxySettings: TProxySettings read FProxySettings write FProxySettings;
- property URL: string read FUrl write FUrl;
- end;
-
-
-implementation
-
-uses
- EwbIEConst, IEDownloadStrings, IEDownloadTools, SysUtils, IeDownloadAcc, UrlMon, WinInet;
-
-
-function TIEParser.GetContainer(out container: IOleContainer): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint; out mk:
- IMoniker): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.Invoke(DispId: Integer; const IId: TGUId; LocaleId: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
-var
- I: Integer;
-begin
- if DispId = DISPID_AMBIENT_DLCONTROL then
- begin
- i := UpdateDownloadControlValues;
- PVariant(VarResult)^ := I;
- Result := S_OK;
- end
- else
- Result := DISP_E_MEMBERNOTFOUND;
-end;
-
-function TIEParser.LoadFromString: HRESULT;
-var
- V: OleVariant;
- vDocument: OleVariant;
- vMimeType: OleVariant;
- vHtml: OleVariant;
-begin
- if FHtml = '' then
- begin
- if Assigned(FOnParseError) then
- FOnParseError(Self, E_FAIL, FUrl, Err_Load_Str + ResponseCodeToStr(E_FAIL));
- Result := E_FAIL;
- end else
- try
- if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, S_OK, Succ_Load_Str + ResponseCodeToStr(S_OK));
-
- //Stop any actions - this is important!
- // FWeb.Stop; no dealing with the Document directly
- // Grab the Document
- V := Doc;
- vDocument := V.script.Document;
- vMimeType := 'text/Html';
- vHtml := FHtml;
- vDocument.Open(vMimeType);
- vDocument.Clear;
- vDocument.Write(vHtml);
- vDocument.Close;
- Result := S_OK;
- except
- Result := E_FAIL;
- end;
-end;
-
-function TIEParser.OnChanged(dispId: TDispId): HRESULT;
-var
- DP: TDispParams;
- vResult: OLEVariant;
-begin
- Result := S_OK;
- if Doc = nil then Exit;
- if (DISPId_READYSTATE = DispId) then
- if SUCCEEDED((Doc as IHtmlDocument2).Invoke(DISPId_READYSTATE, GUId_null,
- LOCALE_System_DEFAULT, DISPATCH_PROPERTYGET, DP, @vResult, nil, nil)) then
- if Integer(vResult) = READYSTATE_COMPLETE then
- PostThreadMessage(GetCurrentThreadId(), WM_USER_STARTWALKING, 0, 0);
-end;
-
-function TIEParser.OnRequestEdit(dispId: TDispId): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.OnShowWindow(fShow: BOOL): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.RequestNewObjectLayout: HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.SaveObject: HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.ShowObject: HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TIEParser.UpdateDownloadControlValues: LongInt;
-const
- AcardDownloadControlValues: array[TDownloadControlOption] of Cardinal =
- ($00000010, $00000020, $00000040, $00000080,
- $00000100, $00000200, $00000400, $00000800,
- $00001000, $00002000, $00004000, $00008000,
- $00010000, $00020000, $00040000, $10000000,
- $20000000, $40000000, $80000000);
-var
- i: TDownloadControlOption;
- j: Longint;
-begin
- j := 0;
- if (FDownloadControlOptions <> []) then
- for i := Low(TDownloadControlOption) to High(TDownloadControlOption) do
- if (i in FDownloadControlOptions) then
- Inc(j, AcardDownloadControlValues[i]);
- Result := j;
-end;
-
-constructor TIEParser.Create(Owner: Tcomponent);
-begin
- inherited Create(Owner);
- FAbout := 'TIEParser from: http://www.bsalsa.com';
- DownloadOptions := [DownloadImages, DownloadBGSounds,
- DownloadVideos, DownloadButDontDisplay, DontExecuteScripts,
- DontExecuteJava, DontExecuteActiveX, DontDownloadActiveX];
- FProxySettings := TProxySettings.Create;
- FProxySettings.FPort := 80;
- FParserState := psReady;
-end;
-
-procedure TIEParser.BeforeDestruction;
-begin
- if FProxySettings.FAutoLoadProxy then
- FProxySettings.SetProxy(EmptyStr, EmptyStr); {To restore proxy settings}
- inherited BeforeDestruction;
-end;
-
-destructor TIEParser.Destroy;
-begin
- if Assigned(Doc) then
- Doc := nil;
- if Assigned(All) then
- All := nil;
- FProxySettings.Free;
- inherited Destroy;
-end;
-
-procedure TIEParser.Loaded;
-begin
- inherited Loaded;
- FBusy := False;
- FParserState := psReady;
- if (FProxySettings.FAutoLoadProxy) and (FProxySettings.FServer <> EmptyStr)
- then
- FProxySettings.SetProxy(USER_AGENT_IE6, FProxySettings.FServer + ':' +
- IntToStr(FProxySettings.FPort));
-end;
-
-procedure TIEParser.SetAbout(const Value: string);
-begin
- Exit;
-end;
-
-procedure TIEParser.GetPageProperties;
-begin
- if (Doc <> nil) and (Assigned(Doc)) and (Doc.readyState = 'complete') then
- begin
- if (Assigned(FOnDocInfo)) then
- begin
- try
- FOnDocInfo(Self, 'Title: ' + Doc.title);
- FOnDocInfo(Self, 'Design Mode: ' + Doc.designMode);
- FOnDocInfo(Self, 'State: ' + Doc.readyState);
- FOnDocInfo(Self, 'Referrer: ' + Doc.Referrer);
- FOnDocInfo(Self, 'Location: ' + Doc.location.href);
- FOnDocInfo(Self, 'Last Modified: ' + Doc.lastModified);
- FOnDocInfo(Self, 'URL: ' + Doc.url);
- if FHTML <> '' then
- FOnDocInfo(Self, 'Domain: ' + Doc.domain);
- FOnDocInfo(Self, 'Cookie: ' + Doc.cookie);
- FOnDocInfo(Self, 'Charset: ' + Doc.charset);
- FOnDocInfo(Self, 'Default Charset: ' + Doc.defaultCharset);
- FOnDocInfo(Self, 'File Updated Date: ' + Doc.fileUpdatedDate);
- FOnDocInfo(Self, 'Security: ' + Doc.security);
- FOnDocInfo(Self, 'Protocol: ' + Doc.protocol);
- FOnDocInfo(Self, 'Name Property: ' + Doc.nameProp);
- FOnDocInfo(Self, 'Path Name: ' + Doc.location.pathname);
- FOnDocInfo(Self, 'Port: ' + Doc.location.port);
- FOnDocInfo(Self, 'Protocol: ' + Doc.location.protocol);
- FOnDocInfo(Self, 'Host: ' + Doc.location.host);
- FOnDocInfo(Self, 'Hash: ' + Doc.location.hash);
- FOnDocInfo(Self, 'Search: ' + Doc.location.search);
- FOnDocInfo(Self, 'Language: ' + Doc.body.language);
- FOnDocInfo(Self, 'Lang: ' + Doc.body.lang);
- {I Disabled the following because it my cause AV on some sites}
- //FOnDocInfo(Self,'MimeType: ' + Doc.MimeType);
- //FOnDocInfo(Self,'File Size: '+ Doc.fileSize);
- //FOnDocInfo(Self,'File Created Date: '+ Doc.fileCreatedDate);
- //FOnDocInfo(Self,'File Modified Date: '+ Doc.fileModifiedDate);
- except
- end;
- end;
- end;
-end;
-
-function TIEParser.LoadUrlFromMoniker(const aUrl: WideString): HRESULT;
-var
- FMoniker: IMoniker;
- FBindCtx: IBindCTX;
- HR: HRESULT;
-begin
- HR := CreateURLMonikerEx(nil, PWideChar(aUrl), FMoniker, URL_MK_UNIFORM {URL_MK_LEGACY});
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_URLMEx +
- ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, CreateURLMEx + ResponseCodeToStr(HR));
-
- HR := CreateBindCtx(0, FBindCtx);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_AsyncBindCtx +
- ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, CreateABindCtx + ResponseCodeToStr(HR));
-
- HR := (Doc as IpersistMoniker).Load(LongBool(0), FMoniker, FBindCtx, STGM_READ);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_IpersistMoniker_Load
- + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Succ_IpersistMoniker_Load + ResponseCodeToStr(HR));
- Result := HR;
-end;
-
-function TIEParser.ProcessDoc(const aUrl: WideString): IHTMLDocument2;
-var
- C: Integer;
- ConnectionPoint: IConnectionPoint;
- HR: HRESULT;
-begin
- LoadingFromString := False;
- if Assigned(FOnStartParsing) then
- FOnStartParsing(Self, aUrl);
- HR := CoCreateInstance(CLASS_HtmlDocument, nil, CLSCTX_INPROC_SERVER,
- IHtmlDocument2, Doc);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_CoCreateInstance + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Succ_CoCreateInstance + ResponseCodeToStr(HR));
-
- HR := (Doc as IOleObject).SetClientSite(Self as IOleClientsite);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_Doc_AsSetClientSite + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Doc_AsSetClientSite + ResponseCodeToStr(HR));
-
- HR := (Doc as IOleControl).OnAmbientPropertyChange(DISPId_AMBIENT_DLCONTROL);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_Doc_AsAmbientPropertyChange + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Doc_AsAmbientPropertyChange + ResponseCodeToStr(HR));
-
- HR := (Doc as IConnectionPointContainer).FindConnectionPoint(IpropertyNotifySink, ConnectionPoint);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_Doc_AsPointContainer + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Doc_AsPointContainer + ResponseCodeToStr(HR));
-
- HR := (ConnectionPoint.Advise(Self as IPropertyNotifySink, C));
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_Doc_AsAdvise + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Doc_AsAdvise + ResponseCodeToStr(HR));
- DoQueryInfo(FUrl);
- Result := Doc;
-end;
-
-procedure TIEParser.DoQueryInfo(const aUrl: string);
-var
- hInet: HINTERNET;
- hConnect: HINTERNET;
- infoBuffer: array[0..1024] of Char;
- dwReserved: DWORD;
- bufLen: DWORD;
- lbResult: LongBool;
-begin
- hInet := InternetOpen('TDownload',
- INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY, nil, nil, 0);
- if hInet <> nil then
- begin
- try
- hConnect := InternetOpenUrl(hInet, PChar(Url), nil, 0, INTERNET_FLAG_NO_UI, 0);
- if Assigned(hConnect) then
- begin
- try
- dwReserved := 0;
- bufLen := Length(infoBuffer);
-
- lbResult := HttpQueryInfo(hConnect, HTTP_QUERY_CONTENT_TYPE, @infoBuffer[0], bufLen, dwReserved);
- if lbResult then
- FMimeType := infoBuffer
- else
- FMimeType := EmptyStr;
-
- lbResult := HttpQueryInfo(hConnect, HTTP_QUERY_CONTENT_ENCODING, @infoBuffer, bufLen, dwReserved);
- if lbResult then
- FEncoding := Encoding
- else
- FEncoding := EmptyStr;
-
- lbResult := HttpQueryInfo(hConnect, HTTP_QUERY_CONTENT_DISPOSITION, @infoBuffer, bufLen, dwReserved);
- if lbResult then
- FDisposition := Disposition
- else
- FDisposition := EmptyStr;
-
- if Assigned(FOnQueryInfo) then
- FOnQueryInfo(FMimeType, FEncoding, FDisposition);
- finally
- InternetCloseHandle(hConnect);
- end;
- end;
- finally
- InternetCloseHandle(hInet);
- end;
- end;
-end;
-
-procedure TIEParser.Initialize;
-begin
- Doc := nil;
- All := nil;
- FBusy := True;
- FParserState := psBusy;
- if Assigned(FOnStateChange) then
- FOnStateChange(Self, FParserState);
- BoolWorking := True;
- StartTick := GetTickCount;
- FUrl := Url;
- LoadingFromString := False;
- NoFramesFound := False;
- CoInitialize(nil);
-end;
-
-procedure TIEParser.Stop;
-begin
- if Assigned(Doc) then
- Doc := nil;
- if Assigned(All) then
- All := nil;
- FreeAndNil(Element);
- FUrl := EmptyStr;
- FBusy := False;
- Finalize;
-end;
-
-procedure TIEParser.Parse(const aUrl: WideString);
- function ContainsAboutBlank(const s: string): Boolean;
- begin
- Result := Pos('about:blank', LowerCase(s)) > 0;
- end;
-
-var
- E: IHtmlElement;
- X: Integer;
- Msg: TMsg;
- v, u: OleVariant;
- ParseTime, NoFramesContent, Us: string;
- HR: HRESULT;
-begin
- Initialize;
- FUrl := aUrl;
- ProcessDoc(aUrl);
- NoFramesContent := '';
- if FUrl <> '' then
- begin
- HR := S_OK;
- if IEDownloadTools.IsValidURL(FUrl) then
- HR := LoadUrlFromMoniker(FUrl);
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_Load_Mon + ResponseCodeToStr(HR))
- else if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, HR, Succ_Load_Mon + ResponseCodeToStr(HR));
- end
- else
- HR := LoadFromString;
-
- if (Doc = nil) then
- begin
- if Failed(HR) and Assigned(FOnParseError) then
- FOnParseError(Self, GetLastError, FUrl, Err_Load_Str + ResponseCodeToStr(HR));
- Exit;
- end
-
- else
- begin
- while (BoolWorking and GetMessage(Msg, 0, 0, 0)) do
- begin
- if ((Msg.Message = WM_USER_STARTWALKING) and (Msg.hWnd = 0)) then
- begin
- BoolWorking := False;
- All := Doc.Get_all;
- if (All <> nil) and (All.length <= 4) then
- begin
- if Assigned(FOnParseError) then
- FOnParseError(Self, E_FAIL, FUrl, Doc_Error + ResponseCodeToStr(E_FAIL));
- Exit;
- end;
- if (All <> nil) and not FDownloadOnly then
- for x := 0 to All.length - 1 do
- begin
- E := All.item(x, 0) as IHTMLElement;
- with Element do
- begin
- ClassName := E.className;
- Id := E.id;
- TagName := E.tagName;
- Title := E.title;
- Language := E.language;
- SourceIndex := E.sourceIndex;
- RecordNumber := E.recordNumber;
- Lang := E.lang;
- OffsetLeft := E.offsetLeft;
- OffsetTop := E.offsetTop;
- OffsetWidth := E.offsetWidth;
- OffsetHeight := E.offsetHeight;
- InnerHtml := E.innerHtml;
- InnerText := E.innerText;
- OuterHtml := E.outerHtml;
- OuterText := E.outerText;
- end;
- if Assigned(FElement) then
- FElement(Self, Element);
-
- case StrToCase(E.TagName, ['FRAMESET', 'FRAME', 'NOFRAMES', 'A', '!',
- 'COMMENT', 'IMG', 'BODY', 'BASE', 'BASEFONT', 'FONT', 'META', 'MARQUEE',
- 'FORM', 'SCRIPT', 'DIV', 'HR', 'BR']) of
- 0: // FRAMESET
- begin
- if Assigned(FOnFrameSet) then
- with All.item(x, 0) as IHTMLFrameSetElement do
- FOnFrameSet(Self, Rows, Cols, FrameBorder, Name,
- Border, BorderColor, FrameSpacing, Element);
- end;
- 1: // FRAME
- begin
- if Assigned(FOnFrame) then
- begin
- v := E.GetAttribute('Name', 0);
- u := E.GetAttribute('Src', 0); // JohnS ('Source' -> 'Src')
- Us := u;
- if LoadingFromString and ContainsAboutBlank(Us) then
- Delete(Us, 1, 11);
- FOnFrame(Self, Us, v, Element);
- end;
- end;
- 2: // NOFRAMES
- begin
- NoFramesContent := E.InnerHtml;
- if Assigned(FOnNoFrame) then
- FOnNoFrame(Self, Element);
- end;
- 3: // A
- begin
- if Assigned(FAnchor) then
- with All.item(x, 0) as IHTMLAnchorElement do
- begin
- Us := hRef;
- if LoadingFromString and ContainsAboutBlank(Us) then
- Delete(Us, 1, 11);
- FAnchor(Self, Us, target, rel, rev, Urn, Methods,
- name, host, hostname, pathname, port, protocol,
- Search, Hash, AccessKey,
- ProtocolLong, MimeType, NameProp, Element);
- end;
- end;
- 4 or 5: // !, COMMENT
- begin
- if Assigned(FComment) then
- with All.item(x, 0) as IHTMLCommentElement do
- FComment(Self, Text, Element)
- else
- if (E.TagName = 'IMG') and Assigned(FImage) then
- with All.item(x, 0) as IHtmlImgElement do
- begin
- Us := Src;
- if LoadingFromString and ContainsAboutBlank(Us) then
- Delete(Us, 1, 11);
- FImage(Self, Us, All.item(x, 0) as IHTMLImgElement, Element);
- end;
- end;
-
- 6: // IMG
- begin
- if Assigned(FImage) then
- with All.item(x, 0) as IHTMLImgElement do
- begin
- Us := Src;
- if LoadingFromString and ContainsAboutBlank(Us) then
- Delete(Us, 1, 11);
- FImage(Self, Us, All.item(x, 0) as IHTMLImgElement, Element);
- end;
- end;
- 7: // BODY
- begin
- if Assigned(FBody) then
- with All.item(x, 0) as IHTMLBodyElement do
- FBody(Self, Background, bgProperties,
- LeftMargin, TopMargin, RightMargin, BottomMargin, bgColor, Text, Link,
- vLink, aLink, NoWrap, Element);
- end;
- 8: // BASE
- begin
- if Assigned(FBase) then
- with All.item(x, 0) as IHTMLBaseElement do
- begin
- Us := hRef;
- if LoadingFromString and ContainsAboutBlank(Us) then
- Delete(Us, 1, 11);
- FBase(Self, Us, Target, Element);
- end;
- end;
- 9: // BASEFONT
- begin
- if Assigned(FBaseFont) then
- with All.item(x, 0) as IHTMLBaseFontElement do
- FBaseFont(Self, color, face, size, Element);
- end;
- 10: // FONT
- begin
- if Assigned(FFont) then
- with All.item(x, 0) as IHTMLFontElement do
- FFont(Self, color, size, face, Element);
- end;
- 11: // META
- begin
- if Assigned(FMeta) then
- with All.item(x, 0) as IHTMLMetaElement do
- FMeta(Self, httpEquiv, content, name, url,
- charset, Element);
- end;
- 12: // MARQUEE
- begin
- if Assigned(FMarquee) then
- with All.item(x, 0) as IHTMLMarqueeElement do
- FMarquee(Self, bgColor, Width, Height, Direction, Behavior,
- ScrollAmount, ScrollDelay, Loop, vSpace, hSpace, Element);
- end;
- 13: // FORM
- begin
- if Assigned(FForm) then
- with All.item(x, 0) as IHTMLFormElement do
- FForm(Self, Action, Dir, Encoding, Method,
- Target, Name, Element);
- end;
- 14: // SCRIPT
- begin
- if Assigned(FScript) then
- with All.item(x, 0) as IHTMLScriptElement do
- begin
- Us := Src;
- if LoadingFromString and ContainsAboutBlank(Us) then
- Delete(Us, 1, 11);
- FScript(Self, Us, All.item(x, 0) as IHTMLScriptElement, Element);
- end;
-
- end;
- 15: // DIV - containers
- begin
- if Assigned(FDiv) then
- with All.item(x, 0) as IHTMLDivElement do
- FDiv(Self, Align, NoWrap, Element);
- end;
- 16: // HR - horizontal rule
- begin
- if Assigned(FHr) then
- with All.item(x, 0) as IHTMLHRElement do
- FHr(Self, Align, Color, Width, Size, NoShade, Element);
- end;
- 17: // BR - line break
- begin
- if Assigned(FBr) then
- with All.item(x, 0) as IHTMLBRElement do
- FBr(Self, Clear, Element);
-
- end;
- end;
- end;
- GetPageProperties;
- end
- else
- DispatchMessage(Msg);
- end;
- end;
- FUrl := '';
- if (NoFramesFound) and (ParseNoFrames) then
- begin
- FHtml := NoFramesContent;
- Parse(Url);
- end;
- if Assigned(FOnParseComplete) then
- FOnParseComplete(Self, Doc, All);
- ParseTime := FormatTickToTime(GetTickCount - StartTick);
- if (Assigned(FOnParseDocument)) then
- FOnParseDocument(Self, S_OK, Done + ' Process Time: ' + ParseTime);
- Finalize;
-end;
-
-procedure TIEParser.Finalize;
-begin
- FHtml := '';
- FBusy := False;
- FParserState := psStopped;
- CoUninitialize;
- if Assigned(FOnStateChange) then
- FOnStateChange(Self, FParserState);
-end;
-
-function TProxySettings.SetProxy(const FullUserAgent, ProxyServer: string):
- Boolean;
-var
- intList: INTERNET_PER_CONN_OPTION_List;
- dwBufSize: DWORD;
- hInternet: Pointer;
- intOptions: array[1..3] of INTERNET_PER_CONN_OPTION;
-begin
- Result := False;
- dwBufSize := SizeOf(intList);
- intList.dwSize := SizeOf(intList);
- intList.pszConnection := nil;
- intList.dwOptionCount := High(intOptions);
- // the highest index of the array (in this case 3)
- intOptions[1].dwOption := INTERNET_PER_CONN_FLAGS;
- intOptions[1].Value.dwValue := PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;
- intOptions[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
- intOptions[2].Value.pszValue := PChar(ProxyServer);
- intOptions[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
- intOptions[3].Value.pszValue := '';
- intList.intOptions := @intOptions;
- hInternet := InternetOpen(PChar(FullUserAgent), INTERNET_OPEN_TYPE_DIRECT,
- nil, nil, 0);
- if hInternet <> nil then
- try
- Result := InternetSetOption(hInternet,
- INTERNET_OPTION_PER_CONNECTION_OPTION,
- @intList, dwBufSize);
- Result := Result and InternetSetOption(hInternet, INTERNET_OPTION_REFRESH,
- nil, 0);
- finally
- InternetCloseHandle(hInternet)
- end;
-end;
-{End of Proxy Settings-----------------------------------------------------------}
-
-
-initialization
- OleInitialize(nil);
-
-finalization
- try
- OleUninitialize;
- except
- end;
-
-end.
-
-
diff --git a/windows/src/ext/embeddedwb/Source/IETravelLog.pas b/windows/src/ext/embeddedwb/Source/IETravelLog.pas
deleted file mode 100644
index 5a4c46d9f141830610cf939b445fa2d0a4b195ab..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/IETravelLog.pas
+++ /dev/null
@@ -1,289 +0,0 @@
-//***********************************************************
-// IETravelLog *
-// *
-// Freeware Component *
-// by *
-// Per Linds Larsen *
-// Updated by Eran Bodankin - bsalsa *
-// bsalsa@gmail.com *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: IETravelLog.pas,v 1.3 2006/12/18 14:13:07 bsalsa Exp $
-
-unit IETravelLog;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Activex, Windows, Classes, EmbeddedWB, EwbIEConst, EwbAcc;
-
-type
- TOnEntryEvent = procedure(Title, Url: WideString; var Cancel: Boolean) of object;
- TOnGetCountEvent = procedure(Flags: Cardinal; out Entries: Cardinal) of object;
- TOnRemoveEntryEvent = procedure(Name: WideString; var Cancel: Boolean) of object;
- TOnTravelToEvent = procedure(OffSet: Integer; var Cancel: Boolean) of object;
-
- TIETravelLog = class(TComponent)
- private
- { Private declarations }
- FAbout: string;
- FEmbeddedWB: TEmbeddedWB;
- FEnabled: Boolean;
- fOnEntry: TOnEntryEvent;
- FOnGetCount: TOnGetCountEvent;
- FOnRemoveEntry: TOnRemoveEntryEvent;
- FOnTravelTo: TOnTravelToEvent;
- procedure SetAbout(const Value: string);
- protected
- { Protected declarations }
- Entry: ITravelLogEntry;
- Enum: IEnumTravelLogEntry;
- Stg: ITravelLogStg;
- procedure _Enumerate(Flags: Cardinal);
- public
- { Public declarations }
- constructor Create(AOwner: TComponent); override;
- function Connect: Boolean;
- function CreateEntry(const OffSet: Integer; const Url, Title: WideString): HRESULT;
- function GetCount(Flags: DWORD; out Entries: DWORD): HRESULT;
- function GetRelativeEntry(OffSet: Integer; out Title, Url: WideString): HRESULT;
- function RemoveEntry(OffSet: Integer): HRESULT;
- function RemoveEntryByTitle(const Title: WideString): HRESULT;
- function RemoveEntryByUrl(const Url: WideString): HRESULT;
- function TravelTo(OffSet: Integer): HRESULT;
- procedure ClearSession;
- procedure Enumerate;
- procedure EnumerateBack;
- procedure EnumerateForward;
- published
- { Published declarations }
- property About: string read FAbout write SetAbout;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property OnEntry: TOnEntryEvent read fOnEntry write fOnEntry;
- property OnGetCount: TOnGetCountEvent read FOnGetCount write FOnGetCount;
- property OnRemoveEntry: TOnRemoveEntryEvent read FOnRemoveEntry write FOnRemoveEntry;
- property OnTravelTo: TOnTravelToEvent read FOnTravelTo write FOnTravelTo;
- property Enabled: boolean read FEnabled write FEnabled default True;
- end;
-
-implementation
-
-{ TIETravelLog }
-
-constructor TIETravelLog.Create(AOwner: TComponent);
-
-begin
- inherited Create(AOwner);
- FAbout := 'TIETravelLog. ' + WEB_SITE;
- FEnabled := True;
-end;
-
-procedure TIETravelLog.SetAbout(const Value: string);
-begin
- Exit;
-end;
-
-function TIETravelLog.TravelTo(OffSet: Integer): HRESULT;
-var
- Cancel: Boolean;
-begin
- Cancel := False;
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) and
- (Stg.GetRelativeEntry(OffSet, Entry) = S_OK) then
- begin
- if Assigned(FOnTravelTo) then
- FOnTravelTo(OffSet, Cancel);
- end;
- if not Cancel then
- Result := Stg.TravelTo(Entry);
-end;
-
-procedure TIETravelLog._Enumerate(Flags: Cardinal);
-var
- Cancel: Boolean;
- Fetched: Cardinal;
- Url, Title: PWideChar;
-begin
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- begin
- Cancel := False;
- Stg.EnumEntries(Flags, Enum);
- if Enum <> nil then
- while (Enum.next(1, Entry, Fetched) = S_OK) and not Cancel do
- begin
- if Assigned(fOnEntry) and Succeeded(Entry.GetTitle(Title)) and Succeeded(Entry.GetUrl(Url)) then
- fOnEntry(Title, Url, Cancel);
- end;
- end;
-end;
-
-procedure TIETravelLog.EnumerateBack;
-begin
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- _Enumerate(TLEF_RELATIVE_BACK);
-end;
-
-procedure TIETravelLog.EnumerateForward;
-begin
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- _Enumerate(TLEF_RELATIVE_FORE);
-end;
-
-function TIETravelLog.Connect: Boolean;
-var
- ISP: IServiceProvider;
-begin
- Result := False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- begin
- if Succeeded(EmbeddedWB.Application.QueryInterface(IServiceprovider, ISP)) and
- Succeeded(ISP.QueryService(SID_STravelLogCursor, IID_ITravelLogStg, Stg)) then
- Result := True;
- end;
-end;
-
-function TIETravelLog.GetRelativeEntry(OffSet: Integer; out Title, Url: WideString): HRESULT;
-var
- WUrl, WTitle: PWideChar;
-begin
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- Result := Stg.GetRelativeEntry(OffSet, Entry);
- if Result = S_OK then
- begin
- if Succeeded(Entry.GetTitle(WTitle)) then
- Title := WTitle;
- if Succeeded(Entry.GetUrl(WUrl)) then
- Url := WUrl;
- end;
-end;
-
-function TIETravelLog.GetCount(Flags: DWORD; out Entries: DWORD): HRESULT;
-begin
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- begin
- Result := Stg.GetCount(Flags, Entries);
- if Assigned(FOnGetCount) then
- FOnGetCount(Flags, Entries);
- end;
-end;
-
-function TIETravelLog.CreateEntry(const OffSet: Integer; const Url, Title: WideString): HRESULT;
-var
- Dummy: ITravelLogEntry;
-begin
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) and
- (Stg.GetRelativeEntry(OffSet, Entry) = S_OK)
- then
- Result := Stg.CreateEntry(StringToOleStr(Url), StringToOleStr(Title), Entry, TRUE, Dummy)
-end;
-
-procedure TIETravelLog.Enumerate;
-begin
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) then
- _Enumerate(TLEF_ABSOLUTE);
-end;
-
-function TIETravelLog.RemoveEntry(OffSet: Integer): HRESULT;
-var
- Title, Url: WideString;
- Cancel: Boolean;
-begin
- Cancel := False;
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) and
- (GetRelativeEntry(OffSet, Title, Url) = S_OK) then
- begin
- if Assigned(FOnRemoveEntry) then
- FOnRemoveEntry(Title, Cancel);
- if not Cancel then
- Result := RemoveEntryByUrl(Url);
- end;
-end;
-
-function TIETravelLog.RemoveEntryByTitle(const Title: WideString): HRESULT;
-var
- Fetched: Cardinal;
- pTitle: PWideChar;
- Cancel: Boolean;
-begin
- Cancel := False;
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) and
- (Stg.EnumEntries(TLEF_ABSOLUTE, Enum) = S_OK) then
- while (Enum.next(1, Entry, Fetched) = S_OK) do
- begin
- if Succeeded(Entry.GetTitle(pTitle)) and (Title = pTitle) then
- begin
- if Assigned(FOnRemoveEntry) then
- FOnRemoveEntry(Title, Cancel);
- if not Cancel then
- Result := Stg.RemoveEntry(Entry);
- end;
- end;
-end;
-
-function TIETravelLog.RemoveEntryByUrl(const Url: WideString): HRESULT;
-var
- Fetched: Cardinal;
- pUrl: PWideChar;
- Cancel: Boolean;
-begin
- Cancel := False;
- Result := S_False;
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) and
- (Stg.EnumEntries(TLEF_ABSOLUTE, Enum) = S_OK)
- then
- while (Enum.next(1, Entry, Fetched) = S_OK) do
- begin
- if Succeeded(Entry.GetUrl(pUrl)) and (Url = pUrl) then
- begin
- if Assigned(FOnRemoveEntry) then
- FOnRemoveEntry(Url, Cancel);
- if not Cancel then
- Result := Stg.RemoveEntry(Entry);
- end;
- end;
-end;
-
-procedure TIETravelLog.ClearSession;
-var
- Fetched: Cardinal;
-begin
- if FEnabled and Assigned(EmbeddedWB) and Assigned(EmbeddedWB.Document) and
- (Stg.EnumEntries(TLEF_ABSOLUTE, Enum) = S_OK) then
- while (Enum.Next(1, Entry, Fetched) = S_OK) do
- Stg.RemoveEntry(Entry);
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/ImportFavorites.pas b/windows/src/ext/embeddedwb/Source/ImportFavorites.pas
deleted file mode 100644
index 9a13d955ac3b44c497a387082231c3338f2bc289..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/ImportFavorites.pas
+++ /dev/null
@@ -1,495 +0,0 @@
-//***********************************************************
-// Import Favorites *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// Based on ideas by: Troels Jakobsen *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: ImportFavorites.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-unit ImportFavorites;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, SysUtils, Classes, Dialogs, IniFiles, SHDocVw_EWB,
- EmbeddedWB, EWBCore, Registry, ComCtrls;
-
-const
- ERROR_FAV_CURRENT_PATH_INVALID = 101;
- ERROR_FAV_CURRENT_FILENAME_INVALID = 102;
- ERROR_FAV_TARGET_FILENAME_EXTINVALID = 103;
- ERROR_FAV_TARGET_SUBFOLDER_INVALID = 104;
- ERROR_FAV_NO_SUCCESS_MESSAGE = 105;
- ERROR_FAV_FILE_NOTEXIST = 106;
-
-type
- TOnErrorEvent = procedure(Sender: TObject; const ErrorMsg: string;
- const ErrorCode: Byte) of object;
-
- PUrlRec = ^TUrlRec;
- TUrlRec = record
- Rep: string;
- UrlName: string;
- UrlPath: string;
- Level: Integer;
- end;
-
- TLocalization = class(TPersistent)
- private
- FCurrentPathInvalid: string;
- FCurrentFileNameInvalid: string;
- FTargetFileNameExtInvalid: string;
- FTargetSubFolderInvalid: string;
- FNoSuccessMessage: string;
- FChangeItMessage: string;
- FFavFileNotExistInPath: string;
- published
- property CurrentPathInvalid: string read FCurrentPathInvalid write FCurrentPathInvalid;
- property CurrentFileNameInvalid: string read FCurrentFileNameInvalid write FCurrentFileNameInvalid;
- property TargetFileNameExtInvalid: string read FTargetFileNameExtInvalid write FTargetFileNameExtInvalid;
- property TargetSubFolderInvalid: string read FTargetSubFolderInvalid write FTargetSubFolderInvalid;
- property NoSuccessMessage: string read FNoSuccessMessage write FNoSuccessMessage;
- property ChangeItMessage: string read FChangeItMessage write FChangeItMessage;
- property FavFileNotExistInPath: string read FFavFileNotExistInPath write FFavFileNotExistInPath;
- end;
-
-type
- TImportFavorite = class(TComponent)
- private
- FBookmarkList: TStringList;
- FLocalization: TLocalization;
- FAbout: string;
- FCurrentFileName: string;
- FCurrentFilePath: string;
- FEnabled: Boolean;
- FFavoritesPath: string;
- FNavigateOnComplete: Boolean;
- FShowSuccessMessage: Boolean;
- FStatusBar: TStatusBar;
- FSuccessMessage: TStrings;
- FTargetSubFolder: string;
- FWebBrowser: TCustomEmbeddedWB;
- L: TList;
- LvlList: TStringList;
- TargetFolder: string;
- FOnError: TOnErrorEvent;
- function FindFolder(HtmlStr: string; var Lvl: Integer): Boolean;
- function FindSectionEnd(HtmlStr: string; var Lvl: Integer): Boolean;
- function FindUrl(HtmlStr: string; Lvl: Integer): Boolean;
- function MakeFolder(Folder: string): Boolean;
- function MakeUrlFile(UrlName, UrlPath: string): Boolean;
- procedure Convert(Folder: string);
- procedure GetFavoritesFolder(var Folder: string);
- procedure MakeFavorites;
- procedure ReplaceIllChars(var S: string);
- procedure ScanBmkLine(I: Integer; Lvl: Integer);
- procedure SetAbout(Value: string);
- procedure SetSuccessMessage(Value: TStrings);
- function Check: Boolean;
- public
- SuccessFlag: Boolean;
- NavigatePath: string;
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function ImportFavorites: Boolean;
- published
- property About: string read FAbout write SetAbout;
- property CurrentFileName: string read FCurrentFileName write FCurrentFileName;
- property CurrentFilePath: string read FCurrentFilePath write FCurrentFilePath;
- property Enabled: boolean read FEnabled write FEnabled default True;
- property FavoritesPath: string read FFavoritesPath write FFavoritesPath;
- property NarigateOnComplete: Boolean read FNavigateOnComplete write FNavigateOnComplete default False;
- property ShowSuccessMessage: Boolean read FShowSuccessMessage write FShowSuccessMessage default True;
- property StatusBar: TStatusBar read FStatusBar write FStatusBar;
- property SuccessMessage: TStrings read FSuccessMessage write SetSuccessMessage;
- property TargetSubFolder: string read FTargetSubFolder write FTargetSubFolder;
- property WebBrowser: TCustomEmbeddedWB read FWebBrowser write FWebBrowser;
- property OnError: TOnErrorEvent read FOnError write FOnError;
- property Localization: TLocalization read FLocalization write FLocalization;
- end;
-
-implementation
-
-uses
- EwbIEConst, EwbCoreTools;
-
-constructor TImportFavorite.Create;
-begin
- FAbout := 'TImportFavorite by bsalsa. ' + WEB_SITE;
- FCurrentFileName := 'newbook.htm';
- FCurrentFilePath := 'C:\';
- FTargetSubFolder := 'Imported Bookmarks';
- FFavoritesPath := 'Auto';
- FSuccessMessage := TStringList.Create;
- FSuccessMessage.Add('The bookmarks have been imported into your favorites successfully!'
- + #10 + #13 + 'You can find them in your favorites as a sub folder.');
-
- FLocalization := TLocalization.Create;
- FLocalization.FCurrentPathInvalid := 'The favorites file path is invalid.';
- FLocalization.FCurrentFileNameInvalid := 'The Current file name is invalid.';
- FLocalization.FTargetFileNameExtInvalid := 'The target file name extention is invalid.';
- FLocalization.FTargetSubFolderInvalid := 'You must specify a proper sub folder name.';
- FLocalization.FFavFileNotExistInPath := 'The specified favorite file does not exist in the current path.';
- FLocalization.NoSuccessMessage := 'You must enter a SuccessMessage or turn off messages.';
- FLocalization.ChangeItMessage := 'Please change it.';
-
- FShowSuccessMessage := True;
- SuccessFlag := False;
- FEnabled := True;
- FNavigateOnComplete := False;
- inherited;
-end;
-
-destructor TImportFavorite.Destroy;
-begin
- FSuccessMessage.Free;
- inherited Destroy;
-end;
-
-procedure TImportFavorite.SetSuccessMessage(Value: TStrings);
-begin
- FSuccessMessage.Assign(Value)
-end;
-
-procedure TImportFavorite.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TImportFavorite.GetFavoritesFolder(var Folder: string);
-var
- Registry: TRegistry;
-begin
- Registry := TRegistry.Create;
- try
- Registry.RootKey := HKEY_CURRENT_USER;
- Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);
- Folder := Registry.ReadString('Favorites');
- finally
- Registry.Free;
- end;
-end;
-
-function SortFunction(Item1, Item2: Pointer): Integer;
-var
- Rec1, Rec2: PUrlRec;
-begin
- Result := 0;
- Rec1 := Item1;
- Rec2 := Item2;
- if Rec1.Rep < Rec2.Rep then
- Result := -1;
- if Rec1.Rep > Rec2.Rep then
- Result := 1;
- if Rec1.Rep = Rec2.Rep then
- begin
- if Rec1.UrlName < Rec2.UrlName then
- Result := -1;
- if Rec1.UrlName > Rec2.UrlName then
- Result := 1;
- if Rec1.UrlName = Rec2.UrlName then
- Result := 0;
- end;
-end;
-
-procedure TImportFavorite.Convert(Folder: string);
-var
- I: Integer;
-begin
- L := TList.Create;
- try
- LvlList := TStringList.Create;
- try
- LvlList.Add('');
- ScanBmkLine(0, 0);
- L.Sort(SortFunction);
- MakeFavorites;
- for I := 0 to L.Count - 1 do
- Dispose(PUrlRec(L[I]));
- finally
- LvlList.Free;
- end;
- finally
- L.Free;
- end;
-end;
-
-procedure TImportFavorite.ScanBmkLine(I: Integer; Lvl: Integer);
-begin
- if I < FBookmarkList.Count - 1 then
- begin
- if not FindSectionEnd(FBookmarkList[I], Lvl) then
- if not FindUrl(FBookmarkList[I], Lvl) then begin end;
- FindFolder(FBookmarkList[I], Lvl);
- ScanBmkLine(I + 1, Lvl);
- end;
-end;
-
-function TImportFavorite.FindFolder(HtmlStr: string; var Lvl: Integer): Boolean;
-const
- FolderSubStr: string = ' 0);
- if J <> 0 then
- begin
- Inc(Lvl);
- FillChar(S, SizeOf(S), 0);
- Idx := 1;
- for J := 1 to Length(HtmlStr) - 1 do
- if HtmlStr[J] = '>' then
- Idx := J + 1;
- for J := Idx to Length(HtmlStr) - 5 do
- S[J - Idx] := HtmlStr[J];
-
- Folder := S;
- ReplaceIllChars(Folder);
- if LvlList.Count > Lvl then
- LvlList[Lvl] := Folder
- else
- LvlList.Add(Folder);
- FName := LvlList[Lvl];
- for I := Lvl - 1 downto 1 do
- FName := LvlList[I] + '\' + FName;
- UrlRec := New(PUrlRec);
- UrlRec.Rep := FName;
- UrlRec.UrlName := '';
- UrlRec.UrlPath := '';
- UrlRec.Level := Lvl;
- L.Add(UrlRec);
- end;
-end;
-
-function TImportFavorite.FindUrl(HtmlStr: string; Lvl: Integer): Boolean;
-const
- UrlSubStr: string = 'http://';
-var
- J, K: Integer;
- S1, S2, S3: array[0..255] of Char;
- Apo1, Apo2: PChar;
- I: Integer;
- SPath, SName: string;
- FName: string;
- UrlRec: PUrlRec;
-begin
- J := Pos(UrlSubStr, HtmlStr);
- Result := (J <> 0);
- if J <> 0 then
- begin
- FillChar(S1, SizeOf(S1), 0);
- FillChar(S2, SizeOf(S2), 0);
- FillChar(S3, SizeOf(S3), 0);
- SPath := HtmlStr;
- Apo1 := StrScan(PChar(SPath), '"');
- for K := 1 to StrLen(Apo1) do
- S1[K - 1] := Apo1[K];
- for K := 0 to Pos('"', S1) - 2 do
- S2[K] := S1[K];
- SPath := S2;
- Apo2 := StrScan(Apo1, '>');
- for K := 1 to StrLen(Apo2) do
- S1[K - 1] := Apo2[K];
- for K := 0 to Pos('<', S1) - 2 do
- S3[K] := S1[K];
- SName := S3;
- ReplaceIllChars(SName);
- FName := LvlList[Lvl];
- for I := Lvl - 1 downto 1 do
- FName := LvlList[I] + '\' + FName;
- UrlRec := New(PUrlRec);
- UrlRec.Rep := FName;
- UrlRec.UrlName := SName;
- UrlRec.UrlPath := SPath;
- UrlRec.Level := Lvl;
- L.Add(UrlRec);
- end;
-end;
-
-function TImportFavorite.FindSectionEnd(HtmlStr: string; var Lvl: Integer): Boolean;
-const
- EndSubStr: string = '';
-var
- J: Integer;
-begin
- J := Pos(EndSubStr, HtmlStr);
- Result := (J <> 0);
- if J <> 0 then
- Dec(Lvl);
-end;
-
-procedure TImportFavorite.MakeFavorites;
-var
- I: Integer;
- UrlRec: PUrlRec;
-begin
- for I := 0 to L.Count - 1 do
- begin
- UrlRec := L[I];
- if UrlRec.UrlName = '' then
- MakeFolder(TargetFolder + '\' + UrlRec.Rep)
- else
- MakeUrlFile(TargetFolder + '\' + UrlRec.Rep + '\' + UrlRec.UrlName + '.url', UrlRec.UrlPath);
- end;
-end;
-
-function TImportFavorite.MakeFolder(Folder: string): Boolean;
-begin
- Result := CreateDirectory(PChar(Folder), nil);
-end;
-
-function TImportFavorite.MakeUrlFile(UrlName, UrlPath: string): Boolean;
-var
- UrlFile: TIniFile;
-begin
- UrlFile := TIniFile.Create(UrlName);
- try
- UrlFile.WriteString('InternetShortcut', 'URL', UrlPath);
- Result := True;
- finally
- UrlFile.Free;
- end;
-end;
-
-procedure TImportFavorite.ReplaceIllChars(var S: string);
-const
- ReplacedChar: Char = '-';
-var
- I: Integer;
-begin
- for I := 1 to Length(S) do
- if CharInSet(S[I], ['\', '/', ':', '*', '?', '"', '<', '>', '|']) then
- // if S[I] in ['\', '/', ':', '*', '?', '"', '<', '>', '|'] then
- S[I] := ReplacedChar;
-end;
-
-function TImportFavorite.Check: Boolean;
-begin
- Result := FCurrentFilePath <> '';
- if not Result then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.FCurrentPathInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_CURRENT_PATH_INVALID);
- Result := False;
- end
- else if FCurrentFileName = '' then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.FCurrentFileNameInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_CURRENT_FILENAME_INVALID);
- Result := False;
- end
- else if not (Pos('htm', FCurrentFileName) > 1) then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.FTargetFileNameExtInvalid + #10#13 + FLocalization.ChangeItMessage + '"*.htm"', ERROR_FAV_TARGET_FILENAME_EXTINVALID);
- Result := False;
- end
- else if FTargetSubFolder = '' then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.FTargetSubFolderInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_TARGET_SUBFOLDER_INVALID);
- Result := False;
- end
- else if FSuccessMessage.Text = '' then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.NoSuccessMessage + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_NO_SUCCESS_MESSAGE);
- Result := False;
- end
- else if not FileExists(FCurrentFilePath + '\' + FCurrentFileName) then
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.FFavFileNotExistInPath + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_NO_SUCCESS_MESSAGE);
- Result := False;
- end
-end;
-
-function TImportFavorite.ImportFavorites: Boolean;
-var
- R: TSearchRec;
- FavFolder: string;
-begin
- Result := Enabled;
- if Result and Check then
- begin
- FBookmarkList := TStringList.Create;
- try
- FBookmarkList.LoadFromFile(FCurrentFilePath + FCurrentFileName);
- if FFavoritesPath = 'Auto' then
- GetFavoritesFolder(FavFolder)
- else
- FavFolder := FFavoritesPath;
- if (FavFolder <> '') then
- begin
- CreateDirectory(PChar(FavFolder + '\' + TargetSubFolder), nil);
- if FindFirst(FavFolder + '\' + TargetSubFolder, faDirectory, R) = 0 then
- begin
- TargetFolder := FavFolder + '\' + TargetSubFolder;
- Convert(FavFolder + '\' + TargetSubFolder);
- if FShowSuccessMessage then
- MessageDlg(FSuccessMessage.Text, mtInformation, [MbOk], 0);
- if Assigned(FStatusBar) then
- FStatusBar.SimpleText := SuccessMessage.Text;
- SuccessFlag := True;
- Result := True;
- if FNavigateOnComplete then
- if Assigned(FWebBrowser) then
- FWebBrowser.Navigate(FCurrentFilePath + FCurrentFileName)
- else
- MessageDlg(ASS_MESS, mtError, [MbOk], 0);
- end
- else
- begin
- if Assigned(FOnError) then
- FOnError(Self, FLocalization.FTargetSubFolderInvalid + #10#13 + FLocalization.ChangeItMessage, ERROR_FAV_TARGET_SUBFOLDER_INVALID);
- SuccessFlag := False;
- end;
- FindClose(R);
- end;
- finally
- FBookmarkList.Free;
- end;
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/LibXmlComps.pas b/windows/src/ext/embeddedwb/Source/LibXmlComps.pas
deleted file mode 100644
index 73a99d9d97759e8a84ce3ca190c6108cc2c8b999..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/LibXmlComps.pas
+++ /dev/null
@@ -1,110 +0,0 @@
-(**
-===============================================================================================
-Name : LibXmlComps
-===============================================================================================
-Project : All Projects processing XML documents
-===============================================================================================
-Subject : XML parser for Delphi's VCL toolbar
-===============================================================================================
-Dipl.-Ing. (FH) Stefan Heymann, Softwaresysteme, Tbingen, Germany
-===============================================================================================
-Date Author Changes
------------------------------------------------------------------------------------------------
-$Id: LibXmlComps.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-2000-03-31 HeySt 1.0.0 Start
-2000-07-27 HeySt 1.0.1 Added "TAttr" declaration
- Moved GetNormalize/SetNormalize to PROTECTED section
-2001-02-03 HeySt Changed prototype for the TExternalEvent callback function type
- so that C++Builder users should get it compiled better.
-
-2001-02-28 HeySt 1.0.2 Introduced the "StopParser" property. When you set this property to
- TRUE in one of the Parser Events, parsing is stopped and the Execute
- method returns.
- Introduced Version numbers
-2001-07-10 HeySt 1.0.3 Fixed a bug in TScannerXmlParser.DtdElementFound so that the
- OnAttList event is correctly fired
-2001-07-11 HeySt 1.1.0 Derived from the new TCustomXmlScanner class from LibXmlParser
-*)
-
-unit LibXmlComps;
-
-interface
-
-uses
- Classes,
- LibXmlParser;
-
-type
- TXmlScanner = class(TCustomXmlScanner)
- public
- property XmlParser;
- property StopParser;
- published
- property Filename;
- property Normalize;
- property OnXmlProlog;
- property OnComment;
- property OnPI;
- property OnDtdRead;
- property OnStartTag;
- property OnEmptyTag;
- property OnEndTag;
- property OnContent;
- property OnCData;
- property OnElement;
- property OnAttList;
- property OnEntity;
- property OnNotation;
- property OnDtdError;
- property OnLoadExternal;
- property OnTranslateEncoding;
- end;
-
- // The "Easy" XML Scanner leaves out events and properties which you are unlikely to use
- // for "normal" XML files.
- // CDATA sections trigger "OnContent" events
- TEasyXmlScanner = class(TCustomXmlScanner)
- protected
- procedure WhenCData(Content: string); override;
- public
- property XmlParser;
- property StopParser;
- published
- property Filename;
- property Normalize;
- property OnComment;
- property OnPI;
- property OnStartTag;
- property OnEmptyTag;
- property OnEndTag;
- property OnContent;
- property OnLoadExternal;
- property OnTranslateEncoding;
- end;
-
-(*
-===============================================================================================
-IMPLEMENTATION
-===============================================================================================
-*)
-
-implementation
-
-(*
-===============================================================================================
-TEasyXmlScanner
-===============================================================================================
-*)
-
-procedure TEasyXmlScanner.WhenCData(Content: string);
-begin
- inherited WhenContent(Content);
-end;
-
-(*
-===============================================================================================
-INITIALIZATION
-===============================================================================================
-*)
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/LibXmlParser.pas b/windows/src/ext/embeddedwb/Source/LibXmlParser.pas
deleted file mode 100644
index e0d1cb801ea1a4dea0d77f0c2ed5b70420f29c19..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/LibXmlParser.pas
+++ /dev/null
@@ -1,2963 +0,0 @@
-(**
-===============================================================================================
-Name : LibXmlParser
-===============================================================================================
-Project : All Projects
-===============================================================================================
-Subject : Progressive XML Parser for all types of XML Files
-===============================================================================================
-Author : Stefan Heymann
- Eschenweg 3
- 72076 Tbingen
- GERMANY
-
-E-Mail: stefan@destructor.de
-URL: www.destructor.de
-===============================================================================================
-Source, Legals ("Licence")
---------------------------
-The official site to get this parser is http://www.destructor.de/
-
-Usage and Distribution of this Source Code is ruled by the
-"Destructor.de Source code Licence" (DSL) which comes with this file or
-can be downloaded at http://www.destructor.de/
-
-IN SHORT: Usage and distribution of this source code is free.
- You use it completely on your own risk.
-
-Postcardware
-------------
-If you like this code, please send a postcard of your city to my above address.
-===============================================================================================
-!!! All parts of this code which are not finished or not conforming exactly to
- the XmlSpec are marked with three exclamation marks
-
--!- Parts where the parser may be able to detect errors in the document's syntax are
- marked with the dash-exlamation mark-dash sequence.
-===============================================================================================
-Terminology:
-------------
-- Start: Start of a buffer part
-- Final: End (last character) of a buffer part
-- DTD: Document Type Definition
-- DTDc: Document Type Declaration
-- XMLSpec: The current W3C XML Recommendation (version 1.0 as of 1998-02-10), Chapter No.
-- Cur*: Fields concerning the "Current" part passed back by the "Scan" method
-===============================================================================================
-Scanning the XML document
--------------------------
-- Create TXmlParser Instance MyXml := TXmlParser.Create;
-- Load XML Document MyXml.LoadFromFile (Filename);
-- Start Scanning MyXml.StartScan;
-- Scan Loop WHILE MyXml.Scan DO
-- Test for Part Type CASE MyXml.CurPartType OF
-- Handle Parts ... : ;;;
-- Handle Parts ... : ;;;
-- Handle Parts ... : ;;;
- END;
-- Destroy MyXml.Free;
-===============================================================================================
-Loading the XML document
-------------------------
-You can load the XML document from a file with the "LoadFromFile" method.
-It is beyond the scope of this parser to perform HTTP or FTP accesses. If you want your
-application to handle such requests (URLs), you can load the XML via HTTP or FTP or whatever
-protocol and hand over the data buffer using the "LoadFromBuffer" or "SetBuffer" method.
-"LoadFromBuffer" loads the internal buffer of TXmlParser with the given null-terminated
-string, thereby creating a copy of that buffer.
-"SetBuffer" just takes the pointer to another buffer, which means that the given
-buffer pointer must be valid while the document is accessed via TXmlParser.
-===============================================================================================
-Encodings:
-----------
-This XML parser kind of "understands" the following encodings:
-- UTF-8
-- ISO-8859-1
-- Windows-1252
-
-Any flavor of multi-byte characters (and this includes UTF-16) is not supported. Sorry.
-
-Every string which has to be passed to the application passes the virtual method
-"TranslateEncoding" which translates the string from the current encoding (stored in
-"CurEncoding") into the encoding the application wishes to receive.
-The "TranslateEncoding" method that is built into TXmlParser assumes that the application
-wants to receive Windows ANSI (Windows-1252, about the same as ISO-8859-1) and is able
-to convert UTF-8 and ISO-8859-1 encodings.
-For other source and target encodings, you will have to override "TranslateEncoding".
-===============================================================================================
-Buffer Handling
----------------
-- The document must be loaded completely into a piece of RAM
-- All character positions are referenced by PAnsiChar pointers
-- The TXmlParser instance can either "own" the buffer itself (then, FBufferSize is > 0)
- or reference the buffer of another instance or object (then, FBuffersize is 0 and
- FBuffer is not NIL)
-- The Property DocBuffer passes back a pointer to the first byte of the document. If there
- is no document stored (FBuffer is NIL), the DocBuffer returns a pointer to a NULL character.
-===============================================================================================
-Whitespace Handling
--------------------
-The TXmlParser property "PackSpaces" determines how Whitespace is returned in Text Content:
-While PackSpaces is true, all leading and trailing whitespace characters are trimmed of, all
-Whitespace is converted to Space #x20 characters and contiguous Whitespace characters are
-compressed to one.
-If the "Scan" method reports a ptContent part, the application can get the original text
-with all whitespace characters by extracting the characters from "CurStart" to "CurFinal".
-If the application detects an xml:space attribute, it can set "PackSpaces" accordingly or
-use CurStart/CurFinal.
-Please note that TXmlParser does _not_ normalize Line Breaks to single LineFeed characters
-as the XmlSpec requires (XmlSpec 2.11).
-The xml:space attribute is not handled by TXmlParser. This is on behalf of the application.
-===============================================================================================
-Non-XML-Conforming
-------------------
-TXmlParser does not conform 100 % exactly to the XmlSpec:
-- UTF-16 is not supported (XmlSpec 2.2)
- (Workaround: Convert UTF-16 to UTF-8 and hand the buffer over to TXmlParser)
-- As the parser only works with single byte strings, all Unicode characters > 255
- can currently not be handled correctly.
-- Line breaks are not normalized to single Linefeed #x0A characters (XmlSpec 2.11)
- (Workaround: The Application can access the text contents on its own [CurStart, CurFinal],
- thereby applying every normalization it wishes to)
-- The attribute value normalization does not work exactly as defined in the
- Second Edition of the XML 1.0 specification.
-- See also the code parts marked with three consecutive exclamation marks. These are
- parts which are not finished in the current code release.
-
-This list may be incomplete, so it may grow if I get to know any other points.
-As work on the parser proceeds, this list may also shrink.
-===============================================================================================
-Things Todo
------------
-- Introduce a new event/callback which is called when there is an unresolvable
- entity or character reference
-- Support Unicode
-- Use Streams instead of reading the whole XML into memory
-===============================================================================================
-Change History, Version numbers
--------------------------------
-The Date is given in ISO Year-Month-Day (YYYY-MM-DD) order.
-Versions are counted from 1.0.0 beginning with the version from 2000-03-16.
-Unreleased versions don't get a version number.
-
-Date Author Version Changes
------------------------------------------------------------------------------------------------
-2000-03-16 HeySt 1.0.0 Start
-2000-03-28 HeySt 1.0.1 Initial Publishing of TXmlParser on the destructor.de Web Site
-2000-03-30 HeySt 1.0.2 TXmlParser.AnalyzeCData: Call "TranslateEncoding" for CurContent
-2000-03-31 HeySt 1.0.3 Deleted the StrPosE function (was not needed anyway)
-2000-04-04 HeySt 1.0.4 TDtdElementRec modified: Start/Final for all Elements;
- Should be backwards compatible.
- AnalyzeDtdc: Set CurPartType to ptDtdc
-2000-04-23 HeySt 1.0.5 New class TObjectList. Eliminated reference to the Delphi 5
- "Contnrs" unit so LibXmlParser is Delphi 4 compatible.
-2000-07-03 HeySt 1.0.6 TNvpNode: Added Constructor
-2000-07-11 HeySt 1.0.7 Removed "Windows" from USES clause
- Added three-exclamation-mark comments for Utf8ToAnsi/AnsiToUtf8
- Added three-exclamation-mark comments for CHR function calls
-2000-07-23 HeySt 1.0.8 TXmlParser.Clear: CurAttr.Clear; EntityStack.Clear;
- (This was not a bug; just defensive programming)
-2000-07-29 HeySt 1.0.9 TNvpList: Added methods: Node(Index), Value(Index), Name(Index);
-2000-10-07 HeySt Introduced Conditional Defines
- Uses Contnrs unit and its TObjectList class again for
- Delphi 5 and newer versions
-2001-01-30 HeySt Introduced Version Numbering
- Made LoadFromFile and LoadFromBuffer BOOLEAN functions
- Introduced FileMode parameter for LoadFromFile
- BugFix: TAttrList.Analyze: Must add CWhitespace to ExtractName call
- Comments worked over
-2001-02-28 HeySt 1.0.10 Completely worked over and tested the UTF-8 functions
- Fixed a bug in TXmlParser.Scan which caused it to start over when it
- was called after the end of scanning, resulting in an endless loop
- TEntityStack is now a TObjectList instead of TList
-2001-07-03 HeySt 1.0.11 Updated Compiler Version IFDEFs for Kylix
-2001-07-11 HeySt 1.0.12 New TCustomXmlScanner component (taken over from LibXmlComps.pas)
-2001-07-14 HeySt 1.0.13 Bugfix TCustomXmlScanner.FOnTranslateEncoding
-2001-10-22 HeySt Don't clear CurName anymore when the parser finds a CDATA section.
-2001-12-03 HeySt 1.0.14 TObjectList.Clear: Make call to INHERITED method (fixes a memory leak)
-2001-12-05 HeySt 1.0.15 TObjectList.Clear: removed call to INHERITED method
- TObjectList.Destroy: Inserted SetCapacity call.
- Reduces need for frequent re-allocation of pointer buffer
- Dedicated to my father, Theodor Heymann
-2002-06-26 HeySt 1.0.16 TXmlParser.Scan: Fixed a bug with PIs whose name is beginning
- with 'xml'. Thanks to Uwe Kamm for submitting this bug.
- The CurEncoding property is now always in uppercase letters (the XML
- spec wants it to be treated case independently so when it's uppercase
- comparisons are faster)
-2002-03-04 HeySt 1.0.17 Included an IFDEF for Delphi 7 (VER150) and Kylix
- There is a new symbol HAS_CONTNRS_UNIT which is used now to
- distinguish between IDEs which come with the Contnrs unit and
- those that don't.
-2009-05-17 bsalsa 1.0.18 Added D2009 support.
-
-*)
-
-// --- Delphi/Kylix Version Numbers
-// As this is no code, this does not blow up your object or executable code at all
- (*$IFDEF LINUX *)
- (*$DEFINE K1_OR_NEWER *)
- (*$ENDIF *)
-
- (*$IFDEF MSWINDOWS *)
- (*$DEFINE D1_OR_NEWER *)
- (*$IFNDEF VER80 *)
- (*$DEFINE D2_OR_NEWER *)
- (*$IFNDEF VER90 *)
- (*$DEFINE D3_OR_NEWER *)
- (*$IFNDEF VER100 *)
- (*$DEFINE D4_OR_NEWER *)
- (*$IFNDEF VER120 *)
- (*$DEFINE D5_OR_NEWER *)
- (*$IFNDEF VER130 *)
- (*$IFNDEF VER140 *)
- (*$IFNDEF VER150 *)
- {$DEFINE D5_OR_NEWER}
- { If the compiler gets stuck here,
- you are using a compiler version unknown to this code.
- You will probably have to change this code accordingly.
- At first, try to comment out these lines and see what will happen.}
- (*$ENDIF *)
- (*$ENDIF *)
- (*$ENDIF *)
- (*$ENDIF *)
- (*$ENDIF *)
- (*$ENDIF *)
- (*$ENDIF *)
- (*$ENDIF *)
-
- (*$IFDEF D5_OR_NEWER *)
- (*$DEFINE HAS_CONTNRS_UNIT *)
- (*$ENDIF *)
-
- (*$IFDEF K1_OR_NEWER *)
- (*$DEFINE HAS_CONTNRS_UNIT *)
- (*$ENDIF *)
-
-unit LibXmlParser;
-
-{$I EWB.inc}
-
-interface
-
-uses
- SysUtils, Classes,
- (*$IFDEF HAS_CONTNRS_UNIT *)// The Contnrs Unit was introduced in Delphi 5
- Contnrs,
- (*$ENDIF*)
- AnsiStrings,
- Math;
-
-const
- CVersion = '1.0.18'; // This variable will be updated for every release
- // (I hope, I won't forget to do it everytime ...)
-
-type
- TPartType = // --- Document Part Types
- (ptNone, // Nothing
- ptXmlProlog, // XML Prolog XmlSpec 2.8 / 4.3.1
- ptComment, // Comment XmlSpec 2.5
- ptPI, // Processing Instruction XmlSpec 2.6
- ptDtdc, // Document Type Declaration XmlSpec 2.8
- ptStartTag, // Start Tag XmlSpec 3.1
- ptEmptyTag, // Empty-Element Tag XmlSpec 3.1
- ptEndTag, // End Tag XmlSpec 3.1
- ptContent, // Text Content between Tags
- ptCData); // CDATA Section XmlSpec 2.7
-
- TDtdElemType = // --- DTD Elements
- (deElement, // !ELEMENT declaration
- deAttList, // !ATTLIST declaration
- deEntity, // !ENTITY declaration
- deNotation, // !NOTATION declaration
- dePI, // PI in DTD
- deComment, // Comment in DTD
- deError); // Error found in the DTD
-
-type
- TAttrList = class;
- TEntityStack = class;
- TNvpList = class;
- TElemDef = class;
- TElemList = class;
- TEntityDef = class;
- TNotationDef = class;
-
- TDtdElementRec = record // --- This Record is returned by the DTD parser callback function
- Start, Final: PAnsiChar; // Start/End of the Element's Declaration
- case ElementType: TDtdElemType of // Type of the Element
- deElement, //
- deAttList: (ElemDef: TElemDef); //
- deEntity: (EntityDef: TEntityDef); //
- deNotation: (NotationDef: TNotationDef); //
- dePI: (Target: PAnsiChar; //
- Content: PAnsiChar;
- AttrList: TAttrList);
- deError: (Pos: PAnsiChar); // Error
- // deComment : ((No additional fields here)); //
- end;
-
- TXmlParser = class // --- Internal Properties and Methods
- protected
- FBuffer: PAnsiChar; // NIL if there is no buffer available
- FBufferSize: INTEGER; // 0 if the buffer is not owned by the Document instance
- FSource: string; // Name of Source of document. Filename for Documents loaded with LoadFromFile
-
- FXmlVersion: string; // XML version from Document header. Default is '1.0'
- FEncoding: string; // Encoding from Document header. Default is 'UTF-8'
- FStandalone: BOOLEAN; // Standalone declaration from Document header. Default is 'yes'
- FRootName: string; // Name of the Root Element (= DTD name)
- FDtdcFinal: PAnsiChar; // Pointer to the '>' character terminating the DTD declaration
-
- FNormalize: BOOLEAN; // If true: Pack Whitespace and don't return empty contents
- EntityStack: TEntityStack; // Entity Stack for Parameter and General Entities
- FCurEncoding: string; // Current Encoding during parsing (always uppercase)
-
- procedure AnalyzeProlog; // Analyze XML Prolog or Text Declaration
- procedure AnalyzeComment(Start: PAnsiChar; var Final: PAnsiChar); // Analyze Comments
- procedure AnalyzePI(Start: PAnsiChar; var Final: PAnsiChar); // Analyze Processing Instructions (PI)
- procedure AnalyzeDtdc; // Analyze Document Type Declaration
- procedure AnalyzeDtdElements(Start: PAnsiChar; var Final: PAnsiChar); // Analyze DTD declarations
- procedure AnalyzeTag; // Analyze Start/End/Empty-Element Tags
- procedure AnalyzeCData; // Analyze CDATA Sections
- procedure AnalyzeText(var IsDone: BOOLEAN); // Analyze Text Content between Tags
- procedure AnalyzeElementDecl(Start: PAnsiChar; var Final: PAnsiChar);
- procedure AnalyzeAttListDecl(Start: PAnsiChar; var Final: PAnsiChar);
- procedure AnalyzeEntityDecl(Start: PAnsiChar; var Final: PAnsiChar);
- procedure AnalyzeNotationDecl(Start: PAnsiChar; var Final: PAnsiChar);
-
- procedure PushPE(var Start: PAnsiChar);
- procedure ReplaceCharacterEntities(var Str: string);
- procedure ReplaceParameterEntities(var Str: string);
- procedure ReplaceGeneralEntities(var Str: string);
-
- function GetDocBuffer: PAnsiChar; // Returns FBuffer or a pointer to a NUL char if Buffer is empty
-
- public // --- Document Properties
- property XmlVersion: string read FXmlVersion; // XML version from the Document Prolog
- property Encoding: string read FEncoding; // Document Encoding from Prolog
- property Standalone: BOOLEAN read FStandalone; // Standalone Declaration from Prolog
- property RootName: string read FRootName; // Name of the Root Element
- property Normalize: BOOLEAN read FNormalize write FNormalize; // True if Content is to be normalized
- property Source: string read FSource; // Name of Document Source (Filename)
- property DocBuffer: PAnsiChar read GetDocBuffer; // Returns document buffer
- public // --- DTD Objects
- Elements: TElemList; // Elements: List of TElemDef (contains Attribute Definitions)
- Entities: TNvpList; // General Entities: List of TEntityDef
- ParEntities: TNvpList; // Parameter Entities: List of TEntityDef
- Notations: TNvpList; // Notations: List of TNotationDef
- public
- constructor Create;
- destructor Destroy; override;
-
- // --- Document Handling
- function LoadFromFile(Filename: string;
- FileMode: INTEGER = fmOpenRead or fmShareDenyNone): BOOLEAN;
- // Loads Document from given file
- function LoadFromBuffer(Buffer: PAnsiChar): BOOLEAN; // Loads Document from another buffer
- procedure SetBuffer(Buffer: PAnsiChar); // References another buffer
- procedure Clear; // Clear Document
-
- public
- // --- Scanning through the document
- CurPartType: TPartType; // Current Type
- CurName: string; // Current Name
- CurContent: string; // Current Normalized Content
- CurStart: PAnsiChar; // Current First character
- CurFinal: PAnsiChar; // Current Last character
- CurAttr: TAttrList; // Current Attribute List
- property CurEncoding: string read FCurEncoding; // Current Encoding
- procedure StartScan;
- function Scan: BOOLEAN;
-
- // --- Events / Callbacks
- function LoadExternalEntity(SystemId, PublicId,
- Notation: string): TXmlParser; virtual;
- function TranslateEncoding(const Source: string): string; virtual;
- procedure DtdElementFound(DtdElementRec: TDtdElementRec); virtual;
- end;
-
- TValueType = // --- Attribute Value Type
- (vtNormal, // Normal specified Attribute
- vtImplied, // #IMPLIED attribute value
- vtFixed, // #FIXED attribute value
- vtDefault); // Attribute value from default value in !ATTLIST declaration
-
- TAttrDefault = // --- Attribute Default Type
- (adDefault, // Normal default value
- adRequired, // #REQUIRED attribute
- adImplied, // #IMPLIED attribute
- adFixed); // #FIXED attribute
-
- TAttrType = // --- Type of attribute
- (atUnknown, // Unknown type
- atCData, // Character data only
- atID, // ID
- atIdRef, // ID Reference
- atIdRefs, // Several ID References, separated by Whitespace
- atEntity, // Name of an unparsed Entity
- atEntities, // Several unparsed Entity names, separated by Whitespace
- atNmToken, // Name Token
- atNmTokens, // Several Name Tokens, separated by Whitespace
- atNotation, // A selection of Notation names (Unparsed Entity)
- atEnumeration); // Enumeration
-
- TElemType = // --- Element content type
- (etEmpty, // Element is always empty
- etAny, // Element can have any mixture of PCDATA and any elements
- etChildren, // Element must contain only elements
- etMixed); // Mixed PCDATA and elements
-
- (*$IFDEF HAS_CONTNRS_UNIT *)
- TObjectList = Contnrs.TObjectList; // Re-Export this identifier
- (*$ELSE *)
- TObjectList = class(TList)
- destructor Destroy; override;
- procedure Delete(Index: INTEGER);
- procedure Clear; override;
- end;
- (*$ENDIF *)
-
- TNvpNode = class // Name-Value Pair Node
- Name: string;
- Value: string;
- constructor Create(TheName: string = ''; TheValue: string = '');
- end;
-
- TNvpList = class(TObjectList) // Name-Value Pair List
- procedure Add(Node: TNvpNode);
- function Node(Name: string): TNvpNode; overload;
- function Node(Index: INTEGER): TNvpNode; overload;
- function Value(Name: string): string; overload;
- function Value(Index: INTEGER): string; overload;
- function Name(Index: INTEGER): string;
- end;
-
- TAttr = class(TNvpNode) // Attribute of a Start-Tag or Empty-Element-Tag
- ValueType: TValueType;
- AttrType: TAttrType;
- end;
-
- TAttrList = class(TNvpList) // List of Attributes
- procedure Analyze(Start: PAnsiChar; var Final: PAnsiChar);
- end;
-
- TEntityStack = class(TObjectList) // Stack where current position is stored before parsing entities
- protected
- Owner: TXmlParser;
- public
- constructor Create(TheOwner: TXmlParser);
- procedure Push(LastPos: PAnsiChar); overload;
- procedure Push(Instance: TObject; LastPos: PAnsiChar); overload;
- function Pop: PAnsiChar; // Returns next char or NIL if EOF is reached. Frees Instance.
- end;
-
- TAttrDef = class(TNvpNode) // Represents a ';
-
- // --- Name Constants for the above enumeration types
- CPartType_Name: array[TPartType] of string =
- ('', 'XML Prolog', 'Comment', 'PI',
- 'DTD Declaration', 'Start Tag', 'Empty Tag', 'End Tag',
- 'Text', 'CDATA');
- CValueType_Name: array[TValueType] of string = ('Normal', 'Implied', 'Fixed', 'Default');
- CAttrDefault_Name: array[TAttrDefault] of string = ('Default', 'Required', 'Implied', 'Fixed');
- CElemType_Name: array[TElemType] of string = ('Empty', 'Any', 'Childs only', 'Mixed');
- CAttrType_Name: array[TAttrType] of string = ('Unknown', 'CDATA',
- 'ID', 'IDREF', 'IDREFS',
- 'ENTITY', 'ENTITIES',
- 'NMTOKEN', 'NMTOKENS',
- 'Notation', 'Enumeration');
-
-function ConvertWs(Source: string; PackWs: BOOLEAN): string; // Convert WS to spaces #x20
-procedure SetStringSF(var S: string; BufferStart, BufferFinal: PAnsiChar); // SetString by Start/Final of buffer
-function StrSFPas(Start, Finish: PAnsiChar): string; // Convert buffer part to Pascal string
-function TrimWs(Source: string): string; // Trim Whitespace
-
-function AnsiToUtf8(Source: ANSISTRING): string; // Convert Win-1252 to UTF-8
-function Utf8ToAnsi(Source: string; UnknownChar: AnsiChar = ''): ANSISTRING; // Convert UTF-8 to Win-1252
-
-(*
-===============================================================================================
-TCustomXmlScanner event based component wrapper for TXmlParser
-===============================================================================================
-*)
-
-type
- TCustomXmlScanner = class;
- TXmlPrologEvent = procedure(Sender: TObject; XmlVersion, Encoding: string; Standalone: BOOLEAN) of object;
- TCommentEvent = procedure(Sender: TObject; Comment: string) of object;
- TPIEvent = procedure(Sender: TObject; Target, Content: string; Attributes: TAttrList) of object;
- TDtdEvent = procedure(Sender: TObject; RootElementName: string) of object;
- TStartTagEvent = procedure(Sender: TObject; TagName: string; Attributes: TAttrList) of object;
- TEndTagEvent = procedure(Sender: TObject; TagName: string) of object;
- TContentEvent = procedure(Sender: TObject; Content: string) of object;
- TElementEvent = procedure(Sender: TObject; ElemDef: TElemDef) of object;
- TEntityEvent = procedure(Sender: TObject; EntityDef: TEntityDef) of object;
- TNotationEvent = procedure(Sender: TObject; NotationDef: TNotationDef) of object;
- TErrorEvent = procedure(Sender: TObject; ErrorPos: PAnsiChar) of object;
- TExternalEvent = procedure(Sender: TObject; SystemId, PublicId, NotationId: string;
- var Result: TXmlParser) of object;
- TEncodingEvent = function(Sender: TObject; CurrentEncoding, Source: string): string of object;
-
- TCustomXmlScanner = class(TComponent)
- protected
- FXmlParser: TXmlParser;
- FOnXmlProlog: TXmlPrologEvent;
- FOnComment: TCommentEvent;
- FOnPI: TPIEvent;
- FOnDtdRead: TDtdEvent;
- FOnStartTag: TStartTagEvent;
- FOnEmptyTag: TStartTagEvent;
- FOnEndTag: TEndTagEvent;
- FOnContent: TContentEvent;
- FOnCData: TContentEvent;
- FOnElement: TElementEvent;
- FOnAttList: TElementEvent;
- FOnEntity: TEntityEvent;
- FOnNotation: TNotationEvent;
- FOnDtdError: TErrorEvent;
- FOnLoadExternal: TExternalEvent;
- FOnTranslateEncoding: TEncodingEvent;
- FStopParser: BOOLEAN;
- function GetNormalize: BOOLEAN;
- procedure SetNormalize(Value: BOOLEAN);
-
- procedure WhenXmlProlog(XmlVersion, Encoding: string; Standalone: BOOLEAN); virtual;
- procedure WhenComment(Comment: string); virtual;
- procedure WhenPI(Target, Content: string; Attributes: TAttrList); virtual;
- procedure WhenDtdRead(RootElementName: string); virtual;
- procedure WhenStartTag(TagName: string; Attributes: TAttrList); virtual;
- procedure WhenEmptyTag(TagName: string; Attributes: TAttrList); virtual;
- procedure WhenEndTag(TagName: string); virtual;
- procedure WhenContent(Content: string); virtual;
- procedure WhenCData(Content: string); virtual;
- procedure WhenElement(ElemDef: TElemDef); virtual;
- procedure WhenAttList(ElemDef: TElemDef); virtual;
- procedure WhenEntity(EntityDef: TEntityDef); virtual;
- procedure WhenNotation(NotationDef: TNotationDef); virtual;
- procedure WhenDtdError(ErrorPos: PAnsiChar); virtual;
-
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
-
- procedure LoadFromFile(Filename: TFilename); // Load XML Document from file
- procedure LoadFromBuffer(Buffer: PAnsiChar); // Load XML Document from buffer
- procedure SetBuffer(Buffer: PAnsiChar); // Refer to Buffer
- function GetFilename: TFilename;
-
- procedure Execute; // Perform scanning
-
- protected
- property XmlParser: TXmlParser read FXmlParser;
- property StopParser: BOOLEAN read FStopParser write FStopParser;
- property Filename: TFilename read GetFilename write LoadFromFile;
- property Normalize: BOOLEAN read GetNormalize write SetNormalize;
- property OnXmlProlog: TXmlPrologEvent read FOnXmlProlog write FOnXmlProlog;
- property OnComment: TCommentEvent read FOnComment write FOnComment;
- property OnPI: TPIEvent read FOnPI write FOnPI;
- property OnDtdRead: TDtdEvent read FOnDtdRead write FOnDtdRead;
- property OnStartTag: TStartTagEvent read FOnStartTag write FOnStartTag;
- property OnEmptyTag: TStartTagEvent read FOnEmptyTag write FOnEmptyTag;
- property OnEndTag: TEndTagEvent read FOnEndTag write FOnEndTag;
- property OnContent: TContentEvent read FOnContent write FOnContent;
- property OnCData: TContentEvent read FOnCData write FOnCData;
- property OnElement: TElementEvent read FOnElement write FOnElement;
- property OnAttList: TElementEvent read FOnAttList write FOnAttList;
- property OnEntity: TEntityEvent read FOnEntity write FOnEntity;
- property OnNotation: TNotationEvent read FOnNotation write FOnNotation;
- property OnDtdError: TErrorEvent read FOnDtdError write FOnDtdError;
- property OnLoadExternal: TExternalEvent read FOnLoadExternal write FOnLoadExternal;
- property OnTranslateEncoding: TEncodingEvent read FOnTranslateEncoding write FOnTranslateEncoding;
- end;
-
-(*
-===============================================================================================
-IMPLEMENTATION
-===============================================================================================
-*)
-
-implementation
-
-{$IFNDEF DELPHI12_UP}
-function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean;
-begin
- Result := C in CharSet;
-end;
-{$ENDIF}
-
-(*
-===============================================================================================
-Unicode and UTF-8 stuff
-===============================================================================================
-*)
-
-const
- // --- Character Translation Table for Unicode <-> Win-1252
- WIN1252_UNICODE: array[$00..$FF] of WORD = (
- $0000, $0001, $0002, $0003, $0004, $0005, $0006, $0007, $0008, $0009,
- $000A, $000B, $000C, $000D, $000E, $000F, $0010, $0011, $0012, $0013,
- $0014, $0015, $0016, $0017, $0018, $0019, $001A, $001B, $001C, $001D,
- $001E, $001F, $0020, $0021, $0022, $0023, $0024, $0025, $0026, $0027,
- $0028, $0029, $002A, $002B, $002C, $002D, $002E, $002F, $0030, $0031,
- $0032, $0033, $0034, $0035, $0036, $0037, $0038, $0039, $003A, $003B,
- $003C, $003D, $003E, $003F, $0040, $0041, $0042, $0043, $0044, $0045,
- $0046, $0047, $0048, $0049, $004A, $004B, $004C, $004D, $004E, $004F,
- $0050, $0051, $0052, $0053, $0054, $0055, $0056, $0057, $0058, $0059,
- $005A, $005B, $005C, $005D, $005E, $005F, $0060, $0061, $0062, $0063,
- $0064, $0065, $0066, $0067, $0068, $0069, $006A, $006B, $006C, $006D,
- $006E, $006F, $0070, $0071, $0072, $0073, $0074, $0075, $0076, $0077,
- $0078, $0079, $007A, $007B, $007C, $007D, $007E, $007F,
-
- $20AC, $0081, $201A, $0192, $201E, $2026, $2020, $2021, $02C6, $2030,
- $0160, $2039, $0152, $008D, $017D, $008F, $0090, $2018, $2019, $201C,
- $201D, $2022, $2013, $2014, $02DC, $2122, $0161, $203A, $0153, $009D,
- $017E, $0178, $00A0, $00A1, $00A2, $00A3, $00A4, $00A5, $00A6, $00A7,
- $00A8, $00A9, $00AA, $00AB, $00AC, $00AD, $00AE, $00AF, $00B0, $00B1,
- $00B2, $00B3, $00B4, $00B5, $00B6, $00B7, $00B8, $00B9, $00BA, $00BB,
- $00BC, $00BD, $00BE, $00BF, $00C0, $00C1, $00C2, $00C3, $00C4, $00C5,
- $00C6, $00C7, $00C8, $00C9, $00CA, $00CB, $00CC, $00CD, $00CE, $00CF,
- $00D0, $00D1, $00D2, $00D3, $00D4, $00D5, $00D6, $00D7, $00D8, $00D9,
- $00DA, $00DB, $00DC, $00DD, $00DE, $00DF, $00E0, $00E1, $00E2, $00E3,
- $00E4, $00E5, $00E6, $00E7, $00E8, $00E9, $00EA, $00EB, $00EC, $00ED,
- $00EE, $00EF, $00F0, $00F1, $00F2, $00F3, $00F4, $00F5, $00F6, $00F7,
- $00F8, $00F9, $00FA, $00FB, $00FC, $00FD, $00FE, $00FF);
-
-(* UTF-8 (somewhat simplified)
- -----
- Character Range Byte sequence
- --------------- -------------------------- (x=Bits from original character)
- $0000..$007F 0xxxxxxx
- $0080..$07FF 110xxxxx 10xxxxxx
- $8000..$FFFF 1110xxxx 10xxxxxx 10xxxxxx
-
- Example
- --------
- Transforming the Unicode character U+00E4 LATIN SMALL LETTER A WITH DIAERESIS (""):
-
- ISO-8859-1, Decimal 228
- Win1252, Hex $E4
- ANSI Bin 1110 0100
- abcd efgh
-
- UTF-8 Binary 1100xxab 10cdefgh
- Binary 11000011 10100100
- Hex $C3 $A4
- Decimal 195 164
- ANSI *)
-
-
-function StringToPAnsiChar(inString: string): PAnsiChar;
-var
- AnsString: AnsiString;
- InternalError: Boolean;
-begin
- InternalError := False;
- Result := '';
- try
- if inString <> EmptyStr then
- begin
- AnsString := AnsiString(inString);
- Result := PAnsiChar(PAnsiString(AnsString));
- end;
- except
- InternalError := True;
- end;
- if InternalError or (string(Result) <> inString) then
- begin
- raise Exception.Create('Conversion from string to PAnsiChar failed!');
- end;
-end;
-
-function AnsiToUtf8(Source: ANSISTRING): string;
- (* Converts the given Windows ANSI (Win1252) String to UTF-8. *)
-var
- I: INTEGER; // Loop counter
- U: WORD; // Current Unicode value
- Len: INTEGER; // Current real length of "Result" string
-begin
- SetLength(Result, Length(Source) * 3); // Worst case
- Len := 0;
- for I := 1 to Length(Source) do
- begin
- U := WIN1252_UNICODE[ORD(Source[I])];
- case U of
- $0000..$007F:
- begin
- INC(Len);
- Result[Len] := CHR(U);
- end;
- $0080..$07FF:
- begin
- INC(Len);
- Result[Len] := CHR($C0 or (U shr 6));
- INC(Len);
- Result[Len] := CHR($80 or (U and $3F));
- end;
- $0800..$FFFF:
- begin
- INC(Len);
- Result[Len] := CHR($E0 or (U shr 12));
- INC(Len);
- Result[Len] := CHR($80 or ((U shr 6) and $3F));
- INC(Len);
- Result[Len] := CHR($80 or (U and $3F));
- end;
- end;
- end;
- SetLength(Result, Len);
-end;
-
-function Utf8ToAnsi(Source: string; UnknownChar: AnsiChar = ''): ANSISTRING;
- (* Converts the given UTF-8 String to Windows ANSI (Win-1252).
- If a character can not be converted, the "UnknownChar" is inserted. *)
-var
- SourceLen: INTEGER; // Length of Source string
- I, K: INTEGER;
- A: BYTE; // Current ANSI character value
- U: WORD;
- Ch: AnsiChar; // Dest char
- Len: INTEGER; // Current real length of "Result" string
-begin
- SourceLen := Length(Source);
- SetLength(Result, SourceLen); // Enough room to live
- Len := 0;
- I := 1;
- while I <= SourceLen do
- begin
- A := ORD(Source[I]);
- if A < $80 then
- begin // Range $0000..$007F
- INC(Len);
- Result[Len] := AnsiChar(Source[I]);
- INC(I);
- end
- else
- begin // Determine U, Inc I
- if (A and $E0 = $C0) and (I < SourceLen) then
- begin // Range $0080..$07FF
- U := (WORD(A and $1F) shl 6) or (ORD(Source[I + 1]) and $3F);
- INC(I, 2);
- end
- else
- if (A and $F0 = $E0) and (I < SourceLen - 1) then
- begin // Range $0800..$FFFF
- U := (WORD(A and $0F) shl 12) or
- (WORD(ORD(Source[I + 1]) and $3F) shl 6) or
- (ORD(Source[I + 2]) and $3F);
- INC(I, 3);
- end
- else
- begin // Unknown/unsupported
- INC(I);
- for K := 7 downto 0 do
- if A and (1 shl K) = 0 then
- begin
- INC(I, (A shr (K + 1)) - 1);
- BREAK;
- end;
- U := WIN1252_UNICODE[ORD(UnknownChar)];
- end;
- Ch := UnknownChar; // Retrieve ANSI char
- for A := $00 to $FF do
- if WIN1252_UNICODE[A] = U then
- begin
- Ch := AnsiChar(CHR(A));
- BREAK;
- end;
- INC(Len);
- Result[Len] := AnsiChar(Ch);
- end;
- end;
- SetLength(Result, Len);
-end;
-
-(*
-===============================================================================================
-"Special" Helper Functions
-
-Don't ask me why. But including these functions makes the parser *DRAMATICALLY* faster
-on my K6-233 machine. You can test it yourself just by commenting them out.
-They do exactly the same as the Assembler routines defined in SysUtils.
-(This is where you can see how great the Delphi compiler really is. The compiled code is
-faster than hand-coded assembler!)
-===============================================================================================
---> Just move this line below the StrScan function --> *)
-
-function StrPos(const Str, SearchStr: PAnsiChar): PAnsiChar;
- // Same functionality as SysUtils.StrPos
-var
- First: AnsiChar;
- Len: INTEGER;
-begin
- First := AnsiChar(SearchStr^);
- Len := AnsiStrings.StrLen(SearchStr);
- Result := Str;
- repeat
- if AnsiChar(Result^) = First then
- if AnsiStrings.StrLComp(Result, SearchStr, Len) = 0 then
- BREAK;
- if Result^ = #0 then
- begin
- Result := nil;
- BREAK;
- end;
- INC(Result);
- until FALSE;
-end;
-
-function StrScan(const Start: PAnsiChar; const Ch: AnsiChar): PAnsiChar;
- // Same functionality as SysUtils.StrScan
-begin
- Result := Start;
- while AnsiChar(Result^) <> Ch do
- begin
- if Result^ = #0 then
- begin
- Result := nil;
- EXIT;
- end;
- INC(Result);
- end;
-end;
-
-(*
-===============================================================================================
-Helper Functions
-===============================================================================================
-*)
-
-function DelChars(Source: string; CharsToDelete: TCharset): string;
- // Delete all "CharsToDelete" from the string
-var
- I: INTEGER;
-begin
- Result := Source;
- for I := Length(Result) downto 1 do
- if CharInSet(Result[I], CharsToDelete) then
- Delete(Result, I, 1);
-end;
-
-function TrimWs(Source: string): string;
- // Trimms off Whitespace characters from both ends of the string
-var
- I: INTEGER;
-begin
- // --- Trim Left
- I := 1;
- while (I <= Length(Source)) and (CharInSet(Source[I], CWhitespace)) do
- INC(I);
- Result := Copy(Source, I, MaxInt);
-
- // --- Trim Right
- I := Length(Result);
- while (I > 1) and (CharInSet(Result[I], CWhitespace)) do
- DEC(I);
- Delete(Result, I + 1, Length(Result) - I);
-end;
-
-function ConvertWs(Source: string; PackWs: BOOLEAN): string;
- // Converts all Whitespace characters to the Space #x20 character
- // If "PackWs" is true, contiguous Whitespace characters are packed to one
-var
- I: INTEGER;
-begin
- Result := Source;
- for I := Length(Result) downto 1 do
- if (CharInSet(Result[I], CWhitespace)) then
- if PackWs and (I > 1) and (CharInSet(Result[I - 1], CWhitespace))
- then
- Delete(Result, I, 1)
- else
- Result[I] := #32;
-end;
-
-procedure SetStringSF(var S: string; BufferStart, BufferFinal: PAnsiChar);
-begin
- SetString(S, BufferStart, BufferFinal - BufferStart + 1);
-end;
-
-function StrLPas(Start: PAnsiChar; Len: INTEGER): string;
-begin
- SetString(Result, Start, Len);
-end;
-
-function StrSFPas(Start, Finish: PAnsiChar): string;
-begin
- SetString(Result, Start, Finish - Start + 1);
-end;
-
-function StrScanE(const Source: PAnsiChar; const CharToScanFor: AnsiChar): PAnsiChar;
- // If "CharToScanFor" is not found, StrScanE returns the last char of the
- // buffer instead of NIL
-begin
- Result := StrScan(Source, CharToScanFor);
- if Result = nil then
- Result := AnsiStrings.StrEnd(Source) - 1;
-end;
-
-procedure ExtractName(Start: PAnsiChar; Terminators: TCharset; var Final: PAnsiChar);
- (* Extracts the complete Name beginning at "Start".
- It is assumed that the name is contained in Markup, so the '>' character is
- always a Termination.
- Start: IN Pointer to first char of name. Is always considered to be valid
- Terminators: IN Characters which terminate the name
- Final: OUT Pointer to last char of name *)
-begin
- Final := Start + 1;
- Include(Terminators, #0);
- Include(Terminators, '>');
- while not (CharInSet(Final^, Terminators)) do
- INC(Final);
- DEC(Final);
-end;
-
-procedure ExtractQuote(Start: PAnsiChar; var Content: string; var Final: PAnsiChar);
- (* Extract a string which is contained in single or double Quotes.
- Start: IN Pointer to opening quote
- Content: OUT The quoted string
- Final: OUT Pointer to closing quote *)
-begin
- Final := StrScan(Start + 1, AnsiChar(Start^));
- if Final = nil then
- begin
- Final := AnsiStrings.StrEnd(Start + 1) - 1;
- SetString(Content, Start + 1, Final - Start);
- end
- else
- SetString(Content, Start + 1, Final - 1 - Start);
-end;
-
-(*
-===============================================================================================
-TEntityStackNode
-This Node is pushed to the "Entity Stack" whenever the parser parses entity replacement text.
-The "Instance" field holds the Instance pointer of an External Entity buffer. When it is
-popped, the Instance is freed.
-The "Encoding" field holds the name of the Encoding. External Parsed Entities may have
-another encoding as the document entity (XmlSpec 4.3.3). So when there is an " 0 then
- begin
- ESN := TEntityStackNode(Items[Count - 1]);
- Result := ESN.LastPos;
- if ESN.Instance <> nil then
- ESN.Instance.Free;
- if ESN.Encoding <> '' then
- Owner.FCurEncoding := ESN.Encoding; // Restore current Encoding
- Delete(Count - 1);
- end
- else
- Result := nil;
-end;
-
-(*
-===============================================================================================
-TExternalID
------------
-XmlSpec 4.2.2: ExternalID ::= 'SYSTEM' S SystemLiteral |
- 'PUBLIC' S PubidLiteral S SystemLiteral
-XmlSpec 4.7: PublicID ::= 'PUBLIC' S PubidLiteral
-SystemLiteral and PubidLiteral are quoted
-===============================================================================================
-*)
-
-type
- TExternalID = class
- PublicId: string;
- SystemId: string;
- Final: PAnsiChar;
- constructor Create(Start: PAnsiChar);
- end;
-
-constructor TExternalID.Create(Start: PAnsiChar);
-begin
- inherited Create;
- Final := Start;
- if AnsiStrings.StrLComp(Start, 'SYSTEM', 6) = 0 then
- begin
- while not (CharInSet(Final^, (CQuoteChar + [#0, '>', '[']))) do
- INC(Final);
- if not (CharInSet(Final^, CQuoteChar)) then
- EXIT;
- ExtractQuote(Final, SystemID, Final);
- end
- else
- if AnsiStrings.StrLComp(Start, 'PUBLIC', 6) = 0 then
- begin
- while not (CharInSet(Final^, (CQuoteChar + [#0, '>', '[']))) do
- INC(Final);
- if not (CharInSet(Final^, CQuoteChar)) then
- EXIT;
- ExtractQuote(Final, PublicID, Final);
- INC(Final);
- while not (CharInSet(Final^, (CQuoteChar + [#0, '>', '[']))) do
- INC(Final);
- if not (CharInSet(Final^, CQuoteChar)) then
- EXIT;
- ExtractQuote(Final, SystemID, Final);
- end;
-end;
-
-(*
-===============================================================================================
-TXmlParser
-===============================================================================================
-*)
-
-constructor TXmlParser.Create;
-begin
- inherited Create;
- FBuffer := nil;
- FBufferSize := 0;
- Elements := TElemList.Create;
- Entities := TNvpList.Create;
- ParEntities := TNvpList.Create;
- Notations := TNvpList.Create;
- CurAttr := TAttrList.Create;
- EntityStack := TEntityStack.Create(Self);
- Clear;
-end;
-
-destructor TXmlParser.Destroy;
-begin
- Clear;
- Elements.Free;
- Entities.Free;
- ParEntities.Free;
- Notations.Free;
- CurAttr.Free;
- EntityStack.Free;
- inherited Destroy;
-end;
-
-procedure TXmlParser.Clear;
- // Free Buffer and clear all object attributes
-begin
- if (FBufferSize > 0) and (FBuffer <> nil) then
- FreeMem(FBuffer);
- FBuffer := nil;
- FBufferSize := 0;
- FSource := '';
- FXmlVersion := '';
- FEncoding := '';
- FStandalone := FALSE;
- FRootName := '';
- FDtdcFinal := nil;
- FNormalize := TRUE;
- Elements.Clear;
- Entities.Clear;
- ParEntities.Clear;
- Notations.Clear;
- CurAttr.Clear;
- EntityStack.Clear;
-end;
-
-function TXmlParser.LoadFromFile(Filename: string; FileMode: INTEGER = fmOpenRead or fmShareDenyNone): BOOLEAN;
- // Loads Document from given file
- // Returns TRUE if successful
-var
- f: file;
- ReadIn: INTEGER;
- OldFileMode: INTEGER;
-begin
- Result := FALSE;
- Clear;
-
- // --- Open File
- OldFileMode := SYSTEM.FileMode;
- try
- SYSTEM.FileMode := FileMode;
- try
- AssignFile(f, Filename);
- Reset(f, 1);
- except
- EXIT;
- end;
-
- try
- // --- Allocate Memory
- try
- FBufferSize := Filesize(f) + 1;
- GetMem(FBuffer, FBufferSize);
- except
- Clear;
- EXIT;
- end;
-
- // --- Read File
- try
- BlockRead(f, FBuffer^, FBufferSize, ReadIn);
- (FBuffer + ReadIn)^ := #0; // NULL termination
- except
- Clear;
- EXIT;
- end;
- finally
- CloseFile(f);
- end;
-
- FSource := Filename;
- Result := TRUE;
-
- finally
- SYSTEM.FileMode := OldFileMode;
- end;
-end;
-
-function TXmlParser.LoadFromBuffer(Buffer: PAnsiChar): BOOLEAN;
- // Loads Document from another buffer
- // Returns TRUE if successful
- // The "Source" property becomes '' if successful
-begin
- Result := FALSE;
- Clear;
- FBufferSize := AnsiStrings.StrLen(Buffer) + 1;
- try
- GetMem(FBuffer, FBufferSize);
- except
- Clear;
- EXIT;
- end;
- AnsiStrings.StrCopy(FBuffer, Buffer);
- FSource := '';
- Result := TRUE;
-end;
-
-procedure TXmlParser.SetBuffer(Buffer: PAnsiChar); // References another buffer
-begin
- Clear;
- FBuffer := Buffer;
- FBufferSize := 0;
- FSource := '';
-end;
-
-//-----------------------------------------------------------------------------------------------
-// Scanning through the document
-//-----------------------------------------------------------------------------------------------
-
-procedure TXmlParser.StartScan;
-begin
- CurPartType := ptNone;
- CurName := '';
- CurContent := '';
- CurStart := nil;
- CurFinal := nil;
- CurAttr.Clear;
- EntityStack.Clear;
-end;
-
-function TXmlParser.Scan: BOOLEAN;
- // Scans the next Part
- // Returns TRUE if a part could be found, FALSE if there is no part any more
- //
- // "IsDone" can be set to FALSE by AnalyzeText in order to go to the next part
- // if there is no Content due to normalization
-var
- IsDone: BOOLEAN;
-begin
- repeat
- IsDone := TRUE;
-
- // --- Start of next Part
- if CurStart = nil
- then
- CurStart := DocBuffer
- else
- CurStart := CurFinal + 1;
- CurFinal := CurStart;
- // --- End of Document of Pop off a new part from the Entity stack?
- if CurStart^ = #0 then
- CurStart := EntityStack.Pop;
-
- // --- No Document or End Of Document: Terminate Scan
- if (CurStart = nil) or (CurStart^ = #0) then
- begin
- CurStart := AnsiStrings.StrEnd(DocBuffer);
- CurFinal := CurStart - 1;
- EntityStack.Clear;
- Result := FALSE;
- EXIT;
- end;
-
- if (AnsiStrings.StrLComp(CurStart, '');
- if CurFinal <> nil
- then
- INC(CurFinal)
- else
- CurFinal := AnsiStrings.StrEnd(CurStart) - 1;
- FCurEncoding := AnsiUpperCase(CurAttr.Value('encoding'));
- if FCurEncoding = '' then
- FCurEncoding := 'UTF-8'; // Default XML Encoding is UTF-8
- CurPartType := ptXmlProlog;
- CurName := '';
- CurContent := '';
-end;
-
-procedure TXmlParser.AnalyzeComment(Start: PAnsiChar; var Final: PAnsiChar);
- // Analyze Comments
-begin
- Final := StrPos(Start + 4, '-->');
- if Final = nil
- then
- Final := AnsiStrings.StrEnd(Start) - 1
- else
- INC(Final, 2);
- CurPartType := ptComment;
-end;
-
-procedure TXmlParser.AnalyzePI(Start: PAnsiChar; var Final: PAnsiChar);
- // Analyze Processing Instructions (PI)
- // This is also called for Character
-var
- F: PAnsiChar;
-begin
- CurPartType := ptPI;
- Final := StrPos(Start + 2, '?>');
- if Final = nil
- then
- Final := AnsiStrings.StrEnd(Start) - 1
- else
- INC(Final);
- ExtractName(Start + 2, CWhitespace + ['?', '>'], F);
- SetStringSF(CurName, Start + 2, F);
- SetStringSF(CurContent, F + 1, Final - 2);
- CurAttr.Analyze(F + 1, F);
-end;
-
-procedure TXmlParser.AnalyzeDtdc;
- (* Analyze Document Type Declaration
- doctypedecl ::= ''
- markupdecl ::= elementdecl | AttlistDecl | EntityDecl | NotationDecl | PI | Comment
- PEReference ::= '%' Name ';'
-
- elementdecl ::= ''
- AttlistDecl ::= ''
- EntityDecl ::= '' |
- ''
- NotationDecl ::= ''
- PI ::= '' Char* )))? '?>'
- Comment ::= '' *)
-type
- TPhase = (phName, phDtd, phInternal, phFinishing);
-var
- Phase: TPhase;
- F: PAnsiChar;
- ExternalID: TExternalID;
- ExternalDTD: TXmlParser;
- DER: TDtdElementRec;
-begin
- DER.Start := CurStart;
- EntityStack.Clear; // Clear stack for Parameter Entities
- CurPartType := ptDtdc;
-
- // --- Don't read DTDc twice
- if FDtdcFinal <> nil then
- begin
- CurFinal := FDtdcFinal;
- EXIT;
- end;
-
- // --- Scan DTDc
- CurFinal := CurStart + 9; // First char after '': BREAK;
- else
- if not (CharInSet(CurFinal^, CWhitespace)) then
- begin
- case Phase of
- phName:
- if (CharInSet(CurFinal^, CNameStart)) then
- begin
- ExtractName(CurFinal, CWhitespace + ['[', '>'], F);
- SetStringSF(FRootName, CurFinal, F);
- CurFinal := F;
- Phase := phDtd;
- end;
- phDtd:
- if (AnsiStrings.StrLComp(CurFinal, 'SYSTEM', 6) = 0) or
- (AnsiStrings.StrLComp(CurFinal, 'PUBLIC', 6) = 0) then
- begin
- ExternalID := TExternalID.Create(CurFinal);
- ExternalDTD := LoadExternalEntity(ExternalId.SystemId, ExternalID.PublicId, '');
- F := StrPos(ExternalDtd.DocBuffer, ' nil then
- AnalyzeDtdElements(F, F);
- ExternalDTD.Free;
- CurFinal := ExternalID.Final;
- ExternalID.Free;
- end;
- else
- begin
- DER.ElementType := deError;
- DER.Pos := CurFinal;
- DER.Final := CurFinal;
- DtdElementFound(DER);
- end;
- end;
-
- end;
- end;
- INC(CurFinal);
- until FALSE;
-
- CurPartType := ptDtdc;
- CurName := '';
- CurContent := '';
-
- // It is an error in the document if "EntityStack" is not empty now
- if EntityStack.Count > 0 then
- begin
- DER.ElementType := deError;
- DER.Final := CurFinal;
- DER.Pos := CurFinal;
- DtdElementFound(DER);
- end;
-
- EntityStack.Clear; // Clear stack for General Entities
- FDtdcFinal := CurFinal;
-end;
-
-procedure TXmlParser.AnalyzeDtdElements(Start: PAnsiChar; var Final: PAnsiChar);
- // Analyze the "Elements" of a DTD contained in the external or
- // internal DTD subset.
-var
- DER: TDtdElementRec;
-begin
- Final := Start;
- repeat
- case Final^ of
- '%':
- begin
- PushPE(Final);
- CONTINUE;
- end;
- #0:
- if EntityStack.Count = 0 then
- BREAK
- else
- begin
- CurFinal := EntityStack.Pop;
- CONTINUE;
- end;
- ']',
- '>': BREAK;
- '<':
- if AnsiStrings.StrLComp(Final, '');
-
- // --- Set Default Attribute values for nonexistent attributes
- if (CurPartType = ptStartTag) or (CurPartType = ptEmptyTag) then
- begin
- ElemDef := Elements.Node(CurName);
- if ElemDef <> nil then
- begin
- for I := 0 to ElemDef.Count - 1 do
- begin
- AttrDef := TAttrDef(ElemDef[I]);
- Attr := TAttr(CurAttr.Node(AttrDef.Name));
- if (Attr = nil) and (AttrDef.Value <> '') then
- begin
- Attr := TAttr.Create(AttrDef.Name, AttrDef.Value);
- Attr.ValueType := vtDefault;
- CurAttr.Add(Attr);
- end;
- if Attr <> nil then
- begin
- case AttrDef.DefaultType of
- adDefault: ;
- adRequired: ; // -!- It is an error in the document if "Attr.Value" is an empty string
- adImplied: Attr.ValueType := vtImplied;
- adFixed:
- begin
- Attr.ValueType := vtFixed;
- Attr.Value := AttrDef.Value;
- end;
- end;
- Attr.AttrType := AttrDef.AttrType;
- end;
- end;
- end;
-
- // --- Normalize Attribute Values. XmlSpec:
- // - a character reference is processed by appending the referenced character to the attribute value
- // - an entity reference is processed by recursively processing the replacement text of the entity
- // - a whitespace character (#x20, #xD, #xA, #x9) is processed by appending #x20 to the normalized value,
- // except that only a single #x20 is appended for a "#xD#xA" sequence that is part of an external
- // parsed entity or the literal entity value of an internal parsed entity
- // - other characters are processed by appending them to the normalized value
- // If the declared value is not CDATA, then the XML processor must further process the
- // normalized attribute value by discarding any leading and trailing space (#x20) characters,
- // and by replacing sequences of space (#x20) characters by a single space (#x20) character.
- // All attributes for which no declaration has been read should be treated by a
- // non-validating parser as if declared CDATA.
- // !!! The XML 1.0 SE specification is somewhat different here
- // This code does not conform exactly to this specification
- for I := 0 to CurAttr.Count - 1 do
- with TAttr(CurAttr[I]) do
- begin
- ReplaceGeneralEntities(Value);
- ReplaceCharacterEntities(Value);
- if (AttrType <> atCData) and (AttrType <> atUnknown)
- then
- Value := TranslateEncoding(TrimWs(ConvertWs(Value, TRUE)))
- else
- Value := TranslateEncoding(ConvertWs(Value, FALSE));
- end;
- end;
-end;
-
-procedure TXmlParser.AnalyzeCData;
- // Analyze CDATA Sections
-begin
- CurPartType := ptCData;
- CurFinal := StrPos(CurStart, CDEnd);
- if CurFinal = nil then
- begin
- CurFinal := AnsiStrings.StrEnd(CurStart) - 1;
- CurContent := TranslateEncoding(string(AnsiStrings.StrPas(CurStart + Length(CDStart))));
- end
- else
- begin
- SetStringSF(CurContent, CurStart + Length(CDStart), CurFinal - 1);
- INC(CurFinal, Length(CDEnd) - 1);
- CurContent := TranslateEncoding(CurContent);
- end;
-end;
-
-procedure TXmlParser.AnalyzeText(var IsDone: BOOLEAN);
- (* Analyzes Text Content between Tags. CurFinal will point to the last content character.
- Content ends at a '<' character or at the end of the document.
- Entity References and Character Entity references are resolved.
- If PackSpaces is TRUE, contiguous Whitespace Characters will be compressed to
- one Space #x20 character, Whitespace at the beginning and end of content will
- be trimmed off and content which is or becomes empty is not returned to
- the application (in this case, "IsDone" is set to FALSE which causes the
- Scan method to proceed directly to the next part. *)
-
- procedure ProcessEntity;
- (* Is called if there is an ampsersand '&' character found in the document.
- IN "CurFinal" points to the ampersand
- OUT "CurFinal" points to the first character after the semi-colon ';' *)
- var
- P: PAnsiChar;
- Name: string;
- EntityDef: TEntityDef;
- ExternalEntity: TXmlParser;
- begin
- P := StrScan(CurFinal, ';');
- if P <> nil then
- begin
- SetStringSF(Name, CurFinal + 1, P - 1);
-
- // Is it a Character Entity?
- if (CurFinal + 1)^ = '#' then
- begin
- if UpCase((CurFinal + 2)^) = 'X' // !!! Can't use "CHR" for Unicode characters > 255:
- then
- CurContent := CurContent + CHR(StrToIntDef('$' + Copy(Name, 3, MaxInt), 32))
- else
- CurContent := CurContent + CHR(StrToIntDef(Copy(Name, 2, MaxInt), 32));
- CurFinal := P + 1;
- EXIT;
- end
-
- // Is it a Predefined Entity?
- else
- if Name = 'lt' then
- begin
- CurContent := CurContent + '<';
- CurFinal := P + 1;
- EXIT;
- end
- else
- if Name = 'gt' then
- begin
- CurContent := CurContent + '>';
- CurFinal := P + 1;
- EXIT;
- end
- else
- if Name = 'amp' then
- begin
- CurContent := CurContent + '&';
- CurFinal := P + 1;
- EXIT;
- end
- else
- if Name = 'apos' then
- begin
- CurContent := CurContent + '''';
- CurFinal := P + 1;
- EXIT;
- end
- else
- if Name = 'quot' then
- begin
- CurContent := CurContent + '"';
- CurFinal := P + 1;
- EXIT;
- end;
-
- // Replace with Entity from DTD
- EntityDef := TEntityDef(Entities.Node(Name));
- if EntityDef <> nil then
- begin
- if EntityDef.Value <> '' then
- begin
- EntityStack.Push(P + 1);
- CurFinal := StringToPAnsiChar(EntityDef.Value);
- end
- else
- begin
- ExternalEntity := LoadExternalEntity(EntityDef.SystemId, EntityDef.PublicId, EntityDef.NotationName);
- EntityStack.Push(ExternalEntity, P + 1);
- CurFinal := ExternalEntity.DocBuffer;
- end;
- end
- else
- begin
- CurContent := CurContent + Name;
- CurFinal := P + 1;
- end;
- end
- else
- begin
- INC(CurFinal);
- end;
- end;
-
-var
- C: INTEGER;
-begin
- CurFinal := CurStart;
- CurPartType := ptContent;
- CurContent := '';
- C := 0;
- repeat
- case CurFinal^ of
- '&':
- begin
- CurContent := CurContent + TranslateEncoding(StrLPas(CurFinal - C, C));
- C := 0;
- ProcessEntity;
- CONTINUE;
- end;
- #0:
- begin
- if EntityStack.Count = 0 then
- BREAK
- else
- begin
- CurContent := CurContent + TranslateEncoding(StrLPas(CurFinal - C, C));
- C := 0;
- CurFinal := EntityStack.Pop;
- CONTINUE;
- end;
- end;
- '<': BREAK;
- else
- INC(C);
- end;
- INC(CurFinal);
- until FALSE;
- CurContent := CurContent + TranslateEncoding(StrLPas(CurFinal - C, C));
- DEC(CurFinal);
-
- if FNormalize then
- begin
- CurContent := ConvertWs(TrimWs(CurContent), TRUE);
- IsDone := CurContent <> ''; // IsDone will only get FALSE if PackSpaces is TRUE
- end;
-end;
-
-procedure TXmlParser.AnalyzeElementDecl(Start: PAnsiChar; var Final: PAnsiChar);
- (* Parse ' character
- XmlSpec 3.2:
- elementdecl ::= ''
- contentspec ::= 'EMPTY' | 'ANY' | Mixed | children
- Mixed ::= '(' S? '#PCDATA' (S? '|' S? Name)* S? ')*' |
- '(' S? '#PCDATA' S? ')'
- children ::= (choice | seq) ('?' | '*' | '+')?
- choice ::= '(' S? cp ( S? '|' S? cp )* S? ')'
- cp ::= (Name | choice | seq) ('?' | '*' | '+')?
- seq ::= '(' S? cp ( S? ',' S? cp )* S? ')'
-
- More simply:
- contentspec ::= EMPTY
- ANY
- '(#PCDATA)'
- '(#PCDATA | A | B)*'
- '(A, B, C)'
- '(A | B | C)'
- '(A?, B*, C+),
- '(A, (B | C | D)* )' *)
-var
- Element: TElemDef;
- Elem2: TElemDef;
- F: PAnsiChar;
- DER: TDtdElementRec;
-begin
- Element := TElemDef.Create;
- Final := Start + 9;
- DER.Start := Start;
- repeat
- if Final^ = '>' then
- BREAK;
- if (CharInSet(Final^, CNameStart)) and (Element.Name = '') then
- begin
- ExtractName(Final, CWhitespace, F);
- SetStringSF(Element.Name, Final, F);
- Final := F;
- F := StrScan(Final + 1, '>');
- if F = nil then
- begin
- Element.Definition := string(Final);
- Final := AnsiStrings.StrEnd(Final);
- BREAK;
- end
- else
- begin
- SetStringSF(Element.Definition, Final + 1, F - 1);
- Final := F;
- BREAK;
- end;
- end;
- INC(Final);
- until FALSE;
- Element.Definition := DelChars(Element.Definition, CWhitespace);
- ReplaceParameterEntities(Element.Definition);
- if Element.Definition = 'EMPTY' then
- Element.ElemType := etEmpty
- else
- if Element.Definition = 'ANY' then
- Element.ElemType := etAny
- else
- if Copy(Element.Definition, 1, 8) = '(#PCDATA' then
- Element.ElemType := etMixed
- else
- if Copy(Element.Definition, 1, 1) = '(' then
- Element.ElemType := etChildren
- else
- Element.ElemType := etAny;
-
- Elem2 := Elements.Node(Element.Name);
- if Elem2 <> nil then
- Elements.Delete(Elements.IndexOf(Elem2));
- Elements.Add(Element);
- Final := StrScanE(Final, '>');
- DER.ElementType := deElement;
- DER.ElemDef := Element;
- DER.Final := Final;
- DtdElementFound(DER);
-end;
-
-procedure TXmlParser.AnalyzeAttListDecl(Start: PAnsiChar; var Final: PAnsiChar);
- (* Parse ' character
- XmlSpec 3.3:
- AttlistDecl ::= ''
- AttDef ::= S Name S AttType S DefaultDecl
- AttType ::= StringType | TokenizedType | EnumeratedType
- StringType ::= 'CDATA'
- TokenizedType ::= 'ID' | 'IDREF' | 'IDREFS' | 'ENTITY' | 'ENTITIES' | 'NMTOKEN' | 'NMTOKENS'
- EnumeratedType ::= NotationType | Enumeration
- NotationType ::= 'NOTATION' S '(' S? Name (S? '|' S? Name)* S? ')'
- Enumeration ::= '(' S? Nmtoken (S? '|' S? Nmtoken)* S? ')'
- DefaultDecl ::= '#REQUIRED' | '#IMPLIED' | (('#FIXED' S)? AttValue)
- AttValue ::= '"' ([^<&"] | Reference)* '"' | "'" ([^<&'] | Reference)* "'"
- Examples:
- *)
-type
- TPhase = (phElementName, phName, phType, phNotationContent, phDefault);
-var
- Phase: TPhase;
- F: PAnsiChar;
- ElementName: string;
- ElemDef: TElemDef;
- AttrDef: TAttrDef;
- AttrDef2: TAttrDef;
- Strg: string;
- DER: TDtdElementRec;
-begin
- Final := Start + 9; // The character after ': BREAK;
- else
- case Phase of
- phElementName:
- begin
- ExtractName(Final, CWhitespace + CQuoteChar + ['#'], F);
- SetStringSF(ElementName, Final, F);
- Final := F;
- ElemDef := Elements.Node(ElementName);
- if ElemDef = nil then
- begin
- ElemDef := TElemDef.Create;
- ElemDef.Name := ElementName;
- ElemDef.Definition := 'ANY';
- ElemDef.ElemType := etAny;
- Elements.Add(ElemDef);
- end;
- Phase := phName;
- end;
- phName:
- begin
- AttrDef := TAttrDef.Create;
- ExtractName(Final, CWhitespace + CQuoteChar + ['#'], F);
- SetStringSF(AttrDef.Name, Final, F);
- Final := F;
- AttrDef2 := TAttrDef(ElemDef.Node(AttrDef.Name));
- if AttrDef2 <> nil then
- ElemDef.Delete(ElemDef.IndexOf(AttrDef2));
- ElemDef.Add(AttrDef);
- Phase := phType;
- end;
- phType:
- begin
- if Final^ = '(' then
- begin
- F := StrScan(Final + 1, ')');
- if F <> nil
- then
- SetStringSF(AttrDef.TypeDef, Final + 1, F - 1)
- else
- AttrDef.TypeDef := string(Final + 1);
- AttrDef.TypeDef := DelChars(AttrDef.TypeDef, CWhitespace);
- AttrDef.AttrType := atEnumeration;
- ReplaceParameterEntities(AttrDef.TypeDef);
- ReplaceCharacterEntities(AttrDef.TypeDef);
- Phase := phDefault;
- end
- else
- if AnsiStrings.StrLComp(Final, 'NOTATION', 8) = 0 then
- begin
- INC(Final, 8);
- AttrDef.AttrType := atNotation;
- Phase := phNotationContent;
- end
- else
- begin
- ExtractName(Final, CWhitespace + CQuoteChar + ['#'], F);
- SetStringSF(AttrDef.TypeDef, Final, F);
- if AttrDef.TypeDef = 'CDATA' then
- AttrDef.AttrType := atCData
- else
- if AttrDef.TypeDef = 'ID' then
- AttrDef.AttrType := atId
- else
- if AttrDef.TypeDef = 'IDREF' then
- AttrDef.AttrType := atIdRef
- else
- if AttrDef.TypeDef = 'IDREFS' then
- AttrDef.AttrType := atIdRefs
- else
- if AttrDef.TypeDef = 'ENTITY' then
- AttrDef.AttrType := atEntity
- else
- if AttrDef.TypeDef = 'ENTITIES' then
- AttrDef.AttrType := atEntities
- else
- if AttrDef.TypeDef = 'NMTOKEN' then
- AttrDef.AttrType := atNmToken
- else
- if AttrDef.TypeDef = 'NMTOKENS' then
- AttrDef.AttrType := atNmTokens;
- Phase := phDefault;
- end
- end;
- phNotationContent:
- begin
- F := StrScan(Final, ')');
- if F <> nil then
- SetStringSF(AttrDef.Notations, Final + 1, F - 1)
- else
- begin
- AttrDef.Notations := string(Final + 1);
- Final := AnsiStrings.StrEnd(Final);
- end;
- ReplaceParameterEntities(AttrDef.Notations);
- AttrDef.Notations := DelChars(AttrDef.Notations, CWhitespace);
- Phase := phDefault;
- end;
- phDefault:
- begin
- if Final^ = '#' then
- begin
- ExtractName(Final, CWhiteSpace + CQuoteChar, F);
- SetStringSF(Strg, Final, F);
- Final := F;
- ReplaceParameterEntities(Strg);
- if Strg = '#REQUIRED' then
- begin
- AttrDef.DefaultType := adRequired;
- Phase := phName;
- end
- else
- if Strg = '#IMPLIED' then
- begin
- AttrDef.DefaultType := adImplied;
- Phase := phName;
- end
- else
- if Strg = '#FIXED' then
- AttrDef.DefaultType := adFixed;
- end
- else
- if (CharInSet(Final^, CQuoteChar)) then
- begin
- ExtractQuote(Final, AttrDef.Value, Final);
- ReplaceParameterEntities(AttrDef.Value);
- ReplaceCharacterEntities(AttrDef.Value);
- Phase := phName;
- end;
- if Phase = phName then
- begin
- AttrDef := nil;
- end;
- end;
-
- end;
- end;
- INC(Final);
- until FALSE;
-
- Final := StrScan(Final, '>');
-
- DER.ElementType := deAttList;
- DER.ElemDef := ElemDef;
- DER.Final := Final;
- DtdElementFound(DER);
-end;
-
-procedure TXmlParser.AnalyzeEntityDecl(Start: PAnsiChar; var Final: PAnsiChar);
- (* Parse ' character
- XmlSpec 4.2:
- EntityDecl ::= '' |
- ''
- EntityDef ::= EntityValue | (ExternalID NDataDecl?)
- PEDef ::= EntityValue | ExternalID
- NDataDecl ::= S 'NDATA' S Name
- EntityValue ::= '"' ([^%&"] | PEReference | EntityRef | CharRef)* '"' |
- "'" ([^%&'] | PEReference | EntityRef | CharRef)* "'"
- PEReference ::= '%' Name ';'
-
- Examples
-
-
-
- ">
-
-
- Dies ist ein Test-Absatz">
- *)
-type
- TPhase = (phName, phContent, phNData, phNotationName, phFinalGT);
-var
- Phase: TPhase;
- IsParamEntity: BOOLEAN;
- F: PAnsiChar;
- ExternalID: TExternalID;
- EntityDef: TEntityDef;
- EntityDef2: TEntityDef;
- DER: TDtdElementRec;
-begin
- Final := Start + 8; // First char after ': BREAK;
- else
- case Phase of
- phName:
- if CharInSet(Final^, CNameStart) then
- begin
- ExtractName(Final, CWhitespace + CQuoteChar, F);
- SetStringSF(EntityDef.Name, Final, F);
- Final := F;
- Phase := phContent;
- end;
- phContent:
- if CharInSet(Final^, CQuoteChar) then
- begin
- ExtractQuote(Final, EntityDef.Value, Final);
- Phase := phFinalGT;
- end
- else
- if (AnsiStrings.StrLComp(Final, 'SYSTEM', 6) = 0) or
- (AnsiStrings.StrLComp(Final, 'PUBLIC', 6) = 0) then
- begin
- ExternalID := TExternalID.Create(Final);
- EntityDef.SystemId := ExternalID.SystemId;
- EntityDef.PublicId := ExternalID.PublicId;
- Final := ExternalID.Final;
- Phase := phNData;
- ExternalID.Free;
- end;
- phNData:
- if AnsiStrings.StrLComp(Final, 'NDATA', 5) = 0 then
- begin
- INC(Final, 4);
- Phase := phNotationName;
- end;
- phNotationName:
- if CharInSet(Final^, CNameStart) then
- begin
- ExtractName(Final, CWhitespace + ['>'], F);
- SetStringSF(EntityDef.NotationName, Final, F);
- Final := F;
- Phase := phFinalGT;
- end;
- phFinalGT: ; // -!- There is an error in the document if this branch is called
- end;
- end;
- INC(Final);
- until FALSE;
- if IsParamEntity then
- begin
- EntityDef2 := TEntityDef(ParEntities.Node(EntityDef.Name));
- if EntityDef2 <> nil then
- ParEntities.Delete(ParEntities.IndexOf(EntityDef2));
- ParEntities.Add(EntityDef);
- ReplaceCharacterEntities(EntityDef.Value);
- end
- else
- begin
- EntityDef2 := TEntityDef(Entities.Node(EntityDef.Name));
- if EntityDef2 <> nil then
- Entities.Delete(Entities.IndexOf(EntityDef2));
- Entities.Add(EntityDef);
- ReplaceParameterEntities(EntityDef.Value); // Create replacement texts (see XmlSpec 4.5)
- ReplaceCharacterEntities(EntityDef.Value);
- end;
- Final := StrScanE(Final, '>');
-
- DER.ElementType := deEntity;
- DER.EntityDef := EntityDef;
- DER.Final := Final;
- DtdElementFound(DER);
-end;
-
-procedure TXmlParser.AnalyzeNotationDecl(Start: PAnsiChar; var Final: PAnsiChar);
- // Parse ' character
- // XmlSpec 4.7: NotationDecl ::= ''
-type
- TPhase = (phName, phExtId, phEnd);
-var
- ExternalID: TExternalID;
- Phase: TPhase;
- F: PAnsiChar;
- NotationDef: TNotationDef;
- DER: TDtdElementRec;
-begin
- Final := Start + 10; // Character after ',
- #0: BREAK;
- else
- case Phase of
- phName:
- begin
- ExtractName(Final, CWhitespace + ['>'], F);
- SetStringSF(NotationDef.Name, Final, F);
- Final := F;
- Phase := phExtId;
- end;
- phExtId:
- begin
- ExternalID := TExternalID.Create(Final);
- NotationDef.Value := ExternalID.SystemId;
- NotationDef.PublicId := ExternalID.PublicId;
- Final := ExternalId.Final;
- ExternalId.Free;
- Phase := phEnd;
- end;
- phEnd: ; // -!- There is an error in the document if this branch is called
- end;
- end;
- INC(Final);
- until FALSE;
- Notations.Add(NotationDef);
- Final := StrScanE(Final, '>');
-
- DER.ElementType := deNotation;
- DER.NotationDef := NotationDef;
- DER.Final := Final;
- DtdElementFound(DER);
-end;
-
-procedure TXmlParser.PushPE(var Start: PAnsiChar);
- (* If there is a parameter entity reference found in the data stream,
- the current position will be pushed to the entity stack.
- Start: IN Pointer to the '%' character starting the PE reference
- OUT Pointer to first character of PE replacement text *)
-var
- P: PAnsiChar;
- EntityDef: TEntityDef;
-begin
- P := StrScan(Start, ';');
- if P <> nil then
- begin
- EntityDef := TEntityDef(ParEntities.Node(StrSFPas(Start + 1, P - 1)));
- if EntityDef <> nil then
- begin
- EntityStack.Push(P + 1);
- Start := StringToPAnsiChar(EntityDef.Value);
- end
- else
- Start := P + 1;
- end;
-end;
-
-procedure TXmlParser.ReplaceCharacterEntities(var Str: string);
- // Replaces all Character Entity References in the String
-var
- Start: INTEGER;
- PAmp: PAnsiChar;
- PSemi: PAnsiChar;
- PosAmp: INTEGER;
- Len: INTEGER; // Length of Entity Reference
-begin
- if Str = '' then
- EXIT;
- Start := 1;
- repeat
- PAmp := StrPos(StringToPAnsiChar(Str) + Start - 1, '&#');
- if PAmp = nil then
- BREAK;
- PSemi := StrScan(PAmp + 2, ';');
- if PSemi = nil then
- BREAK;
- PosAmp := PAmp - StringToPAnsiChar(Str) + 1;
- Len := PSemi - PAmp + 1;
- if CompareText(Str[PosAmp + 2], 'x') = 0 // !!! Can't use "CHR" for Unicode characters > 255
- then
- Str[PosAmp] := CHR(StrToIntDef('$' + Copy(Str, PosAmp + 3, Len - 4), 0))
- else
- Str[PosAmp] := CHR(StrToIntDef(Copy(Str, PosAmp + 2, Len - 3), 32));
- Delete(Str, PosAmp + 1, Len - 1);
- Start := PosAmp + 1;
- until FALSE;
-end;
-
-procedure TXmlParser.ReplaceParameterEntities(var Str: string);
- // Recursively replaces all Parameter Entity References in the String
-
- procedure ReplaceEntities(var Str: string);
- var
- Start: INTEGER;
- PAmp: PAnsiChar;
- PSemi: PAnsiChar;
- PosAmp: INTEGER;
- Len: INTEGER;
- Entity: TEntityDef;
- Repl: string; // Replacement
- begin
- if Str = '' then
- EXIT;
- Start := 1;
- repeat
- PAmp := StrPos(StringToPAnsiChar(Str) + Start - 1, '%');
- if PAmp = nil then
- BREAK;
- PSemi := StrScan(PAmp + 2, ';');
- if PSemi = nil then
- BREAK;
- PosAmp := PAmp - StringToPAnsiChar(Str) + 1;
- Len := PSemi - PAmp + 1;
- Entity := TEntityDef(ParEntities.Node(Copy(Str, PosAmp + 1, Len - 2)));
- if Entity <> nil then
- begin
- Repl := Entity.Value;
- ReplaceEntities(Repl); // Recursion
- end
- else
- Repl := Copy(Str, PosAmp, Len);
- Delete(Str, PosAmp, Len);
- Insert(Repl, Str, PosAmp);
- Start := PosAmp + Length(Repl);
- until FALSE;
- end;
-begin
- ReplaceEntities(Str);
-end;
-
-procedure TXmlParser.ReplaceGeneralEntities(var Str: string);
- // Recursively replaces General Entity References in the String
-
- procedure ReplaceEntities(var Str: string);
- var
- Start: INTEGER;
- PAmp: PAnsiChar;
- PSemi: PAnsiChar;
- PosAmp: INTEGER;
- Len: INTEGER;
- EntityDef: TEntityDef;
- EntName: string;
- Repl: string; // Replacement
- ExternalEntity: TXmlParser;
- begin
- if Str = '' then
- EXIT;
- Start := 1;
- repeat
- PAmp := StrPos(StringToPAnsiChar(Str) + Start - 1, '&');
- if PAmp = nil then
- BREAK;
- PSemi := StrScan(PAmp + 2, ';');
- if PSemi = nil then
- BREAK;
- PosAmp := PAmp - StringToPAnsiChar(Str) + 1;
- Len := PSemi - PAmp + 1;
- EntName := Copy(Str, PosAmp + 1, Len - 2);
- if EntName = 'lt' then
- Repl := '<'
- else
- if EntName = 'gt' then
- Repl := '>'
- else
- if EntName = 'amp' then
- Repl := '&'
- else
- if EntName = 'apos' then
- Repl := ''''
- else
- if EntName = 'quot' then
- Repl := '"'
- else
- begin
- EntityDef := TEntityDef(Entities.Node(EntName));
- if EntityDef <> nil then
- begin
- if EntityDef.Value <> '' then // Internal Entity
- Repl := EntityDef.Value
- else
- begin // External Entity
- ExternalEntity := LoadExternalEntity(EntityDef.SystemId, EntityDef.PublicId, EntityDef.NotationName);
- Repl := string(AnsiStrings.StrPas(ExternalEntity.DocBuffer)); // !!! What if it contains a Text Declaration?
- ExternalEntity.Free;
- end;
- ReplaceEntities(Repl); // Recursion
- end
- else
- Repl := Copy(Str, PosAmp, Len);
- end;
- Delete(Str, PosAmp, Len);
- Insert(Repl, Str, PosAmp);
- Start := PosAmp + Length(Repl);
- until FALSE;
- end;
-begin
- ReplaceEntities(Str);
-end;
-
-function TXmlParser.LoadExternalEntity(SystemId, PublicId, Notation: string): TXmlParser;
- // This will be called whenever there is a Parsed External Entity or
- // the DTD External Subset to be parsed.
- // It has to create a TXmlParser instance and load the desired Entity.
- // This instance of LoadExternalEntity assumes that "SystemId" is a valid
- // file name (relative to the Document source) and loads this file using
- // the LoadFromFile method.
-var
- Filename: string;
-begin
- // --- Convert System ID to complete filename
- Filename := StringReplace(SystemId, '/', '\', [rfReplaceAll]);
- if Copy(FSource, 1, 1) <> '<' then
- if (Copy(Filename, 1, 2) = '\\') or (Copy(Filename, 2, 1) = ':') then
- // Already has an absolute Path
- else
- begin
- Filename := ExtractFilePath(FSource) + Filename;
- end;
-
- // --- Load the File
- Result := TXmlParser.Create;
- Result.LoadFromFile(Filename);
-end;
-
-function TXmlParser.TranslateEncoding(const Source: string): string;
- // The member variable "CurEncoding" always holds the name of the current
- // encoding, e.g. 'UTF-8' or 'ISO-8859-1'.
- // This virtual method "TranslateEncoding" is responsible for translating
- // the content passed in the "Source" parameter to the Encoding which
- // is expected by the application.
- // This instance of "TranlateEncoding" assumes that the Application expects
- // Windows ANSI (Win1252) strings. It is able to transform UTF-8 or ISO-8859-1
- // encodings.
- // If you want your application to understand or create other encodings, you
- // override this function.
-begin
- if CurEncoding = 'UTF-8'
- then
- Result := string(Utf8ToAnsi(Source))
- else
- Result := Source;
-end;
-
-procedure TXmlParser.DtdElementFound(DtdElementRec: TDtdElementRec);
- // This method is called for every element which is found in the DTD
- // declaration. The variant record TDtdElementRec is passed which
- // holds informations about the element.
- // You can override this function to handle DTD declarations.
- // Note that when you parse the same Document instance a second time,
- // the DTD will not get parsed again.
-begin
-end;
-
-function TXmlParser.GetDocBuffer: PAnsiChar;
- // Returns FBuffer or a pointer to a NUL char if Buffer is empty
-begin
- if FBuffer = nil
- then
- Result := #0
- else
- Result := FBuffer;
-end;
-
-(*$IFNDEF HAS_CONTNRS_UNIT
-===============================================================================================
-TObjectList
-===============================================================================================
-*)
-
-destructor TObjectList.Destroy;
-begin
- Clear;
- SetCapacity(0);
- inherited Destroy;
-end;
-
-procedure TObjectList.Delete(Index: INTEGER);
-begin
- if (Index < 0) or (Index >= Count) then
- EXIT;
- TObject(Items[Index]).Free;
- inherited Delete(Index);
-end;
-
-procedure TObjectList.Clear;
-begin
- while Count > 0 do
- Delete(Count - 1);
-end;
-
-(*$ENDIF *)
-
-(*
-===============================================================================================
-TNvpNode
---------
-Node base class for the TNvpList
-===============================================================================================
-*)
-
-constructor TNvpNode.Create(TheName, TheValue: string);
-begin
- inherited Create;
- Name := TheName;
- Value := TheValue;
-end;
-
-(*
-===============================================================================================
-TNvpList
---------
-A generic List of Name-Value Pairs, based on the TObjectList introduced in Delphi 5
-===============================================================================================
-*)
-
-procedure TNvpList.Add(Node: TNvpNode);
-var
- I: INTEGER;
-begin
- for I := Count - 1 downto 0 do
- if Node.Name > TNvpNode(Items[I]).Name then
- begin
- Insert(I + 1, Node);
- EXIT;
- end;
- Insert(0, Node);
-end;
-
-function TNvpList.Node(Name: string): TNvpNode;
- // Binary search for Node
-var
- L, H: INTEGER; // Low, High Limit
- T, C: INTEGER; // Test Index, Comparison result
- Last: INTEGER; // Last Test Index
-begin
- if Count = 0 then
- begin
- Result := nil;
- EXIT;
- end;
-
- L := 0;
- H := Count;
- Last := -1;
- repeat
- T := (L + H) div 2;
- if T = Last then
- BREAK;
- Result := TNvpNode(Items[T]);
- C := CompareStr(Result.Name, Name);
- if C = 0 then
- EXIT
- else
- if C < 0 then
- L := T
- else
- H := T;
- Last := T;
- until FALSE;
- Result := nil;
-end;
-
-function TNvpList.Node(Index: INTEGER): TNvpNode;
-begin
- if (Index < 0) or (Index >= Count)
- then
- Result := nil
- else
- Result := TNvpNode(Items[Index]);
-end;
-
-function TNvpList.Value(Name: string): string;
-var
- Nvp: TNvpNode;
-begin
- Nvp := TNvpNode(Node(Name));
- if Nvp <> nil
- then
- Result := Nvp.Value
- else
- Result := '';
-end;
-
-function TNvpList.Value(Index: INTEGER): string;
-begin
- if (Index < 0) or (Index >= Count)
- then
- Result := ''
- else
- Result := TNvpNode(Items[Index]).Value;
-end;
-
-function TNvpList.Name(Index: INTEGER): string;
-begin
- if (Index < 0) or (Index >= Count)
- then
- Result := ''
- else
- Result := TNvpNode(Items[Index]).Name;
-end;
-
-(*
-===============================================================================================
-TAttrList
-List of Attributes. The "Analyze" method extracts the Attributes from the given Buffer.
-Is used for extraction of Attributes in Start-Tags, Empty-Element Tags and the "pseudo"
-attributes in XML Prologs, Text Declarations and PIs.
-===============================================================================================
-*)
-
-procedure TAttrList.Analyze(Start: PAnsiChar; var Final: PAnsiChar);
- // Analyze the Buffer for Attribute=Name pairs.
- // Terminates when there is a character which is not IN CNameStart
- // (e.g. '?>' or '>' or '/>')
-type
- TPhase = (phName, phEq, phValue);
-var
- Phase: TPhase;
- F: PAnsiChar;
- Name: string;
- Value: string;
- Attr: TAttr;
-begin
- Clear;
- Phase := phName;
- Final := Start;
- repeat
- if (Final^ = #0) or (Final^ = '>') then
- BREAK;
- if not (CharInSet(Final^, CWhitespace)) then
- case Phase of
- phName:
- begin
- if not (CharInSet(Final^, CNameStart)) then
- EXIT;
- ExtractName(Final, CWhitespace + ['=', '/'], F);
- SetStringSF(Name, Final, F);
- Final := F;
- Phase := phEq;
- end;
- phEq:
- begin
- if Final^ = '=' then
- Phase := phValue
- end;
- phValue:
- begin
- if CharInSet(Final^, CQuoteChar) then
- begin
- ExtractQuote(Final, Value, F);
- Attr := TAttr.Create;
- Attr.Name := Name;
- Attr.Value := Value;
- Attr.ValueType := vtNormal;
- Add(Attr);
- Final := F;
- Phase := phName;
- end;
- end;
- end;
- INC(Final);
- until FALSE;
-end;
-
-(*
-===============================================================================================
-TElemList
-List of TElemDef nodes.
-===============================================================================================
-*)
-
-function TElemList.Node(Name: string): TElemDef;
- // Binary search for the Node with the given Name
-var
- L, H: INTEGER; // Low, High Limit
- T, C: INTEGER; // Test Index, Comparison result
- Last: INTEGER; // Last Test Index
-begin
- if Count = 0 then
- begin
- Result := nil;
- EXIT;
- end;
-
- L := 0;
- H := Count;
- Last := -1;
- repeat
- T := (L + H) div 2;
- if T = Last then
- BREAK;
- Result := TElemDef(Items[T]);
- C := CompareStr(Result.Name, Name);
- if C = 0 then
- EXIT
- else
- if C < 0 then
- L := T
- else
- H := T;
- Last := T;
- until FALSE;
- Result := nil;
-end;
-
-procedure TElemList.Add(Node: TElemDef);
-var
- I: INTEGER;
-begin
- for I := Count - 1 downto 0 do
- if Node.Name > TElemDef(Items[I]).Name then
- begin
- Insert(I + 1, Node);
- EXIT;
- end;
- Insert(0, Node);
-end;
-
-(*
-===============================================================================================
-TScannerXmlParser
-A TXmlParser descendant for the TCustomXmlScanner component
-===============================================================================================
-*)
-
-type
- TScannerXmlParser = class(TXmlParser)
- Scanner: TCustomXmlScanner;
- constructor Create(TheScanner: TCustomXmlScanner);
- function LoadExternalEntity(SystemId, PublicId,
- Notation: string): TXmlParser; override;
- function TranslateEncoding(const Source: string): string; override;
- procedure DtdElementFound(DtdElementRec: TDtdElementRec); override;
- end;
-
-constructor TScannerXmlParser.Create(TheScanner: TCustomXmlScanner);
-begin
- inherited Create;
- Scanner := TheScanner;
-end;
-
-function TScannerXmlParser.LoadExternalEntity(SystemId, PublicId, Notation: string): TXmlParser;
-begin
- if Assigned(Scanner.FOnLoadExternal)
- then
- Scanner.FOnLoadExternal(Scanner, SystemId, PublicId, Notation, Result)
- else
- Result := inherited LoadExternalEntity(SystemId, PublicId, Notation);
-end;
-
-function TScannerXmlParser.TranslateEncoding(const Source: string): string;
-begin
- if Assigned(Scanner.FOnTranslateEncoding)
- then
- Result := Scanner.FOnTranslateEncoding(Scanner, CurEncoding, Source)
- else
- Result := inherited TranslateEncoding(Source);
-end;
-
-procedure TScannerXmlParser.DtdElementFound(DtdElementRec: TDtdElementRec);
-begin
- with DtdElementRec do
- case ElementType of
- deElement: Scanner.WhenElement(ElemDef);
- deAttList: Scanner.WhenAttList(ElemDef);
- deEntity: Scanner.WhenEntity(EntityDef);
- deNotation: Scanner.WhenNotation(NotationDef);
- dePI: Scanner.WhenPI(string(Target), string(Content), AttrList);
- deComment: Scanner.WhenComment(StrSFPas(Start, Final));
- deError: Scanner.WhenDtdError(Pos);
- end;
-end;
-
-(*
-===============================================================================================
-TCustomXmlScanner
-===============================================================================================
-*)
-
-constructor TCustomXmlScanner.Create(AOwner: TComponent);
-begin
- inherited;
- FXmlParser := TScannerXmlParser.Create(Self);
-end;
-
-destructor TCustomXmlScanner.Destroy;
-begin
- FXmlParser.Free;
- inherited;
-end;
-
-procedure TCustomXmlScanner.LoadFromFile(Filename: TFilename);
- // Load XML Document from file
-begin
- FXmlParser.LoadFromFile(Filename);
-end;
-
-procedure TCustomXmlScanner.LoadFromBuffer(Buffer: PAnsiChar);
- // Load XML Document from buffer
-begin
- FXmlParser.LoadFromBuffer(Buffer);
-end;
-
-procedure TCustomXmlScanner.SetBuffer(Buffer: PAnsiChar);
- // Refer to Buffer
-begin
- FXmlParser.SetBuffer(Buffer);
-end;
-
-function TCustomXmlScanner.GetFilename: TFilename;
-begin
- Result := FXmlParser.Source;
-end;
-
-function TCustomXmlScanner.GetNormalize: BOOLEAN;
-begin
- Result := FXmlParser.Normalize;
-end;
-
-procedure TCustomXmlScanner.SetNormalize(Value: BOOLEAN);
-begin
- FXmlParser.Normalize := Value;
-end;
-
-procedure TCustomXmlScanner.WhenXmlProlog(XmlVersion, Encoding: string; Standalone: BOOLEAN);
- // Is called when the parser has parsed the declaration of the prolog
-begin
- if Assigned(FOnXmlProlog) then
- FOnXmlProlog(Self, XmlVersion, Encoding, Standalone);
-end;
-
-procedure TCustomXmlScanner.WhenComment(Comment: string);
- // Is called when the parser has parsed a
-begin
- if Assigned(FOnComment) then
- FOnComment(Self, Comment);
-end;
-
-procedure TCustomXmlScanner.WhenPI(Target, Content: string; Attributes: TAttrList);
- // Is called when the parser has parsed a
-begin
- if Assigned(FOnPI) then
- FOnPI(Self, Target, Content, Attributes);
-end;
-
-procedure TCustomXmlScanner.WhenDtdRead(RootElementName: string);
- // Is called when the parser has completely parsed the DTD
-begin
- if Assigned(FOnDtdRead) then
- FOnDtdRead(Self, RootElementName);
-end;
-
-procedure TCustomXmlScanner.WhenStartTag(TagName: string; Attributes: TAttrList);
- // Is called when the parser has parsed a start tag like
-begin
- if Assigned(FOnStartTag) then
- FOnStartTag(Self, TagName, Attributes);
-end;
-
-procedure TCustomXmlScanner.WhenEmptyTag(TagName: string; Attributes: TAttrList);
- // Is called when the parser has parsed an Empty Element Tag like
-begin
- if Assigned(FOnEmptyTag) then
- FOnEmptyTag(Self, TagName, Attributes);
-end;
-
-procedure TCustomXmlScanner.WhenEndTag(TagName: string);
- // Is called when the parser has parsed an End Tag like
-begin
- if Assigned(FOnEndTag) then
- FOnEndTag(Self, TagName);
-end;
-
-procedure TCustomXmlScanner.WhenContent(Content: string);
- // Is called when the parser has parsed an element's text content
-begin
- if Assigned(FOnContent) then
- FOnContent(Self, Content);
-end;
-
-procedure TCustomXmlScanner.WhenCData(Content: string);
- // Is called when the parser has parsed a CDATA section
-begin
- if Assigned(FOnCData) then
- FOnCData(Self, Content);
-end;
-
-procedure TCustomXmlScanner.WhenElement(ElemDef: TElemDef);
- // Is called when the parser has parsed an definition
- // inside the DTD
-begin
- if Assigned(FOnElement) then
- FOnElement(Self, ElemDef);
-end;
-
-procedure TCustomXmlScanner.WhenAttList(ElemDef: TElemDef);
- // Is called when the parser has parsed an definition
- // inside the DTD
-begin
- if Assigned(FOnAttList) then
- FOnAttList(Self, ElemDef);
-end;
-
-procedure TCustomXmlScanner.WhenEntity(EntityDef: TEntityDef);
- // Is called when the parser has parsed an definition
- // inside the DTD
-begin
- if Assigned(FOnEntity) then
- FOnEntity(Self, EntityDef);
-end;
-
-procedure TCustomXmlScanner.WhenNotation(NotationDef: TNotationDef);
- // Is called when the parser has parsed a definition
- // inside the DTD
-begin
- if Assigned(FOnNotation) then
- FOnNotation(Self, NotationDef);
-end;
-
-procedure TCustomXmlScanner.WhenDtdError(ErrorPos: PAnsiChar);
- // Is called when the parser has found an Error in the DTD
-begin
- if Assigned(FOnDtdError) then
- FOnDtdError(Self, ErrorPos);
-end;
-
-procedure TCustomXmlScanner.Execute;
- // Perform scanning
- // Scanning is done synchronously, i.e. you can expect events to be triggered
- // in the order of the XML data stream. Execute will finish when the whole XML
- // document has been scanned or when the StopParser property has been set to TRUE.
-begin
- FStopParser := FALSE;
- FXmlParser.StartScan;
- while FXmlParser.Scan and (not FStopParser) do
- case FXmlParser.CurPartType of
- ptNone: ;
- ptXmlProlog: WhenXmlProlog(FXmlParser.XmlVersion, FXmlParser.Encoding, FXmlParser.Standalone);
- ptComment: WhenComment(StrSFPas(FXmlParser.CurStart, FXmlParser.CurFinal));
- ptPI: WhenPI(FXmlParser.CurName, FXmlParser.CurContent, FXmlParser.CurAttr);
- ptDtdc: WhenDtdRead(FXmlParser.RootName);
- ptStartTag: WhenStartTag(FXmlParser.CurName, FXmlParser.CurAttr);
- ptEmptyTag: WhenEmptyTag(FXmlParser.CurName, FXmlParser.CurAttr);
- ptEndTag: WhenEndTag(FXmlParser.CurName);
- ptContent: WhenContent(FXmlParser.CurContent);
- ptCData: WhenCData(FXmlParser.CurContent);
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/LinksBar.pas b/windows/src/ext/embeddedwb/Source/LinksBar.pas
deleted file mode 100644
index 6277261f02937f07e8e95c7674e0602dd0edaed0..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/LinksBar.pas
+++ /dev/null
@@ -1,429 +0,0 @@
-//***********************************************************
-// LinksBar *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//***********************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: LinksBar.pas,v 1.2 2006/11/15 21:01:43 sergev Exp $
-
-unit LinksBar;
-
-interface
-
-uses
- Classes, Controls, ComCtrls, SHDocVw_EWB, EmbeddedWB;
-
-type
- TLinksBar = class(TToolbar)
- TLinksBar: TToolBar;
-
- private
- FAbout: string;
- FMaxCaptionLength: integer;
- FCount: Integer;
- FShown: Boolean;
- FShowImages: Boolean;
- FTitle: string;
- FUrl: string;
- FAutoNavigate: Boolean;
- LinkList: TStrings;
- URLlist: TStringList;
- FWebBrowser: TEmbeddedWB;
- FStatusBar: TStatusBar;
- LinksButton: TToolButton;
- procedure OnLinkClick(Sender: TObject);
- procedure SetShown(Value: Boolean);
- procedure SetAbout(Value: string);
- protected
- procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
-
- public
- constructor Create(aOwner: TComponent); override;
- procedure Loaded; override;
- destructor Destroy; override;
- procedure AddToLinksList(Title, URL: string);
- procedure RemoveFromLinksList(Title: string);
- procedure GetTheLinksList(LinkList: Tstrings);
- procedure GetTheLinksURLs(URLList: Tstrings);
- procedure NavigateToItem(Title: string);
- procedure CreateLinkButtons(ImageIdx: integer);
- procedure ClearTheLinksList;
- published
- property AutoNavigate: Boolean read fAutoNavigate write fAutoNavigate default True;
- property About: string read fAbout write SetAbout;
- property MaxCaptionLength: Integer read fMaxCaptionLength write fMaxCaptionLength;
- property Count: Integer read fCount;
- property ShowImages: boolean read fShowImages write fShowImages default True;
- property Shown: Boolean read fShown write SetShown default True;
- property WebBrowser: TEmbeddedWB read FWebBrowser write FWebBrowser;
- property StatusBar: TStatusBar read FStatusBar write FStatusBar;
- end;
-
-var
- fMaxL: integer;
-
-implementation
-
-uses
- Windows, Messages, Forms, Dialogs, Registry;
-
-var
- FLockClientUpdateCount: Integer = 0;
-
-// *****************************************************************************
-
-constructor TLinksBar.Create(aOwner: TComponent);
-begin
- inherited Create(aOwner);
- FAbout := 'LinksBar by bsalsa : bsalsa@gmail.com';
- Visible := True;
- FShown := True;
- FShowImages := True;
- FMaxCaptionLength := 15;
- ShowCaptions := True;
- ShowHint := True;
- AutoSize := True;
- Flat := True;
- FAutoNavigate := True;
- Height := 26;
- LinkList := TStringList.Create;
- with LinkList do
- begin
-{$IFDEF DELPHI6_UP}
- CaseSensitive := False;
-{$ENDIF}
- Capacity := 30;
- end;
- URLlist := TStringList.Create;
-end;
-
-procedure TLinksBar.Loaded;
-begin
- inherited;
- CreateLinkButtons(0);
-end;
-
-destructor TLinksBar.Destroy;
-begin
- LinkList.Free;
- URLList.Free;
- inherited Destroy;
-end;
-
-procedure TLinksBar.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
-end;
-
-procedure TLinksBar.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-procedure TLinksBar.OnlinkClick(Sender: TObject);
-var
- navUrl: WideString;
-begin
- if (Sender.ClassName = 'TToolButton') then
- begin
- navUrl := (Sender as TToolButton).Hint;
- if FAutoNavigate then
- if Assigned(FWebBrowser) then
- FWebBrowser.Navigate(navUrl);
- if Assigned(FStatusBar) then
- FStatusBar.SimpleText := navUrl;
- end;
-end;
-
-procedure TLinksBar.SetShown(Value: Boolean);
-begin
- Visible := True;
- if FShown <> Value then
- begin
- Visible := not FShown;
- FShown := Value;
- end;
-end;
-
-procedure TLinksBar.CreateLinkButtons(ImageIdx: integer);
-var
- LinkTitle: string;
- CaptionLength, i: integer;
-begin
- for i := ButtonCount - 1 downto 0 do
- Buttons[i].Hide;
-
- LinkList.Clear;
- LinkList.BeginUpdate;
- GetTheLinksList(LinkList);
- LinkList.EndUpdate;
- for i := 0 to LinkList.Count - 1 do
- begin
- FTitle := LinkList.Names[i];
- FUrl := LinkList.Values[LinkList.Names[i]];
- LinkTitle := FTitle;
- CaptionLength := FMaxCaptionLength;
- if Length(LinkTitle) > CaptionLength then
- LinkTitle := Copy(LinkTitle, 1, CaptionLength) + '...'
- else
- LinkTitle := LinkTitle;
-
- with TLinksBar do
- begin
- Shown := True;
- LinksButton := TToolButton.create(TLinksBar);
- with LinksButton do
- begin
- if fShowImages then
- ImageIndex := ImageIdx;
- if ImageIndex > -1 then
- Height := 26
- else
- Height := 16;
- ShowHint := True;
- AutoSize := True;
- Grouped := True;
- Visible := True;
- Parent := Self;
- Style := tbsCheck;
- Caption := LinkTitle;
- Hint := FUrl;
- OnClick := OnlinkClick;
- // Left := Width * (self.ControlCount-2);
- end;
- end;
- end;
-end;
-
-{procedure LockClientUpdate;
-begin
- if FLockClientUpdateCount = 0 then
- SendMessage(Application.MainForm.ClientHandle, WM_SETREDRAW, 0, 0);
- Inc(FLockClientUpdateCount);
-end;
-
-procedure UnlockClientUpdate;
-begin
- Dec(FLockClientUpdateCount);
- if FLockClientUpdateCount = 0 then
- begin
- SendMessage(Application.MainForm.ClientHandle, WM_SETREDRAW, 1, 0);
- RedrawWindow(Application.MainForm.ClientHandle, nil, 0, RDW_FRAME or
- RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_NOINTERNALPAINT);
- end;
-end; }
-
-// PUBLIC *****************************************************************************
-
-procedure TLinksBar.GetTheLinksList(LinkList: Tstrings);
-var
- RegPath: string;
-begin
- with TRegIniFile.Create do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title;
- if OpenKey(RegPath, False) then
- begin
- try
- LinkList.Clear;
- LinkList.BeginUpdate;
- ReadSectionValues('Links', LinkList);
- LinkList.EndUpdate;
- if LinkList.Text = '' then
- begin
- Visible := False;
- // MessageDlg('The links list is empty.',mtError,[mbOK], 0);
- end;
- except
- MessageDlg('Error while reading the links from the registry!', mtError, [mbOK], 0);
- end;
- CloseKey;
- Free;
- end;
- end;
-end;
-
-procedure TLinksBar.GetTheLinksURLs(URLList: Tstrings);
-var
- Linklist: TstringList;
- RegPath: string;
- i: integer;
-begin
- Linklist := TstringList.Create;
- LinkList.Clear;
- with TRegIniFile.Create do
- begin
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title;
- if OpenKey(RegPath, False) then
- begin
- try
- ReadSectionValues('Links', LinkList);
- for i := 0 to LinkList.Count - 1 do
- begin
- FUrl := LinkList.Values[LinkList.Names[i]];
- URLList.Add(FUrl);
- end;
- CloseKey;
- Free;
- except
- MessageDlg('Error while reading the links from the registry!', mtError, [mbOK], 0);
- end;
- end;
- end;
- LinkList.Free;
-end;
-
-procedure TLinksBar.AddToLinksList(Title, URL: string);
-var
- RegPath: string;
-begin
- with TRegIniFile.Create do
- try
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title;
- if OpenKey(RegPath, True) then
- try
- WriteString('Links', Title, URL);
- MessageDlg('The site : ' + Title + #10 + #13 + ' has been added to your links list.',
- mtInformation, [mbOK], 0);
- except
-
- MessageDlg('Error while adding the site to the registry!', mtError,
- [mbOK], 0);
- end;
- CloseKey;
- finally
- Free;
- end;
- Visible := True;
- CreateLinkButtons(0);
- Repaint;
-end;
-
-procedure TLinksBar.RemoveFromLinksList(Title: string);
-var
- RegPath: string;
-begin
- with TRegIniFile.Create do
- try
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title + '\Links';
- if OpenKey(RegPath, False) then
- try
- if DeleteValue(Title) then
- MessageDlg('The site : ' + Title + #10 + #13 + 'Was removed from your links list.',
- mtInformation, [mbOK], 0)
- else
- MessageDlg('The site could not be found in the list.', mtError, [mbOK], 0);
- except
- MessageDlg('Error while removing the site from the registry!', mtError,
- [mbOK], 0);
- CloseKey;
- end;
- finally
- Free;
- end;
- CreateLinkButtons(0);
-end;
-
-procedure TLinksBar.ClearTheLinksList;
-var
- del: Integer;
- RegPath: string;
-begin
- del := MessageDlg('You are about to delete all your links. Are you sure?',
- mtWarning, [mbOK, mbCancel], 0);
- if del = mrCancel then
- Exit
- else
- begin
- with TRegistry.Create do
- try
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title;
- if OpenKey(RegPath, False) then
- try
- if DeleteKey('Links') then
- MessageDlg('The link list has been removed from the registry.', mtInformation,
- [mbOK], 0)
- else
- MessageDlg('The list could not be located.', mtError, [mbOK], 0);
- CloseKey;
- except
- MessageDlg('Error while removing the list from the registry!', mtError,
- [mbOK], 0);
- end;
- finally
- Free;
- end;
- end;
- CreateLinkButtons(-1);
-end;
-
-
-procedure TLinksBar.NavigateToItem(Title: string);
-var
- navUrl, RegPath: string;
- i: Integer;
-begin
- with TRegIniFile.Create do
- try
- RootKey := HKEY_LOCAL_MACHINE;
- RegPath := 'SOFTWARE\' + Forms.Application.Title;
- if OpenKey(RegPath, False) then
- begin
- try
- ReadSectionValues('Links', LinkList);
- i := LinkList.IndexOfName(Title);
- navUrl := LinkList.Values[LinkList.Names[i]];
- closekey;
- if (i = -1) or (navUrl = '') then
- begin
- MessageDlg('Your links list is empty.',
- mtError, [mbOK], 0);
- Exit;
- end
- else
- if Assigned(FWebBrowser) then
- FWebBrowser.Navigate(navUrl);
- finally
- CloseKey;
- end;
- end;
- finally
- Free;
- end;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/LinksLabel.pas b/windows/src/ext/embeddedwb/Source/LinksLabel.pas
deleted file mode 100644
index 84dd4455cc16940539465d225f5f792099ab9a04..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/LinksLabel.pas
+++ /dev/null
@@ -1,910 +0,0 @@
-//***********************************************************
-// TLinksLabel *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) * // per.lindsoe@larsen.dk *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//***********************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: LinksLabel.pas,v 1.2 2006/11/15 21:01:42 sergev Exp $
-
-{$B-}
-
-unit LinksLabel;
-
-interface
-
-{$I EWB.inc}
-
-uses
- SysUtils, Windows, ExtCtrls, Dialogs, Controls, StdCtrls, Messages, Classes,
- Graphics, Menus, ImgList;
-
-type
- TDirection = (diLeftToRight, diRightToLeft, diTopToBottom, diBottomToTop);
- TTextStyle = (tsNormal, ts3D_F, ts3D_B);
- TTextLayout = (tlTop, tlCenter, tlBottom);
- TLaunchSettings = (Http, MailTo, Application);
- TWindowState = (wsNormal, wsMinimized, wsMaximized);
- TOnLaunchEvent = procedure(var Success: Boolean; const ErrorText: string; var Result: Cardinal) of object;
- TTextEffects = (teNormal, teRunning, teFlickering);
-//------------------------------------------------------------------------------
- TMail = class(TPersistent)
- private
- FAddress: string;
- FSubject: string;
- FBody: string;
- FWindowState: TWindowState;
- published
- property Address: string read FAddress write FAddress;
- property Subject: string read FSubject write FSubject;
- property Body: string read FBody write FBody;
- property WindowState: TWindowState read FWindowState write FWindowState default wsNormal;
- end;
-
- THttp = class(TPersistent)
- private
- FAddress: string;
- FWindowState: TWindowState;
- procedure SetAddress(const value: string);
- published
- property Address: string read FAddress write SetAddress;
- property WindowState: TWindowState read FWindowState write FWindowState default wsNormal;
- end;
-
- TApp = class(TPersistent)
- private
- FPath: string;
- FCommand: string;
- FDescription: string;
- FWindowState: TWindowState;
- published
- property Description: string read FDescription write FDescription;
- property Command: string read FCommand write FCommand;
- property Path: string read FPath write FPath;
- property WindowState: TWindowState read FWindowState write FWindowState default wsNormal;
- end;
-
- TLaunch = class(TPersistent)
- private
- FMail: TMail;
- FApp: TApp;
- FHttp: THttp;
- FLaunchSettings: TLaunchSettings;
- procedure SetLaunchOptions(Value: TLaunchSettings);
- published
- property AsHttp: THttp read FHttp write FHttp;
- property AsMail: TMail read FMail write FMail;
- property AsApplication: TApp read FApp write FApp;
- property Options: TLaunchSettings read FLaunchSettings write SetLaunchOptions default Http;
- end;
-//------------------------------------------------------------------------------
-type
- TLinksLabel = class;
-
- TTextFlick = class(TPersistent)
- private
- FEnableFlick: Boolean;
- FlickTimer: TTimer;
- FSpeed: Integer;
- procedure SetSpeed(const Value: integer);
- published
- property Enable: Boolean read FEnableFlick write FEnableFlick default false;
- property Speed: integer read FSpeed write SetSpeed default 500;
- end;
-
- TTextRun = class(TPersistent)
- private
- FSteps: integer;
- FCurCycle: Integer;
- FEnableRun: Boolean;
- FDirection: TDirection;
- FSpeed: integer;
- FRepeatNumber: Word;
- FContinuous: Boolean;
- FCurrentStep: Integer;
- procedure SetDirection(Value: TDirection);
- procedure SetSteps(Value: integer);
- procedure SetSpeed(Value: Integer);
- procedure SetEnableRun(Value: Boolean);
- published
- property Enable: Boolean read FEnableRun write SetEnableRun default False;
- property Direction: TDirection read FDirection write SetDirection default diLeftToRight;
- property RepeatNumber: Word read FRepeatNumber write FRepeatNumber default 0;
- property Continuous: Boolean read FContinuous write FContinuous default True;
- property Steps: Integer read FSteps write SetSteps default 100;
- property Speed: Integer read FSpeed write SetSpeed default 100;
- end;
-
- TLinksLabel = class(TCustomLabel)
- private
- FAutoSize: Boolean;
- FAlignment: TAlignment;
- FLayout: TTextLayout;
- FOnLaunch: TOnLaunchEvent;
- FImageIndex: integer;
- FImageChangeLink: TChangeLink;
- FImages: TCustomImageList;
- RunTimer: TTimer;
- FTextEffects: TTextEffects;
- FLaunch: TLaunch;
- FColorOnMouseClick: Boolean;
- FHighlightOnMouseOver: Boolean;
- FTextStyle: TTextStyle;
- FTextFlick: TTextFlick;
- FTextRun: TTextRun;
- FShift: integer;
- FLinkColor: TColor;
- FDownColor: TColor;
- FUpColor: TColor;
- F3d_F_Color: TColor;
- F3d_B_Color: TColor;
- procedure SetTextStyle(Value: TTextStyle);
- procedure OnRunTimer(Sender: TObject);
- procedure CanvasTextOut(Canvas: TCanvas; X, Y: Integer; Text: string);
- procedure SetImageIndex(const Value: integer);
- procedure SetImages(Value: TCustomImageList); virtual;
- function SetWinState(State: TWindowState): Cardinal;
- procedure CMTextChanged(var Message: TMessage); message CM_TextChanged;
- procedure CMFontChanged(var Msg: TMessage); message CM_FONTCHANGED;
- procedure DoCopyAddress(Sender: TObject);
- procedure DoLaunch(Sender: TObject);
- procedure ImageListChange(Sender: TObject);
- procedure SetAlignment(Value: TAlignment);
- procedure SetLayout(Value: TTextLayout);
-
- protected
- function GetPopupMenu: TPopupMenu; override;
- procedure Paint; override;
- procedure Notification(AComponent: TComponent; Operation: TOperation); override;
- procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
- procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
- procedure MouseLeave(Sender: TObject);
- procedure Loaded; override;
- procedure OnFlickTimer(Sedner: Tobject);
- procedure SetAutoSize(Value: Boolean); override;
- procedure SetLinkColor(Value: TColor);
- procedure SetShift(Value: integer);
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- procedure Click; override;
- procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
- function GetProgramPathFromExt(const Ext: string): string;
- published
- property AutoSize: Boolean read FAutoSize write SetAutoSize default True;
- property TextFlick: TTextFlick read FTextFlick write FTextFlick;
- property TextRun: TTextRun read FTextRun write FTextRun;
- property EnableColorOnClick: Boolean read FColorOnMouseClick write FColorOnMouseClick default True;
- property EnableHighlight: Boolean read FHighlightOnMouseOver write FHighlightOnMouseOver default True;
- property TextStyle: TTextStyle read FTextStyle write SetTextStyle default tsNormal;
- property ShiftShadow3D: integer read FShift write SetShift default 2;
- property Launch: TLaunch read FLaunch write FLaunch;
- property TextEffects: TTextEffects read FTextEffects write FTextEffects default teNormal;
- property Images: TCustomImageList read FImages write SetImages;
- property ImageIndex: integer read FImageIndex write SetImageIndex default -1;
- property OnLaunch: TOnLaunchEvent read FOnLaunch write FOnLaunch;
- property Alignment: TAlignment read FAlignment write SetAlignment
- default taLeftJustify;
- property Layout: TTextLayout read FLayout write SetLayout default tlBottom;
- property LinkColor: TColor read FLinkColor write SetLinkColor default clBlue;
- property DownColor: TColor read FDownColor write FDownColor default clNavy;
- property UpColor: TColor read FUpColor write FUpColor default clPurple;
- property Color_3d_F: TColor read F3d_F_Color write F3d_F_Color default clNavy;
- property Color_3d_B: TColor read F3d_B_Color write F3d_B_Color default clHighLight;
- property Align;
- property Anchors;
- property BiDiMode;
- property Caption;
- property Color nodefault;
- property Constraints;
- property Cursor default crHandPoint;
- property DragCursor;
- property DragKind;
- property DragMode;
-{$IFDEF DELPHI9_UP}
- property EllipsisPosition;
-{$ENDIF}
- property Enabled;
- property FocusControl;
- property Font;
- property ParentBiDiMode;
- property ParentColor;
- property ParentFont default False;
- property ParentShowHint default False;
- property PopupMenu;
- property ShowAccelChar;
- property ShowHint default True;
- property Transparent default False;
- property Visible;
- property WordWrap default True;
- property OnClick;
- property OnContextPopup;
- property OnDblClick;
- property OnDragDrop;
- property OnDragOver;
- property OnEndDock;
- property OnEndDrag;
-{$IFDEF DELPHI9_UP}
- property OnMouseActivate;
-{$ENDIF}
- property OnMouseDown;
- property OnMouseMove;
- property OnMouseUp;
-{$IFDEF DELPHI6_UP}
- property OnMouseEnter;
- property OnMouseLeave;
-{$ENDIF}
- property OnStartDock;
- property OnStartDrag;
- end;
-
-implementation
-uses
- Registry, ShellAPI, Clipbrd, CommCtrl;
-//Acc---------------------------------------------------------------------------
-
-function ErrorText(ErrorCode: Integer): string;
-begin
- case ErrorCode of
- 0: Result := 'The operating system is out of memory or resources.';
- ERROR_FILE_NOT_FOUND: Result := 'The specified file was not found.';
- ERROR_PATH_NOT_FOUND: Result := 'The specified path was not found.';
- ERROR_BAD_FORMAT: Result := 'The .exe file is invalid (non-Microsoft Win32 .exe or error in .exe image).';
- SE_ERR_ACCESSDENIED: Result := 'The operating system denied access to the specified file.';
- SE_ERR_ASSOCINCOMPLETE: Result := 'The file name association is incomplete or invalid. ';
- SE_ERR_DDEBUSY: Result := 'The Dynamic Data Exchange (DDE) transaction could not be completed because other DDE transactions were being processed.';
- SE_ERR_DDEFAIL: Result := 'The DDE transaction failed.';
- SE_ERR_DDETIMEOUT: Result := 'The DDE transaction could not be completed because the request timed out.';
- SE_ERR_DLLNOTFOUND: Result := 'The specified dynamic-link library (DLL) was not found.';
- SE_ERR_NOASSOC: Result := 'There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.';
- SE_ERR_OOM: Result := 'There was not enough memory to complete the operation.';
- SE_ERR_SHARE: Result := 'A sharing violation occurred.';
- 4: Result := 'Please assign a task to the label.';
- else
- if ErrorCode <> 0 then
- Result := 'Error: ';
- end;
-end;
-// Component--------------------------------------------------------------------
-
-constructor TLinksLabel.Create(AOwner: TComponent);
-begin
- inherited;
-{$IFDEF DELPHI6_UP}
- OnMouseLeave := MouseLeave;
-{$ENDIF}
- WordWrap := True;
- Font.Style := [fsUnderline];
- Cursor := crHandPoint;
- Caption := 'Home Page';
- ParentShowHint := False;
- ShowHint := True;
- Width := 150;
- Height := 100;
- FImageIndex := -1;
- FLayout := tlBottom;
- FImageChangeLink := TChangeLink.Create;
- FImageChangeLink.OnChange := ImageListChange;
- FColorOnMouseClick := True;
- FHighlightOnMouseOver := True;
- FTextStyle := tsNormal;
- FTextEffects := teNormal;
- FTextFlick := TTextFlick.Create;
- FTextFlick.FSpeed := 500;
- FLinkColor := clBlue;
- Font.Color := FLinkColor;
- FUpColor := clPurple;
- FDownColor := clNavy;
- F3d_F_Color := clNavy;
- F3d_B_Color := clHighLight;
- FShift := 2;
- FTextRun := TTextRun.Create;
- with FTextRun do
- begin
- FSpeed := 100;
- FContinuous := True;
- FDirection := diLeftToRight;
- FSteps := 100;
- FRepeatNumber := 0;
- end;
-
- FLaunch := TLaunch.Create;
- with FLaunch do
- begin
- FMail := TMail.Create;
- FMail.FWindowState := wsNormal;
- FApp := TApp.Create;
- FApp.FWindowState := wsNormal;
- FHttp := THttp.Create;
- FHttp.FWindowState := wsNormal;
- FLaunchSettings := Http;
- end;
-end;
-
-destructor TLinksLabel.Destroy;
-begin
- with FLaunch do
- begin
- FApp.Free;
- FMail.Free;
- FHttp.Free;
- Free;
- end;
- FImageChangeLink.Free;
- if FTextFlick.FEnableFlick then
- FTextFlick.FlickTimer.Free;
- if FTextRun.FEnableRun then
- RunTimer.Free;
- FTextRun.Free;
- FTextFlick.Free;
- inherited;
-end;
-
-procedure TLinksLabel.Loaded;
-begin
- inherited;
- Font.Color := FLinkColor;
- if FTextFlick.FEnableFlick then
- begin
- FTextRun.FEnableRun := False;
- FAutoSize := True;
- with FTextFlick do
- begin
- FlickTimer := TTimer.Create(Self);
- FlickTimer.Interval := FTextFlick.FSpeed;
- FlickTimer.OnTimer := OnFlickTimer;
- end;
- invalidate;
- end;
-
- if FTextRun.FEnableRun then
- begin
- FTextFlick.FEnableFlick := False;
- FAutoSize := False;
- with FTextRun do
- begin
- FCurrentStep := 0;
- RunTimer := TTimer.Create(Self);
- with RunTimer do
- begin
- Enabled := FTextRun.FEnableRun;
- OnTimer := OnRunTimer;
- Interval := FTextRun.FSpeed;
- end;
- end;
- Paint;
- end;
-end;
-
-procedure TLinksLabel.CMTextChanged(var Message: TMessage);
-begin
- inherited;
- if Caption = '' then
- Caption := FLaunch.FHttp.FAddress;
- Invalidate;
-end;
-
-procedure TLinksLabel.CMFontChanged(var Msg: TMessage);
-begin
- inherited;
- Invalidate;
-end;
-
-procedure TLinksLabel.Click;
-var
- WS: TWindowState;
- Param: string;
- Car: Cardinal;
- bOK: Boolean;
-begin
- bOK := False;
- WS := wsNormal;
- case FLaunch.FLaunchSettings of
- Http:
- begin
- Param := 'http://' + FLaunch.FHttp.FAddress;
- WS := FLaunch.FHttp.FWindowState;
- end;
- MailTo:
- begin
- Param := 'mailto:' + FLaunch.FMail.FAddress + '?subject=' +
- FLaunch.FMail.FSubject + '&body=' + FLaunch.FMail.FBody;
- WS := FLaunch.FMail.FWindowState;
- end;
- Application:
- begin
- Param := FLaunch.Fapp.FPath + '' + FLaunch.Fapp.FCommand;
- WS := FLaunch.FApp.FWindowState;
- end;
- end;
- if (FLaunch.FHttp.FAddress <> '') or (FLaunch.FMail.FAddress <> '') or (FLaunch.FApp.FPath <> '') then
- begin
- Car := ShellExecute(0, 'open', PChar(Param), nil, nil, SetWinState(WS));
- bOK := Car > 32;
- end
- else
- begin
- bOK := False;
- Car := 4;
- end;
- if Assigned(FOnLaunch) then
- FonLaunch(bOK, ErrorText(Car), Car);
- Font.Color := FUpColor;
- inherited;
-end;
-
-procedure TLinksLabel.DoCopyAddress(Sender: TObject);
-begin
- case FLaunch.FLaunchSettings of
- Http: Clipboard.AsText := FLaunch.FHttp.FAddress;
- MailTo: Clipboard.AsText := FLaunch.FMail.FAddress;
- Application: Clipboard.AsText := FLaunch.FApp.FPath;
- end;
-end;
-
-procedure TLinksLabel.CanvasTextOut(Canvas: TCanvas; X, Y: Integer; Text: string);
-begin
- with Canvas do
- begin
- case FTextStyle of
- ts3D_F:
- begin
- Font.Color := F3d_F_Color;
- TextOut(X + FShift, Y + FShift, Text);
- end;
- ts3D_B:
- begin
- Font.Color := F3d_B_Color;
- TextOut(X - FShift, Y - FShift, Text);
- end;
- end;
- TextOut(X, Y, Text);
- end;
-end;
-
-procedure TLinksLabel.DoLaunch(Sender: TObject);
-var
- Param: string;
- Car: Cardinal;
- bOK: Boolean;
- WS: TWindowState;
-begin
- WS := wsNormal;
- bOK := False;
- case FLaunch.FLaunchSettings of
- Http:
- begin
- Param := 'http://' + FLaunch.FHttp.FAddress;
- WS := FLaunch.FHttp.FWindowState;
- end;
- MailTo:
- begin
- Param := 'mailto:' + FLaunch.FMail.FAddress + '?subject=' +
- FLaunch.FMail.FSubject + '&body=' + FLaunch.FMail.FBody;
- WS := FLaunch.FMail.FWindowState;
- end;
- Application:
- begin
- Param := FLaunch.Fapp.FPath + '' + FLaunch.Fapp.FCommand;
- WS := FLaunch.FApp.FWindowState;
- end;
- end;
- Car := ShellExecute(0, 'open', PChar(Param), nil, nil, SetWinState(WS));
- bOK := Car > 32;
- if Assigned(FOnLaunch) then
- FonLaunch(bOK, ErrorText(Car), Car);
- Font.Color := FUpColor;
-end;
-
-procedure TLinksLabel.MouseMove(Shift: TShiftState; X, Y: Integer);
-begin
- inherited;
- if FHighlightOnMouseOver then
- Font.Style := Font.Style + [fsBold];
- case FLaunch.FLaunchSettings of
- Http: Hint := 'Address: ' + FLaunch.FHttp.FAddress;
- MailTo: Hint := 'Mail To: ' + FLaunch.FMail.FAddress;
- Application: Hint := FLaunch.FApp.FDescription;
- end;
-end;
-
-procedure TLinksLabel.MouseLeave(Sender: TObject);
-begin
- if FHighlightOnMouseOver then
- Font.Style := Font.Style - [fsBold];
-end;
-
-procedure TLinksLabel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- inherited;
- if (Button = mbLeft) and (FColorOnMouseClick) then
- Font.Color := FDownColor
- else
- if (Button = mbRight) and (not Assigned(PopupMenu)) then
- GetPopUpMenu;
-end;
-
-procedure TLinksLabel.Notification(AComponent: TComponent; Operation: TOperation);
-begin
- inherited Notification(AComponent, Operation);
- if (Operation = opRemove) and (AComponent = FImages) then
- FImages := nil;
-end;
-
-procedure TLinksLabel.Paint;
-var
- Height, PosHeightX, PosWidthY, ModWidth, ModHeight,
- ModWidthX, ModHeightY: Integer;
- StepPosition: Double;
-begin
- inherited;
- ModWidthX := 0;
- ModHeightY := 0;
- with Canvas do
- begin
- ModWidth := TextWidth(Caption) + 2;
- ModHeight := TextHeight(Caption) + 2;
- Brush.Color := Self.Color;
- Brush.Style := bsSolid;
- Font := Self.Font;
- FillRect(ClientRect);
- if Assigned(FImages) and (FImageIndex >= 0) and (FImageIndex < FImages.Count) then
- begin
- ImageList_Draw(FImages.Handle, FImageIndex, Handle,
- (Width - FImages.Width) shr 1, 0, ILD_NORMAL or ILD_TRANSPARENT);
- Height := FImages.Height;
- end
- else
- Height := 0;
- case FAlignment of
- taRightJustify: ModWidthX := Width - ModWidth;
- taCenter: ModWidthX := (Width - ModWidth) div 2;
- taLeftJustify: ModWidthX := 0;
- end;
- case FLayout of
- tlBottom: ModHeightY := Height - ModHeight + 30;
- tlCenter: ModHeightY := (Height - ModHeight) div 2 + 15;
- tlTop: ModHeightY := 0;
- end;
- if FTextRun.FEnableRun then
- begin
- StepPosition := FTextRun.FCurrentStep / FTextRun.FSteps;
- PosHeightX := ModWidthX;
- PosWidthY := ModHeightY;
- case FTextRun.FDirection of
- diRightToLeft:
- begin
- PosWidthY := ModHeightY;
- PosHeightX := -ModWidth + Round((ModWidth + Width) * (1 - StepPosition));
- end;
- diLeftToRight:
- begin
- PosWidthY := ModHeightY;
- PosHeightX := -ModWidth + Round((ModWidth + Width) * (StepPosition));
- end;
- diTopToBottom:
- begin
- PosHeightX := ModWidthX;
- PosWidthY := -ModHeight + Round((ModHeight + Height) * (StepPosition));
- end;
- diBottomToTop:
- begin
- PosHeightX := ModWidthX;
- PosWidthY := -ModHeight + Round((ModHeight + Height) * (1 - StepPosition));
- end;
- end; //running text
- CanvasTextOut(Canvas, PosHeightX, PosWidthY, Caption);
- end
- else
- begin //images
- CanvasTextOut(Canvas, (Width - TextWidth(Caption)), Height, Caption)
- end;
- end;
-end;
-
-procedure TLinksLabel.ImageListChange(Sender: TObject);
-begin
- Invalidate;
-end;
-
-function TLinksLabel.GetPopupMenu: TPopupMenu;
-var
- Pop: TPopupMenu;
- p: TPoint;
-begin
- Pop := TPopupMenu.Create(Self);
- with Pop do
- begin
- p := Self.ClientToScreen(Point(0, 0));
- Popup(P.X, P.Y);
- Items.Clear;
- with Items do
- begin
- NewTopLine;
- case FLaunch.FLaunchSettings of
- Http: Add(NewItem('Copy Address', 0, False, True, DoCopyAddress, 0, 'MenuItem1'));
- MailTo: Add(NewItem('Copy Address', 0, False, True, DoCopyAddress, 0, 'MenuItem1'));
- end;
- Add(NewItem('Launch', 0, False, True, DoLaunch, 0, 'MenuItem2'));
- NewBottomLine;
- end;
- end;
- Result := Pop;
-end;
-
-function TLinksLabel.GetProgramPathFromExt(const Ext: string): string;
-var
- S: string;
-begin
- Result := '';
- with TRegistry.Create do
- try
- RootKey := HKEY_CLASSES_ROOT;
-
- if OpenKey('\' + Ext, False) then
- begin
- S := ReadString('');
- if S <> '' then
- begin
- if OpenKey('\' + S + '\shell\open\command', False) then
- begin
- S := ReadString('');
- if S <> '' then
- Result := S;
- end;
- end
- else
- begin
- if OpenKey('\' + Ext + '\shell\open\command', False) then
- begin
- S := ReadString('');
- if S <> '' then
- Result := S;
- end;
- end;
- end;
- finally
- Free;
- end;
-end;
-
-procedure TLinksLabel.OnFlickTimer(Sedner: Tobject);
-begin
- if csDesigning in ComponentState then
- begin
- FTextFlick.FlickTimer.Enabled := False;
- Exit;
- end;
- if FTextFlick.FEnableFlick then
- Visible := not Visible;
-end;
-
-procedure TLinksLabel.OnRunTimer(Sender: TObject);
-begin
- if not RunTimer.Enabled then
- Exit;
- with FTextRun do
- begin
- if (FCurCycle < FRepeatNumber) or FContinuous then
- begin
- Inc(FCurrentStep);
- Paint;
- if FCurrentStep = FSteps then
- begin
- FCurrentStep := 0;
- if not FContinuous then
- Inc(FCurCycle);
- end;
- end
- else
- FEnableRun := False;
- end;
-end;
-//Set---------------------------------------------------------------------------
-
-function TLinksLabel.SetWinState(State: TWindowState): Cardinal;
-begin
- Result := 0;
- case State of
- wsNormal: Result := SW_SHOWNORMAL;
- wsMinimized: Result := SW_MINIMIZE;
- wsMaximized: Result := SW_MAXIMIZE;
- end;
-end;
-
-procedure TLinksLabel.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
-var
- Size: TSize;
-begin
- if Assigned(Parent) then
- begin
- if Assigned(FImages) then
- begin
- Canvas.Font := Font;
- Size := Canvas.TextExtent(Caption);
- AWidth := Size.cx;
- if (AWidth < FImages.Width) then
- AWidth := FImages.Width;
- AHeight := Size.cy;
- Inc(AHeight, FImages.Height);
- end
- else
- begin
- Canvas.Font := Font;
- Size := Canvas.TextExtent(Caption);
- AHeight := Size.cy + 16;
- end;
- end;
- invalidate;
- inherited;
-end;
-
-procedure TLinksLabel.SetImageIndex(const Value: integer);
-begin
- begin
- if FImageIndex <> Value then
- begin
- FImageIndex := Value;
- Invalidate;
- end;
- end;
-end;
-
-procedure TLinksLabel.SetImages(Value: TCustomImageList);
-begin
- if Images <> nil then
- Images.UnRegisterChanges(FImageChangeLink);
- FImages := Value;
- if Images <> nil then
- begin
- Images.RegisterChanges(FImageChangeLink);
- Images.FreeNotification(Self);
- end;
- Invalidate;
-end;
-
-procedure TLinksLabel.SetAlignment(Value: TAlignment);
-begin
- if FAlignment <> Value then
- begin
- FAlignment := Value;
- Invalidate;
- end;
-end;
-
-procedure TLinksLabel.SetLayout(Value: TTextLayout);
-begin
- if FLayout <> Value then
- begin
- FLayout := Value;
- Invalidate;
- end;
-end;
-
-procedure TLinksLabel.SetAutoSize(Value: Boolean);
-begin
- if FAutoSize <> Value then
- begin
- FAutoSize := Value;
- AdjustBounds;
- Paint;
- end;
-end;
-
-procedure TLinksLabel.SetTextStyle(Value: TTextStyle);
-begin
- if FTextStyle <> Value then
- begin
- FTextStyle := Value;
- Paint;
- end;
-end;
-
-procedure TLinksLabel.SetLinkColor(Value: TColor);
-begin
- if FLinkColor <> Value then
- begin
- FLinkColor := Value;
- Paint;
- end;
-end;
-
-procedure TLinksLabel.SetShift(Value: integer);
-begin
- if FShift <> Value then
- begin
- FShift := Value;
- Paint;
- end;
-end;
-
-//--------TTextFlick-----------------------------------------------------------
-
-procedure TTextFlick.SetSpeed(const Value: integer);
-begin
- if FSpeed <> Value then
- FSpeed := Value;
- if Value > 1000 then
- FSpeed := 1000;
- if Value < 1 then
- FSpeed := 1;
-end;
-//------------------------------------------------------------------------------
-
-procedure THttp.SetAddress(const Value: string);
-begin
- if FAddress <> Value then
- FAddress := Value;
-end;
-//--------TLaunch---------------------------------------------------------------
-
-procedure TLaunch.SetLaunchOptions(Value: TLaunchSettings);
-begin
- if FLaunchSettings <> Value then
- FLaunchSettings := Value;
-end;
-//--------TTextRun--------------------------------------------------------------
-
-procedure TTextRun.SetDirection;
-begin
- if (FDirection <> Value) then
- FDirection := Value;
-end;
-
-procedure TTextRun.SetSteps(Value: Integer);
-begin
- if FSteps <> Value then
- FSteps := Value;
-end;
-
-procedure TTextRun.SetEnableRun(Value: Boolean);
-begin
- if (FEnableRun <> Value) then
- begin
- FEnableRun := Value;
- FCurCycle := 0;
- FCurrentStep := 0;
- end;
-end;
-
-procedure TTextRun.SetSpeed(Value: Integer);
-begin
- if FSpeed <> Value then
- begin
- FSpeed := Value;
- if Value > 1000 then
- FSpeed := 1000;
- if Value < 1 then
- FSpeed := 1;
- end;
-end;
-//---------------------------------------------------------------------------
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/MSHTMLEvents.pas b/windows/src/ext/embeddedwb/Source/MSHTMLEvents.pas
deleted file mode 100644
index 64da44cccfab4bbfc4cb08e1fa2b393f8260e15b..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/MSHTMLEvents.pas
+++ /dev/null
@@ -1,42161 +0,0 @@
-{ *****************************************************************************
- WARNING: This component file was generated using the EventSinkImp utility.
- The contents of this file will be overwritten everytime EventSinkImp
- is asked to regenerate this sink component.
-
- NOTE: When using this component at the same time with the XXX_TLB.pas in
- your Delphi projects, make sure you always put the XXX_TLB unit name
- AFTER this component unit name in the USES clause of the interface
- section of your unit; otherwise you may get interface conflict
- errors from the Delphi compiler.
-
- EventSinkImp is written by Binh Ly (bly@techvanguards.com)
- *****************************************************************************
- //Sink Classes//
- TMSHTMLHTMLElementEvents
- TMSHTMLHTMLElementEvents2
- TMSHTMLHTMLLinkElementEvents
- TMSHTMLHTMLLinkElementEvents2
- TMSHTMLHTMLFormElementEvents
- TMSHTMLHTMLFormElementEvents2
- TMSHTMLHTMLImgEvents
- TMSHTMLHTMLImgEvents2
- TMSHTMLHTMLTextContainerEvents
- TMSHTMLHTMLTextContainerEvents2
- TMSHTMLHTMLAnchorEvents
- TMSHTMLHTMLAnchorEvents2
- TMSHTMLHTMLLabelEvents
- TMSHTMLHTMLLabelEvents2
- TMSHTMLHTMLSelectElementEvents
- TMSHTMLHTMLSelectElementEvents2
- TMSHTMLHTMLInputTextElementEvents
- TMSHTMLHTMLInputTextElementEvents2
- TMSHTMLHTMLOptionButtonElementEvents
- TMSHTMLHTMLButtonElementEvents
- TMSHTMLHTMLButtonElementEvents2
- TMSHTMLHTMLMarqueeElementEvents
- TMSHTMLHTMLMarqueeElementEvents2
- TMSHTMLHTMLWindowEvents
- TMSHTMLHTMLWindowEvents2
- TMSHTMLHTMLDocumentEvents
- TMSHTMLHTMLDocumentEvents2
- TMSHTMLDWebBridgeEvents
- TMSHTMLHTMLControlElementEvents
- TMSHTMLHTMLControlElementEvents2
- TMSHTMLHTMLMapEvents
- TMSHTMLHTMLMapEvents2
- TMSHTMLHTMLAreaEvents
- TMSHTMLHTMLAreaEvents2
- TMSHTMLHTMLTableEvents
- TMSHTMLHTMLTableEvents2
- TMSHTMLHTMLScriptEvents
- TMSHTMLHTMLScriptEvents2
- TMSHTMLHTMLObjectElementEvents
- TMSHTMLHTMLObjectElementEvents2
- TMSHTMLHTMLFrameSiteEvents
- TMSHTMLHTMLFrameSiteEvents2
- TMSHTMLHTMLStyleElementEvents
- TMSHTMLHTMLStyleElementEvents2
- TMSHTMLHTMLNamespaceEvents
- TMSHTMLHTMLInputFileElementEvents
- TMSHTMLHTMLInputImageEvents
-}
-
-{$IFDEF VER100}
-{$DEFINE D3}
-{$ENDIF}
-
-{$IFDEF CONDITIONALEXPRESSIONS}
-{$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF}
-
-//SinkUnitName//
-unit MSHTMLEvents;
-
-interface
-
-uses
- Windows, ActiveX, Classes, ComObj, OleCtrls
- //SinkUses//
- , StdVCL
- , MSHTML_EWB
- ;
-
-type
- { backward compatibility types }
-{$IFDEF D3}
- OLE_COLOR = TOleColor;
-{$ENDIF}
-
- TMSHTMLEventsBaseSink = class(TComponent, IUnknown, IDispatch)
- protected
- { IUnknown }
- function QueryInterface(const IID: TGUID; out Obj): HResult; {$IFNDEF D3} override; {$ENDIF} stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
-
- { IDispatch }
- function GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; virtual; stdcall;
- function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; virtual; stdcall;
- function GetTypeInfoCount(out Count: Integer): HResult; virtual; stdcall;
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; virtual; stdcall;
- protected
- FCookie: integer;
- FCP: IConnectionPoint;
- FSinkIID: TGUID;
- FSource: IUnknown;
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; virtual; abstract;
- public
- destructor Destroy; override;
- procedure Connect(const ASource: IUnknown);
- procedure Disconnect;
- property SinkIID: TGUID read FSinkIID write FSinkIID;
- property Source: IUnknown read FSource;
- end;
-
- //SinkImportsForwards//
-
- //SinkImports//
-
- //SinkIntfStart//
-
- //SinkEventsForwards//
- THTMLElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLElementEventsonhelpEvent;
- Fonclick: THTMLElementEventsonclickEvent;
- Fondblclick: THTMLElementEventsondblclickEvent;
- Fonkeypress: THTMLElementEventsonkeypressEvent;
- Fonkeydown: THTMLElementEventsonkeydownEvent;
- Fonkeyup: THTMLElementEventsonkeyupEvent;
- Fonmouseout: THTMLElementEventsonmouseoutEvent;
- Fonmouseover: THTMLElementEventsonmouseoverEvent;
- Fonmousemove: THTMLElementEventsonmousemoveEvent;
- Fonmousedown: THTMLElementEventsonmousedownEvent;
- Fonmouseup: THTMLElementEventsonmouseupEvent;
- Fonselectstart: THTMLElementEventsonselectstartEvent;
- Fonfilterchange: THTMLElementEventsonfilterchangeEvent;
- Fondragstart: THTMLElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLElementEventsonrowexitEvent;
- Fonrowenter: THTMLElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLElementEventsonpropertychangeEvent;
- Fonscroll: THTMLElementEventsonscrollEvent;
- Fonfocus: THTMLElementEventsonfocusEvent;
- Fonblur: THTMLElementEventsonblurEvent;
- Fonresize: THTMLElementEventsonresizeEvent;
- Fondrag: THTMLElementEventsondragEvent;
- Fondragend: THTMLElementEventsondragendEvent;
- Fondragenter: THTMLElementEventsondragenterEvent;
- Fondragover: THTMLElementEventsondragoverEvent;
- Fondragleave: THTMLElementEventsondragleaveEvent;
- Fondrop: THTMLElementEventsondropEvent;
- Fonbeforecut: THTMLElementEventsonbeforecutEvent;
- Foncut: THTMLElementEventsoncutEvent;
- Fonbeforecopy: THTMLElementEventsonbeforecopyEvent;
- Foncopy: THTMLElementEventsoncopyEvent;
- Fonbeforepaste: THTMLElementEventsonbeforepasteEvent;
- Fonpaste: THTMLElementEventsonpasteEvent;
- Foncontextmenu: THTMLElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLElementEventsonbeforeactivateEvent;
- Fonmove: THTMLElementEventsonmoveEvent;
- Foncontrolselect: THTMLElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLElementEventsonmovestartEvent;
- Fonmoveend: THTMLElementEventsonmoveendEvent;
- Fonresizestart: THTMLElementEventsonresizestartEvent;
- Fonresizeend: THTMLElementEventsonresizeendEvent;
- Fonmouseenter: THTMLElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLElementEventsonmousewheelEvent;
- Fonactivate: THTMLElementEventsonactivateEvent;
- Fondeactivate: THTMLElementEventsondeactivateEvent;
- Fonfocusin: THTMLElementEventsonfocusinEvent;
- Fonfocusout: THTMLElementEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLElementEvents2onhelpEvent;
- Fonclick: THTMLElementEvents2onclickEvent;
- Fondblclick: THTMLElementEvents2ondblclickEvent;
- Fonkeypress: THTMLElementEvents2onkeypressEvent;
- Fonkeydown: THTMLElementEvents2onkeydownEvent;
- Fonkeyup: THTMLElementEvents2onkeyupEvent;
- Fonmouseout: THTMLElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLElementEvents2onmousedownEvent;
- Fonmouseup: THTMLElementEvents2onmouseupEvent;
- Fonselectstart: THTMLElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLElementEvents2onrowexitEvent;
- Fonrowenter: THTMLElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLElementEvents2onscrollEvent;
- Fonfocus: THTMLElementEvents2onfocusEvent;
- Fonblur: THTMLElementEvents2onblurEvent;
- Fonresize: THTMLElementEvents2onresizeEvent;
- Fondrag: THTMLElementEvents2ondragEvent;
- Fondragend: THTMLElementEvents2ondragendEvent;
- Fondragenter: THTMLElementEvents2ondragenterEvent;
- Fondragover: THTMLElementEvents2ondragoverEvent;
- Fondragleave: THTMLElementEvents2ondragleaveEvent;
- Fondrop: THTMLElementEvents2ondropEvent;
- Fonbeforecut: THTMLElementEvents2onbeforecutEvent;
- Foncut: THTMLElementEvents2oncutEvent;
- Fonbeforecopy: THTMLElementEvents2onbeforecopyEvent;
- Foncopy: THTMLElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLElementEvents2onpasteEvent;
- Foncontextmenu: THTMLElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLElementEvents2onpageEvent;
- Fonmouseenter: THTMLElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLElementEvents2onactivateEvent;
- Fondeactivate: THTMLElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLElementEvents2onfocusinEvent;
- Fonfocusout: THTMLElementEvents2onfocusoutEvent;
- Fonmove: THTMLElementEvents2onmoveEvent;
- Foncontrolselect: THTMLElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLElementEvents2onmovestartEvent;
- Fonmoveend: THTMLElementEvents2onmoveendEvent;
- Fonresizestart: THTMLElementEvents2onresizestartEvent;
- Fonresizeend: THTMLElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLElementEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLLinkElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLLinkElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLLinkElementEventsonerrorEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLLinkElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLLinkElementEventsonhelpEvent;
- Fonclick: THTMLLinkElementEventsonclickEvent;
- Fondblclick: THTMLLinkElementEventsondblclickEvent;
- Fonkeypress: THTMLLinkElementEventsonkeypressEvent;
- Fonkeydown: THTMLLinkElementEventsonkeydownEvent;
- Fonkeyup: THTMLLinkElementEventsonkeyupEvent;
- Fonmouseout: THTMLLinkElementEventsonmouseoutEvent;
- Fonmouseover: THTMLLinkElementEventsonmouseoverEvent;
- Fonmousemove: THTMLLinkElementEventsonmousemoveEvent;
- Fonmousedown: THTMLLinkElementEventsonmousedownEvent;
- Fonmouseup: THTMLLinkElementEventsonmouseupEvent;
- Fonselectstart: THTMLLinkElementEventsonselectstartEvent;
- Fonfilterchange: THTMLLinkElementEventsonfilterchangeEvent;
- Fondragstart: THTMLLinkElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLLinkElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLLinkElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLLinkElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLLinkElementEventsonrowexitEvent;
- Fonrowenter: THTMLLinkElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLLinkElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLLinkElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLLinkElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLLinkElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLLinkElementEventsonpropertychangeEvent;
- Fonscroll: THTMLLinkElementEventsonscrollEvent;
- Fonfocus: THTMLLinkElementEventsonfocusEvent;
- Fonblur: THTMLLinkElementEventsonblurEvent;
- Fonresize: THTMLLinkElementEventsonresizeEvent;
- Fondrag: THTMLLinkElementEventsondragEvent;
- Fondragend: THTMLLinkElementEventsondragendEvent;
- Fondragenter: THTMLLinkElementEventsondragenterEvent;
- Fondragover: THTMLLinkElementEventsondragoverEvent;
- Fondragleave: THTMLLinkElementEventsondragleaveEvent;
- Fondrop: THTMLLinkElementEventsondropEvent;
- Fonbeforecut: THTMLLinkElementEventsonbeforecutEvent;
- Foncut: THTMLLinkElementEventsoncutEvent;
- Fonbeforecopy: THTMLLinkElementEventsonbeforecopyEvent;
- Foncopy: THTMLLinkElementEventsoncopyEvent;
- Fonbeforepaste: THTMLLinkElementEventsonbeforepasteEvent;
- Fonpaste: THTMLLinkElementEventsonpasteEvent;
- Foncontextmenu: THTMLLinkElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLLinkElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLLinkElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLLinkElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLLinkElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLLinkElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLLinkElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLLinkElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLLinkElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLLinkElementEventsonbeforeactivateEvent;
- Fonmove: THTMLLinkElementEventsonmoveEvent;
- Foncontrolselect: THTMLLinkElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLLinkElementEventsonmovestartEvent;
- Fonmoveend: THTMLLinkElementEventsonmoveendEvent;
- Fonresizestart: THTMLLinkElementEventsonresizestartEvent;
- Fonresizeend: THTMLLinkElementEventsonresizeendEvent;
- Fonmouseenter: THTMLLinkElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLLinkElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLLinkElementEventsonmousewheelEvent;
- Fonactivate: THTMLLinkElementEventsonactivateEvent;
- Fondeactivate: THTMLLinkElementEventsondeactivateEvent;
- Fonfocusin: THTMLLinkElementEventsonfocusinEvent;
- Fonfocusout: THTMLLinkElementEventsonfocusoutEvent;
- Fonload: THTMLLinkElementEventsonloadEvent;
- Fonerror: THTMLLinkElementEventsonerrorEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLLinkElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLLinkElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLLinkElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLLinkElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLLinkElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLLinkElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLLinkElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLLinkElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLLinkElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLLinkElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLLinkElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLLinkElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLLinkElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLLinkElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLLinkElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLLinkElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLLinkElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLLinkElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLLinkElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLLinkElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLLinkElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLLinkElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLLinkElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLLinkElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLLinkElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLLinkElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLLinkElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLLinkElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLLinkElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLLinkElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLLinkElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLLinkElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLLinkElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLLinkElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLLinkElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLLinkElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLLinkElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLLinkElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLLinkElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLLinkElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLLinkElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLLinkElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLLinkElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLLinkElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLLinkElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLLinkElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLLinkElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLLinkElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLLinkElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLLinkElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLLinkElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLLinkElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLLinkElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLLinkElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLLinkElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLLinkElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLLinkElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLLinkElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLLinkElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLLinkElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLLinkElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLLinkElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLLinkElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onload: THTMLLinkElementEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLLinkElementEventsonerrorEvent read Fonerror write Fonerror;
- end;
-
-
- //SinkEventsForwards//
- THTMLLinkElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLinkElementEvents2onloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLinkElementEvents2onerrorEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLLinkElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonload(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonerror(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLLinkElementEvents2onhelpEvent;
- Fonclick: THTMLLinkElementEvents2onclickEvent;
- Fondblclick: THTMLLinkElementEvents2ondblclickEvent;
- Fonkeypress: THTMLLinkElementEvents2onkeypressEvent;
- Fonkeydown: THTMLLinkElementEvents2onkeydownEvent;
- Fonkeyup: THTMLLinkElementEvents2onkeyupEvent;
- Fonmouseout: THTMLLinkElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLLinkElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLLinkElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLLinkElementEvents2onmousedownEvent;
- Fonmouseup: THTMLLinkElementEvents2onmouseupEvent;
- Fonselectstart: THTMLLinkElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLLinkElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLLinkElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLLinkElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLLinkElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLLinkElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLLinkElementEvents2onrowexitEvent;
- Fonrowenter: THTMLLinkElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLLinkElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLLinkElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLLinkElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLLinkElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLLinkElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLLinkElementEvents2onscrollEvent;
- Fonfocus: THTMLLinkElementEvents2onfocusEvent;
- Fonblur: THTMLLinkElementEvents2onblurEvent;
- Fonresize: THTMLLinkElementEvents2onresizeEvent;
- Fondrag: THTMLLinkElementEvents2ondragEvent;
- Fondragend: THTMLLinkElementEvents2ondragendEvent;
- Fondragenter: THTMLLinkElementEvents2ondragenterEvent;
- Fondragover: THTMLLinkElementEvents2ondragoverEvent;
- Fondragleave: THTMLLinkElementEvents2ondragleaveEvent;
- Fondrop: THTMLLinkElementEvents2ondropEvent;
- Fonbeforecut: THTMLLinkElementEvents2onbeforecutEvent;
- Foncut: THTMLLinkElementEvents2oncutEvent;
- Fonbeforecopy: THTMLLinkElementEvents2onbeforecopyEvent;
- Foncopy: THTMLLinkElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLLinkElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLLinkElementEvents2onpasteEvent;
- Foncontextmenu: THTMLLinkElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLLinkElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLLinkElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLLinkElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLLinkElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLLinkElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLLinkElementEvents2onpageEvent;
- Fonmouseenter: THTMLLinkElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLLinkElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLLinkElementEvents2onactivateEvent;
- Fondeactivate: THTMLLinkElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLLinkElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLLinkElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLLinkElementEvents2onfocusinEvent;
- Fonfocusout: THTMLLinkElementEvents2onfocusoutEvent;
- Fonmove: THTMLLinkElementEvents2onmoveEvent;
- Foncontrolselect: THTMLLinkElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLLinkElementEvents2onmovestartEvent;
- Fonmoveend: THTMLLinkElementEvents2onmoveendEvent;
- Fonresizestart: THTMLLinkElementEvents2onresizestartEvent;
- Fonresizeend: THTMLLinkElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLLinkElementEvents2onmousewheelEvent;
- Fonload: THTMLLinkElementEvents2onloadEvent;
- Fonerror: THTMLLinkElementEvents2onerrorEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLLinkElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLLinkElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLLinkElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLLinkElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLLinkElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLLinkElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLLinkElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLLinkElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLLinkElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLLinkElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLLinkElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLLinkElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLLinkElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLLinkElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLLinkElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLLinkElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLLinkElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLLinkElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLLinkElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLLinkElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLLinkElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLLinkElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLLinkElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLLinkElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLLinkElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLLinkElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLLinkElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLLinkElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLLinkElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLLinkElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLLinkElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLLinkElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLLinkElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLLinkElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLLinkElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLLinkElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLLinkElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLLinkElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLLinkElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLLinkElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLLinkElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLLinkElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLLinkElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLLinkElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLLinkElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLLinkElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLLinkElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLLinkElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLLinkElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLLinkElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLLinkElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLLinkElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLLinkElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLLinkElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLLinkElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLLinkElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLLinkElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLLinkElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLLinkElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLLinkElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLLinkElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLLinkElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onload: THTMLLinkElementEvents2onloadEvent read Fonload write Fonload;
- property onerror: THTMLLinkElementEvents2onerrorEvent read Fonerror write Fonerror;
- end;
-
-
- //SinkEventsForwards//
- THTMLFormElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLFormElementEventsonsubmitEvent = function(Sender: TObject): WordBool of object;
- THTMLFormElementEventsonresetEvent = function(Sender: TObject): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLFormElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- function Doonsubmit: WordBool; safecall;
- function Doonreset: WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLFormElementEventsonhelpEvent;
- Fonclick: THTMLFormElementEventsonclickEvent;
- Fondblclick: THTMLFormElementEventsondblclickEvent;
- Fonkeypress: THTMLFormElementEventsonkeypressEvent;
- Fonkeydown: THTMLFormElementEventsonkeydownEvent;
- Fonkeyup: THTMLFormElementEventsonkeyupEvent;
- Fonmouseout: THTMLFormElementEventsonmouseoutEvent;
- Fonmouseover: THTMLFormElementEventsonmouseoverEvent;
- Fonmousemove: THTMLFormElementEventsonmousemoveEvent;
- Fonmousedown: THTMLFormElementEventsonmousedownEvent;
- Fonmouseup: THTMLFormElementEventsonmouseupEvent;
- Fonselectstart: THTMLFormElementEventsonselectstartEvent;
- Fonfilterchange: THTMLFormElementEventsonfilterchangeEvent;
- Fondragstart: THTMLFormElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLFormElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLFormElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLFormElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLFormElementEventsonrowexitEvent;
- Fonrowenter: THTMLFormElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLFormElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLFormElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLFormElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLFormElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLFormElementEventsonpropertychangeEvent;
- Fonscroll: THTMLFormElementEventsonscrollEvent;
- Fonfocus: THTMLFormElementEventsonfocusEvent;
- Fonblur: THTMLFormElementEventsonblurEvent;
- Fonresize: THTMLFormElementEventsonresizeEvent;
- Fondrag: THTMLFormElementEventsondragEvent;
- Fondragend: THTMLFormElementEventsondragendEvent;
- Fondragenter: THTMLFormElementEventsondragenterEvent;
- Fondragover: THTMLFormElementEventsondragoverEvent;
- Fondragleave: THTMLFormElementEventsondragleaveEvent;
- Fondrop: THTMLFormElementEventsondropEvent;
- Fonbeforecut: THTMLFormElementEventsonbeforecutEvent;
- Foncut: THTMLFormElementEventsoncutEvent;
- Fonbeforecopy: THTMLFormElementEventsonbeforecopyEvent;
- Foncopy: THTMLFormElementEventsoncopyEvent;
- Fonbeforepaste: THTMLFormElementEventsonbeforepasteEvent;
- Fonpaste: THTMLFormElementEventsonpasteEvent;
- Foncontextmenu: THTMLFormElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLFormElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLFormElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLFormElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLFormElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLFormElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLFormElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLFormElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLFormElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLFormElementEventsonbeforeactivateEvent;
- Fonmove: THTMLFormElementEventsonmoveEvent;
- Foncontrolselect: THTMLFormElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLFormElementEventsonmovestartEvent;
- Fonmoveend: THTMLFormElementEventsonmoveendEvent;
- Fonresizestart: THTMLFormElementEventsonresizestartEvent;
- Fonresizeend: THTMLFormElementEventsonresizeendEvent;
- Fonmouseenter: THTMLFormElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLFormElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLFormElementEventsonmousewheelEvent;
- Fonactivate: THTMLFormElementEventsonactivateEvent;
- Fondeactivate: THTMLFormElementEventsondeactivateEvent;
- Fonfocusin: THTMLFormElementEventsonfocusinEvent;
- Fonfocusout: THTMLFormElementEventsonfocusoutEvent;
- Fonsubmit: THTMLFormElementEventsonsubmitEvent;
- Fonreset: THTMLFormElementEventsonresetEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLFormElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLFormElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLFormElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLFormElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLFormElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLFormElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLFormElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLFormElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLFormElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLFormElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLFormElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLFormElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLFormElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLFormElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLFormElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLFormElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLFormElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLFormElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLFormElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLFormElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLFormElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLFormElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLFormElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLFormElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLFormElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLFormElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLFormElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLFormElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLFormElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLFormElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLFormElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLFormElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLFormElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLFormElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLFormElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLFormElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLFormElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLFormElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLFormElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLFormElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLFormElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLFormElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLFormElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLFormElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLFormElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLFormElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLFormElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLFormElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLFormElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLFormElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLFormElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLFormElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLFormElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLFormElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLFormElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLFormElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLFormElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLFormElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLFormElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLFormElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLFormElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLFormElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLFormElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onsubmit: THTMLFormElementEventsonsubmitEvent read Fonsubmit write Fonsubmit;
- property onreset: THTMLFormElementEventsonresetEvent read Fonreset write Fonreset;
- end;
-
-
- //SinkEventsForwards//
- THTMLFormElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFormElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onsubmitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFormElementEvents2onresetEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLFormElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonsubmit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonreset(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLFormElementEvents2onhelpEvent;
- Fonclick: THTMLFormElementEvents2onclickEvent;
- Fondblclick: THTMLFormElementEvents2ondblclickEvent;
- Fonkeypress: THTMLFormElementEvents2onkeypressEvent;
- Fonkeydown: THTMLFormElementEvents2onkeydownEvent;
- Fonkeyup: THTMLFormElementEvents2onkeyupEvent;
- Fonmouseout: THTMLFormElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLFormElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLFormElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLFormElementEvents2onmousedownEvent;
- Fonmouseup: THTMLFormElementEvents2onmouseupEvent;
- Fonselectstart: THTMLFormElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLFormElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLFormElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLFormElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLFormElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLFormElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLFormElementEvents2onrowexitEvent;
- Fonrowenter: THTMLFormElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLFormElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLFormElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLFormElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLFormElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLFormElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLFormElementEvents2onscrollEvent;
- Fonfocus: THTMLFormElementEvents2onfocusEvent;
- Fonblur: THTMLFormElementEvents2onblurEvent;
- Fonresize: THTMLFormElementEvents2onresizeEvent;
- Fondrag: THTMLFormElementEvents2ondragEvent;
- Fondragend: THTMLFormElementEvents2ondragendEvent;
- Fondragenter: THTMLFormElementEvents2ondragenterEvent;
- Fondragover: THTMLFormElementEvents2ondragoverEvent;
- Fondragleave: THTMLFormElementEvents2ondragleaveEvent;
- Fondrop: THTMLFormElementEvents2ondropEvent;
- Fonbeforecut: THTMLFormElementEvents2onbeforecutEvent;
- Foncut: THTMLFormElementEvents2oncutEvent;
- Fonbeforecopy: THTMLFormElementEvents2onbeforecopyEvent;
- Foncopy: THTMLFormElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLFormElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLFormElementEvents2onpasteEvent;
- Foncontextmenu: THTMLFormElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLFormElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLFormElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLFormElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLFormElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLFormElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLFormElementEvents2onpageEvent;
- Fonmouseenter: THTMLFormElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLFormElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLFormElementEvents2onactivateEvent;
- Fondeactivate: THTMLFormElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLFormElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLFormElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLFormElementEvents2onfocusinEvent;
- Fonfocusout: THTMLFormElementEvents2onfocusoutEvent;
- Fonmove: THTMLFormElementEvents2onmoveEvent;
- Foncontrolselect: THTMLFormElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLFormElementEvents2onmovestartEvent;
- Fonmoveend: THTMLFormElementEvents2onmoveendEvent;
- Fonresizestart: THTMLFormElementEvents2onresizestartEvent;
- Fonresizeend: THTMLFormElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLFormElementEvents2onmousewheelEvent;
- Fonsubmit: THTMLFormElementEvents2onsubmitEvent;
- Fonreset: THTMLFormElementEvents2onresetEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLFormElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLFormElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLFormElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLFormElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLFormElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLFormElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLFormElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLFormElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLFormElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLFormElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLFormElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLFormElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLFormElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLFormElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLFormElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLFormElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLFormElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLFormElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLFormElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLFormElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLFormElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLFormElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLFormElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLFormElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLFormElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLFormElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLFormElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLFormElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLFormElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLFormElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLFormElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLFormElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLFormElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLFormElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLFormElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLFormElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLFormElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLFormElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLFormElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLFormElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLFormElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLFormElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLFormElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLFormElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLFormElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLFormElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLFormElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLFormElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLFormElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLFormElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLFormElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLFormElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLFormElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLFormElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLFormElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLFormElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLFormElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLFormElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLFormElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLFormElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLFormElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLFormElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onsubmit: THTMLFormElementEvents2onsubmitEvent read Fonsubmit write Fonsubmit;
- property onreset: THTMLFormElementEvents2onresetEvent read Fonreset write Fonreset;
- end;
-
-
- //SinkEventsForwards//
- THTMLImgEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLImgEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonerrorEvent = procedure(Sender: TObject) of object;
- THTMLImgEventsonabortEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLImgEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- procedure Doonabort; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLImgEventsonhelpEvent;
- Fonclick: THTMLImgEventsonclickEvent;
- Fondblclick: THTMLImgEventsondblclickEvent;
- Fonkeypress: THTMLImgEventsonkeypressEvent;
- Fonkeydown: THTMLImgEventsonkeydownEvent;
- Fonkeyup: THTMLImgEventsonkeyupEvent;
- Fonmouseout: THTMLImgEventsonmouseoutEvent;
- Fonmouseover: THTMLImgEventsonmouseoverEvent;
- Fonmousemove: THTMLImgEventsonmousemoveEvent;
- Fonmousedown: THTMLImgEventsonmousedownEvent;
- Fonmouseup: THTMLImgEventsonmouseupEvent;
- Fonselectstart: THTMLImgEventsonselectstartEvent;
- Fonfilterchange: THTMLImgEventsonfilterchangeEvent;
- Fondragstart: THTMLImgEventsondragstartEvent;
- Fonbeforeupdate: THTMLImgEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLImgEventsonafterupdateEvent;
- Fonerrorupdate: THTMLImgEventsonerrorupdateEvent;
- Fonrowexit: THTMLImgEventsonrowexitEvent;
- Fonrowenter: THTMLImgEventsonrowenterEvent;
- Fondatasetchanged: THTMLImgEventsondatasetchangedEvent;
- Fondataavailable: THTMLImgEventsondataavailableEvent;
- Fondatasetcomplete: THTMLImgEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLImgEventsonlosecaptureEvent;
- Fonpropertychange: THTMLImgEventsonpropertychangeEvent;
- Fonscroll: THTMLImgEventsonscrollEvent;
- Fonfocus: THTMLImgEventsonfocusEvent;
- Fonblur: THTMLImgEventsonblurEvent;
- Fonresize: THTMLImgEventsonresizeEvent;
- Fondrag: THTMLImgEventsondragEvent;
- Fondragend: THTMLImgEventsondragendEvent;
- Fondragenter: THTMLImgEventsondragenterEvent;
- Fondragover: THTMLImgEventsondragoverEvent;
- Fondragleave: THTMLImgEventsondragleaveEvent;
- Fondrop: THTMLImgEventsondropEvent;
- Fonbeforecut: THTMLImgEventsonbeforecutEvent;
- Foncut: THTMLImgEventsoncutEvent;
- Fonbeforecopy: THTMLImgEventsonbeforecopyEvent;
- Foncopy: THTMLImgEventsoncopyEvent;
- Fonbeforepaste: THTMLImgEventsonbeforepasteEvent;
- Fonpaste: THTMLImgEventsonpasteEvent;
- Foncontextmenu: THTMLImgEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLImgEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLImgEventsonrowsinsertedEvent;
- Foncellchange: THTMLImgEventsoncellchangeEvent;
- Fonreadystatechange: THTMLImgEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLImgEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLImgEventsonlayoutcompleteEvent;
- Fonpage: THTMLImgEventsonpageEvent;
- Fonbeforedeactivate: THTMLImgEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLImgEventsonbeforeactivateEvent;
- Fonmove: THTMLImgEventsonmoveEvent;
- Foncontrolselect: THTMLImgEventsoncontrolselectEvent;
- Fonmovestart: THTMLImgEventsonmovestartEvent;
- Fonmoveend: THTMLImgEventsonmoveendEvent;
- Fonresizestart: THTMLImgEventsonresizestartEvent;
- Fonresizeend: THTMLImgEventsonresizeendEvent;
- Fonmouseenter: THTMLImgEventsonmouseenterEvent;
- Fonmouseleave: THTMLImgEventsonmouseleaveEvent;
- Fonmousewheel: THTMLImgEventsonmousewheelEvent;
- Fonactivate: THTMLImgEventsonactivateEvent;
- Fondeactivate: THTMLImgEventsondeactivateEvent;
- Fonfocusin: THTMLImgEventsonfocusinEvent;
- Fonfocusout: THTMLImgEventsonfocusoutEvent;
- Fonload: THTMLImgEventsonloadEvent;
- Fonerror: THTMLImgEventsonerrorEvent;
- Fonabort: THTMLImgEventsonabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLImgEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLImgEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLImgEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLImgEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLImgEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLImgEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLImgEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLImgEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLImgEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLImgEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLImgEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLImgEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLImgEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLImgEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLImgEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLImgEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLImgEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLImgEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLImgEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLImgEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLImgEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLImgEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLImgEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLImgEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLImgEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLImgEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLImgEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLImgEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLImgEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLImgEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLImgEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLImgEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLImgEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLImgEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLImgEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLImgEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLImgEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLImgEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLImgEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLImgEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLImgEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLImgEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLImgEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLImgEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLImgEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLImgEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLImgEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLImgEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLImgEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLImgEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLImgEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLImgEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLImgEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLImgEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLImgEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLImgEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLImgEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLImgEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLImgEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLImgEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLImgEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLImgEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLImgEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onload: THTMLImgEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLImgEventsonerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLImgEventsonabortEvent read Fonabort write Fonabort;
- end;
-
-
- //SinkEventsForwards//
- THTMLImgEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLImgEvents2onloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onerrorEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLImgEvents2onabortEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLImgEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonload(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonerror(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonabort(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLImgEvents2onhelpEvent;
- Fonclick: THTMLImgEvents2onclickEvent;
- Fondblclick: THTMLImgEvents2ondblclickEvent;
- Fonkeypress: THTMLImgEvents2onkeypressEvent;
- Fonkeydown: THTMLImgEvents2onkeydownEvent;
- Fonkeyup: THTMLImgEvents2onkeyupEvent;
- Fonmouseout: THTMLImgEvents2onmouseoutEvent;
- Fonmouseover: THTMLImgEvents2onmouseoverEvent;
- Fonmousemove: THTMLImgEvents2onmousemoveEvent;
- Fonmousedown: THTMLImgEvents2onmousedownEvent;
- Fonmouseup: THTMLImgEvents2onmouseupEvent;
- Fonselectstart: THTMLImgEvents2onselectstartEvent;
- Fonfilterchange: THTMLImgEvents2onfilterchangeEvent;
- Fondragstart: THTMLImgEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLImgEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLImgEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLImgEvents2onerrorupdateEvent;
- Fonrowexit: THTMLImgEvents2onrowexitEvent;
- Fonrowenter: THTMLImgEvents2onrowenterEvent;
- Fondatasetchanged: THTMLImgEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLImgEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLImgEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLImgEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLImgEvents2onpropertychangeEvent;
- Fonscroll: THTMLImgEvents2onscrollEvent;
- Fonfocus: THTMLImgEvents2onfocusEvent;
- Fonblur: THTMLImgEvents2onblurEvent;
- Fonresize: THTMLImgEvents2onresizeEvent;
- Fondrag: THTMLImgEvents2ondragEvent;
- Fondragend: THTMLImgEvents2ondragendEvent;
- Fondragenter: THTMLImgEvents2ondragenterEvent;
- Fondragover: THTMLImgEvents2ondragoverEvent;
- Fondragleave: THTMLImgEvents2ondragleaveEvent;
- Fondrop: THTMLImgEvents2ondropEvent;
- Fonbeforecut: THTMLImgEvents2onbeforecutEvent;
- Foncut: THTMLImgEvents2oncutEvent;
- Fonbeforecopy: THTMLImgEvents2onbeforecopyEvent;
- Foncopy: THTMLImgEvents2oncopyEvent;
- Fonbeforepaste: THTMLImgEvents2onbeforepasteEvent;
- Fonpaste: THTMLImgEvents2onpasteEvent;
- Foncontextmenu: THTMLImgEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLImgEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLImgEvents2onrowsinsertedEvent;
- Foncellchange: THTMLImgEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLImgEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLImgEvents2onlayoutcompleteEvent;
- Fonpage: THTMLImgEvents2onpageEvent;
- Fonmouseenter: THTMLImgEvents2onmouseenterEvent;
- Fonmouseleave: THTMLImgEvents2onmouseleaveEvent;
- Fonactivate: THTMLImgEvents2onactivateEvent;
- Fondeactivate: THTMLImgEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLImgEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLImgEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLImgEvents2onfocusinEvent;
- Fonfocusout: THTMLImgEvents2onfocusoutEvent;
- Fonmove: THTMLImgEvents2onmoveEvent;
- Foncontrolselect: THTMLImgEvents2oncontrolselectEvent;
- Fonmovestart: THTMLImgEvents2onmovestartEvent;
- Fonmoveend: THTMLImgEvents2onmoveendEvent;
- Fonresizestart: THTMLImgEvents2onresizestartEvent;
- Fonresizeend: THTMLImgEvents2onresizeendEvent;
- Fonmousewheel: THTMLImgEvents2onmousewheelEvent;
- Fonload: THTMLImgEvents2onloadEvent;
- Fonerror: THTMLImgEvents2onerrorEvent;
- Fonabort: THTMLImgEvents2onabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLImgEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLImgEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLImgEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLImgEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLImgEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLImgEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLImgEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLImgEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLImgEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLImgEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLImgEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLImgEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLImgEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLImgEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLImgEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLImgEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLImgEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLImgEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLImgEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLImgEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLImgEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLImgEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLImgEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLImgEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLImgEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLImgEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLImgEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLImgEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLImgEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLImgEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLImgEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLImgEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLImgEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLImgEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLImgEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLImgEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLImgEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLImgEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLImgEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLImgEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLImgEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLImgEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLImgEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLImgEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLImgEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLImgEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLImgEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLImgEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLImgEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLImgEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLImgEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLImgEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLImgEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLImgEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLImgEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLImgEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLImgEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLImgEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLImgEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLImgEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLImgEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLImgEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onload: THTMLImgEvents2onloadEvent read Fonload write Fonload;
- property onerror: THTMLImgEvents2onerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLImgEvents2onabortEvent read Fonabort write Fonabort;
- end;
-
-
- //SinkEventsForwards//
- THTMLTextContainerEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLTextContainerEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonchangeEvent = procedure(Sender: TObject) of object;
- THTMLTextContainerEventsonselectEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLTextContainerEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonchange; safecall;
- procedure Doonselect; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLTextContainerEventsonhelpEvent;
- Fonclick: THTMLTextContainerEventsonclickEvent;
- Fondblclick: THTMLTextContainerEventsondblclickEvent;
- Fonkeypress: THTMLTextContainerEventsonkeypressEvent;
- Fonkeydown: THTMLTextContainerEventsonkeydownEvent;
- Fonkeyup: THTMLTextContainerEventsonkeyupEvent;
- Fonmouseout: THTMLTextContainerEventsonmouseoutEvent;
- Fonmouseover: THTMLTextContainerEventsonmouseoverEvent;
- Fonmousemove: THTMLTextContainerEventsonmousemoveEvent;
- Fonmousedown: THTMLTextContainerEventsonmousedownEvent;
- Fonmouseup: THTMLTextContainerEventsonmouseupEvent;
- Fonselectstart: THTMLTextContainerEventsonselectstartEvent;
- Fonfilterchange: THTMLTextContainerEventsonfilterchangeEvent;
- Fondragstart: THTMLTextContainerEventsondragstartEvent;
- Fonbeforeupdate: THTMLTextContainerEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLTextContainerEventsonafterupdateEvent;
- Fonerrorupdate: THTMLTextContainerEventsonerrorupdateEvent;
- Fonrowexit: THTMLTextContainerEventsonrowexitEvent;
- Fonrowenter: THTMLTextContainerEventsonrowenterEvent;
- Fondatasetchanged: THTMLTextContainerEventsondatasetchangedEvent;
- Fondataavailable: THTMLTextContainerEventsondataavailableEvent;
- Fondatasetcomplete: THTMLTextContainerEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLTextContainerEventsonlosecaptureEvent;
- Fonpropertychange: THTMLTextContainerEventsonpropertychangeEvent;
- Fonscroll: THTMLTextContainerEventsonscrollEvent;
- Fonfocus: THTMLTextContainerEventsonfocusEvent;
- Fonblur: THTMLTextContainerEventsonblurEvent;
- Fonresize: THTMLTextContainerEventsonresizeEvent;
- Fondrag: THTMLTextContainerEventsondragEvent;
- Fondragend: THTMLTextContainerEventsondragendEvent;
- Fondragenter: THTMLTextContainerEventsondragenterEvent;
- Fondragover: THTMLTextContainerEventsondragoverEvent;
- Fondragleave: THTMLTextContainerEventsondragleaveEvent;
- Fondrop: THTMLTextContainerEventsondropEvent;
- Fonbeforecut: THTMLTextContainerEventsonbeforecutEvent;
- Foncut: THTMLTextContainerEventsoncutEvent;
- Fonbeforecopy: THTMLTextContainerEventsonbeforecopyEvent;
- Foncopy: THTMLTextContainerEventsoncopyEvent;
- Fonbeforepaste: THTMLTextContainerEventsonbeforepasteEvent;
- Fonpaste: THTMLTextContainerEventsonpasteEvent;
- Foncontextmenu: THTMLTextContainerEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLTextContainerEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLTextContainerEventsonrowsinsertedEvent;
- Foncellchange: THTMLTextContainerEventsoncellchangeEvent;
- Fonreadystatechange: THTMLTextContainerEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLTextContainerEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLTextContainerEventsonlayoutcompleteEvent;
- Fonpage: THTMLTextContainerEventsonpageEvent;
- Fonbeforedeactivate: THTMLTextContainerEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLTextContainerEventsonbeforeactivateEvent;
- Fonmove: THTMLTextContainerEventsonmoveEvent;
- Foncontrolselect: THTMLTextContainerEventsoncontrolselectEvent;
- Fonmovestart: THTMLTextContainerEventsonmovestartEvent;
- Fonmoveend: THTMLTextContainerEventsonmoveendEvent;
- Fonresizestart: THTMLTextContainerEventsonresizestartEvent;
- Fonresizeend: THTMLTextContainerEventsonresizeendEvent;
- Fonmouseenter: THTMLTextContainerEventsonmouseenterEvent;
- Fonmouseleave: THTMLTextContainerEventsonmouseleaveEvent;
- Fonmousewheel: THTMLTextContainerEventsonmousewheelEvent;
- Fonactivate: THTMLTextContainerEventsonactivateEvent;
- Fondeactivate: THTMLTextContainerEventsondeactivateEvent;
- Fonfocusin: THTMLTextContainerEventsonfocusinEvent;
- Fonfocusout: THTMLTextContainerEventsonfocusoutEvent;
- Fonchange: THTMLTextContainerEventsonchangeEvent;
- Fonselect: THTMLTextContainerEventsonselectEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLTextContainerEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLTextContainerEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLTextContainerEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLTextContainerEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLTextContainerEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLTextContainerEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLTextContainerEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLTextContainerEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLTextContainerEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLTextContainerEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLTextContainerEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLTextContainerEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLTextContainerEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLTextContainerEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLTextContainerEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLTextContainerEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLTextContainerEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLTextContainerEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLTextContainerEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLTextContainerEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLTextContainerEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLTextContainerEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLTextContainerEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLTextContainerEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLTextContainerEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLTextContainerEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLTextContainerEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLTextContainerEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLTextContainerEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLTextContainerEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLTextContainerEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLTextContainerEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLTextContainerEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLTextContainerEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLTextContainerEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLTextContainerEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLTextContainerEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLTextContainerEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLTextContainerEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLTextContainerEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLTextContainerEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLTextContainerEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLTextContainerEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLTextContainerEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLTextContainerEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLTextContainerEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLTextContainerEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLTextContainerEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLTextContainerEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLTextContainerEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLTextContainerEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLTextContainerEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLTextContainerEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLTextContainerEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLTextContainerEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLTextContainerEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLTextContainerEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLTextContainerEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLTextContainerEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLTextContainerEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLTextContainerEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLTextContainerEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLTextContainerEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onchange: THTMLTextContainerEventsonchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLTextContainerEventsonselectEvent read Fonselect write Fonselect;
- end;
-
-
- //SinkEventsForwards//
- THTMLTextContainerEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTextContainerEvents2onchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTextContainerEvents2onselectEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLTextContainerEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonselect(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLTextContainerEvents2onhelpEvent;
- Fonclick: THTMLTextContainerEvents2onclickEvent;
- Fondblclick: THTMLTextContainerEvents2ondblclickEvent;
- Fonkeypress: THTMLTextContainerEvents2onkeypressEvent;
- Fonkeydown: THTMLTextContainerEvents2onkeydownEvent;
- Fonkeyup: THTMLTextContainerEvents2onkeyupEvent;
- Fonmouseout: THTMLTextContainerEvents2onmouseoutEvent;
- Fonmouseover: THTMLTextContainerEvents2onmouseoverEvent;
- Fonmousemove: THTMLTextContainerEvents2onmousemoveEvent;
- Fonmousedown: THTMLTextContainerEvents2onmousedownEvent;
- Fonmouseup: THTMLTextContainerEvents2onmouseupEvent;
- Fonselectstart: THTMLTextContainerEvents2onselectstartEvent;
- Fonfilterchange: THTMLTextContainerEvents2onfilterchangeEvent;
- Fondragstart: THTMLTextContainerEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLTextContainerEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLTextContainerEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLTextContainerEvents2onerrorupdateEvent;
- Fonrowexit: THTMLTextContainerEvents2onrowexitEvent;
- Fonrowenter: THTMLTextContainerEvents2onrowenterEvent;
- Fondatasetchanged: THTMLTextContainerEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLTextContainerEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLTextContainerEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLTextContainerEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLTextContainerEvents2onpropertychangeEvent;
- Fonscroll: THTMLTextContainerEvents2onscrollEvent;
- Fonfocus: THTMLTextContainerEvents2onfocusEvent;
- Fonblur: THTMLTextContainerEvents2onblurEvent;
- Fonresize: THTMLTextContainerEvents2onresizeEvent;
- Fondrag: THTMLTextContainerEvents2ondragEvent;
- Fondragend: THTMLTextContainerEvents2ondragendEvent;
- Fondragenter: THTMLTextContainerEvents2ondragenterEvent;
- Fondragover: THTMLTextContainerEvents2ondragoverEvent;
- Fondragleave: THTMLTextContainerEvents2ondragleaveEvent;
- Fondrop: THTMLTextContainerEvents2ondropEvent;
- Fonbeforecut: THTMLTextContainerEvents2onbeforecutEvent;
- Foncut: THTMLTextContainerEvents2oncutEvent;
- Fonbeforecopy: THTMLTextContainerEvents2onbeforecopyEvent;
- Foncopy: THTMLTextContainerEvents2oncopyEvent;
- Fonbeforepaste: THTMLTextContainerEvents2onbeforepasteEvent;
- Fonpaste: THTMLTextContainerEvents2onpasteEvent;
- Foncontextmenu: THTMLTextContainerEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLTextContainerEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLTextContainerEvents2onrowsinsertedEvent;
- Foncellchange: THTMLTextContainerEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLTextContainerEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLTextContainerEvents2onlayoutcompleteEvent;
- Fonpage: THTMLTextContainerEvents2onpageEvent;
- Fonmouseenter: THTMLTextContainerEvents2onmouseenterEvent;
- Fonmouseleave: THTMLTextContainerEvents2onmouseleaveEvent;
- Fonactivate: THTMLTextContainerEvents2onactivateEvent;
- Fondeactivate: THTMLTextContainerEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLTextContainerEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLTextContainerEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLTextContainerEvents2onfocusinEvent;
- Fonfocusout: THTMLTextContainerEvents2onfocusoutEvent;
- Fonmove: THTMLTextContainerEvents2onmoveEvent;
- Foncontrolselect: THTMLTextContainerEvents2oncontrolselectEvent;
- Fonmovestart: THTMLTextContainerEvents2onmovestartEvent;
- Fonmoveend: THTMLTextContainerEvents2onmoveendEvent;
- Fonresizestart: THTMLTextContainerEvents2onresizestartEvent;
- Fonresizeend: THTMLTextContainerEvents2onresizeendEvent;
- Fonmousewheel: THTMLTextContainerEvents2onmousewheelEvent;
- Fonchange: THTMLTextContainerEvents2onchangeEvent;
- Fonselect: THTMLTextContainerEvents2onselectEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLTextContainerEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLTextContainerEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLTextContainerEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLTextContainerEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLTextContainerEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLTextContainerEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLTextContainerEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLTextContainerEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLTextContainerEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLTextContainerEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLTextContainerEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLTextContainerEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLTextContainerEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLTextContainerEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLTextContainerEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLTextContainerEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLTextContainerEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLTextContainerEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLTextContainerEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLTextContainerEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLTextContainerEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLTextContainerEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLTextContainerEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLTextContainerEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLTextContainerEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLTextContainerEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLTextContainerEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLTextContainerEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLTextContainerEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLTextContainerEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLTextContainerEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLTextContainerEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLTextContainerEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLTextContainerEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLTextContainerEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLTextContainerEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLTextContainerEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLTextContainerEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLTextContainerEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLTextContainerEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLTextContainerEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLTextContainerEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLTextContainerEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLTextContainerEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLTextContainerEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLTextContainerEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLTextContainerEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLTextContainerEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLTextContainerEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLTextContainerEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLTextContainerEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLTextContainerEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLTextContainerEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLTextContainerEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLTextContainerEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLTextContainerEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLTextContainerEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLTextContainerEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLTextContainerEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLTextContainerEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLTextContainerEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLTextContainerEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onchange: THTMLTextContainerEvents2onchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLTextContainerEvents2onselectEvent read Fonselect write Fonselect;
- end;
-
-
- //SinkEventsForwards//
- THTMLAnchorEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLAnchorEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLAnchorEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLAnchorEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLAnchorEventsonhelpEvent;
- Fonclick: THTMLAnchorEventsonclickEvent;
- Fondblclick: THTMLAnchorEventsondblclickEvent;
- Fonkeypress: THTMLAnchorEventsonkeypressEvent;
- Fonkeydown: THTMLAnchorEventsonkeydownEvent;
- Fonkeyup: THTMLAnchorEventsonkeyupEvent;
- Fonmouseout: THTMLAnchorEventsonmouseoutEvent;
- Fonmouseover: THTMLAnchorEventsonmouseoverEvent;
- Fonmousemove: THTMLAnchorEventsonmousemoveEvent;
- Fonmousedown: THTMLAnchorEventsonmousedownEvent;
- Fonmouseup: THTMLAnchorEventsonmouseupEvent;
- Fonselectstart: THTMLAnchorEventsonselectstartEvent;
- Fonfilterchange: THTMLAnchorEventsonfilterchangeEvent;
- Fondragstart: THTMLAnchorEventsondragstartEvent;
- Fonbeforeupdate: THTMLAnchorEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLAnchorEventsonafterupdateEvent;
- Fonerrorupdate: THTMLAnchorEventsonerrorupdateEvent;
- Fonrowexit: THTMLAnchorEventsonrowexitEvent;
- Fonrowenter: THTMLAnchorEventsonrowenterEvent;
- Fondatasetchanged: THTMLAnchorEventsondatasetchangedEvent;
- Fondataavailable: THTMLAnchorEventsondataavailableEvent;
- Fondatasetcomplete: THTMLAnchorEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLAnchorEventsonlosecaptureEvent;
- Fonpropertychange: THTMLAnchorEventsonpropertychangeEvent;
- Fonscroll: THTMLAnchorEventsonscrollEvent;
- Fonfocus: THTMLAnchorEventsonfocusEvent;
- Fonblur: THTMLAnchorEventsonblurEvent;
- Fonresize: THTMLAnchorEventsonresizeEvent;
- Fondrag: THTMLAnchorEventsondragEvent;
- Fondragend: THTMLAnchorEventsondragendEvent;
- Fondragenter: THTMLAnchorEventsondragenterEvent;
- Fondragover: THTMLAnchorEventsondragoverEvent;
- Fondragleave: THTMLAnchorEventsondragleaveEvent;
- Fondrop: THTMLAnchorEventsondropEvent;
- Fonbeforecut: THTMLAnchorEventsonbeforecutEvent;
- Foncut: THTMLAnchorEventsoncutEvent;
- Fonbeforecopy: THTMLAnchorEventsonbeforecopyEvent;
- Foncopy: THTMLAnchorEventsoncopyEvent;
- Fonbeforepaste: THTMLAnchorEventsonbeforepasteEvent;
- Fonpaste: THTMLAnchorEventsonpasteEvent;
- Foncontextmenu: THTMLAnchorEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLAnchorEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLAnchorEventsonrowsinsertedEvent;
- Foncellchange: THTMLAnchorEventsoncellchangeEvent;
- Fonreadystatechange: THTMLAnchorEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLAnchorEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLAnchorEventsonlayoutcompleteEvent;
- Fonpage: THTMLAnchorEventsonpageEvent;
- Fonbeforedeactivate: THTMLAnchorEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLAnchorEventsonbeforeactivateEvent;
- Fonmove: THTMLAnchorEventsonmoveEvent;
- Foncontrolselect: THTMLAnchorEventsoncontrolselectEvent;
- Fonmovestart: THTMLAnchorEventsonmovestartEvent;
- Fonmoveend: THTMLAnchorEventsonmoveendEvent;
- Fonresizestart: THTMLAnchorEventsonresizestartEvent;
- Fonresizeend: THTMLAnchorEventsonresizeendEvent;
- Fonmouseenter: THTMLAnchorEventsonmouseenterEvent;
- Fonmouseleave: THTMLAnchorEventsonmouseleaveEvent;
- Fonmousewheel: THTMLAnchorEventsonmousewheelEvent;
- Fonactivate: THTMLAnchorEventsonactivateEvent;
- Fondeactivate: THTMLAnchorEventsondeactivateEvent;
- Fonfocusin: THTMLAnchorEventsonfocusinEvent;
- Fonfocusout: THTMLAnchorEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLAnchorEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLAnchorEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLAnchorEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLAnchorEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLAnchorEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLAnchorEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLAnchorEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLAnchorEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLAnchorEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLAnchorEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLAnchorEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLAnchorEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLAnchorEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLAnchorEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLAnchorEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLAnchorEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLAnchorEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLAnchorEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLAnchorEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLAnchorEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLAnchorEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLAnchorEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLAnchorEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLAnchorEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLAnchorEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLAnchorEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLAnchorEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLAnchorEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLAnchorEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLAnchorEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLAnchorEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLAnchorEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLAnchorEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLAnchorEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLAnchorEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLAnchorEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLAnchorEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLAnchorEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLAnchorEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLAnchorEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLAnchorEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLAnchorEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLAnchorEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLAnchorEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLAnchorEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLAnchorEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLAnchorEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLAnchorEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLAnchorEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLAnchorEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLAnchorEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLAnchorEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLAnchorEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLAnchorEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLAnchorEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLAnchorEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLAnchorEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLAnchorEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLAnchorEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLAnchorEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLAnchorEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLAnchorEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLAnchorEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLAnchorEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAnchorEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAnchorEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLAnchorEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLAnchorEvents2onhelpEvent;
- Fonclick: THTMLAnchorEvents2onclickEvent;
- Fondblclick: THTMLAnchorEvents2ondblclickEvent;
- Fonkeypress: THTMLAnchorEvents2onkeypressEvent;
- Fonkeydown: THTMLAnchorEvents2onkeydownEvent;
- Fonkeyup: THTMLAnchorEvents2onkeyupEvent;
- Fonmouseout: THTMLAnchorEvents2onmouseoutEvent;
- Fonmouseover: THTMLAnchorEvents2onmouseoverEvent;
- Fonmousemove: THTMLAnchorEvents2onmousemoveEvent;
- Fonmousedown: THTMLAnchorEvents2onmousedownEvent;
- Fonmouseup: THTMLAnchorEvents2onmouseupEvent;
- Fonselectstart: THTMLAnchorEvents2onselectstartEvent;
- Fonfilterchange: THTMLAnchorEvents2onfilterchangeEvent;
- Fondragstart: THTMLAnchorEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLAnchorEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLAnchorEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLAnchorEvents2onerrorupdateEvent;
- Fonrowexit: THTMLAnchorEvents2onrowexitEvent;
- Fonrowenter: THTMLAnchorEvents2onrowenterEvent;
- Fondatasetchanged: THTMLAnchorEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLAnchorEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLAnchorEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLAnchorEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLAnchorEvents2onpropertychangeEvent;
- Fonscroll: THTMLAnchorEvents2onscrollEvent;
- Fonfocus: THTMLAnchorEvents2onfocusEvent;
- Fonblur: THTMLAnchorEvents2onblurEvent;
- Fonresize: THTMLAnchorEvents2onresizeEvent;
- Fondrag: THTMLAnchorEvents2ondragEvent;
- Fondragend: THTMLAnchorEvents2ondragendEvent;
- Fondragenter: THTMLAnchorEvents2ondragenterEvent;
- Fondragover: THTMLAnchorEvents2ondragoverEvent;
- Fondragleave: THTMLAnchorEvents2ondragleaveEvent;
- Fondrop: THTMLAnchorEvents2ondropEvent;
- Fonbeforecut: THTMLAnchorEvents2onbeforecutEvent;
- Foncut: THTMLAnchorEvents2oncutEvent;
- Fonbeforecopy: THTMLAnchorEvents2onbeforecopyEvent;
- Foncopy: THTMLAnchorEvents2oncopyEvent;
- Fonbeforepaste: THTMLAnchorEvents2onbeforepasteEvent;
- Fonpaste: THTMLAnchorEvents2onpasteEvent;
- Foncontextmenu: THTMLAnchorEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLAnchorEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLAnchorEvents2onrowsinsertedEvent;
- Foncellchange: THTMLAnchorEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLAnchorEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLAnchorEvents2onlayoutcompleteEvent;
- Fonpage: THTMLAnchorEvents2onpageEvent;
- Fonmouseenter: THTMLAnchorEvents2onmouseenterEvent;
- Fonmouseleave: THTMLAnchorEvents2onmouseleaveEvent;
- Fonactivate: THTMLAnchorEvents2onactivateEvent;
- Fondeactivate: THTMLAnchorEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLAnchorEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLAnchorEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLAnchorEvents2onfocusinEvent;
- Fonfocusout: THTMLAnchorEvents2onfocusoutEvent;
- Fonmove: THTMLAnchorEvents2onmoveEvent;
- Foncontrolselect: THTMLAnchorEvents2oncontrolselectEvent;
- Fonmovestart: THTMLAnchorEvents2onmovestartEvent;
- Fonmoveend: THTMLAnchorEvents2onmoveendEvent;
- Fonresizestart: THTMLAnchorEvents2onresizestartEvent;
- Fonresizeend: THTMLAnchorEvents2onresizeendEvent;
- Fonmousewheel: THTMLAnchorEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLAnchorEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLAnchorEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLAnchorEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLAnchorEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLAnchorEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLAnchorEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLAnchorEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLAnchorEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLAnchorEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLAnchorEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLAnchorEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLAnchorEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLAnchorEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLAnchorEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLAnchorEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLAnchorEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLAnchorEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLAnchorEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLAnchorEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLAnchorEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLAnchorEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLAnchorEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLAnchorEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLAnchorEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLAnchorEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLAnchorEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLAnchorEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLAnchorEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLAnchorEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLAnchorEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLAnchorEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLAnchorEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLAnchorEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLAnchorEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLAnchorEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLAnchorEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLAnchorEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLAnchorEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLAnchorEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLAnchorEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLAnchorEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLAnchorEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLAnchorEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLAnchorEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLAnchorEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLAnchorEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLAnchorEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLAnchorEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLAnchorEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLAnchorEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLAnchorEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLAnchorEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLAnchorEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLAnchorEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLAnchorEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLAnchorEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLAnchorEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLAnchorEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLAnchorEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLAnchorEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLAnchorEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLAnchorEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLLabelEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLLabelEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLLabelEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLLabelEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLLabelEventsonhelpEvent;
- Fonclick: THTMLLabelEventsonclickEvent;
- Fondblclick: THTMLLabelEventsondblclickEvent;
- Fonkeypress: THTMLLabelEventsonkeypressEvent;
- Fonkeydown: THTMLLabelEventsonkeydownEvent;
- Fonkeyup: THTMLLabelEventsonkeyupEvent;
- Fonmouseout: THTMLLabelEventsonmouseoutEvent;
- Fonmouseover: THTMLLabelEventsonmouseoverEvent;
- Fonmousemove: THTMLLabelEventsonmousemoveEvent;
- Fonmousedown: THTMLLabelEventsonmousedownEvent;
- Fonmouseup: THTMLLabelEventsonmouseupEvent;
- Fonselectstart: THTMLLabelEventsonselectstartEvent;
- Fonfilterchange: THTMLLabelEventsonfilterchangeEvent;
- Fondragstart: THTMLLabelEventsondragstartEvent;
- Fonbeforeupdate: THTMLLabelEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLLabelEventsonafterupdateEvent;
- Fonerrorupdate: THTMLLabelEventsonerrorupdateEvent;
- Fonrowexit: THTMLLabelEventsonrowexitEvent;
- Fonrowenter: THTMLLabelEventsonrowenterEvent;
- Fondatasetchanged: THTMLLabelEventsondatasetchangedEvent;
- Fondataavailable: THTMLLabelEventsondataavailableEvent;
- Fondatasetcomplete: THTMLLabelEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLLabelEventsonlosecaptureEvent;
- Fonpropertychange: THTMLLabelEventsonpropertychangeEvent;
- Fonscroll: THTMLLabelEventsonscrollEvent;
- Fonfocus: THTMLLabelEventsonfocusEvent;
- Fonblur: THTMLLabelEventsonblurEvent;
- Fonresize: THTMLLabelEventsonresizeEvent;
- Fondrag: THTMLLabelEventsondragEvent;
- Fondragend: THTMLLabelEventsondragendEvent;
- Fondragenter: THTMLLabelEventsondragenterEvent;
- Fondragover: THTMLLabelEventsondragoverEvent;
- Fondragleave: THTMLLabelEventsondragleaveEvent;
- Fondrop: THTMLLabelEventsondropEvent;
- Fonbeforecut: THTMLLabelEventsonbeforecutEvent;
- Foncut: THTMLLabelEventsoncutEvent;
- Fonbeforecopy: THTMLLabelEventsonbeforecopyEvent;
- Foncopy: THTMLLabelEventsoncopyEvent;
- Fonbeforepaste: THTMLLabelEventsonbeforepasteEvent;
- Fonpaste: THTMLLabelEventsonpasteEvent;
- Foncontextmenu: THTMLLabelEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLLabelEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLLabelEventsonrowsinsertedEvent;
- Foncellchange: THTMLLabelEventsoncellchangeEvent;
- Fonreadystatechange: THTMLLabelEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLLabelEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLLabelEventsonlayoutcompleteEvent;
- Fonpage: THTMLLabelEventsonpageEvent;
- Fonbeforedeactivate: THTMLLabelEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLLabelEventsonbeforeactivateEvent;
- Fonmove: THTMLLabelEventsonmoveEvent;
- Foncontrolselect: THTMLLabelEventsoncontrolselectEvent;
- Fonmovestart: THTMLLabelEventsonmovestartEvent;
- Fonmoveend: THTMLLabelEventsonmoveendEvent;
- Fonresizestart: THTMLLabelEventsonresizestartEvent;
- Fonresizeend: THTMLLabelEventsonresizeendEvent;
- Fonmouseenter: THTMLLabelEventsonmouseenterEvent;
- Fonmouseleave: THTMLLabelEventsonmouseleaveEvent;
- Fonmousewheel: THTMLLabelEventsonmousewheelEvent;
- Fonactivate: THTMLLabelEventsonactivateEvent;
- Fondeactivate: THTMLLabelEventsondeactivateEvent;
- Fonfocusin: THTMLLabelEventsonfocusinEvent;
- Fonfocusout: THTMLLabelEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLLabelEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLLabelEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLLabelEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLLabelEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLLabelEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLLabelEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLLabelEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLLabelEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLLabelEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLLabelEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLLabelEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLLabelEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLLabelEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLLabelEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLLabelEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLLabelEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLLabelEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLLabelEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLLabelEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLLabelEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLLabelEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLLabelEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLLabelEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLLabelEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLLabelEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLLabelEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLLabelEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLLabelEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLLabelEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLLabelEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLLabelEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLLabelEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLLabelEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLLabelEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLLabelEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLLabelEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLLabelEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLLabelEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLLabelEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLLabelEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLLabelEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLLabelEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLLabelEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLLabelEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLLabelEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLLabelEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLLabelEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLLabelEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLLabelEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLLabelEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLLabelEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLLabelEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLLabelEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLLabelEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLLabelEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLLabelEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLLabelEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLLabelEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLLabelEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLLabelEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLLabelEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLLabelEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLLabelEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLLabelEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLLabelEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLLabelEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLLabelEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLLabelEvents2onhelpEvent;
- Fonclick: THTMLLabelEvents2onclickEvent;
- Fondblclick: THTMLLabelEvents2ondblclickEvent;
- Fonkeypress: THTMLLabelEvents2onkeypressEvent;
- Fonkeydown: THTMLLabelEvents2onkeydownEvent;
- Fonkeyup: THTMLLabelEvents2onkeyupEvent;
- Fonmouseout: THTMLLabelEvents2onmouseoutEvent;
- Fonmouseover: THTMLLabelEvents2onmouseoverEvent;
- Fonmousemove: THTMLLabelEvents2onmousemoveEvent;
- Fonmousedown: THTMLLabelEvents2onmousedownEvent;
- Fonmouseup: THTMLLabelEvents2onmouseupEvent;
- Fonselectstart: THTMLLabelEvents2onselectstartEvent;
- Fonfilterchange: THTMLLabelEvents2onfilterchangeEvent;
- Fondragstart: THTMLLabelEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLLabelEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLLabelEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLLabelEvents2onerrorupdateEvent;
- Fonrowexit: THTMLLabelEvents2onrowexitEvent;
- Fonrowenter: THTMLLabelEvents2onrowenterEvent;
- Fondatasetchanged: THTMLLabelEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLLabelEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLLabelEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLLabelEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLLabelEvents2onpropertychangeEvent;
- Fonscroll: THTMLLabelEvents2onscrollEvent;
- Fonfocus: THTMLLabelEvents2onfocusEvent;
- Fonblur: THTMLLabelEvents2onblurEvent;
- Fonresize: THTMLLabelEvents2onresizeEvent;
- Fondrag: THTMLLabelEvents2ondragEvent;
- Fondragend: THTMLLabelEvents2ondragendEvent;
- Fondragenter: THTMLLabelEvents2ondragenterEvent;
- Fondragover: THTMLLabelEvents2ondragoverEvent;
- Fondragleave: THTMLLabelEvents2ondragleaveEvent;
- Fondrop: THTMLLabelEvents2ondropEvent;
- Fonbeforecut: THTMLLabelEvents2onbeforecutEvent;
- Foncut: THTMLLabelEvents2oncutEvent;
- Fonbeforecopy: THTMLLabelEvents2onbeforecopyEvent;
- Foncopy: THTMLLabelEvents2oncopyEvent;
- Fonbeforepaste: THTMLLabelEvents2onbeforepasteEvent;
- Fonpaste: THTMLLabelEvents2onpasteEvent;
- Foncontextmenu: THTMLLabelEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLLabelEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLLabelEvents2onrowsinsertedEvent;
- Foncellchange: THTMLLabelEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLLabelEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLLabelEvents2onlayoutcompleteEvent;
- Fonpage: THTMLLabelEvents2onpageEvent;
- Fonmouseenter: THTMLLabelEvents2onmouseenterEvent;
- Fonmouseleave: THTMLLabelEvents2onmouseleaveEvent;
- Fonactivate: THTMLLabelEvents2onactivateEvent;
- Fondeactivate: THTMLLabelEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLLabelEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLLabelEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLLabelEvents2onfocusinEvent;
- Fonfocusout: THTMLLabelEvents2onfocusoutEvent;
- Fonmove: THTMLLabelEvents2onmoveEvent;
- Foncontrolselect: THTMLLabelEvents2oncontrolselectEvent;
- Fonmovestart: THTMLLabelEvents2onmovestartEvent;
- Fonmoveend: THTMLLabelEvents2onmoveendEvent;
- Fonresizestart: THTMLLabelEvents2onresizestartEvent;
- Fonresizeend: THTMLLabelEvents2onresizeendEvent;
- Fonmousewheel: THTMLLabelEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLLabelEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLLabelEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLLabelEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLLabelEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLLabelEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLLabelEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLLabelEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLLabelEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLLabelEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLLabelEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLLabelEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLLabelEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLLabelEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLLabelEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLLabelEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLLabelEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLLabelEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLLabelEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLLabelEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLLabelEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLLabelEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLLabelEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLLabelEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLLabelEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLLabelEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLLabelEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLLabelEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLLabelEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLLabelEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLLabelEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLLabelEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLLabelEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLLabelEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLLabelEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLLabelEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLLabelEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLLabelEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLLabelEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLLabelEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLLabelEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLLabelEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLLabelEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLLabelEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLLabelEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLLabelEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLLabelEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLLabelEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLLabelEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLLabelEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLLabelEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLLabelEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLLabelEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLLabelEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLLabelEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLLabelEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLLabelEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLLabelEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLLabelEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLLabelEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLLabelEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLLabelEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLLabelEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLSelectElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLSelectElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLSelectElementEventsonchangeEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLSelectElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonchange; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLSelectElementEventsonhelpEvent;
- Fonclick: THTMLSelectElementEventsonclickEvent;
- Fondblclick: THTMLSelectElementEventsondblclickEvent;
- Fonkeypress: THTMLSelectElementEventsonkeypressEvent;
- Fonkeydown: THTMLSelectElementEventsonkeydownEvent;
- Fonkeyup: THTMLSelectElementEventsonkeyupEvent;
- Fonmouseout: THTMLSelectElementEventsonmouseoutEvent;
- Fonmouseover: THTMLSelectElementEventsonmouseoverEvent;
- Fonmousemove: THTMLSelectElementEventsonmousemoveEvent;
- Fonmousedown: THTMLSelectElementEventsonmousedownEvent;
- Fonmouseup: THTMLSelectElementEventsonmouseupEvent;
- Fonselectstart: THTMLSelectElementEventsonselectstartEvent;
- Fonfilterchange: THTMLSelectElementEventsonfilterchangeEvent;
- Fondragstart: THTMLSelectElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLSelectElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLSelectElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLSelectElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLSelectElementEventsonrowexitEvent;
- Fonrowenter: THTMLSelectElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLSelectElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLSelectElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLSelectElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLSelectElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLSelectElementEventsonpropertychangeEvent;
- Fonscroll: THTMLSelectElementEventsonscrollEvent;
- Fonfocus: THTMLSelectElementEventsonfocusEvent;
- Fonblur: THTMLSelectElementEventsonblurEvent;
- Fonresize: THTMLSelectElementEventsonresizeEvent;
- Fondrag: THTMLSelectElementEventsondragEvent;
- Fondragend: THTMLSelectElementEventsondragendEvent;
- Fondragenter: THTMLSelectElementEventsondragenterEvent;
- Fondragover: THTMLSelectElementEventsondragoverEvent;
- Fondragleave: THTMLSelectElementEventsondragleaveEvent;
- Fondrop: THTMLSelectElementEventsondropEvent;
- Fonbeforecut: THTMLSelectElementEventsonbeforecutEvent;
- Foncut: THTMLSelectElementEventsoncutEvent;
- Fonbeforecopy: THTMLSelectElementEventsonbeforecopyEvent;
- Foncopy: THTMLSelectElementEventsoncopyEvent;
- Fonbeforepaste: THTMLSelectElementEventsonbeforepasteEvent;
- Fonpaste: THTMLSelectElementEventsonpasteEvent;
- Foncontextmenu: THTMLSelectElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLSelectElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLSelectElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLSelectElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLSelectElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLSelectElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLSelectElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLSelectElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLSelectElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLSelectElementEventsonbeforeactivateEvent;
- Fonmove: THTMLSelectElementEventsonmoveEvent;
- Foncontrolselect: THTMLSelectElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLSelectElementEventsonmovestartEvent;
- Fonmoveend: THTMLSelectElementEventsonmoveendEvent;
- Fonresizestart: THTMLSelectElementEventsonresizestartEvent;
- Fonresizeend: THTMLSelectElementEventsonresizeendEvent;
- Fonmouseenter: THTMLSelectElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLSelectElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLSelectElementEventsonmousewheelEvent;
- Fonactivate: THTMLSelectElementEventsonactivateEvent;
- Fondeactivate: THTMLSelectElementEventsondeactivateEvent;
- Fonfocusin: THTMLSelectElementEventsonfocusinEvent;
- Fonfocusout: THTMLSelectElementEventsonfocusoutEvent;
- Fonchange: THTMLSelectElementEventsonchangeEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLSelectElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLSelectElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLSelectElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLSelectElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLSelectElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLSelectElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLSelectElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLSelectElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLSelectElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLSelectElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLSelectElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLSelectElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLSelectElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLSelectElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLSelectElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLSelectElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLSelectElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLSelectElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLSelectElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLSelectElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLSelectElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLSelectElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLSelectElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLSelectElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLSelectElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLSelectElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLSelectElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLSelectElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLSelectElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLSelectElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLSelectElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLSelectElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLSelectElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLSelectElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLSelectElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLSelectElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLSelectElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLSelectElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLSelectElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLSelectElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLSelectElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLSelectElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLSelectElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLSelectElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLSelectElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLSelectElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLSelectElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLSelectElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLSelectElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLSelectElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLSelectElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLSelectElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLSelectElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLSelectElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLSelectElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLSelectElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLSelectElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLSelectElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLSelectElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLSelectElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLSelectElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLSelectElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLSelectElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onchange: THTMLSelectElementEventsonchangeEvent read Fonchange write Fonchange;
- end;
-
-
- //SinkEventsForwards//
- THTMLSelectElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLSelectElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLSelectElementEvents2onchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLSelectElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonchange(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLSelectElementEvents2onhelpEvent;
- Fonclick: THTMLSelectElementEvents2onclickEvent;
- Fondblclick: THTMLSelectElementEvents2ondblclickEvent;
- Fonkeypress: THTMLSelectElementEvents2onkeypressEvent;
- Fonkeydown: THTMLSelectElementEvents2onkeydownEvent;
- Fonkeyup: THTMLSelectElementEvents2onkeyupEvent;
- Fonmouseout: THTMLSelectElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLSelectElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLSelectElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLSelectElementEvents2onmousedownEvent;
- Fonmouseup: THTMLSelectElementEvents2onmouseupEvent;
- Fonselectstart: THTMLSelectElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLSelectElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLSelectElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLSelectElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLSelectElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLSelectElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLSelectElementEvents2onrowexitEvent;
- Fonrowenter: THTMLSelectElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLSelectElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLSelectElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLSelectElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLSelectElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLSelectElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLSelectElementEvents2onscrollEvent;
- Fonfocus: THTMLSelectElementEvents2onfocusEvent;
- Fonblur: THTMLSelectElementEvents2onblurEvent;
- Fonresize: THTMLSelectElementEvents2onresizeEvent;
- Fondrag: THTMLSelectElementEvents2ondragEvent;
- Fondragend: THTMLSelectElementEvents2ondragendEvent;
- Fondragenter: THTMLSelectElementEvents2ondragenterEvent;
- Fondragover: THTMLSelectElementEvents2ondragoverEvent;
- Fondragleave: THTMLSelectElementEvents2ondragleaveEvent;
- Fondrop: THTMLSelectElementEvents2ondropEvent;
- Fonbeforecut: THTMLSelectElementEvents2onbeforecutEvent;
- Foncut: THTMLSelectElementEvents2oncutEvent;
- Fonbeforecopy: THTMLSelectElementEvents2onbeforecopyEvent;
- Foncopy: THTMLSelectElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLSelectElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLSelectElementEvents2onpasteEvent;
- Foncontextmenu: THTMLSelectElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLSelectElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLSelectElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLSelectElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLSelectElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLSelectElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLSelectElementEvents2onpageEvent;
- Fonmouseenter: THTMLSelectElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLSelectElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLSelectElementEvents2onactivateEvent;
- Fondeactivate: THTMLSelectElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLSelectElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLSelectElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLSelectElementEvents2onfocusinEvent;
- Fonfocusout: THTMLSelectElementEvents2onfocusoutEvent;
- Fonmove: THTMLSelectElementEvents2onmoveEvent;
- Foncontrolselect: THTMLSelectElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLSelectElementEvents2onmovestartEvent;
- Fonmoveend: THTMLSelectElementEvents2onmoveendEvent;
- Fonresizestart: THTMLSelectElementEvents2onresizestartEvent;
- Fonresizeend: THTMLSelectElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLSelectElementEvents2onmousewheelEvent;
- Fonchange: THTMLSelectElementEvents2onchangeEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLSelectElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLSelectElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLSelectElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLSelectElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLSelectElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLSelectElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLSelectElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLSelectElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLSelectElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLSelectElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLSelectElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLSelectElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLSelectElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLSelectElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLSelectElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLSelectElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLSelectElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLSelectElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLSelectElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLSelectElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLSelectElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLSelectElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLSelectElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLSelectElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLSelectElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLSelectElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLSelectElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLSelectElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLSelectElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLSelectElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLSelectElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLSelectElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLSelectElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLSelectElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLSelectElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLSelectElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLSelectElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLSelectElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLSelectElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLSelectElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLSelectElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLSelectElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLSelectElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLSelectElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLSelectElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLSelectElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLSelectElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLSelectElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLSelectElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLSelectElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLSelectElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLSelectElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLSelectElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLSelectElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLSelectElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLSelectElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLSelectElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLSelectElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLSelectElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLSelectElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLSelectElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLSelectElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onchange: THTMLSelectElementEvents2onchangeEvent read Fonchange write Fonchange;
- end;
-
-
- //SinkEventsForwards//
- THTMLInputTextElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonchangeEvent = function(Sender: TObject): WordBool of object;
- THTMLInputTextElementEventsonselectEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonerrorEvent = procedure(Sender: TObject) of object;
- THTMLInputTextElementEventsonabortEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLInputTextElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- function Doonchange: WordBool; safecall;
- procedure Doonselect; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- procedure Doonabort; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLInputTextElementEventsonhelpEvent;
- Fonclick: THTMLInputTextElementEventsonclickEvent;
- Fondblclick: THTMLInputTextElementEventsondblclickEvent;
- Fonkeypress: THTMLInputTextElementEventsonkeypressEvent;
- Fonkeydown: THTMLInputTextElementEventsonkeydownEvent;
- Fonkeyup: THTMLInputTextElementEventsonkeyupEvent;
- Fonmouseout: THTMLInputTextElementEventsonmouseoutEvent;
- Fonmouseover: THTMLInputTextElementEventsonmouseoverEvent;
- Fonmousemove: THTMLInputTextElementEventsonmousemoveEvent;
- Fonmousedown: THTMLInputTextElementEventsonmousedownEvent;
- Fonmouseup: THTMLInputTextElementEventsonmouseupEvent;
- Fonselectstart: THTMLInputTextElementEventsonselectstartEvent;
- Fonfilterchange: THTMLInputTextElementEventsonfilterchangeEvent;
- Fondragstart: THTMLInputTextElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLInputTextElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLInputTextElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLInputTextElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLInputTextElementEventsonrowexitEvent;
- Fonrowenter: THTMLInputTextElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLInputTextElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLInputTextElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLInputTextElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLInputTextElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLInputTextElementEventsonpropertychangeEvent;
- Fonscroll: THTMLInputTextElementEventsonscrollEvent;
- Fonfocus: THTMLInputTextElementEventsonfocusEvent;
- Fonblur: THTMLInputTextElementEventsonblurEvent;
- Fonresize: THTMLInputTextElementEventsonresizeEvent;
- Fondrag: THTMLInputTextElementEventsondragEvent;
- Fondragend: THTMLInputTextElementEventsondragendEvent;
- Fondragenter: THTMLInputTextElementEventsondragenterEvent;
- Fondragover: THTMLInputTextElementEventsondragoverEvent;
- Fondragleave: THTMLInputTextElementEventsondragleaveEvent;
- Fondrop: THTMLInputTextElementEventsondropEvent;
- Fonbeforecut: THTMLInputTextElementEventsonbeforecutEvent;
- Foncut: THTMLInputTextElementEventsoncutEvent;
- Fonbeforecopy: THTMLInputTextElementEventsonbeforecopyEvent;
- Foncopy: THTMLInputTextElementEventsoncopyEvent;
- Fonbeforepaste: THTMLInputTextElementEventsonbeforepasteEvent;
- Fonpaste: THTMLInputTextElementEventsonpasteEvent;
- Foncontextmenu: THTMLInputTextElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLInputTextElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLInputTextElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLInputTextElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLInputTextElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLInputTextElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLInputTextElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLInputTextElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLInputTextElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLInputTextElementEventsonbeforeactivateEvent;
- Fonmove: THTMLInputTextElementEventsonmoveEvent;
- Foncontrolselect: THTMLInputTextElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLInputTextElementEventsonmovestartEvent;
- Fonmoveend: THTMLInputTextElementEventsonmoveendEvent;
- Fonresizestart: THTMLInputTextElementEventsonresizestartEvent;
- Fonresizeend: THTMLInputTextElementEventsonresizeendEvent;
- Fonmouseenter: THTMLInputTextElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLInputTextElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLInputTextElementEventsonmousewheelEvent;
- Fonactivate: THTMLInputTextElementEventsonactivateEvent;
- Fondeactivate: THTMLInputTextElementEventsondeactivateEvent;
- Fonfocusin: THTMLInputTextElementEventsonfocusinEvent;
- Fonfocusout: THTMLInputTextElementEventsonfocusoutEvent;
- Fonchange: THTMLInputTextElementEventsonchangeEvent;
- Fonselect: THTMLInputTextElementEventsonselectEvent;
- Fonload: THTMLInputTextElementEventsonloadEvent;
- Fonerror: THTMLInputTextElementEventsonerrorEvent;
- Fonabort: THTMLInputTextElementEventsonabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLInputTextElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLInputTextElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLInputTextElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLInputTextElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLInputTextElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLInputTextElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLInputTextElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLInputTextElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLInputTextElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLInputTextElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLInputTextElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLInputTextElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLInputTextElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLInputTextElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLInputTextElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLInputTextElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLInputTextElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLInputTextElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLInputTextElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLInputTextElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLInputTextElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLInputTextElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLInputTextElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLInputTextElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLInputTextElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLInputTextElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLInputTextElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLInputTextElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLInputTextElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLInputTextElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLInputTextElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLInputTextElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLInputTextElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLInputTextElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLInputTextElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLInputTextElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLInputTextElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLInputTextElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLInputTextElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLInputTextElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLInputTextElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLInputTextElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLInputTextElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLInputTextElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLInputTextElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLInputTextElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLInputTextElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLInputTextElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLInputTextElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLInputTextElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLInputTextElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLInputTextElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLInputTextElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLInputTextElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLInputTextElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLInputTextElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLInputTextElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLInputTextElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLInputTextElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLInputTextElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLInputTextElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLInputTextElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLInputTextElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onchange: THTMLInputTextElementEventsonchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLInputTextElementEventsonselectEvent read Fonselect write Fonselect;
- property onload: THTMLInputTextElementEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLInputTextElementEventsonerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLInputTextElementEventsonabortEvent read Fonabort write Fonabort;
- end;
-
-
- //SinkEventsForwards//
- THTMLInputTextElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onchangeEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLInputTextElementEvents2onselectEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onerrorEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLInputTextElementEvents2onabortEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLInputTextElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonchange(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonselect(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonload(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonerror(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonabort(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLInputTextElementEvents2onhelpEvent;
- Fonclick: THTMLInputTextElementEvents2onclickEvent;
- Fondblclick: THTMLInputTextElementEvents2ondblclickEvent;
- Fonkeypress: THTMLInputTextElementEvents2onkeypressEvent;
- Fonkeydown: THTMLInputTextElementEvents2onkeydownEvent;
- Fonkeyup: THTMLInputTextElementEvents2onkeyupEvent;
- Fonmouseout: THTMLInputTextElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLInputTextElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLInputTextElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLInputTextElementEvents2onmousedownEvent;
- Fonmouseup: THTMLInputTextElementEvents2onmouseupEvent;
- Fonselectstart: THTMLInputTextElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLInputTextElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLInputTextElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLInputTextElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLInputTextElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLInputTextElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLInputTextElementEvents2onrowexitEvent;
- Fonrowenter: THTMLInputTextElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLInputTextElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLInputTextElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLInputTextElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLInputTextElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLInputTextElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLInputTextElementEvents2onscrollEvent;
- Fonfocus: THTMLInputTextElementEvents2onfocusEvent;
- Fonblur: THTMLInputTextElementEvents2onblurEvent;
- Fonresize: THTMLInputTextElementEvents2onresizeEvent;
- Fondrag: THTMLInputTextElementEvents2ondragEvent;
- Fondragend: THTMLInputTextElementEvents2ondragendEvent;
- Fondragenter: THTMLInputTextElementEvents2ondragenterEvent;
- Fondragover: THTMLInputTextElementEvents2ondragoverEvent;
- Fondragleave: THTMLInputTextElementEvents2ondragleaveEvent;
- Fondrop: THTMLInputTextElementEvents2ondropEvent;
- Fonbeforecut: THTMLInputTextElementEvents2onbeforecutEvent;
- Foncut: THTMLInputTextElementEvents2oncutEvent;
- Fonbeforecopy: THTMLInputTextElementEvents2onbeforecopyEvent;
- Foncopy: THTMLInputTextElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLInputTextElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLInputTextElementEvents2onpasteEvent;
- Foncontextmenu: THTMLInputTextElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLInputTextElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLInputTextElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLInputTextElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLInputTextElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLInputTextElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLInputTextElementEvents2onpageEvent;
- Fonmouseenter: THTMLInputTextElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLInputTextElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLInputTextElementEvents2onactivateEvent;
- Fondeactivate: THTMLInputTextElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLInputTextElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLInputTextElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLInputTextElementEvents2onfocusinEvent;
- Fonfocusout: THTMLInputTextElementEvents2onfocusoutEvent;
- Fonmove: THTMLInputTextElementEvents2onmoveEvent;
- Foncontrolselect: THTMLInputTextElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLInputTextElementEvents2onmovestartEvent;
- Fonmoveend: THTMLInputTextElementEvents2onmoveendEvent;
- Fonresizestart: THTMLInputTextElementEvents2onresizestartEvent;
- Fonresizeend: THTMLInputTextElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLInputTextElementEvents2onmousewheelEvent;
- Fonchange: THTMLInputTextElementEvents2onchangeEvent;
- Fonselect: THTMLInputTextElementEvents2onselectEvent;
- Fonload: THTMLInputTextElementEvents2onloadEvent;
- Fonerror: THTMLInputTextElementEvents2onerrorEvent;
- Fonabort: THTMLInputTextElementEvents2onabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLInputTextElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLInputTextElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLInputTextElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLInputTextElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLInputTextElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLInputTextElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLInputTextElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLInputTextElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLInputTextElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLInputTextElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLInputTextElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLInputTextElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLInputTextElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLInputTextElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLInputTextElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLInputTextElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLInputTextElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLInputTextElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLInputTextElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLInputTextElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLInputTextElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLInputTextElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLInputTextElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLInputTextElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLInputTextElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLInputTextElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLInputTextElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLInputTextElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLInputTextElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLInputTextElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLInputTextElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLInputTextElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLInputTextElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLInputTextElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLInputTextElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLInputTextElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLInputTextElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLInputTextElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLInputTextElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLInputTextElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLInputTextElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLInputTextElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLInputTextElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLInputTextElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLInputTextElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLInputTextElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLInputTextElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLInputTextElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLInputTextElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLInputTextElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLInputTextElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLInputTextElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLInputTextElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLInputTextElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLInputTextElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLInputTextElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLInputTextElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLInputTextElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLInputTextElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLInputTextElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLInputTextElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLInputTextElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onchange: THTMLInputTextElementEvents2onchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLInputTextElementEvents2onselectEvent read Fonselect write Fonselect;
- property onload: THTMLInputTextElementEvents2onloadEvent read Fonload write Fonload;
- property onerror: THTMLInputTextElementEvents2onerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLInputTextElementEvents2onabortEvent read Fonabort write Fonabort;
- end;
-
-
- //SinkEventsForwards//
- THTMLOptionButtonElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonchangeEvent = function(Sender: TObject): WordBool of object;
- THTMLOptionButtonElementEventsonselectEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonerrorEvent = procedure(Sender: TObject) of object;
- THTMLOptionButtonElementEventsonabortEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLOptionButtonElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- function Doonchange: WordBool; safecall;
- procedure Doonselect; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- procedure Doonabort; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLOptionButtonElementEventsonhelpEvent;
- Fonclick: THTMLOptionButtonElementEventsonclickEvent;
- Fondblclick: THTMLOptionButtonElementEventsondblclickEvent;
- Fonkeypress: THTMLOptionButtonElementEventsonkeypressEvent;
- Fonkeydown: THTMLOptionButtonElementEventsonkeydownEvent;
- Fonkeyup: THTMLOptionButtonElementEventsonkeyupEvent;
- Fonmouseout: THTMLOptionButtonElementEventsonmouseoutEvent;
- Fonmouseover: THTMLOptionButtonElementEventsonmouseoverEvent;
- Fonmousemove: THTMLOptionButtonElementEventsonmousemoveEvent;
- Fonmousedown: THTMLOptionButtonElementEventsonmousedownEvent;
- Fonmouseup: THTMLOptionButtonElementEventsonmouseupEvent;
- Fonselectstart: THTMLOptionButtonElementEventsonselectstartEvent;
- Fonfilterchange: THTMLOptionButtonElementEventsonfilterchangeEvent;
- Fondragstart: THTMLOptionButtonElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLOptionButtonElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLOptionButtonElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLOptionButtonElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLOptionButtonElementEventsonrowexitEvent;
- Fonrowenter: THTMLOptionButtonElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLOptionButtonElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLOptionButtonElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLOptionButtonElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLOptionButtonElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLOptionButtonElementEventsonpropertychangeEvent;
- Fonscroll: THTMLOptionButtonElementEventsonscrollEvent;
- Fonfocus: THTMLOptionButtonElementEventsonfocusEvent;
- Fonblur: THTMLOptionButtonElementEventsonblurEvent;
- Fonresize: THTMLOptionButtonElementEventsonresizeEvent;
- Fondrag: THTMLOptionButtonElementEventsondragEvent;
- Fondragend: THTMLOptionButtonElementEventsondragendEvent;
- Fondragenter: THTMLOptionButtonElementEventsondragenterEvent;
- Fondragover: THTMLOptionButtonElementEventsondragoverEvent;
- Fondragleave: THTMLOptionButtonElementEventsondragleaveEvent;
- Fondrop: THTMLOptionButtonElementEventsondropEvent;
- Fonbeforecut: THTMLOptionButtonElementEventsonbeforecutEvent;
- Foncut: THTMLOptionButtonElementEventsoncutEvent;
- Fonbeforecopy: THTMLOptionButtonElementEventsonbeforecopyEvent;
- Foncopy: THTMLOptionButtonElementEventsoncopyEvent;
- Fonbeforepaste: THTMLOptionButtonElementEventsonbeforepasteEvent;
- Fonpaste: THTMLOptionButtonElementEventsonpasteEvent;
- Foncontextmenu: THTMLOptionButtonElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLOptionButtonElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLOptionButtonElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLOptionButtonElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLOptionButtonElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLOptionButtonElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLOptionButtonElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLOptionButtonElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLOptionButtonElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLOptionButtonElementEventsonbeforeactivateEvent;
- Fonmove: THTMLOptionButtonElementEventsonmoveEvent;
- Foncontrolselect: THTMLOptionButtonElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLOptionButtonElementEventsonmovestartEvent;
- Fonmoveend: THTMLOptionButtonElementEventsonmoveendEvent;
- Fonresizestart: THTMLOptionButtonElementEventsonresizestartEvent;
- Fonresizeend: THTMLOptionButtonElementEventsonresizeendEvent;
- Fonmouseenter: THTMLOptionButtonElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLOptionButtonElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLOptionButtonElementEventsonmousewheelEvent;
- Fonactivate: THTMLOptionButtonElementEventsonactivateEvent;
- Fondeactivate: THTMLOptionButtonElementEventsondeactivateEvent;
- Fonfocusin: THTMLOptionButtonElementEventsonfocusinEvent;
- Fonfocusout: THTMLOptionButtonElementEventsonfocusoutEvent;
- Fonchange: THTMLOptionButtonElementEventsonchangeEvent;
- Fonselect: THTMLOptionButtonElementEventsonselectEvent;
- Fonload: THTMLOptionButtonElementEventsonloadEvent;
- Fonerror: THTMLOptionButtonElementEventsonerrorEvent;
- Fonabort: THTMLOptionButtonElementEventsonabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLOptionButtonElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLOptionButtonElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLOptionButtonElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLOptionButtonElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLOptionButtonElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLOptionButtonElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLOptionButtonElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLOptionButtonElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLOptionButtonElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLOptionButtonElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLOptionButtonElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLOptionButtonElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLOptionButtonElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLOptionButtonElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLOptionButtonElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLOptionButtonElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLOptionButtonElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLOptionButtonElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLOptionButtonElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLOptionButtonElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLOptionButtonElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLOptionButtonElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLOptionButtonElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLOptionButtonElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLOptionButtonElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLOptionButtonElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLOptionButtonElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLOptionButtonElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLOptionButtonElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLOptionButtonElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLOptionButtonElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLOptionButtonElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLOptionButtonElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLOptionButtonElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLOptionButtonElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLOptionButtonElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLOptionButtonElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLOptionButtonElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLOptionButtonElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLOptionButtonElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLOptionButtonElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLOptionButtonElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLOptionButtonElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLOptionButtonElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLOptionButtonElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLOptionButtonElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLOptionButtonElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLOptionButtonElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLOptionButtonElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLOptionButtonElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLOptionButtonElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLOptionButtonElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLOptionButtonElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLOptionButtonElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLOptionButtonElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLOptionButtonElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLOptionButtonElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLOptionButtonElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLOptionButtonElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLOptionButtonElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLOptionButtonElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLOptionButtonElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLOptionButtonElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onchange: THTMLOptionButtonElementEventsonchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLOptionButtonElementEventsonselectEvent read Fonselect write Fonselect;
- property onload: THTMLOptionButtonElementEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLOptionButtonElementEventsonerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLOptionButtonElementEventsonabortEvent read Fonabort write Fonabort;
- end;
-
-
- //SinkEventsForwards//
- THTMLButtonElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLButtonElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLButtonElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLButtonElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLButtonElementEventsonhelpEvent;
- Fonclick: THTMLButtonElementEventsonclickEvent;
- Fondblclick: THTMLButtonElementEventsondblclickEvent;
- Fonkeypress: THTMLButtonElementEventsonkeypressEvent;
- Fonkeydown: THTMLButtonElementEventsonkeydownEvent;
- Fonkeyup: THTMLButtonElementEventsonkeyupEvent;
- Fonmouseout: THTMLButtonElementEventsonmouseoutEvent;
- Fonmouseover: THTMLButtonElementEventsonmouseoverEvent;
- Fonmousemove: THTMLButtonElementEventsonmousemoveEvent;
- Fonmousedown: THTMLButtonElementEventsonmousedownEvent;
- Fonmouseup: THTMLButtonElementEventsonmouseupEvent;
- Fonselectstart: THTMLButtonElementEventsonselectstartEvent;
- Fonfilterchange: THTMLButtonElementEventsonfilterchangeEvent;
- Fondragstart: THTMLButtonElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLButtonElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLButtonElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLButtonElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLButtonElementEventsonrowexitEvent;
- Fonrowenter: THTMLButtonElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLButtonElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLButtonElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLButtonElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLButtonElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLButtonElementEventsonpropertychangeEvent;
- Fonscroll: THTMLButtonElementEventsonscrollEvent;
- Fonfocus: THTMLButtonElementEventsonfocusEvent;
- Fonblur: THTMLButtonElementEventsonblurEvent;
- Fonresize: THTMLButtonElementEventsonresizeEvent;
- Fondrag: THTMLButtonElementEventsondragEvent;
- Fondragend: THTMLButtonElementEventsondragendEvent;
- Fondragenter: THTMLButtonElementEventsondragenterEvent;
- Fondragover: THTMLButtonElementEventsondragoverEvent;
- Fondragleave: THTMLButtonElementEventsondragleaveEvent;
- Fondrop: THTMLButtonElementEventsondropEvent;
- Fonbeforecut: THTMLButtonElementEventsonbeforecutEvent;
- Foncut: THTMLButtonElementEventsoncutEvent;
- Fonbeforecopy: THTMLButtonElementEventsonbeforecopyEvent;
- Foncopy: THTMLButtonElementEventsoncopyEvent;
- Fonbeforepaste: THTMLButtonElementEventsonbeforepasteEvent;
- Fonpaste: THTMLButtonElementEventsonpasteEvent;
- Foncontextmenu: THTMLButtonElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLButtonElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLButtonElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLButtonElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLButtonElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLButtonElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLButtonElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLButtonElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLButtonElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLButtonElementEventsonbeforeactivateEvent;
- Fonmove: THTMLButtonElementEventsonmoveEvent;
- Foncontrolselect: THTMLButtonElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLButtonElementEventsonmovestartEvent;
- Fonmoveend: THTMLButtonElementEventsonmoveendEvent;
- Fonresizestart: THTMLButtonElementEventsonresizestartEvent;
- Fonresizeend: THTMLButtonElementEventsonresizeendEvent;
- Fonmouseenter: THTMLButtonElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLButtonElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLButtonElementEventsonmousewheelEvent;
- Fonactivate: THTMLButtonElementEventsonactivateEvent;
- Fondeactivate: THTMLButtonElementEventsondeactivateEvent;
- Fonfocusin: THTMLButtonElementEventsonfocusinEvent;
- Fonfocusout: THTMLButtonElementEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLButtonElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLButtonElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLButtonElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLButtonElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLButtonElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLButtonElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLButtonElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLButtonElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLButtonElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLButtonElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLButtonElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLButtonElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLButtonElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLButtonElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLButtonElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLButtonElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLButtonElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLButtonElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLButtonElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLButtonElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLButtonElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLButtonElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLButtonElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLButtonElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLButtonElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLButtonElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLButtonElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLButtonElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLButtonElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLButtonElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLButtonElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLButtonElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLButtonElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLButtonElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLButtonElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLButtonElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLButtonElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLButtonElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLButtonElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLButtonElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLButtonElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLButtonElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLButtonElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLButtonElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLButtonElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLButtonElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLButtonElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLButtonElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLButtonElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLButtonElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLButtonElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLButtonElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLButtonElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLButtonElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLButtonElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLButtonElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLButtonElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLButtonElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLButtonElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLButtonElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLButtonElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLButtonElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLButtonElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLButtonElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLButtonElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLButtonElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLButtonElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLButtonElementEvents2onhelpEvent;
- Fonclick: THTMLButtonElementEvents2onclickEvent;
- Fondblclick: THTMLButtonElementEvents2ondblclickEvent;
- Fonkeypress: THTMLButtonElementEvents2onkeypressEvent;
- Fonkeydown: THTMLButtonElementEvents2onkeydownEvent;
- Fonkeyup: THTMLButtonElementEvents2onkeyupEvent;
- Fonmouseout: THTMLButtonElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLButtonElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLButtonElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLButtonElementEvents2onmousedownEvent;
- Fonmouseup: THTMLButtonElementEvents2onmouseupEvent;
- Fonselectstart: THTMLButtonElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLButtonElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLButtonElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLButtonElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLButtonElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLButtonElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLButtonElementEvents2onrowexitEvent;
- Fonrowenter: THTMLButtonElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLButtonElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLButtonElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLButtonElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLButtonElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLButtonElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLButtonElementEvents2onscrollEvent;
- Fonfocus: THTMLButtonElementEvents2onfocusEvent;
- Fonblur: THTMLButtonElementEvents2onblurEvent;
- Fonresize: THTMLButtonElementEvents2onresizeEvent;
- Fondrag: THTMLButtonElementEvents2ondragEvent;
- Fondragend: THTMLButtonElementEvents2ondragendEvent;
- Fondragenter: THTMLButtonElementEvents2ondragenterEvent;
- Fondragover: THTMLButtonElementEvents2ondragoverEvent;
- Fondragleave: THTMLButtonElementEvents2ondragleaveEvent;
- Fondrop: THTMLButtonElementEvents2ondropEvent;
- Fonbeforecut: THTMLButtonElementEvents2onbeforecutEvent;
- Foncut: THTMLButtonElementEvents2oncutEvent;
- Fonbeforecopy: THTMLButtonElementEvents2onbeforecopyEvent;
- Foncopy: THTMLButtonElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLButtonElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLButtonElementEvents2onpasteEvent;
- Foncontextmenu: THTMLButtonElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLButtonElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLButtonElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLButtonElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLButtonElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLButtonElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLButtonElementEvents2onpageEvent;
- Fonmouseenter: THTMLButtonElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLButtonElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLButtonElementEvents2onactivateEvent;
- Fondeactivate: THTMLButtonElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLButtonElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLButtonElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLButtonElementEvents2onfocusinEvent;
- Fonfocusout: THTMLButtonElementEvents2onfocusoutEvent;
- Fonmove: THTMLButtonElementEvents2onmoveEvent;
- Foncontrolselect: THTMLButtonElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLButtonElementEvents2onmovestartEvent;
- Fonmoveend: THTMLButtonElementEvents2onmoveendEvent;
- Fonresizestart: THTMLButtonElementEvents2onresizestartEvent;
- Fonresizeend: THTMLButtonElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLButtonElementEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLButtonElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLButtonElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLButtonElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLButtonElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLButtonElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLButtonElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLButtonElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLButtonElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLButtonElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLButtonElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLButtonElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLButtonElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLButtonElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLButtonElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLButtonElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLButtonElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLButtonElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLButtonElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLButtonElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLButtonElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLButtonElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLButtonElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLButtonElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLButtonElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLButtonElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLButtonElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLButtonElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLButtonElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLButtonElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLButtonElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLButtonElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLButtonElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLButtonElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLButtonElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLButtonElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLButtonElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLButtonElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLButtonElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLButtonElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLButtonElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLButtonElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLButtonElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLButtonElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLButtonElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLButtonElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLButtonElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLButtonElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLButtonElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLButtonElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLButtonElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLButtonElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLButtonElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLButtonElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLButtonElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLButtonElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLButtonElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLButtonElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLButtonElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLButtonElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLButtonElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLButtonElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLButtonElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLMarqueeElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLMarqueeElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonchangeEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonselectEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonbounceEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonfinishEvent = procedure(Sender: TObject) of object;
- THTMLMarqueeElementEventsonstartEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLMarqueeElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonchange; safecall;
- procedure Doonselect; safecall;
- procedure Doonbounce; safecall;
- procedure Doonfinish; safecall;
- procedure Doonstart; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLMarqueeElementEventsonhelpEvent;
- Fonclick: THTMLMarqueeElementEventsonclickEvent;
- Fondblclick: THTMLMarqueeElementEventsondblclickEvent;
- Fonkeypress: THTMLMarqueeElementEventsonkeypressEvent;
- Fonkeydown: THTMLMarqueeElementEventsonkeydownEvent;
- Fonkeyup: THTMLMarqueeElementEventsonkeyupEvent;
- Fonmouseout: THTMLMarqueeElementEventsonmouseoutEvent;
- Fonmouseover: THTMLMarqueeElementEventsonmouseoverEvent;
- Fonmousemove: THTMLMarqueeElementEventsonmousemoveEvent;
- Fonmousedown: THTMLMarqueeElementEventsonmousedownEvent;
- Fonmouseup: THTMLMarqueeElementEventsonmouseupEvent;
- Fonselectstart: THTMLMarqueeElementEventsonselectstartEvent;
- Fonfilterchange: THTMLMarqueeElementEventsonfilterchangeEvent;
- Fondragstart: THTMLMarqueeElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLMarqueeElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLMarqueeElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLMarqueeElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLMarqueeElementEventsonrowexitEvent;
- Fonrowenter: THTMLMarqueeElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLMarqueeElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLMarqueeElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLMarqueeElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLMarqueeElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLMarqueeElementEventsonpropertychangeEvent;
- Fonscroll: THTMLMarqueeElementEventsonscrollEvent;
- Fonfocus: THTMLMarqueeElementEventsonfocusEvent;
- Fonblur: THTMLMarqueeElementEventsonblurEvent;
- Fonresize: THTMLMarqueeElementEventsonresizeEvent;
- Fondrag: THTMLMarqueeElementEventsondragEvent;
- Fondragend: THTMLMarqueeElementEventsondragendEvent;
- Fondragenter: THTMLMarqueeElementEventsondragenterEvent;
- Fondragover: THTMLMarqueeElementEventsondragoverEvent;
- Fondragleave: THTMLMarqueeElementEventsondragleaveEvent;
- Fondrop: THTMLMarqueeElementEventsondropEvent;
- Fonbeforecut: THTMLMarqueeElementEventsonbeforecutEvent;
- Foncut: THTMLMarqueeElementEventsoncutEvent;
- Fonbeforecopy: THTMLMarqueeElementEventsonbeforecopyEvent;
- Foncopy: THTMLMarqueeElementEventsoncopyEvent;
- Fonbeforepaste: THTMLMarqueeElementEventsonbeforepasteEvent;
- Fonpaste: THTMLMarqueeElementEventsonpasteEvent;
- Foncontextmenu: THTMLMarqueeElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLMarqueeElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLMarqueeElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLMarqueeElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLMarqueeElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLMarqueeElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLMarqueeElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLMarqueeElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLMarqueeElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLMarqueeElementEventsonbeforeactivateEvent;
- Fonmove: THTMLMarqueeElementEventsonmoveEvent;
- Foncontrolselect: THTMLMarqueeElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLMarqueeElementEventsonmovestartEvent;
- Fonmoveend: THTMLMarqueeElementEventsonmoveendEvent;
- Fonresizestart: THTMLMarqueeElementEventsonresizestartEvent;
- Fonresizeend: THTMLMarqueeElementEventsonresizeendEvent;
- Fonmouseenter: THTMLMarqueeElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLMarqueeElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLMarqueeElementEventsonmousewheelEvent;
- Fonactivate: THTMLMarqueeElementEventsonactivateEvent;
- Fondeactivate: THTMLMarqueeElementEventsondeactivateEvent;
- Fonfocusin: THTMLMarqueeElementEventsonfocusinEvent;
- Fonfocusout: THTMLMarqueeElementEventsonfocusoutEvent;
- Fonchange: THTMLMarqueeElementEventsonchangeEvent;
- Fonselect: THTMLMarqueeElementEventsonselectEvent;
- Fonbounce: THTMLMarqueeElementEventsonbounceEvent;
- Fonfinish: THTMLMarqueeElementEventsonfinishEvent;
- Fonstart: THTMLMarqueeElementEventsonstartEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLMarqueeElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLMarqueeElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLMarqueeElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLMarqueeElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLMarqueeElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLMarqueeElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLMarqueeElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLMarqueeElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLMarqueeElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLMarqueeElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLMarqueeElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLMarqueeElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLMarqueeElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLMarqueeElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLMarqueeElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLMarqueeElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLMarqueeElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLMarqueeElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLMarqueeElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLMarqueeElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLMarqueeElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLMarqueeElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLMarqueeElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLMarqueeElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLMarqueeElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLMarqueeElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLMarqueeElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLMarqueeElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLMarqueeElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLMarqueeElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLMarqueeElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLMarqueeElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLMarqueeElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLMarqueeElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLMarqueeElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLMarqueeElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLMarqueeElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLMarqueeElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLMarqueeElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLMarqueeElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLMarqueeElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLMarqueeElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLMarqueeElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLMarqueeElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLMarqueeElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLMarqueeElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLMarqueeElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLMarqueeElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLMarqueeElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLMarqueeElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLMarqueeElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLMarqueeElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLMarqueeElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLMarqueeElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLMarqueeElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLMarqueeElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLMarqueeElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLMarqueeElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLMarqueeElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLMarqueeElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLMarqueeElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLMarqueeElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLMarqueeElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onchange: THTMLMarqueeElementEventsonchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLMarqueeElementEventsonselectEvent read Fonselect write Fonselect;
- property onbounce: THTMLMarqueeElementEventsonbounceEvent read Fonbounce write Fonbounce;
- property onfinish: THTMLMarqueeElementEventsonfinishEvent read Fonfinish write Fonfinish;
- property onstart: THTMLMarqueeElementEventsonstartEvent read Fonstart write Fonstart;
- end;
-
-
- //SinkEventsForwards//
- THTMLMarqueeElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMarqueeElementEvents2onchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onselectEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onbounceEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onfinishEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMarqueeElementEvents2onstartEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLMarqueeElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonselect(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonbounce(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfinish(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonstart(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLMarqueeElementEvents2onhelpEvent;
- Fonclick: THTMLMarqueeElementEvents2onclickEvent;
- Fondblclick: THTMLMarqueeElementEvents2ondblclickEvent;
- Fonkeypress: THTMLMarqueeElementEvents2onkeypressEvent;
- Fonkeydown: THTMLMarqueeElementEvents2onkeydownEvent;
- Fonkeyup: THTMLMarqueeElementEvents2onkeyupEvent;
- Fonmouseout: THTMLMarqueeElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLMarqueeElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLMarqueeElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLMarqueeElementEvents2onmousedownEvent;
- Fonmouseup: THTMLMarqueeElementEvents2onmouseupEvent;
- Fonselectstart: THTMLMarqueeElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLMarqueeElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLMarqueeElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLMarqueeElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLMarqueeElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLMarqueeElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLMarqueeElementEvents2onrowexitEvent;
- Fonrowenter: THTMLMarqueeElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLMarqueeElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLMarqueeElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLMarqueeElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLMarqueeElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLMarqueeElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLMarqueeElementEvents2onscrollEvent;
- Fonfocus: THTMLMarqueeElementEvents2onfocusEvent;
- Fonblur: THTMLMarqueeElementEvents2onblurEvent;
- Fonresize: THTMLMarqueeElementEvents2onresizeEvent;
- Fondrag: THTMLMarqueeElementEvents2ondragEvent;
- Fondragend: THTMLMarqueeElementEvents2ondragendEvent;
- Fondragenter: THTMLMarqueeElementEvents2ondragenterEvent;
- Fondragover: THTMLMarqueeElementEvents2ondragoverEvent;
- Fondragleave: THTMLMarqueeElementEvents2ondragleaveEvent;
- Fondrop: THTMLMarqueeElementEvents2ondropEvent;
- Fonbeforecut: THTMLMarqueeElementEvents2onbeforecutEvent;
- Foncut: THTMLMarqueeElementEvents2oncutEvent;
- Fonbeforecopy: THTMLMarqueeElementEvents2onbeforecopyEvent;
- Foncopy: THTMLMarqueeElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLMarqueeElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLMarqueeElementEvents2onpasteEvent;
- Foncontextmenu: THTMLMarqueeElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLMarqueeElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLMarqueeElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLMarqueeElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLMarqueeElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLMarqueeElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLMarqueeElementEvents2onpageEvent;
- Fonmouseenter: THTMLMarqueeElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLMarqueeElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLMarqueeElementEvents2onactivateEvent;
- Fondeactivate: THTMLMarqueeElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLMarqueeElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLMarqueeElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLMarqueeElementEvents2onfocusinEvent;
- Fonfocusout: THTMLMarqueeElementEvents2onfocusoutEvent;
- Fonmove: THTMLMarqueeElementEvents2onmoveEvent;
- Foncontrolselect: THTMLMarqueeElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLMarqueeElementEvents2onmovestartEvent;
- Fonmoveend: THTMLMarqueeElementEvents2onmoveendEvent;
- Fonresizestart: THTMLMarqueeElementEvents2onresizestartEvent;
- Fonresizeend: THTMLMarqueeElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLMarqueeElementEvents2onmousewheelEvent;
- Fonchange: THTMLMarqueeElementEvents2onchangeEvent;
- Fonselect: THTMLMarqueeElementEvents2onselectEvent;
- Fonbounce: THTMLMarqueeElementEvents2onbounceEvent;
- Fonfinish: THTMLMarqueeElementEvents2onfinishEvent;
- Fonstart: THTMLMarqueeElementEvents2onstartEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLMarqueeElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLMarqueeElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLMarqueeElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLMarqueeElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLMarqueeElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLMarqueeElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLMarqueeElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLMarqueeElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLMarqueeElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLMarqueeElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLMarqueeElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLMarqueeElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLMarqueeElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLMarqueeElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLMarqueeElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLMarqueeElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLMarqueeElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLMarqueeElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLMarqueeElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLMarqueeElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLMarqueeElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLMarqueeElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLMarqueeElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLMarqueeElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLMarqueeElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLMarqueeElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLMarqueeElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLMarqueeElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLMarqueeElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLMarqueeElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLMarqueeElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLMarqueeElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLMarqueeElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLMarqueeElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLMarqueeElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLMarqueeElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLMarqueeElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLMarqueeElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLMarqueeElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLMarqueeElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLMarqueeElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLMarqueeElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLMarqueeElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLMarqueeElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLMarqueeElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLMarqueeElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLMarqueeElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLMarqueeElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLMarqueeElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLMarqueeElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLMarqueeElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLMarqueeElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLMarqueeElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLMarqueeElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLMarqueeElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLMarqueeElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLMarqueeElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLMarqueeElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLMarqueeElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLMarqueeElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLMarqueeElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLMarqueeElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onchange: THTMLMarqueeElementEvents2onchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLMarqueeElementEvents2onselectEvent read Fonselect write Fonselect;
- property onbounce: THTMLMarqueeElementEvents2onbounceEvent read Fonbounce write Fonbounce;
- property onfinish: THTMLMarqueeElementEvents2onfinishEvent read Fonfinish write Fonfinish;
- property onstart: THTMLMarqueeElementEvents2onstartEvent read Fonstart write Fonstart;
- end;
-
-
- //SinkEventsForwards//
- THTMLWindowEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonunloadEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLWindowEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonerrorEvent = procedure(Sender: TObject; const description: WideString; const url: WideString; line: Integer) of object;
- THTMLWindowEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonbeforeunloadEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonbeforeprintEvent = procedure(Sender: TObject) of object;
- THTMLWindowEventsonafterprintEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLWindowEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- procedure Doonload; safecall;
- procedure Doonunload; safecall;
- function Doonhelp: WordBool; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonerror(const description: WideString; const url: WideString; line: Integer); safecall;
- procedure Doonresize; safecall;
- procedure Doonscroll; safecall;
- procedure Doonbeforeunload; safecall;
- procedure Doonbeforeprint; safecall;
- procedure Doonafterprint; safecall;
- protected
- //SinkEventsProtected//
- Fonload: THTMLWindowEventsonloadEvent;
- Fonunload: THTMLWindowEventsonunloadEvent;
- Fonhelp: THTMLWindowEventsonhelpEvent;
- Fonfocus: THTMLWindowEventsonfocusEvent;
- Fonblur: THTMLWindowEventsonblurEvent;
- Fonerror: THTMLWindowEventsonerrorEvent;
- Fonresize: THTMLWindowEventsonresizeEvent;
- Fonscroll: THTMLWindowEventsonscrollEvent;
- Fonbeforeunload: THTMLWindowEventsonbeforeunloadEvent;
- Fonbeforeprint: THTMLWindowEventsonbeforeprintEvent;
- Fonafterprint: THTMLWindowEventsonafterprintEvent;
- published
- //SinkEventsPublished//
- property onload: THTMLWindowEventsonloadEvent read Fonload write Fonload;
- property onunload: THTMLWindowEventsonunloadEvent read Fonunload write Fonunload;
- property onhelp: THTMLWindowEventsonhelpEvent read Fonhelp write Fonhelp;
- property onfocus: THTMLWindowEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLWindowEventsonblurEvent read Fonblur write Fonblur;
- property onerror: THTMLWindowEventsonerrorEvent read Fonerror write Fonerror;
- property onresize: THTMLWindowEventsonresizeEvent read Fonresize write Fonresize;
- property onscroll: THTMLWindowEventsonscrollEvent read Fonscroll write Fonscroll;
- property onbeforeunload: THTMLWindowEventsonbeforeunloadEvent read Fonbeforeunload write Fonbeforeunload;
- property onbeforeprint: THTMLWindowEventsonbeforeprintEvent read Fonbeforeprint write Fonbeforeprint;
- property onafterprint: THTMLWindowEventsonafterprintEvent read Fonafterprint write Fonafterprint;
- end;
-
-
- //SinkEventsForwards//
- THTMLWindowEvents2onloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onunloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLWindowEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onerrorEvent = procedure(Sender: TObject; const description: WideString; const url: WideString; line: Integer) of object;
- THTMLWindowEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onbeforeunloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onbeforeprintEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLWindowEvents2onafterprintEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLWindowEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- procedure Doonload(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonunload(const pEvtObj: IHTMLEventObj); safecall;
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonerror(const description: WideString; const url: WideString; line: Integer); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonbeforeunload(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonbeforeprint(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonafterprint(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonload: THTMLWindowEvents2onloadEvent;
- Fonunload: THTMLWindowEvents2onunloadEvent;
- Fonhelp: THTMLWindowEvents2onhelpEvent;
- Fonfocus: THTMLWindowEvents2onfocusEvent;
- Fonblur: THTMLWindowEvents2onblurEvent;
- Fonerror: THTMLWindowEvents2onerrorEvent;
- Fonresize: THTMLWindowEvents2onresizeEvent;
- Fonscroll: THTMLWindowEvents2onscrollEvent;
- Fonbeforeunload: THTMLWindowEvents2onbeforeunloadEvent;
- Fonbeforeprint: THTMLWindowEvents2onbeforeprintEvent;
- Fonafterprint: THTMLWindowEvents2onafterprintEvent;
- published
- //SinkEventsPublished//
- property onload: THTMLWindowEvents2onloadEvent read Fonload write Fonload;
- property onunload: THTMLWindowEvents2onunloadEvent read Fonunload write Fonunload;
- property onhelp: THTMLWindowEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onfocus: THTMLWindowEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLWindowEvents2onblurEvent read Fonblur write Fonblur;
- property onerror: THTMLWindowEvents2onerrorEvent read Fonerror write Fonerror;
- property onresize: THTMLWindowEvents2onresizeEvent read Fonresize write Fonresize;
- property onscroll: THTMLWindowEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onbeforeunload: THTMLWindowEvents2onbeforeunloadEvent read Fonbeforeunload write Fonbeforeunload;
- property onbeforeprint: THTMLWindowEvents2onbeforeprintEvent read Fonbeforeprint write Fonbeforeprint;
- property onafterprint: THTMLWindowEvents2onafterprintEvent read Fonafterprint write Fonafterprint;
- end;
-
-
- //SinkEventsForwards//
- THTMLDocumentEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonstopEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonselectionchangeEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLDocumentEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLDocumentEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLDocumentEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmouseup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonreadystatechange; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonselectstart: WordBool; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- function Doonstop: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonselectionchange; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLDocumentEventsonhelpEvent;
- Fonclick: THTMLDocumentEventsonclickEvent;
- Fondblclick: THTMLDocumentEventsondblclickEvent;
- Fonkeydown: THTMLDocumentEventsonkeydownEvent;
- Fonkeyup: THTMLDocumentEventsonkeyupEvent;
- Fonkeypress: THTMLDocumentEventsonkeypressEvent;
- Fonmousedown: THTMLDocumentEventsonmousedownEvent;
- Fonmousemove: THTMLDocumentEventsonmousemoveEvent;
- Fonmouseup: THTMLDocumentEventsonmouseupEvent;
- Fonmouseout: THTMLDocumentEventsonmouseoutEvent;
- Fonmouseover: THTMLDocumentEventsonmouseoverEvent;
- Fonreadystatechange: THTMLDocumentEventsonreadystatechangeEvent;
- Fonbeforeupdate: THTMLDocumentEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLDocumentEventsonafterupdateEvent;
- Fonrowexit: THTMLDocumentEventsonrowexitEvent;
- Fonrowenter: THTMLDocumentEventsonrowenterEvent;
- Fondragstart: THTMLDocumentEventsondragstartEvent;
- Fonselectstart: THTMLDocumentEventsonselectstartEvent;
- Fonerrorupdate: THTMLDocumentEventsonerrorupdateEvent;
- Foncontextmenu: THTMLDocumentEventsoncontextmenuEvent;
- Fonstop: THTMLDocumentEventsonstopEvent;
- Fonrowsdelete: THTMLDocumentEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLDocumentEventsonrowsinsertedEvent;
- Foncellchange: THTMLDocumentEventsoncellchangeEvent;
- Fonpropertychange: THTMLDocumentEventsonpropertychangeEvent;
- Fondatasetchanged: THTMLDocumentEventsondatasetchangedEvent;
- Fondataavailable: THTMLDocumentEventsondataavailableEvent;
- Fondatasetcomplete: THTMLDocumentEventsondatasetcompleteEvent;
- Fonbeforeeditfocus: THTMLDocumentEventsonbeforeeditfocusEvent;
- Fonselectionchange: THTMLDocumentEventsonselectionchangeEvent;
- Foncontrolselect: THTMLDocumentEventsoncontrolselectEvent;
- Fonmousewheel: THTMLDocumentEventsonmousewheelEvent;
- Fonfocusin: THTMLDocumentEventsonfocusinEvent;
- Fonfocusout: THTMLDocumentEventsonfocusoutEvent;
- Fonactivate: THTMLDocumentEventsonactivateEvent;
- Fondeactivate: THTMLDocumentEventsondeactivateEvent;
- Fonbeforeactivate: THTMLDocumentEventsonbeforeactivateEvent;
- Fonbeforedeactivate: THTMLDocumentEventsonbeforedeactivateEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLDocumentEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLDocumentEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLDocumentEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeydown: THTMLDocumentEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLDocumentEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onkeypress: THTMLDocumentEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onmousedown: THTMLDocumentEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmousemove: THTMLDocumentEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmouseup: THTMLDocumentEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onmouseout: THTMLDocumentEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLDocumentEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onreadystatechange: THTMLDocumentEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeupdate: THTMLDocumentEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLDocumentEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onrowexit: THTMLDocumentEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLDocumentEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondragstart: THTMLDocumentEventsondragstartEvent read Fondragstart write Fondragstart;
- property onselectstart: THTMLDocumentEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onerrorupdate: THTMLDocumentEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property oncontextmenu: THTMLDocumentEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onstop: THTMLDocumentEventsonstopEvent read Fonstop write Fonstop;
- property onrowsdelete: THTMLDocumentEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLDocumentEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLDocumentEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onpropertychange: THTMLDocumentEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property ondatasetchanged: THTMLDocumentEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLDocumentEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLDocumentEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onbeforeeditfocus: THTMLDocumentEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onselectionchange: THTMLDocumentEventsonselectionchangeEvent read Fonselectionchange write Fonselectionchange;
- property oncontrolselect: THTMLDocumentEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmousewheel: THTMLDocumentEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onfocusin: THTMLDocumentEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLDocumentEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onactivate: THTMLDocumentEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLDocumentEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforeactivate: THTMLDocumentEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onbeforedeactivate: THTMLDocumentEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- end;
-
-
- //SinkEventsForwards//
- THTMLDocumentEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onstopEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onbeforeeditfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onselectionchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLDocumentEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLDocumentEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLDocumentEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonstop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonbeforeeditfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonselectionchange(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLDocumentEvents2onhelpEvent;
- Fonclick: THTMLDocumentEvents2onclickEvent;
- Fondblclick: THTMLDocumentEvents2ondblclickEvent;
- Fonkeydown: THTMLDocumentEvents2onkeydownEvent;
- Fonkeyup: THTMLDocumentEvents2onkeyupEvent;
- Fonkeypress: THTMLDocumentEvents2onkeypressEvent;
- Fonmousedown: THTMLDocumentEvents2onmousedownEvent;
- Fonmousemove: THTMLDocumentEvents2onmousemoveEvent;
- Fonmouseup: THTMLDocumentEvents2onmouseupEvent;
- Fonmouseout: THTMLDocumentEvents2onmouseoutEvent;
- Fonmouseover: THTMLDocumentEvents2onmouseoverEvent;
- Fonreadystatechange: THTMLDocumentEvents2onreadystatechangeEvent;
- Fonbeforeupdate: THTMLDocumentEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLDocumentEvents2onafterupdateEvent;
- Fonrowexit: THTMLDocumentEvents2onrowexitEvent;
- Fonrowenter: THTMLDocumentEvents2onrowenterEvent;
- Fondragstart: THTMLDocumentEvents2ondragstartEvent;
- Fonselectstart: THTMLDocumentEvents2onselectstartEvent;
- Fonerrorupdate: THTMLDocumentEvents2onerrorupdateEvent;
- Foncontextmenu: THTMLDocumentEvents2oncontextmenuEvent;
- Fonstop: THTMLDocumentEvents2onstopEvent;
- Fonrowsdelete: THTMLDocumentEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLDocumentEvents2onrowsinsertedEvent;
- Foncellchange: THTMLDocumentEvents2oncellchangeEvent;
- Fonpropertychange: THTMLDocumentEvents2onpropertychangeEvent;
- Fondatasetchanged: THTMLDocumentEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLDocumentEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLDocumentEvents2ondatasetcompleteEvent;
- Fonbeforeeditfocus: THTMLDocumentEvents2onbeforeeditfocusEvent;
- Fonselectionchange: THTMLDocumentEvents2onselectionchangeEvent;
- Foncontrolselect: THTMLDocumentEvents2oncontrolselectEvent;
- Fonmousewheel: THTMLDocumentEvents2onmousewheelEvent;
- Fonfocusin: THTMLDocumentEvents2onfocusinEvent;
- Fonfocusout: THTMLDocumentEvents2onfocusoutEvent;
- Fonactivate: THTMLDocumentEvents2onactivateEvent;
- Fondeactivate: THTMLDocumentEvents2ondeactivateEvent;
- Fonbeforeactivate: THTMLDocumentEvents2onbeforeactivateEvent;
- Fonbeforedeactivate: THTMLDocumentEvents2onbeforedeactivateEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLDocumentEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLDocumentEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLDocumentEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeydown: THTMLDocumentEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLDocumentEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onkeypress: THTMLDocumentEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onmousedown: THTMLDocumentEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmousemove: THTMLDocumentEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmouseup: THTMLDocumentEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onmouseout: THTMLDocumentEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLDocumentEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onreadystatechange: THTMLDocumentEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeupdate: THTMLDocumentEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLDocumentEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onrowexit: THTMLDocumentEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLDocumentEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondragstart: THTMLDocumentEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onselectstart: THTMLDocumentEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onerrorupdate: THTMLDocumentEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property oncontextmenu: THTMLDocumentEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onstop: THTMLDocumentEvents2onstopEvent read Fonstop write Fonstop;
- property onrowsdelete: THTMLDocumentEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLDocumentEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLDocumentEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onpropertychange: THTMLDocumentEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property ondatasetchanged: THTMLDocumentEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLDocumentEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLDocumentEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onbeforeeditfocus: THTMLDocumentEvents2onbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onselectionchange: THTMLDocumentEvents2onselectionchangeEvent read Fonselectionchange write Fonselectionchange;
- property oncontrolselect: THTMLDocumentEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmousewheel: THTMLDocumentEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onfocusin: THTMLDocumentEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLDocumentEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onactivate: THTMLDocumentEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLDocumentEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforeactivate: THTMLDocumentEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onbeforedeactivate: THTMLDocumentEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- end;
-
-
- //SinkEventsForwards//
- TDWebBridgeEventsonscriptleteventEvent = procedure(Sender: TObject; const name: WideString; eventData: OleVariant) of object;
- TDWebBridgeEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- TDWebBridgeEventsonclickEvent = function(Sender: TObject): WordBool of object;
- TDWebBridgeEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- TDWebBridgeEventsonkeydownEvent = procedure(Sender: TObject) of object;
- TDWebBridgeEventsonkeyupEvent = procedure(Sender: TObject) of object;
- TDWebBridgeEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- TDWebBridgeEventsonmousedownEvent = procedure(Sender: TObject) of object;
- TDWebBridgeEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- TDWebBridgeEventsonmouseupEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLDWebBridgeEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- procedure Doonscriptletevent(const name: WideString; eventData: OleVariant); safecall;
- procedure Doonreadystatechange; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmouseup; safecall;
- protected
- //SinkEventsProtected//
- Fonscriptletevent: TDWebBridgeEventsonscriptleteventEvent;
- Fonreadystatechange: TDWebBridgeEventsonreadystatechangeEvent;
- Fonclick: TDWebBridgeEventsonclickEvent;
- Fondblclick: TDWebBridgeEventsondblclickEvent;
- Fonkeydown: TDWebBridgeEventsonkeydownEvent;
- Fonkeyup: TDWebBridgeEventsonkeyupEvent;
- Fonkeypress: TDWebBridgeEventsonkeypressEvent;
- Fonmousedown: TDWebBridgeEventsonmousedownEvent;
- Fonmousemove: TDWebBridgeEventsonmousemoveEvent;
- Fonmouseup: TDWebBridgeEventsonmouseupEvent;
- published
- //SinkEventsPublished//
- property onscriptletevent: TDWebBridgeEventsonscriptleteventEvent read Fonscriptletevent write Fonscriptletevent;
- property onreadystatechange: TDWebBridgeEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onclick: TDWebBridgeEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: TDWebBridgeEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeydown: TDWebBridgeEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: TDWebBridgeEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onkeypress: TDWebBridgeEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onmousedown: TDWebBridgeEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmousemove: TDWebBridgeEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmouseup: TDWebBridgeEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- end;
-
-
- //SinkEventsForwards//
- THTMLControlElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLControlElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLControlElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLControlElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLControlElementEventsonhelpEvent;
- Fonclick: THTMLControlElementEventsonclickEvent;
- Fondblclick: THTMLControlElementEventsondblclickEvent;
- Fonkeypress: THTMLControlElementEventsonkeypressEvent;
- Fonkeydown: THTMLControlElementEventsonkeydownEvent;
- Fonkeyup: THTMLControlElementEventsonkeyupEvent;
- Fonmouseout: THTMLControlElementEventsonmouseoutEvent;
- Fonmouseover: THTMLControlElementEventsonmouseoverEvent;
- Fonmousemove: THTMLControlElementEventsonmousemoveEvent;
- Fonmousedown: THTMLControlElementEventsonmousedownEvent;
- Fonmouseup: THTMLControlElementEventsonmouseupEvent;
- Fonselectstart: THTMLControlElementEventsonselectstartEvent;
- Fonfilterchange: THTMLControlElementEventsonfilterchangeEvent;
- Fondragstart: THTMLControlElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLControlElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLControlElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLControlElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLControlElementEventsonrowexitEvent;
- Fonrowenter: THTMLControlElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLControlElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLControlElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLControlElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLControlElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLControlElementEventsonpropertychangeEvent;
- Fonscroll: THTMLControlElementEventsonscrollEvent;
- Fonfocus: THTMLControlElementEventsonfocusEvent;
- Fonblur: THTMLControlElementEventsonblurEvent;
- Fonresize: THTMLControlElementEventsonresizeEvent;
- Fondrag: THTMLControlElementEventsondragEvent;
- Fondragend: THTMLControlElementEventsondragendEvent;
- Fondragenter: THTMLControlElementEventsondragenterEvent;
- Fondragover: THTMLControlElementEventsondragoverEvent;
- Fondragleave: THTMLControlElementEventsondragleaveEvent;
- Fondrop: THTMLControlElementEventsondropEvent;
- Fonbeforecut: THTMLControlElementEventsonbeforecutEvent;
- Foncut: THTMLControlElementEventsoncutEvent;
- Fonbeforecopy: THTMLControlElementEventsonbeforecopyEvent;
- Foncopy: THTMLControlElementEventsoncopyEvent;
- Fonbeforepaste: THTMLControlElementEventsonbeforepasteEvent;
- Fonpaste: THTMLControlElementEventsonpasteEvent;
- Foncontextmenu: THTMLControlElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLControlElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLControlElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLControlElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLControlElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLControlElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLControlElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLControlElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLControlElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLControlElementEventsonbeforeactivateEvent;
- Fonmove: THTMLControlElementEventsonmoveEvent;
- Foncontrolselect: THTMLControlElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLControlElementEventsonmovestartEvent;
- Fonmoveend: THTMLControlElementEventsonmoveendEvent;
- Fonresizestart: THTMLControlElementEventsonresizestartEvent;
- Fonresizeend: THTMLControlElementEventsonresizeendEvent;
- Fonmouseenter: THTMLControlElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLControlElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLControlElementEventsonmousewheelEvent;
- Fonactivate: THTMLControlElementEventsonactivateEvent;
- Fondeactivate: THTMLControlElementEventsondeactivateEvent;
- Fonfocusin: THTMLControlElementEventsonfocusinEvent;
- Fonfocusout: THTMLControlElementEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLControlElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLControlElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLControlElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLControlElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLControlElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLControlElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLControlElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLControlElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLControlElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLControlElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLControlElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLControlElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLControlElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLControlElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLControlElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLControlElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLControlElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLControlElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLControlElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLControlElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLControlElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLControlElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLControlElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLControlElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLControlElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLControlElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLControlElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLControlElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLControlElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLControlElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLControlElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLControlElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLControlElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLControlElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLControlElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLControlElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLControlElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLControlElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLControlElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLControlElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLControlElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLControlElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLControlElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLControlElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLControlElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLControlElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLControlElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLControlElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLControlElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLControlElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLControlElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLControlElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLControlElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLControlElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLControlElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLControlElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLControlElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLControlElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLControlElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLControlElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLControlElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLControlElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLControlElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLControlElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLControlElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLControlElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLControlElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLControlElementEvents2onhelpEvent;
- Fonclick: THTMLControlElementEvents2onclickEvent;
- Fondblclick: THTMLControlElementEvents2ondblclickEvent;
- Fonkeypress: THTMLControlElementEvents2onkeypressEvent;
- Fonkeydown: THTMLControlElementEvents2onkeydownEvent;
- Fonkeyup: THTMLControlElementEvents2onkeyupEvent;
- Fonmouseout: THTMLControlElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLControlElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLControlElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLControlElementEvents2onmousedownEvent;
- Fonmouseup: THTMLControlElementEvents2onmouseupEvent;
- Fonselectstart: THTMLControlElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLControlElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLControlElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLControlElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLControlElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLControlElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLControlElementEvents2onrowexitEvent;
- Fonrowenter: THTMLControlElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLControlElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLControlElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLControlElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLControlElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLControlElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLControlElementEvents2onscrollEvent;
- Fonfocus: THTMLControlElementEvents2onfocusEvent;
- Fonblur: THTMLControlElementEvents2onblurEvent;
- Fonresize: THTMLControlElementEvents2onresizeEvent;
- Fondrag: THTMLControlElementEvents2ondragEvent;
- Fondragend: THTMLControlElementEvents2ondragendEvent;
- Fondragenter: THTMLControlElementEvents2ondragenterEvent;
- Fondragover: THTMLControlElementEvents2ondragoverEvent;
- Fondragleave: THTMLControlElementEvents2ondragleaveEvent;
- Fondrop: THTMLControlElementEvents2ondropEvent;
- Fonbeforecut: THTMLControlElementEvents2onbeforecutEvent;
- Foncut: THTMLControlElementEvents2oncutEvent;
- Fonbeforecopy: THTMLControlElementEvents2onbeforecopyEvent;
- Foncopy: THTMLControlElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLControlElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLControlElementEvents2onpasteEvent;
- Foncontextmenu: THTMLControlElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLControlElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLControlElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLControlElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLControlElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLControlElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLControlElementEvents2onpageEvent;
- Fonmouseenter: THTMLControlElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLControlElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLControlElementEvents2onactivateEvent;
- Fondeactivate: THTMLControlElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLControlElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLControlElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLControlElementEvents2onfocusinEvent;
- Fonfocusout: THTMLControlElementEvents2onfocusoutEvent;
- Fonmove: THTMLControlElementEvents2onmoveEvent;
- Foncontrolselect: THTMLControlElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLControlElementEvents2onmovestartEvent;
- Fonmoveend: THTMLControlElementEvents2onmoveendEvent;
- Fonresizestart: THTMLControlElementEvents2onresizestartEvent;
- Fonresizeend: THTMLControlElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLControlElementEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLControlElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLControlElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLControlElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLControlElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLControlElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLControlElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLControlElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLControlElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLControlElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLControlElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLControlElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLControlElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLControlElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLControlElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLControlElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLControlElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLControlElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLControlElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLControlElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLControlElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLControlElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLControlElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLControlElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLControlElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLControlElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLControlElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLControlElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLControlElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLControlElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLControlElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLControlElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLControlElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLControlElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLControlElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLControlElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLControlElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLControlElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLControlElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLControlElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLControlElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLControlElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLControlElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLControlElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLControlElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLControlElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLControlElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLControlElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLControlElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLControlElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLControlElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLControlElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLControlElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLControlElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLControlElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLControlElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLControlElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLControlElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLControlElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLControlElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLControlElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLControlElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLControlElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLMapEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLMapEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLMapEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLMapEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLMapEventsonhelpEvent;
- Fonclick: THTMLMapEventsonclickEvent;
- Fondblclick: THTMLMapEventsondblclickEvent;
- Fonkeypress: THTMLMapEventsonkeypressEvent;
- Fonkeydown: THTMLMapEventsonkeydownEvent;
- Fonkeyup: THTMLMapEventsonkeyupEvent;
- Fonmouseout: THTMLMapEventsonmouseoutEvent;
- Fonmouseover: THTMLMapEventsonmouseoverEvent;
- Fonmousemove: THTMLMapEventsonmousemoveEvent;
- Fonmousedown: THTMLMapEventsonmousedownEvent;
- Fonmouseup: THTMLMapEventsonmouseupEvent;
- Fonselectstart: THTMLMapEventsonselectstartEvent;
- Fonfilterchange: THTMLMapEventsonfilterchangeEvent;
- Fondragstart: THTMLMapEventsondragstartEvent;
- Fonbeforeupdate: THTMLMapEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLMapEventsonafterupdateEvent;
- Fonerrorupdate: THTMLMapEventsonerrorupdateEvent;
- Fonrowexit: THTMLMapEventsonrowexitEvent;
- Fonrowenter: THTMLMapEventsonrowenterEvent;
- Fondatasetchanged: THTMLMapEventsondatasetchangedEvent;
- Fondataavailable: THTMLMapEventsondataavailableEvent;
- Fondatasetcomplete: THTMLMapEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLMapEventsonlosecaptureEvent;
- Fonpropertychange: THTMLMapEventsonpropertychangeEvent;
- Fonscroll: THTMLMapEventsonscrollEvent;
- Fonfocus: THTMLMapEventsonfocusEvent;
- Fonblur: THTMLMapEventsonblurEvent;
- Fonresize: THTMLMapEventsonresizeEvent;
- Fondrag: THTMLMapEventsondragEvent;
- Fondragend: THTMLMapEventsondragendEvent;
- Fondragenter: THTMLMapEventsondragenterEvent;
- Fondragover: THTMLMapEventsondragoverEvent;
- Fondragleave: THTMLMapEventsondragleaveEvent;
- Fondrop: THTMLMapEventsondropEvent;
- Fonbeforecut: THTMLMapEventsonbeforecutEvent;
- Foncut: THTMLMapEventsoncutEvent;
- Fonbeforecopy: THTMLMapEventsonbeforecopyEvent;
- Foncopy: THTMLMapEventsoncopyEvent;
- Fonbeforepaste: THTMLMapEventsonbeforepasteEvent;
- Fonpaste: THTMLMapEventsonpasteEvent;
- Foncontextmenu: THTMLMapEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLMapEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLMapEventsonrowsinsertedEvent;
- Foncellchange: THTMLMapEventsoncellchangeEvent;
- Fonreadystatechange: THTMLMapEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLMapEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLMapEventsonlayoutcompleteEvent;
- Fonpage: THTMLMapEventsonpageEvent;
- Fonbeforedeactivate: THTMLMapEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLMapEventsonbeforeactivateEvent;
- Fonmove: THTMLMapEventsonmoveEvent;
- Foncontrolselect: THTMLMapEventsoncontrolselectEvent;
- Fonmovestart: THTMLMapEventsonmovestartEvent;
- Fonmoveend: THTMLMapEventsonmoveendEvent;
- Fonresizestart: THTMLMapEventsonresizestartEvent;
- Fonresizeend: THTMLMapEventsonresizeendEvent;
- Fonmouseenter: THTMLMapEventsonmouseenterEvent;
- Fonmouseleave: THTMLMapEventsonmouseleaveEvent;
- Fonmousewheel: THTMLMapEventsonmousewheelEvent;
- Fonactivate: THTMLMapEventsonactivateEvent;
- Fondeactivate: THTMLMapEventsondeactivateEvent;
- Fonfocusin: THTMLMapEventsonfocusinEvent;
- Fonfocusout: THTMLMapEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLMapEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLMapEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLMapEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLMapEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLMapEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLMapEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLMapEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLMapEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLMapEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLMapEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLMapEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLMapEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLMapEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLMapEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLMapEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLMapEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLMapEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLMapEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLMapEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLMapEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLMapEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLMapEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLMapEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLMapEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLMapEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLMapEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLMapEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLMapEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLMapEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLMapEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLMapEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLMapEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLMapEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLMapEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLMapEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLMapEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLMapEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLMapEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLMapEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLMapEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLMapEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLMapEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLMapEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLMapEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLMapEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLMapEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLMapEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLMapEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLMapEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLMapEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLMapEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLMapEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLMapEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLMapEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLMapEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLMapEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLMapEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLMapEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLMapEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLMapEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLMapEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLMapEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLMapEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLMapEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLMapEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLMapEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLMapEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLMapEvents2onhelpEvent;
- Fonclick: THTMLMapEvents2onclickEvent;
- Fondblclick: THTMLMapEvents2ondblclickEvent;
- Fonkeypress: THTMLMapEvents2onkeypressEvent;
- Fonkeydown: THTMLMapEvents2onkeydownEvent;
- Fonkeyup: THTMLMapEvents2onkeyupEvent;
- Fonmouseout: THTMLMapEvents2onmouseoutEvent;
- Fonmouseover: THTMLMapEvents2onmouseoverEvent;
- Fonmousemove: THTMLMapEvents2onmousemoveEvent;
- Fonmousedown: THTMLMapEvents2onmousedownEvent;
- Fonmouseup: THTMLMapEvents2onmouseupEvent;
- Fonselectstart: THTMLMapEvents2onselectstartEvent;
- Fonfilterchange: THTMLMapEvents2onfilterchangeEvent;
- Fondragstart: THTMLMapEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLMapEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLMapEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLMapEvents2onerrorupdateEvent;
- Fonrowexit: THTMLMapEvents2onrowexitEvent;
- Fonrowenter: THTMLMapEvents2onrowenterEvent;
- Fondatasetchanged: THTMLMapEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLMapEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLMapEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLMapEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLMapEvents2onpropertychangeEvent;
- Fonscroll: THTMLMapEvents2onscrollEvent;
- Fonfocus: THTMLMapEvents2onfocusEvent;
- Fonblur: THTMLMapEvents2onblurEvent;
- Fonresize: THTMLMapEvents2onresizeEvent;
- Fondrag: THTMLMapEvents2ondragEvent;
- Fondragend: THTMLMapEvents2ondragendEvent;
- Fondragenter: THTMLMapEvents2ondragenterEvent;
- Fondragover: THTMLMapEvents2ondragoverEvent;
- Fondragleave: THTMLMapEvents2ondragleaveEvent;
- Fondrop: THTMLMapEvents2ondropEvent;
- Fonbeforecut: THTMLMapEvents2onbeforecutEvent;
- Foncut: THTMLMapEvents2oncutEvent;
- Fonbeforecopy: THTMLMapEvents2onbeforecopyEvent;
- Foncopy: THTMLMapEvents2oncopyEvent;
- Fonbeforepaste: THTMLMapEvents2onbeforepasteEvent;
- Fonpaste: THTMLMapEvents2onpasteEvent;
- Foncontextmenu: THTMLMapEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLMapEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLMapEvents2onrowsinsertedEvent;
- Foncellchange: THTMLMapEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLMapEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLMapEvents2onlayoutcompleteEvent;
- Fonpage: THTMLMapEvents2onpageEvent;
- Fonmouseenter: THTMLMapEvents2onmouseenterEvent;
- Fonmouseleave: THTMLMapEvents2onmouseleaveEvent;
- Fonactivate: THTMLMapEvents2onactivateEvent;
- Fondeactivate: THTMLMapEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLMapEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLMapEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLMapEvents2onfocusinEvent;
- Fonfocusout: THTMLMapEvents2onfocusoutEvent;
- Fonmove: THTMLMapEvents2onmoveEvent;
- Foncontrolselect: THTMLMapEvents2oncontrolselectEvent;
- Fonmovestart: THTMLMapEvents2onmovestartEvent;
- Fonmoveend: THTMLMapEvents2onmoveendEvent;
- Fonresizestart: THTMLMapEvents2onresizestartEvent;
- Fonresizeend: THTMLMapEvents2onresizeendEvent;
- Fonmousewheel: THTMLMapEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLMapEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLMapEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLMapEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLMapEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLMapEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLMapEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLMapEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLMapEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLMapEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLMapEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLMapEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLMapEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLMapEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLMapEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLMapEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLMapEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLMapEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLMapEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLMapEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLMapEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLMapEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLMapEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLMapEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLMapEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLMapEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLMapEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLMapEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLMapEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLMapEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLMapEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLMapEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLMapEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLMapEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLMapEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLMapEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLMapEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLMapEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLMapEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLMapEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLMapEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLMapEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLMapEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLMapEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLMapEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLMapEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLMapEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLMapEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLMapEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLMapEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLMapEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLMapEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLMapEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLMapEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLMapEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLMapEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLMapEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLMapEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLMapEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLMapEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLMapEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLMapEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLMapEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLAreaEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLAreaEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLAreaEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLAreaEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLAreaEventsonhelpEvent;
- Fonclick: THTMLAreaEventsonclickEvent;
- Fondblclick: THTMLAreaEventsondblclickEvent;
- Fonkeypress: THTMLAreaEventsonkeypressEvent;
- Fonkeydown: THTMLAreaEventsonkeydownEvent;
- Fonkeyup: THTMLAreaEventsonkeyupEvent;
- Fonmouseout: THTMLAreaEventsonmouseoutEvent;
- Fonmouseover: THTMLAreaEventsonmouseoverEvent;
- Fonmousemove: THTMLAreaEventsonmousemoveEvent;
- Fonmousedown: THTMLAreaEventsonmousedownEvent;
- Fonmouseup: THTMLAreaEventsonmouseupEvent;
- Fonselectstart: THTMLAreaEventsonselectstartEvent;
- Fonfilterchange: THTMLAreaEventsonfilterchangeEvent;
- Fondragstart: THTMLAreaEventsondragstartEvent;
- Fonbeforeupdate: THTMLAreaEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLAreaEventsonafterupdateEvent;
- Fonerrorupdate: THTMLAreaEventsonerrorupdateEvent;
- Fonrowexit: THTMLAreaEventsonrowexitEvent;
- Fonrowenter: THTMLAreaEventsonrowenterEvent;
- Fondatasetchanged: THTMLAreaEventsondatasetchangedEvent;
- Fondataavailable: THTMLAreaEventsondataavailableEvent;
- Fondatasetcomplete: THTMLAreaEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLAreaEventsonlosecaptureEvent;
- Fonpropertychange: THTMLAreaEventsonpropertychangeEvent;
- Fonscroll: THTMLAreaEventsonscrollEvent;
- Fonfocus: THTMLAreaEventsonfocusEvent;
- Fonblur: THTMLAreaEventsonblurEvent;
- Fonresize: THTMLAreaEventsonresizeEvent;
- Fondrag: THTMLAreaEventsondragEvent;
- Fondragend: THTMLAreaEventsondragendEvent;
- Fondragenter: THTMLAreaEventsondragenterEvent;
- Fondragover: THTMLAreaEventsondragoverEvent;
- Fondragleave: THTMLAreaEventsondragleaveEvent;
- Fondrop: THTMLAreaEventsondropEvent;
- Fonbeforecut: THTMLAreaEventsonbeforecutEvent;
- Foncut: THTMLAreaEventsoncutEvent;
- Fonbeforecopy: THTMLAreaEventsonbeforecopyEvent;
- Foncopy: THTMLAreaEventsoncopyEvent;
- Fonbeforepaste: THTMLAreaEventsonbeforepasteEvent;
- Fonpaste: THTMLAreaEventsonpasteEvent;
- Foncontextmenu: THTMLAreaEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLAreaEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLAreaEventsonrowsinsertedEvent;
- Foncellchange: THTMLAreaEventsoncellchangeEvent;
- Fonreadystatechange: THTMLAreaEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLAreaEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLAreaEventsonlayoutcompleteEvent;
- Fonpage: THTMLAreaEventsonpageEvent;
- Fonbeforedeactivate: THTMLAreaEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLAreaEventsonbeforeactivateEvent;
- Fonmove: THTMLAreaEventsonmoveEvent;
- Foncontrolselect: THTMLAreaEventsoncontrolselectEvent;
- Fonmovestart: THTMLAreaEventsonmovestartEvent;
- Fonmoveend: THTMLAreaEventsonmoveendEvent;
- Fonresizestart: THTMLAreaEventsonresizestartEvent;
- Fonresizeend: THTMLAreaEventsonresizeendEvent;
- Fonmouseenter: THTMLAreaEventsonmouseenterEvent;
- Fonmouseleave: THTMLAreaEventsonmouseleaveEvent;
- Fonmousewheel: THTMLAreaEventsonmousewheelEvent;
- Fonactivate: THTMLAreaEventsonactivateEvent;
- Fondeactivate: THTMLAreaEventsondeactivateEvent;
- Fonfocusin: THTMLAreaEventsonfocusinEvent;
- Fonfocusout: THTMLAreaEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLAreaEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLAreaEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLAreaEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLAreaEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLAreaEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLAreaEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLAreaEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLAreaEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLAreaEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLAreaEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLAreaEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLAreaEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLAreaEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLAreaEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLAreaEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLAreaEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLAreaEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLAreaEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLAreaEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLAreaEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLAreaEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLAreaEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLAreaEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLAreaEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLAreaEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLAreaEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLAreaEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLAreaEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLAreaEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLAreaEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLAreaEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLAreaEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLAreaEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLAreaEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLAreaEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLAreaEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLAreaEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLAreaEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLAreaEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLAreaEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLAreaEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLAreaEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLAreaEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLAreaEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLAreaEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLAreaEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLAreaEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLAreaEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLAreaEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLAreaEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLAreaEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLAreaEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLAreaEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLAreaEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLAreaEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLAreaEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLAreaEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLAreaEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLAreaEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLAreaEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLAreaEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLAreaEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLAreaEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLAreaEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLAreaEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLAreaEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLAreaEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLAreaEvents2onhelpEvent;
- Fonclick: THTMLAreaEvents2onclickEvent;
- Fondblclick: THTMLAreaEvents2ondblclickEvent;
- Fonkeypress: THTMLAreaEvents2onkeypressEvent;
- Fonkeydown: THTMLAreaEvents2onkeydownEvent;
- Fonkeyup: THTMLAreaEvents2onkeyupEvent;
- Fonmouseout: THTMLAreaEvents2onmouseoutEvent;
- Fonmouseover: THTMLAreaEvents2onmouseoverEvent;
- Fonmousemove: THTMLAreaEvents2onmousemoveEvent;
- Fonmousedown: THTMLAreaEvents2onmousedownEvent;
- Fonmouseup: THTMLAreaEvents2onmouseupEvent;
- Fonselectstart: THTMLAreaEvents2onselectstartEvent;
- Fonfilterchange: THTMLAreaEvents2onfilterchangeEvent;
- Fondragstart: THTMLAreaEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLAreaEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLAreaEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLAreaEvents2onerrorupdateEvent;
- Fonrowexit: THTMLAreaEvents2onrowexitEvent;
- Fonrowenter: THTMLAreaEvents2onrowenterEvent;
- Fondatasetchanged: THTMLAreaEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLAreaEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLAreaEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLAreaEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLAreaEvents2onpropertychangeEvent;
- Fonscroll: THTMLAreaEvents2onscrollEvent;
- Fonfocus: THTMLAreaEvents2onfocusEvent;
- Fonblur: THTMLAreaEvents2onblurEvent;
- Fonresize: THTMLAreaEvents2onresizeEvent;
- Fondrag: THTMLAreaEvents2ondragEvent;
- Fondragend: THTMLAreaEvents2ondragendEvent;
- Fondragenter: THTMLAreaEvents2ondragenterEvent;
- Fondragover: THTMLAreaEvents2ondragoverEvent;
- Fondragleave: THTMLAreaEvents2ondragleaveEvent;
- Fondrop: THTMLAreaEvents2ondropEvent;
- Fonbeforecut: THTMLAreaEvents2onbeforecutEvent;
- Foncut: THTMLAreaEvents2oncutEvent;
- Fonbeforecopy: THTMLAreaEvents2onbeforecopyEvent;
- Foncopy: THTMLAreaEvents2oncopyEvent;
- Fonbeforepaste: THTMLAreaEvents2onbeforepasteEvent;
- Fonpaste: THTMLAreaEvents2onpasteEvent;
- Foncontextmenu: THTMLAreaEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLAreaEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLAreaEvents2onrowsinsertedEvent;
- Foncellchange: THTMLAreaEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLAreaEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLAreaEvents2onlayoutcompleteEvent;
- Fonpage: THTMLAreaEvents2onpageEvent;
- Fonmouseenter: THTMLAreaEvents2onmouseenterEvent;
- Fonmouseleave: THTMLAreaEvents2onmouseleaveEvent;
- Fonactivate: THTMLAreaEvents2onactivateEvent;
- Fondeactivate: THTMLAreaEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLAreaEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLAreaEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLAreaEvents2onfocusinEvent;
- Fonfocusout: THTMLAreaEvents2onfocusoutEvent;
- Fonmove: THTMLAreaEvents2onmoveEvent;
- Foncontrolselect: THTMLAreaEvents2oncontrolselectEvent;
- Fonmovestart: THTMLAreaEvents2onmovestartEvent;
- Fonmoveend: THTMLAreaEvents2onmoveendEvent;
- Fonresizestart: THTMLAreaEvents2onresizestartEvent;
- Fonresizeend: THTMLAreaEvents2onresizeendEvent;
- Fonmousewheel: THTMLAreaEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLAreaEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLAreaEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLAreaEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLAreaEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLAreaEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLAreaEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLAreaEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLAreaEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLAreaEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLAreaEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLAreaEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLAreaEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLAreaEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLAreaEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLAreaEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLAreaEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLAreaEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLAreaEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLAreaEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLAreaEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLAreaEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLAreaEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLAreaEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLAreaEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLAreaEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLAreaEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLAreaEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLAreaEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLAreaEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLAreaEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLAreaEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLAreaEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLAreaEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLAreaEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLAreaEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLAreaEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLAreaEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLAreaEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLAreaEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLAreaEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLAreaEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLAreaEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLAreaEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLAreaEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLAreaEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLAreaEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLAreaEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLAreaEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLAreaEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLAreaEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLAreaEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLAreaEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLAreaEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLAreaEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLAreaEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLAreaEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLAreaEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLAreaEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLAreaEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLAreaEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLAreaEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLAreaEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLTableEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLTableEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLTableEventsonfocusoutEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLTableEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLTableEventsonhelpEvent;
- Fonclick: THTMLTableEventsonclickEvent;
- Fondblclick: THTMLTableEventsondblclickEvent;
- Fonkeypress: THTMLTableEventsonkeypressEvent;
- Fonkeydown: THTMLTableEventsonkeydownEvent;
- Fonkeyup: THTMLTableEventsonkeyupEvent;
- Fonmouseout: THTMLTableEventsonmouseoutEvent;
- Fonmouseover: THTMLTableEventsonmouseoverEvent;
- Fonmousemove: THTMLTableEventsonmousemoveEvent;
- Fonmousedown: THTMLTableEventsonmousedownEvent;
- Fonmouseup: THTMLTableEventsonmouseupEvent;
- Fonselectstart: THTMLTableEventsonselectstartEvent;
- Fonfilterchange: THTMLTableEventsonfilterchangeEvent;
- Fondragstart: THTMLTableEventsondragstartEvent;
- Fonbeforeupdate: THTMLTableEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLTableEventsonafterupdateEvent;
- Fonerrorupdate: THTMLTableEventsonerrorupdateEvent;
- Fonrowexit: THTMLTableEventsonrowexitEvent;
- Fonrowenter: THTMLTableEventsonrowenterEvent;
- Fondatasetchanged: THTMLTableEventsondatasetchangedEvent;
- Fondataavailable: THTMLTableEventsondataavailableEvent;
- Fondatasetcomplete: THTMLTableEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLTableEventsonlosecaptureEvent;
- Fonpropertychange: THTMLTableEventsonpropertychangeEvent;
- Fonscroll: THTMLTableEventsonscrollEvent;
- Fonfocus: THTMLTableEventsonfocusEvent;
- Fonblur: THTMLTableEventsonblurEvent;
- Fonresize: THTMLTableEventsonresizeEvent;
- Fondrag: THTMLTableEventsondragEvent;
- Fondragend: THTMLTableEventsondragendEvent;
- Fondragenter: THTMLTableEventsondragenterEvent;
- Fondragover: THTMLTableEventsondragoverEvent;
- Fondragleave: THTMLTableEventsondragleaveEvent;
- Fondrop: THTMLTableEventsondropEvent;
- Fonbeforecut: THTMLTableEventsonbeforecutEvent;
- Foncut: THTMLTableEventsoncutEvent;
- Fonbeforecopy: THTMLTableEventsonbeforecopyEvent;
- Foncopy: THTMLTableEventsoncopyEvent;
- Fonbeforepaste: THTMLTableEventsonbeforepasteEvent;
- Fonpaste: THTMLTableEventsonpasteEvent;
- Foncontextmenu: THTMLTableEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLTableEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLTableEventsonrowsinsertedEvent;
- Foncellchange: THTMLTableEventsoncellchangeEvent;
- Fonreadystatechange: THTMLTableEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLTableEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLTableEventsonlayoutcompleteEvent;
- Fonpage: THTMLTableEventsonpageEvent;
- Fonbeforedeactivate: THTMLTableEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLTableEventsonbeforeactivateEvent;
- Fonmove: THTMLTableEventsonmoveEvent;
- Foncontrolselect: THTMLTableEventsoncontrolselectEvent;
- Fonmovestart: THTMLTableEventsonmovestartEvent;
- Fonmoveend: THTMLTableEventsonmoveendEvent;
- Fonresizestart: THTMLTableEventsonresizestartEvent;
- Fonresizeend: THTMLTableEventsonresizeendEvent;
- Fonmouseenter: THTMLTableEventsonmouseenterEvent;
- Fonmouseleave: THTMLTableEventsonmouseleaveEvent;
- Fonmousewheel: THTMLTableEventsonmousewheelEvent;
- Fonactivate: THTMLTableEventsonactivateEvent;
- Fondeactivate: THTMLTableEventsondeactivateEvent;
- Fonfocusin: THTMLTableEventsonfocusinEvent;
- Fonfocusout: THTMLTableEventsonfocusoutEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLTableEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLTableEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLTableEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLTableEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLTableEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLTableEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLTableEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLTableEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLTableEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLTableEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLTableEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLTableEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLTableEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLTableEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLTableEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLTableEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLTableEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLTableEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLTableEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLTableEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLTableEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLTableEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLTableEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLTableEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLTableEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLTableEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLTableEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLTableEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLTableEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLTableEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLTableEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLTableEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLTableEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLTableEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLTableEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLTableEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLTableEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLTableEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLTableEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLTableEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLTableEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLTableEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLTableEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLTableEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLTableEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLTableEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLTableEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLTableEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLTableEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLTableEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLTableEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLTableEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLTableEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLTableEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLTableEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLTableEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLTableEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLTableEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLTableEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLTableEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLTableEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLTableEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLTableEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- end;
-
-
- //SinkEventsForwards//
- THTMLTableEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLTableEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLTableEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
-
- //SinkComponent//
- TMSHTMLHTMLTableEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLTableEvents2onhelpEvent;
- Fonclick: THTMLTableEvents2onclickEvent;
- Fondblclick: THTMLTableEvents2ondblclickEvent;
- Fonkeypress: THTMLTableEvents2onkeypressEvent;
- Fonkeydown: THTMLTableEvents2onkeydownEvent;
- Fonkeyup: THTMLTableEvents2onkeyupEvent;
- Fonmouseout: THTMLTableEvents2onmouseoutEvent;
- Fonmouseover: THTMLTableEvents2onmouseoverEvent;
- Fonmousemove: THTMLTableEvents2onmousemoveEvent;
- Fonmousedown: THTMLTableEvents2onmousedownEvent;
- Fonmouseup: THTMLTableEvents2onmouseupEvent;
- Fonselectstart: THTMLTableEvents2onselectstartEvent;
- Fonfilterchange: THTMLTableEvents2onfilterchangeEvent;
- Fondragstart: THTMLTableEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLTableEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLTableEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLTableEvents2onerrorupdateEvent;
- Fonrowexit: THTMLTableEvents2onrowexitEvent;
- Fonrowenter: THTMLTableEvents2onrowenterEvent;
- Fondatasetchanged: THTMLTableEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLTableEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLTableEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLTableEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLTableEvents2onpropertychangeEvent;
- Fonscroll: THTMLTableEvents2onscrollEvent;
- Fonfocus: THTMLTableEvents2onfocusEvent;
- Fonblur: THTMLTableEvents2onblurEvent;
- Fonresize: THTMLTableEvents2onresizeEvent;
- Fondrag: THTMLTableEvents2ondragEvent;
- Fondragend: THTMLTableEvents2ondragendEvent;
- Fondragenter: THTMLTableEvents2ondragenterEvent;
- Fondragover: THTMLTableEvents2ondragoverEvent;
- Fondragleave: THTMLTableEvents2ondragleaveEvent;
- Fondrop: THTMLTableEvents2ondropEvent;
- Fonbeforecut: THTMLTableEvents2onbeforecutEvent;
- Foncut: THTMLTableEvents2oncutEvent;
- Fonbeforecopy: THTMLTableEvents2onbeforecopyEvent;
- Foncopy: THTMLTableEvents2oncopyEvent;
- Fonbeforepaste: THTMLTableEvents2onbeforepasteEvent;
- Fonpaste: THTMLTableEvents2onpasteEvent;
- Foncontextmenu: THTMLTableEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLTableEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLTableEvents2onrowsinsertedEvent;
- Foncellchange: THTMLTableEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLTableEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLTableEvents2onlayoutcompleteEvent;
- Fonpage: THTMLTableEvents2onpageEvent;
- Fonmouseenter: THTMLTableEvents2onmouseenterEvent;
- Fonmouseleave: THTMLTableEvents2onmouseleaveEvent;
- Fonactivate: THTMLTableEvents2onactivateEvent;
- Fondeactivate: THTMLTableEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLTableEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLTableEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLTableEvents2onfocusinEvent;
- Fonfocusout: THTMLTableEvents2onfocusoutEvent;
- Fonmove: THTMLTableEvents2onmoveEvent;
- Foncontrolselect: THTMLTableEvents2oncontrolselectEvent;
- Fonmovestart: THTMLTableEvents2onmovestartEvent;
- Fonmoveend: THTMLTableEvents2onmoveendEvent;
- Fonresizestart: THTMLTableEvents2onresizestartEvent;
- Fonresizeend: THTMLTableEvents2onresizeendEvent;
- Fonmousewheel: THTMLTableEvents2onmousewheelEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLTableEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLTableEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLTableEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLTableEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLTableEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLTableEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLTableEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLTableEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLTableEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLTableEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLTableEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLTableEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLTableEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLTableEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLTableEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLTableEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLTableEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLTableEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLTableEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLTableEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLTableEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLTableEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLTableEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLTableEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLTableEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLTableEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLTableEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLTableEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLTableEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLTableEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLTableEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLTableEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLTableEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLTableEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLTableEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLTableEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLTableEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLTableEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLTableEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLTableEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLTableEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLTableEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLTableEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLTableEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLTableEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLTableEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLTableEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLTableEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLTableEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLTableEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLTableEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLTableEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLTableEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLTableEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLTableEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLTableEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLTableEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLTableEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLTableEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLTableEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLTableEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLTableEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- end;
-
-
- //SinkEventsForwards//
- THTMLScriptEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLScriptEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLScriptEventsonerrorEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLScriptEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonerror; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLScriptEventsonhelpEvent;
- Fonclick: THTMLScriptEventsonclickEvent;
- Fondblclick: THTMLScriptEventsondblclickEvent;
- Fonkeypress: THTMLScriptEventsonkeypressEvent;
- Fonkeydown: THTMLScriptEventsonkeydownEvent;
- Fonkeyup: THTMLScriptEventsonkeyupEvent;
- Fonmouseout: THTMLScriptEventsonmouseoutEvent;
- Fonmouseover: THTMLScriptEventsonmouseoverEvent;
- Fonmousemove: THTMLScriptEventsonmousemoveEvent;
- Fonmousedown: THTMLScriptEventsonmousedownEvent;
- Fonmouseup: THTMLScriptEventsonmouseupEvent;
- Fonselectstart: THTMLScriptEventsonselectstartEvent;
- Fonfilterchange: THTMLScriptEventsonfilterchangeEvent;
- Fondragstart: THTMLScriptEventsondragstartEvent;
- Fonbeforeupdate: THTMLScriptEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLScriptEventsonafterupdateEvent;
- Fonerrorupdate: THTMLScriptEventsonerrorupdateEvent;
- Fonrowexit: THTMLScriptEventsonrowexitEvent;
- Fonrowenter: THTMLScriptEventsonrowenterEvent;
- Fondatasetchanged: THTMLScriptEventsondatasetchangedEvent;
- Fondataavailable: THTMLScriptEventsondataavailableEvent;
- Fondatasetcomplete: THTMLScriptEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLScriptEventsonlosecaptureEvent;
- Fonpropertychange: THTMLScriptEventsonpropertychangeEvent;
- Fonscroll: THTMLScriptEventsonscrollEvent;
- Fonfocus: THTMLScriptEventsonfocusEvent;
- Fonblur: THTMLScriptEventsonblurEvent;
- Fonresize: THTMLScriptEventsonresizeEvent;
- Fondrag: THTMLScriptEventsondragEvent;
- Fondragend: THTMLScriptEventsondragendEvent;
- Fondragenter: THTMLScriptEventsondragenterEvent;
- Fondragover: THTMLScriptEventsondragoverEvent;
- Fondragleave: THTMLScriptEventsondragleaveEvent;
- Fondrop: THTMLScriptEventsondropEvent;
- Fonbeforecut: THTMLScriptEventsonbeforecutEvent;
- Foncut: THTMLScriptEventsoncutEvent;
- Fonbeforecopy: THTMLScriptEventsonbeforecopyEvent;
- Foncopy: THTMLScriptEventsoncopyEvent;
- Fonbeforepaste: THTMLScriptEventsonbeforepasteEvent;
- Fonpaste: THTMLScriptEventsonpasteEvent;
- Foncontextmenu: THTMLScriptEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLScriptEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLScriptEventsonrowsinsertedEvent;
- Foncellchange: THTMLScriptEventsoncellchangeEvent;
- Fonreadystatechange: THTMLScriptEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLScriptEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLScriptEventsonlayoutcompleteEvent;
- Fonpage: THTMLScriptEventsonpageEvent;
- Fonbeforedeactivate: THTMLScriptEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLScriptEventsonbeforeactivateEvent;
- Fonmove: THTMLScriptEventsonmoveEvent;
- Foncontrolselect: THTMLScriptEventsoncontrolselectEvent;
- Fonmovestart: THTMLScriptEventsonmovestartEvent;
- Fonmoveend: THTMLScriptEventsonmoveendEvent;
- Fonresizestart: THTMLScriptEventsonresizestartEvent;
- Fonresizeend: THTMLScriptEventsonresizeendEvent;
- Fonmouseenter: THTMLScriptEventsonmouseenterEvent;
- Fonmouseleave: THTMLScriptEventsonmouseleaveEvent;
- Fonmousewheel: THTMLScriptEventsonmousewheelEvent;
- Fonactivate: THTMLScriptEventsonactivateEvent;
- Fondeactivate: THTMLScriptEventsondeactivateEvent;
- Fonfocusin: THTMLScriptEventsonfocusinEvent;
- Fonfocusout: THTMLScriptEventsonfocusoutEvent;
- Fonerror: THTMLScriptEventsonerrorEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLScriptEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLScriptEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLScriptEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLScriptEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLScriptEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLScriptEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLScriptEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLScriptEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLScriptEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLScriptEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLScriptEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLScriptEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLScriptEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLScriptEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLScriptEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLScriptEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLScriptEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLScriptEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLScriptEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLScriptEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLScriptEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLScriptEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLScriptEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLScriptEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLScriptEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLScriptEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLScriptEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLScriptEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLScriptEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLScriptEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLScriptEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLScriptEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLScriptEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLScriptEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLScriptEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLScriptEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLScriptEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLScriptEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLScriptEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLScriptEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLScriptEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLScriptEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLScriptEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLScriptEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLScriptEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLScriptEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLScriptEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLScriptEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLScriptEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLScriptEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLScriptEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLScriptEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLScriptEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLScriptEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLScriptEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLScriptEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLScriptEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLScriptEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLScriptEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLScriptEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLScriptEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLScriptEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLScriptEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onerror: THTMLScriptEventsonerrorEvent read Fonerror write Fonerror;
- end;
-
-
- //SinkEventsForwards//
- THTMLScriptEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLScriptEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLScriptEvents2onerrorEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLScriptEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonerror(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLScriptEvents2onhelpEvent;
- Fonclick: THTMLScriptEvents2onclickEvent;
- Fondblclick: THTMLScriptEvents2ondblclickEvent;
- Fonkeypress: THTMLScriptEvents2onkeypressEvent;
- Fonkeydown: THTMLScriptEvents2onkeydownEvent;
- Fonkeyup: THTMLScriptEvents2onkeyupEvent;
- Fonmouseout: THTMLScriptEvents2onmouseoutEvent;
- Fonmouseover: THTMLScriptEvents2onmouseoverEvent;
- Fonmousemove: THTMLScriptEvents2onmousemoveEvent;
- Fonmousedown: THTMLScriptEvents2onmousedownEvent;
- Fonmouseup: THTMLScriptEvents2onmouseupEvent;
- Fonselectstart: THTMLScriptEvents2onselectstartEvent;
- Fonfilterchange: THTMLScriptEvents2onfilterchangeEvent;
- Fondragstart: THTMLScriptEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLScriptEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLScriptEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLScriptEvents2onerrorupdateEvent;
- Fonrowexit: THTMLScriptEvents2onrowexitEvent;
- Fonrowenter: THTMLScriptEvents2onrowenterEvent;
- Fondatasetchanged: THTMLScriptEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLScriptEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLScriptEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLScriptEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLScriptEvents2onpropertychangeEvent;
- Fonscroll: THTMLScriptEvents2onscrollEvent;
- Fonfocus: THTMLScriptEvents2onfocusEvent;
- Fonblur: THTMLScriptEvents2onblurEvent;
- Fonresize: THTMLScriptEvents2onresizeEvent;
- Fondrag: THTMLScriptEvents2ondragEvent;
- Fondragend: THTMLScriptEvents2ondragendEvent;
- Fondragenter: THTMLScriptEvents2ondragenterEvent;
- Fondragover: THTMLScriptEvents2ondragoverEvent;
- Fondragleave: THTMLScriptEvents2ondragleaveEvent;
- Fondrop: THTMLScriptEvents2ondropEvent;
- Fonbeforecut: THTMLScriptEvents2onbeforecutEvent;
- Foncut: THTMLScriptEvents2oncutEvent;
- Fonbeforecopy: THTMLScriptEvents2onbeforecopyEvent;
- Foncopy: THTMLScriptEvents2oncopyEvent;
- Fonbeforepaste: THTMLScriptEvents2onbeforepasteEvent;
- Fonpaste: THTMLScriptEvents2onpasteEvent;
- Foncontextmenu: THTMLScriptEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLScriptEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLScriptEvents2onrowsinsertedEvent;
- Foncellchange: THTMLScriptEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLScriptEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLScriptEvents2onlayoutcompleteEvent;
- Fonpage: THTMLScriptEvents2onpageEvent;
- Fonmouseenter: THTMLScriptEvents2onmouseenterEvent;
- Fonmouseleave: THTMLScriptEvents2onmouseleaveEvent;
- Fonactivate: THTMLScriptEvents2onactivateEvent;
- Fondeactivate: THTMLScriptEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLScriptEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLScriptEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLScriptEvents2onfocusinEvent;
- Fonfocusout: THTMLScriptEvents2onfocusoutEvent;
- Fonmove: THTMLScriptEvents2onmoveEvent;
- Foncontrolselect: THTMLScriptEvents2oncontrolselectEvent;
- Fonmovestart: THTMLScriptEvents2onmovestartEvent;
- Fonmoveend: THTMLScriptEvents2onmoveendEvent;
- Fonresizestart: THTMLScriptEvents2onresizestartEvent;
- Fonresizeend: THTMLScriptEvents2onresizeendEvent;
- Fonmousewheel: THTMLScriptEvents2onmousewheelEvent;
- Fonerror: THTMLScriptEvents2onerrorEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLScriptEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLScriptEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLScriptEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLScriptEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLScriptEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLScriptEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLScriptEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLScriptEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLScriptEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLScriptEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLScriptEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLScriptEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLScriptEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLScriptEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLScriptEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLScriptEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLScriptEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLScriptEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLScriptEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLScriptEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLScriptEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLScriptEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLScriptEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLScriptEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLScriptEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLScriptEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLScriptEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLScriptEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLScriptEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLScriptEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLScriptEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLScriptEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLScriptEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLScriptEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLScriptEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLScriptEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLScriptEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLScriptEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLScriptEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLScriptEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLScriptEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLScriptEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLScriptEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLScriptEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLScriptEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLScriptEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLScriptEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLScriptEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLScriptEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLScriptEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLScriptEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLScriptEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLScriptEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLScriptEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLScriptEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLScriptEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLScriptEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLScriptEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLScriptEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLScriptEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLScriptEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLScriptEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onerror: THTMLScriptEvents2onerrorEvent read Fonerror write Fonerror;
- end;
-
-
- //SinkEventsForwards//
- THTMLObjectElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLObjectElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLObjectElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLObjectElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsonerrorEvent = function(Sender: TObject): WordBool of object;
- THTMLObjectElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLObjectElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLObjectElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- function Doonerror: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- protected
- //SinkEventsProtected//
- Fonbeforeupdate: THTMLObjectElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLObjectElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLObjectElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLObjectElementEventsonrowexitEvent;
- Fonrowenter: THTMLObjectElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLObjectElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLObjectElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLObjectElementEventsondatasetcompleteEvent;
- Fonerror: THTMLObjectElementEventsonerrorEvent;
- Fonrowsdelete: THTMLObjectElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLObjectElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLObjectElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLObjectElementEventsonreadystatechangeEvent;
- published
- //SinkEventsPublished//
- property onbeforeupdate: THTMLObjectElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLObjectElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLObjectElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLObjectElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLObjectElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLObjectElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLObjectElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLObjectElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onerror: THTMLObjectElementEventsonerrorEvent read Fonerror write Fonerror;
- property onrowsdelete: THTMLObjectElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLObjectElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLObjectElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLObjectElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- end;
-
-
- //SinkEventsForwards//
- THTMLObjectElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLObjectElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLObjectElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLObjectElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2onerrorEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLObjectElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLObjectElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLObjectElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerror(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonbeforeupdate: THTMLObjectElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLObjectElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLObjectElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLObjectElementEvents2onrowexitEvent;
- Fonrowenter: THTMLObjectElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLObjectElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLObjectElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLObjectElementEvents2ondatasetcompleteEvent;
- Fonerror: THTMLObjectElementEvents2onerrorEvent;
- Fonrowsdelete: THTMLObjectElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLObjectElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLObjectElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLObjectElementEvents2onreadystatechangeEvent;
- published
- //SinkEventsPublished//
- property onbeforeupdate: THTMLObjectElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLObjectElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLObjectElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLObjectElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLObjectElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLObjectElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLObjectElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLObjectElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onerror: THTMLObjectElementEvents2onerrorEvent read Fonerror write Fonerror;
- property onrowsdelete: THTMLObjectElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLObjectElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLObjectElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLObjectElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- end;
-
-
- //SinkEventsForwards//
- THTMLFrameSiteEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLFrameSiteEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLFrameSiteEventsonloadEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLFrameSiteEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonload; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLFrameSiteEventsonhelpEvent;
- Fonclick: THTMLFrameSiteEventsonclickEvent;
- Fondblclick: THTMLFrameSiteEventsondblclickEvent;
- Fonkeypress: THTMLFrameSiteEventsonkeypressEvent;
- Fonkeydown: THTMLFrameSiteEventsonkeydownEvent;
- Fonkeyup: THTMLFrameSiteEventsonkeyupEvent;
- Fonmouseout: THTMLFrameSiteEventsonmouseoutEvent;
- Fonmouseover: THTMLFrameSiteEventsonmouseoverEvent;
- Fonmousemove: THTMLFrameSiteEventsonmousemoveEvent;
- Fonmousedown: THTMLFrameSiteEventsonmousedownEvent;
- Fonmouseup: THTMLFrameSiteEventsonmouseupEvent;
- Fonselectstart: THTMLFrameSiteEventsonselectstartEvent;
- Fonfilterchange: THTMLFrameSiteEventsonfilterchangeEvent;
- Fondragstart: THTMLFrameSiteEventsondragstartEvent;
- Fonbeforeupdate: THTMLFrameSiteEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLFrameSiteEventsonafterupdateEvent;
- Fonerrorupdate: THTMLFrameSiteEventsonerrorupdateEvent;
- Fonrowexit: THTMLFrameSiteEventsonrowexitEvent;
- Fonrowenter: THTMLFrameSiteEventsonrowenterEvent;
- Fondatasetchanged: THTMLFrameSiteEventsondatasetchangedEvent;
- Fondataavailable: THTMLFrameSiteEventsondataavailableEvent;
- Fondatasetcomplete: THTMLFrameSiteEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLFrameSiteEventsonlosecaptureEvent;
- Fonpropertychange: THTMLFrameSiteEventsonpropertychangeEvent;
- Fonscroll: THTMLFrameSiteEventsonscrollEvent;
- Fonfocus: THTMLFrameSiteEventsonfocusEvent;
- Fonblur: THTMLFrameSiteEventsonblurEvent;
- Fonresize: THTMLFrameSiteEventsonresizeEvent;
- Fondrag: THTMLFrameSiteEventsondragEvent;
- Fondragend: THTMLFrameSiteEventsondragendEvent;
- Fondragenter: THTMLFrameSiteEventsondragenterEvent;
- Fondragover: THTMLFrameSiteEventsondragoverEvent;
- Fondragleave: THTMLFrameSiteEventsondragleaveEvent;
- Fondrop: THTMLFrameSiteEventsondropEvent;
- Fonbeforecut: THTMLFrameSiteEventsonbeforecutEvent;
- Foncut: THTMLFrameSiteEventsoncutEvent;
- Fonbeforecopy: THTMLFrameSiteEventsonbeforecopyEvent;
- Foncopy: THTMLFrameSiteEventsoncopyEvent;
- Fonbeforepaste: THTMLFrameSiteEventsonbeforepasteEvent;
- Fonpaste: THTMLFrameSiteEventsonpasteEvent;
- Foncontextmenu: THTMLFrameSiteEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLFrameSiteEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLFrameSiteEventsonrowsinsertedEvent;
- Foncellchange: THTMLFrameSiteEventsoncellchangeEvent;
- Fonreadystatechange: THTMLFrameSiteEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLFrameSiteEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLFrameSiteEventsonlayoutcompleteEvent;
- Fonpage: THTMLFrameSiteEventsonpageEvent;
- Fonbeforedeactivate: THTMLFrameSiteEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLFrameSiteEventsonbeforeactivateEvent;
- Fonmove: THTMLFrameSiteEventsonmoveEvent;
- Foncontrolselect: THTMLFrameSiteEventsoncontrolselectEvent;
- Fonmovestart: THTMLFrameSiteEventsonmovestartEvent;
- Fonmoveend: THTMLFrameSiteEventsonmoveendEvent;
- Fonresizestart: THTMLFrameSiteEventsonresizestartEvent;
- Fonresizeend: THTMLFrameSiteEventsonresizeendEvent;
- Fonmouseenter: THTMLFrameSiteEventsonmouseenterEvent;
- Fonmouseleave: THTMLFrameSiteEventsonmouseleaveEvent;
- Fonmousewheel: THTMLFrameSiteEventsonmousewheelEvent;
- Fonactivate: THTMLFrameSiteEventsonactivateEvent;
- Fondeactivate: THTMLFrameSiteEventsondeactivateEvent;
- Fonfocusin: THTMLFrameSiteEventsonfocusinEvent;
- Fonfocusout: THTMLFrameSiteEventsonfocusoutEvent;
- Fonload: THTMLFrameSiteEventsonloadEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLFrameSiteEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLFrameSiteEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLFrameSiteEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLFrameSiteEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLFrameSiteEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLFrameSiteEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLFrameSiteEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLFrameSiteEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLFrameSiteEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLFrameSiteEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLFrameSiteEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLFrameSiteEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLFrameSiteEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLFrameSiteEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLFrameSiteEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLFrameSiteEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLFrameSiteEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLFrameSiteEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLFrameSiteEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLFrameSiteEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLFrameSiteEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLFrameSiteEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLFrameSiteEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLFrameSiteEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLFrameSiteEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLFrameSiteEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLFrameSiteEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLFrameSiteEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLFrameSiteEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLFrameSiteEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLFrameSiteEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLFrameSiteEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLFrameSiteEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLFrameSiteEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLFrameSiteEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLFrameSiteEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLFrameSiteEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLFrameSiteEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLFrameSiteEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLFrameSiteEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLFrameSiteEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLFrameSiteEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLFrameSiteEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLFrameSiteEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLFrameSiteEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLFrameSiteEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLFrameSiteEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLFrameSiteEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLFrameSiteEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLFrameSiteEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLFrameSiteEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLFrameSiteEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLFrameSiteEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLFrameSiteEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLFrameSiteEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLFrameSiteEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLFrameSiteEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLFrameSiteEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLFrameSiteEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLFrameSiteEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLFrameSiteEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLFrameSiteEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLFrameSiteEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onload: THTMLFrameSiteEventsonloadEvent read Fonload write Fonload;
- end;
-
-
- //SinkEventsForwards//
- THTMLFrameSiteEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLFrameSiteEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLFrameSiteEvents2onloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLFrameSiteEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonload(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLFrameSiteEvents2onhelpEvent;
- Fonclick: THTMLFrameSiteEvents2onclickEvent;
- Fondblclick: THTMLFrameSiteEvents2ondblclickEvent;
- Fonkeypress: THTMLFrameSiteEvents2onkeypressEvent;
- Fonkeydown: THTMLFrameSiteEvents2onkeydownEvent;
- Fonkeyup: THTMLFrameSiteEvents2onkeyupEvent;
- Fonmouseout: THTMLFrameSiteEvents2onmouseoutEvent;
- Fonmouseover: THTMLFrameSiteEvents2onmouseoverEvent;
- Fonmousemove: THTMLFrameSiteEvents2onmousemoveEvent;
- Fonmousedown: THTMLFrameSiteEvents2onmousedownEvent;
- Fonmouseup: THTMLFrameSiteEvents2onmouseupEvent;
- Fonselectstart: THTMLFrameSiteEvents2onselectstartEvent;
- Fonfilterchange: THTMLFrameSiteEvents2onfilterchangeEvent;
- Fondragstart: THTMLFrameSiteEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLFrameSiteEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLFrameSiteEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLFrameSiteEvents2onerrorupdateEvent;
- Fonrowexit: THTMLFrameSiteEvents2onrowexitEvent;
- Fonrowenter: THTMLFrameSiteEvents2onrowenterEvent;
- Fondatasetchanged: THTMLFrameSiteEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLFrameSiteEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLFrameSiteEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLFrameSiteEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLFrameSiteEvents2onpropertychangeEvent;
- Fonscroll: THTMLFrameSiteEvents2onscrollEvent;
- Fonfocus: THTMLFrameSiteEvents2onfocusEvent;
- Fonblur: THTMLFrameSiteEvents2onblurEvent;
- Fonresize: THTMLFrameSiteEvents2onresizeEvent;
- Fondrag: THTMLFrameSiteEvents2ondragEvent;
- Fondragend: THTMLFrameSiteEvents2ondragendEvent;
- Fondragenter: THTMLFrameSiteEvents2ondragenterEvent;
- Fondragover: THTMLFrameSiteEvents2ondragoverEvent;
- Fondragleave: THTMLFrameSiteEvents2ondragleaveEvent;
- Fondrop: THTMLFrameSiteEvents2ondropEvent;
- Fonbeforecut: THTMLFrameSiteEvents2onbeforecutEvent;
- Foncut: THTMLFrameSiteEvents2oncutEvent;
- Fonbeforecopy: THTMLFrameSiteEvents2onbeforecopyEvent;
- Foncopy: THTMLFrameSiteEvents2oncopyEvent;
- Fonbeforepaste: THTMLFrameSiteEvents2onbeforepasteEvent;
- Fonpaste: THTMLFrameSiteEvents2onpasteEvent;
- Foncontextmenu: THTMLFrameSiteEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLFrameSiteEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLFrameSiteEvents2onrowsinsertedEvent;
- Foncellchange: THTMLFrameSiteEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLFrameSiteEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLFrameSiteEvents2onlayoutcompleteEvent;
- Fonpage: THTMLFrameSiteEvents2onpageEvent;
- Fonmouseenter: THTMLFrameSiteEvents2onmouseenterEvent;
- Fonmouseleave: THTMLFrameSiteEvents2onmouseleaveEvent;
- Fonactivate: THTMLFrameSiteEvents2onactivateEvent;
- Fondeactivate: THTMLFrameSiteEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLFrameSiteEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLFrameSiteEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLFrameSiteEvents2onfocusinEvent;
- Fonfocusout: THTMLFrameSiteEvents2onfocusoutEvent;
- Fonmove: THTMLFrameSiteEvents2onmoveEvent;
- Foncontrolselect: THTMLFrameSiteEvents2oncontrolselectEvent;
- Fonmovestart: THTMLFrameSiteEvents2onmovestartEvent;
- Fonmoveend: THTMLFrameSiteEvents2onmoveendEvent;
- Fonresizestart: THTMLFrameSiteEvents2onresizestartEvent;
- Fonresizeend: THTMLFrameSiteEvents2onresizeendEvent;
- Fonmousewheel: THTMLFrameSiteEvents2onmousewheelEvent;
- Fonload: THTMLFrameSiteEvents2onloadEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLFrameSiteEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLFrameSiteEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLFrameSiteEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLFrameSiteEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLFrameSiteEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLFrameSiteEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLFrameSiteEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLFrameSiteEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLFrameSiteEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLFrameSiteEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLFrameSiteEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLFrameSiteEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLFrameSiteEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLFrameSiteEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLFrameSiteEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLFrameSiteEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLFrameSiteEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLFrameSiteEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLFrameSiteEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLFrameSiteEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLFrameSiteEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLFrameSiteEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLFrameSiteEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLFrameSiteEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLFrameSiteEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLFrameSiteEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLFrameSiteEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLFrameSiteEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLFrameSiteEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLFrameSiteEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLFrameSiteEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLFrameSiteEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLFrameSiteEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLFrameSiteEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLFrameSiteEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLFrameSiteEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLFrameSiteEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLFrameSiteEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLFrameSiteEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLFrameSiteEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLFrameSiteEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLFrameSiteEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLFrameSiteEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLFrameSiteEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLFrameSiteEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLFrameSiteEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLFrameSiteEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLFrameSiteEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLFrameSiteEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLFrameSiteEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLFrameSiteEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLFrameSiteEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLFrameSiteEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLFrameSiteEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLFrameSiteEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLFrameSiteEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLFrameSiteEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLFrameSiteEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLFrameSiteEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLFrameSiteEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLFrameSiteEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLFrameSiteEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onload: THTMLFrameSiteEvents2onloadEvent read Fonload write Fonload;
- end;
-
-
- //SinkEventsForwards//
- THTMLStyleElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLStyleElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLStyleElementEventsonerrorEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLStyleElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLStyleElementEventsonhelpEvent;
- Fonclick: THTMLStyleElementEventsonclickEvent;
- Fondblclick: THTMLStyleElementEventsondblclickEvent;
- Fonkeypress: THTMLStyleElementEventsonkeypressEvent;
- Fonkeydown: THTMLStyleElementEventsonkeydownEvent;
- Fonkeyup: THTMLStyleElementEventsonkeyupEvent;
- Fonmouseout: THTMLStyleElementEventsonmouseoutEvent;
- Fonmouseover: THTMLStyleElementEventsonmouseoverEvent;
- Fonmousemove: THTMLStyleElementEventsonmousemoveEvent;
- Fonmousedown: THTMLStyleElementEventsonmousedownEvent;
- Fonmouseup: THTMLStyleElementEventsonmouseupEvent;
- Fonselectstart: THTMLStyleElementEventsonselectstartEvent;
- Fonfilterchange: THTMLStyleElementEventsonfilterchangeEvent;
- Fondragstart: THTMLStyleElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLStyleElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLStyleElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLStyleElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLStyleElementEventsonrowexitEvent;
- Fonrowenter: THTMLStyleElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLStyleElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLStyleElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLStyleElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLStyleElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLStyleElementEventsonpropertychangeEvent;
- Fonscroll: THTMLStyleElementEventsonscrollEvent;
- Fonfocus: THTMLStyleElementEventsonfocusEvent;
- Fonblur: THTMLStyleElementEventsonblurEvent;
- Fonresize: THTMLStyleElementEventsonresizeEvent;
- Fondrag: THTMLStyleElementEventsondragEvent;
- Fondragend: THTMLStyleElementEventsondragendEvent;
- Fondragenter: THTMLStyleElementEventsondragenterEvent;
- Fondragover: THTMLStyleElementEventsondragoverEvent;
- Fondragleave: THTMLStyleElementEventsondragleaveEvent;
- Fondrop: THTMLStyleElementEventsondropEvent;
- Fonbeforecut: THTMLStyleElementEventsonbeforecutEvent;
- Foncut: THTMLStyleElementEventsoncutEvent;
- Fonbeforecopy: THTMLStyleElementEventsonbeforecopyEvent;
- Foncopy: THTMLStyleElementEventsoncopyEvent;
- Fonbeforepaste: THTMLStyleElementEventsonbeforepasteEvent;
- Fonpaste: THTMLStyleElementEventsonpasteEvent;
- Foncontextmenu: THTMLStyleElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLStyleElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLStyleElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLStyleElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLStyleElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLStyleElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLStyleElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLStyleElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLStyleElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLStyleElementEventsonbeforeactivateEvent;
- Fonmove: THTMLStyleElementEventsonmoveEvent;
- Foncontrolselect: THTMLStyleElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLStyleElementEventsonmovestartEvent;
- Fonmoveend: THTMLStyleElementEventsonmoveendEvent;
- Fonresizestart: THTMLStyleElementEventsonresizestartEvent;
- Fonresizeend: THTMLStyleElementEventsonresizeendEvent;
- Fonmouseenter: THTMLStyleElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLStyleElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLStyleElementEventsonmousewheelEvent;
- Fonactivate: THTMLStyleElementEventsonactivateEvent;
- Fondeactivate: THTMLStyleElementEventsondeactivateEvent;
- Fonfocusin: THTMLStyleElementEventsonfocusinEvent;
- Fonfocusout: THTMLStyleElementEventsonfocusoutEvent;
- Fonload: THTMLStyleElementEventsonloadEvent;
- Fonerror: THTMLStyleElementEventsonerrorEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLStyleElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLStyleElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLStyleElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLStyleElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLStyleElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLStyleElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLStyleElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLStyleElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLStyleElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLStyleElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLStyleElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLStyleElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLStyleElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLStyleElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLStyleElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLStyleElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLStyleElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLStyleElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLStyleElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLStyleElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLStyleElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLStyleElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLStyleElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLStyleElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLStyleElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLStyleElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLStyleElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLStyleElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLStyleElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLStyleElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLStyleElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLStyleElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLStyleElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLStyleElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLStyleElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLStyleElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLStyleElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLStyleElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLStyleElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLStyleElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLStyleElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLStyleElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLStyleElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLStyleElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLStyleElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLStyleElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLStyleElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLStyleElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLStyleElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLStyleElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLStyleElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLStyleElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLStyleElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLStyleElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLStyleElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLStyleElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLStyleElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLStyleElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLStyleElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLStyleElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLStyleElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLStyleElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLStyleElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onload: THTMLStyleElementEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLStyleElementEventsonerrorEvent read Fonerror write Fonerror;
- end;
-
-
- //SinkEventsForwards//
- THTMLStyleElementEvents2onhelpEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2ondblclickEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onkeypressEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onkeydownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onkeyupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmouseoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmouseoverEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmousemoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmousedownEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmouseupEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onselectstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onfilterchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondragstartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onbeforeupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onafterupdateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onerrorupdateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onrowexitEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onrowenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondatasetchangedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondataavailableEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondatasetcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onlosecaptureEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onpropertychangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onscrollEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onfocusEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onblurEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onresizeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondragEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2ondragendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondragenterEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2ondragoverEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2ondragleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondropEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onbeforecutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2oncutEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onbeforecopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2oncopyEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onbeforepasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onpasteEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2oncontextmenuEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onrowsdeleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onrowsinsertedEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2oncellchangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onlayoutcompleteEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onpageEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmouseenterEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmouseleaveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2ondeactivateEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onbeforedeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onbeforeactivateEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onfocusinEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onfocusoutEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmoveEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2oncontrolselectEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onmovestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onmoveendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onresizestartEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onresizeendEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onmousewheelEvent = function(Sender: TObject; const pEvtObj: IHTMLEventObj): WordBool of object;
- THTMLStyleElementEvents2onloadEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
- THTMLStyleElementEvents2onerrorEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLStyleElementEvents2 = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondblclick(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonkeydown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonkeyup(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseover(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousemove(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmousedown(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseup(const pEvtObj: IHTMLEventObj); safecall;
- function Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfilterchange(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragstart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonafterupdate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetchanged(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondataavailable(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondatasetcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlosecapture(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpropertychange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonscroll(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocus(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonblur(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonresize(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrag(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragend(const pEvtObj: IHTMLEventObj); safecall;
- function Doondragenter(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doondragover(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doondragleave(const pEvtObj: IHTMLEventObj); safecall;
- function Doondrop(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncut(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncopy(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonpaste(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonrowsdelete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonrowsinserted(const pEvtObj: IHTMLEventObj); safecall;
- procedure Dooncellchange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonlayoutcomplete(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonpage(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseenter(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmouseleave(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonactivate(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doondeactivate(const pEvtObj: IHTMLEventObj); safecall;
- function Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonfocusin(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonfocusout(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonmove(const pEvtObj: IHTMLEventObj); safecall;
- function Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- function Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonmoveend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonresizeend(const pEvtObj: IHTMLEventObj); safecall;
- function Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool; safecall;
- procedure Doonload(const pEvtObj: IHTMLEventObj); safecall;
- procedure Doonerror(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLStyleElementEvents2onhelpEvent;
- Fonclick: THTMLStyleElementEvents2onclickEvent;
- Fondblclick: THTMLStyleElementEvents2ondblclickEvent;
- Fonkeypress: THTMLStyleElementEvents2onkeypressEvent;
- Fonkeydown: THTMLStyleElementEvents2onkeydownEvent;
- Fonkeyup: THTMLStyleElementEvents2onkeyupEvent;
- Fonmouseout: THTMLStyleElementEvents2onmouseoutEvent;
- Fonmouseover: THTMLStyleElementEvents2onmouseoverEvent;
- Fonmousemove: THTMLStyleElementEvents2onmousemoveEvent;
- Fonmousedown: THTMLStyleElementEvents2onmousedownEvent;
- Fonmouseup: THTMLStyleElementEvents2onmouseupEvent;
- Fonselectstart: THTMLStyleElementEvents2onselectstartEvent;
- Fonfilterchange: THTMLStyleElementEvents2onfilterchangeEvent;
- Fondragstart: THTMLStyleElementEvents2ondragstartEvent;
- Fonbeforeupdate: THTMLStyleElementEvents2onbeforeupdateEvent;
- Fonafterupdate: THTMLStyleElementEvents2onafterupdateEvent;
- Fonerrorupdate: THTMLStyleElementEvents2onerrorupdateEvent;
- Fonrowexit: THTMLStyleElementEvents2onrowexitEvent;
- Fonrowenter: THTMLStyleElementEvents2onrowenterEvent;
- Fondatasetchanged: THTMLStyleElementEvents2ondatasetchangedEvent;
- Fondataavailable: THTMLStyleElementEvents2ondataavailableEvent;
- Fondatasetcomplete: THTMLStyleElementEvents2ondatasetcompleteEvent;
- Fonlosecapture: THTMLStyleElementEvents2onlosecaptureEvent;
- Fonpropertychange: THTMLStyleElementEvents2onpropertychangeEvent;
- Fonscroll: THTMLStyleElementEvents2onscrollEvent;
- Fonfocus: THTMLStyleElementEvents2onfocusEvent;
- Fonblur: THTMLStyleElementEvents2onblurEvent;
- Fonresize: THTMLStyleElementEvents2onresizeEvent;
- Fondrag: THTMLStyleElementEvents2ondragEvent;
- Fondragend: THTMLStyleElementEvents2ondragendEvent;
- Fondragenter: THTMLStyleElementEvents2ondragenterEvent;
- Fondragover: THTMLStyleElementEvents2ondragoverEvent;
- Fondragleave: THTMLStyleElementEvents2ondragleaveEvent;
- Fondrop: THTMLStyleElementEvents2ondropEvent;
- Fonbeforecut: THTMLStyleElementEvents2onbeforecutEvent;
- Foncut: THTMLStyleElementEvents2oncutEvent;
- Fonbeforecopy: THTMLStyleElementEvents2onbeforecopyEvent;
- Foncopy: THTMLStyleElementEvents2oncopyEvent;
- Fonbeforepaste: THTMLStyleElementEvents2onbeforepasteEvent;
- Fonpaste: THTMLStyleElementEvents2onpasteEvent;
- Foncontextmenu: THTMLStyleElementEvents2oncontextmenuEvent;
- Fonrowsdelete: THTMLStyleElementEvents2onrowsdeleteEvent;
- Fonrowsinserted: THTMLStyleElementEvents2onrowsinsertedEvent;
- Foncellchange: THTMLStyleElementEvents2oncellchangeEvent;
- Fonreadystatechange: THTMLStyleElementEvents2onreadystatechangeEvent;
- Fonlayoutcomplete: THTMLStyleElementEvents2onlayoutcompleteEvent;
- Fonpage: THTMLStyleElementEvents2onpageEvent;
- Fonmouseenter: THTMLStyleElementEvents2onmouseenterEvent;
- Fonmouseleave: THTMLStyleElementEvents2onmouseleaveEvent;
- Fonactivate: THTMLStyleElementEvents2onactivateEvent;
- Fondeactivate: THTMLStyleElementEvents2ondeactivateEvent;
- Fonbeforedeactivate: THTMLStyleElementEvents2onbeforedeactivateEvent;
- Fonbeforeactivate: THTMLStyleElementEvents2onbeforeactivateEvent;
- Fonfocusin: THTMLStyleElementEvents2onfocusinEvent;
- Fonfocusout: THTMLStyleElementEvents2onfocusoutEvent;
- Fonmove: THTMLStyleElementEvents2onmoveEvent;
- Foncontrolselect: THTMLStyleElementEvents2oncontrolselectEvent;
- Fonmovestart: THTMLStyleElementEvents2onmovestartEvent;
- Fonmoveend: THTMLStyleElementEvents2onmoveendEvent;
- Fonresizestart: THTMLStyleElementEvents2onresizestartEvent;
- Fonresizeend: THTMLStyleElementEvents2onresizeendEvent;
- Fonmousewheel: THTMLStyleElementEvents2onmousewheelEvent;
- Fonload: THTMLStyleElementEvents2onloadEvent;
- Fonerror: THTMLStyleElementEvents2onerrorEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLStyleElementEvents2onhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLStyleElementEvents2onclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLStyleElementEvents2ondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLStyleElementEvents2onkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLStyleElementEvents2onkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLStyleElementEvents2onkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLStyleElementEvents2onmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLStyleElementEvents2onmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLStyleElementEvents2onmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLStyleElementEvents2onmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLStyleElementEvents2onmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLStyleElementEvents2onselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLStyleElementEvents2onfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLStyleElementEvents2ondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLStyleElementEvents2onbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLStyleElementEvents2onafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLStyleElementEvents2onerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLStyleElementEvents2onrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLStyleElementEvents2onrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLStyleElementEvents2ondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLStyleElementEvents2ondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLStyleElementEvents2ondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLStyleElementEvents2onlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLStyleElementEvents2onpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLStyleElementEvents2onscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLStyleElementEvents2onfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLStyleElementEvents2onblurEvent read Fonblur write Fonblur;
- property onresize: THTMLStyleElementEvents2onresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLStyleElementEvents2ondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLStyleElementEvents2ondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLStyleElementEvents2ondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLStyleElementEvents2ondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLStyleElementEvents2ondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLStyleElementEvents2ondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLStyleElementEvents2onbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLStyleElementEvents2oncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLStyleElementEvents2onbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLStyleElementEvents2oncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLStyleElementEvents2onbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLStyleElementEvents2onpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLStyleElementEvents2oncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLStyleElementEvents2onrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLStyleElementEvents2onrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLStyleElementEvents2oncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLStyleElementEvents2onreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onlayoutcomplete: THTMLStyleElementEvents2onlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLStyleElementEvents2onpageEvent read Fonpage write Fonpage;
- property onmouseenter: THTMLStyleElementEvents2onmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLStyleElementEvents2onmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onactivate: THTMLStyleElementEvents2onactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLStyleElementEvents2ondeactivateEvent read Fondeactivate write Fondeactivate;
- property onbeforedeactivate: THTMLStyleElementEvents2onbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLStyleElementEvents2onbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onfocusin: THTMLStyleElementEvents2onfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLStyleElementEvents2onfocusoutEvent read Fonfocusout write Fonfocusout;
- property onmove: THTMLStyleElementEvents2onmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLStyleElementEvents2oncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLStyleElementEvents2onmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLStyleElementEvents2onmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLStyleElementEvents2onresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLStyleElementEvents2onresizeendEvent read Fonresizeend write Fonresizeend;
- property onmousewheel: THTMLStyleElementEvents2onmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onload: THTMLStyleElementEvents2onloadEvent read Fonload write Fonload;
- property onerror: THTMLStyleElementEvents2onerrorEvent read Fonerror write Fonerror;
- end;
-
-
- //SinkEventsForwards//
- THTMLNamespaceEventsonreadystatechangeEvent = procedure(Sender: TObject; const pEvtObj: IHTMLEventObj) of object;
-
- //SinkComponent//
- TMSHTMLHTMLNamespaceEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- procedure Doonreadystatechange(const pEvtObj: IHTMLEventObj); safecall;
- protected
- //SinkEventsProtected//
- Fonreadystatechange: THTMLNamespaceEventsonreadystatechangeEvent;
- published
- //SinkEventsPublished//
- property onreadystatechange: THTMLNamespaceEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- end;
-
-
- //SinkEventsForwards//
- THTMLInputFileElementEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonchangeEvent = function(Sender: TObject): WordBool of object;
- THTMLInputFileElementEventsonselectEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonerrorEvent = procedure(Sender: TObject) of object;
- THTMLInputFileElementEventsonabortEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLInputFileElementEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- function Doonchange: WordBool; safecall;
- procedure Doonselect; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- procedure Doonabort; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLInputFileElementEventsonhelpEvent;
- Fonclick: THTMLInputFileElementEventsonclickEvent;
- Fondblclick: THTMLInputFileElementEventsondblclickEvent;
- Fonkeypress: THTMLInputFileElementEventsonkeypressEvent;
- Fonkeydown: THTMLInputFileElementEventsonkeydownEvent;
- Fonkeyup: THTMLInputFileElementEventsonkeyupEvent;
- Fonmouseout: THTMLInputFileElementEventsonmouseoutEvent;
- Fonmouseover: THTMLInputFileElementEventsonmouseoverEvent;
- Fonmousemove: THTMLInputFileElementEventsonmousemoveEvent;
- Fonmousedown: THTMLInputFileElementEventsonmousedownEvent;
- Fonmouseup: THTMLInputFileElementEventsonmouseupEvent;
- Fonselectstart: THTMLInputFileElementEventsonselectstartEvent;
- Fonfilterchange: THTMLInputFileElementEventsonfilterchangeEvent;
- Fondragstart: THTMLInputFileElementEventsondragstartEvent;
- Fonbeforeupdate: THTMLInputFileElementEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLInputFileElementEventsonafterupdateEvent;
- Fonerrorupdate: THTMLInputFileElementEventsonerrorupdateEvent;
- Fonrowexit: THTMLInputFileElementEventsonrowexitEvent;
- Fonrowenter: THTMLInputFileElementEventsonrowenterEvent;
- Fondatasetchanged: THTMLInputFileElementEventsondatasetchangedEvent;
- Fondataavailable: THTMLInputFileElementEventsondataavailableEvent;
- Fondatasetcomplete: THTMLInputFileElementEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLInputFileElementEventsonlosecaptureEvent;
- Fonpropertychange: THTMLInputFileElementEventsonpropertychangeEvent;
- Fonscroll: THTMLInputFileElementEventsonscrollEvent;
- Fonfocus: THTMLInputFileElementEventsonfocusEvent;
- Fonblur: THTMLInputFileElementEventsonblurEvent;
- Fonresize: THTMLInputFileElementEventsonresizeEvent;
- Fondrag: THTMLInputFileElementEventsondragEvent;
- Fondragend: THTMLInputFileElementEventsondragendEvent;
- Fondragenter: THTMLInputFileElementEventsondragenterEvent;
- Fondragover: THTMLInputFileElementEventsondragoverEvent;
- Fondragleave: THTMLInputFileElementEventsondragleaveEvent;
- Fondrop: THTMLInputFileElementEventsondropEvent;
- Fonbeforecut: THTMLInputFileElementEventsonbeforecutEvent;
- Foncut: THTMLInputFileElementEventsoncutEvent;
- Fonbeforecopy: THTMLInputFileElementEventsonbeforecopyEvent;
- Foncopy: THTMLInputFileElementEventsoncopyEvent;
- Fonbeforepaste: THTMLInputFileElementEventsonbeforepasteEvent;
- Fonpaste: THTMLInputFileElementEventsonpasteEvent;
- Foncontextmenu: THTMLInputFileElementEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLInputFileElementEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLInputFileElementEventsonrowsinsertedEvent;
- Foncellchange: THTMLInputFileElementEventsoncellchangeEvent;
- Fonreadystatechange: THTMLInputFileElementEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLInputFileElementEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLInputFileElementEventsonlayoutcompleteEvent;
- Fonpage: THTMLInputFileElementEventsonpageEvent;
- Fonbeforedeactivate: THTMLInputFileElementEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLInputFileElementEventsonbeforeactivateEvent;
- Fonmove: THTMLInputFileElementEventsonmoveEvent;
- Foncontrolselect: THTMLInputFileElementEventsoncontrolselectEvent;
- Fonmovestart: THTMLInputFileElementEventsonmovestartEvent;
- Fonmoveend: THTMLInputFileElementEventsonmoveendEvent;
- Fonresizestart: THTMLInputFileElementEventsonresizestartEvent;
- Fonresizeend: THTMLInputFileElementEventsonresizeendEvent;
- Fonmouseenter: THTMLInputFileElementEventsonmouseenterEvent;
- Fonmouseleave: THTMLInputFileElementEventsonmouseleaveEvent;
- Fonmousewheel: THTMLInputFileElementEventsonmousewheelEvent;
- Fonactivate: THTMLInputFileElementEventsonactivateEvent;
- Fondeactivate: THTMLInputFileElementEventsondeactivateEvent;
- Fonfocusin: THTMLInputFileElementEventsonfocusinEvent;
- Fonfocusout: THTMLInputFileElementEventsonfocusoutEvent;
- Fonchange: THTMLInputFileElementEventsonchangeEvent;
- Fonselect: THTMLInputFileElementEventsonselectEvent;
- Fonload: THTMLInputFileElementEventsonloadEvent;
- Fonerror: THTMLInputFileElementEventsonerrorEvent;
- Fonabort: THTMLInputFileElementEventsonabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLInputFileElementEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLInputFileElementEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLInputFileElementEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLInputFileElementEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLInputFileElementEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLInputFileElementEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLInputFileElementEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLInputFileElementEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLInputFileElementEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLInputFileElementEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLInputFileElementEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLInputFileElementEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLInputFileElementEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLInputFileElementEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLInputFileElementEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLInputFileElementEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLInputFileElementEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLInputFileElementEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLInputFileElementEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLInputFileElementEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLInputFileElementEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLInputFileElementEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLInputFileElementEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLInputFileElementEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLInputFileElementEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLInputFileElementEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLInputFileElementEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLInputFileElementEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLInputFileElementEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLInputFileElementEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLInputFileElementEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLInputFileElementEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLInputFileElementEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLInputFileElementEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLInputFileElementEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLInputFileElementEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLInputFileElementEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLInputFileElementEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLInputFileElementEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLInputFileElementEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLInputFileElementEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLInputFileElementEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLInputFileElementEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLInputFileElementEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLInputFileElementEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLInputFileElementEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLInputFileElementEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLInputFileElementEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLInputFileElementEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLInputFileElementEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLInputFileElementEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLInputFileElementEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLInputFileElementEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLInputFileElementEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLInputFileElementEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLInputFileElementEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLInputFileElementEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLInputFileElementEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLInputFileElementEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLInputFileElementEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLInputFileElementEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLInputFileElementEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLInputFileElementEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onchange: THTMLInputFileElementEventsonchangeEvent read Fonchange write Fonchange;
- property onselect: THTMLInputFileElementEventsonselectEvent read Fonselect write Fonselect;
- property onload: THTMLInputFileElementEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLInputFileElementEventsonerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLInputFileElementEventsonabortEvent read Fonabort write Fonabort;
- end;
-
-
- //SinkEventsForwards//
- THTMLInputImageEventsonhelpEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonclickEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsondblclickEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonkeypressEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonkeydownEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonkeyupEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmouseoutEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmouseoverEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmousemoveEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmousedownEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmouseupEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonselectstartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonfilterchangeEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondragstartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonbeforeupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonafterupdateEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonerrorupdateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonrowexitEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonrowenterEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondatasetchangedEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondataavailableEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondatasetcompleteEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonlosecaptureEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonpropertychangeEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonscrollEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonfocusEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonblurEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonresizeEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondragEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsondragendEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondragenterEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsondragoverEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsondragleaveEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondropEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonbeforecutEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsoncutEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonbeforecopyEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsoncopyEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonbeforepasteEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonpasteEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsoncontextmenuEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonrowsdeleteEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonrowsinsertedEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsoncellchangeEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonreadystatechangeEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonbeforeeditfocusEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonlayoutcompleteEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonpageEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonbeforedeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonbeforeactivateEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonmoveEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsoncontrolselectEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonmovestartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonmoveendEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonresizestartEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonresizeendEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmouseenterEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmouseleaveEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonmousewheelEvent = function(Sender: TObject): WordBool of object;
- THTMLInputImageEventsonactivateEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsondeactivateEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonfocusinEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonfocusoutEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonloadEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonerrorEvent = procedure(Sender: TObject) of object;
- THTMLInputImageEventsonabortEvent = procedure(Sender: TObject) of object;
-
- //SinkComponent//
- TMSHTMLHTMLInputImageEvents = class(TMSHTMLEventsBaseSink
- //ISinkInterface//
- )
- protected
- function DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult; override;
-
- //ISinkInterfaceMethods//
- public
- { system methods }
- constructor Create(AOwner: TComponent); override;
- protected
- //SinkInterface//
- function Doonhelp: WordBool; safecall;
- function Doonclick: WordBool; safecall;
- function Doondblclick: WordBool; safecall;
- function Doonkeypress: WordBool; safecall;
- procedure Doonkeydown; safecall;
- procedure Doonkeyup; safecall;
- procedure Doonmouseout; safecall;
- procedure Doonmouseover; safecall;
- procedure Doonmousemove; safecall;
- procedure Doonmousedown; safecall;
- procedure Doonmouseup; safecall;
- function Doonselectstart: WordBool; safecall;
- procedure Doonfilterchange; safecall;
- function Doondragstart: WordBool; safecall;
- function Doonbeforeupdate: WordBool; safecall;
- procedure Doonafterupdate; safecall;
- function Doonerrorupdate: WordBool; safecall;
- function Doonrowexit: WordBool; safecall;
- procedure Doonrowenter; safecall;
- procedure Doondatasetchanged; safecall;
- procedure Doondataavailable; safecall;
- procedure Doondatasetcomplete; safecall;
- procedure Doonlosecapture; safecall;
- procedure Doonpropertychange; safecall;
- procedure Doonscroll; safecall;
- procedure Doonfocus; safecall;
- procedure Doonblur; safecall;
- procedure Doonresize; safecall;
- function Doondrag: WordBool; safecall;
- procedure Doondragend; safecall;
- function Doondragenter: WordBool; safecall;
- function Doondragover: WordBool; safecall;
- procedure Doondragleave; safecall;
- function Doondrop: WordBool; safecall;
- function Doonbeforecut: WordBool; safecall;
- function Dooncut: WordBool; safecall;
- function Doonbeforecopy: WordBool; safecall;
- function Dooncopy: WordBool; safecall;
- function Doonbeforepaste: WordBool; safecall;
- function Doonpaste: WordBool; safecall;
- function Dooncontextmenu: WordBool; safecall;
- procedure Doonrowsdelete; safecall;
- procedure Doonrowsinserted; safecall;
- procedure Dooncellchange; safecall;
- procedure Doonreadystatechange; safecall;
- procedure Doonbeforeeditfocus; safecall;
- procedure Doonlayoutcomplete; safecall;
- procedure Doonpage; safecall;
- function Doonbeforedeactivate: WordBool; safecall;
- function Doonbeforeactivate: WordBool; safecall;
- procedure Doonmove; safecall;
- function Dooncontrolselect: WordBool; safecall;
- function Doonmovestart: WordBool; safecall;
- procedure Doonmoveend; safecall;
- function Doonresizestart: WordBool; safecall;
- procedure Doonresizeend; safecall;
- procedure Doonmouseenter; safecall;
- procedure Doonmouseleave; safecall;
- function Doonmousewheel: WordBool; safecall;
- procedure Doonactivate; safecall;
- procedure Doondeactivate; safecall;
- procedure Doonfocusin; safecall;
- procedure Doonfocusout; safecall;
- procedure Doonload; safecall;
- procedure Doonerror; safecall;
- procedure Doonabort; safecall;
- protected
- //SinkEventsProtected//
- Fonhelp: THTMLInputImageEventsonhelpEvent;
- Fonclick: THTMLInputImageEventsonclickEvent;
- Fondblclick: THTMLInputImageEventsondblclickEvent;
- Fonkeypress: THTMLInputImageEventsonkeypressEvent;
- Fonkeydown: THTMLInputImageEventsonkeydownEvent;
- Fonkeyup: THTMLInputImageEventsonkeyupEvent;
- Fonmouseout: THTMLInputImageEventsonmouseoutEvent;
- Fonmouseover: THTMLInputImageEventsonmouseoverEvent;
- Fonmousemove: THTMLInputImageEventsonmousemoveEvent;
- Fonmousedown: THTMLInputImageEventsonmousedownEvent;
- Fonmouseup: THTMLInputImageEventsonmouseupEvent;
- Fonselectstart: THTMLInputImageEventsonselectstartEvent;
- Fonfilterchange: THTMLInputImageEventsonfilterchangeEvent;
- Fondragstart: THTMLInputImageEventsondragstartEvent;
- Fonbeforeupdate: THTMLInputImageEventsonbeforeupdateEvent;
- Fonafterupdate: THTMLInputImageEventsonafterupdateEvent;
- Fonerrorupdate: THTMLInputImageEventsonerrorupdateEvent;
- Fonrowexit: THTMLInputImageEventsonrowexitEvent;
- Fonrowenter: THTMLInputImageEventsonrowenterEvent;
- Fondatasetchanged: THTMLInputImageEventsondatasetchangedEvent;
- Fondataavailable: THTMLInputImageEventsondataavailableEvent;
- Fondatasetcomplete: THTMLInputImageEventsondatasetcompleteEvent;
- Fonlosecapture: THTMLInputImageEventsonlosecaptureEvent;
- Fonpropertychange: THTMLInputImageEventsonpropertychangeEvent;
- Fonscroll: THTMLInputImageEventsonscrollEvent;
- Fonfocus: THTMLInputImageEventsonfocusEvent;
- Fonblur: THTMLInputImageEventsonblurEvent;
- Fonresize: THTMLInputImageEventsonresizeEvent;
- Fondrag: THTMLInputImageEventsondragEvent;
- Fondragend: THTMLInputImageEventsondragendEvent;
- Fondragenter: THTMLInputImageEventsondragenterEvent;
- Fondragover: THTMLInputImageEventsondragoverEvent;
- Fondragleave: THTMLInputImageEventsondragleaveEvent;
- Fondrop: THTMLInputImageEventsondropEvent;
- Fonbeforecut: THTMLInputImageEventsonbeforecutEvent;
- Foncut: THTMLInputImageEventsoncutEvent;
- Fonbeforecopy: THTMLInputImageEventsonbeforecopyEvent;
- Foncopy: THTMLInputImageEventsoncopyEvent;
- Fonbeforepaste: THTMLInputImageEventsonbeforepasteEvent;
- Fonpaste: THTMLInputImageEventsonpasteEvent;
- Foncontextmenu: THTMLInputImageEventsoncontextmenuEvent;
- Fonrowsdelete: THTMLInputImageEventsonrowsdeleteEvent;
- Fonrowsinserted: THTMLInputImageEventsonrowsinsertedEvent;
- Foncellchange: THTMLInputImageEventsoncellchangeEvent;
- Fonreadystatechange: THTMLInputImageEventsonreadystatechangeEvent;
- Fonbeforeeditfocus: THTMLInputImageEventsonbeforeeditfocusEvent;
- Fonlayoutcomplete: THTMLInputImageEventsonlayoutcompleteEvent;
- Fonpage: THTMLInputImageEventsonpageEvent;
- Fonbeforedeactivate: THTMLInputImageEventsonbeforedeactivateEvent;
- Fonbeforeactivate: THTMLInputImageEventsonbeforeactivateEvent;
- Fonmove: THTMLInputImageEventsonmoveEvent;
- Foncontrolselect: THTMLInputImageEventsoncontrolselectEvent;
- Fonmovestart: THTMLInputImageEventsonmovestartEvent;
- Fonmoveend: THTMLInputImageEventsonmoveendEvent;
- Fonresizestart: THTMLInputImageEventsonresizestartEvent;
- Fonresizeend: THTMLInputImageEventsonresizeendEvent;
- Fonmouseenter: THTMLInputImageEventsonmouseenterEvent;
- Fonmouseleave: THTMLInputImageEventsonmouseleaveEvent;
- Fonmousewheel: THTMLInputImageEventsonmousewheelEvent;
- Fonactivate: THTMLInputImageEventsonactivateEvent;
- Fondeactivate: THTMLInputImageEventsondeactivateEvent;
- Fonfocusin: THTMLInputImageEventsonfocusinEvent;
- Fonfocusout: THTMLInputImageEventsonfocusoutEvent;
- Fonload: THTMLInputImageEventsonloadEvent;
- Fonerror: THTMLInputImageEventsonerrorEvent;
- Fonabort: THTMLInputImageEventsonabortEvent;
- published
- //SinkEventsPublished//
- property onhelp: THTMLInputImageEventsonhelpEvent read Fonhelp write Fonhelp;
- property onclick: THTMLInputImageEventsonclickEvent read Fonclick write Fonclick;
- property ondblclick: THTMLInputImageEventsondblclickEvent read Fondblclick write Fondblclick;
- property onkeypress: THTMLInputImageEventsonkeypressEvent read Fonkeypress write Fonkeypress;
- property onkeydown: THTMLInputImageEventsonkeydownEvent read Fonkeydown write Fonkeydown;
- property onkeyup: THTMLInputImageEventsonkeyupEvent read Fonkeyup write Fonkeyup;
- property onmouseout: THTMLInputImageEventsonmouseoutEvent read Fonmouseout write Fonmouseout;
- property onmouseover: THTMLInputImageEventsonmouseoverEvent read Fonmouseover write Fonmouseover;
- property onmousemove: THTMLInputImageEventsonmousemoveEvent read Fonmousemove write Fonmousemove;
- property onmousedown: THTMLInputImageEventsonmousedownEvent read Fonmousedown write Fonmousedown;
- property onmouseup: THTMLInputImageEventsonmouseupEvent read Fonmouseup write Fonmouseup;
- property onselectstart: THTMLInputImageEventsonselectstartEvent read Fonselectstart write Fonselectstart;
- property onfilterchange: THTMLInputImageEventsonfilterchangeEvent read Fonfilterchange write Fonfilterchange;
- property ondragstart: THTMLInputImageEventsondragstartEvent read Fondragstart write Fondragstart;
- property onbeforeupdate: THTMLInputImageEventsonbeforeupdateEvent read Fonbeforeupdate write Fonbeforeupdate;
- property onafterupdate: THTMLInputImageEventsonafterupdateEvent read Fonafterupdate write Fonafterupdate;
- property onerrorupdate: THTMLInputImageEventsonerrorupdateEvent read Fonerrorupdate write Fonerrorupdate;
- property onrowexit: THTMLInputImageEventsonrowexitEvent read Fonrowexit write Fonrowexit;
- property onrowenter: THTMLInputImageEventsonrowenterEvent read Fonrowenter write Fonrowenter;
- property ondatasetchanged: THTMLInputImageEventsondatasetchangedEvent read Fondatasetchanged write Fondatasetchanged;
- property ondataavailable: THTMLInputImageEventsondataavailableEvent read Fondataavailable write Fondataavailable;
- property ondatasetcomplete: THTMLInputImageEventsondatasetcompleteEvent read Fondatasetcomplete write Fondatasetcomplete;
- property onlosecapture: THTMLInputImageEventsonlosecaptureEvent read Fonlosecapture write Fonlosecapture;
- property onpropertychange: THTMLInputImageEventsonpropertychangeEvent read Fonpropertychange write Fonpropertychange;
- property onscroll: THTMLInputImageEventsonscrollEvent read Fonscroll write Fonscroll;
- property onfocus: THTMLInputImageEventsonfocusEvent read Fonfocus write Fonfocus;
- property onblur: THTMLInputImageEventsonblurEvent read Fonblur write Fonblur;
- property onresize: THTMLInputImageEventsonresizeEvent read Fonresize write Fonresize;
- property ondrag: THTMLInputImageEventsondragEvent read Fondrag write Fondrag;
- property ondragend: THTMLInputImageEventsondragendEvent read Fondragend write Fondragend;
- property ondragenter: THTMLInputImageEventsondragenterEvent read Fondragenter write Fondragenter;
- property ondragover: THTMLInputImageEventsondragoverEvent read Fondragover write Fondragover;
- property ondragleave: THTMLInputImageEventsondragleaveEvent read Fondragleave write Fondragleave;
- property ondrop: THTMLInputImageEventsondropEvent read Fondrop write Fondrop;
- property onbeforecut: THTMLInputImageEventsonbeforecutEvent read Fonbeforecut write Fonbeforecut;
- property oncut: THTMLInputImageEventsoncutEvent read Foncut write Foncut;
- property onbeforecopy: THTMLInputImageEventsonbeforecopyEvent read Fonbeforecopy write Fonbeforecopy;
- property oncopy: THTMLInputImageEventsoncopyEvent read Foncopy write Foncopy;
- property onbeforepaste: THTMLInputImageEventsonbeforepasteEvent read Fonbeforepaste write Fonbeforepaste;
- property onpaste: THTMLInputImageEventsonpasteEvent read Fonpaste write Fonpaste;
- property oncontextmenu: THTMLInputImageEventsoncontextmenuEvent read Foncontextmenu write Foncontextmenu;
- property onrowsdelete: THTMLInputImageEventsonrowsdeleteEvent read Fonrowsdelete write Fonrowsdelete;
- property onrowsinserted: THTMLInputImageEventsonrowsinsertedEvent read Fonrowsinserted write Fonrowsinserted;
- property oncellchange: THTMLInputImageEventsoncellchangeEvent read Foncellchange write Foncellchange;
- property onreadystatechange: THTMLInputImageEventsonreadystatechangeEvent read Fonreadystatechange write Fonreadystatechange;
- property onbeforeeditfocus: THTMLInputImageEventsonbeforeeditfocusEvent read Fonbeforeeditfocus write Fonbeforeeditfocus;
- property onlayoutcomplete: THTMLInputImageEventsonlayoutcompleteEvent read Fonlayoutcomplete write Fonlayoutcomplete;
- property onpage: THTMLInputImageEventsonpageEvent read Fonpage write Fonpage;
- property onbeforedeactivate: THTMLInputImageEventsonbeforedeactivateEvent read Fonbeforedeactivate write Fonbeforedeactivate;
- property onbeforeactivate: THTMLInputImageEventsonbeforeactivateEvent read Fonbeforeactivate write Fonbeforeactivate;
- property onmove: THTMLInputImageEventsonmoveEvent read Fonmove write Fonmove;
- property oncontrolselect: THTMLInputImageEventsoncontrolselectEvent read Foncontrolselect write Foncontrolselect;
- property onmovestart: THTMLInputImageEventsonmovestartEvent read Fonmovestart write Fonmovestart;
- property onmoveend: THTMLInputImageEventsonmoveendEvent read Fonmoveend write Fonmoveend;
- property onresizestart: THTMLInputImageEventsonresizestartEvent read Fonresizestart write Fonresizestart;
- property onresizeend: THTMLInputImageEventsonresizeendEvent read Fonresizeend write Fonresizeend;
- property onmouseenter: THTMLInputImageEventsonmouseenterEvent read Fonmouseenter write Fonmouseenter;
- property onmouseleave: THTMLInputImageEventsonmouseleaveEvent read Fonmouseleave write Fonmouseleave;
- property onmousewheel: THTMLInputImageEventsonmousewheelEvent read Fonmousewheel write Fonmousewheel;
- property onactivate: THTMLInputImageEventsonactivateEvent read Fonactivate write Fonactivate;
- property ondeactivate: THTMLInputImageEventsondeactivateEvent read Fondeactivate write Fondeactivate;
- property onfocusin: THTMLInputImageEventsonfocusinEvent read Fonfocusin write Fonfocusin;
- property onfocusout: THTMLInputImageEventsonfocusoutEvent read Fonfocusout write Fonfocusout;
- property onload: THTMLInputImageEventsonloadEvent read Fonload write Fonload;
- property onerror: THTMLInputImageEventsonerrorEvent read Fonerror write Fonerror;
- property onabort: THTMLInputImageEventsonabortEvent read Fonabort write Fonabort;
- end;
-
- //SinkIntfEnd//
-
-procedure Register;
-
-implementation
-
-uses
- SysUtils;
-
-{ globals }
-
-procedure BuildPositionalDispIds(pDispIds: PDispIdList; const dps: TDispParams);
-var
- i: integer;
-begin
- Assert(pDispIds <> nil);
-
- { by default, directly arrange in reverse order }
- for i := 0 to dps.cArgs - 1 do
- pDispIds^[i] := dps.cArgs - 1 - i;
-
- { check for named args }
- if (dps.cNamedArgs <= 0) then Exit;
-
- { parse named args }
- for i := 0 to dps.cNamedArgs - 1 do
- pDispIds^[dps.rgdispidNamedArgs^[i]] := i;
-end;
-
-
-{ TMSHTMLEventsBaseSink }
-
-function TMSHTMLEventsBaseSink.GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TMSHTMLEventsBaseSink.GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult;
-begin
- Result := E_NOTIMPL;
- pointer(TypeInfo) := nil;
-end;
-
-function TMSHTMLEventsBaseSink.GetTypeInfoCount(out Count: Integer): HResult;
-begin
- Result := E_NOTIMPL;
- Count := 0;
-end;
-
-function TMSHTMLEventsBaseSink.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-var
- dps: TDispParams absolute Params;
- bHasParams: boolean;
- pDispIds: PDispIdList;
- iDispIdsSize: integer;
-begin
- { validity checks }
- if (Flags and DISPATCH_METHOD = 0) then
- raise Exception.Create(
- Format('%s only supports sinking of method calls!', [ClassName]
- ));
-
- { build pDispIds array. this maybe a bit of overhead but it allows us to
- sink named-argument calls such as Excel's AppEvents, etc!
- }
- pDispIds := nil;
- iDispIdsSize := 0;
- bHasParams := (dps.cArgs > 0);
- if (bHasParams) then
- begin
- iDispIdsSize := dps.cArgs * SizeOf(TDispId);
- GetMem(pDispIds, iDispIdsSize);
- end; { if }
-
- try
- { rearrange dispids properly }
- if (bHasParams) then BuildPositionalDispIds(pDispIds, dps);
- Result := DoInvoke(DispId, IID, LocaleID, Flags, dps, pDispIds, VarResult, ExcepInfo, ArgErr);
- finally
- { free pDispIds array }
- if (bHasParams) then FreeMem(pDispIds, iDispIdsSize);
- end; { finally }
-end;
-
-function TMSHTMLEventsBaseSink.QueryInterface(const IID: TGUID; out Obj): HResult;
-begin
- if (GetInterface(IID, Obj)) then
- begin
- Result := S_OK;
- Exit;
- end
- else
- if (IsEqualIID(IID, FSinkIID)) then
- if (GetInterface(IDispatch, Obj)) then
- begin
- Result := S_OK;
- Exit;
- end;
- Result := E_NOINTERFACE;
- pointer(Obj) := nil;
-end;
-
-function TMSHTMLEventsBaseSink._AddRef: Integer;
-begin
- Result := 2;
-end;
-
-function TMSHTMLEventsBaseSink._Release: Integer;
-begin
- Result := 1;
-end;
-
-destructor TMSHTMLEventsBaseSink.Destroy;
-begin
- Disconnect;
- inherited;
-end;
-
-procedure TMSHTMLEventsBaseSink.Connect(const ASource: IUnknown);
-var
- pcpc: IConnectionPointContainer;
-begin
- Assert(ASource <> nil);
- Disconnect;
- try
- OleCheck(ASource.QueryInterface(IConnectionPointContainer, pcpc));
- OleCheck(pcpc.FindConnectionPoint(FSinkIID, FCP));
- OleCheck(FCP.Advise(Self, FCookie));
- FSource := ASource;
- except
- raise Exception.Create(Format('Unable to connect %s.'#13'%s',
- [Name, Exception(ExceptObject).Message]
- ));
- end; { finally }
-end;
-
-procedure TMSHTMLEventsBaseSink.Disconnect;
-begin
- if (FSource = nil) then Exit;
- try
- OleCheck(FCP.Unadvise(FCookie));
- FCP := nil;
- FSource := nil;
- except
- pointer(FCP) := nil;
- pointer(FSource) := nil;
- end; { except }
-end;
-
-
-//SinkImplStart//
-
-function TMSHTMLHTMLElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLLinkElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLLinkElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLLinkElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLLinkElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLLinkElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-
-
-function TMSHTMLHTMLLinkElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLLinkElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLLinkElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLLinkElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLinkElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLinkElementEvents2.Doonerror(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLFormElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1007:
- begin
- OleVariant(VarResult^) := Doonsubmit();
- Result := S_OK;
- end;
- 1015:
- begin
- OleVariant(VarResult^) := Doonreset();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLFormElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLFormElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLFormElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonsubmit: WordBool;
-begin
- if not Assigned(onsubmit) then System.Exit;
- Result := onsubmit(Self);
-end;
-
-function TMSHTMLHTMLFormElementEvents.Doonreset: WordBool;
-begin
- if not Assigned(onreset) then System.Exit;
- Result := onreset(Self);
-end;
-
-
-
-function TMSHTMLHTMLFormElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1007:
- begin
- OleVariant(VarResult^) := Doonsubmit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1015:
- begin
- OleVariant(VarResult^) := Doonreset(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLFormElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLFormElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLFormElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFormElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonsubmit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onsubmit) then System.Exit;
- Result := onsubmit(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFormElementEvents2.Doonreset(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onreset) then System.Exit;
- Result := onreset(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLImgEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLImgEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLImgEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLImgEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLImgEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-procedure TMSHTMLHTMLImgEvents.Doonabort;
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self);
-end;
-
-
-
-function TMSHTMLHTMLImgEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLImgEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLImgEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLImgEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLImgEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonerror(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLImgEvents2.Doonabort(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLTextContainerEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1001:
- begin
- Doonchange();
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLTextContainerEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLTextContainerEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLTextContainerEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLTextContainerEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonchange;
-begin
- if not Assigned(onchange) then System.Exit;
- onchange(Self);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents.Doonselect;
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self);
-end;
-
-
-
-function TMSHTMLHTMLTextContainerEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1001:
- begin
- Doonchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLTextContainerEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLTextContainerEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLTextContainerEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTextContainerEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onchange) then System.Exit;
- onchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTextContainerEvents2.Doonselect(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLAnchorEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLAnchorEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLAnchorEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLAnchorEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLAnchorEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLAnchorEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLAnchorEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLAnchorEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLAnchorEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAnchorEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAnchorEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLLabelEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLLabelEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLLabelEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLLabelEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLLabelEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLLabelEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLLabelEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLLabelEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLLabelEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLLabelEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLLabelEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLLabelEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLSelectElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1001:
- begin
- Doonchange();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLSelectElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLSelectElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLSelectElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLSelectElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents.Doonchange;
-begin
- if not Assigned(onchange) then System.Exit;
- onchange(Self);
-end;
-
-
-
-function TMSHTMLHTMLSelectElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1001:
- begin
- Doonchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLSelectElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLSelectElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLSelectElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLSelectElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLSelectElementEvents2.Doonchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onchange) then System.Exit;
- onchange(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLInputTextElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1001:
- begin
- OleVariant(VarResult^) := Doonchange();
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLInputTextElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLInputTextElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLInputTextElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents.Doonchange: WordBool;
-begin
- if not Assigned(onchange) then System.Exit;
- Result := onchange(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonselect;
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents.Doonabort;
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self);
-end;
-
-
-
-function TMSHTMLHTMLInputTextElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1001:
- begin
- OleVariant(VarResult^) := Doonchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLInputTextElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLInputTextElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLInputTextElementEvents2.Doonchange(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onchange) then System.Exit;
- Result := onchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonselect(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonerror(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLInputTextElementEvents2.Doonabort(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLOptionButtonElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1001:
- begin
- OleVariant(VarResult^) := Doonchange();
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLOptionButtonElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLOptionButtonElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-function TMSHTMLHTMLOptionButtonElementEvents.Doonchange: WordBool;
-begin
- if not Assigned(onchange) then System.Exit;
- Result := onchange(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonselect;
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-procedure TMSHTMLHTMLOptionButtonElementEvents.Doonabort;
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self);
-end;
-
-
-
-function TMSHTMLHTMLButtonElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLButtonElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLButtonElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLButtonElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLButtonElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLButtonElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLButtonElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLButtonElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLButtonElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLButtonElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLButtonElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLMarqueeElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1001:
- begin
- Doonchange();
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect();
- Result := S_OK;
- end;
- 1009:
- begin
- Doonbounce();
- Result := S_OK;
- end;
- 1010:
- begin
- Doonfinish();
- Result := S_OK;
- end;
- 1011:
- begin
- Doonstart();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLMarqueeElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLMarqueeElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonchange;
-begin
- if not Assigned(onchange) then System.Exit;
- onchange(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonselect;
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonbounce;
-begin
- if not Assigned(onbounce) then System.Exit;
- onbounce(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonfinish;
-begin
- if not Assigned(onfinish) then System.Exit;
- onfinish(Self);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents.Doonstart;
-begin
- if not Assigned(onstart) then System.Exit;
- onstart(Self);
-end;
-
-
-
-function TMSHTMLHTMLMarqueeElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1001:
- begin
- Doonchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1009:
- begin
- Doonbounce(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1010:
- begin
- Doonfinish(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1011:
- begin
- Doonstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLMarqueeElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLMarqueeElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMarqueeElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onchange) then System.Exit;
- onchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonselect(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonbounce(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onbounce) then System.Exit;
- onbounce(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonfinish(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfinish) then System.Exit;
- onfinish(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMarqueeElementEvents2.Doonstart(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onstart) then System.Exit;
- onstart(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLWindowEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1008:
- begin
- Doonunload();
- Result := S_OK;
- end;
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(dps.rgvarg^[pDispIds^[0]].bstrval, dps.rgvarg^[pDispIds^[1]].bstrval, dps.rgvarg^[pDispIds^[2]].lval);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- 1017:
- begin
- Doonbeforeunload();
- Result := S_OK;
- end;
- 1024:
- begin
- Doonbeforeprint();
- Result := S_OK;
- end;
- 1025:
- begin
- Doonafterprint();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLWindowEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLWindowEvents;
-end;
-
-//SinkImplementation//
-
-procedure TMSHTMLHTMLWindowEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonunload;
-begin
- if not Assigned(onunload) then System.Exit;
- onunload(Self);
-end;
-
-function TMSHTMLHTMLWindowEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonerror(const description: WideString; const url: WideString; line: Integer);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, description, url, line);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonbeforeunload;
-begin
- if not Assigned(onbeforeunload) then System.Exit;
- onbeforeunload(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonbeforeprint;
-begin
- if not Assigned(onbeforeprint) then System.Exit;
- onbeforeprint(Self);
-end;
-
-procedure TMSHTMLHTMLWindowEvents.Doonafterprint;
-begin
- if not Assigned(onafterprint) then System.Exit;
- onafterprint(Self);
-end;
-
-
-
-function TMSHTMLHTMLWindowEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- 1003:
- begin
- Doonload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1008:
- begin
- Doonunload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(dps.rgvarg^[pDispIds^[0]].bstrval, dps.rgvarg^[pDispIds^[1]].bstrval, dps.rgvarg^[pDispIds^[2]].lval);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1017:
- begin
- Doonbeforeunload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1024:
- begin
- Doonbeforeprint(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1025:
- begin
- Doonafterprint(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLWindowEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLWindowEvents2;
-end;
-
-//SinkImplementation//
-
-procedure TMSHTMLHTMLWindowEvents2.Doonload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonunload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onunload) then System.Exit;
- onunload(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLWindowEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonerror(const description: WideString; const url: WideString; line: Integer);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, description, url, line);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonbeforeunload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onbeforeunload) then System.Exit;
- onbeforeunload(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonbeforeprint(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onbeforeprint) then System.Exit;
- onbeforeprint(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLWindowEvents2.Doonafterprint(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterprint) then System.Exit;
- onafterprint(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLDocumentEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- 1026:
- begin
- OleVariant(VarResult^) := Doonstop();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1037:
- begin
- Doonselectionchange();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLDocumentEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLDocumentEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLDocumentEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonstop: WordBool;
-begin
- if not Assigned(onstop) then System.Exit;
- Result := onstop(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonselectionchange;
-begin
- if not Assigned(onselectionchange) then System.Exit;
- onselectionchange(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-function TMSHTMLHTMLDocumentEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-
-
-function TMSHTMLHTMLDocumentEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1026:
- begin
- OleVariant(VarResult^) := Doonstop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1037:
- begin
- Doonselectionchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLDocumentEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLDocumentEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLDocumentEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonstop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onstop) then System.Exit;
- Result := onstop(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonbeforeeditfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonselectionchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onselectionchange) then System.Exit;
- onselectionchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLDocumentEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLDocumentEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLDWebBridgeEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- 1:
- begin
- Doonscriptletevent(dps.rgvarg^[pDispIds^[0]].bstrval, OleVariant(dps.rgvarg^[pDispIds^[1]]));
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLDWebBridgeEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := DWebBridgeEvents;
-end;
-
-//SinkImplementation//
-
-procedure TMSHTMLDWebBridgeEvents.Doonscriptletevent(const name: WideString; eventData: OleVariant);
-begin
- if not Assigned(onscriptletevent) then System.Exit;
- onscriptletevent(Self, name, eventData);
-end;
-
-procedure TMSHTMLDWebBridgeEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-function TMSHTMLDWebBridgeEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLDWebBridgeEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-procedure TMSHTMLDWebBridgeEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLDWebBridgeEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-function TMSHTMLDWebBridgeEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLDWebBridgeEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLDWebBridgeEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLDWebBridgeEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-
-
-function TMSHTMLHTMLControlElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLControlElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLControlElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLControlElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLControlElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLControlElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLControlElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLControlElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLControlElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLControlElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLControlElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLMapEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLMapEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLMapEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLMapEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLMapEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLMapEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLMapEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLMapEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLMapEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLMapEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLMapEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLMapEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLAreaEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLAreaEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLAreaEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLAreaEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLAreaEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLAreaEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLAreaEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLAreaEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLAreaEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLAreaEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLAreaEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLAreaEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLTableEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLTableEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLTableEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLTableEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLTableEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLTableEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-
-
-function TMSHTMLHTMLTableEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLTableEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLTableEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLTableEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLTableEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLTableEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLScriptEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLScriptEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLScriptEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLScriptEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLScriptEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLScriptEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-
-
-function TMSHTMLHTMLScriptEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLScriptEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLScriptEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLScriptEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLScriptEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLScriptEvents2.Doonerror(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLObjectElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418093:
- begin
- OleVariant(VarResult^) := Doonerror();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -2147418092:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLObjectElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLObjectElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLObjectElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLObjectElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLObjectElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-function TMSHTMLHTMLObjectElementEvents.Doonerror: WordBool;
-begin
- if not Assigned(onerror) then System.Exit;
- Result := onerror(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-
-
-function TMSHTMLHTMLObjectElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- OleVariant(VarResult^) := Doonerror(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLObjectElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLObjectElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLObjectElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLObjectElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLObjectElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLObjectElementEvents2.Doonerror(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerror) then System.Exit;
- Result := onerror(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLObjectElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLFrameSiteEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLFrameSiteEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLFrameSiteEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLFrameSiteEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-
-
-function TMSHTMLHTMLFrameSiteEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLFrameSiteEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLFrameSiteEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLFrameSiteEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLFrameSiteEvents2.Doonload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLStyleElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLStyleElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLStyleElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLStyleElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLStyleElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-
-
-function TMSHTMLHTMLStyleElementEvents2.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLStyleElementEvents2.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLStyleElementEvents2;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLStyleElementEvents2.Doonhelp(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doondblclick(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonkeypress(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonkeydown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonkeyup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmouseout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmouseover(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmousemove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmousedown(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmouseup(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonselectstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonfilterchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doondragstart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonafterupdate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonerrorupdate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonrowexit(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonrowenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doondatasetchanged(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doondataavailable(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doondatasetcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonlosecapture(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonpropertychange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonscroll(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonfocus(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonblur(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonresize(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doondrag(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doondragend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doondragenter(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doondragover(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doondragleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doondrop(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonbeforecut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Dooncut(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonbeforecopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Dooncopy(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonbeforepaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonpaste(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Dooncontextmenu(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonrowsdelete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonrowsinserted(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Dooncellchange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonlayoutcomplete(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonpage(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmouseenter(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmouseleave(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doondeactivate(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonfocusin(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonfocusout(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmove(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Dooncontrolselect(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonmovestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonmoveend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonresizestart(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonresizeend(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self, pEvtObj);
-end;
-
-function TMSHTMLHTMLStyleElementEvents2.Doonmousewheel(const pEvtObj: IHTMLEventObj): WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonload(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self, pEvtObj);
-end;
-
-procedure TMSHTMLHTMLStyleElementEvents2.Doonerror(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLNamespaceEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -609:
- begin
- Doonreadystatechange(IUnknown(dps.rgvarg^[pDispIds^[0]].unkval) as IHTMLEventObj);
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLNamespaceEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLNamespaceEvents;
-end;
-
-//SinkImplementation//
-
-procedure TMSHTMLHTMLNamespaceEvents.Doonreadystatechange(const pEvtObj: IHTMLEventObj);
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self, pEvtObj);
-end;
-
-
-
-function TMSHTMLHTMLInputFileElementEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1001:
- begin
- OleVariant(VarResult^) := Doonchange();
- Result := S_OK;
- end;
- 1006:
- begin
- Doonselect();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLInputFileElementEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLInputFileElementEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLInputFileElementEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-function TMSHTMLHTMLInputFileElementEvents.Doonchange: WordBool;
-begin
- if not Assigned(onchange) then System.Exit;
- Result := onchange(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonselect;
-begin
- if not Assigned(onselect) then System.Exit;
- onselect(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-procedure TMSHTMLHTMLInputFileElementEvents.Doonabort;
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self);
-end;
-
-
-
-function TMSHTMLHTMLInputImageEvents.DoInvoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var dps: TDispParams; pDispIds: PDispIdList;
- VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-type
- POleVariant = ^OleVariant;
-begin
- Result := DISP_E_MEMBERNOTFOUND;
-
- //SinkInvoke//
- case DispId of
- -2147418102:
- begin
- OleVariant(VarResult^) := Doonhelp();
- Result := S_OK;
- end;
- -600:
- begin
- OleVariant(VarResult^) := Doonclick();
- Result := S_OK;
- end;
- -601:
- begin
- OleVariant(VarResult^) := Doondblclick();
- Result := S_OK;
- end;
- -603:
- begin
- OleVariant(VarResult^) := Doonkeypress();
- Result := S_OK;
- end;
- -602:
- begin
- Doonkeydown();
- Result := S_OK;
- end;
- -604:
- begin
- Doonkeyup();
- Result := S_OK;
- end;
- -2147418103:
- begin
- Doonmouseout();
- Result := S_OK;
- end;
- -2147418104:
- begin
- Doonmouseover();
- Result := S_OK;
- end;
- -606:
- begin
- Doonmousemove();
- Result := S_OK;
- end;
- -605:
- begin
- Doonmousedown();
- Result := S_OK;
- end;
- -607:
- begin
- Doonmouseup();
- Result := S_OK;
- end;
- -2147418100:
- begin
- OleVariant(VarResult^) := Doonselectstart();
- Result := S_OK;
- end;
- -2147418095:
- begin
- Doonfilterchange();
- Result := S_OK;
- end;
- -2147418101:
- begin
- OleVariant(VarResult^) := Doondragstart();
- Result := S_OK;
- end;
- -2147418108:
- begin
- OleVariant(VarResult^) := Doonbeforeupdate();
- Result := S_OK;
- end;
- -2147418107:
- begin
- Doonafterupdate();
- Result := S_OK;
- end;
- -2147418099:
- begin
- OleVariant(VarResult^) := Doonerrorupdate();
- Result := S_OK;
- end;
- -2147418106:
- begin
- OleVariant(VarResult^) := Doonrowexit();
- Result := S_OK;
- end;
- -2147418105:
- begin
- Doonrowenter();
- Result := S_OK;
- end;
- -2147418098:
- begin
- Doondatasetchanged();
- Result := S_OK;
- end;
- -2147418097:
- begin
- Doondataavailable();
- Result := S_OK;
- end;
- -2147418096:
- begin
- Doondatasetcomplete();
- Result := S_OK;
- end;
- -2147418094:
- begin
- Doonlosecapture();
- Result := S_OK;
- end;
- -2147418093:
- begin
- Doonpropertychange();
- Result := S_OK;
- end;
- 1014:
- begin
- Doonscroll();
- Result := S_OK;
- end;
- -2147418111:
- begin
- Doonfocus();
- Result := S_OK;
- end;
- -2147418112:
- begin
- Doonblur();
- Result := S_OK;
- end;
- 1016:
- begin
- Doonresize();
- Result := S_OK;
- end;
- -2147418092:
- begin
- OleVariant(VarResult^) := Doondrag();
- Result := S_OK;
- end;
- -2147418091:
- begin
- Doondragend();
- Result := S_OK;
- end;
- -2147418090:
- begin
- OleVariant(VarResult^) := Doondragenter();
- Result := S_OK;
- end;
- -2147418089:
- begin
- OleVariant(VarResult^) := Doondragover();
- Result := S_OK;
- end;
- -2147418088:
- begin
- Doondragleave();
- Result := S_OK;
- end;
- -2147418087:
- begin
- OleVariant(VarResult^) := Doondrop();
- Result := S_OK;
- end;
- -2147418083:
- begin
- OleVariant(VarResult^) := Doonbeforecut();
- Result := S_OK;
- end;
- -2147418086:
- begin
- OleVariant(VarResult^) := Dooncut();
- Result := S_OK;
- end;
- -2147418082:
- begin
- OleVariant(VarResult^) := Doonbeforecopy();
- Result := S_OK;
- end;
- -2147418085:
- begin
- OleVariant(VarResult^) := Dooncopy();
- Result := S_OK;
- end;
- -2147418081:
- begin
- OleVariant(VarResult^) := Doonbeforepaste();
- Result := S_OK;
- end;
- -2147418084:
- begin
- OleVariant(VarResult^) := Doonpaste();
- Result := S_OK;
- end;
- 1023:
- begin
- OleVariant(VarResult^) := Dooncontextmenu();
- Result := S_OK;
- end;
- -2147418080:
- begin
- Doonrowsdelete();
- Result := S_OK;
- end;
- -2147418079:
- begin
- Doonrowsinserted();
- Result := S_OK;
- end;
- -2147418078:
- begin
- Dooncellchange();
- Result := S_OK;
- end;
- -609:
- begin
- Doonreadystatechange();
- Result := S_OK;
- end;
- 1027:
- begin
- Doonbeforeeditfocus();
- Result := S_OK;
- end;
- 1030:
- begin
- Doonlayoutcomplete();
- Result := S_OK;
- end;
- 1031:
- begin
- Doonpage();
- Result := S_OK;
- end;
- 1034:
- begin
- OleVariant(VarResult^) := Doonbeforedeactivate();
- Result := S_OK;
- end;
- 1047:
- begin
- OleVariant(VarResult^) := Doonbeforeactivate();
- Result := S_OK;
- end;
- 1035:
- begin
- Doonmove();
- Result := S_OK;
- end;
- 1036:
- begin
- OleVariant(VarResult^) := Dooncontrolselect();
- Result := S_OK;
- end;
- 1038:
- begin
- OleVariant(VarResult^) := Doonmovestart();
- Result := S_OK;
- end;
- 1039:
- begin
- Doonmoveend();
- Result := S_OK;
- end;
- 1040:
- begin
- OleVariant(VarResult^) := Doonresizestart();
- Result := S_OK;
- end;
- 1041:
- begin
- Doonresizeend();
- Result := S_OK;
- end;
- 1042:
- begin
- Doonmouseenter();
- Result := S_OK;
- end;
- 1043:
- begin
- Doonmouseleave();
- Result := S_OK;
- end;
- 1033:
- begin
- OleVariant(VarResult^) := Doonmousewheel();
- Result := S_OK;
- end;
- 1044:
- begin
- Doonactivate();
- Result := S_OK;
- end;
- 1045:
- begin
- Doondeactivate();
- Result := S_OK;
- end;
- 1048:
- begin
- Doonfocusin();
- Result := S_OK;
- end;
- 1049:
- begin
- Doonfocusout();
- Result := S_OK;
- end;
- 1003:
- begin
- Doonload();
- Result := S_OK;
- end;
- 1002:
- begin
- Doonerror();
- Result := S_OK;
- end;
- 1000:
- begin
- Doonabort();
- Result := S_OK;
- end;
- end; { case }
- //SinkInvokeEnd//
-end;
-
-constructor TMSHTMLHTMLInputImageEvents.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- //SinkInit//
- FSinkIID := HTMLInputImageEvents;
-end;
-
-//SinkImplementation//
-
-function TMSHTMLHTMLInputImageEvents.Doonhelp: WordBool;
-begin
- if not Assigned(onhelp) then System.Exit;
- Result := onhelp(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonclick: WordBool;
-begin
- if not Assigned(onclick) then System.Exit;
- Result := onclick(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doondblclick: WordBool;
-begin
- if not Assigned(ondblclick) then System.Exit;
- Result := ondblclick(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonkeypress: WordBool;
-begin
- if not Assigned(onkeypress) then System.Exit;
- Result := onkeypress(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonkeydown;
-begin
- if not Assigned(onkeydown) then System.Exit;
- onkeydown(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonkeyup;
-begin
- if not Assigned(onkeyup) then System.Exit;
- onkeyup(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmouseout;
-begin
- if not Assigned(onmouseout) then System.Exit;
- onmouseout(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmouseover;
-begin
- if not Assigned(onmouseover) then System.Exit;
- onmouseover(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmousemove;
-begin
- if not Assigned(onmousemove) then System.Exit;
- onmousemove(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmousedown;
-begin
- if not Assigned(onmousedown) then System.Exit;
- onmousedown(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmouseup;
-begin
- if not Assigned(onmouseup) then System.Exit;
- onmouseup(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonselectstart: WordBool;
-begin
- if not Assigned(onselectstart) then System.Exit;
- Result := onselectstart(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonfilterchange;
-begin
- if not Assigned(onfilterchange) then System.Exit;
- onfilterchange(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doondragstart: WordBool;
-begin
- if not Assigned(ondragstart) then System.Exit;
- Result := ondragstart(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonbeforeupdate: WordBool;
-begin
- if not Assigned(onbeforeupdate) then System.Exit;
- Result := onbeforeupdate(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonafterupdate;
-begin
- if not Assigned(onafterupdate) then System.Exit;
- onafterupdate(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonerrorupdate: WordBool;
-begin
- if not Assigned(onerrorupdate) then System.Exit;
- Result := onerrorupdate(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonrowexit: WordBool;
-begin
- if not Assigned(onrowexit) then System.Exit;
- Result := onrowexit(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonrowenter;
-begin
- if not Assigned(onrowenter) then System.Exit;
- onrowenter(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doondatasetchanged;
-begin
- if not Assigned(ondatasetchanged) then System.Exit;
- ondatasetchanged(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doondataavailable;
-begin
- if not Assigned(ondataavailable) then System.Exit;
- ondataavailable(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doondatasetcomplete;
-begin
- if not Assigned(ondatasetcomplete) then System.Exit;
- ondatasetcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonlosecapture;
-begin
- if not Assigned(onlosecapture) then System.Exit;
- onlosecapture(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonpropertychange;
-begin
- if not Assigned(onpropertychange) then System.Exit;
- onpropertychange(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonscroll;
-begin
- if not Assigned(onscroll) then System.Exit;
- onscroll(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonfocus;
-begin
- if not Assigned(onfocus) then System.Exit;
- onfocus(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonblur;
-begin
- if not Assigned(onblur) then System.Exit;
- onblur(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonresize;
-begin
- if not Assigned(onresize) then System.Exit;
- onresize(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doondrag: WordBool;
-begin
- if not Assigned(ondrag) then System.Exit;
- Result := ondrag(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doondragend;
-begin
- if not Assigned(ondragend) then System.Exit;
- ondragend(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doondragenter: WordBool;
-begin
- if not Assigned(ondragenter) then System.Exit;
- Result := ondragenter(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doondragover: WordBool;
-begin
- if not Assigned(ondragover) then System.Exit;
- Result := ondragover(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doondragleave;
-begin
- if not Assigned(ondragleave) then System.Exit;
- ondragleave(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doondrop: WordBool;
-begin
- if not Assigned(ondrop) then System.Exit;
- Result := ondrop(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonbeforecut: WordBool;
-begin
- if not Assigned(onbeforecut) then System.Exit;
- Result := onbeforecut(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Dooncut: WordBool;
-begin
- if not Assigned(oncut) then System.Exit;
- Result := oncut(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonbeforecopy: WordBool;
-begin
- if not Assigned(onbeforecopy) then System.Exit;
- Result := onbeforecopy(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Dooncopy: WordBool;
-begin
- if not Assigned(oncopy) then System.Exit;
- Result := oncopy(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonbeforepaste: WordBool;
-begin
- if not Assigned(onbeforepaste) then System.Exit;
- Result := onbeforepaste(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonpaste: WordBool;
-begin
- if not Assigned(onpaste) then System.Exit;
- Result := onpaste(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Dooncontextmenu: WordBool;
-begin
- if not Assigned(oncontextmenu) then System.Exit;
- Result := oncontextmenu(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonrowsdelete;
-begin
- if not Assigned(onrowsdelete) then System.Exit;
- onrowsdelete(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonrowsinserted;
-begin
- if not Assigned(onrowsinserted) then System.Exit;
- onrowsinserted(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Dooncellchange;
-begin
- if not Assigned(oncellchange) then System.Exit;
- oncellchange(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonreadystatechange;
-begin
- if not Assigned(onreadystatechange) then System.Exit;
- onreadystatechange(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonbeforeeditfocus;
-begin
- if not Assigned(onbeforeeditfocus) then System.Exit;
- onbeforeeditfocus(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonlayoutcomplete;
-begin
- if not Assigned(onlayoutcomplete) then System.Exit;
- onlayoutcomplete(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonpage;
-begin
- if not Assigned(onpage) then System.Exit;
- onpage(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonbeforedeactivate: WordBool;
-begin
- if not Assigned(onbeforedeactivate) then System.Exit;
- Result := onbeforedeactivate(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonbeforeactivate: WordBool;
-begin
- if not Assigned(onbeforeactivate) then System.Exit;
- Result := onbeforeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmove;
-begin
- if not Assigned(onmove) then System.Exit;
- onmove(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Dooncontrolselect: WordBool;
-begin
- if not Assigned(oncontrolselect) then System.Exit;
- Result := oncontrolselect(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonmovestart: WordBool;
-begin
- if not Assigned(onmovestart) then System.Exit;
- Result := onmovestart(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmoveend;
-begin
- if not Assigned(onmoveend) then System.Exit;
- onmoveend(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonresizestart: WordBool;
-begin
- if not Assigned(onresizestart) then System.Exit;
- Result := onresizestart(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonresizeend;
-begin
- if not Assigned(onresizeend) then System.Exit;
- onresizeend(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmouseenter;
-begin
- if not Assigned(onmouseenter) then System.Exit;
- onmouseenter(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonmouseleave;
-begin
- if not Assigned(onmouseleave) then System.Exit;
- onmouseleave(Self);
-end;
-
-function TMSHTMLHTMLInputImageEvents.Doonmousewheel: WordBool;
-begin
- if not Assigned(onmousewheel) then System.Exit;
- Result := onmousewheel(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonactivate;
-begin
- if not Assigned(onactivate) then System.Exit;
- onactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doondeactivate;
-begin
- if not Assigned(ondeactivate) then System.Exit;
- ondeactivate(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonfocusin;
-begin
- if not Assigned(onfocusin) then System.Exit;
- onfocusin(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonfocusout;
-begin
- if not Assigned(onfocusout) then System.Exit;
- onfocusout(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonload;
-begin
- if not Assigned(onload) then System.Exit;
- onload(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonerror;
-begin
- if not Assigned(onerror) then System.Exit;
- onerror(Self);
-end;
-
-procedure TMSHTMLHTMLInputImageEvents.Doonabort;
-begin
- if not Assigned(onabort) then System.Exit;
- onabort(Self);
-end;
-
-
-//SinkImplEnd//
-
-procedure Register;
-begin
- //SinkRegisterStart//
-{ RegisterComponents ('ActiveX', [TMSHTMLHTMLElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLLinkElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLLinkElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLFormElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLFormElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLImgEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLImgEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLTextContainerEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLTextContainerEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLAnchorEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLAnchorEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLLabelEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLLabelEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLSelectElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLSelectElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLInputTextElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLInputTextElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLOptionButtonElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLButtonElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLButtonElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLMarqueeElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLMarqueeElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLWindowEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLWindowEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLDocumentEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLDocumentEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLDWebBridgeEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLControlElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLControlElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLMapEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLMapEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLAreaEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLAreaEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLTableEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLTableEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLScriptEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLScriptEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLObjectElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLObjectElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLFrameSiteEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLFrameSiteEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLStyleElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLStyleElementEvents2]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLNamespaceEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLInputFileElementEvents]);
- RegisterComponents ('ActiveX', [TMSHTMLHTMLInputImageEvents]);}
- //SinkRegisterEnd//
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/MenuContext.pas b/windows/src/ext/embeddedwb/Source/MenuContext.pas
deleted file mode 100644
index 6084d73e8ac20d4a09a4a420cf44733f90f3c6d5..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/MenuContext.pas
+++ /dev/null
@@ -1,586 +0,0 @@
-//**************************************************************
-// *
-// MenuContext * *
-// Freeware unit *
-// Eran Bodankin - (bsalsa) - bsalsa@gmail.com *
-// *
-// based on Code ideas by *
-// Brad Stowers - bstowers@pobox.com *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-{*******************************************************************************}
-//$Id: MenuContext.pas,v 1.2 2006/12/05 11:56:31 bsalsa Exp $
-
-unit MenuContext;
-
-interface
-
-uses
- Windows, Classes, ShlObj, ActiveX;
-
-type
- PPIDLArray = ^TPIDLArray;
- TPIDLArray = array[0..0] of PItemIDList;
- TInterfaceCommand = (icContextMenu, icProperties, icDefaultAction, icVerb);
-
-function DisplayContextMenu(const Filename: string; Parent: Hwnd; Pos: TPoint): boolean; overload;
-function DisplayContextMenu(const Directory: string; Items: TStringList; Parent: Hwnd;
- Pos: TPoint): boolean; overload;
-function DisplayContextMenu(AParent: IShellFolder; var APIDL: PItemIDList; Attr: ULONG;
- Parent: Hwnd; Pos: TPoint; PidlCount: integer): boolean; overload;
-function DisplayPropertiesDialog(const Filename: string; Parent: Hwnd): boolean; overload;
-function DisplayPropertiesDialog(const Directory: string; Items: TStringList;
- Parent: Hwnd): boolean; overload;
-function DisplayPropertiesDialog(AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; PidlCount: integer): boolean; overload;
-function PerformDefaultAction(const Filename: string; Parent: Hwnd): boolean; overload;
-function PerformDefaultAction(const Directory: string; Items: TStringList;
- Parent: Hwnd): boolean; overload;
-function PerformDefaultAction(AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; PidlCount: integer): boolean; overload;
-function PerformVerb(const Verb, Filename: string; Parent: Hwnd): boolean; overload;
-function PerformVerb(const Verb, Directory: string; Items: TStringList;
- Parent: Hwnd): boolean; overload;
-function PerformVerb(const Verb: string; AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; PidlCount: integer): boolean; overload;
-function GetPIDLAndShellFolder(Path: string; out Folder: IShellFolder;
- var PIDL: PItemIDList; ShellMalloc: IMalloc; Parent: Hwnd): boolean;
-
-implementation
-
-uses
- SysUtils, Forms, Controls;
-
-var
- IsCM3: Boolean;
-
-function MenuCallbackProc(Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LResult; stdcall; export;
-const
- WM_CREATE = $0001;
- WM_DRAWITEM = $002B;
- WM_MEASUREITEM = $002C;
- WM_INITMENUPOPUP = $0117;
-var
- CM2: IContextMenu2;
- CM3: IContextMenu3;
-begin
- case Msg of
- WM_CREATE:
- begin
- if IsCM3 then
- begin
- CM3 := IContextMenu3(PCreateStruct(lParam).lpCreateParams);
- SetWindowLong(Wnd, GWL_USERDATA, LongInt(CM3));
- end
- else
- begin
- CM2 := IContextMenu2(PCreateStruct(lParam).lpCreateParams);
- SetWindowLong(Wnd, GWL_USERDATA, LongInt(CM2));
- end;
- Result := DefWindowProc(Wnd, Msg, wParam, lParam);
- end;
- WM_DRAWITEM,
- WM_MEASUREITEM,
- WM_INITMENUPOPUP:
- begin
- if IsCM3 then
- begin
- CM3 := IContextMenu3(GetWindowLong(Wnd, GWL_USERDATA));
- Assert(CM3 <> nil, 'nil Context Menu!');
- CM3.HandleMenuMsg2(Msg, wParam, lParam, Result);
- end
- else
- begin
- CM2 := IContextMenu2(GetWindowLong(Wnd, GWL_USERDATA));
- Assert(CM2 <> nil, 'Nil Context Menu!');
- CM2.HandleMenuMsg(Msg, wParam, lParam);
- end;
- if Msg = WM_INITMENUPOPUP then
- Result := 0
- else
- Result := 1;
- end;
- else
- Result := DefWindowProc(Wnd, Msg, wParam, lParam);
- end;
-end;
-
-function HasWildcards(const s: string): boolean;
-begin
- Result := (StrScan(PChar(s), '*') <> nil) or (StrScan(PChar(s), '?') <> nil);
-end;
-
-function InvokeInterfaceElement(Filename: string; AFolder: IShellFolder;
- var APIDL: PItemIDList; AnAttr: ULONG; Cmd: TInterfaceCommand;
- const Verb: string; Parent: HWND; Pos: TPoint; PidlCount: integer): boolean;
-
- function HandleContextMenu(const CtxMenu: IContextMenu; Attr: ULONG; HaveCM2: boolean): boolean;
- var
- Popup: HMenu;
- ICI: TCMInvokeCommandInfo;
- MenuCmd: Cardinal;
- CallbackWnd: HWnd;
- Temp: HWnd;
- AWndClass: TWndClass;
- begin
- Result := False;
- CallbackWnd := 0;
- FillChar(ICI, SizeOf(TCMInvokeCommandInfo), #0);
- with ICI do
- begin
- cbSize := SizeOf(TCMInvokeCommandInfo);
- hWnd := Parent;
- nShow := SW_SHOWNORMAL;
- end;
- case Cmd of
- icContextMenu:
- begin
- Popup := CreatePopupMenu;
- try
- if Succeeded(CtxMenu.QueryContextMenu(Popup, 0, 1, $7FFF, CMF_EXPLORE)) then
- begin
- if HaveCM2 then
- begin
- FillChar(AWndClass, SizeOf(AWndClass), #0);
- with AWndClass do
- begin
- lpszClassName := 'ItemPropMenuCallbackHelper';
- Style := CS_PARENTDC;
- lpfnWndProc := @MenuCallbackProc;
- hInstance := HInstance;
- end;
- Windows.RegisterClass(AWndClass);
- CallbackWnd := CreateWindow('ItemPropMenuCallbackHelper',
- 'ItemPropCallbackProcessor', WS_POPUPWINDOW, 0, 0, 0, 0, 0,
- 0, HInstance, Pointer(CtxMenu));
- end;
- Result := TRUE;
- if CallbackWnd = 0 then
- Temp := Parent
- else
- Temp := CallbackWnd;
- MenuCmd := Cardinal(TrackPopupMenuEx(Popup, TPM_LEFTALIGN or
- TPM_RETURNCMD or TPM_RIGHTBUTTON, Pos.x, Pos.y, Temp, nil));
- if MenuCmd <> 0 then
- begin
- ICI.lpVerb := PAnsiChar(MakeIntResource(MenuCmd - 1));
- Result := Succeeded(CtxMenu.InvokeCommand(ICI));
- end;
- end;
- finally
- DestroyMenu(Popup);
- if CallbackWnd <> 0 then
- DestroyWindow(CallbackWnd);
- end;
- end;
- icVerb:
- begin
- ICI.lpVerb := PAnsiChar(AnsiString(Verb));
- Result := Succeeded(CtxMenu.InvokeCommand(ICI));
- end;
- icProperties:
- begin
- if (Attr and SFGAO_HASPROPSHEET) <> 0 then
- begin
- ICI.lpVerb := 'properties';
- Result := Succeeded(CtxMenu.InvokeCommand(ICI));
- end;
- end;
- icDefaultAction:
- begin
- Popup := CreatePopupMenu;
- if Succeeded(CtxMenu.QueryContextMenu(Popup, 0, 1, $7FFF,
- CMF_DEFAULTONLY)) then
- begin
- MenuCmd := GetMenuDefaultItem(Popup, 0, 0);
- if MenuCmd <> $FFFFFFFF then
- begin
- ICI.lpVerb := PAnsiChar(MakeIntResource(MenuCmd - 1));
- Result := Succeeded(CtxMenu.InvokeCommand(ICI));
- end;
- end;
- end;
- end;
- end;
-
- function HandleFromPIDLs(Parent: HWND; SubFolder: IShellFolder; var ItemID: PItemIDList;
- Attr: ULONG; PidlCount: integer): boolean;
- const
- IID_IContextMenu3: TGUID = (D1: $BCFCE0A0; D2: $EC17; D3: $11D0; D4: ($8D, $10, $00, $A0, $C9, $0F, $27, $19));
- var
- HaveCM2: boolean;
- ContextMenu: IContextMenu;
- ContextMenu2: IContextMenu2;
- ContextMenu3: IContextMenu3;
- begin
- Result := False;
- HaveCM2 := False;
- if Succeeded(SubFolder.GetUIObjectOf(Parent, PidlCount, ItemID,
- IID_IContextMenu, nil, pointer(ContextMenu))) then
- begin
- if Succeeded(ContextMenu.QueryInterface(IID_IContextMenu2,
- pointer(ContextMenu2))) then
- begin
- ContextMenu := ContextMenu2;
- HaveCM2 := TRUE;
- if Succeeded(ContextMenu.QueryInterface(IID_IContextMenu3,
- pointer(ContextMenu3))) then
- begin
- ContextMenu := ContextMenu3;
- IsCM3 := TRUE;
- end;
- end;
- try
- Result := HandleContextMenu(ContextMenu, Attr, HaveCM2);
- finally
- end;
- end;
- end;
-var
- ShellMalloc: IMalloc;
- SubFolder: IShellFolder;
- ShellFolder: IShellFolder;
- FolderID: pItemIDList;
- ItemID: pItemIDList;
- Eaten, Attr: ULONG;
- oleWild: widestring;
- oleAll: widestring;
- oleSubDir: widestring;
- oleFilename: widestring;
- OldCursor: TCursor;
- JustName: string;
- EnumList: IEnumIDList;
- CompID: pItemIDList;
- CompFolder: IShellFolder;
- Fetched: ULONG;
- SR: TSearchRec;
- WildFiles: TStringList;
- WildPIDLs: PPIDLArray;
- Count: Integer;
- x: Integer;
-begin
- IsCM3 := False;
- Result := False;
- OldCursor := Screen.Cursor;
- Screen.Cursor := crHourglass;
- try
- if (APIDL <> nil) then
- begin
- Result := HandleFromPIDLs(Parent, AFolder, APIDL, AnAttr, PidlCount);
- end
- else
- begin
- SHGetMalloc(ShellMalloc);
- try
- JustName := ExtractFileName(FileName);
- oleSubDir := ExtractFilePath(Filename);
- oleFilename := JustName;
- if Succeeded(SHGetDesktopFolder(ShellFolder)) and
- Succeeded(ShellFolder.ParseDisplayName(Parent, nil,
- PWideChar(oleSubDir), Eaten, FolderID, Attr)) then
- if Succeeded(ShellFolder.BindToObject(FolderID, nil,
- IID_IShellFolder, pointer(SubFolder))) then
- if HasWildcards(JustName) then
- begin
- WildFiles := TStringList.Create;
- try
- if FindFirst(Filename, faAnyFile, SR) = 0 then
- begin
- WildFiles.Add(SR.Name);
- while FindNext(SR) = 0 do
- WildFiles.Add(SR.Name);
- FindClose(SR);
- end;
- if WildFiles.Count > 0 then
- begin
- Count := 0;
- GetMem(WildPIDLs, SizeOf(PItemIDList) * WildFiles.Count);
- try
- for x := 0 to WildFiles.Count - 1 do
- begin
- oleWild := StringToOLEStr(WildFiles[x]);
- if Succeeded(SubFolder.ParseDisplayName(Parent,
- nil, PWideChar(oleWild), Eaten,
- WildPIDLs^[Count], Attr)) then
- Inc(Count);
- end;
- Result := HandleFromPIDLS(Parent, SubFolder,
- WildPIDLs^[0], Attr, Count);
- finally
- for x := 0 to Count - 1 do
- ShellMalloc.Free(WildPIDLs^[x]);
- FreeMem(WildPIDLs);
- end;
- end;
- finally
- WildFiles.Free;
- end;
- end
- else
- if Succeeded(SubFolder.ParseDisplayName(Parent, nil,
- PWideChar(oleFilename), Eaten, ItemID, Attr)) then
- begin
- try
- Result := HandleFromPIDLS(Parent, SubFolder, ItemID, Attr, 1);
- finally
- ShellMalloc.Free(ItemID);
- end;
- end
- else
- begin
- oleAll := Filename;
- if (Succeeded(ShellFolder.EnumObjects(Parent, SHCONTF_FOLDERS, EnumList))) and
- (EnumList.Next(1, CompID, Fetched) = S_OK) then
- begin
- if Succeeded(ShellFolder.BindToObject(CompID, nil,
- IID_IShellFolder, pointer(CompFolder))) and
- Succeeded(CompFolder.ParseDisplayName(Parent, nil,
- PWideChar(oleAll), Eaten, ItemID, Attr)) then
- try
- Result := HandleFromPIDLS(Parent, CompFolder, ItemID,
- Attr, 1);
- finally
- ShellMalloc.Free(ItemID);
- end;
- end;
-
- end;
- finally
- ShellMalloc.Free(FolderID);
- ShellMalloc._Release;
- end;
- end;
- finally
- Screen.Cursor := OldCursor;
- end;
-end;
-
-function InvokeListInterfaceElement(const Directory: string; Items: TStringList;
- Parent: HWND; Pos: TPoint; Cmd: TInterfaceCommand; const Verb: string): boolean;
-var
- ShellMalloc: IMalloc;
- SubFolder, ShellFolder: IShellFolder;
- FolderID: PItemIDList;
- Eaten, Attr: ULONG;
- oleSubDir, oleFilename: widestring;
- ItemPIDLs: PPIDLArray;
- Count, x: Integer;
-begin
- Result := False;
- if (Items = nil) or (Items.Count < 1) then Exit;
- Count := 0;
- SHGetMalloc(ShellMalloc);
- if Succeeded(SHGetDesktopFolder(ShellFolder)) then
- oleSubDir := Directory;
- if Succeeded(ShellFolder.ParseDisplayName(Parent, nil,
- PWideChar(oleSubDir), Eaten, FolderID, Attr)) and
- Succeeded(ShellFolder.BindToObject(FolderID, nil, IID_IShellFolder,
- pointer(SubFolder))) then
- Count := 0;
- GetMem(ItemPIDLs, SizeOf(PItemIDList) * Items.Count);
- try
- for x := 0 to Items.Count - 1 do
- begin
- oleFilename := Items[x];
- if Succeeded(SubFolder.ParseDisplayName(Parent, nil, PWideChar(oleFilename), Eaten, ItemPIDLs^[Count], Attr)) then
- Inc(Count);
- end;
- Result := InvokeInterfaceElement('', SubFolder, ItemPIDLs^[0], Attr,
- Cmd, Verb, Parent, Pos, Count);
- finally
- for x := 0 to Count - 1 do
- ShellMalloc.Free(ItemPIDLs^[x]);
- FreeMem(ItemPIDLs);
- end;
- ShellMalloc.Free(FolderID);
- ShellMalloc._Release;
-end;
-
-function NextPIDL(PIDL: PItemIDList): PItemIDList;
-begin
- if PIDL.mkid.cb > 0 then
- Result := PItemIDList(Longint(PIDL) + PIDL.mkid.cb)
- else
- Result := nil;
-end;
-
-function CopyPidl(APidl: PItemIDList; ShellMalloc: IMalloc): PItemIDList;
-var
- CB: UINT;
-begin
- Result := nil;
- CB := APidl.mkid.cb + SizeOf(APidl.mkid.cb);
- if NextPidl(APidl)^.mkid.cb <> 0 then
- Exit;
- Result := ShellMalloc.Alloc(CB);
- if Result <> nil then
- begin
- FillChar(Result^, CB, #0);
- Move(APidl^, Result^, APidl.mkid.cb);
- end;
-end;
-
-function GetPIDLAndShellFolder(Path: string; out Folder: IShellFolder;
- var PIDL: PItemIDList; ShellMalloc: IMalloc; Parent: HWND): boolean;
-var
- DesktopFolder: IShellFolder;
- WidePath: WideString;
- Eaten: ULONG;
- pidlNext, pidlLast, pidlFull: PItemIDList;
- Attrs: ULONG;
- CurFolder, NextFolder: IShellFolder;
- SaveCB: UINT;
-begin
- Result := False;
- pidlFull := nil;
- if Succeeded(SHGetDesktopFolder(DesktopFolder)) then
- begin
- WidePath := Path;
- if Succeeded(DesktopFolder.ParseDisplayName(Parent, nil, PWideChar(WidePath), Eaten,
- pidlFull, Attrs)) then
- begin
- if Succeeded(DesktopFolder.QueryInterface(IID_IShellFolder, CurFolder)) then
- begin
- pidlNext := NextPidl(pidlFull);
- pidlLast := pidlFull;
- while pidlNext^.mkid.cb <> 0 do
- begin
- Result := TRUE;
- SaveCB := pidlNext^.mkid.cb;
- pidlNext^.mkid.cb := 0;
- if not Succeeded(CurFolder.BindToObject(pidlLast, nil, IID_IShellFolder,
- pointer(NextFolder))) then
- begin
- Result := False;
- Break;
- end;
- pidlNext^.mkid.cb := SaveCB;
- CurFolder := NextFolder;
- pidlLast := pidlNext;
- pidlNext := NextPidl(pidlNext);
- end;
- PIDL := CopyPidl(pidlLast, ShellMalloc);
- Folder := CurFolder;
- end;
- end;
- end;
- if pidlFull <> nil then
- ShellMalloc.Free(pidlFull);
-end;
-
-function DisplayContextMenu(const Filename: string; Parent: Hwnd; Pos: TPoint): boolean;
-var
- Dummy: PItemIDList;
-begin
- Dummy := nil;
- Result := InvokeInterfaceElement(Filename, nil, Dummy, 0, icContextMenu, '', HWND(Parent), Pos, 1);
-end;
-
-function DisplayContextMenu(const Directory: string; Items: TStringList;
- Parent: Hwnd; Pos: TPoint): boolean; overload;
-begin
- Result := InvokeListInterfaceElement(Directory, Items, HWND(Parent), Pos, icContextMenu, '');
-end;
-
-function DisplayContextMenu(AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; Pos: TPoint; PidlCount: integer): boolean;
-begin
- Result := InvokeInterfaceElement('', AParent, APIDL, Attr, icContextMenu, '',
- HWND(Parent), Pos, PidlCount);
-end;
-
-function DisplayPropertiesDialog(const Filename: string; Parent: Hwnd): boolean;
-var
- Dummy: PItemIDList;
-begin
- Dummy := nil;
- Result := InvokeInterfaceElement(Filename, nil, Dummy, 0, icProperties, '',
- HWND(Parent), Point(0, 0), 1);
-end;
-
-function DisplayPropertiesDialog(const Directory: string; Items: TStringList;
- Parent: Hwnd): boolean; overload;
-begin
- Result := InvokeListInterfaceElement(Directory, Items, HWND(Parent), Point(0, 0), icProperties, '');
-end;
-
-function DisplayPropertiesDialog(AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; PidlCount: integer): boolean;
-begin
- Result := InvokeInterfaceElement('', AParent, APIDL, Attr, icProperties, '',
- HWND(Parent), Point(0, 0), PidlCount);
-end;
-
-function PerformDefaultAction(const Filename: string; Parent: Hwnd): boolean;
-var
- Dummy: PItemIDList;
-begin
- Dummy := nil;
- Result := InvokeInterfaceElement(Filename, nil, Dummy, 0, icDefaultAction, '',
- HWND(Parent), Point(0, 0), 1);
-end;
-
-function PerformDefaultAction(const Directory: string; Items: TStringList;
- Parent: Hwnd): boolean; overload;
-begin
- Result := InvokeListInterfaceElement(Directory, Items, HWND(Parent),
- Point(0, 0), icDefaultAction, '');
-end;
-
-function PerformDefaultAction(AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; PidlCount: integer): boolean;
-begin
- Result := InvokeInterfaceElement('', AParent, APIDL, Attr, icDefaultAction,
- '', HWND(Parent), Point(0, 0), PidlCount);
-end;
-
-function PerformVerb(const Verb, Filename: string; Parent: Hwnd): boolean;
-var
- Dummy: PItemIDList;
-begin
- Dummy := nil;
- Result := InvokeInterfaceElement(Filename, nil, Dummy, 0, icVerb, Verb,
- HWND(Parent), Point(0, 0), 1);
-end;
-
-function PerformVerb(const Verb, Directory: string; Items: TStringList; Parent: Hwnd): boolean;
-begin
- Result := InvokeListInterfaceElement(Directory, Items, HWND(Parent),
- Point(0, 0), icVerb, Verb);
-end;
-
-function PerformVerb(const Verb: string; AParent: IShellFolder; var APIDL: PItemIDList;
- Attr: ULONG; Parent: Hwnd; PidlCount: integer): boolean;
-begin
- Result := InvokeInterfaceElement('', AParent, APIDL, Attr, icVerb, Verb,
- HWND(Parent), Point(0, 0), PidlCount);
-end;
-
-initialization
- OLEInitialize(nil);
-finalization
- OLEUninitialize;
-end.
diff --git a/windows/src/ext/embeddedwb/Source/Mshtml_Ewb.pas b/windows/src/ext/embeddedwb/Source/Mshtml_Ewb.pas
deleted file mode 100644
index cd232c5f24d3848bc0e7d65544dea36744627cc6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/Mshtml_Ewb.pas
+++ /dev/null
@@ -1,31738 +0,0 @@
-//*************************************************************
-// EwbBehaviorsComp *
-// *
-// Freeware Component *
-// For Delphi 5 to XE *
-// by *
-// Eran Bodankin *
-// Developing Team: *
-// Serge Voloshenyuk (SergeV@bsalsa.com) *
-// Eran Bodankin (bsalsa) -(bsalsa@gmail.com) *
-// *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-//*************************************************************
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 3 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-{**********************************
- *** IMPORTANT ***
- **********************************
-This file has been modified from it's original because TLIBIMP did not
- import the file correctly.
- The command line used to import this file was as follows:
- The installed version of IE for this import was IE 6.0.2600.0000
- tlibimp -Hs- -Hr- -Fe- \WINNT\SYSTEM32\mshtml.tlb
- }
-//$Id: Mshtml_Ewb.pas,v 1.2.2.1 2006/11/29 22:13:01 sergev Exp $
-
-unit MSHTML_EWB;
-
-{$I EWB.inc}
-{$IFDEF DELPHI6_UP}
-{$WARN UNIT_PLATFORM OFF}
-{$ENDIF}
-// ************************************************************************ //
-// WARNING
-// -------
-// The types declared in this file were generated from data read from a
-// Type Library. If this type library is explicitly or indirectly (via
-// another type library referring to this type library) re-imported, or the
-// 'Refresh' command of the Type Library Editor activated while editing the
-// Type Library, the contents of this file will be regenerated and all
-// manual modifications will be lost.
-// ************************************************************************ //
-
-// PASTLWTR : 1.2
-// File generated on 8/9/2002 3:26:08 PM from Type Library described below.
-
-// ************************************************************************ //
-// Type Lib: \WINNT\SYSTEM32\mshtml.tlb (1)
-// LIBID: {3050F1C5-98B5-11CF-BB82-00AA00BDCE0B}
-// LCID: 0
-// Helpfile:
-// HelpString: Microsoft HTML Object Library
-// DepndLst:
-// (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
-// Errors:
-// Hint: Member 'type' of 'IHTMLEventObj' changed to 'type_'
-// Hint: Parameter 'String' of IHTMLElement.toString changed to 'String_'
-// Hint: Parameter 'String' of IHTMLStyle.toString changed to 'String_'
-// Hint: Parameter 'String' of IHTMLDOMTextNode.toString changed to 'String_'
-// Hint: Enum Member 'htmlInputImage' of '_htmlInput' changed to 'htmlInputImage_'
-// Hint: Parameter 'String' of IHTMLElementCollection.toString changed to 'String_'
-// Hint: Member 'type' of 'IHTMLStyleSheet' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLStyleSheet' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLLinkElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLLinkElement' changed to 'type_'
-// Hint: Parameter 'Unit' of IHTMLTxtRange.expand changed to 'Unit_'
-// Hint: Parameter 'Unit' of IHTMLTxtRange.move changed to 'Unit_'
-// Hint: Parameter 'Unit' of IHTMLTxtRange.moveStart changed to 'Unit_'
-// Hint: Parameter 'Unit' of IHTMLTxtRange.moveEnd changed to 'Unit_'
-// Hint: Parameter 'String' of IHTMLTxtRange.findText changed to 'String_'
-// Hint: Member 'type' of 'IHTMLAnchorElement2' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLAnchorElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLUListElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLUListElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLOListElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLOListElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLLIElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLLIElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLSelectElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLSelectElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLSelectionObject' changed to 'type_'
-// Hint: Member 'label' of 'IHTMLOptionElement3' changed to 'label_'
-// Hint: Member 'label' of 'DispHTMLOptionElement' changed to 'label_'
-// Hint: Member 'type' of 'IHTMLInputElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputHiddenElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputTextElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputFileElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLOptionButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputImage' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLInputElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLTextAreaElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLTextAreaElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLRichtextElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLButtonElement' changed to 'type_'
-// Hint: Parameter 'String' of IOmNavigator.toString changed to 'String_'
-// Hint: Parameter 'String' of IHTMLLocation.toString changed to 'String_'
-// Hint: Member 'repeat' of 'IHTMLEventObj2' changed to 'repeat_'
-// Hint: Member 'type' of 'IHTMLEventObj2' changed to 'type_'
-// Hint: Member 'repeat' of 'DispCEventObj' changed to 'repeat_'
-// Hint: Member 'type' of 'DispCEventObj' changed to 'type_'
-// Hint: Parameter 'String' of IHTMLDocument2.toString changed to 'String_'
-// Hint: Parameter 'String' of IHTMLWindow2.toString changed to 'String_'
-// Hint: Member 'implementation' of 'IHTMLDocument5' changed to 'implementation_'
-// Hint: Member 'implementation' of 'DispHTMLDocument' changed to 'implementation_'
-// Hint: Member 'type' of 'IHTMLScriptElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLScriptElement' changed to 'type_'
-// Hint: Member 'object' of 'IHTMLObjectElement' changed to 'object_'
-// Hint: Member 'type' of 'IHTMLObjectElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLParamElement' changed to 'type_'
-// Hint: Member 'object' of 'DispHTMLObjectElement' changed to 'object_'
-// Hint: Member 'type' of 'DispHTMLObjectElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLParamElement' changed to 'type_'
-// Hint: Parameter 'object' of IHTMLOptionsHolder.isApartmentModel changed to 'object_'
-// Hint: Member 'type' of 'IHTMLStyleElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLStyleElement' changed to 'type_'
-// Hint: Parameter 'String' of IHTMLDialog.toString changed to 'String_'
-// Hint: Member 'type' of 'DispIHTMLInputButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputTextElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputFileElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLOptionButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputImage' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLEventObj' changed to 'type_'
-// Hint: Enum Member 'htmlInputImage' of '_htmlInput' changed to 'htmlInputImage_'
-// Hint: Member 'type' of 'IHTMLStyleSheet' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLStyleSheet' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLLinkElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLLinkElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLAnchorElement2' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLAnchorElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLUListElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLUListElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLOListElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLOListElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLLIElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLLIElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLSelectElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLSelectElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLSelectionObject' changed to 'type_'
-// Hint: Member 'label' of 'IHTMLOptionElement3' changed to 'label_'
-// Hint: Member 'label' of 'DispHTMLOptionElement' changed to 'label_'
-// Hint: Member 'type' of 'IHTMLInputElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputHiddenElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputTextElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputFileElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLOptionButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLInputImage' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLInputElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLTextAreaElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLTextAreaElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLRichtextElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLButtonElement' changed to 'type_'
-// Hint: Member 'repeat' of 'IHTMLEventObj2' changed to 'repeat_'
-// Hint: Member 'type' of 'IHTMLEventObj2' changed to 'type_'
-// Hint: Member 'repeat' of 'DispCEventObj' changed to 'repeat_'
-// Hint: Member 'type' of 'DispCEventObj' changed to 'type_'
-// Hint: Member 'implementation' of 'IHTMLDocument5' changed to 'implementation_'
-// Hint: Member 'implementation' of 'DispHTMLDocument' changed to 'implementation_'
-// Hint: Member 'type' of 'IHTMLScriptElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLScriptElement' changed to 'type_'
-// Hint: Member 'object' of 'IHTMLObjectElement' changed to 'object_'
-// Hint: Member 'type' of 'IHTMLObjectElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLParamElement' changed to 'type_'
-// Hint: Member 'object' of 'DispHTMLObjectElement' changed to 'object_'
-// Hint: Member 'type' of 'DispHTMLObjectElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLParamElement' changed to 'type_'
-// Hint: Member 'type' of 'IHTMLStyleElement' changed to 'type_'
-// Hint: Member 'type' of 'DispHTMLStyleElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputTextElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputFileElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLOptionButtonElement' changed to 'type_'
-// Hint: Member 'type' of 'DispIHTMLInputImage' changed to 'type_'
-// Error creating palette bitmap of (TScriptlet) : Error reading control bitmap
-// ************************************************************************ //
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
-
-{$WRITEABLECONST ON}
-
-{$IFDEF DELPHI6_UP}
-{$VARPROPSETTER ON}
-{$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF}
-{ $TYPEDADDRESS OFF}// Unit must be compiled without type-checked pointers.
-{ $WARN UNIT_PLATFORM OFF}
-
-{ $VARPROPSETTER ON}// You need to download and install the second D6 patch in order for this to compile.
-{ $ENDIF}
-{ $TYPEDADDRESS OFF}// Unit must be compiled without type-checked pointers.
-{ $WRITEABLECONST ON}
-
-interface
-
-uses Windows, ActiveX, Imm;
-
-// *********************************************************************//
-// GUIDS declared in the TypeLibrary. Following prefixes are used:
-// Type Libraries : LIBID_xxxx
-// DISPInterfaces : DIID_xxxx
-// Non-DISP interfaces: IID_xxxx
-// *********************************************************************//
-const
- // TypeLibrary Major and minor versions
- MSHTMLMajorVersion = 4;
- MSHTMLMinorVersion = 0;
-
- LIBID_MSHTML: TGUID = '{3050F1C5-98B5-11CF-BB82-00AA00BDCE0B}';
-
- IID_IHTMLEventObj: TGUID = '{3050F32D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElement: TGUID = '{3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyle: TGUID = '{3050F25E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFiltersCollection: TGUID = '{3050F3EE-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSite: TGUID = '{3050F427-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehavior: TGUID = '{3050F425-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorFactory: TGUID = '{3050F429-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSiteOM: TGUID = '{3050F489-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorRender: TGUID = '{3050F4AA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSiteRender: TGUID = '{3050F4A7-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyle2: TGUID = '{3050F4A2-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyle3: TGUID = '{3050F656-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyle4: TGUID = '{3050F816-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRuleStyle: TGUID = '{3050F3CF-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRuleStyle2: TGUID = '{3050F4AC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRuleStyle3: TGUID = '{3050F657-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRuleStyle4: TGUID = '{3050F817-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLStyle: TGUID = '{3050F55A-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyle: TGUID = '{3050F285-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLRuleStyle: TGUID = '{3050F55C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLRuleStyle: TGUID = '{3050F3D0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRenderStyle: TGUID = '{3050F6AE-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLRenderStyle: TGUID = '{3050F58B-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLRenderStyle: TGUID = '{3050F6AA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLCurrentStyle: TGUID = '{3050F3DB-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLCurrentStyle2: TGUID = '{3050F658-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLCurrentStyle3: TGUID = '{3050F818-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLCurrentStyle: TGUID = '{3050F557-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLCurrentStyle: TGUID = '{3050F3DC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRect: TGUID = '{3050F4A3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLRectCollection: TGUID = '{3050F4A4-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMNode: TGUID = '{3050F5DA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMNode2: TGUID = '{3050F80B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMAttribute: TGUID = '{3050F4B0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMAttribute2: TGUID = '{3050F810-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMTextNode: TGUID = '{3050F4B1-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMTextNode2: TGUID = '{3050F809-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMImplementation: TGUID = '{3050F80D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDOMAttribute: TGUID = '{3050F564-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDOMAttribute: TGUID = '{3050F4B2-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDOMTextNode: TGUID = '{3050F565-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDOMTextNode: TGUID = '{3050F4BA-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDOMImplementation: TGUID = '{3050F58F-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDOMImplementation: TGUID = '{3050F80E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAttributeCollection: TGUID = '{3050F4C3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAttributeCollection2: TGUID = '{3050F80A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDOMChildrenCollection: TGUID = '{3050F5AB-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLAttributeCollection: TGUID = '{3050F56C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLAttributeCollection: TGUID = '{3050F4CC-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispDOMChildrenCollection: TGUID = '{3050F577-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_DOMChildrenCollection: TGUID = '{3050F5AA-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLElementEvents2: TGUID = '{3050F60F-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLElementEvents: TGUID = '{3050F33C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElementCollection: TGUID = '{3050F21F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElement2: TGUID = '{3050F434-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElement3: TGUID = '{3050F673-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElement4: TGUID = '{3050F80F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElementRender: TGUID = '{3050F669-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLUniqueName: TGUID = '{3050F4D0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDatabinding: TGUID = '{3050F3F2-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDocument: TGUID = '{626FC520-A41E-11CF-A731-00A0C9082637}';
- IID_IHTMLElementDefaults: TGUID = '{3050F6C9-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDefaults: TGUID = '{3050F58C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDefaults: TGUID = '{3050F6C8-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCDefaultDispatch: TGUID = '{3050F4FD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCPropertyBehavior: TGUID = '{3050F5DF-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCMethodBehavior: TGUID = '{3050F631-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCEventBehavior: TGUID = '{3050F4FF-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCAttachBehavior: TGUID = '{3050F5F4-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCAttachBehavior2: TGUID = '{3050F7EB-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTCDescBehavior: TGUID = '{3050F5DC-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTCDefaultDispatch: TGUID = '{3050F573-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTCDefaultDispatch: TGUID = '{3050F4FC-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTCPropertyBehavior: TGUID = '{3050F57F-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTCPropertyBehavior: TGUID = '{3050F5DE-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTCMethodBehavior: TGUID = '{3050F587-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTCMethodBehavior: TGUID = '{3050F630-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTCEventBehavior: TGUID = '{3050F574-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTCEventBehavior: TGUID = '{3050F4FE-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTCAttachBehavior: TGUID = '{3050F583-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTCAttachBehavior: TGUID = '{3050F5F5-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTCDescBehavior: TGUID = '{3050F57E-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTCDescBehavior: TGUID = '{3050F5DD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLUrnCollection: TGUID = '{3050F5E2-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLUrnCollection: TGUID = '{3050F580-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLGenericElement: TGUID = '{3050F4B7-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLGenericElement: TGUID = '{3050F563-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLGenericElement: TGUID = '{3050F4B8-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheetRule: TGUID = '{3050F357-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheetRulesCollection: TGUID = '{3050F2E5-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleSheetRule: TGUID = '{3050F3CE-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleSheetRulesCollection: TGUID = '{3050F3CD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheetPage: TGUID = '{3050F7EE-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheetPagesCollection: TGUID = '{3050F7F0-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleSheetPage: TGUID = '{3050F7EF-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleSheetPagesCollection: TGUID = '{3050F7F1-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheetsCollection: TGUID = '{3050F37E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheet: TGUID = '{3050F2E3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleSheet2: TGUID = '{3050F3D1-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLStyleSheet: TGUID = '{3050F58D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleSheet: TGUID = '{3050F2E4-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleSheetsCollection: TGUID = '{3050F37F-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLLinkElementEvents2: TGUID = '{3050F61D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLLinkElementEvents: TGUID = '{3050F3CC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLinkElement: TGUID = '{3050F205-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLinkElement2: TGUID = '{3050F4E5-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLinkElement3: TGUID = '{3050F81E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLLinkElement: TGUID = '{3050F524-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLLinkElement: TGUID = '{3050F277-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTxtRange: TGUID = '{3050F220-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTextRangeMetrics: TGUID = '{3050F40B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTextRangeMetrics2: TGUID = '{3050F4A6-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTxtRangeCollection: TGUID = '{3050F7ED-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLFormElementEvents2: TGUID = '{3050F614-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLFormElementEvents: TGUID = '{3050F364-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFormElement: TGUID = '{3050F1F7-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFormElement2: TGUID = '{3050F4F6-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFormElement3: TGUID = '{3050F836-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSubmitData: TGUID = '{3050F645-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLFormElement: TGUID = '{3050F510-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLFormElement: TGUID = '{3050F251-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLControlElementEvents2: TGUID = '{3050F612-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLControlElementEvents: TGUID = '{3050F4EA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLControlElement: TGUID = '{3050F4E9-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTextElement: TGUID = '{3050F218-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTextElement: TGUID = '{3050F537-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTextElement: TGUID = '{3050F26A-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLTextContainerEvents2: TGUID = '{3050F624-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLTextContainerEvents: TGUID = '{1FF6AA72-5842-11CF-A707-00AA00C0098D}';
- IID_IHTMLTextContainer: TGUID = '{3050F230-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLControlRange: TGUID = '{3050F29C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLControlRange2: TGUID = '{3050F65E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLImgEvents2: TGUID = '{3050F616-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLImgEvents: TGUID = '{3050F25B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLImgElement: TGUID = '{3050F240-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLImgElement2: TGUID = '{3050F826-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLImageElementFactory: TGUID = '{3050F38E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLImg: TGUID = '{3050F51C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLImg: TGUID = '{3050F241-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLImageElementFactory: TGUID = '{3050F38F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBodyElement: TGUID = '{3050F1D8-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBodyElement2: TGUID = '{3050F5C5-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLBody: TGUID = '{3050F507-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLBody: TGUID = '{3050F24A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFontElement: TGUID = '{3050F1D9-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLFontElement: TGUID = '{3050F512-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLFontElement: TGUID = '{3050F27B-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLAnchorEvents2: TGUID = '{3050F610-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLAnchorEvents: TGUID = '{3050F29D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAnchorElement: TGUID = '{3050F1DA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAnchorElement2: TGUID = '{3050F825-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLAnchorElement: TGUID = '{3050F502-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLAnchorElement: TGUID = '{3050F248-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLLabelEvents2: TGUID = '{3050F61C-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLLabelEvents: TGUID = '{3050F329-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLabelElement: TGUID = '{3050F32A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLabelElement2: TGUID = '{3050F832-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLLabelElement: TGUID = '{3050F522-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLLabelElement: TGUID = '{3050F32B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLListElement: TGUID = '{3050F20E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLListElement2: TGUID = '{3050F822-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLListElement: TGUID = '{3050F525-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLListElement: TGUID = '{3050F272-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLUListElement: TGUID = '{3050F1DD-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLUListElement: TGUID = '{3050F538-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLUListElement: TGUID = '{3050F269-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOListElement: TGUID = '{3050F1DE-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLOListElement: TGUID = '{3050F52A-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLOListElement: TGUID = '{3050F270-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLIElement: TGUID = '{3050F1E0-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLLIElement: TGUID = '{3050F523-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLLIElement: TGUID = '{3050F273-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBlockElement: TGUID = '{3050F208-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBlockElement2: TGUID = '{3050F823-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLBlockElement: TGUID = '{3050F506-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLBlockElement: TGUID = '{3050F281-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDivElement: TGUID = '{3050F200-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDivElement: TGUID = '{3050F50C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDivElement: TGUID = '{3050F27E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDDElement: TGUID = '{3050F1F2-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDDElement: TGUID = '{3050F50B-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDDElement: TGUID = '{3050F27F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDTElement: TGUID = '{3050F1F3-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDTElement: TGUID = '{3050F50D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDTElement: TGUID = '{3050F27C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBRElement: TGUID = '{3050F1F0-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLBRElement: TGUID = '{3050F53A-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLBRElement: TGUID = '{3050F280-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDListElement: TGUID = '{3050F1F1-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDListElement: TGUID = '{3050F53B-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDListElement: TGUID = '{3050F27D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLHRElement: TGUID = '{3050F1F4-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLHRElement: TGUID = '{3050F53D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLHRElement: TGUID = '{3050F252-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLParaElement: TGUID = '{3050F1F5-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLParaElement: TGUID = '{3050F52C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLParaElement: TGUID = '{3050F26F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElementCollection2: TGUID = '{3050F5EE-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLElementCollection3: TGUID = '{3050F835-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLElementCollection: TGUID = '{3050F56B-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLElementCollection: TGUID = '{3050F4CB-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLHeaderElement: TGUID = '{3050F1F6-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLHeaderElement: TGUID = '{3050F515-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLHeaderElement: TGUID = '{3050F27A-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLSelectElementEvents2: TGUID = '{3050F622-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLSelectElementEvents: TGUID = '{3050F302-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSelectElement: TGUID = '{3050F244-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSelectElement2: TGUID = '{3050F5ED-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSelectElement4: TGUID = '{3050F838-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLSelectElement: TGUID = '{3050F531-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLSelectElement: TGUID = '{3050F245-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSelectionObject: TGUID = '{3050F25A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSelectionObject2: TGUID = '{3050F7EC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOptionElement: TGUID = '{3050F211-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOptionElement3: TGUID = '{3050F820-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOptionElementFactory: TGUID = '{3050F38C-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLOptionElement: TGUID = '{3050F52B-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLOptionElement: TGUID = '{3050F24D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLOptionElementFactory: TGUID = '{3050F38D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLButtonElementEvents2: TGUID = '{3050F617-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLButtonElementEvents: TGUID = '{3050F2B3-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLInputTextElementEvents2: TGUID = '{3050F618-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLOptionButtonElementEvents2: TGUID = '{3050F619-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLInputFileElementEvents2: TGUID = '{3050F61A-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLInputImageEvents2: TGUID = '{3050F61B-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLInputTextElementEvents: TGUID = '{3050F2A7-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLOptionButtonElementEvents: TGUID = '{3050F2BD-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLInputFileElementEvents: TGUID = '{3050F2AF-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLInputImageEvents: TGUID = '{3050F2C3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputElement: TGUID = '{3050F5D2-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputElement2: TGUID = '{3050F821-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputButtonElement: TGUID = '{3050F2B2-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputHiddenElement: TGUID = '{3050F2A4-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputTextElement: TGUID = '{3050F2A6-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputFileElement: TGUID = '{3050F2AD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOptionButtonElement: TGUID = '{3050F2BC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLInputImage: TGUID = '{3050F2C2-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLInputElement: TGUID = '{3050F57D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLInputElement: TGUID = '{3050F5D8-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTextAreaElement: TGUID = '{3050F2AA-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTextAreaElement: TGUID = '{3050F521-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTextAreaElement: TGUID = '{3050F2AC-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLRichtextElement: TGUID = '{3050F54D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLRichtextElement: TGUID = '{3050F2DF-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLButtonElement: TGUID = '{3050F2BB-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLButtonElement: TGUID = '{3050F51F-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLButtonElement: TGUID = '{3050F2C6-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLMarqueeElementEvents2: TGUID = '{3050F61F-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLMarqueeElementEvents: TGUID = '{3050F2B8-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLMarqueeElement: TGUID = '{3050F2B5-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLMarqueeElement: TGUID = '{3050F527-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLMarqueeElement: TGUID = '{3050F2B9-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLHtmlElement: TGUID = '{3050F81C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLHeadElement: TGUID = '{3050F81D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTitleElement: TGUID = '{3050F322-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLMetaElement: TGUID = '{3050F203-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLMetaElement2: TGUID = '{3050F81F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBaseElement: TGUID = '{3050F204-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLIsIndexElement: TGUID = '{3050F206-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLIsIndexElement2: TGUID = '{3050F82F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLNextIdElement: TGUID = '{3050F207-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLHtmlElement: TGUID = '{3050F560-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLHtmlElement: TGUID = '{3050F491-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLHeadElement: TGUID = '{3050F561-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLHeadElement: TGUID = '{3050F493-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTitleElement: TGUID = '{3050F516-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTitleElement: TGUID = '{3050F284-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLMetaElement: TGUID = '{3050F517-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLMetaElement: TGUID = '{3050F275-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLBaseElement: TGUID = '{3050F518-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLBaseElement: TGUID = '{3050F276-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLIsIndexElement: TGUID = '{3050F519-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLIsIndexElement: TGUID = '{3050F278-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLNextIdElement: TGUID = '{3050F51A-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLNextIdElement: TGUID = '{3050F279-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBaseFontElement: TGUID = '{3050F202-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLBaseFontElement: TGUID = '{3050F504-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLBaseFontElement: TGUID = '{3050F282-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLUnknownElement: TGUID = '{3050F209-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLUnknownElement: TGUID = '{3050F539-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLUnknownElement: TGUID = '{3050F268-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IOmHistory: TGUID = '{FECEAAA2-8405-11CF-8BA1-00AA00476DA6}';
- IID_IHTMLMimeTypesCollection: TGUID = '{3050F3FC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPluginsCollection: TGUID = '{3050F3FD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOpsProfile: TGUID = '{3050F401-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IOmNavigator: TGUID = '{FECEAAA5-8405-11CF-8BA1-00AA00476DA6}';
- IID_IHTMLLocation: TGUID = '{163BB1E0-6E00-11CF-837A-48DC04C10000}';
- CLASS_HTMLHistory: TGUID = '{FECEAAA3-8405-11CF-8BA1-00AA00476DA6}';
- CLASS_CMimeTypes: TGUID = '{3050F3FE-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_CPlugins: TGUID = '{3050F3FF-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_COpsProfile: TGUID = '{3050F402-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLNavigator: TGUID = '{FECEAAA6-8405-11CF-8BA1-00AA00476DA6}';
- CLASS_HTMLLocation: TGUID = '{163BB1E1-6E00-11CF-837A-48DC04C10000}';
- IID_IHTMLBookmarkCollection: TGUID = '{3050F4CE-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDataTransfer: TGUID = '{3050F4B3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEventObj2: TGUID = '{3050F48B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEventObj3: TGUID = '{3050F680-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEventObj4: TGUID = '{3050F814-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispCEventObj: TGUID = '{3050F558-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_CEventObj: TGUID = '{3050F48A-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLWindowEvents2: TGUID = '{3050F625-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLWindowEvents: TGUID = '{96A0A4E0-D062-11CF-94B6-00AA0060275C}';
- IID_IHTMLDocument2: TGUID = '{332C4425-26CB-11D0-B483-00C04FD90119}';
- IID_IHTMLFramesCollection2: TGUID = '{332C4426-26CB-11D0-B483-00C04FD90119}';
- IID_IHTMLWindow2: TGUID = '{332C4427-26CB-11D0-B483-00C04FD90119}';
- IID_IHTMLScreen: TGUID = '{3050F35C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLWindow3: TGUID = '{3050F4AE-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameBase: TGUID = '{3050F311-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLScreen2: TGUID = '{3050F84A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLWindow4: TGUID = '{3050F6CF-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_FramesCollection: TGUID = '{3050F7F6-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLScreen: TGUID = '{3050F591-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLScreen: TGUID = '{3050F35D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLWindow2: TGUID = '{3050F55D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLWindow2: TGUID = '{D48A6EC6-6A4A-11CF-94A7-444553540000}';
- DIID_DispHTMLWindowProxy: TGUID = '{3050F55E-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLWindowProxy: TGUID = '{3050F391-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLDocumentEvents2: TGUID = '{3050F613-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLDocumentEvents: TGUID = '{3050F260-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDocument3: TGUID = '{3050F485-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDocument4: TGUID = '{3050F69A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDocument5: TGUID = '{3050F80C-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDocument: TGUID = '{3050F55F-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDocument: TGUID = '{25336920-03F9-11CF-8FD0-00AA00686F13}';
- DIID_DWebBridgeEvents: TGUID = '{A6D897FF-0A95-11D1-B0BA-006008166E11}';
- IID_IWebBridge: TGUID = '{AE24FDAD-03C6-11D1-8B76-0080C744F389}';
- IID_IWBScriptControl: TGUID = '{A5170870-0CF8-11D1-8B91-0080C744F389}';
- CLASS_Scriptlet: TGUID = '{AE24FDAE-03C6-11D1-8B76-0080C744F389}';
- IID_IHTMLEmbedElement: TGUID = '{3050F25F-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLEmbed: TGUID = '{3050F52E-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLEmbed: TGUID = '{3050F25D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLMapEvents2: TGUID = '{3050F61E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLMapEvents: TGUID = '{3050F3BA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAreasCollection: TGUID = '{3050F383-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAreasCollection2: TGUID = '{3050F5EC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAreasCollection3: TGUID = '{3050F837-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLMapElement: TGUID = '{3050F266-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLAreasCollection: TGUID = '{3050F56A-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLAreasCollection: TGUID = '{3050F4CA-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLMapElement: TGUID = '{3050F526-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLMapElement: TGUID = '{3050F271-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLAreaEvents2: TGUID = '{3050F611-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLAreaEvents: TGUID = '{3050F366-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAreaElement: TGUID = '{3050F265-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLAreaElement: TGUID = '{3050F503-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLAreaElement: TGUID = '{3050F283-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableCaption: TGUID = '{3050F2EB-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTableCaption: TGUID = '{3050F508-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTableCaption: TGUID = '{3050F2EC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLCommentElement: TGUID = '{3050F20C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLCommentElement2: TGUID = '{3050F813-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLCommentElement: TGUID = '{3050F50A-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLCommentElement: TGUID = '{3050F317-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPhraseElement: TGUID = '{3050F20A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPhraseElement2: TGUID = '{3050F824-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSpanElement: TGUID = '{3050F3F3-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLPhraseElement: TGUID = '{3050F52D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLPhraseElement: TGUID = '{3050F26E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLSpanElement: TGUID = '{3050F548-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLSpanElement: TGUID = '{3050F3F5-98B4-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLTableEvents2: TGUID = '{3050F623-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLTableEvents: TGUID = '{3050F407-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableSection: TGUID = '{3050F23B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTable: TGUID = '{3050F21E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTable2: TGUID = '{3050F4AD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTable3: TGUID = '{3050F829-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableCol: TGUID = '{3050F23A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableCol2: TGUID = '{3050F82A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableSection2: TGUID = '{3050F5C7-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableSection3: TGUID = '{3050F82B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableRow: TGUID = '{3050F23C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableRow2: TGUID = '{3050F4A1-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableRow3: TGUID = '{3050F82C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableRowMetrics: TGUID = '{3050F413-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableCell: TGUID = '{3050F23D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLTableCell2: TGUID = '{3050F82D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTable: TGUID = '{3050F532-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTable: TGUID = '{3050F26B-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTableCol: TGUID = '{3050F533-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTableCol: TGUID = '{3050F26C-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTableSection: TGUID = '{3050F534-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTableSection: TGUID = '{3050F2E9-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTableRow: TGUID = '{3050F535-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTableRow: TGUID = '{3050F26D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLTableCell: TGUID = '{3050F536-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLTableCell: TGUID = '{3050F246-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLScriptEvents2: TGUID = '{3050F621-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLScriptEvents: TGUID = '{3050F3E2-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLScriptElement: TGUID = '{3050F28B-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLScriptElement2: TGUID = '{3050F828-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLScriptElement: TGUID = '{3050F530-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLScriptElement: TGUID = '{3050F28C-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLNoShowElement: TGUID = '{3050F38A-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLNoShowElement: TGUID = '{3050F528-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLNoShowElement: TGUID = '{3050F38B-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLObjectElementEvents2: TGUID = '{3050F620-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLObjectElementEvents: TGUID = '{3050F3C4-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLObjectElement: TGUID = '{3050F24F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLObjectElement2: TGUID = '{3050F4CD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLObjectElement3: TGUID = '{3050F827-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLParamElement: TGUID = '{3050F83D-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLObjectElement: TGUID = '{3050F529-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLObjectElement: TGUID = '{3050F24E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLParamElement: TGUID = '{3050F590-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLParamElement: TGUID = '{3050F83E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLFrameSiteEvents2: TGUID = '{3050F7FF-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLFrameSiteEvents: TGUID = '{3050F800-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameBase2: TGUID = '{3050F6DB-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameBase3: TGUID = '{3050F82E-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLFrameBase: TGUID = '{3050F541-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLFrameBase: TGUID = '{3050F312-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameElement: TGUID = '{3050F313-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameElement2: TGUID = '{3050F7F5-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLFrameElement: TGUID = '{3050F513-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLFrameElement: TGUID = '{3050F314-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLIFrameElement: TGUID = '{3050F315-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLIFrameElement2: TGUID = '{3050F4E6-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLIFrame: TGUID = '{3050F51B-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLIFrame: TGUID = '{3050F316-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDivPosition: TGUID = '{3050F212-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFieldSetElement: TGUID = '{3050F3E7-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFieldSetElement2: TGUID = '{3050F833-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLegendElement: TGUID = '{3050F3EA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLLegendElement2: TGUID = '{3050F834-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLDivPosition: TGUID = '{3050F50F-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDivPosition: TGUID = '{3050F249-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLFieldSetElement: TGUID = '{3050F545-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLFieldSetElement: TGUID = '{3050F3E8-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLLegendElement: TGUID = '{3050F546-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLLegendElement: TGUID = '{3050F3E9-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLSpanFlow: TGUID = '{3050F3E5-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLSpanFlow: TGUID = '{3050F544-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLSpanFlow: TGUID = '{3050F3E6-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameSetElement: TGUID = '{3050F319-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFrameSetElement2: TGUID = '{3050F5C6-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLFrameSetSite: TGUID = '{3050F514-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLFrameSetSite: TGUID = '{3050F31A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLBGsound: TGUID = '{3050F369-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLBGsound: TGUID = '{3050F53C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLBGsound: TGUID = '{3050F370-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFontNamesCollection: TGUID = '{3050F376-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLFontSizesCollection: TGUID = '{3050F377-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLOptionsHolder: TGUID = '{3050F378-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLStyleElementEvents2: TGUID = '{3050F615-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLStyleElementEvents: TGUID = '{3050F3CB-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleElement: TGUID = '{3050F375-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLStyleElement: TGUID = '{3050F511-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleElement: TGUID = '{3050F37D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLStyleFontFace: TGUID = '{3050F3D5-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLStyleFontFace: TGUID = '{3050F3D4-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ICSSFilterSite: TGUID = '{3050F3ED-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IMarkupPointer: TGUID = '{3050F49F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IMarkupContainer: TGUID = '{3050F5F9-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IMarkupContainer2: TGUID = '{3050F648-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLChangeSink: TGUID = '{3050F64A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLChangeLog: TGUID = '{3050F649-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IActiveIMMApp: TGUID = '{08C0E040-62D1-11D1-9326-0060B067B86E}';
- IID_IEnumRegisterWordA: TGUID = '{08C03412-F96B-11D0-A475-00AA006BCC59}';
- IID_IEnumRegisterWordW: TGUID = '{4955DD31-B159-11D0-8FCF-00AA006BCC59}';
- IID_IEnumInputContext: TGUID = '{09B5EAB0-F997-11D1-93D4-0060B067B86E}';
- IID_ISegmentList: TGUID = '{3050F605-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ISegmentListIterator: TGUID = '{3050F692-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ISegment: TGUID = '{3050F683-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLCaret: TGUID = '{3050F604-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IDisplayPointer: TGUID = '{3050F69E-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ILineInfo: TGUID = '{3050F7E2-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementSegment: TGUID = '{3050F68F-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHighlightSegment: TGUID = '{3050F690-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHighlightRenderingServices: TGUID = '{3050F606-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IDisplayServices: TGUID = '{3050F69D-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLComputedStyle: TGUID = '{3050F6C3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHtmlDlgSafeHelper: TGUID = '{3050F81A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IBlockFormats: TGUID = '{3050F830-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IFontNames: TGUID = '{3050F839-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ICSSFilter: TGUID = '{3050F3EC-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ISecureUrlHost: TGUID = '{C81984C4-74C8-11D2-BAA9-00C04FC2040E}';
- IID_IMarkupServices: TGUID = '{3050F4A0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IMarkupServices2: TGUID = '{3050F682-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLChangePlayback: TGUID = '{3050F6E0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IMarkupPointer2: TGUID = '{3050F675-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IMarkupTextFrags: TGUID = '{3050F5FA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IXMLGenericParse: TGUID = '{E4E23071-4D07-11D2-AE76-0080C73BC199}';
- IID_IHTMLEditHost: TGUID = '{3050F6A0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEditHost2: TGUID = '{3050F848-98B5-11CF-BB82-00AA00BDCE0D}';
- IID_ISequenceNumber: TGUID = '{3050F6C1-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IIMEServices: TGUID = '{3050F6CA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ISelectionServicesListener: TGUID = '{3050F699-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_ISelectionServices: TGUID = '{3050F684-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEditDesigner: TGUID = '{3050F662-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEditServices: TGUID = '{3050F663-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLEditServices2: TGUID = '{3050F812-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HtmlDlgSafeHelper: TGUID = '{3050F819-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_BlockFormats: TGUID = '{3050F831-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_FontNames: TGUID = '{3050F83A-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_HTMLNamespaceEvents: TGUID = '{3050F6BD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLNamespace: TGUID = '{3050F6BB-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLNamespaceCollection: TGUID = '{3050F6B8-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLNamespace: TGUID = '{3050F6BC-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLNamespaceCollection: TGUID = '{3050F6B9-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPainter: TGUID = '{3050F6A6-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPaintSite: TGUID = '{3050F6A7-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPainterEventInfo: TGUID = '{3050F6DF-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPainterOverlay: TGUID = '{3050F7E3-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLIPrintCollection: TGUID = '{3050F6B5-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IEnumPrivacyRecords: TGUID = '{3050F844-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDialog: TGUID = '{3050F216-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDialog2: TGUID = '{3050F5E0-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLDialog3: TGUID = '{3050F388-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLModelessInit: TGUID = '{3050F5E4-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_ThreadDialogProcParam: TGUID = '{3050F5EB-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLDialog: TGUID = '{3050F28A-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLPopup: TGUID = '{3050F666-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLPopup: TGUID = '{3050F589-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLPopup: TGUID = '{3050F667-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAppBehavior: TGUID = '{3050F5CA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAppBehavior2: TGUID = '{3050F5C9-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHTMLAppBehavior3: TGUID = '{3050F5CD-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispHTMLAppBehavior: TGUID = '{3050F57C-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLAppBehavior: TGUID = '{3050F5CB-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_OldHTMLDocument: TGUID = '{D48A6EC9-6A4A-11CF-94A7-444553540000}';
- CLASS_OldHTMLFormElement: TGUID = '{0D04D285-6BEC-11CF-8B97-00AA00476DA6}';
- DIID_DispIHTMLInputButtonElement: TGUID = '{3050F51E-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLInputButtonElement: TGUID = '{3050F2B4-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispIHTMLInputTextElement: TGUID = '{3050F520-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLInputTextElement: TGUID = '{3050F2AB-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispIHTMLInputFileElement: TGUID = '{3050F542-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLInputFileElement: TGUID = '{3050F2AE-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispIHTMLOptionButtonElement: TGUID = '{3050F509-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_HTMLOptionButtonElement: TGUID = '{3050F2BE-98B5-11CF-BB82-00AA00BDCE0B}';
- DIID_DispIHTMLInputImage: TGUID = '{3050F51D-98B5-11CF-BB82-00AA00BDCE0B}';
- CLASS_htmlInputImage: TGUID = '{3050F2C4-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementNamespace: TGUID = '{3050F671-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementNamespaceTable: TGUID = '{3050F670-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementNamespaceFactory: TGUID = '{3050F672-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementNamespaceFactory2: TGUID = '{3050F805-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementNamespaceFactoryCallback: TGUID = '{3050F7FD-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSiteOM2: TGUID = '{3050F659-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorCategory: TGUID = '{3050F4ED-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSiteCategory: TGUID = '{3050F4EE-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IEnumUnknown: TGUID = '{00000100-0000-0000-C000-000000000046}';
- IID_IElementBehaviorSubmit: TGUID = '{3050F646-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorFocus: TGUID = '{3050F6B6-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorLayout: TGUID = '{3050F6BA-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorLayout2: TGUID = '{3050F846-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSiteLayout: TGUID = '{3050F6B7-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IElementBehaviorSiteLayout2: TGUID = '{3050F847-98B5-11CF-BB82-00AA00BDCE0B}';
- IID_IHostBehaviorInit: TGUID = '{3050F842-98B5-11CF-BB82-00AA00BDCE0B}';
-
-// *********************************************************************//
-// Declaration of Enumerations defined in Type Library
-// *********************************************************************//
-// Constants for enum _htmlDesignMode
-type
- _htmlDesignMode = TOleEnum;
-const
- htmlDesignModeInherit = $FFFFFFFE;
- htmlDesignModeOn = $FFFFFFFF;
- htmlDesignModeOff = $00000000;
- htmlDesignMode_Max = $7FFFFFFF;
-
-// Constants for enum _htmlZOrder
-type
- _htmlZOrder = TOleEnum;
-const
- htmlZOrderFront = $00000000;
- htmlZOrderBack = $00000001;
- htmlZOrder_Max = $7FFFFFFF;
-
-// Constants for enum _htmlClear
-type
- _htmlClear = TOleEnum;
-const
- htmlClearNotSet = $00000000;
- htmlClearAll = $00000001;
- htmlClearLeft = $00000002;
- htmlClearRight = $00000003;
- htmlClearBoth = $00000004;
- htmlClearNone = $00000005;
- htmlClear_Max = $7FFFFFFF;
-
-// Constants for enum _htmlControlAlign
-type
- _htmlControlAlign = TOleEnum;
-const
- htmlControlAlignNotSet = $00000000;
- htmlControlAlignLeft = $00000001;
- htmlControlAlignCenter = $00000002;
- htmlControlAlignRight = $00000003;
- htmlControlAlignTextTop = $00000004;
- htmlControlAlignAbsMiddle = $00000005;
- htmlControlAlignBaseline = $00000006;
- htmlControlAlignAbsBottom = $00000007;
- htmlControlAlignBottom = $00000008;
- htmlControlAlignMiddle = $00000009;
- htmlControlAlignTop = $0000000A;
- htmlControlAlign_Max = $7FFFFFFF;
-
-// Constants for enum _htmlBlockAlign
-type
- _htmlBlockAlign = TOleEnum;
-const
- htmlBlockAlignNotSet = $00000000;
- htmlBlockAlignLeft = $00000001;
- htmlBlockAlignCenter = $00000002;
- htmlBlockAlignRight = $00000003;
- htmlBlockAlignJustify = $00000004;
- htmlBlockAlign_Max = $7FFFFFFF;
-
-// Constants for enum _htmlReadyState
-type
- _htmlReadyState = TOleEnum;
-const
- htmlReadyStateuninitialized = $00000000;
- htmlReadyStateloading = $00000001;
- htmlReadyStateloaded = $00000002;
- htmlReadyStateinteractive = $00000003;
- htmlReadyStatecomplete = $00000004;
- htmlReadyState_Max = $7FFFFFFF;
-
-// Constants for enum _htmlLoop
-type
- _htmlLoop = TOleEnum;
-const
- htmlLoopLoopInfinite = $FFFFFFFF;
- htmlLoop_Max = $7FFFFFFF;
-
-// Constants for enum _mediaType
-type
- _mediaType = TOleEnum;
-const
- mediaTypeNotSet = $00000000;
- mediaTypeAll = $000001FF;
- mediaTypeAural = $00000001;
- mediaTypeBraille = $00000002;
- mediaTypeEmbossed = $00000004;
- mediaTypeHandheld = $00000008;
- mediaTypePrint = $00000010;
- mediaTypeProjection = $00000020;
- mediaTypeScreen = $00000040;
- mediaTypeTty = $00000080;
- mediaTypeTv = $00000100;
- mediaType_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextTransform
-type
- _styleTextTransform = TOleEnum;
-const
- styleTextTransformNotSet = $00000000;
- styleTextTransformCapitalize = $00000001;
- styleTextTransformLowercase = $00000002;
- styleTextTransformUppercase = $00000003;
- styleTextTransformNone = $00000004;
- styleTextTransform_Max = $7FFFFFFF;
-
-// Constants for enum _styleDataRepeat
-type
- _styleDataRepeat = TOleEnum;
-const
- styleDataRepeatNone = $00000000;
- styleDataRepeatInner = $00000001;
- styleDataRepeat_Max = $7FFFFFFF;
-
-// Constants for enum _styleOverflow
-type
- _styleOverflow = TOleEnum;
-const
- styleOverflowNotSet = $00000000;
- styleOverflowAuto = $00000001;
- styleOverflowHidden = $00000002;
- styleOverflowVisible = $00000003;
- styleOverflowScroll = $00000004;
- styleOverflow_Max = $7FFFFFFF;
-
-// Constants for enum _styleTableLayout
-type
- _styleTableLayout = TOleEnum;
-const
- styleTableLayoutNotSet = $00000000;
- styleTableLayoutAuto = $00000001;
- styleTableLayoutFixed = $00000002;
- styleTableLayout_Max = $7FFFFFFF;
-
-// Constants for enum _styleBorderCollapse
-type
- _styleBorderCollapse = TOleEnum;
-const
- styleBorderCollapseNotSet = $00000000;
- styleBorderCollapseSeparate = $00000001;
- styleBorderCollapseCollapse = $00000002;
- styleBorderCollapse_Max = $7FFFFFFF;
-
-// Constants for enum _styleFontStyle
-type
- _styleFontStyle = TOleEnum;
-const
- styleFontStyleNotSet = $00000000;
- styleFontStyleItalic = $00000001;
- styleFontStyleOblique = $00000002;
- styleFontStyleNormal = $00000003;
- styleFontStyle_Max = $7FFFFFFF;
-
-// Constants for enum _styleFontVariant
-type
- _styleFontVariant = TOleEnum;
-const
- styleFontVariantNotSet = $00000000;
- styleFontVariantSmallCaps = $00000001;
- styleFontVariantNormal = $00000002;
- styleFontVariant_Max = $7FFFFFFF;
-
-// Constants for enum _styleBackgroundRepeat
-type
- _styleBackgroundRepeat = TOleEnum;
-const
- styleBackgroundRepeatRepeat = $00000000;
- styleBackgroundRepeatRepeatX = $00000001;
- styleBackgroundRepeatRepeatY = $00000002;
- styleBackgroundRepeatNoRepeat = $00000003;
- styleBackgroundRepeatNotSet = $00000004;
- styleBackgroundRepeat_Max = $7FFFFFFF;
-
-// Constants for enum _styleBackgroundAttachment
-type
- _styleBackgroundAttachment = TOleEnum;
-const
- styleBackgroundAttachmentFixed = $00000000;
- styleBackgroundAttachmentScroll = $00000001;
- styleBackgroundAttachmentNotSet = $00000002;
- styleBackgroundAttachment_Max = $7FFFFFFF;
-
-// Constants for enum _styleVerticalAlign
-type
- _styleVerticalAlign = TOleEnum;
-const
- styleVerticalAlignAuto = $00000000;
- styleVerticalAlignBaseline = $00000001;
- styleVerticalAlignSub = $00000002;
- styleVerticalAlignSuper = $00000003;
- styleVerticalAlignTop = $00000004;
- styleVerticalAlignTextTop = $00000005;
- styleVerticalAlignMiddle = $00000006;
- styleVerticalAlignBottom = $00000007;
- styleVerticalAlignTextBottom = $00000008;
- styleVerticalAlignInherit = $00000009;
- styleVerticalAlignNotSet = $0000000A;
- styleVerticalAlign_Max = $7FFFFFFF;
-
-// Constants for enum _styleFontWeight
-type
- _styleFontWeight = TOleEnum;
-const
- styleFontWeightNotSet = $00000000;
- styleFontWeight100 = $00000001;
- styleFontWeight200 = $00000002;
- styleFontWeight300 = $00000003;
- styleFontWeight400 = $00000004;
- styleFontWeight500 = $00000005;
- styleFontWeight600 = $00000006;
- styleFontWeight700 = $00000007;
- styleFontWeight800 = $00000008;
- styleFontWeight900 = $00000009;
- styleFontWeightNormal = $0000000A;
- styleFontWeightBold = $0000000B;
- styleFontWeightBolder = $0000000C;
- styleFontWeightLighter = $0000000D;
- styleFontWeight_Max = $7FFFFFFF;
-
-// Constants for enum _styleBackgroundPositionX
-type
- _styleBackgroundPositionX = TOleEnum;
-const
- styleBackgroundPositionXNotSet = $00000000;
- styleBackgroundPositionXLeft = $00000001;
- styleBackgroundPositionXCenter = $00000002;
- styleBackgroundPositionXRight = $00000003;
- styleBackgroundPositionX_Max = $7FFFFFFF;
-
-// Constants for enum _styleBackgroundPositionY
-type
- _styleBackgroundPositionY = TOleEnum;
-const
- styleBackgroundPositionYNotSet = $00000000;
- styleBackgroundPositionYTop = $00000001;
- styleBackgroundPositionYCenter = $00000002;
- styleBackgroundPositionYBottom = $00000003;
- styleBackgroundPositionY_Max = $7FFFFFFF;
-
-// Constants for enum _styleFontSize
-type
- _styleFontSize = TOleEnum;
-const
- styleFontSizeXXSmall = $00000000;
- styleFontSizeXSmall = $00000001;
- styleFontSizeSmall = $00000002;
- styleFontSizeMedium = $00000003;
- styleFontSizeLarge = $00000004;
- styleFontSizeXLarge = $00000005;
- styleFontSizeXXLarge = $00000006;
- styleFontSizeSmaller = $00000007;
- styleFontSizeLarger = $00000008;
- styleFontSize_Max = $7FFFFFFF;
-
-// Constants for enum _styleAuto
-type
- _styleAuto = TOleEnum;
-const
- styleAutoAuto = $00000000;
- styleAuto_Max = $7FFFFFFF;
-
-// Constants for enum _styleNormal
-type
- _styleNormal = TOleEnum;
-const
- styleNormalNormal = $00000000;
- styleNormal_Max = $7FFFFFFF;
-
-// Constants for enum _styleBorderWidth
-type
- _styleBorderWidth = TOleEnum;
-const
- styleBorderWidthThin = $00000000;
- styleBorderWidthMedium = $00000001;
- styleBorderWidthThick = $00000002;
- styleBorderWidth_Max = $7FFFFFFF;
-
-// Constants for enum _stylePosition
-type
- _stylePosition = TOleEnum;
-const
- stylePositionNotSet = $00000000;
- stylePositionstatic = $00000001;
- stylePositionrelative = $00000002;
- stylePositionabsolute = $00000003;
- stylePositionfixed = $00000004;
- stylePosition_Max = $7FFFFFFF;
-
-// Constants for enum _styleBorderStyle
-type
- _styleBorderStyle = TOleEnum;
-const
- styleBorderStyleNotSet = $00000000;
- styleBorderStyleDotted = $00000001;
- styleBorderStyleDashed = $00000002;
- styleBorderStyleSolid = $00000003;
- styleBorderStyleDouble = $00000004;
- styleBorderStyleGroove = $00000005;
- styleBorderStyleRidge = $00000006;
- styleBorderStyleInset = $00000007;
- styleBorderStyleOutset = $00000008;
- styleBorderStyleWindowInset = $00000009;
- styleBorderStyleNone = $0000000A;
- styleBorderStyle_Max = $7FFFFFFF;
-
-// Constants for enum _styleStyleFloat
-type
- _styleStyleFloat = TOleEnum;
-const
- styleStyleFloatNotSet = $00000000;
- styleStyleFloatLeft = $00000001;
- styleStyleFloatRight = $00000002;
- styleStyleFloatNone = $00000003;
- styleStyleFloat_Max = $7FFFFFFF;
-
-// Constants for enum _styleDisplay
-type
- _styleDisplay = TOleEnum;
-const
- styleDisplayNotSet = $00000000;
- styleDisplayBlock = $00000001;
- styleDisplayInline = $00000002;
- styleDisplayListItem = $00000003;
- styleDisplayNone = $00000004;
- styleDisplayTableHeaderGroup = $00000005;
- styleDisplayTableFooterGroup = $00000006;
- styleDisplayInlineBlock = $00000007;
- styleDisplay_Max = $7FFFFFFF;
-
-// Constants for enum _styleVisibility
-type
- _styleVisibility = TOleEnum;
-const
- styleVisibilityNotSet = $00000000;
- styleVisibilityInherit = $00000001;
- styleVisibilityVisible = $00000002;
- styleVisibilityHidden = $00000003;
- styleVisibility_Max = $7FFFFFFF;
-
-// Constants for enum _styleListStyleType
-type
- _styleListStyleType = TOleEnum;
-const
- styleListStyleTypeNotSet = $00000000;
- styleListStyleTypeDisc = $00000001;
- styleListStyleTypeCircle = $00000002;
- styleListStyleTypeSquare = $00000003;
- styleListStyleTypeDecimal = $00000004;
- styleListStyleTypeLowerRoman = $00000005;
- styleListStyleTypeUpperRoman = $00000006;
- styleListStyleTypeLowerAlpha = $00000007;
- styleListStyleTypeUpperAlpha = $00000008;
- styleListStyleTypeNone = $00000009;
- styleListStyleType_Max = $7FFFFFFF;
-
-// Constants for enum _styleListStylePosition
-type
- _styleListStylePosition = TOleEnum;
-const
- styleListStylePositionNotSet = $00000000;
- styleListStylePositionInside = $00000001;
- styleListStylePositionOutSide = $00000002;
- styleListStylePosition_Max = $7FFFFFFF;
-
-// Constants for enum _styleWhiteSpace
-type
- _styleWhiteSpace = TOleEnum;
-const
- styleWhiteSpaceNotSet = $00000000;
- styleWhiteSpaceNormal = $00000001;
- styleWhiteSpacePre = $00000002;
- styleWhiteSpaceNowrap = $00000003;
- styleWhiteSpace_Max = $7FFFFFFF;
-
-// Constants for enum _stylePageBreak
-type
- _stylePageBreak = TOleEnum;
-const
- stylePageBreakNotSet = $00000000;
- stylePageBreakAuto = $00000001;
- stylePageBreakAlways = $00000002;
- stylePageBreakLeft = $00000003;
- stylePageBreakRight = $00000004;
- stylePageBreak_Max = $7FFFFFFF;
-
-// Constants for enum _styleCursor
-type
- _styleCursor = TOleEnum;
-const
- styleCursorAuto = $00000000;
- styleCursorCrosshair = $00000001;
- styleCursorDefault = $00000002;
- styleCursorHand = $00000003;
- styleCursorMove = $00000004;
- styleCursorE_resize = $00000005;
- styleCursorNe_resize = $00000006;
- styleCursorNw_resize = $00000007;
- styleCursorN_resize = $00000008;
- styleCursorSe_resize = $00000009;
- styleCursorSw_resize = $0000000A;
- styleCursorS_resize = $0000000B;
- styleCursorW_resize = $0000000C;
- styleCursorText = $0000000D;
- styleCursorWait = $0000000E;
- styleCursorHelp = $0000000F;
- styleCursorPointer = $00000010;
- styleCursorProgress = $00000011;
- styleCursorNot_allowed = $00000012;
- styleCursorNo_drop = $00000013;
- styleCursorVertical_text = $00000014;
- styleCursorall_scroll = $00000015;
- styleCursorcol_resize = $00000016;
- styleCursorrow_resize = $00000017;
- styleCursorcustom = $00000018;
- styleCursorNotSet = $00000019;
- styleCursor_Max = $7FFFFFFF;
-
-// Constants for enum _styleDir
-type
- _styleDir = TOleEnum;
-const
- styleDirNotSet = $00000000;
- styleDirLeftToRight = $00000001;
- styleDirRightToLeft = $00000002;
- styleDirInherit = $00000003;
- styleDir_Max = $7FFFFFFF;
-
-// Constants for enum _styleBidi
-type
- _styleBidi = TOleEnum;
-const
- styleBidiNotSet = $00000000;
- styleBidiNormal = $00000001;
- styleBidiEmbed = $00000002;
- styleBidiOverride = $00000003;
- styleBidiInherit = $00000004;
- styleBidi_Max = $7FFFFFFF;
-
-// Constants for enum _styleImeMode
-type
- _styleImeMode = TOleEnum;
-const
- styleImeModeAuto = $00000000;
- styleImeModeActive = $00000001;
- styleImeModeInactive = $00000002;
- styleImeModeDisabled = $00000003;
- styleImeModeNotSet = $00000004;
- styleImeMode_Max = $7FFFFFFF;
-
-// Constants for enum _styleRubyAlign
-type
- _styleRubyAlign = TOleEnum;
-const
- styleRubyAlignNotSet = $00000000;
- styleRubyAlignAuto = $00000001;
- styleRubyAlignLeft = $00000002;
- styleRubyAlignCenter = $00000003;
- styleRubyAlignRight = $00000004;
- styleRubyAlignDistributeLetter = $00000005;
- styleRubyAlignDistributeSpace = $00000006;
- styleRubyAlignLineEdge = $00000007;
- styleRubyAlign_Max = $7FFFFFFF;
-
-// Constants for enum _styleRubyPosition
-type
- _styleRubyPosition = TOleEnum;
-const
- styleRubyPositionNotSet = $00000000;
- styleRubyPositionAbove = $00000001;
- styleRubyPositionInline = $00000002;
- styleRubyPosition_Max = $7FFFFFFF;
-
-// Constants for enum _styleRubyOverhang
-type
- _styleRubyOverhang = TOleEnum;
-const
- styleRubyOverhangNotSet = $00000000;
- styleRubyOverhangAuto = $00000001;
- styleRubyOverhangWhitespace = $00000002;
- styleRubyOverhangNone = $00000003;
- styleRubyOverhang_Max = $7FFFFFFF;
-
-// Constants for enum _styleLayoutGridChar
-type
- _styleLayoutGridChar = TOleEnum;
-const
- styleLayoutGridCharNotSet = $00000000;
- styleLayoutGridCharAuto = $00000001;
- styleLayoutGridCharNone = $00000002;
- styleLayoutGridChar_Max = $7FFFFFFF;
-
-// Constants for enum _styleLayoutGridLine
-type
- _styleLayoutGridLine = TOleEnum;
-const
- styleLayoutGridLineNotSet = $00000000;
- styleLayoutGridLineAuto = $00000001;
- styleLayoutGridLineNone = $00000002;
- styleLayoutGridLine_Max = $7FFFFFFF;
-
-// Constants for enum _styleLayoutGridMode
-type
- _styleLayoutGridMode = TOleEnum;
-const
- styleLayoutGridModeNotSet = $00000000;
- styleLayoutGridModeChar = $00000001;
- styleLayoutGridModeLine = $00000002;
- styleLayoutGridModeBoth = $00000003;
- styleLayoutGridModeNone = $00000004;
- styleLayoutGridMode_Max = $7FFFFFFF;
-
-// Constants for enum _styleLayoutGridType
-type
- _styleLayoutGridType = TOleEnum;
-const
- styleLayoutGridTypeNotSet = $00000000;
- styleLayoutGridTypeLoose = $00000001;
- styleLayoutGridTypeStrict = $00000002;
- styleLayoutGridTypeFixed = $00000003;
- styleLayoutGridType_Max = $7FFFFFFF;
-
-// Constants for enum _styleLineBreak
-type
- _styleLineBreak = TOleEnum;
-const
- styleLineBreakNotSet = $00000000;
- styleLineBreakNormal = $00000001;
- styleLineBreakStrict = $00000002;
- styleLineBreak_Max = $7FFFFFFF;
-
-// Constants for enum _styleWordBreak
-type
- _styleWordBreak = TOleEnum;
-const
- styleWordBreakNotSet = $00000000;
- styleWordBreakNormal = $00000001;
- styleWordBreakBreakAll = $00000002;
- styleWordBreakKeepAll = $00000003;
- styleWordBreak_Max = $7FFFFFFF;
-
-// Constants for enum _styleWordWrap
-type
- _styleWordWrap = TOleEnum;
-const
- styleWordWrapNotSet = $00000000;
- styleWordWrapOff = $00000001;
- styleWordWrapOn = $00000002;
- styleWordWrap_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextJustify
-type
- _styleTextJustify = TOleEnum;
-const
- styleTextJustifyNotSet = $00000000;
- styleTextJustifyInterWord = $00000001;
- styleTextJustifyNewspaper = $00000002;
- styleTextJustifyDistribute = $00000003;
- styleTextJustifyDistributeAllLines = $00000004;
- styleTextJustifyInterIdeograph = $00000005;
- styleTextJustifyInterCluster = $00000006;
- styleTextJustifyKashida = $00000007;
- styleTextJustifyAuto = $00000008;
- styleTextJustify_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextAlignLast
-type
- _styleTextAlignLast = TOleEnum;
-const
- styleTextAlignLastNotSet = $00000000;
- styleTextAlignLastLeft = $00000001;
- styleTextAlignLastCenter = $00000002;
- styleTextAlignLastRight = $00000003;
- styleTextAlignLastJustify = $00000004;
- styleTextAlignLastAuto = $00000005;
- styleTextAlignLast_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextJustifyTrim
-type
- _styleTextJustifyTrim = TOleEnum;
-const
- styleTextJustifyTrimNotSet = $00000000;
- styleTextJustifyTrimNone = $00000001;
- styleTextJustifyTrimPunctuation = $00000002;
- styleTextJustifyTrimPunctAndKana = $00000003;
- styleTextJustifyTrim_Max = $7FFFFFFF;
-
-// Constants for enum _styleAccelerator
-type
- _styleAccelerator = TOleEnum;
-const
- styleAcceleratorFalse = $00000000;
- styleAcceleratorTrue = $00000001;
- styleAccelerator_Max = $7FFFFFFF;
-
-// Constants for enum _styleLayoutFlow
-type
- _styleLayoutFlow = TOleEnum;
-const
- styleLayoutFlowHorizontal = $00000000;
- styleLayoutFlowVerticalIdeographic = $00000001;
- styleLayoutFlowNotSet = $00000002;
- styleLayoutFlow_Max = $7FFFFFFF;
-
-// Constants for enum _styleWritingMode
-type
- _styleWritingMode = TOleEnum;
-const
- styleWritingModeLrtb = $00000000;
- styleWritingModeTbrl = $00000001;
- styleWritingModeNotSet = $00000002;
- styleWritingMode_Max = $7FFFFFFF;
-
-// Constants for enum _styleBool
-type
- _styleBool = TOleEnum;
-const
- styleBoolFalse = $00000000;
- styleBoolTrue = $00000001;
- styleBool_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextUnderlinePosition
-type
- _styleTextUnderlinePosition = TOleEnum;
-const
- styleTextUnderlinePositionBelow = $00000000;
- styleTextUnderlinePositionAbove = $00000001;
- styleTextUnderlinePositionAuto = $00000002;
- styleTextUnderlinePositionNotSet = $00000003;
- styleTextUnderlinePosition_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextOverflow
-type
- _styleTextOverflow = TOleEnum;
-const
- styleTextOverflowClip = $00000000;
- styleTextOverflowEllipsis = $00000001;
- styleTextOverflowNotSet = $00000002;
- styleTextOverflow_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextLineThroughStyle
-type
- _styleTextLineThroughStyle = TOleEnum;
-const
- styleTextLineThroughStyleUndefined = $00000000;
- styleTextLineThroughStyleSingle = $00000001;
- styleTextLineThroughStyleDouble = $00000002;
- styleTextLineThroughStyle_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextUnderlineStyle
-type
- _styleTextUnderlineStyle = TOleEnum;
-const
- styleTextUnderlineStyleUndefined = $00000000;
- styleTextUnderlineStyleSingle = $00000001;
- styleTextUnderlineStyleDouble = $00000002;
- styleTextUnderlineStyleWords = $00000003;
- styleTextUnderlineStyleDotted = $00000004;
- styleTextUnderlineStyleThick = $00000005;
- styleTextUnderlineStyleDash = $00000006;
- styleTextUnderlineStyleDotDash = $00000007;
- styleTextUnderlineStyleDotDotDash = $00000008;
- styleTextUnderlineStyleWave = $00000009;
- styleTextUnderlineStyleSingleAccounting = $0000000A;
- styleTextUnderlineStyleDoubleAccounting = $0000000B;
- styleTextUnderlineStyleThickDash = $0000000C;
- styleTextUnderlineStyle_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextEffect
-type
- _styleTextEffect = TOleEnum;
-const
- styleTextEffectNone = $00000000;
- styleTextEffectEmboss = $00000001;
- styleTextEffectEngrave = $00000002;
- styleTextEffectOutline = $00000003;
- styleTextEffect_Max = $7FFFFFFF;
-
-// Constants for enum _styleDefaultTextSelection
-type
- _styleDefaultTextSelection = TOleEnum;
-const
- styleDefaultTextSelectionFalse = $00000000;
- styleDefaultTextSelectionTrue = $00000001;
- styleDefaultTextSelection_Max = $7FFFFFFF;
-
-// Constants for enum _styleTextDecoration
-type
- _styleTextDecoration = TOleEnum;
-const
- styleTextDecorationNone = $00000000;
- styleTextDecorationUnderline = $00000001;
- styleTextDecorationOverline = $00000002;
- styleTextDecorationLineThrough = $00000003;
- styleTextDecorationBlink = $00000004;
- styleTextDecoration_Max = $7FFFFFFF;
-
-// Constants for enum _textDecoration
-type
- _textDecoration = TOleEnum;
-const
- textDecorationNone = $00000000;
- textDecorationUnderline = $00000001;
- textDecorationOverline = $00000002;
- textDecorationLineThrough = $00000003;
- textDecorationBlink = $00000004;
- textDecoration_Max = $7FFFFFFF;
-
-// Constants for enum _htmlListType
-type
- _htmlListType = TOleEnum;
-const
- htmlListTypeNotSet = $00000000;
- htmlListTypeLargeAlpha = $00000001;
- htmlListTypeSmallAlpha = $00000002;
- htmlListTypeLargeRoman = $00000003;
- htmlListTypeSmallRoman = $00000004;
- htmlListTypeNumbers = $00000005;
- htmlListTypeDisc = $00000006;
- htmlListTypeCircle = $00000007;
- htmlListTypeSquare = $00000008;
- htmlListType_Max = $7FFFFFFF;
-
-// Constants for enum _htmlMethod
-type
- _htmlMethod = TOleEnum;
-const
- htmlMethodNotSet = $00000000;
- htmlMethodGet = $00000001;
- htmlMethodPost = $00000002;
- htmlMethod_Max = $7FFFFFFF;
-
-// Constants for enum _htmlWrap
-type
- _htmlWrap = TOleEnum;
-const
- htmlWrapOff = $00000001;
- htmlWrapSoft = $00000002;
- htmlWrapHard = $00000003;
- htmlWrap_Max = $7FFFFFFF;
-
-// Constants for enum _htmlDir
-type
- _htmlDir = TOleEnum;
-const
- htmlDirNotSet = $00000000;
- htmlDirLeftToRight = $00000001;
- htmlDirRightToLeft = $00000002;
- htmlDir_Max = $7FFFFFFF;
-
-// Constants for enum _htmlEditable
-type
- _htmlEditable = TOleEnum;
-const
- htmlEditableInherit = $00000000;
- htmlEditableTrue = $00000001;
- htmlEditableFalse = $00000002;
- htmlEditable_Max = $7FFFFFFF;
-
-// Constants for enum _htmlInput
-type
- _htmlInput = TOleEnum;
-const
- htmlInputNotSet = $00000000;
- htmlInputButton = $00000001;
- htmlInputCheckbox = $00000002;
- htmlInputFile = $00000003;
- htmlInputHidden = $00000004;
- htmlInputImage_ = $00000005;
- htmlInputPassword = $00000006;
- htmlInputRadio = $00000007;
- htmlInputReset = $00000008;
- htmlInputSelectOne = $00000009;
- htmlInputSelectMultiple = $0000000A;
- htmlInputSubmit = $0000000B;
- htmlInputText = $0000000C;
- htmlInputTextarea = $0000000D;
- htmlInputRichtext = $0000000E;
- htmlInput_Max = $7FFFFFFF;
-
-// Constants for enum _htmlEncoding
-type
- _htmlEncoding = TOleEnum;
-const
- htmlEncodingURL = $00000000;
- htmlEncodingMultipart = $00000001;
- htmlEncodingText = $00000002;
- htmlEncoding_Max = $7FFFFFFF;
-
-// Constants for enum _htmlAdjacency
-type
- _htmlAdjacency = TOleEnum;
-const
- htmlAdjacencyBeforeBegin = $00000001;
- htmlAdjacencyAfterBegin = $00000002;
- htmlAdjacencyBeforeEnd = $00000003;
- htmlAdjacencyAfterEnd = $00000004;
- htmlAdjacency_Max = $7FFFFFFF;
-
-// Constants for enum _htmlTabIndex
-type
- _htmlTabIndex = TOleEnum;
-const
- htmlTabIndexNotSet = $FFFF8000;
- htmlTabIndex_Max = $7FFFFFFF;
-
-// Constants for enum _htmlComponent
-type
- _htmlComponent = TOleEnum;
-const
- htmlComponentClient = $00000000;
- htmlComponentSbLeft = $00000001;
- htmlComponentSbPageLeft = $00000002;
- htmlComponentSbHThumb = $00000003;
- htmlComponentSbPageRight = $00000004;
- htmlComponentSbRight = $00000005;
- htmlComponentSbUp = $00000006;
- htmlComponentSbPageUp = $00000007;
- htmlComponentSbVThumb = $00000008;
- htmlComponentSbPageDown = $00000009;
- htmlComponentSbDown = $0000000A;
- htmlComponentSbLeft2 = $0000000B;
- htmlComponentSbPageLeft2 = $0000000C;
- htmlComponentSbRight2 = $0000000D;
- htmlComponentSbPageRight2 = $0000000E;
- htmlComponentSbUp2 = $0000000F;
- htmlComponentSbPageUp2 = $00000010;
- htmlComponentSbDown2 = $00000011;
- htmlComponentSbPageDown2 = $00000012;
- htmlComponentSbTop = $00000013;
- htmlComponentSbBottom = $00000014;
- htmlComponentOutside = $00000015;
- htmlComponentGHTopLeft = $00000016;
- htmlComponentGHLeft = $00000017;
- htmlComponentGHTop = $00000018;
- htmlComponentGHBottomLeft = $00000019;
- htmlComponentGHTopRight = $0000001A;
- htmlComponentGHBottom = $0000001B;
- htmlComponentGHRight = $0000001C;
- htmlComponentGHBottomRight = $0000001D;
- htmlComponent_Max = $7FFFFFFF;
-
-// Constants for enum _htmlApplyLocation
-type
- _htmlApplyLocation = TOleEnum;
-const
- htmlApplyLocationInside = $00000000;
- htmlApplyLocationOutside = $00000001;
- htmlApplyLocation_Max = $7FFFFFFF;
-
-// Constants for enum _htmlGlyphMode
-type
- _htmlGlyphMode = TOleEnum;
-const
- htmlGlyphModeNone = $00000000;
- htmlGlyphModeBegin = $00000001;
- htmlGlyphModeEnd = $00000002;
- htmlGlyphModeBoth = $00000003;
- htmlGlyphMode_Max = $7FFFFFFF;
-
-// Constants for enum _htmlUnit
-type
- _htmlUnit = TOleEnum;
-const
- htmlUnitCharacter = $00000001;
- htmlUnitWord = $00000002;
- htmlUnitSentence = $00000003;
- htmlUnitTextEdit = $00000006;
- htmlUnit_Max = $7FFFFFFF;
-
-// Constants for enum _htmlEndPoints
-type
- _htmlEndPoints = TOleEnum;
-const
- htmlEndPointsStartToStart = $00000001;
- htmlEndPointsStartToEnd = $00000002;
- htmlEndPointsEndToStart = $00000003;
- htmlEndPointsEndToEnd = $00000004;
- htmlEndPoints_Max = $7FFFFFFF;
-
-// Constants for enum _htmlDirection
-type
- _htmlDirection = TOleEnum;
-const
- htmlDirectionForward = $0001869F;
- htmlDirectionBackward = $FFFE7961;
- htmlDirection_Max = $7FFFFFFF;
-
-// Constants for enum _htmlStart
-type
- _htmlStart = TOleEnum;
-const
- htmlStartfileopen = $00000000;
- htmlStartmouseover = $00000001;
- htmlStart_Max = $7FFFFFFF;
-
-// Constants for enum _bodyScroll
-type
- _bodyScroll = TOleEnum;
-const
- bodyScrollyes = $00000001;
- bodyScrollno = $00000002;
- bodyScrollauto = $00000004;
- bodyScrolldefault = $00000003;
- bodyScroll_Max = $7FFFFFFF;
-
-// Constants for enum _htmlSelectType
-type
- _htmlSelectType = TOleEnum;
-const
- htmlSelectTypeSelectOne = $00000001;
- htmlSelectTypeSelectMultiple = $00000002;
- htmlSelectType_Max = $7FFFFFFF;
-
-// Constants for enum _htmlSelection
-type
- _htmlSelection = TOleEnum;
-const
- htmlSelectionNone = $00000000;
- htmlSelectionText = $00000001;
- htmlSelectionControl = $00000002;
- htmlSelectionTable = $00000003;
- htmlSelection_Max = $7FFFFFFF;
-
-// Constants for enum _htmlMarqueeBehavior
-type
- _htmlMarqueeBehavior = TOleEnum;
-const
- htmlMarqueeBehaviorscroll = $00000001;
- htmlMarqueeBehaviorslide = $00000002;
- htmlMarqueeBehavioralternate = $00000003;
- htmlMarqueeBehavior_Max = $7FFFFFFF;
-
-// Constants for enum _htmlMarqueeDirection
-type
- _htmlMarqueeDirection = TOleEnum;
-const
- htmlMarqueeDirectionleft = $00000001;
- htmlMarqueeDirectionright = $00000003;
- htmlMarqueeDirectionup = $00000005;
- htmlMarqueeDirectiondown = $00000007;
- htmlMarqueeDirection_Max = $7FFFFFFF;
-
-// Constants for enum _htmlPersistState
-type
- _htmlPersistState = TOleEnum;
-const
- htmlPersistStateNormal = $00000000;
- htmlPersistStateFavorite = $00000001;
- htmlPersistStateHistory = $00000002;
- htmlPersistStateSnapshot = $00000003;
- htmlPersistStateUserData = $00000004;
- htmlPersistState_Max = $7FFFFFFF;
-
-// Constants for enum _htmlDropEffect
-type
- _htmlDropEffect = TOleEnum;
-const
- htmlDropEffectCopy = $00000000;
- htmlDropEffectLink = $00000001;
- htmlDropEffectMove = $00000002;
- htmlDropEffectNone = $00000003;
- htmlDropEffect_Max = $7FFFFFFF;
-
-// Constants for enum _htmlEffectAllowed
-type
- _htmlEffectAllowed = TOleEnum;
-const
- htmlEffectAllowedCopy = $00000000;
- htmlEffectAllowedLink = $00000001;
- htmlEffectAllowedMove = $00000002;
- htmlEffectAllowedCopyLink = $00000003;
- htmlEffectAllowedCopyMove = $00000004;
- htmlEffectAllowedLinkMove = $00000005;
- htmlEffectAllowedAll = $00000006;
- htmlEffectAllowedNone = $00000007;
- htmlEffectAllowedUninitialized = $00000008;
- htmlEffectAllowed_Max = $7FFFFFFF;
-
-// Constants for enum _htmlCompatMode
-type
- _htmlCompatMode = TOleEnum;
-const
- htmlCompatModeBackCompat = $00000000;
- htmlCompatModeCSS1Compat = $00000001;
- htmlCompatMode_Max = $7FFFFFFF;
-
-// Constants for enum _BoolValue
-type
- _BoolValue = TOleEnum;
-const
-// True = $00000001;
-// False = $00000000;
- BoolValue_Max = $7FFFFFFF;
-
-// Constants for enum _htmlCaptionAlign
-type
- _htmlCaptionAlign = TOleEnum;
-const
- htmlCaptionAlignNotSet = $00000000;
- htmlCaptionAlignLeft = $00000001;
- htmlCaptionAlignCenter = $00000002;
- htmlCaptionAlignRight = $00000003;
- htmlCaptionAlignJustify = $00000004;
- htmlCaptionAlignTop = $00000005;
- htmlCaptionAlignBottom = $00000006;
- htmlCaptionAlign_Max = $7FFFFFFF;
-
-// Constants for enum _htmlCaptionVAlign
-type
- _htmlCaptionVAlign = TOleEnum;
-const
- htmlCaptionVAlignNotSet = $00000000;
- htmlCaptionVAlignTop = $00000001;
- htmlCaptionVAlignBottom = $00000002;
- htmlCaptionVAlign_Max = $7FFFFFFF;
-
-// Constants for enum _htmlFrame
-type
- _htmlFrame = TOleEnum;
-const
- htmlFrameNotSet = $00000000;
- htmlFramevoid = $00000001;
- htmlFrameabove = $00000002;
- htmlFramebelow = $00000003;
- htmlFramehsides = $00000004;
- htmlFramelhs = $00000005;
- htmlFramerhs = $00000006;
- htmlFramevsides = $00000007;
- htmlFramebox = $00000008;
- htmlFrameborder = $00000009;
- htmlFrame_Max = $7FFFFFFF;
-
-// Constants for enum _htmlRules
-type
- _htmlRules = TOleEnum;
-const
- htmlRulesNotSet = $00000000;
- htmlRulesnone = $00000001;
- htmlRulesgroups = $00000002;
- htmlRulesrows = $00000003;
- htmlRulescols = $00000004;
- htmlRulesall = $00000005;
- htmlRules_Max = $7FFFFFFF;
-
-// Constants for enum _htmlCellAlign
-type
- _htmlCellAlign = TOleEnum;
-const
- htmlCellAlignNotSet = $00000000;
- htmlCellAlignLeft = $00000001;
- htmlCellAlignCenter = $00000002;
- htmlCellAlignRight = $00000003;
- htmlCellAlignMiddle = $00000002;
- htmlCellAlign_Max = $7FFFFFFF;
-
-// Constants for enum _htmlCellVAlign
-type
- _htmlCellVAlign = TOleEnum;
-const
- htmlCellVAlignNotSet = $00000000;
- htmlCellVAlignTop = $00000001;
- htmlCellVAlignMiddle = $00000002;
- htmlCellVAlignBottom = $00000003;
- htmlCellVAlignBaseline = $00000004;
- htmlCellVAlignCenter = $00000002;
- htmlCellVAlign_Max = $7FFFFFFF;
-
-// Constants for enum _frameScrolling
-type
- _frameScrolling = TOleEnum;
-const
- frameScrollingyes = $00000001;
- frameScrollingno = $00000002;
- frameScrollingauto = $00000004;
- frameScrolling_Max = $7FFFFFFF;
-
-// Constants for enum _ELEMENT_CORNER
-type
- _ELEMENT_CORNER = TOleEnum;
-const
- ELEMENT_CORNER_NONE = $00000000;
- ELEMENT_CORNER_TOP = $00000001;
- ELEMENT_CORNER_LEFT = $00000002;
- ELEMENT_CORNER_BOTTOM = $00000003;
- ELEMENT_CORNER_RIGHT = $00000004;
- ELEMENT_CORNER_TOPLEFT = $00000005;
- ELEMENT_CORNER_TOPRIGHT = $00000006;
- ELEMENT_CORNER_BOTTOMLEFT = $00000007;
- ELEMENT_CORNER_BOTTOMRIGHT = $00000008;
- ELEMENT_CORNER_Max = $7FFFFFFF;
-
-// Constants for enum _SECUREURLHOSTVALIDATE_FLAGS
-type
- _SECUREURLHOSTVALIDATE_FLAGS = TOleEnum;
-const
- SUHV_PROMPTBEFORENO = $00000001;
- SUHV_SILENTYES = $00000002;
- SUHV_UNSECURESOURCE = $00000004;
- SECUREURLHOSTVALIDATE_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _POINTER_GRAVITY
-type
- _POINTER_GRAVITY = TOleEnum;
-const
- POINTER_GRAVITY_Left = $00000000;
- POINTER_GRAVITY_Right = $00000001;
- POINTER_GRAVITY_Max = $7FFFFFFF;
-
-// Constants for enum _ELEMENT_ADJACENCY
-type
- _ELEMENT_ADJACENCY = TOleEnum;
-const
- ELEM_ADJ_BeforeBegin = $00000000;
- ELEM_ADJ_AfterBegin = $00000001;
- ELEM_ADJ_BeforeEnd = $00000002;
- ELEM_ADJ_AfterEnd = $00000003;
- ELEMENT_ADJACENCY_Max = $7FFFFFFF;
-
-// Constants for enum _MARKUP_CONTEXT_TYPE
-type
- _MARKUP_CONTEXT_TYPE = TOleEnum;
-const
- CONTEXT_TYPE_None = $00000000;
- CONTEXT_TYPE_Text = $00000001;
- CONTEXT_TYPE_EnterScope = $00000002;
- CONTEXT_TYPE_ExitScope = $00000003;
- CONTEXT_TYPE_NoScope = $00000004;
- MARKUP_CONTEXT_TYPE_Max = $7FFFFFFF;
-
-// Constants for enum _FINDTEXT_FLAGS
-type
- _FINDTEXT_FLAGS = TOleEnum;
-const
- FINDTEXT_BACKWARDS = $00000001;
- FINDTEXT_WHOLEWORD = $00000002;
- FINDTEXT_MATCHCASE = $00000004;
- FINDTEXT_RAW = $00020000;
- FINDTEXT_MATCHDIAC = $20000000;
- FINDTEXT_MATCHKASHIDA = $40000000;
- FINDTEXT_MATCHALEFHAMZA = $80000000;
- FINDTEXT_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _MOVEUNIT_ACTION
-type
- _MOVEUNIT_ACTION = TOleEnum;
-const
- MOVEUNIT_PREVCHAR = $00000000;
- MOVEUNIT_NEXTCHAR = $00000001;
- MOVEUNIT_PREVCLUSTERBEGIN = $00000002;
- MOVEUNIT_NEXTCLUSTERBEGIN = $00000003;
- MOVEUNIT_PREVCLUSTEREND = $00000004;
- MOVEUNIT_NEXTCLUSTEREND = $00000005;
- MOVEUNIT_PREVWORDBEGIN = $00000006;
- MOVEUNIT_NEXTWORDBEGIN = $00000007;
- MOVEUNIT_PREVWORDEND = $00000008;
- MOVEUNIT_NEXTWORDEND = $00000009;
- MOVEUNIT_PREVPROOFWORD = $0000000A;
- MOVEUNIT_NEXTPROOFWORD = $0000000B;
- MOVEUNIT_NEXTURLBEGIN = $0000000C;
- MOVEUNIT_PREVURLBEGIN = $0000000D;
- MOVEUNIT_NEXTURLEND = $0000000E;
- MOVEUNIT_PREVURLEND = $0000000F;
- MOVEUNIT_PREVSENTENCE = $00000010;
- MOVEUNIT_NEXTSENTENCE = $00000011;
- MOVEUNIT_PREVBLOCK = $00000012;
- MOVEUNIT_NEXTBLOCK = $00000013;
- MOVEUNIT_ACTION_Max = $7FFFFFFF;
-
-// Constants for enum _PARSE_FLAGS
-type
- _PARSE_FLAGS = TOleEnum;
-const
- PARSE_ABSOLUTIFYIE40URLS = $00000001;
- PARSE_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _ELEMENT_TAG_ID
-type
- _ELEMENT_TAG_ID = TOleEnum;
-const
- TAGID_NULL = $00000000;
- TAGID_UNKNOWN = $00000001;
- TAGID_A = $00000002;
- TAGID_ACRONYM = $00000003;
- TAGID_ADDRESS = $00000004;
- TAGID_APPLET = $00000005;
- TAGID_AREA = $00000006;
- TAGID_B = $00000007;
- TAGID_BASE = $00000008;
- TAGID_BASEFONT = $00000009;
- TAGID_BDO = $0000000A;
- TAGID_BGSOUND = $0000000B;
- TAGID_BIG = $0000000C;
- TAGID_BLINK = $0000000D;
- TAGID_BLOCKQUOTE = $0000000E;
- TAGID_BODY = $0000000F;
- TAGID_BR = $00000010;
- TAGID_BUTTON = $00000011;
- TAGID_CAPTION = $00000012;
- TAGID_CENTER = $00000013;
- TAGID_CITE = $00000014;
- TAGID_CODE = $00000015;
- TAGID_COL = $00000016;
- TAGID_COLGROUP = $00000017;
- TAGID_COMMENT = $00000018;
- TAGID_COMMENT_RAW = $00000019;
- TAGID_DD = $0000001A;
- TAGID_DEL = $0000001B;
- TAGID_DFN = $0000001C;
- TAGID_DIR = $0000001D;
- TAGID_DIV = $0000001E;
- TAGID_DL = $0000001F;
- TAGID_DT = $00000020;
- TAGID_EM = $00000021;
- TAGID_EMBED = $00000022;
- TAGID_FIELDSET = $00000023;
- TAGID_FONT = $00000024;
- TAGID_FORM = $00000025;
- TAGID_FRAME = $00000026;
- TAGID_FRAMESET = $00000027;
- TAGID_GENERIC = $00000028;
- TAGID_H1 = $00000029;
- TAGID_H2 = $0000002A;
- TAGID_H3 = $0000002B;
- TAGID_H4 = $0000002C;
- TAGID_H5 = $0000002D;
- TAGID_H6 = $0000002E;
- TAGID_HEAD = $0000002F;
- TAGID_HR = $00000030;
- TAGID_HTML = $00000031;
- TAGID_I = $00000032;
- TAGID_IFRAME = $00000033;
- TAGID_IMG = $00000034;
- TAGID_INPUT = $00000035;
- TAGID_INS = $00000036;
- TAGID_KBD = $00000037;
- TAGID_LABEL = $00000038;
- TAGID_LEGEND = $00000039;
- TAGID_LI = $0000003A;
- TAGID_LINK = $0000003B;
- TAGID_LISTING = $0000003C;
- TAGID_MAP = $0000003D;
- TAGID_MARQUEE = $0000003E;
- TAGID_MENU = $0000003F;
- TAGID_META = $00000040;
- TAGID_NEXTID = $00000041;
- TAGID_NOBR = $00000042;
- TAGID_NOEMBED = $00000043;
- TAGID_NOFRAMES = $00000044;
- TAGID_NOSCRIPT = $00000045;
- TAGID_OBJECT = $00000046;
- TAGID_OL = $00000047;
- TAGID_OPTION = $00000048;
- TAGID_P = $00000049;
- TAGID_PARAM = $0000004A;
- TAGID_PLAINTEXT = $0000004B;
- TAGID_PRE = $0000004C;
- TAGID_Q = $0000004D;
- TAGID_RP = $0000004E;
- TAGID_RT = $0000004F;
- TAGID_RUBY = $00000050;
- TAGID_S = $00000051;
- TAGID_SAMP = $00000052;
- TAGID_SCRIPT = $00000053;
- TAGID_SELECT = $00000054;
- TAGID_SMALL = $00000055;
- TAGID_SPAN = $00000056;
- TAGID_STRIKE = $00000057;
- TAGID_STRONG = $00000058;
- TAGID_STYLE = $00000059;
- TAGID_SUB = $0000005A;
- TAGID_SUP = $0000005B;
- TAGID_TABLE = $0000005C;
- TAGID_TBODY = $0000005D;
- TAGID_TC = $0000005E;
- TAGID_TD = $0000005F;
- TAGID_TEXTAREA = $00000060;
- TAGID_TFOOT = $00000061;
- TAGID_TH = $00000062;
- TAGID_THEAD = $00000063;
- TAGID_TITLE = $00000064;
- TAGID_TR = $00000065;
- TAGID_TT = $00000066;
- TAGID_U = $00000067;
- TAGID_UL = $00000068;
- TAGID_VAR = $00000069;
- TAGID_WBR = $0000006A;
- TAGID_XMP = $0000006B;
- TAGID_ROOT = $0000006C;
- TAGID_OPTGROUP = $0000006D;
- TAGID_COUNT = $0000006E;
- TAGID_LAST_PREDEFINED = $00002710;
- ELEMENT_TAG_ID_Max = $7FFFFFFF;
-
-// Constants for enum _SELECTION_TYPE
-type
- _SELECTION_TYPE = TOleEnum;
-const
- SELECTION_TYPE_None = $00000000;
- SELECTION_TYPE_Caret = $00000001;
- SELECTION_TYPE_Text = $00000002;
- SELECTION_TYPE_Control = $00000003;
- SELECTION_TYPE_Max = $7FFFFFFF;
-
-// Constants for enum _SAVE_SEGMENTS_FLAGS
-type
- _SAVE_SEGMENTS_FLAGS = TOleEnum;
-const
- SAVE_SEGMENTS_NoIE4SelectionCompat = $00000001;
- SAVE_SEGMENTS_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _CARET_DIRECTION
-type
- _CARET_DIRECTION = TOleEnum;
-const
- CARET_DIRECTION_INDETERMINATE = $00000000;
- CARET_DIRECTION_SAME = $00000001;
- CARET_DIRECTION_BACKWARD = $00000002;
- CARET_DIRECTION_FORWARD = $00000003;
- CARET_DIRECTION_Max = $7FFFFFFF;
-
-// Constants for enum _LINE_DIRECTION
-type
- _LINE_DIRECTION = TOleEnum;
-const
- LINE_DIRECTION_RightToLeft = $00000001;
- LINE_DIRECTION_LeftToRight = $00000002;
- LINE_DIRECTION_Max = $7FFFFFFF;
-
-// Constants for enum _HT_OPTIONS
-type
- _HT_OPTIONS = TOleEnum;
-const
- HT_OPT_AllowAfterEOL = $00000001;
- HT_OPTIONS_Max = $7FFFFFFF;
-
-// Constants for enum _HT_RESULTS
-type
- _HT_RESULTS = TOleEnum;
-const
- HT_RESULTS_Glyph = $00000001;
- HT_RESULTS_Max = $7FFFFFFF;
-
-// Constants for enum _DISPLAY_MOVEUNIT
-type
- _DISPLAY_MOVEUNIT = TOleEnum;
-const
- DISPLAY_MOVEUNIT_PreviousLine = $00000001;
- DISPLAY_MOVEUNIT_NextLine = $00000002;
- DISPLAY_MOVEUNIT_CurrentLineStart = $00000003;
- DISPLAY_MOVEUNIT_CurrentLineEnd = $00000004;
- DISPLAY_MOVEUNIT_TopOfWindow = $00000005;
- DISPLAY_MOVEUNIT_BottomOfWindow = $00000006;
- DISPLAY_MOVEUNIT_Max = $7FFFFFFF;
-
-// Constants for enum _DISPLAY_GRAVITY
-type
- _DISPLAY_GRAVITY = TOleEnum;
-const
- DISPLAY_GRAVITY_PreviousLine = $00000001;
- DISPLAY_GRAVITY_NextLine = $00000002;
- DISPLAY_GRAVITY_Max = $7FFFFFFF;
-
-// Constants for enum _DISPLAY_BREAK
-type
- _DISPLAY_BREAK = TOleEnum;
-const
- DISPLAY_BREAK_None = $00000000;
- DISPLAY_BREAK_Block = $00000001;
- DISPLAY_BREAK_Break = $00000002;
- DISPLAY_BREAK_Max = $7FFFFFFF;
-
-// Constants for enum _COORD_SYSTEM
-type
- _COORD_SYSTEM = TOleEnum;
-const
- COORD_SYSTEM_GLOBAL = $00000000;
- COORD_SYSTEM_PARENT = $00000001;
- COORD_SYSTEM_CONTAINER = $00000002;
- COORD_SYSTEM_CONTENT = $00000003;
- COORD_SYSTEM_FRAME = $00000004;
- COORD_SYSTEM_Max = $7FFFFFFF;
-
-// Constants for enum _HTML_PAINTER
-type
- _HTML_PAINTER = TOleEnum;
-const
- HTMLPAINTER_OPAQUE = $00000001;
- HTMLPAINTER_TRANSPARENT = $00000002;
- HTMLPAINTER_ALPHA = $00000004;
- HTMLPAINTER_COMPLEX = $00000008;
- HTMLPAINTER_OVERLAY = $00000010;
- HTMLPAINTER_HITTEST = $00000020;
- HTMLPAINTER_SURFACE = $00000100;
- HTMLPAINTER_3DSURFACE = $00000200;
- HTMLPAINTER_NOBAND = $00000400;
- HTMLPAINTER_NODC = $00001000;
- HTMLPAINTER_NOPHYSICALCLIP = $00002000;
- HTMLPAINTER_NOSAVEDC = $00004000;
- HTMLPAINTER_SUPPORTS_XFORM = $00008000;
- HTMLPAINTER_EXPAND = $00010000;
- HTMLPAINTER_NOSCROLLBITS = $00020000;
- HTML_PAINTER_Max = $7FFFFFFF;
-
-// Constants for enum _HTML_PAINT_ZORDER
-type
- _HTML_PAINT_ZORDER = TOleEnum;
-const
- HTMLPAINT_ZORDER_NONE = $00000000;
- HTMLPAINT_ZORDER_REPLACE_ALL = $00000001;
- HTMLPAINT_ZORDER_REPLACE_CONTENT = $00000002;
- HTMLPAINT_ZORDER_REPLACE_BACKGROUND = $00000003;
- HTMLPAINT_ZORDER_BELOW_CONTENT = $00000004;
- HTMLPAINT_ZORDER_BELOW_FLOW = $00000005;
- HTMLPAINT_ZORDER_ABOVE_FLOW = $00000006;
- HTMLPAINT_ZORDER_ABOVE_CONTENT = $00000007;
- HTMLPAINT_ZORDER_WINDOW_TOP = $00000008;
- HTML_PAINT_ZORDER_Max = $7FFFFFFF;
-
-// Constants for enum _HTML_PAINT_DRAW_FLAGS
-type
- _HTML_PAINT_DRAW_FLAGS = TOleEnum;
-const
- HTMLPAINT_DRAW_UPDATEREGION = $00000001;
- HTMLPAINT_DRAW_USE_XFORM = $00000002;
- HTML_PAINT_DRAW_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _HTML_PAINT_EVENT_FLAGS
-type
- _HTML_PAINT_EVENT_FLAGS = TOleEnum;
-const
- HTMLPAINT_EVENT_TARGET = $00000001;
- HTMLPAINT_EVENT_SETCURSOR = $00000002;
- HTML_PAINT_EVENT_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _HTML_PAINT_DRAW_INFO_FLAGS
-type
- _HTML_PAINT_DRAW_INFO_FLAGS = TOleEnum;
-const
- HTMLPAINT_DRAWINFO_VIEWPORT = $00000001;
- HTMLPAINT_DRAWINFO_UPDATEREGION = $00000002;
- HTMLPAINT_DRAWINFO_XFORM = $00000004;
- HTML_PAINT_DRAW_INFO_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLDlgFlag
-type
- _HTMLDlgFlag = TOleEnum;
-const
- HTMLDlgFlagNo = $00000000;
- HTMLDlgFlagOff = $00000000;
- HTMLDlgFlag0 = $00000000;
- HTMLDlgFlagYes = $00000001;
- HTMLDlgFlagOn = $00000001;
- HTMLDlgFlag1 = $00000001;
- HTMLDlgFlagNotSet = $FFFFFFFF;
- HTMLDlgFlag_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLDlgBorder
-type
- _HTMLDlgBorder = TOleEnum;
-const
- HTMLDlgBorderThin = $00000000;
- HTMLDlgBorderThick = $00040000;
- HTMLDlgBorder_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLDlgEdge
-type
- _HTMLDlgEdge = TOleEnum;
-const
- HTMLDlgEdgeSunken = $00000000;
- HTMLDlgEdgeRaised = $00000010;
- HTMLDlgEdge_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLDlgCenter
-type
- _HTMLDlgCenter = TOleEnum;
-const
- HTMLDlgCenterNo = $00000000;
- HTMLDlgCenterOff = $00000000;
- HTMLDlgCenter0 = $00000000;
- HTMLDlgCenterYes = $00000001;
- HTMLDlgCenterOn = $00000001;
- HTMLDlgCenter1 = $00000001;
- HTMLDlgCenterParent = $00000001;
- HTMLDlgCenterDesktop = $00000002;
- HTMLDlgCenter_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLAppFlag
-type
- _HTMLAppFlag = TOleEnum;
-const
- HTMLAppFlagNo = $00000000;
- HTMLAppFlagOff = $00000000;
- HTMLAppFlag0 = $00000000;
- HTMLAppFlagYes = $00000001;
- HTMLAppFlagOn = $00000001;
- HTMLAppFlag1 = $00000001;
- HTMLAppFlag_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLMinimizeFlag
-type
- _HTMLMinimizeFlag = TOleEnum;
-const
- HTMLMinimizeFlagNo = $00000000;
- HTMLMinimizeFlagYes = $00020000;
- HTMLMinimizeFlag_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLMaximizeFlag
-type
- _HTMLMaximizeFlag = TOleEnum;
-const
- HTMLMaximizeFlagNo = $00000000;
- HTMLMaximizeFlagYes = $00010000;
- HTMLMaximizeFlag_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLCaptionFlag
-type
- _HTMLCaptionFlag = TOleEnum;
-const
- HTMLCaptionFlagNo = $00000000;
- HTMLCaptionFlagYes = $00C00000;
- HTMLCaptionFlag_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLSysMenuFlag
-type
- _HTMLSysMenuFlag = TOleEnum;
-const
- HTMLSysMenuFlagNo = $00000000;
- HTMLSysMenuFlagYes = $00080000;
- HTMLSysMenuFlag_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLBorder
-type
- _HTMLBorder = TOleEnum;
-const
- HTMLBorderNone = $00000000;
- HTMLBorderThick = $00040000;
- HTMLBorderDialog = $00400000;
- HTMLBorderThin = $00800000;
- HTMLBorder_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLBorderStyle
-type
- _HTMLBorderStyle = TOleEnum;
-const
- HTMLBorderStyleNormal = $00000000;
- HTMLBorderStyleRaised = $00000100;
- HTMLBorderStyleSunken = $00000200;
- HTMLBorderStylecombined = $00000300;
- HTMLBorderStyleStatic = $00020000;
- HTMLBorderStyle_Max = $7FFFFFFF;
-
-// Constants for enum _HTMLWindowState
-type
- _HTMLWindowState = TOleEnum;
-const
- HTMLWindowStateNormal = $00000001;
- HTMLWindowStateMaximize = $00000003;
- HTMLWindowStateMinimize = $00000006;
- HTMLWindowState_Max = $7FFFFFFF;
-
-// Constants for enum _BEHAVIOR_EVENT
-type
- _BEHAVIOR_EVENT = TOleEnum;
-const
- BEHAVIOREVENT_FIRST = $00000000;
- BEHAVIOREVENT_CONTENTREADY = $00000000;
- BEHAVIOREVENT_DOCUMENTREADY = $00000001;
- BEHAVIOREVENT_APPLYSTYLE = $00000002;
- BEHAVIOREVENT_DOCUMENTCONTEXTCHANGE = $00000003;
- BEHAVIOREVENT_CONTENTSAVE = $00000004;
- BEHAVIOREVENT_LAST = $00000004;
- BEHAVIOR_EVENT_Max = $7FFFFFFF;
-
-// Constants for enum _BEHAVIOR_EVENT_FLAGS
-type
- _BEHAVIOR_EVENT_FLAGS = TOleEnum;
-const
- BEHAVIOREVENTFLAGS_BUBBLE = $00000001;
- BEHAVIOREVENTFLAGS_STANDARDADDITIVE = $00000002;
- BEHAVIOR_EVENT_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _BEHAVIOR_RENDER_INFO
-type
- _BEHAVIOR_RENDER_INFO = TOleEnum;
-const
- BEHAVIORRENDERINFO_BEFOREBACKGROUND = $00000001;
- BEHAVIORRENDERINFO_AFTERBACKGROUND = $00000002;
- BEHAVIORRENDERINFO_BEFORECONTENT = $00000004;
- BEHAVIORRENDERINFO_AFTERCONTENT = $00000008;
- BEHAVIORRENDERINFO_AFTERFOREGROUND = $00000020;
- BEHAVIORRENDERINFO_ABOVECONTENT = $00000028;
- BEHAVIORRENDERINFO_ALLLAYERS = $000000FF;
- BEHAVIORRENDERINFO_DISABLEBACKGROUND = $00000100;
- BEHAVIORRENDERINFO_DISABLENEGATIVEZ = $00000200;
- BEHAVIORRENDERINFO_DISABLECONTENT = $00000400;
- BEHAVIORRENDERINFO_DISABLEPOSITIVEZ = $00000800;
- BEHAVIORRENDERINFO_DISABLEALLLAYERS = $00000F00;
- BEHAVIORRENDERINFO_HITTESTING = $00001000;
- BEHAVIORRENDERINFO_SURFACE = $00100000;
- BEHAVIORRENDERINFO_3DSURFACE = $00200000;
- BEHAVIOR_RENDER_INFO_Max = $7FFFFFFF;
-
-// Constants for enum _BEHAVIOR_RELATION
-type
- _BEHAVIOR_RELATION = TOleEnum;
-const
- BEHAVIOR_FIRSTRELATION = $00000000;
- BEHAVIOR_SAMEELEMENT = $00000000;
- BEHAVIOR_PARENT = $00000001;
- BEHAVIOR_CHILD = $00000002;
- BEHAVIOR_SIBLING = $00000003;
- BEHAVIOR_LASTRELATION = $00000003;
- BEHAVIOR_RELATION_Max = $7FFFFFFF;
-
-// Constants for enum _BEHAVIOR_LAYOUT_INFO
-type
- _BEHAVIOR_LAYOUT_INFO = TOleEnum;
-const
- BEHAVIORLAYOUTINFO_FULLDELEGATION = $00000001;
- BEHAVIORLAYOUTINFO_MODIFYNATURAL = $00000002;
- BEHAVIORLAYOUTINFO_MAPSIZE = $00000004;
- BEHAVIOR_LAYOUT_INFO_Max = $7FFFFFFF;
-
-// Constants for enum _BEHAVIOR_LAYOUT_MODE
-type
- _BEHAVIOR_LAYOUT_MODE = TOleEnum;
-const
- BEHAVIORLAYOUTMODE_NATURAL = $00000001;
- BEHAVIORLAYOUTMODE_MINWIDTH = $00000002;
- BEHAVIORLAYOUTMODE_MAXWIDTH = $00000004;
- BEHAVIORLAYOUTMODE_MEDIA_RESOLUTION = $00004000;
- BEHAVIORLAYOUTMODE_FINAL_PERCENT = $00008000;
- BEHAVIOR_LAYOUT_MODE_Max = $7FFFFFFF;
-
-// Constants for enum _ELEMENTDESCRIPTOR_FLAGS
-type
- _ELEMENTDESCRIPTOR_FLAGS = TOleEnum;
-const
- ELEMENTDESCRIPTORFLAGS_LITERAL = $00000001;
- ELEMENTDESCRIPTORFLAGS_NESTED_LITERAL = $00000002;
- ELEMENTDESCRIPTOR_FLAGS_Max = $7FFFFFFF;
-
-// Constants for enum _ELEMENTNAMESPACE_FLAGS
-type
- _ELEMENTNAMESPACE_FLAGS = TOleEnum;
-const
- ELEMENTNAMESPACEFLAGS_ALLOWANYTAG = $00000001;
- ELEMENTNAMESPACEFLAGS_QUERYFORUNKNOWNTAGS = $00000002;
- ELEMENTNAMESPACE_FLAGS_Max = $7FFFFFFF;
-
-type
-// *********************************************************************//
-// Forward declaration of types defined in TypeLibrary
-// *********************************************************************//
- IHTMLEventObj = interface;
- IHTMLEventObjDisp = dispinterface;
- IHTMLElement = interface;
- IHTMLElementDisp = dispinterface;
- IHTMLStyle = interface;
- IHTMLStyleDisp = dispinterface;
- IHTMLFiltersCollection = interface;
- IHTMLFiltersCollectionDisp = dispinterface;
- IElementBehaviorSite = interface;
- IElementBehavior = interface;
- IElementBehaviorFactory = interface;
- IElementBehaviorSiteOM = interface;
- IElementBehaviorRender = interface;
- IElementBehaviorSiteRender = interface;
- IHTMLStyle2 = interface;
- IHTMLStyle2Disp = dispinterface;
- IHTMLStyle3 = interface;
- IHTMLStyle3Disp = dispinterface;
- IHTMLStyle4 = interface;
- IHTMLStyle4Disp = dispinterface;
- IHTMLRuleStyle = interface;
- IHTMLRuleStyleDisp = dispinterface;
- IHTMLRuleStyle2 = interface;
- IHTMLRuleStyle2Disp = dispinterface;
- IHTMLRuleStyle3 = interface;
- IHTMLRuleStyle3Disp = dispinterface;
- IHTMLRuleStyle4 = interface;
- IHTMLRuleStyle4Disp = dispinterface;
- DispHTMLStyle = dispinterface;
- DispHTMLRuleStyle = dispinterface;
- IHTMLRenderStyle = interface;
- IHTMLRenderStyleDisp = dispinterface;
- DispHTMLRenderStyle = dispinterface;
- IHTMLCurrentStyle = interface;
- IHTMLCurrentStyleDisp = dispinterface;
- IHTMLCurrentStyle2 = interface;
- IHTMLCurrentStyle2Disp = dispinterface;
- IHTMLCurrentStyle3 = interface;
- IHTMLCurrentStyle3Disp = dispinterface;
- DispHTMLCurrentStyle = dispinterface;
- IHTMLRect = interface;
- IHTMLRectDisp = dispinterface;
- IHTMLRectCollection = interface;
- IHTMLRectCollectionDisp = dispinterface;
- IHTMLDOMNode = interface;
- IHTMLDOMNodeDisp = dispinterface;
- IHTMLDOMNode2 = interface;
- IHTMLDOMNode2Disp = dispinterface;
- IHTMLDOMAttribute = interface;
- IHTMLDOMAttributeDisp = dispinterface;
- IHTMLDOMAttribute2 = interface;
- IHTMLDOMAttribute2Disp = dispinterface;
- IHTMLDOMTextNode = interface;
- IHTMLDOMTextNodeDisp = dispinterface;
- IHTMLDOMTextNode2 = interface;
- IHTMLDOMTextNode2Disp = dispinterface;
- IHTMLDOMImplementation = interface;
- IHTMLDOMImplementationDisp = dispinterface;
- DispHTMLDOMAttribute = dispinterface;
- DispHTMLDOMTextNode = dispinterface;
- DispHTMLDOMImplementation = dispinterface;
- IHTMLAttributeCollection = interface;
- IHTMLAttributeCollectionDisp = dispinterface;
- IHTMLAttributeCollection2 = interface;
- IHTMLAttributeCollection2Disp = dispinterface;
- IHTMLDOMChildrenCollection = interface;
- IHTMLDOMChildrenCollectionDisp = dispinterface;
- DispHTMLAttributeCollection = dispinterface;
- DispDOMChildrenCollection = dispinterface;
- HTMLElementEvents2 = dispinterface;
- HTMLElementEvents = dispinterface;
- IHTMLElementCollection = interface;
- IHTMLElementCollectionDisp = dispinterface;
- IHTMLElement2 = interface;
- IHTMLElement2Disp = dispinterface;
- IHTMLElement3 = interface;
- IHTMLElement3Disp = dispinterface;
- IHTMLElement4 = interface;
- IHTMLElement4Disp = dispinterface;
- IHTMLElementRender = interface;
- IHTMLUniqueName = interface;
- IHTMLUniqueNameDisp = dispinterface;
- IHTMLDatabinding = interface;
- IHTMLDatabindingDisp = dispinterface;
- IHTMLDocument = interface;
- IHTMLDocumentDisp = dispinterface;
- IHTMLElementDefaults = interface;
- IHTMLElementDefaultsDisp = dispinterface;
- DispHTMLDefaults = dispinterface;
- IHTCDefaultDispatch = interface;
- IHTCDefaultDispatchDisp = dispinterface;
- IHTCPropertyBehavior = interface;
- IHTCPropertyBehaviorDisp = dispinterface;
- IHTCMethodBehavior = interface;
- IHTCMethodBehaviorDisp = dispinterface;
- IHTCEventBehavior = interface;
- IHTCEventBehaviorDisp = dispinterface;
- IHTCAttachBehavior = interface;
- IHTCAttachBehaviorDisp = dispinterface;
- IHTCAttachBehavior2 = interface;
- IHTCAttachBehavior2Disp = dispinterface;
- IHTCDescBehavior = interface;
- IHTCDescBehaviorDisp = dispinterface;
- DispHTCDefaultDispatch = dispinterface;
- DispHTCPropertyBehavior = dispinterface;
- DispHTCMethodBehavior = dispinterface;
- DispHTCEventBehavior = dispinterface;
- DispHTCAttachBehavior = dispinterface;
- DispHTCDescBehavior = dispinterface;
- IHTMLUrnCollection = interface;
- IHTMLUrnCollectionDisp = dispinterface;
- IHTMLGenericElement = interface;
- IHTMLGenericElementDisp = dispinterface;
- DispHTMLGenericElement = dispinterface;
- IHTMLStyleSheetRule = interface;
- IHTMLStyleSheetRuleDisp = dispinterface;
- IHTMLStyleSheetRulesCollection = interface;
- IHTMLStyleSheetRulesCollectionDisp = dispinterface;
- IHTMLStyleSheetPage = interface;
- IHTMLStyleSheetPageDisp = dispinterface;
- IHTMLStyleSheetPagesCollection = interface;
- IHTMLStyleSheetPagesCollectionDisp = dispinterface;
- IHTMLStyleSheetsCollection = interface;
- IHTMLStyleSheetsCollectionDisp = dispinterface;
- IHTMLStyleSheet = interface;
- IHTMLStyleSheetDisp = dispinterface;
- IHTMLStyleSheet2 = interface;
- IHTMLStyleSheet2Disp = dispinterface;
- DispHTMLStyleSheet = dispinterface;
- HTMLLinkElementEvents2 = dispinterface;
- HTMLLinkElementEvents = dispinterface;
- IHTMLLinkElement = interface;
- IHTMLLinkElementDisp = dispinterface;
- IHTMLLinkElement2 = interface;
- IHTMLLinkElement2Disp = dispinterface;
- IHTMLLinkElement3 = interface;
- IHTMLLinkElement3Disp = dispinterface;
- DispHTMLLinkElement = dispinterface;
- IHTMLTxtRange = interface;
- IHTMLTxtRangeDisp = dispinterface;
- IHTMLTextRangeMetrics = interface;
- IHTMLTextRangeMetricsDisp = dispinterface;
- IHTMLTextRangeMetrics2 = interface;
- IHTMLTextRangeMetrics2Disp = dispinterface;
- IHTMLTxtRangeCollection = interface;
- IHTMLTxtRangeCollectionDisp = dispinterface;
- HTMLFormElementEvents2 = dispinterface;
- HTMLFormElementEvents = dispinterface;
- IHTMLFormElement = interface;
- IHTMLFormElementDisp = dispinterface;
- IHTMLFormElement2 = interface;
- IHTMLFormElement2Disp = dispinterface;
- IHTMLFormElement3 = interface;
- IHTMLFormElement3Disp = dispinterface;
- IHTMLSubmitData = interface;
- IHTMLSubmitDataDisp = dispinterface;
- DispHTMLFormElement = dispinterface;
- HTMLControlElementEvents2 = dispinterface;
- HTMLControlElementEvents = dispinterface;
- IHTMLControlElement = interface;
- IHTMLControlElementDisp = dispinterface;
- IHTMLTextElement = interface;
- IHTMLTextElementDisp = dispinterface;
- DispHTMLTextElement = dispinterface;
- HTMLTextContainerEvents2 = dispinterface;
- HTMLTextContainerEvents = dispinterface;
- IHTMLTextContainer = interface;
- IHTMLTextContainerDisp = dispinterface;
- IHTMLControlRange = interface;
- IHTMLControlRangeDisp = dispinterface;
- IHTMLControlRange2 = interface;
- IHTMLControlRange2Disp = dispinterface;
- HTMLImgEvents2 = dispinterface;
- HTMLImgEvents = dispinterface;
- IHTMLImgElement = interface;
- IHTMLImgElementDisp = dispinterface;
- IHTMLImgElement2 = interface;
- IHTMLImgElement2Disp = dispinterface;
- IHTMLImageElementFactory = interface;
- IHTMLImageElementFactoryDisp = dispinterface;
- DispHTMLImg = dispinterface;
- IHTMLBodyElement = interface;
- IHTMLBodyElementDisp = dispinterface;
- IHTMLBodyElement2 = interface;
- IHTMLBodyElement2Disp = dispinterface;
- DispHTMLBody = dispinterface;
- IHTMLFontElement = interface;
- IHTMLFontElementDisp = dispinterface;
- DispHTMLFontElement = dispinterface;
- HTMLAnchorEvents2 = dispinterface;
- HTMLAnchorEvents = dispinterface;
- IHTMLAnchorElement = interface;
- IHTMLAnchorElementDisp = dispinterface;
- IHTMLAnchorElement2 = interface;
- IHTMLAnchorElement2Disp = dispinterface;
- DispHTMLAnchorElement = dispinterface;
- HTMLLabelEvents2 = dispinterface;
- HTMLLabelEvents = dispinterface;
- IHTMLLabelElement = interface;
- IHTMLLabelElementDisp = dispinterface;
- IHTMLLabelElement2 = interface;
- IHTMLLabelElement2Disp = dispinterface;
- DispHTMLLabelElement = dispinterface;
- IHTMLListElement = interface;
- IHTMLListElementDisp = dispinterface;
- IHTMLListElement2 = interface;
- IHTMLListElement2Disp = dispinterface;
- DispHTMLListElement = dispinterface;
- IHTMLUListElement = interface;
- IHTMLUListElementDisp = dispinterface;
- DispHTMLUListElement = dispinterface;
- IHTMLOListElement = interface;
- IHTMLOListElementDisp = dispinterface;
- DispHTMLOListElement = dispinterface;
- IHTMLLIElement = interface;
- IHTMLLIElementDisp = dispinterface;
- DispHTMLLIElement = dispinterface;
- IHTMLBlockElement = interface;
- IHTMLBlockElementDisp = dispinterface;
- IHTMLBlockElement2 = interface;
- IHTMLBlockElement2Disp = dispinterface;
- DispHTMLBlockElement = dispinterface;
- IHTMLDivElement = interface;
- IHTMLDivElementDisp = dispinterface;
- DispHTMLDivElement = dispinterface;
- IHTMLDDElement = interface;
- IHTMLDDElementDisp = dispinterface;
- DispHTMLDDElement = dispinterface;
- IHTMLDTElement = interface;
- IHTMLDTElementDisp = dispinterface;
- DispHTMLDTElement = dispinterface;
- IHTMLBRElement = interface;
- IHTMLBRElementDisp = dispinterface;
- DispHTMLBRElement = dispinterface;
- IHTMLDListElement = interface;
- IHTMLDListElementDisp = dispinterface;
- DispHTMLDListElement = dispinterface;
- IHTMLHRElement = interface;
- IHTMLHRElementDisp = dispinterface;
- DispHTMLHRElement = dispinterface;
- IHTMLParaElement = interface;
- IHTMLParaElementDisp = dispinterface;
- DispHTMLParaElement = dispinterface;
- IHTMLElementCollection2 = interface;
- IHTMLElementCollection2Disp = dispinterface;
- IHTMLElementCollection3 = interface;
- IHTMLElementCollection3Disp = dispinterface;
- DispHTMLElementCollection = dispinterface;
- IHTMLHeaderElement = interface;
- IHTMLHeaderElementDisp = dispinterface;
- DispHTMLHeaderElement = dispinterface;
- HTMLSelectElementEvents2 = dispinterface;
- HTMLSelectElementEvents = dispinterface;
- IHTMLSelectElement = interface;
- IHTMLSelectElementDisp = dispinterface;
- IHTMLSelectElement2 = interface;
- IHTMLSelectElement2Disp = dispinterface;
- IHTMLSelectElement4 = interface;
- IHTMLSelectElement4Disp = dispinterface;
- DispHTMLSelectElement = dispinterface;
- IHTMLSelectionObject = interface;
- IHTMLSelectionObjectDisp = dispinterface;
- IHTMLSelectionObject2 = interface;
- IHTMLSelectionObject2Disp = dispinterface;
- IHTMLOptionElement = interface;
- IHTMLOptionElementDisp = dispinterface;
- IHTMLOptionElement3 = interface;
- IHTMLOptionElement3Disp = dispinterface;
- IHTMLOptionElementFactory = interface;
- IHTMLOptionElementFactoryDisp = dispinterface;
- DispHTMLOptionElement = dispinterface;
- HTMLButtonElementEvents2 = dispinterface;
- HTMLButtonElementEvents = dispinterface;
- HTMLInputTextElementEvents2 = dispinterface;
- HTMLOptionButtonElementEvents2 = dispinterface;
- HTMLInputFileElementEvents2 = dispinterface;
- HTMLInputImageEvents2 = dispinterface;
- HTMLInputTextElementEvents = dispinterface;
- HTMLOptionButtonElementEvents = dispinterface;
- HTMLInputFileElementEvents = dispinterface;
- HTMLInputImageEvents = dispinterface;
- IHTMLInputElement = interface;
- IHTMLInputElementDisp = dispinterface;
- IHTMLInputElement2 = interface;
- IHTMLInputElement2Disp = dispinterface;
- IHTMLInputButtonElement = interface;
- IHTMLInputButtonElementDisp = dispinterface;
- IHTMLInputHiddenElement = interface;
- IHTMLInputHiddenElementDisp = dispinterface;
- IHTMLInputTextElement = interface;
- IHTMLInputTextElementDisp = dispinterface;
- IHTMLInputFileElement = interface;
- IHTMLInputFileElementDisp = dispinterface;
- IHTMLOptionButtonElement = interface;
- IHTMLOptionButtonElementDisp = dispinterface;
- IHTMLInputImage = interface;
- IHTMLInputImageDisp = dispinterface;
- DispHTMLInputElement = dispinterface;
- IHTMLTextAreaElement = interface;
- IHTMLTextAreaElementDisp = dispinterface;
- DispHTMLTextAreaElement = dispinterface;
- DispHTMLRichtextElement = dispinterface;
- IHTMLButtonElement = interface;
- IHTMLButtonElementDisp = dispinterface;
- DispHTMLButtonElement = dispinterface;
- HTMLMarqueeElementEvents2 = dispinterface;
- HTMLMarqueeElementEvents = dispinterface;
- IHTMLMarqueeElement = interface;
- IHTMLMarqueeElementDisp = dispinterface;
- DispHTMLMarqueeElement = dispinterface;
- IHTMLHtmlElement = interface;
- IHTMLHtmlElementDisp = dispinterface;
- IHTMLHeadElement = interface;
- IHTMLHeadElementDisp = dispinterface;
- IHTMLTitleElement = interface;
- IHTMLTitleElementDisp = dispinterface;
- IHTMLMetaElement = interface;
- IHTMLMetaElementDisp = dispinterface;
- IHTMLMetaElement2 = interface;
- IHTMLMetaElement2Disp = dispinterface;
- IHTMLBaseElement = interface;
- IHTMLBaseElementDisp = dispinterface;
- IHTMLIsIndexElement = interface;
- IHTMLIsIndexElementDisp = dispinterface;
- IHTMLIsIndexElement2 = interface;
- IHTMLIsIndexElement2Disp = dispinterface;
- IHTMLNextIdElement = interface;
- IHTMLNextIdElementDisp = dispinterface;
- DispHTMLHtmlElement = dispinterface;
- DispHTMLHeadElement = dispinterface;
- DispHTMLTitleElement = dispinterface;
- DispHTMLMetaElement = dispinterface;
- DispHTMLBaseElement = dispinterface;
- DispHTMLIsIndexElement = dispinterface;
- DispHTMLNextIdElement = dispinterface;
- IHTMLBaseFontElement = interface;
- IHTMLBaseFontElementDisp = dispinterface;
- DispHTMLBaseFontElement = dispinterface;
- IHTMLUnknownElement = interface;
- IHTMLUnknownElementDisp = dispinterface;
- DispHTMLUnknownElement = dispinterface;
- IOmHistory = interface;
- IOmHistoryDisp = dispinterface;
- IHTMLMimeTypesCollection = interface;
- IHTMLMimeTypesCollectionDisp = dispinterface;
- IHTMLPluginsCollection = interface;
- IHTMLPluginsCollectionDisp = dispinterface;
- IHTMLOpsProfile = interface;
- IHTMLOpsProfileDisp = dispinterface;
- IOmNavigator = interface;
- IOmNavigatorDisp = dispinterface;
- IHTMLLocation = interface;
- IHTMLLocationDisp = dispinterface;
- IHTMLBookmarkCollection = interface;
- IHTMLBookmarkCollectionDisp = dispinterface;
- IHTMLDataTransfer = interface;
- IHTMLDataTransferDisp = dispinterface;
- IHTMLEventObj2 = interface;
- IHTMLEventObj2Disp = dispinterface;
- IHTMLEventObj3 = interface;
- IHTMLEventObj3Disp = dispinterface;
- IHTMLEventObj4 = interface;
- IHTMLEventObj4Disp = dispinterface;
- DispCEventObj = dispinterface;
- HTMLWindowEvents2 = dispinterface;
- HTMLWindowEvents = dispinterface;
- IHTMLDocument2 = interface;
- IHTMLDocument2Disp = dispinterface;
- IHTMLFramesCollection2 = interface;
- IHTMLFramesCollection2Disp = dispinterface;
- IHTMLWindow2 = interface;
- IHTMLWindow2Disp = dispinterface;
- IHTMLScreen = interface;
- IHTMLScreenDisp = dispinterface;
- IHTMLWindow3 = interface;
- IHTMLWindow3Disp = dispinterface;
- IHTMLFrameBase = interface;
- IHTMLFrameBaseDisp = dispinterface;
- IHTMLScreen2 = interface;
- IHTMLScreen2Disp = dispinterface;
- IHTMLWindow4 = interface;
- IHTMLWindow4Disp = dispinterface;
- DispHTMLScreen = dispinterface;
- DispHTMLWindow2 = dispinterface;
- DispHTMLWindowProxy = dispinterface;
- HTMLDocumentEvents2 = dispinterface;
- HTMLDocumentEvents = dispinterface;
- IHTMLDocument3 = interface;
- IHTMLDocument3Disp = dispinterface;
- IHTMLDocument4 = interface;
- IHTMLDocument4Disp = dispinterface;
- IHTMLDocument5 = interface;
- IHTMLDocument5Disp = dispinterface;
- DispHTMLDocument = dispinterface;
- DWebBridgeEvents = dispinterface;
- IWebBridge = interface;
- IWebBridgeDisp = dispinterface;
- IWBScriptControl = interface;
- IWBScriptControlDisp = dispinterface;
- IHTMLEmbedElement = interface;
- IHTMLEmbedElementDisp = dispinterface;
- DispHTMLEmbed = dispinterface;
- HTMLMapEvents2 = dispinterface;
- HTMLMapEvents = dispinterface;
- IHTMLAreasCollection = interface;
- IHTMLAreasCollectionDisp = dispinterface;
- IHTMLAreasCollection2 = interface;
- IHTMLAreasCollection2Disp = dispinterface;
- IHTMLAreasCollection3 = interface;
- IHTMLAreasCollection3Disp = dispinterface;
- IHTMLMapElement = interface;
- IHTMLMapElementDisp = dispinterface;
- DispHTMLAreasCollection = dispinterface;
- DispHTMLMapElement = dispinterface;
- HTMLAreaEvents2 = dispinterface;
- HTMLAreaEvents = dispinterface;
- IHTMLAreaElement = interface;
- IHTMLAreaElementDisp = dispinterface;
- DispHTMLAreaElement = dispinterface;
- IHTMLTableCaption = interface;
- IHTMLTableCaptionDisp = dispinterface;
- DispHTMLTableCaption = dispinterface;
- IHTMLCommentElement = interface;
- IHTMLCommentElementDisp = dispinterface;
- IHTMLCommentElement2 = interface;
- IHTMLCommentElement2Disp = dispinterface;
- DispHTMLCommentElement = dispinterface;
- IHTMLPhraseElement = interface;
- IHTMLPhraseElementDisp = dispinterface;
- IHTMLPhraseElement2 = interface;
- IHTMLPhraseElement2Disp = dispinterface;
- IHTMLSpanElement = interface;
- IHTMLSpanElementDisp = dispinterface;
- DispHTMLPhraseElement = dispinterface;
- DispHTMLSpanElement = dispinterface;
- HTMLTableEvents2 = dispinterface;
- HTMLTableEvents = dispinterface;
- IHTMLTableSection = interface;
- IHTMLTableSectionDisp = dispinterface;
- IHTMLTable = interface;
- IHTMLTableDisp = dispinterface;
- IHTMLTable2 = interface;
- IHTMLTable2Disp = dispinterface;
- IHTMLTable3 = interface;
- IHTMLTable3Disp = dispinterface;
- IHTMLTableCol = interface;
- IHTMLTableColDisp = dispinterface;
- IHTMLTableCol2 = interface;
- IHTMLTableCol2Disp = dispinterface;
- IHTMLTableSection2 = interface;
- IHTMLTableSection2Disp = dispinterface;
- IHTMLTableSection3 = interface;
- IHTMLTableSection3Disp = dispinterface;
- IHTMLTableRow = interface;
- IHTMLTableRowDisp = dispinterface;
- IHTMLTableRow2 = interface;
- IHTMLTableRow2Disp = dispinterface;
- IHTMLTableRow3 = interface;
- IHTMLTableRow3Disp = dispinterface;
- IHTMLTableRowMetrics = interface;
- IHTMLTableRowMetricsDisp = dispinterface;
- IHTMLTableCell = interface;
- IHTMLTableCellDisp = dispinterface;
- IHTMLTableCell2 = interface;
- IHTMLTableCell2Disp = dispinterface;
- DispHTMLTable = dispinterface;
- DispHTMLTableCol = dispinterface;
- DispHTMLTableSection = dispinterface;
- DispHTMLTableRow = dispinterface;
- DispHTMLTableCell = dispinterface;
- HTMLScriptEvents2 = dispinterface;
- HTMLScriptEvents = dispinterface;
- IHTMLScriptElement = interface;
- IHTMLScriptElementDisp = dispinterface;
- IHTMLScriptElement2 = interface;
- IHTMLScriptElement2Disp = dispinterface;
- DispHTMLScriptElement = dispinterface;
- IHTMLNoShowElement = interface;
- IHTMLNoShowElementDisp = dispinterface;
- DispHTMLNoShowElement = dispinterface;
- HTMLObjectElementEvents2 = dispinterface;
- HTMLObjectElementEvents = dispinterface;
- IHTMLObjectElement = interface;
- IHTMLObjectElementDisp = dispinterface;
- IHTMLObjectElement2 = interface;
- IHTMLObjectElement2Disp = dispinterface;
- IHTMLObjectElement3 = interface;
- IHTMLObjectElement3Disp = dispinterface;
- IHTMLParamElement = interface;
- IHTMLParamElementDisp = dispinterface;
- DispHTMLObjectElement = dispinterface;
- DispHTMLParamElement = dispinterface;
- HTMLFrameSiteEvents2 = dispinterface;
- HTMLFrameSiteEvents = dispinterface;
- IHTMLFrameBase2 = interface;
- IHTMLFrameBase2Disp = dispinterface;
- IHTMLFrameBase3 = interface;
- IHTMLFrameBase3Disp = dispinterface;
- DispHTMLFrameBase = dispinterface;
- IHTMLFrameElement = interface;
- IHTMLFrameElementDisp = dispinterface;
- IHTMLFrameElement2 = interface;
- IHTMLFrameElement2Disp = dispinterface;
- DispHTMLFrameElement = dispinterface;
- IHTMLIFrameElement = interface;
- IHTMLIFrameElementDisp = dispinterface;
- IHTMLIFrameElement2 = interface;
- IHTMLIFrameElement2Disp = dispinterface;
- DispHTMLIFrame = dispinterface;
- IHTMLDivPosition = interface;
- IHTMLDivPositionDisp = dispinterface;
- IHTMLFieldSetElement = interface;
- IHTMLFieldSetElementDisp = dispinterface;
- IHTMLFieldSetElement2 = interface;
- IHTMLFieldSetElement2Disp = dispinterface;
- IHTMLLegendElement = interface;
- IHTMLLegendElementDisp = dispinterface;
- IHTMLLegendElement2 = interface;
- IHTMLLegendElement2Disp = dispinterface;
- DispHTMLDivPosition = dispinterface;
- DispHTMLFieldSetElement = dispinterface;
- DispHTMLLegendElement = dispinterface;
- IHTMLSpanFlow = interface;
- IHTMLSpanFlowDisp = dispinterface;
- DispHTMLSpanFlow = dispinterface;
- IHTMLFrameSetElement = interface;
- IHTMLFrameSetElementDisp = dispinterface;
- IHTMLFrameSetElement2 = interface;
- IHTMLFrameSetElement2Disp = dispinterface;
- DispHTMLFrameSetSite = dispinterface;
- IHTMLBGsound = interface;
- IHTMLBGsoundDisp = dispinterface;
- DispHTMLBGsound = dispinterface;
- IHTMLFontNamesCollection = interface;
- IHTMLFontNamesCollectionDisp = dispinterface;
- IHTMLFontSizesCollection = interface;
- IHTMLFontSizesCollectionDisp = dispinterface;
- IHTMLOptionsHolder = interface;
- IHTMLOptionsHolderDisp = dispinterface;
- HTMLStyleElementEvents2 = dispinterface;
- HTMLStyleElementEvents = dispinterface;
- IHTMLStyleElement = interface;
- IHTMLStyleElementDisp = dispinterface;
- DispHTMLStyleElement = dispinterface;
- IHTMLStyleFontFace = interface;
- IHTMLStyleFontFaceDisp = dispinterface;
- ICSSFilterSite = interface;
- IMarkupPointer = interface;
- IMarkupContainer = interface;
- IMarkupContainer2 = interface;
- IHTMLChangeSink = interface;
- IHTMLChangeLog = interface;
- IActiveIMMApp = interface;
- IEnumRegisterWordA = interface;
- IEnumRegisterWordW = interface;
- IEnumInputContext = interface;
- ISegmentList = interface;
- ISegmentListIterator = interface;
- ISegment = interface;
- IHTMLCaret = interface;
- IDisplayPointer = interface;
- ILineInfo = interface;
- IElementSegment = interface;
- IHighlightSegment = interface;
- IHighlightRenderingServices = interface;
- IDisplayServices = interface;
- IHTMLComputedStyle = interface;
- IHtmlDlgSafeHelper = interface;
- IBlockFormats = interface;
- IFontNames = interface;
- ICSSFilter = interface;
- ISecureUrlHost = interface;
- IMarkupServices = interface;
- IMarkupServices2 = interface;
- IHTMLChangePlayback = interface;
- IMarkupPointer2 = interface;
- IMarkupTextFrags = interface;
- IXMLGenericParse = interface;
- IHTMLEditHost = interface;
- IHTMLEditHost2 = interface;
- ISequenceNumber = interface;
- IIMEServices = interface;
- ISelectionServicesListener = interface;
- ISelectionServices = interface;
- IHTMLEditDesigner = interface;
- IHTMLEditServices = interface;
- IHTMLEditServices2 = interface;
- HTMLNamespaceEvents = dispinterface;
- IHTMLNamespace = interface;
- IHTMLNamespaceDisp = dispinterface;
- IHTMLNamespaceCollection = interface;
- IHTMLNamespaceCollectionDisp = dispinterface;
- IHTMLPainter = interface;
- IHTMLPaintSite = interface;
- IHTMLPainterEventInfo = interface;
- IHTMLPainterOverlay = interface;
- IHTMLIPrintCollection = interface;
- IHTMLIPrintCollectionDisp = dispinterface;
- IEnumPrivacyRecords = interface;
- IHTMLDialog = interface;
- IHTMLDialogDisp = dispinterface;
- IHTMLDialog2 = interface;
- IHTMLDialog2Disp = dispinterface;
- IHTMLDialog3 = interface;
- IHTMLDialog3Disp = dispinterface;
- IHTMLModelessInit = interface;
- IHTMLModelessInitDisp = dispinterface;
- IHTMLPopup = interface;
- IHTMLPopupDisp = dispinterface;
- DispHTMLPopup = dispinterface;
- IHTMLAppBehavior = interface;
- IHTMLAppBehaviorDisp = dispinterface;
- IHTMLAppBehavior2 = interface;
- IHTMLAppBehavior2Disp = dispinterface;
- IHTMLAppBehavior3 = interface;
- IHTMLAppBehavior3Disp = dispinterface;
- DispHTMLAppBehavior = dispinterface;
- DispIHTMLInputButtonElement = dispinterface;
- DispIHTMLInputTextElement = dispinterface;
- DispIHTMLInputFileElement = dispinterface;
- DispIHTMLOptionButtonElement = dispinterface;
- DispIHTMLInputImage = dispinterface;
- IElementNamespace = interface;
- IElementNamespaceTable = interface;
- IElementNamespaceFactory = interface;
- IElementNamespaceFactory2 = interface;
- IElementNamespaceFactoryCallback = interface;
- IElementBehaviorSiteOM2 = interface;
- IElementBehaviorCategory = interface;
- IElementBehaviorSiteCategory = interface;
- IEnumUnknown = interface;
- IElementBehaviorSubmit = interface;
- IElementBehaviorFocus = interface;
- IElementBehaviorLayout = interface;
- IElementBehaviorLayout2 = interface;
- IElementBehaviorSiteLayout = interface;
- IElementBehaviorSiteLayout2 = interface;
- IHostBehaviorInit = interface;
-
-// *********************************************************************//
-// Declaration of CoClasses defined in Type Library
-// (NOTE: Here we map each CoClass to its Default Interface)
-// *********************************************************************//
- HTMLStyle = DispHTMLStyle;
- HTMLRuleStyle = DispHTMLRuleStyle;
- HTMLCurrentStyle = DispHTMLCurrentStyle;
- HTMLFiltersCollection = IHTMLFiltersCollection;
- HTMLDOMAttribute = DispHTMLDOMAttribute;
- HTMLDOMTextNode = DispHTMLDOMTextNode;
- HTMLAttributeCollection = DispHTMLAttributeCollection;
- DOMChildrenCollection = DispDOMChildrenCollection;
- HTCDefaultDispatch = DispHTCDefaultDispatch;
- HTCPropertyBehavior = DispHTCPropertyBehavior;
- HTCMethodBehavior = DispHTCMethodBehavior;
- HTCEventBehavior = DispHTCEventBehavior;
- HTCAttachBehavior = DispHTCAttachBehavior;
- HTCDescBehavior = DispHTCDescBehavior;
- HTMLUrnCollection = IHTMLUrnCollection;
- HTMLGenericElement = DispHTMLGenericElement;
- HTMLStyleSheetRule = IHTMLStyleSheetRule;
- HTMLStyleSheetRulesCollection = IHTMLStyleSheetRulesCollection;
- HTMLStyleSheet = IHTMLStyleSheet;
- HTMLStyleSheetsCollection = IHTMLStyleSheetsCollection;
- HTMLLinkElement = DispHTMLLinkElement;
- HTMLFormElement = DispHTMLFormElement;
- HTMLTextElement = DispHTMLTextElement;
- HTMLImg = DispHTMLImg;
- HTMLImageElementFactory = IHTMLImageElementFactory;
- HTMLBody = DispHTMLBody;
- HTMLFontElement = DispHTMLFontElement;
- HTMLAnchorElement = DispHTMLAnchorElement;
- HTMLLabelElement = DispHTMLLabelElement;
- HTMLListElement = DispHTMLListElement;
- HTMLUListElement = DispHTMLUListElement;
- HTMLOListElement = DispHTMLOListElement;
- HTMLLIElement = DispHTMLLIElement;
- HTMLBlockElement = DispHTMLBlockElement;
- HTMLDivElement = DispHTMLDivElement;
- HTMLDDElement = DispHTMLDDElement;
- HTMLDTElement = DispHTMLDTElement;
- HTMLBRElement = DispHTMLBRElement;
- HTMLDListElement = DispHTMLDListElement;
- HTMLHRElement = DispHTMLHRElement;
- HTMLParaElement = DispHTMLParaElement;
- HTMLElementCollection = DispHTMLElementCollection;
- HTMLHeaderElement = DispHTMLHeaderElement;
- HTMLSelectElement = DispHTMLSelectElement;
- HTMLOptionElement = DispHTMLOptionElement;
- HTMLOptionElementFactory = IHTMLOptionElementFactory;
- HTMLInputElement = DispHTMLInputElement;
- HTMLTextAreaElement = DispHTMLTextAreaElement;
- HTMLRichtextElement = DispHTMLRichtextElement;
- HTMLButtonElement = DispHTMLButtonElement;
- HTMLMarqueeElement = DispHTMLMarqueeElement;
- HTMLHtmlElement = DispHTMLHtmlElement;
- HTMLHeadElement = DispHTMLHeadElement;
- HTMLTitleElement = DispHTMLTitleElement;
- HTMLMetaElement = DispHTMLMetaElement;
- HTMLBaseElement = DispHTMLBaseElement;
- HTMLIsIndexElement = DispHTMLIsIndexElement;
- HTMLNextIdElement = DispHTMLNextIdElement;
- HTMLBaseFontElement = DispHTMLBaseFontElement;
- HTMLUnknownElement = DispHTMLUnknownElement;
- HTMLHistory = IOmHistory;
- CMimeTypes = IHTMLMimeTypesCollection;
- CPlugins = IHTMLPluginsCollection;
- COpsProfile = IHTMLOpsProfile;
- HTMLNavigator = IOmNavigator;
- HTMLLocation = IHTMLLocation;
- CEventObj = DispCEventObj;
- HTMLScreen = IHTMLScreen;
- HTMLWindow2 = DispHTMLWindow2;
- HTMLWindowProxy = DispHTMLWindowProxy;
- HTMLDocument = DispHTMLDocument;
- Scriptlet = IWebBridge;
- HTMLEmbed = DispHTMLEmbed;
- HTMLAreasCollection = DispHTMLAreasCollection;
- HTMLMapElement = DispHTMLMapElement;
- HTMLAreaElement = DispHTMLAreaElement;
- HTMLTableCaption = DispHTMLTableCaption;
- HTMLCommentElement = DispHTMLCommentElement;
- HTMLPhraseElement = DispHTMLPhraseElement;
- HTMLSpanElement = DispHTMLSpanElement;
- HTMLTable = DispHTMLTable;
- HTMLTableCol = DispHTMLTableCol;
- HTMLTableSection = DispHTMLTableSection;
- HTMLTableRow = DispHTMLTableRow;
- HTMLTableCell = DispHTMLTableCell;
- HTMLScriptElement = DispHTMLScriptElement;
- HTMLNoShowElement = DispHTMLNoShowElement;
- HTMLObjectElement = DispHTMLObjectElement;
- HTMLFrameBase = DispHTMLFrameBase;
- HTMLFrameElement = DispHTMLFrameElement;
- HTMLIFrame = DispHTMLIFrame;
- HTMLDivPosition = DispHTMLDivPosition;
- HTMLFieldSetElement = DispHTMLFieldSetElement;
- HTMLLegendElement = DispHTMLLegendElement;
- HTMLSpanFlow = DispHTMLSpanFlow;
- HTMLFrameSetSite = DispHTMLFrameSetSite;
- HTMLBGsound = DispHTMLBGsound;
- HTMLStyleElement = DispHTMLStyleElement;
- HTMLStyleFontFace = IHTMLStyleFontFace;
- ThreadDialogProcParam = IHTMLModelessInit;
- HTMLDialog = IHTMLDialog;
- HTMLAppBehavior = DispHTMLAppBehavior;
- OldHTMLDocument = DispHTMLDocument;
- OldHTMLFormElement = DispHTMLFormElement;
- HTMLInputButtonElement = DispIHTMLInputButtonElement;
- HTMLInputTextElement = DispIHTMLInputTextElement;
- HTMLInputFileElement = DispIHTMLInputFileElement;
- HTMLOptionButtonElement = DispIHTMLOptionButtonElement;
- htmlInputImage = DispIHTMLInputImage;
-
-// *********************************************************************//
-// Declaration of structures, unions and aliases.
-// *********************************************************************//
-
- LONG_PTR = LPARAM;
-
- REGISTERWORDA = packed record
- lpReading: PAnsiChar;
- lpWord: PAnsiChar;
- end;
-
- REGISTERWORDW = packed record
- lpReading: PWideChar;
- lpWord: PWideChar;
- end;
-
- CANDIDATELIST = packed record
- dwSize: LongWord;
- dwStyle: LongWord;
- dwCount: LongWord;
- dwSelection: LongWord;
- dwPageStart: LongWord;
- dwPageSize: LongWord;
- dwOffset: array[0..0] of LongWord;
- end;
-
- CANDIDATEFORM = packed record
- dwIndex: LongWord;
- dwStyle: LongWord;
- ptCurrentPos: TPoint;
- rcArea: TRect;
- end;
-
- COMPOSITIONFORM = packed record
- dwStyle: LongWord;
- ptCurrentPos: TPoint;
- rcArea: TRect;
- end;
-
- STYLEBUFA = packed record
- dwStyle: LongWord;
- szDescription: array[0..31] of Byte;
- end;
-
- STYLEBUFW = packed record
- dwStyle: LongWord;
- szDescription: array[0..31] of Word;
- end;
-
- UINT_PTR = LongWord;
-
- IMEMENUITEMINFOA = packed record
- cbSize: SYSUINT;
- fType: SYSUINT;
- fState: SYSUINT;
- wID: SYSUINT;
- hbmpChecked: HBITMAP;
- hbmpUnchecked: HBITMAP;
- dwItemData: LongWord;
- szString: array[0..79] of Byte;
- hbmpItem: HBITMAP;
- end;
-
- IMEMENUITEMINFOW = packed record
- cbSize: SYSUINT;
- fType: SYSUINT;
- fState: SYSUINT;
- wID: SYSUINT;
- hbmpChecked: HBITMAP;
- hbmpUnchecked: HBITMAP;
- dwItemData: LongWord;
- szString: array[0..79] of Word;
- hbmpItem: HBITMAP;
- end;
-
- P_HTML_PAINTER_INFO = ^_HTML_PAINTER_INFO;
- _HTML_PAINTER_INFO = packed record
- lFlags: Integer;
- lZOrder: Integer;
- iidDrawObject: TGUID;
- rcExpand: TRect;
- end;
-
- _HTML_PAINT_XFORM = packed record
- eM11: Single;
- eM12: Single;
- eM21: Single;
- eM22: Single;
- eDx: Single;
- eDy: Single;
- end;
-
- P_HTML_PAINT_DRAW_INFO = ^_HTML_PAINT_DRAW_INFO;
- _HTML_PAINT_DRAW_INFO = packed record
- rcViewport: TRect;
- hrgnUpdate: Pointer;
- xform: _HTML_PAINT_XFORM;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEventObj
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F32D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj = interface(IDispatch)
- ['{3050F32D-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_srcElement: IHTMLElement; safecall;
- function Get_altKey: WordBool; safecall;
- function Get_ctrlKey: WordBool; safecall;
- function Get_shiftKey: WordBool; safecall;
- procedure Set_returnValue(p: OleVariant); safecall;
- function Get_returnValue: OleVariant; safecall;
- procedure Set_cancelBubble(p: WordBool); safecall;
- function Get_cancelBubble: WordBool; safecall;
- function Get_fromElement: IHTMLElement; safecall;
- function Get_toElement: IHTMLElement; safecall;
- procedure Set_keyCode(p: Integer); safecall;
- function Get_keyCode: Integer; safecall;
- function Get_button: Integer; safecall;
- function Get_type_: WideString; safecall;
- function Get_qualifier: WideString; safecall;
- function Get_reason: Integer; safecall;
- function Get_x: Integer; safecall;
- function Get_y: Integer; safecall;
- function Get_clientX: Integer; safecall;
- function Get_clientY: Integer; safecall;
- function Get_offsetX: Integer; safecall;
- function Get_offsetY: Integer; safecall;
- function Get_screenX: Integer; safecall;
- function Get_screenY: Integer; safecall;
- function Get_srcFilter: IDispatch; safecall;
- property srcElement: IHTMLElement read Get_srcElement;
- property altKey: WordBool read Get_altKey;
- property ctrlKey: WordBool read Get_ctrlKey;
- property shiftKey: WordBool read Get_shiftKey;
- property returnValue: OleVariant read Get_returnValue write Set_returnValue;
- property cancelBubble: WordBool read Get_cancelBubble write Set_cancelBubble;
- property fromElement: IHTMLElement read Get_fromElement;
- property toElement: IHTMLElement read Get_toElement;
- property keyCode: Integer read Get_keyCode write Set_keyCode;
- property button: Integer read Get_button;
- property type_: WideString read Get_type_;
- property qualifier: WideString read Get_qualifier;
- property reason: Integer read Get_reason;
- property x: Integer read Get_x;
- property y: Integer read Get_y;
- property clientX: Integer read Get_clientX;
- property clientY: Integer read Get_clientY;
- property offsetX: Integer read Get_offsetX;
- property offsetY: Integer read Get_offsetY;
- property screenX: Integer read Get_screenX;
- property screenY: Integer read Get_screenY;
- property srcFilter: IDispatch read Get_srcFilter;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLEventObjDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F32D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObjDisp = dispinterface
- ['{3050F32D-98B5-11CF-BB82-00AA00BDCE0B}']
- property srcElement: IHTMLElement readonly dispid 1001;
- property altKey: WordBool readonly dispid 1002;
- property ctrlKey: WordBool readonly dispid 1003;
- property shiftKey: WordBool readonly dispid 1004;
- property returnValue: OleVariant dispid 1007;
- property cancelBubble: WordBool dispid 1008;
- property fromElement: IHTMLElement readonly dispid 1009;
- property toElement: IHTMLElement readonly dispid 1010;
- property keyCode: Integer dispid 1011;
- property button: Integer readonly dispid 1012;
- property type_: WideString readonly dispid 1013;
- property qualifier: WideString readonly dispid 1014;
- property reason: Integer readonly dispid 1015;
- property x: Integer readonly dispid 1005;
- property y: Integer readonly dispid 1006;
- property clientX: Integer readonly dispid 1020;
- property clientY: Integer readonly dispid 1021;
- property offsetX: Integer readonly dispid 1022;
- property offsetY: Integer readonly dispid 1023;
- property screenX: Integer readonly dispid 1024;
- property screenY: Integer readonly dispid 1025;
- property srcFilter: IDispatch readonly dispid 1026;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement = interface(IDispatch)
- ['{3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); safecall;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; safecall;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; safecall;
- procedure Set_className(const p: WideString); safecall;
- function Get_className: WideString; safecall;
- procedure Set_id(const p: WideString); safecall;
- function Get_id: WideString; safecall;
- function Get_tagName: WideString; safecall;
- function Get_parentElement: IHTMLElement; safecall;
- function Get_style: IHTMLStyle; safecall;
- procedure Set_onhelp(p: OleVariant); safecall;
- function Get_onhelp: OleVariant; safecall;
- procedure Set_onclick(p: OleVariant); safecall;
- function Get_onclick: OleVariant; safecall;
- procedure Set_ondblclick(p: OleVariant); safecall;
- function Get_ondblclick: OleVariant; safecall;
- procedure Set_onkeydown(p: OleVariant); safecall;
- function Get_onkeydown: OleVariant; safecall;
- procedure Set_onkeyup(p: OleVariant); safecall;
- function Get_onkeyup: OleVariant; safecall;
- procedure Set_onkeypress(p: OleVariant); safecall;
- function Get_onkeypress: OleVariant; safecall;
- procedure Set_onmouseout(p: OleVariant); safecall;
- function Get_onmouseout: OleVariant; safecall;
- procedure Set_onmouseover(p: OleVariant); safecall;
- function Get_onmouseover: OleVariant; safecall;
- procedure Set_onmousemove(p: OleVariant); safecall;
- function Get_onmousemove: OleVariant; safecall;
- procedure Set_onmousedown(p: OleVariant); safecall;
- function Get_onmousedown: OleVariant; safecall;
- procedure Set_onmouseup(p: OleVariant); safecall;
- function Get_onmouseup: OleVariant; safecall;
- function Get_document: IDispatch; safecall;
- procedure Set_title(const p: WideString); safecall;
- function Get_title: WideString; safecall;
- procedure Set_language(const p: WideString); safecall;
- function Get_language: WideString; safecall;
- procedure Set_onselectstart(p: OleVariant); safecall;
- function Get_onselectstart: OleVariant; safecall;
- procedure scrollIntoView(varargStart: OleVariant); safecall;
- function contains(const pChild: IHTMLElement): WordBool; safecall;
- function Get_sourceIndex: Integer; safecall;
- function Get_recordNumber: OleVariant; safecall;
- procedure Set_lang(const p: WideString); safecall;
- function Get_lang: WideString; safecall;
- function Get_offsetLeft: Integer; safecall;
- function Get_offsetTop: Integer; safecall;
- function Get_offsetWidth: Integer; safecall;
- function Get_offsetHeight: Integer; safecall;
- function Get_offsetParent: IHTMLElement; safecall;
- procedure Set_innerHTML(const p: WideString); safecall;
- function Get_innerHTML: WideString; safecall;
- procedure Set_innerText(const p: WideString); safecall;
- function Get_innerText: WideString; safecall;
- procedure Set_outerHTML(const p: WideString); safecall;
- function Get_outerHTML: WideString; safecall;
- procedure Set_outerText(const p: WideString); safecall;
- function Get_outerText: WideString; safecall;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); safecall;
- procedure insertAdjacentText(const where: WideString; const text: WideString); safecall;
- function Get_parentTextEdit: IHTMLElement; safecall;
- function Get_isTextEdit: WordBool; safecall;
- procedure click; safecall;
- function Get_filters: IHTMLFiltersCollection; safecall;
- procedure Set_ondragstart(p: OleVariant); safecall;
- function Get_ondragstart: OleVariant; safecall;
- function toString: WideString; safecall;
- procedure Set_onbeforeupdate(p: OleVariant); safecall;
- function Get_onbeforeupdate: OleVariant; safecall;
- procedure Set_onafterupdate(p: OleVariant); safecall;
- function Get_onafterupdate: OleVariant; safecall;
- procedure Set_onerrorupdate(p: OleVariant); safecall;
- function Get_onerrorupdate: OleVariant; safecall;
- procedure Set_onrowexit(p: OleVariant); safecall;
- function Get_onrowexit: OleVariant; safecall;
- procedure Set_onrowenter(p: OleVariant); safecall;
- function Get_onrowenter: OleVariant; safecall;
- procedure Set_ondatasetchanged(p: OleVariant); safecall;
- function Get_ondatasetchanged: OleVariant; safecall;
- procedure Set_ondataavailable(p: OleVariant); safecall;
- function Get_ondataavailable: OleVariant; safecall;
- procedure Set_ondatasetcomplete(p: OleVariant); safecall;
- function Get_ondatasetcomplete: OleVariant; safecall;
- procedure Set_onfilterchange(p: OleVariant); safecall;
- function Get_onfilterchange: OleVariant; safecall;
- function Get_children: IDispatch; safecall;
- function Get_all: IDispatch; safecall;
- property className: WideString read Get_className write Set_className;
- property id: WideString read Get_id write Set_id;
- property tagName: WideString read Get_tagName;
- property parentElement: IHTMLElement read Get_parentElement;
- property style: IHTMLStyle read Get_style;
- property onhelp: OleVariant read Get_onhelp write Set_onhelp;
- property onclick: OleVariant read Get_onclick write Set_onclick;
- property ondblclick: OleVariant read Get_ondblclick write Set_ondblclick;
- property onkeydown: OleVariant read Get_onkeydown write Set_onkeydown;
- property onkeyup: OleVariant read Get_onkeyup write Set_onkeyup;
- property onkeypress: OleVariant read Get_onkeypress write Set_onkeypress;
- property onmouseout: OleVariant read Get_onmouseout write Set_onmouseout;
- property onmouseover: OleVariant read Get_onmouseover write Set_onmouseover;
- property onmousemove: OleVariant read Get_onmousemove write Set_onmousemove;
- property onmousedown: OleVariant read Get_onmousedown write Set_onmousedown;
- property onmouseup: OleVariant read Get_onmouseup write Set_onmouseup;
- property document: IDispatch read Get_document;
- property title: WideString read Get_title write Set_title;
- property language: WideString read Get_language write Set_language;
- property onselectstart: OleVariant read Get_onselectstart write Set_onselectstart;
- property sourceIndex: Integer read Get_sourceIndex;
- property recordNumber: OleVariant read Get_recordNumber;
- property lang: WideString read Get_lang write Set_lang;
- property offsetLeft: Integer read Get_offsetLeft;
- property offsetTop: Integer read Get_offsetTop;
- property offsetWidth: Integer read Get_offsetWidth;
- property offsetHeight: Integer read Get_offsetHeight;
- property offsetParent: IHTMLElement read Get_offsetParent;
- property innerHTML: WideString read Get_innerHTML write Set_innerHTML;
- property innerText: WideString read Get_innerText write Set_innerText;
- property outerHTML: WideString read Get_outerHTML write Set_outerHTML;
- property outerText: WideString read Get_outerText write Set_outerText;
- property parentTextEdit: IHTMLElement read Get_parentTextEdit;
- property isTextEdit: WordBool read Get_isTextEdit;
- property filters: IHTMLFiltersCollection read Get_filters;
- property ondragstart: OleVariant read Get_ondragstart write Set_ondragstart;
- property onbeforeupdate: OleVariant read Get_onbeforeupdate write Set_onbeforeupdate;
- property onafterupdate: OleVariant read Get_onafterupdate write Set_onafterupdate;
- property onerrorupdate: OleVariant read Get_onerrorupdate write Set_onerrorupdate;
- property onrowexit: OleVariant read Get_onrowexit write Set_onrowexit;
- property onrowenter: OleVariant read Get_onrowenter write Set_onrowenter;
- property ondatasetchanged: OleVariant read Get_ondatasetchanged write Set_ondatasetchanged;
- property ondataavailable: OleVariant read Get_ondataavailable write Set_ondataavailable;
- property ondatasetcomplete: OleVariant read Get_ondatasetcomplete write Set_ondatasetcomplete;
- property onfilterchange: OleVariant read Get_onfilterchange write Set_onfilterchange;
- property children: IDispatch read Get_children;
- property all: IDispatch read Get_all;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementDisp = dispinterface
- ['{3050F1FF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyle
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F25E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle = interface(IDispatch)
- ['{3050F25E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_fontFamily(const p: WideString); safecall;
- function Get_fontFamily: WideString; safecall;
- procedure Set_fontStyle(const p: WideString); safecall;
- function Get_fontStyle: WideString; safecall;
- procedure Set_fontVariant(const p: WideString); safecall;
- function Get_fontVariant: WideString; safecall;
- procedure Set_fontWeight(const p: WideString); safecall;
- function Get_fontWeight: WideString; safecall;
- procedure Set_fontSize(p: OleVariant); safecall;
- function Get_fontSize: OleVariant; safecall;
- procedure Set_font(const p: WideString); safecall;
- function Get_font: WideString; safecall;
- procedure Set_color(p: OleVariant); safecall;
- function Get_color: OleVariant; safecall;
- procedure Set_background(const p: WideString); safecall;
- function Get_background: WideString; safecall;
- procedure Set_backgroundColor(p: OleVariant); safecall;
- function Get_backgroundColor: OleVariant; safecall;
- procedure Set_backgroundImage(const p: WideString); safecall;
- function Get_backgroundImage: WideString; safecall;
- procedure Set_backgroundRepeat(const p: WideString); safecall;
- function Get_backgroundRepeat: WideString; safecall;
- procedure Set_backgroundAttachment(const p: WideString); safecall;
- function Get_backgroundAttachment: WideString; safecall;
- procedure Set_backgroundPosition(const p: WideString); safecall;
- function Get_backgroundPosition: WideString; safecall;
- procedure Set_backgroundPositionX(p: OleVariant); safecall;
- function Get_backgroundPositionX: OleVariant; safecall;
- procedure Set_backgroundPositionY(p: OleVariant); safecall;
- function Get_backgroundPositionY: OleVariant; safecall;
- procedure Set_wordSpacing(p: OleVariant); safecall;
- function Get_wordSpacing: OleVariant; safecall;
- procedure Set_letterSpacing(p: OleVariant); safecall;
- function Get_letterSpacing: OleVariant; safecall;
- procedure Set_textDecoration(const p: WideString); safecall;
- function Get_textDecoration: WideString; safecall;
- procedure Set_textDecorationNone(p: WordBool); safecall;
- function Get_textDecorationNone: WordBool; safecall;
- procedure Set_textDecorationUnderline(p: WordBool); safecall;
- function Get_textDecorationUnderline: WordBool; safecall;
- procedure Set_textDecorationOverline(p: WordBool); safecall;
- function Get_textDecorationOverline: WordBool; safecall;
- procedure Set_textDecorationLineThrough(p: WordBool); safecall;
- function Get_textDecorationLineThrough: WordBool; safecall;
- procedure Set_textDecorationBlink(p: WordBool); safecall;
- function Get_textDecorationBlink: WordBool; safecall;
- procedure Set_verticalAlign(p: OleVariant); safecall;
- function Get_verticalAlign: OleVariant; safecall;
- procedure Set_textTransform(const p: WideString); safecall;
- function Get_textTransform: WideString; safecall;
- procedure Set_textAlign(const p: WideString); safecall;
- function Get_textAlign: WideString; safecall;
- procedure Set_textIndent(p: OleVariant); safecall;
- function Get_textIndent: OleVariant; safecall;
- procedure Set_lineHeight(p: OleVariant); safecall;
- function Get_lineHeight: OleVariant; safecall;
- procedure Set_marginTop(p: OleVariant); safecall;
- function Get_marginTop: OleVariant; safecall;
- procedure Set_marginRight(p: OleVariant); safecall;
- function Get_marginRight: OleVariant; safecall;
- procedure Set_marginBottom(p: OleVariant); safecall;
- function Get_marginBottom: OleVariant; safecall;
- procedure Set_marginLeft(p: OleVariant); safecall;
- function Get_marginLeft: OleVariant; safecall;
- procedure Set_margin(const p: WideString); safecall;
- function Get_margin: WideString; safecall;
- procedure Set_paddingTop(p: OleVariant); safecall;
- function Get_paddingTop: OleVariant; safecall;
- procedure Set_paddingRight(p: OleVariant); safecall;
- function Get_paddingRight: OleVariant; safecall;
- procedure Set_paddingBottom(p: OleVariant); safecall;
- function Get_paddingBottom: OleVariant; safecall;
- procedure Set_paddingLeft(p: OleVariant); safecall;
- function Get_paddingLeft: OleVariant; safecall;
- procedure Set_padding(const p: WideString); safecall;
- function Get_padding: WideString; safecall;
- procedure Set_border(const p: WideString); safecall;
- function Get_border: WideString; safecall;
- procedure Set_borderTop(const p: WideString); safecall;
- function Get_borderTop: WideString; safecall;
- procedure Set_borderRight(const p: WideString); safecall;
- function Get_borderRight: WideString; safecall;
- procedure Set_borderBottom(const p: WideString); safecall;
- function Get_borderBottom: WideString; safecall;
- procedure Set_borderLeft(const p: WideString); safecall;
- function Get_borderLeft: WideString; safecall;
- procedure Set_borderColor(const p: WideString); safecall;
- function Get_borderColor: WideString; safecall;
- procedure Set_borderTopColor(p: OleVariant); safecall;
- function Get_borderTopColor: OleVariant; safecall;
- procedure Set_borderRightColor(p: OleVariant); safecall;
- function Get_borderRightColor: OleVariant; safecall;
- procedure Set_borderBottomColor(p: OleVariant); safecall;
- function Get_borderBottomColor: OleVariant; safecall;
- procedure Set_borderLeftColor(p: OleVariant); safecall;
- function Get_borderLeftColor: OleVariant; safecall;
- procedure Set_borderWidth(const p: WideString); safecall;
- function Get_borderWidth: WideString; safecall;
- procedure Set_borderTopWidth(p: OleVariant); safecall;
- function Get_borderTopWidth: OleVariant; safecall;
- procedure Set_borderRightWidth(p: OleVariant); safecall;
- function Get_borderRightWidth: OleVariant; safecall;
- procedure Set_borderBottomWidth(p: OleVariant); safecall;
- function Get_borderBottomWidth: OleVariant; safecall;
- procedure Set_borderLeftWidth(p: OleVariant); safecall;
- function Get_borderLeftWidth: OleVariant; safecall;
- procedure Set_borderStyle(const p: WideString); safecall;
- function Get_borderStyle: WideString; safecall;
- procedure Set_borderTopStyle(const p: WideString); safecall;
- function Get_borderTopStyle: WideString; safecall;
- procedure Set_borderRightStyle(const p: WideString); safecall;
- function Get_borderRightStyle: WideString; safecall;
- procedure Set_borderBottomStyle(const p: WideString); safecall;
- function Get_borderBottomStyle: WideString; safecall;
- procedure Set_borderLeftStyle(const p: WideString); safecall;
- function Get_borderLeftStyle: WideString; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- procedure Set_styleFloat(const p: WideString); safecall;
- function Get_styleFloat: WideString; safecall;
- procedure Set_clear(const p: WideString); safecall;
- function Get_clear: WideString; safecall;
- procedure Set_display(const p: WideString); safecall;
- function Get_display: WideString; safecall;
- procedure Set_visibility(const p: WideString); safecall;
- function Get_visibility: WideString; safecall;
- procedure Set_listStyleType(const p: WideString); safecall;
- function Get_listStyleType: WideString; safecall;
- procedure Set_listStylePosition(const p: WideString); safecall;
- function Get_listStylePosition: WideString; safecall;
- procedure Set_listStyleImage(const p: WideString); safecall;
- function Get_listStyleImage: WideString; safecall;
- procedure Set_listStyle(const p: WideString); safecall;
- function Get_listStyle: WideString; safecall;
- procedure Set_whiteSpace(const p: WideString); safecall;
- function Get_whiteSpace: WideString; safecall;
- procedure Set_top(p: OleVariant); safecall;
- function Get_top: OleVariant; safecall;
- procedure Set_left(p: OleVariant); safecall;
- function Get_left: OleVariant; safecall;
- function Get_position: WideString; safecall;
- procedure Set_zIndex(p: OleVariant); safecall;
- function Get_zIndex: OleVariant; safecall;
- procedure Set_overflow(const p: WideString); safecall;
- function Get_overflow: WideString; safecall;
- procedure Set_pageBreakBefore(const p: WideString); safecall;
- function Get_pageBreakBefore: WideString; safecall;
- procedure Set_pageBreakAfter(const p: WideString); safecall;
- function Get_pageBreakAfter: WideString; safecall;
- procedure Set_cssText(const p: WideString); safecall;
- function Get_cssText: WideString; safecall;
- procedure Set_pixelTop(p: Integer); safecall;
- function Get_pixelTop: Integer; safecall;
- procedure Set_pixelLeft(p: Integer); safecall;
- function Get_pixelLeft: Integer; safecall;
- procedure Set_pixelWidth(p: Integer); safecall;
- function Get_pixelWidth: Integer; safecall;
- procedure Set_pixelHeight(p: Integer); safecall;
- function Get_pixelHeight: Integer; safecall;
- procedure Set_posTop(p: Single); safecall;
- function Get_posTop: Single; safecall;
- procedure Set_posLeft(p: Single); safecall;
- function Get_posLeft: Single; safecall;
- procedure Set_posWidth(p: Single); safecall;
- function Get_posWidth: Single; safecall;
- procedure Set_posHeight(p: Single); safecall;
- function Get_posHeight: Single; safecall;
- procedure Set_cursor(const p: WideString); safecall;
- function Get_cursor: WideString; safecall;
- procedure Set_clip(const p: WideString); safecall;
- function Get_clip: WideString; safecall;
- procedure Set_filter(const p: WideString); safecall;
- function Get_filter: WideString; safecall;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); safecall;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; safecall;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; safecall;
- function toString: WideString; safecall;
- property fontFamily: WideString read Get_fontFamily write Set_fontFamily;
- property fontStyle: WideString read Get_fontStyle write Set_fontStyle;
- property fontVariant: WideString read Get_fontVariant write Set_fontVariant;
- property fontWeight: WideString read Get_fontWeight write Set_fontWeight;
- property fontSize: OleVariant read Get_fontSize write Set_fontSize;
- property font: WideString read Get_font write Set_font;
- property color: OleVariant read Get_color write Set_color;
- property background: WideString read Get_background write Set_background;
- property backgroundColor: OleVariant read Get_backgroundColor write Set_backgroundColor;
- property backgroundImage: WideString read Get_backgroundImage write Set_backgroundImage;
- property backgroundRepeat: WideString read Get_backgroundRepeat write Set_backgroundRepeat;
- property backgroundAttachment: WideString read Get_backgroundAttachment write Set_backgroundAttachment;
- property backgroundPosition: WideString read Get_backgroundPosition write Set_backgroundPosition;
- property backgroundPositionX: OleVariant read Get_backgroundPositionX write Set_backgroundPositionX;
- property backgroundPositionY: OleVariant read Get_backgroundPositionY write Set_backgroundPositionY;
- property wordSpacing: OleVariant read Get_wordSpacing write Set_wordSpacing;
- property letterSpacing: OleVariant read Get_letterSpacing write Set_letterSpacing;
- property textDecoration: WideString read Get_textDecoration write Set_textDecoration;
- property textDecorationNone: WordBool read Get_textDecorationNone write Set_textDecorationNone;
- property textDecorationUnderline: WordBool read Get_textDecorationUnderline write Set_textDecorationUnderline;
- property textDecorationOverline: WordBool read Get_textDecorationOverline write Set_textDecorationOverline;
- property textDecorationLineThrough: WordBool read Get_textDecorationLineThrough write Set_textDecorationLineThrough;
- property textDecorationBlink: WordBool read Get_textDecorationBlink write Set_textDecorationBlink;
- property verticalAlign: OleVariant read Get_verticalAlign write Set_verticalAlign;
- property textTransform: WideString read Get_textTransform write Set_textTransform;
- property textAlign: WideString read Get_textAlign write Set_textAlign;
- property textIndent: OleVariant read Get_textIndent write Set_textIndent;
- property lineHeight: OleVariant read Get_lineHeight write Set_lineHeight;
- property marginTop: OleVariant read Get_marginTop write Set_marginTop;
- property marginRight: OleVariant read Get_marginRight write Set_marginRight;
- property marginBottom: OleVariant read Get_marginBottom write Set_marginBottom;
- property marginLeft: OleVariant read Get_marginLeft write Set_marginLeft;
- property margin: WideString read Get_margin write Set_margin;
- property paddingTop: OleVariant read Get_paddingTop write Set_paddingTop;
- property paddingRight: OleVariant read Get_paddingRight write Set_paddingRight;
- property paddingBottom: OleVariant read Get_paddingBottom write Set_paddingBottom;
- property paddingLeft: OleVariant read Get_paddingLeft write Set_paddingLeft;
- property padding: WideString read Get_padding write Set_padding;
- property border: WideString read Get_border write Set_border;
- property borderTop: WideString read Get_borderTop write Set_borderTop;
- property borderRight: WideString read Get_borderRight write Set_borderRight;
- property borderBottom: WideString read Get_borderBottom write Set_borderBottom;
- property borderLeft: WideString read Get_borderLeft write Set_borderLeft;
- property borderColor: WideString read Get_borderColor write Set_borderColor;
- property borderTopColor: OleVariant read Get_borderTopColor write Set_borderTopColor;
- property borderRightColor: OleVariant read Get_borderRightColor write Set_borderRightColor;
- property borderBottomColor: OleVariant read Get_borderBottomColor write Set_borderBottomColor;
- property borderLeftColor: OleVariant read Get_borderLeftColor write Set_borderLeftColor;
- property borderWidth: WideString read Get_borderWidth write Set_borderWidth;
- property borderTopWidth: OleVariant read Get_borderTopWidth write Set_borderTopWidth;
- property borderRightWidth: OleVariant read Get_borderRightWidth write Set_borderRightWidth;
- property borderBottomWidth: OleVariant read Get_borderBottomWidth write Set_borderBottomWidth;
- property borderLeftWidth: OleVariant read Get_borderLeftWidth write Set_borderLeftWidth;
- property borderStyle: WideString read Get_borderStyle write Set_borderStyle;
- property borderTopStyle: WideString read Get_borderTopStyle write Set_borderTopStyle;
- property borderRightStyle: WideString read Get_borderRightStyle write Set_borderRightStyle;
- property borderBottomStyle: WideString read Get_borderBottomStyle write Set_borderBottomStyle;
- property borderLeftStyle: WideString read Get_borderLeftStyle write Set_borderLeftStyle;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- property styleFloat: WideString read Get_styleFloat write Set_styleFloat;
- property clear: WideString read Get_clear write Set_clear;
- property display: WideString read Get_display write Set_display;
- property visibility: WideString read Get_visibility write Set_visibility;
- property listStyleType: WideString read Get_listStyleType write Set_listStyleType;
- property listStylePosition: WideString read Get_listStylePosition write Set_listStylePosition;
- property listStyleImage: WideString read Get_listStyleImage write Set_listStyleImage;
- property listStyle: WideString read Get_listStyle write Set_listStyle;
- property whiteSpace: WideString read Get_whiteSpace write Set_whiteSpace;
- property top: OleVariant read Get_top write Set_top;
- property left: OleVariant read Get_left write Set_left;
- property position: WideString read Get_position;
- property zIndex: OleVariant read Get_zIndex write Set_zIndex;
- property overflow: WideString read Get_overflow write Set_overflow;
- property pageBreakBefore: WideString read Get_pageBreakBefore write Set_pageBreakBefore;
- property pageBreakAfter: WideString read Get_pageBreakAfter write Set_pageBreakAfter;
- property cssText: WideString read Get_cssText write Set_cssText;
- property pixelTop: Integer read Get_pixelTop write Set_pixelTop;
- property pixelLeft: Integer read Get_pixelLeft write Set_pixelLeft;
- property pixelWidth: Integer read Get_pixelWidth write Set_pixelWidth;
- property pixelHeight: Integer read Get_pixelHeight write Set_pixelHeight;
- property posTop: Single read Get_posTop write Set_posTop;
- property posLeft: Single read Get_posLeft write Set_posLeft;
- property posWidth: Single read Get_posWidth write Set_posWidth;
- property posHeight: Single read Get_posHeight write Set_posHeight;
- property cursor: WideString read Get_cursor write Set_cursor;
- property clip: WideString read Get_clip write Set_clip;
- property filter: WideString read Get_filter write Set_filter;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F25E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleDisp = dispinterface
- ['{3050F25E-98B5-11CF-BB82-00AA00BDCE0B}']
- property fontFamily: WideString dispid - 2147413094;
- property fontStyle: WideString dispid - 2147413088;
- property fontVariant: WideString dispid - 2147413087;
- property fontWeight: WideString dispid - 2147413085;
- property fontSize: OleVariant dispid - 2147413093;
- property font: WideString dispid - 2147413071;
- property color: OleVariant dispid - 2147413110;
- property background: WideString dispid - 2147413080;
- property backgroundColor: OleVariant dispid - 501;
- property backgroundImage: WideString dispid - 2147413111;
- property backgroundRepeat: WideString dispid - 2147413068;
- property backgroundAttachment: WideString dispid - 2147413067;
- property backgroundPosition: WideString dispid - 2147413066;
- property backgroundPositionX: OleVariant dispid - 2147413079;
- property backgroundPositionY: OleVariant dispid - 2147413078;
- property wordSpacing: OleVariant dispid - 2147413065;
- property letterSpacing: OleVariant dispid - 2147413104;
- property textDecoration: WideString dispid - 2147413077;
- property textDecorationNone: WordBool dispid - 2147413089;
- property textDecorationUnderline: WordBool dispid - 2147413091;
- property textDecorationOverline: WordBool dispid - 2147413043;
- property textDecorationLineThrough: WordBool dispid - 2147413092;
- property textDecorationBlink: WordBool dispid - 2147413090;
- property verticalAlign: OleVariant dispid - 2147413064;
- property textTransform: WideString dispid - 2147413108;
- property textAlign: WideString dispid - 2147418040;
- property textIndent: OleVariant dispid - 2147413105;
- property lineHeight: OleVariant dispid - 2147413106;
- property marginTop: OleVariant dispid - 2147413075;
- property marginRight: OleVariant dispid - 2147413074;
- property marginBottom: OleVariant dispid - 2147413073;
- property marginLeft: OleVariant dispid - 2147413072;
- property margin: WideString dispid - 2147413076;
- property paddingTop: OleVariant dispid - 2147413100;
- property paddingRight: OleVariant dispid - 2147413099;
- property paddingBottom: OleVariant dispid - 2147413098;
- property paddingLeft: OleVariant dispid - 2147413097;
- property padding: WideString dispid - 2147413101;
- property border: WideString dispid - 2147413063;
- property borderTop: WideString dispid - 2147413062;
- property borderRight: WideString dispid - 2147413061;
- property borderBottom: WideString dispid - 2147413060;
- property borderLeft: WideString dispid - 2147413059;
- property borderColor: WideString dispid - 2147413058;
- property borderTopColor: OleVariant dispid - 2147413057;
- property borderRightColor: OleVariant dispid - 2147413056;
- property borderBottomColor: OleVariant dispid - 2147413055;
- property borderLeftColor: OleVariant dispid - 2147413054;
- property borderWidth: WideString dispid - 2147413053;
- property borderTopWidth: OleVariant dispid - 2147413052;
- property borderRightWidth: OleVariant dispid - 2147413051;
- property borderBottomWidth: OleVariant dispid - 2147413050;
- property borderLeftWidth: OleVariant dispid - 2147413049;
- property borderStyle: WideString dispid - 2147413048;
- property borderTopStyle: WideString dispid - 2147413047;
- property borderRightStyle: WideString dispid - 2147413046;
- property borderBottomStyle: WideString dispid - 2147413045;
- property borderLeftStyle: WideString dispid - 2147413044;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property styleFloat: WideString dispid - 2147413042;
- property clear: WideString dispid - 2147413096;
- property display: WideString dispid - 2147413041;
- property visibility: WideString dispid - 2147413032;
- property listStyleType: WideString dispid - 2147413040;
- property listStylePosition: WideString dispid - 2147413039;
- property listStyleImage: WideString dispid - 2147413038;
- property listStyle: WideString dispid - 2147413037;
- property whiteSpace: WideString dispid - 2147413036;
- property top: OleVariant dispid - 2147418108;
- property left: OleVariant dispid - 2147418109;
- property position: WideString readonly dispid - 2147413022;
- property zIndex: OleVariant dispid - 2147413021;
- property overflow: WideString dispid - 2147413102;
- property pageBreakBefore: WideString dispid - 2147413035;
- property pageBreakAfter: WideString dispid - 2147413034;
- property cssText: WideString dispid - 2147413013;
- property pixelTop: Integer dispid - 2147414112;
- property pixelLeft: Integer dispid - 2147414111;
- property pixelWidth: Integer dispid - 2147414110;
- property pixelHeight: Integer dispid - 2147414109;
- property posTop: Single dispid - 2147414108;
- property posLeft: Single dispid - 2147414107;
- property posWidth: Single dispid - 2147414106;
- property posHeight: Single dispid - 2147414105;
- property cursor: WideString dispid - 2147413010;
- property clip: WideString dispid - 2147413020;
- property filter: WideString dispid - 2147413030;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- function toString: WideString; dispid - 2147414104;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFiltersCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFiltersCollection = interface(IDispatch)
- ['{3050F3EE-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFiltersCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFiltersCollectionDisp = dispinterface
- ['{3050F3EE-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1001;
- property _newEnum: IUnknown readonly dispid - 4;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSite
-// Flags: (0)
-// GUID: {3050F427-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSite = interface(IUnknown)
- ['{3050F427-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetElement(out ppElement: IHTMLElement): HRESULT; stdcall;
- function RegisterNotification(lEvent: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehavior
-// Flags: (0)
-// GUID: {3050F425-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehavior = interface(IUnknown)
- ['{3050F425-98B5-11CF-BB82-00AA00BDCE0B}']
- function Init(pBehaviorSite: IElementBehaviorSite): HRESULT; stdcall;
- function Notify(lEvent: Integer; var pVar: OleVariant): HRESULT; stdcall;
- function Detach: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorFactory
-// Flags: (0)
-// GUID: {3050F429-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorFactory = interface(IUnknown)
- ['{3050F429-98B5-11CF-BB82-00AA00BDCE0B}']
- function FindBehavior(const bstrBehavior: WideString; const bstrBehaviorUrl: WideString;
- const pSite: IElementBehaviorSite; out ppBehavior: IElementBehavior): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSiteOM
-// Flags: (0)
-// GUID: {3050F489-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSiteOM = interface(IUnknown)
- ['{3050F489-98B5-11CF-BB82-00AA00BDCE0B}']
- function RegisterEvent(pchEvent: PWideChar; lFlags: Integer; out plCookie: Integer): HRESULT; stdcall;
- function GetEventCookie(pchEvent: PWideChar; out plCookie: Integer): HRESULT; stdcall;
- function FireEvent(lCookie: Integer; const pEventObject: IHTMLEventObj): HRESULT; stdcall;
- function CreateEventObject(out ppEventObject: IHTMLEventObj): HRESULT; stdcall;
- function RegisterName(pchName: PWideChar): HRESULT; stdcall;
- function RegisterUrn(pchUrn: PWideChar): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorRender
-// Flags: (0)
-// GUID: {3050F4AA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorRender = interface(IUnknown)
- ['{3050F4AA-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function Draw(hdc: HDC; lLayer: Integer; var pRect: TRect;
- const pReserved: IUnknown): HRESULT; stdcall;
- function GetRenderInfo(out plRenderInfo: Integer): HRESULT; stdcall;
- function HitTestPoint(var pPoint: TPoint; const pReserved: IUnknown; out pbHit: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSiteRender
-// Flags: (0)
-// GUID: {3050F4A7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSiteRender = interface(IUnknown)
- ['{3050F4A7-98B5-11CF-BB82-00AA00BDCE0B}']
- function Invalidate(var pRect: TRect): HRESULT; stdcall;
- function InvalidateRenderInfo: HRESULT; stdcall;
- function InvalidateStyle: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyle2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle2 = interface(IDispatch)
- ['{3050F4A2-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_tableLayout(const p: WideString); safecall;
- function Get_tableLayout: WideString; safecall;
- procedure Set_borderCollapse(const p: WideString); safecall;
- function Get_borderCollapse: WideString; safecall;
- procedure Set_direction(const p: WideString); safecall;
- function Get_direction: WideString; safecall;
- procedure Set_behavior(const p: WideString); safecall;
- function Get_behavior: WideString; safecall;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); safecall;
- function getExpression(const propname: WideString): OleVariant; safecall;
- function removeExpression(const propname: WideString): WordBool; safecall;
- procedure Set_position(const p: WideString); safecall;
- function Get_position: WideString; safecall;
- procedure Set_unicodeBidi(const p: WideString); safecall;
- function Get_unicodeBidi: WideString; safecall;
- procedure Set_bottom(p: OleVariant); safecall;
- function Get_bottom: OleVariant; safecall;
- procedure Set_right(p: OleVariant); safecall;
- function Get_right: OleVariant; safecall;
- procedure Set_pixelBottom(p: Integer); safecall;
- function Get_pixelBottom: Integer; safecall;
- procedure Set_pixelRight(p: Integer); safecall;
- function Get_pixelRight: Integer; safecall;
- procedure Set_posBottom(p: Single); safecall;
- function Get_posBottom: Single; safecall;
- procedure Set_posRight(p: Single); safecall;
- function Get_posRight: Single; safecall;
- procedure Set_imeMode(const p: WideString); safecall;
- function Get_imeMode: WideString; safecall;
- procedure Set_rubyAlign(const p: WideString); safecall;
- function Get_rubyAlign: WideString; safecall;
- procedure Set_rubyPosition(const p: WideString); safecall;
- function Get_rubyPosition: WideString; safecall;
- procedure Set_rubyOverhang(const p: WideString); safecall;
- function Get_rubyOverhang: WideString; safecall;
- procedure Set_layoutGridChar(p: OleVariant); safecall;
- function Get_layoutGridChar: OleVariant; safecall;
- procedure Set_layoutGridLine(p: OleVariant); safecall;
- function Get_layoutGridLine: OleVariant; safecall;
- procedure Set_layoutGridMode(const p: WideString); safecall;
- function Get_layoutGridMode: WideString; safecall;
- procedure Set_layoutGridType(const p: WideString); safecall;
- function Get_layoutGridType: WideString; safecall;
- procedure Set_layoutGrid(const p: WideString); safecall;
- function Get_layoutGrid: WideString; safecall;
- procedure Set_wordBreak(const p: WideString); safecall;
- function Get_wordBreak: WideString; safecall;
- procedure Set_lineBreak(const p: WideString); safecall;
- function Get_lineBreak: WideString; safecall;
- procedure Set_textJustify(const p: WideString); safecall;
- function Get_textJustify: WideString; safecall;
- procedure Set_textJustifyTrim(const p: WideString); safecall;
- function Get_textJustifyTrim: WideString; safecall;
- procedure Set_textKashida(p: OleVariant); safecall;
- function Get_textKashida: OleVariant; safecall;
- procedure Set_textAutospace(const p: WideString); safecall;
- function Get_textAutospace: WideString; safecall;
- procedure Set_overflowX(const p: WideString); safecall;
- function Get_overflowX: WideString; safecall;
- procedure Set_overflowY(const p: WideString); safecall;
- function Get_overflowY: WideString; safecall;
- procedure Set_accelerator(const p: WideString); safecall;
- function Get_accelerator: WideString; safecall;
- property tableLayout: WideString read Get_tableLayout write Set_tableLayout;
- property borderCollapse: WideString read Get_borderCollapse write Set_borderCollapse;
- property direction: WideString read Get_direction write Set_direction;
- property behavior: WideString read Get_behavior write Set_behavior;
- property position: WideString read Get_position write Set_position;
- property unicodeBidi: WideString read Get_unicodeBidi write Set_unicodeBidi;
- property bottom: OleVariant read Get_bottom write Set_bottom;
- property right: OleVariant read Get_right write Set_right;
- property pixelBottom: Integer read Get_pixelBottom write Set_pixelBottom;
- property pixelRight: Integer read Get_pixelRight write Set_pixelRight;
- property posBottom: Single read Get_posBottom write Set_posBottom;
- property posRight: Single read Get_posRight write Set_posRight;
- property imeMode: WideString read Get_imeMode write Set_imeMode;
- property rubyAlign: WideString read Get_rubyAlign write Set_rubyAlign;
- property rubyPosition: WideString read Get_rubyPosition write Set_rubyPosition;
- property rubyOverhang: WideString read Get_rubyOverhang write Set_rubyOverhang;
- property layoutGridChar: OleVariant read Get_layoutGridChar write Set_layoutGridChar;
- property layoutGridLine: OleVariant read Get_layoutGridLine write Set_layoutGridLine;
- property layoutGridMode: WideString read Get_layoutGridMode write Set_layoutGridMode;
- property layoutGridType: WideString read Get_layoutGridType write Set_layoutGridType;
- property layoutGrid: WideString read Get_layoutGrid write Set_layoutGrid;
- property wordBreak: WideString read Get_wordBreak write Set_wordBreak;
- property lineBreak: WideString read Get_lineBreak write Set_lineBreak;
- property textJustify: WideString read Get_textJustify write Set_textJustify;
- property textJustifyTrim: WideString read Get_textJustifyTrim write Set_textJustifyTrim;
- property textKashida: OleVariant read Get_textKashida write Set_textKashida;
- property textAutospace: WideString read Get_textAutospace write Set_textAutospace;
- property overflowX: WideString read Get_overflowX write Set_overflowX;
- property overflowY: WideString read Get_overflowY write Set_overflowY;
- property accelerator: WideString read Get_accelerator write Set_accelerator;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyle2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle2Disp = dispinterface
- ['{3050F4A2-98B5-11CF-BB82-00AA00BDCE0B}']
- property tableLayout: WideString dispid - 2147413014;
- property borderCollapse: WideString dispid - 2147413028;
- property direction: WideString dispid - 2147412993;
- property behavior: WideString dispid - 2147412997;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property position: WideString dispid - 2147413022;
- property unicodeBidi: WideString dispid - 2147412994;
- property bottom: OleVariant dispid - 2147418034;
- property right: OleVariant dispid - 2147418035;
- property pixelBottom: Integer dispid - 2147414103;
- property pixelRight: Integer dispid - 2147414102;
- property posBottom: Single dispid - 2147414101;
- property posRight: Single dispid - 2147414100;
- property imeMode: WideString dispid - 2147412992;
- property rubyAlign: WideString dispid - 2147412991;
- property rubyPosition: WideString dispid - 2147412990;
- property rubyOverhang: WideString dispid - 2147412989;
- property layoutGridChar: OleVariant dispid - 2147412985;
- property layoutGridLine: OleVariant dispid - 2147412984;
- property layoutGridMode: WideString dispid - 2147412983;
- property layoutGridType: WideString dispid - 2147412982;
- property layoutGrid: WideString dispid - 2147412981;
- property wordBreak: WideString dispid - 2147412978;
- property lineBreak: WideString dispid - 2147412979;
- property textJustify: WideString dispid - 2147412977;
- property textJustifyTrim: WideString dispid - 2147412976;
- property textKashida: OleVariant dispid - 2147412975;
- property textAutospace: WideString dispid - 2147412980;
- property overflowX: WideString dispid - 2147412973;
- property overflowY: WideString dispid - 2147412972;
- property accelerator: WideString dispid - 2147412965;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyle3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F656-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle3 = interface(IDispatch)
- ['{3050F656-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_layoutFlow(const p: WideString); safecall;
- function Get_layoutFlow: WideString; safecall;
- procedure Set_zoom(p: OleVariant); safecall;
- function Get_zoom: OleVariant; safecall;
- procedure Set_wordWrap(const p: WideString); safecall;
- function Get_wordWrap: WideString; safecall;
- procedure Set_textUnderlinePosition(const p: WideString); safecall;
- function Get_textUnderlinePosition: WideString; safecall;
- procedure Set_scrollbarBaseColor(p: OleVariant); safecall;
- function Get_scrollbarBaseColor: OleVariant; safecall;
- procedure Set_scrollbarFaceColor(p: OleVariant); safecall;
- function Get_scrollbarFaceColor: OleVariant; safecall;
- procedure Set_scrollbar3dLightColor(p: OleVariant); safecall;
- function Get_scrollbar3dLightColor: OleVariant; safecall;
- procedure Set_scrollbarShadowColor(p: OleVariant); safecall;
- function Get_scrollbarShadowColor: OleVariant; safecall;
- procedure Set_scrollbarHighlightColor(p: OleVariant); safecall;
- function Get_scrollbarHighlightColor: OleVariant; safecall;
- procedure Set_scrollbarDarkShadowColor(p: OleVariant); safecall;
- function Get_scrollbarDarkShadowColor: OleVariant; safecall;
- procedure Set_scrollbarArrowColor(p: OleVariant); safecall;
- function Get_scrollbarArrowColor: OleVariant; safecall;
- procedure Set_scrollbarTrackColor(p: OleVariant); safecall;
- function Get_scrollbarTrackColor: OleVariant; safecall;
- procedure Set_writingMode(const p: WideString); safecall;
- function Get_writingMode: WideString; safecall;
- procedure Set_textAlignLast(const p: WideString); safecall;
- function Get_textAlignLast: WideString; safecall;
- procedure Set_textKashidaSpace(p: OleVariant); safecall;
- function Get_textKashidaSpace: OleVariant; safecall;
- property layoutFlow: WideString read Get_layoutFlow write Set_layoutFlow;
- property zoom: OleVariant read Get_zoom write Set_zoom;
- property wordWrap: WideString read Get_wordWrap write Set_wordWrap;
- property textUnderlinePosition: WideString read Get_textUnderlinePosition write Set_textUnderlinePosition;
- property scrollbarBaseColor: OleVariant read Get_scrollbarBaseColor write Set_scrollbarBaseColor;
- property scrollbarFaceColor: OleVariant read Get_scrollbarFaceColor write Set_scrollbarFaceColor;
- property scrollbar3dLightColor: OleVariant read Get_scrollbar3dLightColor write Set_scrollbar3dLightColor;
- property scrollbarShadowColor: OleVariant read Get_scrollbarShadowColor write Set_scrollbarShadowColor;
- property scrollbarHighlightColor: OleVariant read Get_scrollbarHighlightColor write Set_scrollbarHighlightColor;
- property scrollbarDarkShadowColor: OleVariant read Get_scrollbarDarkShadowColor write Set_scrollbarDarkShadowColor;
- property scrollbarArrowColor: OleVariant read Get_scrollbarArrowColor write Set_scrollbarArrowColor;
- property scrollbarTrackColor: OleVariant read Get_scrollbarTrackColor write Set_scrollbarTrackColor;
- property writingMode: WideString read Get_writingMode write Set_writingMode;
- property textAlignLast: WideString read Get_textAlignLast write Set_textAlignLast;
- property textKashidaSpace: OleVariant read Get_textKashidaSpace write Set_textKashidaSpace;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyle3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F656-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle3Disp = dispinterface
- ['{3050F656-98B5-11CF-BB82-00AA00BDCE0B}']
- property layoutFlow: WideString dispid - 2147412957;
- property zoom: OleVariant dispid - 2147412959;
- property wordWrap: WideString dispid - 2147412954;
- property textUnderlinePosition: WideString dispid - 2147412953;
- property scrollbarBaseColor: OleVariant dispid - 2147412932;
- property scrollbarFaceColor: OleVariant dispid - 2147412931;
- property scrollbar3dLightColor: OleVariant dispid - 2147412930;
- property scrollbarShadowColor: OleVariant dispid - 2147412929;
- property scrollbarHighlightColor: OleVariant dispid - 2147412928;
- property scrollbarDarkShadowColor: OleVariant dispid - 2147412927;
- property scrollbarArrowColor: OleVariant dispid - 2147412926;
- property scrollbarTrackColor: OleVariant dispid - 2147412916;
- property writingMode: WideString dispid - 2147412920;
- property textAlignLast: WideString dispid - 2147412909;
- property textKashidaSpace: OleVariant dispid - 2147412908;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyle4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F816-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle4 = interface(IDispatch)
- ['{3050F816-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_textOverflow(const p: WideString); safecall;
- function Get_textOverflow: WideString; safecall;
- procedure Set_minHeight(p: OleVariant); safecall;
- function Get_minHeight: OleVariant; safecall;
- property textOverflow: WideString read Get_textOverflow write Set_textOverflow;
- property minHeight: OleVariant read Get_minHeight write Set_minHeight;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyle4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F816-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyle4Disp = dispinterface
- ['{3050F816-98B5-11CF-BB82-00AA00BDCE0B}']
- property textOverflow: WideString dispid - 2147412903;
- property minHeight: OleVariant dispid - 2147412901;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRuleStyle
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3CF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle = interface(IDispatch)
- ['{3050F3CF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_fontFamily(const p: WideString); safecall;
- function Get_fontFamily: WideString; safecall;
- procedure Set_fontStyle(const p: WideString); safecall;
- function Get_fontStyle: WideString; safecall;
- procedure Set_fontVariant(const p: WideString); safecall;
- function Get_fontVariant: WideString; safecall;
- procedure Set_fontWeight(const p: WideString); safecall;
- function Get_fontWeight: WideString; safecall;
- procedure Set_fontSize(p: OleVariant); safecall;
- function Get_fontSize: OleVariant; safecall;
- procedure Set_font(const p: WideString); safecall;
- function Get_font: WideString; safecall;
- procedure Set_color(p: OleVariant); safecall;
- function Get_color: OleVariant; safecall;
- procedure Set_background(const p: WideString); safecall;
- function Get_background: WideString; safecall;
- procedure Set_backgroundColor(p: OleVariant); safecall;
- function Get_backgroundColor: OleVariant; safecall;
- procedure Set_backgroundImage(const p: WideString); safecall;
- function Get_backgroundImage: WideString; safecall;
- procedure Set_backgroundRepeat(const p: WideString); safecall;
- function Get_backgroundRepeat: WideString; safecall;
- procedure Set_backgroundAttachment(const p: WideString); safecall;
- function Get_backgroundAttachment: WideString; safecall;
- procedure Set_backgroundPosition(const p: WideString); safecall;
- function Get_backgroundPosition: WideString; safecall;
- procedure Set_backgroundPositionX(p: OleVariant); safecall;
- function Get_backgroundPositionX: OleVariant; safecall;
- procedure Set_backgroundPositionY(p: OleVariant); safecall;
- function Get_backgroundPositionY: OleVariant; safecall;
- procedure Set_wordSpacing(p: OleVariant); safecall;
- function Get_wordSpacing: OleVariant; safecall;
- procedure Set_letterSpacing(p: OleVariant); safecall;
- function Get_letterSpacing: OleVariant; safecall;
- procedure Set_textDecoration(const p: WideString); safecall;
- function Get_textDecoration: WideString; safecall;
- procedure Set_textDecorationNone(p: WordBool); safecall;
- function Get_textDecorationNone: WordBool; safecall;
- procedure Set_textDecorationUnderline(p: WordBool); safecall;
- function Get_textDecorationUnderline: WordBool; safecall;
- procedure Set_textDecorationOverline(p: WordBool); safecall;
- function Get_textDecorationOverline: WordBool; safecall;
- procedure Set_textDecorationLineThrough(p: WordBool); safecall;
- function Get_textDecorationLineThrough: WordBool; safecall;
- procedure Set_textDecorationBlink(p: WordBool); safecall;
- function Get_textDecorationBlink: WordBool; safecall;
- procedure Set_verticalAlign(p: OleVariant); safecall;
- function Get_verticalAlign: OleVariant; safecall;
- procedure Set_textTransform(const p: WideString); safecall;
- function Get_textTransform: WideString; safecall;
- procedure Set_textAlign(const p: WideString); safecall;
- function Get_textAlign: WideString; safecall;
- procedure Set_textIndent(p: OleVariant); safecall;
- function Get_textIndent: OleVariant; safecall;
- procedure Set_lineHeight(p: OleVariant); safecall;
- function Get_lineHeight: OleVariant; safecall;
- procedure Set_marginTop(p: OleVariant); safecall;
- function Get_marginTop: OleVariant; safecall;
- procedure Set_marginRight(p: OleVariant); safecall;
- function Get_marginRight: OleVariant; safecall;
- procedure Set_marginBottom(p: OleVariant); safecall;
- function Get_marginBottom: OleVariant; safecall;
- procedure Set_marginLeft(p: OleVariant); safecall;
- function Get_marginLeft: OleVariant; safecall;
- procedure Set_margin(const p: WideString); safecall;
- function Get_margin: WideString; safecall;
- procedure Set_paddingTop(p: OleVariant); safecall;
- function Get_paddingTop: OleVariant; safecall;
- procedure Set_paddingRight(p: OleVariant); safecall;
- function Get_paddingRight: OleVariant; safecall;
- procedure Set_paddingBottom(p: OleVariant); safecall;
- function Get_paddingBottom: OleVariant; safecall;
- procedure Set_paddingLeft(p: OleVariant); safecall;
- function Get_paddingLeft: OleVariant; safecall;
- procedure Set_padding(const p: WideString); safecall;
- function Get_padding: WideString; safecall;
- procedure Set_border(const p: WideString); safecall;
- function Get_border: WideString; safecall;
- procedure Set_borderTop(const p: WideString); safecall;
- function Get_borderTop: WideString; safecall;
- procedure Set_borderRight(const p: WideString); safecall;
- function Get_borderRight: WideString; safecall;
- procedure Set_borderBottom(const p: WideString); safecall;
- function Get_borderBottom: WideString; safecall;
- procedure Set_borderLeft(const p: WideString); safecall;
- function Get_borderLeft: WideString; safecall;
- procedure Set_borderColor(const p: WideString); safecall;
- function Get_borderColor: WideString; safecall;
- procedure Set_borderTopColor(p: OleVariant); safecall;
- function Get_borderTopColor: OleVariant; safecall;
- procedure Set_borderRightColor(p: OleVariant); safecall;
- function Get_borderRightColor: OleVariant; safecall;
- procedure Set_borderBottomColor(p: OleVariant); safecall;
- function Get_borderBottomColor: OleVariant; safecall;
- procedure Set_borderLeftColor(p: OleVariant); safecall;
- function Get_borderLeftColor: OleVariant; safecall;
- procedure Set_borderWidth(const p: WideString); safecall;
- function Get_borderWidth: WideString; safecall;
- procedure Set_borderTopWidth(p: OleVariant); safecall;
- function Get_borderTopWidth: OleVariant; safecall;
- procedure Set_borderRightWidth(p: OleVariant); safecall;
- function Get_borderRightWidth: OleVariant; safecall;
- procedure Set_borderBottomWidth(p: OleVariant); safecall;
- function Get_borderBottomWidth: OleVariant; safecall;
- procedure Set_borderLeftWidth(p: OleVariant); safecall;
- function Get_borderLeftWidth: OleVariant; safecall;
- procedure Set_borderStyle(const p: WideString); safecall;
- function Get_borderStyle: WideString; safecall;
- procedure Set_borderTopStyle(const p: WideString); safecall;
- function Get_borderTopStyle: WideString; safecall;
- procedure Set_borderRightStyle(const p: WideString); safecall;
- function Get_borderRightStyle: WideString; safecall;
- procedure Set_borderBottomStyle(const p: WideString); safecall;
- function Get_borderBottomStyle: WideString; safecall;
- procedure Set_borderLeftStyle(const p: WideString); safecall;
- function Get_borderLeftStyle: WideString; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- procedure Set_styleFloat(const p: WideString); safecall;
- function Get_styleFloat: WideString; safecall;
- procedure Set_clear(const p: WideString); safecall;
- function Get_clear: WideString; safecall;
- procedure Set_display(const p: WideString); safecall;
- function Get_display: WideString; safecall;
- procedure Set_visibility(const p: WideString); safecall;
- function Get_visibility: WideString; safecall;
- procedure Set_listStyleType(const p: WideString); safecall;
- function Get_listStyleType: WideString; safecall;
- procedure Set_listStylePosition(const p: WideString); safecall;
- function Get_listStylePosition: WideString; safecall;
- procedure Set_listStyleImage(const p: WideString); safecall;
- function Get_listStyleImage: WideString; safecall;
- procedure Set_listStyle(const p: WideString); safecall;
- function Get_listStyle: WideString; safecall;
- procedure Set_whiteSpace(const p: WideString); safecall;
- function Get_whiteSpace: WideString; safecall;
- procedure Set_top(p: OleVariant); safecall;
- function Get_top: OleVariant; safecall;
- procedure Set_left(p: OleVariant); safecall;
- function Get_left: OleVariant; safecall;
- function Get_position: WideString; safecall;
- procedure Set_zIndex(p: OleVariant); safecall;
- function Get_zIndex: OleVariant; safecall;
- procedure Set_overflow(const p: WideString); safecall;
- function Get_overflow: WideString; safecall;
- procedure Set_pageBreakBefore(const p: WideString); safecall;
- function Get_pageBreakBefore: WideString; safecall;
- procedure Set_pageBreakAfter(const p: WideString); safecall;
- function Get_pageBreakAfter: WideString; safecall;
- procedure Set_cssText(const p: WideString); safecall;
- function Get_cssText: WideString; safecall;
- procedure Set_cursor(const p: WideString); safecall;
- function Get_cursor: WideString; safecall;
- procedure Set_clip(const p: WideString); safecall;
- function Get_clip: WideString; safecall;
- procedure Set_filter(const p: WideString); safecall;
- function Get_filter: WideString; safecall;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); safecall;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; safecall;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; safecall;
- property fontFamily: WideString read Get_fontFamily write Set_fontFamily;
- property fontStyle: WideString read Get_fontStyle write Set_fontStyle;
- property fontVariant: WideString read Get_fontVariant write Set_fontVariant;
- property fontWeight: WideString read Get_fontWeight write Set_fontWeight;
- property fontSize: OleVariant read Get_fontSize write Set_fontSize;
- property font: WideString read Get_font write Set_font;
- property color: OleVariant read Get_color write Set_color;
- property background: WideString read Get_background write Set_background;
- property backgroundColor: OleVariant read Get_backgroundColor write Set_backgroundColor;
- property backgroundImage: WideString read Get_backgroundImage write Set_backgroundImage;
- property backgroundRepeat: WideString read Get_backgroundRepeat write Set_backgroundRepeat;
- property backgroundAttachment: WideString read Get_backgroundAttachment write Set_backgroundAttachment;
- property backgroundPosition: WideString read Get_backgroundPosition write Set_backgroundPosition;
- property backgroundPositionX: OleVariant read Get_backgroundPositionX write Set_backgroundPositionX;
- property backgroundPositionY: OleVariant read Get_backgroundPositionY write Set_backgroundPositionY;
- property wordSpacing: OleVariant read Get_wordSpacing write Set_wordSpacing;
- property letterSpacing: OleVariant read Get_letterSpacing write Set_letterSpacing;
- property textDecoration: WideString read Get_textDecoration write Set_textDecoration;
- property textDecorationNone: WordBool read Get_textDecorationNone write Set_textDecorationNone;
- property textDecorationUnderline: WordBool read Get_textDecorationUnderline write Set_textDecorationUnderline;
- property textDecorationOverline: WordBool read Get_textDecorationOverline write Set_textDecorationOverline;
- property textDecorationLineThrough: WordBool read Get_textDecorationLineThrough write Set_textDecorationLineThrough;
- property textDecorationBlink: WordBool read Get_textDecorationBlink write Set_textDecorationBlink;
- property verticalAlign: OleVariant read Get_verticalAlign write Set_verticalAlign;
- property textTransform: WideString read Get_textTransform write Set_textTransform;
- property textAlign: WideString read Get_textAlign write Set_textAlign;
- property textIndent: OleVariant read Get_textIndent write Set_textIndent;
- property lineHeight: OleVariant read Get_lineHeight write Set_lineHeight;
- property marginTop: OleVariant read Get_marginTop write Set_marginTop;
- property marginRight: OleVariant read Get_marginRight write Set_marginRight;
- property marginBottom: OleVariant read Get_marginBottom write Set_marginBottom;
- property marginLeft: OleVariant read Get_marginLeft write Set_marginLeft;
- property margin: WideString read Get_margin write Set_margin;
- property paddingTop: OleVariant read Get_paddingTop write Set_paddingTop;
- property paddingRight: OleVariant read Get_paddingRight write Set_paddingRight;
- property paddingBottom: OleVariant read Get_paddingBottom write Set_paddingBottom;
- property paddingLeft: OleVariant read Get_paddingLeft write Set_paddingLeft;
- property padding: WideString read Get_padding write Set_padding;
- property border: WideString read Get_border write Set_border;
- property borderTop: WideString read Get_borderTop write Set_borderTop;
- property borderRight: WideString read Get_borderRight write Set_borderRight;
- property borderBottom: WideString read Get_borderBottom write Set_borderBottom;
- property borderLeft: WideString read Get_borderLeft write Set_borderLeft;
- property borderColor: WideString read Get_borderColor write Set_borderColor;
- property borderTopColor: OleVariant read Get_borderTopColor write Set_borderTopColor;
- property borderRightColor: OleVariant read Get_borderRightColor write Set_borderRightColor;
- property borderBottomColor: OleVariant read Get_borderBottomColor write Set_borderBottomColor;
- property borderLeftColor: OleVariant read Get_borderLeftColor write Set_borderLeftColor;
- property borderWidth: WideString read Get_borderWidth write Set_borderWidth;
- property borderTopWidth: OleVariant read Get_borderTopWidth write Set_borderTopWidth;
- property borderRightWidth: OleVariant read Get_borderRightWidth write Set_borderRightWidth;
- property borderBottomWidth: OleVariant read Get_borderBottomWidth write Set_borderBottomWidth;
- property borderLeftWidth: OleVariant read Get_borderLeftWidth write Set_borderLeftWidth;
- property borderStyle: WideString read Get_borderStyle write Set_borderStyle;
- property borderTopStyle: WideString read Get_borderTopStyle write Set_borderTopStyle;
- property borderRightStyle: WideString read Get_borderRightStyle write Set_borderRightStyle;
- property borderBottomStyle: WideString read Get_borderBottomStyle write Set_borderBottomStyle;
- property borderLeftStyle: WideString read Get_borderLeftStyle write Set_borderLeftStyle;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- property styleFloat: WideString read Get_styleFloat write Set_styleFloat;
- property clear: WideString read Get_clear write Set_clear;
- property display: WideString read Get_display write Set_display;
- property visibility: WideString read Get_visibility write Set_visibility;
- property listStyleType: WideString read Get_listStyleType write Set_listStyleType;
- property listStylePosition: WideString read Get_listStylePosition write Set_listStylePosition;
- property listStyleImage: WideString read Get_listStyleImage write Set_listStyleImage;
- property listStyle: WideString read Get_listStyle write Set_listStyle;
- property whiteSpace: WideString read Get_whiteSpace write Set_whiteSpace;
- property top: OleVariant read Get_top write Set_top;
- property left: OleVariant read Get_left write Set_left;
- property position: WideString read Get_position;
- property zIndex: OleVariant read Get_zIndex write Set_zIndex;
- property overflow: WideString read Get_overflow write Set_overflow;
- property pageBreakBefore: WideString read Get_pageBreakBefore write Set_pageBreakBefore;
- property pageBreakAfter: WideString read Get_pageBreakAfter write Set_pageBreakAfter;
- property cssText: WideString read Get_cssText write Set_cssText;
- property cursor: WideString read Get_cursor write Set_cursor;
- property clip: WideString read Get_clip write Set_clip;
- property filter: WideString read Get_filter write Set_filter;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRuleStyleDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3CF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyleDisp = dispinterface
- ['{3050F3CF-98B5-11CF-BB82-00AA00BDCE0B}']
- property fontFamily: WideString dispid - 2147413094;
- property fontStyle: WideString dispid - 2147413088;
- property fontVariant: WideString dispid - 2147413087;
- property fontWeight: WideString dispid - 2147413085;
- property fontSize: OleVariant dispid - 2147413093;
- property font: WideString dispid - 2147413071;
- property color: OleVariant dispid - 2147413110;
- property background: WideString dispid - 2147413080;
- property backgroundColor: OleVariant dispid - 501;
- property backgroundImage: WideString dispid - 2147413111;
- property backgroundRepeat: WideString dispid - 2147413068;
- property backgroundAttachment: WideString dispid - 2147413067;
- property backgroundPosition: WideString dispid - 2147413066;
- property backgroundPositionX: OleVariant dispid - 2147413079;
- property backgroundPositionY: OleVariant dispid - 2147413078;
- property wordSpacing: OleVariant dispid - 2147413065;
- property letterSpacing: OleVariant dispid - 2147413104;
- property textDecoration: WideString dispid - 2147413077;
- property textDecorationNone: WordBool dispid - 2147413089;
- property textDecorationUnderline: WordBool dispid - 2147413091;
- property textDecorationOverline: WordBool dispid - 2147413043;
- property textDecorationLineThrough: WordBool dispid - 2147413092;
- property textDecorationBlink: WordBool dispid - 2147413090;
- property verticalAlign: OleVariant dispid - 2147413064;
- property textTransform: WideString dispid - 2147413108;
- property textAlign: WideString dispid - 2147418040;
- property textIndent: OleVariant dispid - 2147413105;
- property lineHeight: OleVariant dispid - 2147413106;
- property marginTop: OleVariant dispid - 2147413075;
- property marginRight: OleVariant dispid - 2147413074;
- property marginBottom: OleVariant dispid - 2147413073;
- property marginLeft: OleVariant dispid - 2147413072;
- property margin: WideString dispid - 2147413076;
- property paddingTop: OleVariant dispid - 2147413100;
- property paddingRight: OleVariant dispid - 2147413099;
- property paddingBottom: OleVariant dispid - 2147413098;
- property paddingLeft: OleVariant dispid - 2147413097;
- property padding: WideString dispid - 2147413101;
- property border: WideString dispid - 2147413063;
- property borderTop: WideString dispid - 2147413062;
- property borderRight: WideString dispid - 2147413061;
- property borderBottom: WideString dispid - 2147413060;
- property borderLeft: WideString dispid - 2147413059;
- property borderColor: WideString dispid - 2147413058;
- property borderTopColor: OleVariant dispid - 2147413057;
- property borderRightColor: OleVariant dispid - 2147413056;
- property borderBottomColor: OleVariant dispid - 2147413055;
- property borderLeftColor: OleVariant dispid - 2147413054;
- property borderWidth: WideString dispid - 2147413053;
- property borderTopWidth: OleVariant dispid - 2147413052;
- property borderRightWidth: OleVariant dispid - 2147413051;
- property borderBottomWidth: OleVariant dispid - 2147413050;
- property borderLeftWidth: OleVariant dispid - 2147413049;
- property borderStyle: WideString dispid - 2147413048;
- property borderTopStyle: WideString dispid - 2147413047;
- property borderRightStyle: WideString dispid - 2147413046;
- property borderBottomStyle: WideString dispid - 2147413045;
- property borderLeftStyle: WideString dispid - 2147413044;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property styleFloat: WideString dispid - 2147413042;
- property clear: WideString dispid - 2147413096;
- property display: WideString dispid - 2147413041;
- property visibility: WideString dispid - 2147413032;
- property listStyleType: WideString dispid - 2147413040;
- property listStylePosition: WideString dispid - 2147413039;
- property listStyleImage: WideString dispid - 2147413038;
- property listStyle: WideString dispid - 2147413037;
- property whiteSpace: WideString dispid - 2147413036;
- property top: OleVariant dispid - 2147418108;
- property left: OleVariant dispid - 2147418109;
- property position: WideString readonly dispid - 2147413022;
- property zIndex: OleVariant dispid - 2147413021;
- property overflow: WideString dispid - 2147413102;
- property pageBreakBefore: WideString dispid - 2147413035;
- property pageBreakAfter: WideString dispid - 2147413034;
- property cssText: WideString dispid - 2147413013;
- property cursor: WideString dispid - 2147413010;
- property clip: WideString dispid - 2147413020;
- property filter: WideString dispid - 2147413030;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRuleStyle2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4AC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle2 = interface(IDispatch)
- ['{3050F4AC-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_tableLayout(const p: WideString); safecall;
- function Get_tableLayout: WideString; safecall;
- procedure Set_borderCollapse(const p: WideString); safecall;
- function Get_borderCollapse: WideString; safecall;
- procedure Set_direction(const p: WideString); safecall;
- function Get_direction: WideString; safecall;
- procedure Set_behavior(const p: WideString); safecall;
- function Get_behavior: WideString; safecall;
- procedure Set_position(const p: WideString); safecall;
- function Get_position: WideString; safecall;
- procedure Set_unicodeBidi(const p: WideString); safecall;
- function Get_unicodeBidi: WideString; safecall;
- procedure Set_bottom(p: OleVariant); safecall;
- function Get_bottom: OleVariant; safecall;
- procedure Set_right(p: OleVariant); safecall;
- function Get_right: OleVariant; safecall;
- procedure Set_pixelBottom(p: Integer); safecall;
- function Get_pixelBottom: Integer; safecall;
- procedure Set_pixelRight(p: Integer); safecall;
- function Get_pixelRight: Integer; safecall;
- procedure Set_posBottom(p: Single); safecall;
- function Get_posBottom: Single; safecall;
- procedure Set_posRight(p: Single); safecall;
- function Get_posRight: Single; safecall;
- procedure Set_imeMode(const p: WideString); safecall;
- function Get_imeMode: WideString; safecall;
- procedure Set_rubyAlign(const p: WideString); safecall;
- function Get_rubyAlign: WideString; safecall;
- procedure Set_rubyPosition(const p: WideString); safecall;
- function Get_rubyPosition: WideString; safecall;
- procedure Set_rubyOverhang(const p: WideString); safecall;
- function Get_rubyOverhang: WideString; safecall;
- procedure Set_layoutGridChar(p: OleVariant); safecall;
- function Get_layoutGridChar: OleVariant; safecall;
- procedure Set_layoutGridLine(p: OleVariant); safecall;
- function Get_layoutGridLine: OleVariant; safecall;
- procedure Set_layoutGridMode(const p: WideString); safecall;
- function Get_layoutGridMode: WideString; safecall;
- procedure Set_layoutGridType(const p: WideString); safecall;
- function Get_layoutGridType: WideString; safecall;
- procedure Set_layoutGrid(const p: WideString); safecall;
- function Get_layoutGrid: WideString; safecall;
- procedure Set_textAutospace(const p: WideString); safecall;
- function Get_textAutospace: WideString; safecall;
- procedure Set_wordBreak(const p: WideString); safecall;
- function Get_wordBreak: WideString; safecall;
- procedure Set_lineBreak(const p: WideString); safecall;
- function Get_lineBreak: WideString; safecall;
- procedure Set_textJustify(const p: WideString); safecall;
- function Get_textJustify: WideString; safecall;
- procedure Set_textJustifyTrim(const p: WideString); safecall;
- function Get_textJustifyTrim: WideString; safecall;
- procedure Set_textKashida(p: OleVariant); safecall;
- function Get_textKashida: OleVariant; safecall;
- procedure Set_overflowX(const p: WideString); safecall;
- function Get_overflowX: WideString; safecall;
- procedure Set_overflowY(const p: WideString); safecall;
- function Get_overflowY: WideString; safecall;
- procedure Set_accelerator(const p: WideString); safecall;
- function Get_accelerator: WideString; safecall;
- property tableLayout: WideString read Get_tableLayout write Set_tableLayout;
- property borderCollapse: WideString read Get_borderCollapse write Set_borderCollapse;
- property direction: WideString read Get_direction write Set_direction;
- property behavior: WideString read Get_behavior write Set_behavior;
- property position: WideString read Get_position write Set_position;
- property unicodeBidi: WideString read Get_unicodeBidi write Set_unicodeBidi;
- property bottom: OleVariant read Get_bottom write Set_bottom;
- property right: OleVariant read Get_right write Set_right;
- property pixelBottom: Integer read Get_pixelBottom write Set_pixelBottom;
- property pixelRight: Integer read Get_pixelRight write Set_pixelRight;
- property posBottom: Single read Get_posBottom write Set_posBottom;
- property posRight: Single read Get_posRight write Set_posRight;
- property imeMode: WideString read Get_imeMode write Set_imeMode;
- property rubyAlign: WideString read Get_rubyAlign write Set_rubyAlign;
- property rubyPosition: WideString read Get_rubyPosition write Set_rubyPosition;
- property rubyOverhang: WideString read Get_rubyOverhang write Set_rubyOverhang;
- property layoutGridChar: OleVariant read Get_layoutGridChar write Set_layoutGridChar;
- property layoutGridLine: OleVariant read Get_layoutGridLine write Set_layoutGridLine;
- property layoutGridMode: WideString read Get_layoutGridMode write Set_layoutGridMode;
- property layoutGridType: WideString read Get_layoutGridType write Set_layoutGridType;
- property layoutGrid: WideString read Get_layoutGrid write Set_layoutGrid;
- property textAutospace: WideString read Get_textAutospace write Set_textAutospace;
- property wordBreak: WideString read Get_wordBreak write Set_wordBreak;
- property lineBreak: WideString read Get_lineBreak write Set_lineBreak;
- property textJustify: WideString read Get_textJustify write Set_textJustify;
- property textJustifyTrim: WideString read Get_textJustifyTrim write Set_textJustifyTrim;
- property textKashida: OleVariant read Get_textKashida write Set_textKashida;
- property overflowX: WideString read Get_overflowX write Set_overflowX;
- property overflowY: WideString read Get_overflowY write Set_overflowY;
- property accelerator: WideString read Get_accelerator write Set_accelerator;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRuleStyle2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4AC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle2Disp = dispinterface
- ['{3050F4AC-98B5-11CF-BB82-00AA00BDCE0B}']
- property tableLayout: WideString dispid - 2147413014;
- property borderCollapse: WideString dispid - 2147413028;
- property direction: WideString dispid - 2147412993;
- property behavior: WideString dispid - 2147412997;
- property position: WideString dispid - 2147413022;
- property unicodeBidi: WideString dispid - 2147412994;
- property bottom: OleVariant dispid - 2147418034;
- property right: OleVariant dispid - 2147418035;
- property pixelBottom: Integer dispid - 2147414103;
- property pixelRight: Integer dispid - 2147414102;
- property posBottom: Single dispid - 2147414101;
- property posRight: Single dispid - 2147414100;
- property imeMode: WideString dispid - 2147412992;
- property rubyAlign: WideString dispid - 2147412991;
- property rubyPosition: WideString dispid - 2147412990;
- property rubyOverhang: WideString dispid - 2147412989;
- property layoutGridChar: OleVariant dispid - 2147412985;
- property layoutGridLine: OleVariant dispid - 2147412984;
- property layoutGridMode: WideString dispid - 2147412983;
- property layoutGridType: WideString dispid - 2147412982;
- property layoutGrid: WideString dispid - 2147412981;
- property textAutospace: WideString dispid - 2147412980;
- property wordBreak: WideString dispid - 2147412978;
- property lineBreak: WideString dispid - 2147412979;
- property textJustify: WideString dispid - 2147412977;
- property textJustifyTrim: WideString dispid - 2147412976;
- property textKashida: OleVariant dispid - 2147412975;
- property overflowX: WideString dispid - 2147412973;
- property overflowY: WideString dispid - 2147412972;
- property accelerator: WideString dispid - 2147412965;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRuleStyle3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F657-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle3 = interface(IDispatch)
- ['{3050F657-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_layoutFlow(const p: WideString); safecall;
- function Get_layoutFlow: WideString; safecall;
- procedure Set_zoom(p: OleVariant); safecall;
- function Get_zoom: OleVariant; safecall;
- procedure Set_wordWrap(const p: WideString); safecall;
- function Get_wordWrap: WideString; safecall;
- procedure Set_textUnderlinePosition(const p: WideString); safecall;
- function Get_textUnderlinePosition: WideString; safecall;
- procedure Set_scrollbarBaseColor(p: OleVariant); safecall;
- function Get_scrollbarBaseColor: OleVariant; safecall;
- procedure Set_scrollbarFaceColor(p: OleVariant); safecall;
- function Get_scrollbarFaceColor: OleVariant; safecall;
- procedure Set_scrollbar3dLightColor(p: OleVariant); safecall;
- function Get_scrollbar3dLightColor: OleVariant; safecall;
- procedure Set_scrollbarShadowColor(p: OleVariant); safecall;
- function Get_scrollbarShadowColor: OleVariant; safecall;
- procedure Set_scrollbarHighlightColor(p: OleVariant); safecall;
- function Get_scrollbarHighlightColor: OleVariant; safecall;
- procedure Set_scrollbarDarkShadowColor(p: OleVariant); safecall;
- function Get_scrollbarDarkShadowColor: OleVariant; safecall;
- procedure Set_scrollbarArrowColor(p: OleVariant); safecall;
- function Get_scrollbarArrowColor: OleVariant; safecall;
- procedure Set_scrollbarTrackColor(p: OleVariant); safecall;
- function Get_scrollbarTrackColor: OleVariant; safecall;
- procedure Set_writingMode(const p: WideString); safecall;
- function Get_writingMode: WideString; safecall;
- procedure Set_textAlignLast(const p: WideString); safecall;
- function Get_textAlignLast: WideString; safecall;
- procedure Set_textKashidaSpace(p: OleVariant); safecall;
- function Get_textKashidaSpace: OleVariant; safecall;
- property layoutFlow: WideString read Get_layoutFlow write Set_layoutFlow;
- property zoom: OleVariant read Get_zoom write Set_zoom;
- property wordWrap: WideString read Get_wordWrap write Set_wordWrap;
- property textUnderlinePosition: WideString read Get_textUnderlinePosition write Set_textUnderlinePosition;
- property scrollbarBaseColor: OleVariant read Get_scrollbarBaseColor write Set_scrollbarBaseColor;
- property scrollbarFaceColor: OleVariant read Get_scrollbarFaceColor write Set_scrollbarFaceColor;
- property scrollbar3dLightColor: OleVariant read Get_scrollbar3dLightColor write Set_scrollbar3dLightColor;
- property scrollbarShadowColor: OleVariant read Get_scrollbarShadowColor write Set_scrollbarShadowColor;
- property scrollbarHighlightColor: OleVariant read Get_scrollbarHighlightColor write Set_scrollbarHighlightColor;
- property scrollbarDarkShadowColor: OleVariant read Get_scrollbarDarkShadowColor write Set_scrollbarDarkShadowColor;
- property scrollbarArrowColor: OleVariant read Get_scrollbarArrowColor write Set_scrollbarArrowColor;
- property scrollbarTrackColor: OleVariant read Get_scrollbarTrackColor write Set_scrollbarTrackColor;
- property writingMode: WideString read Get_writingMode write Set_writingMode;
- property textAlignLast: WideString read Get_textAlignLast write Set_textAlignLast;
- property textKashidaSpace: OleVariant read Get_textKashidaSpace write Set_textKashidaSpace;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRuleStyle3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F657-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle3Disp = dispinterface
- ['{3050F657-98B5-11CF-BB82-00AA00BDCE0B}']
- property layoutFlow: WideString dispid - 2147412957;
- property zoom: OleVariant dispid - 2147412959;
- property wordWrap: WideString dispid - 2147412954;
- property textUnderlinePosition: WideString dispid - 2147412953;
- property scrollbarBaseColor: OleVariant dispid - 2147412932;
- property scrollbarFaceColor: OleVariant dispid - 2147412931;
- property scrollbar3dLightColor: OleVariant dispid - 2147412930;
- property scrollbarShadowColor: OleVariant dispid - 2147412929;
- property scrollbarHighlightColor: OleVariant dispid - 2147412928;
- property scrollbarDarkShadowColor: OleVariant dispid - 2147412927;
- property scrollbarArrowColor: OleVariant dispid - 2147412926;
- property scrollbarTrackColor: OleVariant dispid - 2147412916;
- property writingMode: WideString dispid - 2147412920;
- property textAlignLast: WideString dispid - 2147412909;
- property textKashidaSpace: OleVariant dispid - 2147412908;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRuleStyle4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F817-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle4 = interface(IDispatch)
- ['{3050F817-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_textOverflow(const p: WideString); safecall;
- function Get_textOverflow: WideString; safecall;
- procedure Set_minHeight(p: OleVariant); safecall;
- function Get_minHeight: OleVariant; safecall;
- property textOverflow: WideString read Get_textOverflow write Set_textOverflow;
- property minHeight: OleVariant read Get_minHeight write Set_minHeight;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRuleStyle4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F817-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRuleStyle4Disp = dispinterface
- ['{3050F817-98B5-11CF-BB82-00AA00BDCE0B}']
- property textOverflow: WideString dispid - 2147412903;
- property minHeight: OleVariant dispid - 2147412901;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLStyle
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F55A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLStyle = dispinterface
- ['{3050F55A-98B5-11CF-BB82-00AA00BDCE0B}']
- property fontFamily: WideString dispid - 2147413094;
- property fontStyle: WideString dispid - 2147413088;
- property fontVariant: WideString dispid - 2147413087;
- property fontWeight: WideString dispid - 2147413085;
- property fontSize: OleVariant dispid - 2147413093;
- property font: WideString dispid - 2147413071;
- property color: OleVariant dispid - 2147413110;
- property background: WideString dispid - 2147413080;
- property backgroundColor: OleVariant dispid - 501;
- property backgroundImage: WideString dispid - 2147413111;
- property backgroundRepeat: WideString dispid - 2147413068;
- property backgroundAttachment: WideString dispid - 2147413067;
- property backgroundPosition: WideString dispid - 2147413066;
- property backgroundPositionX: OleVariant dispid - 2147413079;
- property backgroundPositionY: OleVariant dispid - 2147413078;
- property wordSpacing: OleVariant dispid - 2147413065;
- property letterSpacing: OleVariant dispid - 2147413104;
- property textDecoration: WideString dispid - 2147413077;
- property textDecorationNone: WordBool dispid - 2147413089;
- property textDecorationUnderline: WordBool dispid - 2147413091;
- property textDecorationOverline: WordBool dispid - 2147413043;
- property textDecorationLineThrough: WordBool dispid - 2147413092;
- property textDecorationBlink: WordBool dispid - 2147413090;
- property verticalAlign: OleVariant dispid - 2147413064;
- property textTransform: WideString dispid - 2147413108;
- property textAlign: WideString dispid - 2147418040;
- property textIndent: OleVariant dispid - 2147413105;
- property lineHeight: OleVariant dispid - 2147413106;
- property marginTop: OleVariant dispid - 2147413075;
- property marginRight: OleVariant dispid - 2147413074;
- property marginBottom: OleVariant dispid - 2147413073;
- property marginLeft: OleVariant dispid - 2147413072;
- property margin: WideString dispid - 2147413076;
- property paddingTop: OleVariant dispid - 2147413100;
- property paddingRight: OleVariant dispid - 2147413099;
- property paddingBottom: OleVariant dispid - 2147413098;
- property paddingLeft: OleVariant dispid - 2147413097;
- property padding: WideString dispid - 2147413101;
- property border: WideString dispid - 2147413063;
- property borderTop: WideString dispid - 2147413062;
- property borderRight: WideString dispid - 2147413061;
- property borderBottom: WideString dispid - 2147413060;
- property borderLeft: WideString dispid - 2147413059;
- property borderColor: WideString dispid - 2147413058;
- property borderTopColor: OleVariant dispid - 2147413057;
- property borderRightColor: OleVariant dispid - 2147413056;
- property borderBottomColor: OleVariant dispid - 2147413055;
- property borderLeftColor: OleVariant dispid - 2147413054;
- property borderWidth: WideString dispid - 2147413053;
- property borderTopWidth: OleVariant dispid - 2147413052;
- property borderRightWidth: OleVariant dispid - 2147413051;
- property borderBottomWidth: OleVariant dispid - 2147413050;
- property borderLeftWidth: OleVariant dispid - 2147413049;
- property borderStyle: WideString dispid - 2147413048;
- property borderTopStyle: WideString dispid - 2147413047;
- property borderRightStyle: WideString dispid - 2147413046;
- property borderBottomStyle: WideString dispid - 2147413045;
- property borderLeftStyle: WideString dispid - 2147413044;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property styleFloat: WideString dispid - 2147413042;
- property clear: WideString dispid - 2147413096;
- property display: WideString dispid - 2147413041;
- property visibility: WideString dispid - 2147413032;
- property listStyleType: WideString dispid - 2147413040;
- property listStylePosition: WideString dispid - 2147413039;
- property listStyleImage: WideString dispid - 2147413038;
- property listStyle: WideString dispid - 2147413037;
- property whiteSpace: WideString dispid - 2147413036;
- property top: OleVariant dispid - 2147418108;
- property left: OleVariant dispid - 2147418109;
- property zIndex: OleVariant dispid - 2147413021;
- property overflow: WideString dispid - 2147413102;
- property pageBreakBefore: WideString dispid - 2147413035;
- property pageBreakAfter: WideString dispid - 2147413034;
- property cssText: WideString dispid - 2147413013;
- property pixelTop: Integer dispid - 2147414112;
- property pixelLeft: Integer dispid - 2147414111;
- property pixelWidth: Integer dispid - 2147414110;
- property pixelHeight: Integer dispid - 2147414109;
- property posTop: Single dispid - 2147414108;
- property posLeft: Single dispid - 2147414107;
- property posWidth: Single dispid - 2147414106;
- property posHeight: Single dispid - 2147414105;
- property cursor: WideString dispid - 2147413010;
- property clip: WideString dispid - 2147413020;
- property filter: WideString dispid - 2147413030;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- function toString: WideString; dispid - 2147414104;
- property tableLayout: WideString dispid - 2147413014;
- property borderCollapse: WideString dispid - 2147413028;
- property direction: WideString dispid - 2147412993;
- property behavior: WideString dispid - 2147412997;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property position: WideString dispid - 2147413022;
- property unicodeBidi: WideString dispid - 2147412994;
- property bottom: OleVariant dispid - 2147418034;
- property right: OleVariant dispid - 2147418035;
- property pixelBottom: Integer dispid - 2147414103;
- property pixelRight: Integer dispid - 2147414102;
- property posBottom: Single dispid - 2147414101;
- property posRight: Single dispid - 2147414100;
- property imeMode: WideString dispid - 2147412992;
- property rubyAlign: WideString dispid - 2147412991;
- property rubyPosition: WideString dispid - 2147412990;
- property rubyOverhang: WideString dispid - 2147412989;
- property layoutGridChar: OleVariant dispid - 2147412985;
- property layoutGridLine: OleVariant dispid - 2147412984;
- property layoutGridMode: WideString dispid - 2147412983;
- property layoutGridType: WideString dispid - 2147412982;
- property layoutGrid: WideString dispid - 2147412981;
- property wordBreak: WideString dispid - 2147412978;
- property lineBreak: WideString dispid - 2147412979;
- property textJustify: WideString dispid - 2147412977;
- property textJustifyTrim: WideString dispid - 2147412976;
- property textKashida: OleVariant dispid - 2147412975;
- property textAutospace: WideString dispid - 2147412980;
- property overflowX: WideString dispid - 2147412973;
- property overflowY: WideString dispid - 2147412972;
- property accelerator: WideString dispid - 2147412965;
- property layoutFlow: WideString dispid - 2147412957;
- property zoom: OleVariant dispid - 2147412959;
- property wordWrap: WideString dispid - 2147412954;
- property textUnderlinePosition: WideString dispid - 2147412953;
- property scrollbarBaseColor: OleVariant dispid - 2147412932;
- property scrollbarFaceColor: OleVariant dispid - 2147412931;
- property scrollbar3dLightColor: OleVariant dispid - 2147412930;
- property scrollbarShadowColor: OleVariant dispid - 2147412929;
- property scrollbarHighlightColor: OleVariant dispid - 2147412928;
- property scrollbarDarkShadowColor: OleVariant dispid - 2147412927;
- property scrollbarArrowColor: OleVariant dispid - 2147412926;
- property scrollbarTrackColor: OleVariant dispid - 2147412916;
- property writingMode: WideString dispid - 2147412920;
- property textAlignLast: WideString dispid - 2147412909;
- property textKashidaSpace: OleVariant dispid - 2147412908;
- property textOverflow: WideString dispid - 2147412903;
- property minHeight: OleVariant dispid - 2147412901;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLRuleStyle
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F55C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLRuleStyle = dispinterface
- ['{3050F55C-98B5-11CF-BB82-00AA00BDCE0B}']
- property fontFamily: WideString dispid - 2147413094;
- property fontStyle: WideString dispid - 2147413088;
- property fontVariant: WideString dispid - 2147413087;
- property fontWeight: WideString dispid - 2147413085;
- property fontSize: OleVariant dispid - 2147413093;
- property font: WideString dispid - 2147413071;
- property color: OleVariant dispid - 2147413110;
- property background: WideString dispid - 2147413080;
- property backgroundColor: OleVariant dispid - 501;
- property backgroundImage: WideString dispid - 2147413111;
- property backgroundRepeat: WideString dispid - 2147413068;
- property backgroundAttachment: WideString dispid - 2147413067;
- property backgroundPosition: WideString dispid - 2147413066;
- property backgroundPositionX: OleVariant dispid - 2147413079;
- property backgroundPositionY: OleVariant dispid - 2147413078;
- property wordSpacing: OleVariant dispid - 2147413065;
- property letterSpacing: OleVariant dispid - 2147413104;
- property textDecoration: WideString dispid - 2147413077;
- property textDecorationNone: WordBool dispid - 2147413089;
- property textDecorationUnderline: WordBool dispid - 2147413091;
- property textDecorationOverline: WordBool dispid - 2147413043;
- property textDecorationLineThrough: WordBool dispid - 2147413092;
- property textDecorationBlink: WordBool dispid - 2147413090;
- property verticalAlign: OleVariant dispid - 2147413064;
- property textTransform: WideString dispid - 2147413108;
- property textAlign: WideString dispid - 2147418040;
- property textIndent: OleVariant dispid - 2147413105;
- property lineHeight: OleVariant dispid - 2147413106;
- property marginTop: OleVariant dispid - 2147413075;
- property marginRight: OleVariant dispid - 2147413074;
- property marginBottom: OleVariant dispid - 2147413073;
- property marginLeft: OleVariant dispid - 2147413072;
- property margin: WideString dispid - 2147413076;
- property paddingTop: OleVariant dispid - 2147413100;
- property paddingRight: OleVariant dispid - 2147413099;
- property paddingBottom: OleVariant dispid - 2147413098;
- property paddingLeft: OleVariant dispid - 2147413097;
- property padding: WideString dispid - 2147413101;
- property border: WideString dispid - 2147413063;
- property borderTop: WideString dispid - 2147413062;
- property borderRight: WideString dispid - 2147413061;
- property borderBottom: WideString dispid - 2147413060;
- property borderLeft: WideString dispid - 2147413059;
- property borderColor: WideString dispid - 2147413058;
- property borderTopColor: OleVariant dispid - 2147413057;
- property borderRightColor: OleVariant dispid - 2147413056;
- property borderBottomColor: OleVariant dispid - 2147413055;
- property borderLeftColor: OleVariant dispid - 2147413054;
- property borderWidth: WideString dispid - 2147413053;
- property borderTopWidth: OleVariant dispid - 2147413052;
- property borderRightWidth: OleVariant dispid - 2147413051;
- property borderBottomWidth: OleVariant dispid - 2147413050;
- property borderLeftWidth: OleVariant dispid - 2147413049;
- property borderStyle: WideString dispid - 2147413048;
- property borderTopStyle: WideString dispid - 2147413047;
- property borderRightStyle: WideString dispid - 2147413046;
- property borderBottomStyle: WideString dispid - 2147413045;
- property borderLeftStyle: WideString dispid - 2147413044;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property styleFloat: WideString dispid - 2147413042;
- property clear: WideString dispid - 2147413096;
- property display: WideString dispid - 2147413041;
- property visibility: WideString dispid - 2147413032;
- property listStyleType: WideString dispid - 2147413040;
- property listStylePosition: WideString dispid - 2147413039;
- property listStyleImage: WideString dispid - 2147413038;
- property listStyle: WideString dispid - 2147413037;
- property whiteSpace: WideString dispid - 2147413036;
- property top: OleVariant dispid - 2147418108;
- property left: OleVariant dispid - 2147418109;
- property zIndex: OleVariant dispid - 2147413021;
- property overflow: WideString dispid - 2147413102;
- property pageBreakBefore: WideString dispid - 2147413035;
- property pageBreakAfter: WideString dispid - 2147413034;
- property cssText: WideString dispid - 2147413013;
- property cursor: WideString dispid - 2147413010;
- property clip: WideString dispid - 2147413020;
- property filter: WideString dispid - 2147413030;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property tableLayout: WideString dispid - 2147413014;
- property borderCollapse: WideString dispid - 2147413028;
- property direction: WideString dispid - 2147412993;
- property behavior: WideString dispid - 2147412997;
- property position: WideString dispid - 2147413022;
- property unicodeBidi: WideString dispid - 2147412994;
- property bottom: OleVariant dispid - 2147418034;
- property right: OleVariant dispid - 2147418035;
- property pixelBottom: Integer dispid - 2147414103;
- property pixelRight: Integer dispid - 2147414102;
- property posBottom: Single dispid - 2147414101;
- property posRight: Single dispid - 2147414100;
- property imeMode: WideString dispid - 2147412992;
- property rubyAlign: WideString dispid - 2147412991;
- property rubyPosition: WideString dispid - 2147412990;
- property rubyOverhang: WideString dispid - 2147412989;
- property layoutGridChar: OleVariant dispid - 2147412985;
- property layoutGridLine: OleVariant dispid - 2147412984;
- property layoutGridMode: WideString dispid - 2147412983;
- property layoutGridType: WideString dispid - 2147412982;
- property layoutGrid: WideString dispid - 2147412981;
- property textAutospace: WideString dispid - 2147412980;
- property wordBreak: WideString dispid - 2147412978;
- property lineBreak: WideString dispid - 2147412979;
- property textJustify: WideString dispid - 2147412977;
- property textJustifyTrim: WideString dispid - 2147412976;
- property textKashida: OleVariant dispid - 2147412975;
- property overflowX: WideString dispid - 2147412973;
- property overflowY: WideString dispid - 2147412972;
- property accelerator: WideString dispid - 2147412965;
- property layoutFlow: WideString dispid - 2147412957;
- property zoom: OleVariant dispid - 2147412959;
- property wordWrap: WideString dispid - 2147412954;
- property textUnderlinePosition: WideString dispid - 2147412953;
- property scrollbarBaseColor: OleVariant dispid - 2147412932;
- property scrollbarFaceColor: OleVariant dispid - 2147412931;
- property scrollbar3dLightColor: OleVariant dispid - 2147412930;
- property scrollbarShadowColor: OleVariant dispid - 2147412929;
- property scrollbarHighlightColor: OleVariant dispid - 2147412928;
- property scrollbarDarkShadowColor: OleVariant dispid - 2147412927;
- property scrollbarArrowColor: OleVariant dispid - 2147412926;
- property scrollbarTrackColor: OleVariant dispid - 2147412916;
- property writingMode: WideString dispid - 2147412920;
- property textAlignLast: WideString dispid - 2147412909;
- property textKashidaSpace: OleVariant dispid - 2147412908;
- property textOverflow: WideString dispid - 2147412903;
- property minHeight: OleVariant dispid - 2147412901;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRenderStyle
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6AE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRenderStyle = interface(IDispatch)
- ['{3050F6AE-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_textLineThroughStyle(const p: WideString); safecall;
- function Get_textLineThroughStyle: WideString; safecall;
- procedure Set_textUnderlineStyle(const p: WideString); safecall;
- function Get_textUnderlineStyle: WideString; safecall;
- procedure Set_textEffect(const p: WideString); safecall;
- function Get_textEffect: WideString; safecall;
- procedure Set_textColor(p: OleVariant); safecall;
- function Get_textColor: OleVariant; safecall;
- procedure Set_textBackgroundColor(p: OleVariant); safecall;
- function Get_textBackgroundColor: OleVariant; safecall;
- procedure Set_textDecorationColor(p: OleVariant); safecall;
- function Get_textDecorationColor: OleVariant; safecall;
- procedure Set_renderingPriority(p: Integer); safecall;
- function Get_renderingPriority: Integer; safecall;
- procedure Set_defaultTextSelection(const p: WideString); safecall;
- function Get_defaultTextSelection: WideString; safecall;
- procedure Set_textDecoration(const p: WideString); safecall;
- function Get_textDecoration: WideString; safecall;
- property textLineThroughStyle: WideString read Get_textLineThroughStyle write Set_textLineThroughStyle;
- property textUnderlineStyle: WideString read Get_textUnderlineStyle write Set_textUnderlineStyle;
- property textEffect: WideString read Get_textEffect write Set_textEffect;
- property textColor: OleVariant read Get_textColor write Set_textColor;
- property textBackgroundColor: OleVariant read Get_textBackgroundColor write Set_textBackgroundColor;
- property textDecorationColor: OleVariant read Get_textDecorationColor write Set_textDecorationColor;
- property renderingPriority: Integer read Get_renderingPriority write Set_renderingPriority;
- property defaultTextSelection: WideString read Get_defaultTextSelection write Set_defaultTextSelection;
- property textDecoration: WideString read Get_textDecoration write Set_textDecoration;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRenderStyleDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6AE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRenderStyleDisp = dispinterface
- ['{3050F6AE-98B5-11CF-BB82-00AA00BDCE0B}']
- property textLineThroughStyle: WideString dispid - 2147412946;
- property textUnderlineStyle: WideString dispid - 2147412945;
- property textEffect: WideString dispid - 2147412944;
- property textColor: OleVariant dispid - 2147412922;
- property textBackgroundColor: OleVariant dispid - 2147412943;
- property textDecorationColor: OleVariant dispid - 2147412923;
- property renderingPriority: Integer dispid - 2147412942;
- property defaultTextSelection: WideString dispid - 2147412924;
- property textDecoration: WideString dispid - 2147412921;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLRenderStyle
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F58B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLRenderStyle = dispinterface
- ['{3050F58B-98B5-11CF-BB82-00AA00BDCE0B}']
- property textLineThroughStyle: WideString dispid - 2147412946;
- property textUnderlineStyle: WideString dispid - 2147412945;
- property textEffect: WideString dispid - 2147412944;
- property textColor: OleVariant dispid - 2147412922;
- property textBackgroundColor: OleVariant dispid - 2147412943;
- property textDecorationColor: OleVariant dispid - 2147412923;
- property renderingPriority: Integer dispid - 2147412942;
- property defaultTextSelection: WideString dispid - 2147412924;
- property textDecoration: WideString dispid - 2147412921;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLCurrentStyle
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3DB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCurrentStyle = interface(IDispatch)
- ['{3050F3DB-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_position: WideString; safecall;
- function Get_styleFloat: WideString; safecall;
- function Get_color: OleVariant; safecall;
- function Get_backgroundColor: OleVariant; safecall;
- function Get_fontFamily: WideString; safecall;
- function Get_fontStyle: WideString; safecall;
- function Get_fontVariant: WideString; safecall;
- function Get_fontWeight: OleVariant; safecall;
- function Get_fontSize: OleVariant; safecall;
- function Get_backgroundImage: WideString; safecall;
- function Get_backgroundPositionX: OleVariant; safecall;
- function Get_backgroundPositionY: OleVariant; safecall;
- function Get_backgroundRepeat: WideString; safecall;
- function Get_borderLeftColor: OleVariant; safecall;
- function Get_borderTopColor: OleVariant; safecall;
- function Get_borderRightColor: OleVariant; safecall;
- function Get_borderBottomColor: OleVariant; safecall;
- function Get_borderTopStyle: WideString; safecall;
- function Get_borderRightStyle: WideString; safecall;
- function Get_borderBottomStyle: WideString; safecall;
- function Get_borderLeftStyle: WideString; safecall;
- function Get_borderTopWidth: OleVariant; safecall;
- function Get_borderRightWidth: OleVariant; safecall;
- function Get_borderBottomWidth: OleVariant; safecall;
- function Get_borderLeftWidth: OleVariant; safecall;
- function Get_left: OleVariant; safecall;
- function Get_top: OleVariant; safecall;
- function Get_width: OleVariant; safecall;
- function Get_height: OleVariant; safecall;
- function Get_paddingLeft: OleVariant; safecall;
- function Get_paddingTop: OleVariant; safecall;
- function Get_paddingRight: OleVariant; safecall;
- function Get_paddingBottom: OleVariant; safecall;
- function Get_textAlign: WideString; safecall;
- function Get_textDecoration: WideString; safecall;
- function Get_display: WideString; safecall;
- function Get_visibility: WideString; safecall;
- function Get_zIndex: OleVariant; safecall;
- function Get_letterSpacing: OleVariant; safecall;
- function Get_lineHeight: OleVariant; safecall;
- function Get_textIndent: OleVariant; safecall;
- function Get_verticalAlign: OleVariant; safecall;
- function Get_backgroundAttachment: WideString; safecall;
- function Get_marginTop: OleVariant; safecall;
- function Get_marginRight: OleVariant; safecall;
- function Get_marginBottom: OleVariant; safecall;
- function Get_marginLeft: OleVariant; safecall;
- function Get_clear: WideString; safecall;
- function Get_listStyleType: WideString; safecall;
- function Get_listStylePosition: WideString; safecall;
- function Get_listStyleImage: WideString; safecall;
- function Get_clipTop: OleVariant; safecall;
- function Get_clipRight: OleVariant; safecall;
- function Get_clipBottom: OleVariant; safecall;
- function Get_clipLeft: OleVariant; safecall;
- function Get_overflow: WideString; safecall;
- function Get_pageBreakBefore: WideString; safecall;
- function Get_pageBreakAfter: WideString; safecall;
- function Get_cursor: WideString; safecall;
- function Get_tableLayout: WideString; safecall;
- function Get_borderCollapse: WideString; safecall;
- function Get_direction: WideString; safecall;
- function Get_behavior: WideString; safecall;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; safecall;
- function Get_unicodeBidi: WideString; safecall;
- function Get_right: OleVariant; safecall;
- function Get_bottom: OleVariant; safecall;
- function Get_imeMode: WideString; safecall;
- function Get_rubyAlign: WideString; safecall;
- function Get_rubyPosition: WideString; safecall;
- function Get_rubyOverhang: WideString; safecall;
- function Get_textAutospace: WideString; safecall;
- function Get_lineBreak: WideString; safecall;
- function Get_wordBreak: WideString; safecall;
- function Get_textJustify: WideString; safecall;
- function Get_textJustifyTrim: WideString; safecall;
- function Get_textKashida: OleVariant; safecall;
- function Get_blockDirection: WideString; safecall;
- function Get_layoutGridChar: OleVariant; safecall;
- function Get_layoutGridLine: OleVariant; safecall;
- function Get_layoutGridMode: WideString; safecall;
- function Get_layoutGridType: WideString; safecall;
- function Get_borderStyle: WideString; safecall;
- function Get_borderColor: WideString; safecall;
- function Get_borderWidth: WideString; safecall;
- function Get_padding: WideString; safecall;
- function Get_margin: WideString; safecall;
- function Get_accelerator: WideString; safecall;
- function Get_overflowX: WideString; safecall;
- function Get_overflowY: WideString; safecall;
- function Get_textTransform: WideString; safecall;
- property position: WideString read Get_position;
- property styleFloat: WideString read Get_styleFloat;
- property color: OleVariant read Get_color;
- property backgroundColor: OleVariant read Get_backgroundColor;
- property fontFamily: WideString read Get_fontFamily;
- property fontStyle: WideString read Get_fontStyle;
- property fontVariant: WideString read Get_fontVariant;
- property fontWeight: OleVariant read Get_fontWeight;
- property fontSize: OleVariant read Get_fontSize;
- property backgroundImage: WideString read Get_backgroundImage;
- property backgroundPositionX: OleVariant read Get_backgroundPositionX;
- property backgroundPositionY: OleVariant read Get_backgroundPositionY;
- property backgroundRepeat: WideString read Get_backgroundRepeat;
- property borderLeftColor: OleVariant read Get_borderLeftColor;
- property borderTopColor: OleVariant read Get_borderTopColor;
- property borderRightColor: OleVariant read Get_borderRightColor;
- property borderBottomColor: OleVariant read Get_borderBottomColor;
- property borderTopStyle: WideString read Get_borderTopStyle;
- property borderRightStyle: WideString read Get_borderRightStyle;
- property borderBottomStyle: WideString read Get_borderBottomStyle;
- property borderLeftStyle: WideString read Get_borderLeftStyle;
- property borderTopWidth: OleVariant read Get_borderTopWidth;
- property borderRightWidth: OleVariant read Get_borderRightWidth;
- property borderBottomWidth: OleVariant read Get_borderBottomWidth;
- property borderLeftWidth: OleVariant read Get_borderLeftWidth;
- property left: OleVariant read Get_left;
- property top: OleVariant read Get_top;
- property width: OleVariant read Get_width;
- property height: OleVariant read Get_height;
- property paddingLeft: OleVariant read Get_paddingLeft;
- property paddingTop: OleVariant read Get_paddingTop;
- property paddingRight: OleVariant read Get_paddingRight;
- property paddingBottom: OleVariant read Get_paddingBottom;
- property textAlign: WideString read Get_textAlign;
- property textDecoration: WideString read Get_textDecoration;
- property display: WideString read Get_display;
- property visibility: WideString read Get_visibility;
- property zIndex: OleVariant read Get_zIndex;
- property letterSpacing: OleVariant read Get_letterSpacing;
- property lineHeight: OleVariant read Get_lineHeight;
- property textIndent: OleVariant read Get_textIndent;
- property verticalAlign: OleVariant read Get_verticalAlign;
- property backgroundAttachment: WideString read Get_backgroundAttachment;
- property marginTop: OleVariant read Get_marginTop;
- property marginRight: OleVariant read Get_marginRight;
- property marginBottom: OleVariant read Get_marginBottom;
- property marginLeft: OleVariant read Get_marginLeft;
- property clear: WideString read Get_clear;
- property listStyleType: WideString read Get_listStyleType;
- property listStylePosition: WideString read Get_listStylePosition;
- property listStyleImage: WideString read Get_listStyleImage;
- property clipTop: OleVariant read Get_clipTop;
- property clipRight: OleVariant read Get_clipRight;
- property clipBottom: OleVariant read Get_clipBottom;
- property clipLeft: OleVariant read Get_clipLeft;
- property overflow: WideString read Get_overflow;
- property pageBreakBefore: WideString read Get_pageBreakBefore;
- property pageBreakAfter: WideString read Get_pageBreakAfter;
- property cursor: WideString read Get_cursor;
- property tableLayout: WideString read Get_tableLayout;
- property borderCollapse: WideString read Get_borderCollapse;
- property direction: WideString read Get_direction;
- property behavior: WideString read Get_behavior;
- property unicodeBidi: WideString read Get_unicodeBidi;
- property right: OleVariant read Get_right;
- property bottom: OleVariant read Get_bottom;
- property imeMode: WideString read Get_imeMode;
- property rubyAlign: WideString read Get_rubyAlign;
- property rubyPosition: WideString read Get_rubyPosition;
- property rubyOverhang: WideString read Get_rubyOverhang;
- property textAutospace: WideString read Get_textAutospace;
- property lineBreak: WideString read Get_lineBreak;
- property wordBreak: WideString read Get_wordBreak;
- property textJustify: WideString read Get_textJustify;
- property textJustifyTrim: WideString read Get_textJustifyTrim;
- property textKashida: OleVariant read Get_textKashida;
- property blockDirection: WideString read Get_blockDirection;
- property layoutGridChar: OleVariant read Get_layoutGridChar;
- property layoutGridLine: OleVariant read Get_layoutGridLine;
- property layoutGridMode: WideString read Get_layoutGridMode;
- property layoutGridType: WideString read Get_layoutGridType;
- property borderStyle: WideString read Get_borderStyle;
- property borderColor: WideString read Get_borderColor;
- property borderWidth: WideString read Get_borderWidth;
- property padding: WideString read Get_padding;
- property margin: WideString read Get_margin;
- property accelerator: WideString read Get_accelerator;
- property overflowX: WideString read Get_overflowX;
- property overflowY: WideString read Get_overflowY;
- property textTransform: WideString read Get_textTransform;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLCurrentStyleDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3DB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCurrentStyleDisp = dispinterface
- ['{3050F3DB-98B5-11CF-BB82-00AA00BDCE0B}']
- property position: WideString readonly dispid - 2147413022;
- property styleFloat: WideString readonly dispid - 2147413042;
- property color: OleVariant readonly dispid - 2147413110;
- property backgroundColor: OleVariant readonly dispid - 501;
- property fontFamily: WideString readonly dispid - 2147413094;
- property fontStyle: WideString readonly dispid - 2147413088;
- property fontVariant: WideString readonly dispid - 2147413087;
- property fontWeight: OleVariant readonly dispid - 2147413085;
- property fontSize: OleVariant readonly dispid - 2147413093;
- property backgroundImage: WideString readonly dispid - 2147413111;
- property backgroundPositionX: OleVariant readonly dispid - 2147413079;
- property backgroundPositionY: OleVariant readonly dispid - 2147413078;
- property backgroundRepeat: WideString readonly dispid - 2147413068;
- property borderLeftColor: OleVariant readonly dispid - 2147413054;
- property borderTopColor: OleVariant readonly dispid - 2147413057;
- property borderRightColor: OleVariant readonly dispid - 2147413056;
- property borderBottomColor: OleVariant readonly dispid - 2147413055;
- property borderTopStyle: WideString readonly dispid - 2147413047;
- property borderRightStyle: WideString readonly dispid - 2147413046;
- property borderBottomStyle: WideString readonly dispid - 2147413045;
- property borderLeftStyle: WideString readonly dispid - 2147413044;
- property borderTopWidth: OleVariant readonly dispid - 2147413052;
- property borderRightWidth: OleVariant readonly dispid - 2147413051;
- property borderBottomWidth: OleVariant readonly dispid - 2147413050;
- property borderLeftWidth: OleVariant readonly dispid - 2147413049;
- property left: OleVariant readonly dispid - 2147418109;
- property top: OleVariant readonly dispid - 2147418108;
- property width: OleVariant readonly dispid - 2147418107;
- property height: OleVariant readonly dispid - 2147418106;
- property paddingLeft: OleVariant readonly dispid - 2147413097;
- property paddingTop: OleVariant readonly dispid - 2147413100;
- property paddingRight: OleVariant readonly dispid - 2147413099;
- property paddingBottom: OleVariant readonly dispid - 2147413098;
- property textAlign: WideString readonly dispid - 2147418040;
- property textDecoration: WideString readonly dispid - 2147413077;
- property display: WideString readonly dispid - 2147413041;
- property visibility: WideString readonly dispid - 2147413032;
- property zIndex: OleVariant readonly dispid - 2147413021;
- property letterSpacing: OleVariant readonly dispid - 2147413104;
- property lineHeight: OleVariant readonly dispid - 2147413106;
- property textIndent: OleVariant readonly dispid - 2147413105;
- property verticalAlign: OleVariant readonly dispid - 2147413064;
- property backgroundAttachment: WideString readonly dispid - 2147413067;
- property marginTop: OleVariant readonly dispid - 2147413075;
- property marginRight: OleVariant readonly dispid - 2147413074;
- property marginBottom: OleVariant readonly dispid - 2147413073;
- property marginLeft: OleVariant readonly dispid - 2147413072;
- property clear: WideString readonly dispid - 2147413096;
- property listStyleType: WideString readonly dispid - 2147413040;
- property listStylePosition: WideString readonly dispid - 2147413039;
- property listStyleImage: WideString readonly dispid - 2147413038;
- property clipTop: OleVariant readonly dispid - 2147413019;
- property clipRight: OleVariant readonly dispid - 2147413018;
- property clipBottom: OleVariant readonly dispid - 2147413017;
- property clipLeft: OleVariant readonly dispid - 2147413016;
- property overflow: WideString readonly dispid - 2147413102;
- property pageBreakBefore: WideString readonly dispid - 2147413035;
- property pageBreakAfter: WideString readonly dispid - 2147413034;
- property cursor: WideString readonly dispid - 2147413010;
- property tableLayout: WideString readonly dispid - 2147413014;
- property borderCollapse: WideString readonly dispid - 2147413028;
- property direction: WideString readonly dispid - 2147412993;
- property behavior: WideString readonly dispid - 2147412997;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- property unicodeBidi: WideString readonly dispid - 2147412994;
- property right: OleVariant readonly dispid - 2147418035;
- property bottom: OleVariant readonly dispid - 2147418034;
- property imeMode: WideString readonly dispid - 2147412992;
- property rubyAlign: WideString readonly dispid - 2147412991;
- property rubyPosition: WideString readonly dispid - 2147412990;
- property rubyOverhang: WideString readonly dispid - 2147412989;
- property textAutospace: WideString readonly dispid - 2147412980;
- property lineBreak: WideString readonly dispid - 2147412979;
- property wordBreak: WideString readonly dispid - 2147412978;
- property textJustify: WideString readonly dispid - 2147412977;
- property textJustifyTrim: WideString readonly dispid - 2147412976;
- property textKashida: OleVariant readonly dispid - 2147412975;
- property blockDirection: WideString readonly dispid - 2147412995;
- property layoutGridChar: OleVariant readonly dispid - 2147412985;
- property layoutGridLine: OleVariant readonly dispid - 2147412984;
- property layoutGridMode: WideString readonly dispid - 2147412983;
- property layoutGridType: WideString readonly dispid - 2147412982;
- property borderStyle: WideString readonly dispid - 2147413048;
- property borderColor: WideString readonly dispid - 2147413058;
- property borderWidth: WideString readonly dispid - 2147413053;
- property padding: WideString readonly dispid - 2147413101;
- property margin: WideString readonly dispid - 2147413076;
- property accelerator: WideString readonly dispid - 2147412965;
- property overflowX: WideString readonly dispid - 2147412973;
- property overflowY: WideString readonly dispid - 2147412972;
- property textTransform: WideString readonly dispid - 2147413108;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLCurrentStyle2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F658-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCurrentStyle2 = interface(IDispatch)
- ['{3050F658-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_layoutFlow: WideString; safecall;
- function Get_wordWrap: WideString; safecall;
- function Get_textUnderlinePosition: WideString; safecall;
- function Get_hasLayout: WordBool; safecall;
- function Get_scrollbarBaseColor: OleVariant; safecall;
- function Get_scrollbarFaceColor: OleVariant; safecall;
- function Get_scrollbar3dLightColor: OleVariant; safecall;
- function Get_scrollbarShadowColor: OleVariant; safecall;
- function Get_scrollbarHighlightColor: OleVariant; safecall;
- function Get_scrollbarDarkShadowColor: OleVariant; safecall;
- function Get_scrollbarArrowColor: OleVariant; safecall;
- function Get_scrollbarTrackColor: OleVariant; safecall;
- function Get_writingMode: WideString; safecall;
- function Get_zoom: OleVariant; safecall;
- function Get_filter: WideString; safecall;
- function Get_textAlignLast: WideString; safecall;
- function Get_textKashidaSpace: OleVariant; safecall;
- function Get_isBlock: WordBool; safecall;
- property layoutFlow: WideString read Get_layoutFlow;
- property wordWrap: WideString read Get_wordWrap;
- property textUnderlinePosition: WideString read Get_textUnderlinePosition;
- property hasLayout: WordBool read Get_hasLayout;
- property scrollbarBaseColor: OleVariant read Get_scrollbarBaseColor;
- property scrollbarFaceColor: OleVariant read Get_scrollbarFaceColor;
- property scrollbar3dLightColor: OleVariant read Get_scrollbar3dLightColor;
- property scrollbarShadowColor: OleVariant read Get_scrollbarShadowColor;
- property scrollbarHighlightColor: OleVariant read Get_scrollbarHighlightColor;
- property scrollbarDarkShadowColor: OleVariant read Get_scrollbarDarkShadowColor;
- property scrollbarArrowColor: OleVariant read Get_scrollbarArrowColor;
- property scrollbarTrackColor: OleVariant read Get_scrollbarTrackColor;
- property writingMode: WideString read Get_writingMode;
- property zoom: OleVariant read Get_zoom;
- property filter: WideString read Get_filter;
- property textAlignLast: WideString read Get_textAlignLast;
- property textKashidaSpace: OleVariant read Get_textKashidaSpace;
- property isBlock: WordBool read Get_isBlock;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLCurrentStyle2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F658-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCurrentStyle2Disp = dispinterface
- ['{3050F658-98B5-11CF-BB82-00AA00BDCE0B}']
- property layoutFlow: WideString readonly dispid - 2147412957;
- property wordWrap: WideString readonly dispid - 2147412954;
- property textUnderlinePosition: WideString readonly dispid - 2147412953;
- property hasLayout: WordBool readonly dispid - 2147412952;
- property scrollbarBaseColor: OleVariant readonly dispid - 2147412932;
- property scrollbarFaceColor: OleVariant readonly dispid - 2147412931;
- property scrollbar3dLightColor: OleVariant readonly dispid - 2147412930;
- property scrollbarShadowColor: OleVariant readonly dispid - 2147412929;
- property scrollbarHighlightColor: OleVariant readonly dispid - 2147412928;
- property scrollbarDarkShadowColor: OleVariant readonly dispid - 2147412927;
- property scrollbarArrowColor: OleVariant readonly dispid - 2147412926;
- property scrollbarTrackColor: OleVariant readonly dispid - 2147412916;
- property writingMode: WideString readonly dispid - 2147412920;
- property zoom: OleVariant readonly dispid - 2147412959;
- property filter: WideString readonly dispid - 2147413030;
- property textAlignLast: WideString readonly dispid - 2147412909;
- property textKashidaSpace: OleVariant readonly dispid - 2147412908;
- property isBlock: WordBool readonly dispid - 2147412904;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLCurrentStyle3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F818-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCurrentStyle3 = interface(IDispatch)
- ['{3050F818-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_textOverflow: WideString; safecall;
- function Get_minHeight: OleVariant; safecall;
- function Get_wordSpacing: OleVariant; safecall;
- function Get_whiteSpace: WideString; safecall;
- property textOverflow: WideString read Get_textOverflow;
- property minHeight: OleVariant read Get_minHeight;
- property wordSpacing: OleVariant read Get_wordSpacing;
- property whiteSpace: WideString read Get_whiteSpace;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLCurrentStyle3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F818-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCurrentStyle3Disp = dispinterface
- ['{3050F818-98B5-11CF-BB82-00AA00BDCE0B}']
- property textOverflow: WideString readonly dispid - 2147412903;
- property minHeight: OleVariant readonly dispid - 2147412901;
- property wordSpacing: OleVariant readonly dispid - 2147413065;
- property whiteSpace: WideString readonly dispid - 2147413036;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLCurrentStyle
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F557-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLCurrentStyle = dispinterface
- ['{3050F557-98B5-11CF-BB82-00AA00BDCE0B}']
- property position: WideString readonly dispid - 2147413022;
- property styleFloat: WideString readonly dispid - 2147413042;
- property color: OleVariant readonly dispid - 2147413110;
- property backgroundColor: OleVariant readonly dispid - 501;
- property fontFamily: WideString readonly dispid - 2147413094;
- property fontStyle: WideString readonly dispid - 2147413088;
- property fontVariant: WideString readonly dispid - 2147413087;
- property fontWeight: OleVariant readonly dispid - 2147413085;
- property fontSize: OleVariant readonly dispid - 2147413093;
- property backgroundImage: WideString readonly dispid - 2147413111;
- property backgroundPositionX: OleVariant readonly dispid - 2147413079;
- property backgroundPositionY: OleVariant readonly dispid - 2147413078;
- property backgroundRepeat: WideString readonly dispid - 2147413068;
- property borderLeftColor: OleVariant readonly dispid - 2147413054;
- property borderTopColor: OleVariant readonly dispid - 2147413057;
- property borderRightColor: OleVariant readonly dispid - 2147413056;
- property borderBottomColor: OleVariant readonly dispid - 2147413055;
- property borderTopStyle: WideString readonly dispid - 2147413047;
- property borderRightStyle: WideString readonly dispid - 2147413046;
- property borderBottomStyle: WideString readonly dispid - 2147413045;
- property borderLeftStyle: WideString readonly dispid - 2147413044;
- property borderTopWidth: OleVariant readonly dispid - 2147413052;
- property borderRightWidth: OleVariant readonly dispid - 2147413051;
- property borderBottomWidth: OleVariant readonly dispid - 2147413050;
- property borderLeftWidth: OleVariant readonly dispid - 2147413049;
- property left: OleVariant readonly dispid - 2147418109;
- property top: OleVariant readonly dispid - 2147418108;
- property width: OleVariant readonly dispid - 2147418107;
- property height: OleVariant readonly dispid - 2147418106;
- property paddingLeft: OleVariant readonly dispid - 2147413097;
- property paddingTop: OleVariant readonly dispid - 2147413100;
- property paddingRight: OleVariant readonly dispid - 2147413099;
- property paddingBottom: OleVariant readonly dispid - 2147413098;
- property textAlign: WideString readonly dispid - 2147418040;
- property textDecoration: WideString readonly dispid - 2147413077;
- property display: WideString readonly dispid - 2147413041;
- property visibility: WideString readonly dispid - 2147413032;
- property zIndex: OleVariant readonly dispid - 2147413021;
- property letterSpacing: OleVariant readonly dispid - 2147413104;
- property lineHeight: OleVariant readonly dispid - 2147413106;
- property textIndent: OleVariant readonly dispid - 2147413105;
- property verticalAlign: OleVariant readonly dispid - 2147413064;
- property backgroundAttachment: WideString readonly dispid - 2147413067;
- property marginTop: OleVariant readonly dispid - 2147413075;
- property marginRight: OleVariant readonly dispid - 2147413074;
- property marginBottom: OleVariant readonly dispid - 2147413073;
- property marginLeft: OleVariant readonly dispid - 2147413072;
- property clear: WideString readonly dispid - 2147413096;
- property listStyleType: WideString readonly dispid - 2147413040;
- property listStylePosition: WideString readonly dispid - 2147413039;
- property listStyleImage: WideString readonly dispid - 2147413038;
- property clipTop: OleVariant readonly dispid - 2147413019;
- property clipRight: OleVariant readonly dispid - 2147413018;
- property clipBottom: OleVariant readonly dispid - 2147413017;
- property clipLeft: OleVariant readonly dispid - 2147413016;
- property overflow: WideString readonly dispid - 2147413102;
- property pageBreakBefore: WideString readonly dispid - 2147413035;
- property pageBreakAfter: WideString readonly dispid - 2147413034;
- property cursor: WideString readonly dispid - 2147413010;
- property tableLayout: WideString readonly dispid - 2147413014;
- property borderCollapse: WideString readonly dispid - 2147413028;
- property direction: WideString readonly dispid - 2147412993;
- property behavior: WideString readonly dispid - 2147412997;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- property unicodeBidi: WideString readonly dispid - 2147412994;
- property right: OleVariant readonly dispid - 2147418035;
- property bottom: OleVariant readonly dispid - 2147418034;
- property imeMode: WideString readonly dispid - 2147412992;
- property rubyAlign: WideString readonly dispid - 2147412991;
- property rubyPosition: WideString readonly dispid - 2147412990;
- property rubyOverhang: WideString readonly dispid - 2147412989;
- property textAutospace: WideString readonly dispid - 2147412980;
- property lineBreak: WideString readonly dispid - 2147412979;
- property wordBreak: WideString readonly dispid - 2147412978;
- property textJustify: WideString readonly dispid - 2147412977;
- property textJustifyTrim: WideString readonly dispid - 2147412976;
- property textKashida: OleVariant readonly dispid - 2147412975;
- property blockDirection: WideString readonly dispid - 2147412995;
- property layoutGridChar: OleVariant readonly dispid - 2147412985;
- property layoutGridLine: OleVariant readonly dispid - 2147412984;
- property layoutGridMode: WideString readonly dispid - 2147412983;
- property layoutGridType: WideString readonly dispid - 2147412982;
- property borderStyle: WideString readonly dispid - 2147413048;
- property borderColor: WideString readonly dispid - 2147413058;
- property borderWidth: WideString readonly dispid - 2147413053;
- property padding: WideString readonly dispid - 2147413101;
- property margin: WideString readonly dispid - 2147413076;
- property accelerator: WideString readonly dispid - 2147412965;
- property overflowX: WideString readonly dispid - 2147412973;
- property overflowY: WideString readonly dispid - 2147412972;
- property textTransform: WideString readonly dispid - 2147413108;
- property layoutFlow: WideString readonly dispid - 2147412957;
- property wordWrap: WideString readonly dispid - 2147412954;
- property textUnderlinePosition: WideString readonly dispid - 2147412953;
- property hasLayout: WordBool readonly dispid - 2147412952;
- property scrollbarBaseColor: OleVariant readonly dispid - 2147412932;
- property scrollbarFaceColor: OleVariant readonly dispid - 2147412931;
- property scrollbar3dLightColor: OleVariant readonly dispid - 2147412930;
- property scrollbarShadowColor: OleVariant readonly dispid - 2147412929;
- property scrollbarHighlightColor: OleVariant readonly dispid - 2147412928;
- property scrollbarDarkShadowColor: OleVariant readonly dispid - 2147412927;
- property scrollbarArrowColor: OleVariant readonly dispid - 2147412926;
- property scrollbarTrackColor: OleVariant readonly dispid - 2147412916;
- property writingMode: WideString readonly dispid - 2147412920;
- property zoom: OleVariant readonly dispid - 2147412959;
- property filter: WideString readonly dispid - 2147413030;
- property textAlignLast: WideString readonly dispid - 2147412909;
- property textKashidaSpace: OleVariant readonly dispid - 2147412908;
- property isBlock: WordBool readonly dispid - 2147412904;
- property textOverflow: WideString readonly dispid - 2147412903;
- property minHeight: OleVariant readonly dispid - 2147412901;
- property wordSpacing: OleVariant readonly dispid - 2147413065;
- property whiteSpace: WideString readonly dispid - 2147413036;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRect
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRect = interface(IDispatch)
- ['{3050F4A3-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_left(p: Integer); safecall;
- function Get_left: Integer; safecall;
- procedure Set_top(p: Integer); safecall;
- function Get_top: Integer; safecall;
- procedure Set_right(p: Integer); safecall;
- function Get_right: Integer; safecall;
- procedure Set_bottom(p: Integer); safecall;
- function Get_bottom: Integer; safecall;
- property left: Integer read Get_left write Set_left;
- property top: Integer read Get_top write Set_top;
- property right: Integer read Get_right write Set_right;
- property bottom: Integer read Get_bottom write Set_bottom;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRectDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRectDisp = dispinterface
- ['{3050F4A3-98B5-11CF-BB82-00AA00BDCE0B}']
- property left: Integer dispid 1001;
- property top: Integer dispid 1002;
- property right: Integer dispid 1003;
- property bottom: Integer dispid 1004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLRectCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRectCollection = interface(IDispatch)
- ['{3050F4A4-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLRectCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLRectCollectionDisp = dispinterface
- ['{3050F4A4-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMNode
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5DA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMNode = interface(IDispatch)
- ['{3050F5DA-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_nodeType: Integer; safecall;
- function Get_parentNode: IHTMLDOMNode; safecall;
- function hasChildNodes: WordBool; safecall;
- function Get_childNodes: IDispatch; safecall;
- function Get_attributes: IDispatch; safecall;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; safecall;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; safecall;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; safecall;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function Get_nodeName: WideString; safecall;
- procedure Set_nodeValue(p: OleVariant); safecall;
- function Get_nodeValue: OleVariant; safecall;
- function Get_firstChild: IHTMLDOMNode; safecall;
- function Get_lastChild: IHTMLDOMNode; safecall;
- function Get_previousSibling: IHTMLDOMNode; safecall;
- function Get_nextSibling: IHTMLDOMNode; safecall;
- property nodeType: Integer read Get_nodeType;
- property parentNode: IHTMLDOMNode read Get_parentNode;
- property childNodes: IDispatch read Get_childNodes;
- property attributes: IDispatch read Get_attributes;
- property nodeName: WideString read Get_nodeName;
- property nodeValue: OleVariant read Get_nodeValue write Set_nodeValue;
- property firstChild: IHTMLDOMNode read Get_firstChild;
- property lastChild: IHTMLDOMNode read Get_lastChild;
- property previousSibling: IHTMLDOMNode read Get_previousSibling;
- property nextSibling: IHTMLDOMNode read Get_nextSibling;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMNodeDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5DA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMNodeDisp = dispinterface
- ['{3050F5DA-98B5-11CF-BB82-00AA00BDCE0B}']
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMNode2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMNode2 = interface(IDispatch)
- ['{3050F80B-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_ownerDocument: IDispatch; safecall;
- property ownerDocument: IDispatch read Get_ownerDocument;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMNode2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMNode2Disp = dispinterface
- ['{3050F80B-98B5-11CF-BB82-00AA00BDCE0B}']
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMAttribute
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMAttribute = interface(IDispatch)
- ['{3050F4B0-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_nodeName: WideString; safecall;
- procedure Set_nodeValue(p: OleVariant); safecall;
- function Get_nodeValue: OleVariant; safecall;
- function Get_specified: WordBool; safecall;
- property nodeName: WideString read Get_nodeName;
- property nodeValue: OleVariant read Get_nodeValue write Set_nodeValue;
- property specified: WordBool read Get_specified;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMAttributeDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMAttributeDisp = dispinterface
- ['{3050F4B0-98B5-11CF-BB82-00AA00BDCE0B}']
- property nodeName: WideString readonly dispid 1000;
- property nodeValue: OleVariant dispid 1002;
- property specified: WordBool readonly dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMAttribute2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F810-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMAttribute2 = interface(IDispatch)
- ['{3050F810-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_name: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- function Get_expando: WordBool; safecall;
- function Get_nodeType: Integer; safecall;
- function Get_parentNode: IHTMLDOMNode; safecall;
- function Get_childNodes: IDispatch; safecall;
- function Get_firstChild: IHTMLDOMNode; safecall;
- function Get_lastChild: IHTMLDOMNode; safecall;
- function Get_previousSibling: IHTMLDOMNode; safecall;
- function Get_nextSibling: IHTMLDOMNode; safecall;
- function Get_attributes: IDispatch; safecall;
- function Get_ownerDocument: IDispatch; safecall;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; safecall;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; safecall;
- function hasChildNodes: WordBool; safecall;
- function cloneNode(fDeep: WordBool): IHTMLDOMAttribute; safecall;
- property name: WideString read Get_name;
- property value: WideString read Get_value write Set_value;
- property expando: WordBool read Get_expando;
- property nodeType: Integer read Get_nodeType;
- property parentNode: IHTMLDOMNode read Get_parentNode;
- property childNodes: IDispatch read Get_childNodes;
- property firstChild: IHTMLDOMNode read Get_firstChild;
- property lastChild: IHTMLDOMNode read Get_lastChild;
- property previousSibling: IHTMLDOMNode read Get_previousSibling;
- property nextSibling: IHTMLDOMNode read Get_nextSibling;
- property attributes: IDispatch read Get_attributes;
- property ownerDocument: IDispatch read Get_ownerDocument;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMAttribute2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F810-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMAttribute2Disp = dispinterface
- ['{3050F810-98B5-11CF-BB82-00AA00BDCE0B}']
- property name: WideString readonly dispid 1003;
- property value: WideString dispid 1004;
- property expando: WordBool readonly dispid 1005;
- property nodeType: Integer readonly dispid 1006;
- property parentNode: IHTMLDOMNode readonly dispid 1007;
- property childNodes: IDispatch readonly dispid 1008;
- property firstChild: IHTMLDOMNode readonly dispid 1009;
- property lastChild: IHTMLDOMNode readonly dispid 1010;
- property previousSibling: IHTMLDOMNode readonly dispid 1011;
- property nextSibling: IHTMLDOMNode readonly dispid 1012;
- property attributes: IDispatch readonly dispid 1013;
- property ownerDocument: IDispatch readonly dispid 1014;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid 1015;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid 1016;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid 1017;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid 1018;
- function hasChildNodes: WordBool; dispid 1019;
- function cloneNode(fDeep: WordBool): IHTMLDOMAttribute; dispid 1020;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMTextNode
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMTextNode = interface(IDispatch)
- ['{3050F4B1-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_data(const p: WideString); safecall;
- function Get_data: WideString; safecall;
- function toString: WideString; safecall;
- function Get_length: Integer; safecall;
- function splitText(offset: Integer): IHTMLDOMNode; safecall;
- property data: WideString read Get_data write Set_data;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMTextNodeDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMTextNodeDisp = dispinterface
- ['{3050F4B1-98B5-11CF-BB82-00AA00BDCE0B}']
- property data: WideString dispid 1000;
- function toString: WideString; dispid 1001;
- property length: Integer readonly dispid 1002;
- function splitText(offset: Integer): IHTMLDOMNode; dispid 1003;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMTextNode2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F809-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMTextNode2 = interface(IDispatch)
- ['{3050F809-98B5-11CF-BB82-00AA00BDCE0B}']
- function substringData(offset: Integer; Count: Integer): WideString; safecall;
- procedure appendData(const bstrstring: WideString); safecall;
- procedure insertData(offset: Integer; const bstrstring: WideString); safecall;
- procedure deleteData(offset: Integer; Count: Integer); safecall;
- procedure replaceData(offset: Integer; Count: Integer; const bstrstring: WideString); safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMTextNode2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F809-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMTextNode2Disp = dispinterface
- ['{3050F809-98B5-11CF-BB82-00AA00BDCE0B}']
- function substringData(offset: Integer; Count: Integer): WideString; dispid 1004;
- procedure appendData(const bstrstring: WideString); dispid 1005;
- procedure insertData(offset: Integer; const bstrstring: WideString); dispid 1006;
- procedure deleteData(offset: Integer; Count: Integer); dispid 1007;
- procedure replaceData(offset: Integer; Count: Integer; const bstrstring: WideString); dispid 1008;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMImplementation
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMImplementation = interface(IDispatch)
- ['{3050F80D-98B5-11CF-BB82-00AA00BDCE0B}']
- function hasFeature(const bstrfeature: WideString; version: OleVariant): WordBool; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMImplementationDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMImplementationDisp = dispinterface
- ['{3050F80D-98B5-11CF-BB82-00AA00BDCE0B}']
- function hasFeature(const bstrfeature: WideString; version: OleVariant): WordBool; dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDOMAttribute
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F564-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDOMAttribute = dispinterface
- ['{3050F564-98B5-11CF-BB82-00AA00BDCE0B}']
- property nodeName: WideString readonly dispid 1000;
- property nodeValue: OleVariant dispid 1002;
- property specified: WordBool readonly dispid 1001;
- property name: WideString readonly dispid 1003;
- property value: WideString dispid 1004;
- property expando: WordBool readonly dispid 1005;
- property nodeType: Integer readonly dispid 1006;
- property parentNode: IHTMLDOMNode readonly dispid 1007;
- property childNodes: IDispatch readonly dispid 1008;
- property firstChild: IHTMLDOMNode readonly dispid 1009;
- property lastChild: IHTMLDOMNode readonly dispid 1010;
- property previousSibling: IHTMLDOMNode readonly dispid 1011;
- property nextSibling: IHTMLDOMNode readonly dispid 1012;
- property attributes: IDispatch readonly dispid 1013;
- property ownerDocument: IDispatch readonly dispid 1014;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid 1015;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid 1016;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid 1017;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid 1018;
- function hasChildNodes: WordBool; dispid 1019;
- function cloneNode(fDeep: WordBool): IHTMLDOMAttribute; dispid 1020;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDOMTextNode
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F565-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDOMTextNode = dispinterface
- ['{3050F565-98B5-11CF-BB82-00AA00BDCE0B}']
- property data: WideString dispid 1000;
- function toString: WideString; dispid 1001;
- property length: Integer readonly dispid 1002;
- function splitText(offset: Integer): IHTMLDOMNode; dispid 1003;
- function substringData(offset: Integer; Count: Integer): WideString; dispid 1004;
- procedure appendData(const bstrstring: WideString); dispid 1005;
- procedure insertData(offset: Integer; const bstrstring: WideString); dispid 1006;
- procedure deleteData(offset: Integer; Count: Integer); dispid 1007;
- procedure replaceData(offset: Integer; Count: Integer; const bstrstring: WideString); dispid 1008;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDOMImplementation
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F58F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDOMImplementation = dispinterface
- ['{3050F58F-98B5-11CF-BB82-00AA00BDCE0B}']
- function hasFeature(const bstrfeature: WideString; version: OleVariant): WordBool; dispid 1000;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAttributeCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4C3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAttributeCollection = interface(IDispatch)
- ['{3050F4C3-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- // !! API fix decl
- function item(const name: OleVariant): IDispatch; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAttributeCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4C3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAttributeCollectionDisp = dispinterface
- ['{3050F4C3-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- // !! API fix decl
- function item(const name: OleVariant): IDispatch; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAttributeCollection2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAttributeCollection2 = interface(IDispatch)
- ['{3050F80A-98B5-11CF-BB82-00AA00BDCE0B}']
- function getNamedItem(const bstrName: WideString): IHTMLDOMAttribute; safecall;
- function setNamedItem(const ppNode: IHTMLDOMAttribute): IHTMLDOMAttribute; safecall;
- function removeNamedItem(const bstrName: WideString): IHTMLDOMAttribute; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAttributeCollection2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAttributeCollection2Disp = dispinterface
- ['{3050F80A-98B5-11CF-BB82-00AA00BDCE0B}']
- function getNamedItem(const bstrName: WideString): IHTMLDOMAttribute; dispid 1501;
- function setNamedItem(const ppNode: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid 1502;
- function removeNamedItem(const bstrName: WideString): IHTMLDOMAttribute; dispid 1503;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDOMChildrenCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5AB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMChildrenCollection = interface(IDispatch)
- ['{3050F5AB-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(index: Integer): IDispatch; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDOMChildrenCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5AB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDOMChildrenCollectionDisp = dispinterface
- ['{3050F5AB-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(index: Integer): IDispatch; dispid 0;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLAttributeCollection
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F56C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLAttributeCollection = dispinterface
- ['{3050F56C-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(var name: OleVariant): IDispatch; dispid 0;
- function getNamedItem(const bstrName: WideString): IHTMLDOMAttribute; dispid 1501;
- function setNamedItem(const ppNode: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid 1502;
- function removeNamedItem(const bstrName: WideString): IHTMLDOMAttribute; dispid 1503;
- end;
-
-// *********************************************************************//
-// DispIntf: DispDOMChildrenCollection
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F577-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispDOMChildrenCollection = dispinterface
- ['{3050F577-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(index: Integer): IDispatch; dispid 0;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F60F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLElementEvents2 = dispinterface
- ['{3050F60F-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F33C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLElementEvents = dispinterface
- ['{3050F33C-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElementCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F21F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementCollection = interface(IDispatch)
- ['{3050F21F-98B5-11CF-BB82-00AA00BDCE0B}']
- function toString: WideString; safecall;
- procedure Set_length(p: Integer); safecall;
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(name: OleVariant; index: OleVariant): IDispatch; safecall;
- function tags(tagName: OleVariant): IDispatch; safecall;
- property length: Integer read Get_length write Set_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElementCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F21F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementCollectionDisp = dispinterface
- ['{3050F21F-98B5-11CF-BB82-00AA00BDCE0B}']
- function toString: WideString; dispid 1501;
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F434-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement2 = interface(IDispatch)
- ['{3050F434-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_scopeName: WideString; safecall;
- procedure setCapture(containerCapture: WordBool); safecall;
- procedure releaseCapture; safecall;
- procedure Set_onlosecapture(p: OleVariant); safecall;
- function Get_onlosecapture: OleVariant; safecall;
- function componentFromPoint(x: Integer; y: Integer): WideString; safecall;
- procedure doScroll(component: OleVariant); safecall;
- procedure Set_onscroll(p: OleVariant); safecall;
- function Get_onscroll: OleVariant; safecall;
- procedure Set_ondrag(p: OleVariant); safecall;
- function Get_ondrag: OleVariant; safecall;
- procedure Set_ondragend(p: OleVariant); safecall;
- function Get_ondragend: OleVariant; safecall;
- procedure Set_ondragenter(p: OleVariant); safecall;
- function Get_ondragenter: OleVariant; safecall;
- procedure Set_ondragover(p: OleVariant); safecall;
- function Get_ondragover: OleVariant; safecall;
- procedure Set_ondragleave(p: OleVariant); safecall;
- function Get_ondragleave: OleVariant; safecall;
- procedure Set_ondrop(p: OleVariant); safecall;
- function Get_ondrop: OleVariant; safecall;
- procedure Set_onbeforecut(p: OleVariant); safecall;
- function Get_onbeforecut: OleVariant; safecall;
- procedure Set_oncut(p: OleVariant); safecall;
- function Get_oncut: OleVariant; safecall;
- procedure Set_onbeforecopy(p: OleVariant); safecall;
- function Get_onbeforecopy: OleVariant; safecall;
- procedure Set_oncopy(p: OleVariant); safecall;
- function Get_oncopy: OleVariant; safecall;
- procedure Set_onbeforepaste(p: OleVariant); safecall;
- function Get_onbeforepaste: OleVariant; safecall;
- procedure Set_onpaste(p: OleVariant); safecall;
- function Get_onpaste: OleVariant; safecall;
- function Get_currentStyle: IHTMLCurrentStyle; safecall;
- procedure Set_onpropertychange(p: OleVariant); safecall;
- function Get_onpropertychange: OleVariant; safecall;
- function getClientRects: IHTMLRectCollection; safecall;
- function getBoundingClientRect: IHTMLRect; safecall;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); safecall;
- function getExpression(const propname: WideString): OleVariant; safecall;
- function removeExpression(const propname: WideString): WordBool; safecall;
- procedure Set_tabIndex(p: Smallint); safecall;
- function Get_tabIndex: Smallint; safecall;
- procedure focus; safecall;
- procedure Set_accessKey(const p: WideString); safecall;
- function Get_accessKey: WideString; safecall;
- procedure Set_onblur(p: OleVariant); safecall;
- function Get_onblur: OleVariant; safecall;
- procedure Set_onfocus(p: OleVariant); safecall;
- function Get_onfocus: OleVariant; safecall;
- procedure Set_onresize(p: OleVariant); safecall;
- function Get_onresize: OleVariant; safecall;
- procedure blur; safecall;
- procedure addFilter(const pUnk: IUnknown); safecall;
- procedure removeFilter(const pUnk: IUnknown); safecall;
- function Get_clientHeight: Integer; safecall;
- function Get_clientWidth: Integer; safecall;
- function Get_clientTop: Integer; safecall;
- function Get_clientLeft: Integer; safecall;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; safecall;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); safecall;
- function Get_readyState: OleVariant; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- procedure Set_onrowsdelete(p: OleVariant); safecall;
- function Get_onrowsdelete: OleVariant; safecall;
- procedure Set_onrowsinserted(p: OleVariant); safecall;
- function Get_onrowsinserted: OleVariant; safecall;
- procedure Set_oncellchange(p: OleVariant); safecall;
- function Get_oncellchange: OleVariant; safecall;
- procedure Set_dir(const p: WideString); safecall;
- function Get_dir: WideString; safecall;
- function createControlRange: IDispatch; safecall;
- function Get_scrollHeight: Integer; safecall;
- function Get_scrollWidth: Integer; safecall;
- procedure Set_scrollTop(p: Integer); safecall;
- function Get_scrollTop: Integer; safecall;
- procedure Set_scrollLeft(p: Integer); safecall;
- function Get_scrollLeft: Integer; safecall;
- procedure clearAttributes; safecall;
- procedure mergeAttributes(const mergeThis: IHTMLElement); safecall;
- procedure Set_oncontextmenu(p: OleVariant); safecall;
- function Get_oncontextmenu: OleVariant; safecall;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; safecall;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; safecall;
- function getAdjacentText(const where: WideString): WideString; safecall;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; safecall;
- function Get_canHaveChildren: WordBool; safecall;
- function addBehavior(const bstrUrl: WideString; const pvarFactory: OleVariant): Integer; safecall;
- function removeBehavior(cookie: Integer): WordBool; safecall;
- function Get_runtimeStyle: IHTMLStyle; safecall;
- function Get_behaviorUrns: IDispatch; safecall;
- procedure Set_tagUrn(const p: WideString); safecall;
- function Get_tagUrn: WideString; safecall;
- procedure Set_onbeforeeditfocus(p: OleVariant); safecall;
- function Get_onbeforeeditfocus: OleVariant; safecall;
- function Get_readyStateValue: Integer; safecall;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; safecall;
- property scopeName: WideString read Get_scopeName;
- property onlosecapture: OleVariant read Get_onlosecapture write Set_onlosecapture;
- property onscroll: OleVariant read Get_onscroll write Set_onscroll;
- property ondrag: OleVariant read Get_ondrag write Set_ondrag;
- property ondragend: OleVariant read Get_ondragend write Set_ondragend;
- property ondragenter: OleVariant read Get_ondragenter write Set_ondragenter;
- property ondragover: OleVariant read Get_ondragover write Set_ondragover;
- property ondragleave: OleVariant read Get_ondragleave write Set_ondragleave;
- property ondrop: OleVariant read Get_ondrop write Set_ondrop;
- property onbeforecut: OleVariant read Get_onbeforecut write Set_onbeforecut;
- property oncut: OleVariant read Get_oncut write Set_oncut;
- property onbeforecopy: OleVariant read Get_onbeforecopy write Set_onbeforecopy;
- property oncopy: OleVariant read Get_oncopy write Set_oncopy;
- property onbeforepaste: OleVariant read Get_onbeforepaste write Set_onbeforepaste;
- property onpaste: OleVariant read Get_onpaste write Set_onpaste;
- property currentStyle: IHTMLCurrentStyle read Get_currentStyle;
- property onpropertychange: OleVariant read Get_onpropertychange write Set_onpropertychange;
- property tabIndex: Smallint read Get_tabIndex write Set_tabIndex;
- property accessKey: WideString read Get_accessKey write Set_accessKey;
- property onblur: OleVariant read Get_onblur write Set_onblur;
- property onfocus: OleVariant read Get_onfocus write Set_onfocus;
- property onresize: OleVariant read Get_onresize write Set_onresize;
- property clientHeight: Integer read Get_clientHeight;
- property clientWidth: Integer read Get_clientWidth;
- property clientTop: Integer read Get_clientTop;
- property clientLeft: Integer read Get_clientLeft;
- property readyState: OleVariant read Get_readyState;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- property onrowsdelete: OleVariant read Get_onrowsdelete write Set_onrowsdelete;
- property onrowsinserted: OleVariant read Get_onrowsinserted write Set_onrowsinserted;
- property oncellchange: OleVariant read Get_oncellchange write Set_oncellchange;
- property dir: WideString read Get_dir write Set_dir;
- property scrollHeight: Integer read Get_scrollHeight;
- property scrollWidth: Integer read Get_scrollWidth;
- property scrollTop: Integer read Get_scrollTop write Set_scrollTop;
- property scrollLeft: Integer read Get_scrollLeft write Set_scrollLeft;
- property oncontextmenu: OleVariant read Get_oncontextmenu write Set_oncontextmenu;
- property canHaveChildren: WordBool read Get_canHaveChildren;
- property runtimeStyle: IHTMLStyle read Get_runtimeStyle;
- property behaviorUrns: IDispatch read Get_behaviorUrns;
- property tagUrn: WideString read Get_tagUrn write Set_tagUrn;
- property onbeforeeditfocus: OleVariant read Get_onbeforeeditfocus write Set_onbeforeeditfocus;
- property readyStateValue: Integer read Get_readyStateValue;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F434-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement2Disp = dispinterface
- ['{3050F434-98B5-11CF-BB82-00AA00BDCE0B}']
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- procedure mergeAttributes(const mergeThis: IHTMLElement); dispid - 2147417049;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElement3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F673-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement3 = interface(IDispatch)
- ['{3050F673-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); safecall;
- function Get_isMultiLine: WordBool; safecall;
- function Get_canHaveHTML: WordBool; safecall;
- procedure Set_onlayoutcomplete(p: OleVariant); safecall;
- function Get_onlayoutcomplete: OleVariant; safecall;
- procedure Set_onpage(p: OleVariant); safecall;
- function Get_onpage: OleVariant; safecall;
- procedure Set_inflateBlock(p: WordBool); safecall;
- function Get_inflateBlock: WordBool; safecall;
- procedure Set_onbeforedeactivate(p: OleVariant); safecall;
- function Get_onbeforedeactivate: OleVariant; safecall;
- procedure setActive; safecall;
- procedure Set_contentEditable(const p: WideString); safecall;
- function Get_contentEditable: WideString; safecall;
- function Get_isContentEditable: WordBool; safecall;
- procedure Set_hideFocus(p: WordBool); safecall;
- function Get_hideFocus: WordBool; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_isDisabled: WordBool; safecall;
- procedure Set_onmove(p: OleVariant); safecall;
- function Get_onmove: OleVariant; safecall;
- procedure Set_oncontrolselect(p: OleVariant); safecall;
- function Get_oncontrolselect: OleVariant; safecall;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; safecall;
- procedure Set_onresizestart(p: OleVariant); safecall;
- function Get_onresizestart: OleVariant; safecall;
- procedure Set_onresizeend(p: OleVariant); safecall;
- function Get_onresizeend: OleVariant; safecall;
- procedure Set_onmovestart(p: OleVariant); safecall;
- function Get_onmovestart: OleVariant; safecall;
- procedure Set_onmoveend(p: OleVariant); safecall;
- function Get_onmoveend: OleVariant; safecall;
- procedure Set_onmouseenter(p: OleVariant); safecall;
- function Get_onmouseenter: OleVariant; safecall;
- procedure Set_onmouseleave(p: OleVariant); safecall;
- function Get_onmouseleave: OleVariant; safecall;
- procedure Set_onactivate(p: OleVariant); safecall;
- function Get_onactivate: OleVariant; safecall;
- procedure Set_ondeactivate(p: OleVariant); safecall;
- function Get_ondeactivate: OleVariant; safecall;
- function dragDrop: WordBool; safecall;
- function Get_glyphMode: Integer; safecall;
- property isMultiLine: WordBool read Get_isMultiLine;
- property canHaveHTML: WordBool read Get_canHaveHTML;
- property onlayoutcomplete: OleVariant read Get_onlayoutcomplete write Set_onlayoutcomplete;
- property onpage: OleVariant read Get_onpage write Set_onpage;
- property inflateBlock: WordBool read Get_inflateBlock write Set_inflateBlock;
- property onbeforedeactivate: OleVariant read Get_onbeforedeactivate write Set_onbeforedeactivate;
- property contentEditable: WideString read Get_contentEditable write Set_contentEditable;
- property isContentEditable: WordBool read Get_isContentEditable;
- property hideFocus: WordBool read Get_hideFocus write Set_hideFocus;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property isDisabled: WordBool read Get_isDisabled;
- property onmove: OleVariant read Get_onmove write Set_onmove;
- property oncontrolselect: OleVariant read Get_oncontrolselect write Set_oncontrolselect;
- property onresizestart: OleVariant read Get_onresizestart write Set_onresizestart;
- property onresizeend: OleVariant read Get_onresizeend write Set_onresizeend;
- property onmovestart: OleVariant read Get_onmovestart write Set_onmovestart;
- property onmoveend: OleVariant read Get_onmoveend write Set_onmoveend;
- property onmouseenter: OleVariant read Get_onmouseenter write Set_onmouseenter;
- property onmouseleave: OleVariant read Get_onmouseleave write Set_onmouseleave;
- property onactivate: OleVariant read Get_onactivate write Set_onactivate;
- property ondeactivate: OleVariant read Get_ondeactivate write Set_ondeactivate;
- property glyphMode: Integer read Get_glyphMode;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElement3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F673-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement3Disp = dispinterface
- ['{3050F673-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElement4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement4 = interface(IDispatch)
- ['{3050F80F-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_onmousewheel(p: OleVariant); safecall;
- function Get_onmousewheel: OleVariant; safecall;
- procedure normalize; safecall;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; safecall;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; safecall;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; safecall;
- procedure Set_onbeforeactivate(p: OleVariant); safecall;
- function Get_onbeforeactivate: OleVariant; safecall;
- procedure Set_onfocusin(p: OleVariant); safecall;
- function Get_onfocusin: OleVariant; safecall;
- procedure Set_onfocusout(p: OleVariant); safecall;
- function Get_onfocusout: OleVariant; safecall;
- property onmousewheel: OleVariant read Get_onmousewheel write Set_onmousewheel;
- property onbeforeactivate: OleVariant read Get_onbeforeactivate write Set_onbeforeactivate;
- property onfocusin: OleVariant read Get_onfocusin write Set_onfocusin;
- property onfocusout: OleVariant read Get_onfocusout write Set_onfocusout;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElement4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElement4Disp = dispinterface
- ['{3050F80F-98B5-11CF-BB82-00AA00BDCE0B}']
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElementRender
-// Flags: (0)
-// GUID: {3050F669-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementRender = interface(IUnknown)
- ['{3050F669-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function DrawToDC(hdc: HDC): HRESULT; stdcall;
- // !! API fix decl
- function SetDocumentPrinter(const bstrPrinterName: WideString; hdc: HDC): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLUniqueName
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4D0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUniqueName = interface(IDispatch)
- ['{3050F4D0-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_uniqueNumber: Integer; safecall;
- function Get_uniqueID: WideString; safecall;
- property uniqueNumber: Integer read Get_uniqueNumber;
- property uniqueID: WideString read Get_uniqueID;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLUniqueNameDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4D0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUniqueNameDisp = dispinterface
- ['{3050F4D0-98B5-11CF-BB82-00AA00BDCE0B}']
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDatabinding
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3F2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDatabinding = interface(IDispatch)
- ['{3050F3F2-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_dataFld(const p: WideString); safecall;
- function Get_dataFld: WideString; safecall;
- procedure Set_dataSrc(const p: WideString); safecall;
- function Get_dataSrc: WideString; safecall;
- procedure Set_dataFormatAs(const p: WideString); safecall;
- function Get_dataFormatAs: WideString; safecall;
- property dataFld: WideString read Get_dataFld write Set_dataFld;
- property dataSrc: WideString read Get_dataSrc write Set_dataSrc;
- property dataFormatAs: WideString read Get_dataFormatAs write Set_dataFormatAs;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDatabindingDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3F2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDatabindingDisp = dispinterface
- ['{3050F3F2-98B5-11CF-BB82-00AA00BDCE0B}']
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDocument
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {626FC520-A41E-11CF-A731-00A0C9082637}
-// *********************************************************************//
- IHTMLDocument = interface(IDispatch)
- ['{626FC520-A41E-11CF-A731-00A0C9082637}']
- function Get_Script: IDispatch; safecall;
- property Script: IDispatch read Get_Script;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDocumentDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {626FC520-A41E-11CF-A731-00A0C9082637}
-// *********************************************************************//
- IHTMLDocumentDisp = dispinterface
- ['{626FC520-A41E-11CF-A731-00A0C9082637}']
- property Script: IDispatch readonly dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElementDefaults
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6C9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementDefaults = interface(IDispatch)
- ['{3050F6C9-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_style: IHTMLStyle; safecall;
- procedure Set_tabStop(p: WordBool); safecall;
- function Get_tabStop: WordBool; safecall;
- procedure Set_viewInheritStyle(p: WordBool); safecall;
- function Get_viewInheritStyle: WordBool; safecall;
- procedure Set_viewMasterTab(p: WordBool); safecall;
- function Get_viewMasterTab: WordBool; safecall;
- procedure Set_scrollSegmentX(p: Integer); safecall;
- function Get_scrollSegmentX: Integer; safecall;
- procedure Set_scrollSegmentY(p: Integer); safecall;
- function Get_scrollSegmentY: Integer; safecall;
- procedure Set_isMultiLine(p: WordBool); safecall;
- function Get_isMultiLine: WordBool; safecall;
- procedure Set_contentEditable(const p: WideString); safecall;
- function Get_contentEditable: WideString; safecall;
- procedure Set_canHaveHTML(p: WordBool); safecall;
- function Get_canHaveHTML: WordBool; safecall;
- procedure _Set_viewLink(const p: IHTMLDocument); safecall;
- function Get_viewLink: IHTMLDocument; safecall;
- procedure Set_frozen(p: WordBool); safecall;
- function Get_frozen: WordBool; safecall;
- property style: IHTMLStyle read Get_style;
- property tabStop: WordBool read Get_tabStop write Set_tabStop;
- property viewInheritStyle: WordBool read Get_viewInheritStyle write Set_viewInheritStyle;
- property viewMasterTab: WordBool read Get_viewMasterTab write Set_viewMasterTab;
- property scrollSegmentX: Integer read Get_scrollSegmentX write Set_scrollSegmentX;
- property scrollSegmentY: Integer read Get_scrollSegmentY write Set_scrollSegmentY;
- property isMultiLine: WordBool read Get_isMultiLine write Set_isMultiLine;
- property contentEditable: WideString read Get_contentEditable write Set_contentEditable;
- property canHaveHTML: WordBool read Get_canHaveHTML write Set_canHaveHTML;
- property viewLink: IHTMLDocument read Get_viewLink write _Set_viewLink;
- property frozen: WordBool read Get_frozen write Set_frozen;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElementDefaultsDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6C9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementDefaultsDisp = dispinterface
- ['{3050F6C9-98B5-11CF-BB82-00AA00BDCE0B}']
- property style: IHTMLStyle readonly dispid 1001;
- property tabStop: WordBool dispid 1002;
- property viewInheritStyle: WordBool dispid - 2147412913;
- property viewMasterTab: WordBool dispid 1006;
- property scrollSegmentX: Integer dispid 1003;
- property scrollSegmentY: Integer dispid 1004;
- property isMultiLine: WordBool dispid 1008;
- property contentEditable: WideString dispid - 2147412950;
- property canHaveHTML: WordBool dispid 1009;
- property viewLink: IHTMLDocument dispid 1011;
- property frozen: WordBool dispid - 2147412914;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDefaults
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F58C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDefaults = dispinterface
- ['{3050F58C-98B5-11CF-BB82-00AA00BDCE0B}']
- property style: IHTMLStyle readonly dispid 1001;
- property tabStop: WordBool dispid 1002;
- property viewInheritStyle: WordBool dispid - 2147412913;
- property viewMasterTab: WordBool dispid 1006;
- property scrollSegmentX: Integer dispid 1003;
- property scrollSegmentY: Integer dispid 1004;
- property isMultiLine: WordBool dispid 1008;
- property contentEditable: WideString dispid - 2147412950;
- property canHaveHTML: WordBool dispid 1009;
- property viewLink: IHTMLDocument dispid 1011;
- property frozen: WordBool dispid - 2147412914;
- end;
-
-// *********************************************************************//
-// Interface: IHTCDefaultDispatch
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4FD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCDefaultDispatch = interface(IDispatch)
- ['{3050F4FD-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_element: IHTMLElement; safecall;
- function CreateEventObject: IHTMLEventObj; safecall;
- function Get_defaults: IDispatch; safecall;
- function Get_document: IDispatch; safecall;
- property element: IHTMLElement read Get_element;
- property defaults: IDispatch read Get_defaults;
- property document: IDispatch read Get_document;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCDefaultDispatchDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4FD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCDefaultDispatchDisp = dispinterface
- ['{3050F4FD-98B5-11CF-BB82-00AA00BDCE0B}']
- property element: IHTMLElement readonly dispid - 2147412969;
- function CreateEventObject: IHTMLEventObj; dispid - 2147412968;
- property defaults: IDispatch readonly dispid - 2147412947;
- property document: IDispatch readonly dispid - 2147412970;
- end;
-
-// *********************************************************************//
-// Interface: IHTCPropertyBehavior
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5DF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCPropertyBehavior = interface(IDispatch)
- ['{3050F5DF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure fireChange; safecall;
- procedure Set_value(p: OleVariant); safecall;
- function Get_value: OleVariant; safecall;
- property value: OleVariant read Get_value write Set_value;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCPropertyBehaviorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5DF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCPropertyBehaviorDisp = dispinterface
- ['{3050F5DF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure fireChange; dispid - 2147417612;
- property value: OleVariant dispid - 2147412971;
- end;
-
-// *********************************************************************//
-// Interface: IHTCMethodBehavior
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F631-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCMethodBehavior = interface(IDispatch)
- ['{3050F631-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCMethodBehaviorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F631-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCMethodBehaviorDisp = dispinterface
- ['{3050F631-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// Interface: IHTCEventBehavior
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4FF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCEventBehavior = interface(IDispatch)
- ['{3050F4FF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure fire(const pVar: IHTMLEventObj); safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCEventBehaviorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4FF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCEventBehaviorDisp = dispinterface
- ['{3050F4FF-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure fire(const pVar: IHTMLEventObj); dispid - 2147417612;
- end;
-
-// *********************************************************************//
-// Interface: IHTCAttachBehavior
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5F4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCAttachBehavior = interface(IDispatch)
- ['{3050F5F4-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure FireEvent(const evt: IDispatch); safecall;
- procedure detachEvent; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCAttachBehaviorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5F4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCAttachBehaviorDisp = dispinterface
- ['{3050F5F4-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure FireEvent(const evt: IDispatch); dispid 0;
- procedure detachEvent; dispid - 2147417612;
- end;
-
-// *********************************************************************//
-// Interface: IHTCAttachBehavior2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7EB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCAttachBehavior2 = interface(IDispatch)
- ['{3050F7EB-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure FireEvent(evt: OleVariant); safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCAttachBehavior2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7EB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCAttachBehavior2Disp = dispinterface
- ['{3050F7EB-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure FireEvent(evt: OleVariant); dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTCDescBehavior
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5DC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCDescBehavior = interface(IDispatch)
- ['{3050F5DC-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_urn: WideString; safecall;
- function Get_name: WideString; safecall;
- property urn: WideString read Get_urn;
- property name: WideString read Get_name;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTCDescBehaviorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5DC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTCDescBehaviorDisp = dispinterface
- ['{3050F5DC-98B5-11CF-BB82-00AA00BDCE0B}']
- property urn: WideString readonly dispid - 2147417612;
- property name: WideString readonly dispid - 2147417611;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTCDefaultDispatch
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F573-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTCDefaultDispatch = dispinterface
- ['{3050F573-98B5-11CF-BB82-00AA00BDCE0B}']
- property element: IHTMLElement readonly dispid - 2147412969;
- function CreateEventObject: IHTMLEventObj; dispid - 2147412968;
- property defaults: IDispatch readonly dispid - 2147412947;
- property document: IDispatch readonly dispid - 2147412970;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTCPropertyBehavior
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F57F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTCPropertyBehavior = dispinterface
- ['{3050F57F-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure fireChange; dispid - 2147417612;
- property value: OleVariant dispid - 2147412971;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTCMethodBehavior
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F587-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTCMethodBehavior = dispinterface
- ['{3050F587-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTCEventBehavior
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F574-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTCEventBehavior = dispinterface
- ['{3050F574-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure fire(const pVar: IHTMLEventObj); dispid - 2147417612;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTCAttachBehavior
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F583-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTCAttachBehavior = dispinterface
- ['{3050F583-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure FireEvent(evt: OleVariant); dispid 0;
- procedure detachEvent; dispid - 2147417612;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTCDescBehavior
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F57E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTCDescBehavior = dispinterface
- ['{3050F57E-98B5-11CF-BB82-00AA00BDCE0B}']
- property urn: WideString readonly dispid - 2147417612;
- property name: WideString readonly dispid - 2147417611;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLUrnCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5E2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUrnCollection = interface(IDispatch)
- ['{3050F5E2-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function item(index: Integer): WideString; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLUrnCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5E2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUrnCollectionDisp = dispinterface
- ['{3050F5E2-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1001;
- function item(index: Integer): WideString; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLGenericElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLGenericElement = interface(IDispatch)
- ['{3050F4B7-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_recordset: IDispatch; safecall;
- function namedRecordset(const dataMember: WideString; var hierarchy: OleVariant): IDispatch; safecall;
- property recordset: IDispatch read Get_recordset;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLGenericElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLGenericElementDisp = dispinterface
- ['{3050F4B7-98B5-11CF-BB82-00AA00BDCE0B}']
- property recordset: IDispatch readonly dispid 1001;
- function namedRecordset(const dataMember: WideString; var hierarchy: OleVariant): IDispatch; dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLGenericElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F563-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLGenericElement = dispinterface
- ['{3050F563-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property recordset: IDispatch readonly dispid 1001;
- function namedRecordset(const dataMember: WideString; var hierarchy: OleVariant): IDispatch; dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheetRule
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F357-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetRule = interface(IDispatch)
- ['{3050F357-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_selectorText(const p: WideString); safecall;
- function Get_selectorText: WideString; safecall;
- function Get_style: IHTMLRuleStyle; safecall;
- function Get_readOnly: WordBool; safecall;
- property selectorText: WideString read Get_selectorText write Set_selectorText;
- property style: IHTMLRuleStyle read Get_style;
- property readOnly: WordBool read Get_readOnly;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheetRuleDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F357-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetRuleDisp = dispinterface
- ['{3050F357-98B5-11CF-BB82-00AA00BDCE0B}']
- property selectorText: WideString dispid 1001;
- property style: IHTMLRuleStyle readonly dispid - 2147418038;
- property readOnly: WordBool readonly dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheetRulesCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2E5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetRulesCollection = interface(IDispatch)
- ['{3050F2E5-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function item(index: Integer): IHTMLStyleSheetRule; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheetRulesCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2E5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetRulesCollectionDisp = dispinterface
- ['{3050F2E5-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1001;
- function item(index: Integer): IHTMLStyleSheetRule; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheetPage
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetPage = interface(IDispatch)
- ['{3050F7EE-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_selector: WideString; safecall;
- function Get_pseudoClass: WideString; safecall;
- property selector: WideString read Get_selector;
- property pseudoClass: WideString read Get_pseudoClass;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheetPageDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetPageDisp = dispinterface
- ['{3050F7EE-98B5-11CF-BB82-00AA00BDCE0B}']
- property selector: WideString readonly dispid 1001;
- property pseudoClass: WideString readonly dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheetPagesCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7F0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetPagesCollection = interface(IDispatch)
- ['{3050F7F0-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function item(index: Integer): IHTMLStyleSheetPage; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheetPagesCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7F0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetPagesCollectionDisp = dispinterface
- ['{3050F7F0-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1001;
- function item(index: Integer): IHTMLStyleSheetPage; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheetsCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F37E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetsCollection = interface(IDispatch)
- ['{3050F37E-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheetsCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F37E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetsCollectionDisp = dispinterface
- ['{3050F37E-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1001;
- property _newEnum: IUnknown readonly dispid - 4;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheet
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2E3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheet = interface(IDispatch)
- ['{3050F2E3-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_title(const p: WideString); safecall;
- function Get_title: WideString; safecall;
- function Get_parentStyleSheet: IHTMLStyleSheet; safecall;
- function Get_owningElement: IHTMLElement; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_readOnly: WordBool; safecall;
- function Get_imports: IHTMLStyleSheetsCollection; safecall;
- procedure Set_href(const p: WideString); safecall;
- function Get_href: WideString; safecall;
- function Get_type_: WideString; safecall;
- function Get_id: WideString; safecall;
- function addImport(const bstrUrl: WideString; lIndex: Integer): Integer; safecall;
- function addRule(const bstrSelector: WideString; const bstrStyle: WideString; lIndex: Integer): Integer; safecall;
- procedure removeImport(lIndex: Integer); safecall;
- procedure removeRule(lIndex: Integer); safecall;
- procedure Set_media(const p: WideString); safecall;
- function Get_media: WideString; safecall;
- procedure Set_cssText(const p: WideString); safecall;
- function Get_cssText: WideString; safecall;
- function Get_rules: IHTMLStyleSheetRulesCollection; safecall;
- property title: WideString read Get_title write Set_title;
- property parentStyleSheet: IHTMLStyleSheet read Get_parentStyleSheet;
- property owningElement: IHTMLElement read Get_owningElement;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property readOnly: WordBool read Get_readOnly;
- property imports: IHTMLStyleSheetsCollection read Get_imports;
- property href: WideString read Get_href write Set_href;
- property type_: WideString read Get_type_;
- property id: WideString read Get_id;
- property media: WideString read Get_media write Set_media;
- property cssText: WideString read Get_cssText write Set_cssText;
- property rules: IHTMLStyleSheetRulesCollection read Get_rules;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheetDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2E3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheetDisp = dispinterface
- ['{3050F2E3-98B5-11CF-BB82-00AA00BDCE0B}']
- property title: WideString dispid 1001;
- property parentStyleSheet: IHTMLStyleSheet readonly dispid 1002;
- property owningElement: IHTMLElement readonly dispid 1003;
- property disabled: WordBool dispid - 2147418036;
- property readOnly: WordBool readonly dispid 1004;
- property imports: IHTMLStyleSheetsCollection readonly dispid 1005;
- property href: WideString dispid 1006;
- property type_: WideString readonly dispid 1007;
- property id: WideString readonly dispid 1008;
- function addImport(const bstrUrl: WideString; lIndex: Integer): Integer; dispid 1009;
- function addRule(const bstrSelector: WideString; const bstrStyle: WideString; lIndex: Integer): Integer; dispid 1010;
- procedure removeImport(lIndex: Integer); dispid 1011;
- procedure removeRule(lIndex: Integer); dispid 1012;
- property media: WideString dispid 1013;
- property cssText: WideString dispid 1014;
- property rules: IHTMLStyleSheetRulesCollection readonly dispid 1015;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleSheet2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3D1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheet2 = interface(IDispatch)
- ['{3050F3D1-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_pages: IHTMLStyleSheetPagesCollection; safecall;
- function addPageRule(const bstrSelector: WideString; const bstrStyle: WideString;
- lIndex: Integer): Integer; safecall;
- property pages: IHTMLStyleSheetPagesCollection read Get_pages;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleSheet2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3D1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleSheet2Disp = dispinterface
- ['{3050F3D1-98B5-11CF-BB82-00AA00BDCE0B}']
- property pages: IHTMLStyleSheetPagesCollection readonly dispid 1016;
- function addPageRule(const bstrSelector: WideString; const bstrStyle: WideString;
- lIndex: Integer): Integer; dispid 1017;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLStyleSheet
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F58D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLStyleSheet = dispinterface
- ['{3050F58D-98B5-11CF-BB82-00AA00BDCE0B}']
- property title: WideString dispid 1001;
- property parentStyleSheet: IHTMLStyleSheet readonly dispid 1002;
- property owningElement: IHTMLElement readonly dispid 1003;
- property disabled: WordBool dispid - 2147418036;
- property readOnly: WordBool readonly dispid 1004;
- property imports: IHTMLStyleSheetsCollection readonly dispid 1005;
- property href: WideString dispid 1006;
- property type_: WideString readonly dispid 1007;
- property id: WideString readonly dispid 1008;
- function addImport(const bstrUrl: WideString; lIndex: Integer): Integer; dispid 1009;
- function addRule(const bstrSelector: WideString; const bstrStyle: WideString; lIndex: Integer): Integer; dispid 1010;
- procedure removeImport(lIndex: Integer); dispid 1011;
- procedure removeRule(lIndex: Integer); dispid 1012;
- property media: WideString dispid 1013;
- property cssText: WideString dispid 1014;
- property rules: IHTMLStyleSheetRulesCollection readonly dispid 1015;
- property pages: IHTMLStyleSheetPagesCollection readonly dispid 1016;
- function addPageRule(const bstrSelector: WideString; const bstrStyle: WideString;
- lIndex: Integer): Integer; dispid 1017;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLLinkElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F61D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLLinkElementEvents2 = dispinterface
- ['{3050F61D-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLLinkElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F3CC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLLinkElementEvents = dispinterface
- ['{3050F3CC-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLinkElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F205-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLinkElement = interface(IDispatch)
- ['{3050F205-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_href(const p: WideString); safecall;
- function Get_href: WideString; safecall;
- procedure Set_rel(const p: WideString); safecall;
- function Get_rel: WideString; safecall;
- procedure Set_rev(const p: WideString); safecall;
- function Get_rev: WideString; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- function Get_readyState: WideString; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- function Get_styleSheet: IHTMLStyleSheet; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- procedure Set_media(const p: WideString); safecall;
- function Get_media: WideString; safecall;
- property href: WideString read Get_href write Set_href;
- property rel: WideString read Get_rel write Set_rel;
- property rev: WideString read Get_rev write Set_rev;
- property type_: WideString read Get_type_ write Set_type_;
- property readyState: WideString read Get_readyState;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- property onload: OleVariant read Get_onload write Set_onload;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property styleSheet: IHTMLStyleSheet read Get_styleSheet;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property media: WideString read Get_media write Set_media;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLinkElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F205-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLinkElementDisp = dispinterface
- ['{3050F205-98B5-11CF-BB82-00AA00BDCE0B}']
- property href: WideString dispid 1005;
- property rel: WideString dispid 1006;
- property rev: WideString dispid 1007;
- property type_: WideString dispid 1008;
- property readyState: WideString readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property styleSheet: IHTMLStyleSheet readonly dispid 1014;
- property disabled: WordBool dispid - 2147418036;
- property media: WideString dispid 1016;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLinkElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4E5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLinkElement2 = interface(IDispatch)
- ['{3050F4E5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_target(const p: WideString); safecall;
- function Get_target: WideString; safecall;
- property target: WideString read Get_target write Set_target;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLinkElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4E5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLinkElement2Disp = dispinterface
- ['{3050F4E5-98B5-11CF-BB82-00AA00BDCE0B}']
- property target: WideString dispid 1017;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLinkElement3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLinkElement3 = interface(IDispatch)
- ['{3050F81E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_charset(const p: WideString); safecall;
- function Get_charset: WideString; safecall;
- procedure Set_hreflang(const p: WideString); safecall;
- function Get_hreflang: WideString; safecall;
- property charset: WideString read Get_charset write Set_charset;
- property hreflang: WideString read Get_hreflang write Set_hreflang;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLinkElement3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLinkElement3Disp = dispinterface
- ['{3050F81E-98B5-11CF-BB82-00AA00BDCE0B}']
- property charset: WideString dispid 1018;
- property hreflang: WideString dispid 1019;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLLinkElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F524-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLLinkElement = dispinterface
- ['{3050F524-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property href: WideString dispid 1005;
- property rel: WideString dispid 1006;
- property rev: WideString dispid 1007;
- property type_: WideString dispid 1008;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property styleSheet: IHTMLStyleSheet readonly dispid 1014;
- property media: WideString dispid 1016;
- property target: WideString dispid 1017;
- property charset: WideString dispid 1018;
- property hreflang: WideString dispid 1019;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTxtRange
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F220-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTxtRange = interface(IDispatch)
- ['{3050F220-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_htmlText: WideString; safecall;
- procedure Set_text(const p: WideString); safecall;
- function Get_text: WideString; safecall;
- function parentElement: IHTMLElement; safecall;
- function duplicate: IHTMLTxtRange; safecall;
- function inRange(const range: IHTMLTxtRange): WordBool; safecall;
- function isEqual(const range: IHTMLTxtRange): WordBool; safecall;
- procedure scrollIntoView(fStart: WordBool); safecall;
- procedure collapse(Start: WordBool); safecall;
- function expand(const Unit_: WideString): WordBool; safecall;
- function move(const Unit_: WideString; Count: Integer): Integer; safecall;
- function moveStart(const Unit_: WideString; Count: Integer): Integer; safecall;
- function moveEnd(const Unit_: WideString; Count: Integer): Integer; safecall;
- procedure select; safecall;
- procedure pasteHTML(const html: WideString); safecall;
- procedure moveToElementText(const element: IHTMLElement); safecall;
- procedure setEndPoint(const how: WideString; const SourceRange: IHTMLTxtRange); safecall;
- function compareEndPoints(const how: WideString; const SourceRange: IHTMLTxtRange): Integer; safecall;
- function findText(const String_: WideString; Count: Integer; Flags: Integer): WordBool; safecall;
- procedure moveToPoint(x: Integer; y: Integer); safecall;
- function getBookmark: WideString; safecall;
- function moveToBookmark(const Bookmark: WideString): WordBool; safecall;
- function queryCommandSupported(const cmdID: WideString): WordBool; safecall;
- function queryCommandEnabled(const cmdID: WideString): WordBool; safecall;
- function queryCommandState(const cmdID: WideString): WordBool; safecall;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; safecall;
- function queryCommandText(const cmdID: WideString): WideString; safecall;
- function queryCommandValue(const cmdID: WideString): OleVariant; safecall;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; safecall;
- function execCommandShowHelp(const cmdID: WideString): WordBool; safecall;
- property htmlText: WideString read Get_htmlText;
- property text: WideString read Get_text write Set_text;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTxtRangeDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F220-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTxtRangeDisp = dispinterface
- ['{3050F220-98B5-11CF-BB82-00AA00BDCE0B}']
- property htmlText: WideString readonly dispid 1003;
- property text: WideString dispid 1004;
- function parentElement: IHTMLElement; dispid 1006;
- function duplicate: IHTMLTxtRange; dispid 1008;
- function inRange(const range: IHTMLTxtRange): WordBool; dispid 1010;
- function isEqual(const range: IHTMLTxtRange): WordBool; dispid 1011;
- procedure scrollIntoView(fStart: WordBool); dispid 1012;
- procedure collapse(Start: WordBool); dispid 1013;
- function expand(const Unit_: WideString): WordBool; dispid 1014;
- function move(const Unit_: WideString; Count: Integer): Integer; dispid 1015;
- function moveStart(const Unit_: WideString; Count: Integer): Integer; dispid 1016;
- function moveEnd(const Unit_: WideString; Count: Integer): Integer; dispid 1017;
- procedure select; dispid 1024;
- procedure pasteHTML(const html: WideString); dispid 1026;
- procedure moveToElementText(const element: IHTMLElement); dispid 1001;
- procedure setEndPoint(const how: WideString; const SourceRange: IHTMLTxtRange); dispid 1025;
- function compareEndPoints(const how: WideString; const SourceRange: IHTMLTxtRange): Integer; dispid 1018;
- function findText(const String_: WideString; Count: Integer; Flags: Integer): WordBool; dispid 1019;
- procedure moveToPoint(x: Integer; y: Integer); dispid 1020;
- function getBookmark: WideString; dispid 1021;
- function moveToBookmark(const Bookmark: WideString): WordBool; dispid 1009;
- function queryCommandSupported(const cmdID: WideString): WordBool; dispid 1027;
- function queryCommandEnabled(const cmdID: WideString): WordBool; dispid 1028;
- function queryCommandState(const cmdID: WideString): WordBool; dispid 1029;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; dispid 1030;
- function queryCommandText(const cmdID: WideString): WideString; dispid 1031;
- function queryCommandValue(const cmdID: WideString): OleVariant; dispid 1032;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; dispid 1033;
- function execCommandShowHelp(const cmdID: WideString): WordBool; dispid 1034;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTextRangeMetrics
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F40B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextRangeMetrics = interface(IDispatch)
- ['{3050F40B-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_offsetTop: Integer; safecall;
- function Get_offsetLeft: Integer; safecall;
- function Get_boundingTop: Integer; safecall;
- function Get_boundingLeft: Integer; safecall;
- function Get_boundingWidth: Integer; safecall;
- function Get_boundingHeight: Integer; safecall;
- property offsetTop: Integer read Get_offsetTop;
- property offsetLeft: Integer read Get_offsetLeft;
- property boundingTop: Integer read Get_boundingTop;
- property boundingLeft: Integer read Get_boundingLeft;
- property boundingWidth: Integer read Get_boundingWidth;
- property boundingHeight: Integer read Get_boundingHeight;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTextRangeMetricsDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F40B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextRangeMetricsDisp = dispinterface
- ['{3050F40B-98B5-11CF-BB82-00AA00BDCE0B}']
- property offsetTop: Integer readonly dispid 1035;
- property offsetLeft: Integer readonly dispid 1036;
- property boundingTop: Integer readonly dispid 1037;
- property boundingLeft: Integer readonly dispid 1038;
- property boundingWidth: Integer readonly dispid 1039;
- property boundingHeight: Integer readonly dispid 1040;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTextRangeMetrics2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextRangeMetrics2 = interface(IDispatch)
- ['{3050F4A6-98B5-11CF-BB82-00AA00BDCE0B}']
- function getClientRects: IHTMLRectCollection; safecall;
- function getBoundingClientRect: IHTMLRect; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTextRangeMetrics2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextRangeMetrics2Disp = dispinterface
- ['{3050F4A6-98B5-11CF-BB82-00AA00BDCE0B}']
- function getClientRects: IHTMLRectCollection; dispid 1041;
- function getBoundingClientRect: IHTMLRect; dispid 1042;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTxtRangeCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7ED-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTxtRangeCollection = interface(IDispatch)
- ['{3050F7ED-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTxtRangeCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7ED-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTxtRangeCollectionDisp = dispinterface
- ['{3050F7ED-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLFormElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F614-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLFormElementEvents2 = dispinterface
- ['{3050F614-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- function onsubmit(const pEvtObj: IHTMLEventObj): WordBool; dispid 1007;
- function onreset(const pEvtObj: IHTMLEventObj): WordBool; dispid 1015;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLFormElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F364-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLFormElementEvents = dispinterface
- ['{3050F364-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- function onsubmit: WordBool; dispid 1007;
- function onreset: WordBool; dispid 1015;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFormElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFormElement = interface(IDispatch)
- ['{3050F1F7-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_action(const p: WideString); safecall;
- function Get_action: WideString; safecall;
- procedure Set_dir(const p: WideString); safecall;
- function Get_dir: WideString; safecall;
- procedure Set_encoding(const p: WideString); safecall;
- function Get_encoding: WideString; safecall;
- procedure Set_method(const p: WideString); safecall;
- function Get_method: WideString; safecall;
- function Get_elements: IDispatch; safecall;
- procedure Set_target(const p: WideString); safecall;
- function Get_target: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_onsubmit(p: OleVariant); safecall;
- function Get_onsubmit: OleVariant; safecall;
- procedure Set_onreset(p: OleVariant); safecall;
- function Get_onreset: OleVariant; safecall;
- procedure submit; safecall;
- procedure reset; safecall;
- procedure Set_length(p: Integer); safecall;
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(name: OleVariant; index: OleVariant): IDispatch; safecall;
- function tags(tagName: OleVariant): IDispatch; safecall;
- property action: WideString read Get_action write Set_action;
- property dir: WideString read Get_dir write Set_dir;
- property encoding: WideString read Get_encoding write Set_encoding;
- property method: WideString read Get_method write Set_method;
- property elements: IDispatch read Get_elements;
- property target: WideString read Get_target write Set_target;
- property name: WideString read Get_name write Set_name;
- property onsubmit: OleVariant read Get_onsubmit write Set_onsubmit;
- property onreset: OleVariant read Get_onreset write Set_onreset;
- property length: Integer read Get_length write Set_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFormElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFormElementDisp = dispinterface
- ['{3050F1F7-98B5-11CF-BB82-00AA00BDCE0B}']
- property action: WideString dispid 1001;
- property dir: WideString dispid - 2147412995;
- property encoding: WideString dispid 1003;
- property method: WideString dispid 1004;
- property elements: IDispatch readonly dispid 1005;
- property target: WideString dispid 1006;
- property name: WideString dispid - 2147418112;
- property onsubmit: OleVariant dispid - 2147412101;
- property onreset: OleVariant dispid - 2147412100;
- procedure submit; dispid 1009;
- procedure reset; dispid 1010;
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFormElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4F6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFormElement2 = interface(IDispatch)
- ['{3050F4F6-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_acceptCharset(const p: WideString); safecall;
- function Get_acceptCharset: WideString; safecall;
- function urns(urn: OleVariant): IDispatch; safecall;
- property acceptCharset: WideString read Get_acceptCharset write Set_acceptCharset;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFormElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4F6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFormElement2Disp = dispinterface
- ['{3050F4F6-98B5-11CF-BB82-00AA00BDCE0B}']
- property acceptCharset: WideString dispid 1011;
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFormElement3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F836-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFormElement3 = interface(IDispatch)
- ['{3050F836-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFormElement3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F836-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFormElement3Disp = dispinterface
- ['{3050F836-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSubmitData
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F645-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSubmitData = interface(IDispatch)
- ['{3050F645-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure appendNameValuePair(const name: WideString; const value: WideString); safecall;
- procedure appendNameFilePair(const name: WideString; const filename: WideString); safecall;
- procedure appendItemSeparator; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSubmitDataDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F645-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSubmitDataDisp = dispinterface
- ['{3050F645-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure appendNameValuePair(const name: WideString; const value: WideString); dispid 1012;
- procedure appendNameFilePair(const name: WideString; const filename: WideString); dispid 1013;
- procedure appendItemSeparator; dispid 1014;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLFormElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F510-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLFormElement = dispinterface
- ['{3050F510-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property action: WideString dispid 1001;
- property encoding: WideString dispid 1003;
- property method: WideString dispid 1004;
- property elements: IDispatch readonly dispid 1005;
- property target: WideString dispid 1006;
- property name: WideString dispid - 2147418112;
- property onsubmit: OleVariant dispid - 2147412101;
- property onreset: OleVariant dispid - 2147412100;
- procedure submit; dispid 1009;
- procedure reset; dispid 1010;
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- property acceptCharset: WideString dispid 1011;
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- procedure appendNameValuePair(const name: WideString; const value: WideString); dispid 1012;
- procedure appendNameFilePair(const name: WideString; const filename: WideString); dispid 1013;
- procedure appendItemSeparator; dispid 1014;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLControlElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F612-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLControlElementEvents2 = dispinterface
- ['{3050F612-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLControlElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F4EA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLControlElementEvents = dispinterface
- ['{3050F4EA-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLControlElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4E9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLControlElement = interface(IDispatch)
- ['{3050F4E9-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_tabIndex(p: Smallint); safecall;
- function Get_tabIndex: Smallint; safecall;
- procedure focus; safecall;
- procedure Set_accessKey(const p: WideString); safecall;
- function Get_accessKey: WideString; safecall;
- procedure Set_onblur(p: OleVariant); safecall;
- function Get_onblur: OleVariant; safecall;
- procedure Set_onfocus(p: OleVariant); safecall;
- function Get_onfocus: OleVariant; safecall;
- procedure Set_onresize(p: OleVariant); safecall;
- function Get_onresize: OleVariant; safecall;
- procedure blur; safecall;
- procedure addFilter(const pUnk: IUnknown); safecall;
- procedure removeFilter(const pUnk: IUnknown); safecall;
- function Get_clientHeight: Integer; safecall;
- function Get_clientWidth: Integer; safecall;
- function Get_clientTop: Integer; safecall;
- function Get_clientLeft: Integer; safecall;
- property tabIndex: Smallint read Get_tabIndex write Set_tabIndex;
- property accessKey: WideString read Get_accessKey write Set_accessKey;
- property onblur: OleVariant read Get_onblur write Set_onblur;
- property onfocus: OleVariant read Get_onfocus write Set_onfocus;
- property onresize: OleVariant read Get_onresize write Set_onresize;
- property clientHeight: Integer read Get_clientHeight;
- property clientWidth: Integer read Get_clientWidth;
- property clientTop: Integer read Get_clientTop;
- property clientLeft: Integer read Get_clientLeft;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLControlElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4E9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLControlElementDisp = dispinterface
- ['{3050F4E9-98B5-11CF-BB82-00AA00BDCE0B}']
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTextElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F218-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextElement = interface(IDispatch)
- ['{3050F218-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTextElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F218-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextElementDisp = dispinterface
- ['{3050F218-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTextElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F537-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTextElement = dispinterface
- ['{3050F537-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLTextContainerEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F624-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLTextContainerEvents2 = dispinterface
- ['{3050F624-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onchange(const pEvtObj: IHTMLEventObj); dispid 1001;
- procedure onselect(const pEvtObj: IHTMLEventObj); dispid 1006;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLTextContainerEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {1FF6AA72-5842-11CF-A707-00AA00C0098D}
-// *********************************************************************//
- HTMLTextContainerEvents = dispinterface
- ['{1FF6AA72-5842-11CF-A707-00AA00C0098D}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onchange; dispid 1001;
- procedure onselect; dispid 1006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTextContainer
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F230-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextContainer = interface(IDispatch)
- ['{3050F230-98B5-11CF-BB82-00AA00BDCE0B}']
- function createControlRange: IDispatch; safecall;
- function Get_scrollHeight: Integer; safecall;
- function Get_scrollWidth: Integer; safecall;
- procedure Set_scrollTop(p: Integer); safecall;
- function Get_scrollTop: Integer; safecall;
- procedure Set_scrollLeft(p: Integer); safecall;
- function Get_scrollLeft: Integer; safecall;
- procedure Set_onscroll(p: OleVariant); safecall;
- function Get_onscroll: OleVariant; safecall;
- property scrollHeight: Integer read Get_scrollHeight;
- property scrollWidth: Integer read Get_scrollWidth;
- property scrollTop: Integer read Get_scrollTop write Set_scrollTop;
- property scrollLeft: Integer read Get_scrollLeft write Set_scrollLeft;
- property onscroll: OleVariant read Get_onscroll write Set_onscroll;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTextContainerDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F230-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextContainerDisp = dispinterface
- ['{3050F230-98B5-11CF-BB82-00AA00BDCE0B}']
- function createControlRange: IDispatch; dispid 1001;
- property scrollHeight: Integer readonly dispid 1002;
- property scrollWidth: Integer readonly dispid 1003;
- property scrollTop: Integer dispid 1004;
- property scrollLeft: Integer dispid 1005;
- property onscroll: OleVariant dispid - 2147412081;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLControlRange
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F29C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLControlRange = interface(IDispatch)
- ['{3050F29C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure select; safecall;
- procedure add(const item: IHTMLControlElement); safecall;
- procedure remove(index: Integer); safecall;
- function item(index: Integer): IHTMLElement; safecall;
- procedure scrollIntoView(varargStart: OleVariant); safecall;
- function queryCommandSupported(const cmdID: WideString): WordBool; safecall;
- function queryCommandEnabled(const cmdID: WideString): WordBool; safecall;
- function queryCommandState(const cmdID: WideString): WordBool; safecall;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; safecall;
- function queryCommandText(const cmdID: WideString): WideString; safecall;
- function queryCommandValue(const cmdID: WideString): OleVariant; safecall;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; safecall;
- function execCommandShowHelp(const cmdID: WideString): WordBool; safecall;
- function commonParentElement: IHTMLElement; safecall;
- function Get_length: Integer; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLControlRangeDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F29C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLControlRangeDisp = dispinterface
- ['{3050F29C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure select; dispid 1002;
- procedure add(const item: IHTMLControlElement); dispid 1003;
- procedure remove(index: Integer); dispid 1004;
- function item(index: Integer): IHTMLElement; dispid 0;
- procedure scrollIntoView(varargStart: OleVariant); dispid 1006;
- function queryCommandSupported(const cmdID: WideString): WordBool; dispid 1007;
- function queryCommandEnabled(const cmdID: WideString): WordBool; dispid 1008;
- function queryCommandState(const cmdID: WideString): WordBool; dispid 1009;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; dispid 1010;
- function queryCommandText(const cmdID: WideString): WideString; dispid 1011;
- function queryCommandValue(const cmdID: WideString): OleVariant; dispid 1012;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; dispid 1013;
- function execCommandShowHelp(const cmdID: WideString): WordBool; dispid 1014;
- function commonParentElement: IHTMLElement; dispid 1015;
- property length: Integer readonly dispid 1005;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLControlRange2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F65E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLControlRange2 = interface(IDispatch)
- ['{3050F65E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure addElement(const item: IHTMLElement); safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLControlRange2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F65E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLControlRange2Disp = dispinterface
- ['{3050F65E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure addElement(const item: IHTMLElement); dispid 1016;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLImgEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F616-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLImgEvents2 = dispinterface
- ['{3050F616-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- procedure onabort(const pEvtObj: IHTMLEventObj); dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLImgEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F25B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLImgEvents = dispinterface
- ['{3050F25B-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- procedure onabort; dispid 1000;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLImgElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F240-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLImgElement = interface(IDispatch)
- ['{3050F240-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_isMap(p: WordBool); safecall;
- function Get_isMap: WordBool; safecall;
- procedure Set_useMap(const p: WideString); safecall;
- function Get_useMap: WideString; safecall;
- function Get_mimeType: WideString; safecall;
- function Get_fileSize: WideString; safecall;
- function Get_fileCreatedDate: WideString; safecall;
- function Get_fileModifiedDate: WideString; safecall;
- function Get_fileUpdatedDate: WideString; safecall;
- function Get_protocol: WideString; safecall;
- function Get_href: WideString; safecall;
- function Get_nameProp: WideString; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_vspace(p: Integer); safecall;
- function Get_vspace: Integer; safecall;
- procedure Set_hspace(p: Integer); safecall;
- function Get_hspace: Integer; safecall;
- procedure Set_alt(const p: WideString); safecall;
- function Get_alt: WideString; safecall;
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_lowsrc(const p: WideString); safecall;
- function Get_lowsrc: WideString; safecall;
- procedure Set_vrml(const p: WideString); safecall;
- function Get_vrml: WideString; safecall;
- procedure Set_dynsrc(const p: WideString); safecall;
- function Get_dynsrc: WideString; safecall;
- function Get_readyState: WideString; safecall;
- function Get_complete: WordBool; safecall;
- procedure Set_loop(p: OleVariant); safecall;
- function Get_loop: OleVariant; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- procedure Set_onabort(p: OleVariant); safecall;
- function Get_onabort: OleVariant; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_width(p: Integer); safecall;
- function Get_width: Integer; safecall;
- procedure Set_height(p: Integer); safecall;
- function Get_height: Integer; safecall;
- procedure Set_Start(const p: WideString); safecall;
- function Get_Start: WideString; safecall;
- property isMap: WordBool read Get_isMap write Set_isMap;
- property useMap: WideString read Get_useMap write Set_useMap;
- property mimeType: WideString read Get_mimeType;
- property fileSize: WideString read Get_fileSize;
- property fileCreatedDate: WideString read Get_fileCreatedDate;
- property fileModifiedDate: WideString read Get_fileModifiedDate;
- property fileUpdatedDate: WideString read Get_fileUpdatedDate;
- property protocol: WideString read Get_protocol;
- property href: WideString read Get_href;
- property nameProp: WideString read Get_nameProp;
- property border: OleVariant read Get_border write Set_border;
- property vspace: Integer read Get_vspace write Set_vspace;
- property hspace: Integer read Get_hspace write Set_hspace;
- property alt: WideString read Get_alt write Set_alt;
- property src: WideString read Get_src write Set_src;
- property lowsrc: WideString read Get_lowsrc write Set_lowsrc;
- property vrml: WideString read Get_vrml write Set_vrml;
- property dynsrc: WideString read Get_dynsrc write Set_dynsrc;
- property readyState: WideString read Get_readyState;
- property complete: WordBool read Get_complete;
- property loop: OleVariant read Get_loop write Set_loop;
- property align: WideString read Get_align write Set_align;
- property onload: OleVariant read Get_onload write Set_onload;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property onabort: OleVariant read Get_onabort write Set_onabort;
- property name: WideString read Get_name write Set_name;
- property width: Integer read Get_width write Set_width;
- property height: Integer read Get_height write Set_height;
- property Start: WideString read Get_Start write Set_Start;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLImgElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F240-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLImgElementDisp = dispinterface
- ['{3050F240-98B5-11CF-BB82-00AA00BDCE0B}']
- property isMap: WordBool dispid 2002;
- property useMap: WideString dispid 2008;
- property mimeType: WideString readonly dispid 2010;
- property fileSize: WideString readonly dispid 2011;
- property fileCreatedDate: WideString readonly dispid 2012;
- property fileModifiedDate: WideString readonly dispid 2013;
- property fileUpdatedDate: WideString readonly dispid 2014;
- property protocol: WideString readonly dispid 2015;
- property href: WideString readonly dispid 2016;
- property nameProp: WideString readonly dispid 2017;
- property border: OleVariant dispid 1004;
- property vspace: Integer dispid 1005;
- property hspace: Integer dispid 1006;
- property alt: WideString dispid 1002;
- property src: WideString dispid 1003;
- property lowsrc: WideString dispid 1007;
- property vrml: WideString dispid 1008;
- property dynsrc: WideString dispid 1009;
- property readyState: WideString readonly dispid - 2147412996;
- property complete: WordBool readonly dispid 1010;
- property loop: OleVariant dispid 1011;
- property align: WideString dispid - 2147418039;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property onabort: OleVariant dispid - 2147412084;
- property name: WideString dispid - 2147418112;
- property width: Integer dispid - 2147418107;
- property height: Integer dispid - 2147418106;
- property Start: WideString dispid 1013;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLImgElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F826-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLImgElement2 = interface(IDispatch)
- ['{3050F826-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_longDesc(const p: WideString); safecall;
- function Get_longDesc: WideString; safecall;
- property longDesc: WideString read Get_longDesc write Set_longDesc;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLImgElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F826-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLImgElement2Disp = dispinterface
- ['{3050F826-98B5-11CF-BB82-00AA00BDCE0B}']
- property longDesc: WideString dispid 2019;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLImageElementFactory
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F38E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLImageElementFactory = interface(IDispatch)
- ['{3050F38E-98B5-11CF-BB82-00AA00BDCE0B}']
- function create(width: OleVariant; height: OleVariant): IHTMLImgElement; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLImageElementFactoryDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F38E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLImageElementFactoryDisp = dispinterface
- ['{3050F38E-98B5-11CF-BB82-00AA00BDCE0B}']
- function create(width: OleVariant; height: OleVariant): IHTMLImgElement; dispid 0;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLImg
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F51C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLImg = dispinterface
- ['{3050F51C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property isMap: WordBool dispid 2002;
- property useMap: WideString dispid 2008;
- property mimeType: WideString readonly dispid 2010;
- property fileSize: WideString readonly dispid 2011;
- property fileCreatedDate: WideString readonly dispid 2012;
- property fileModifiedDate: WideString readonly dispid 2013;
- property fileUpdatedDate: WideString readonly dispid 2014;
- property protocol: WideString readonly dispid 2015;
- property href: WideString readonly dispid 2016;
- property nameProp: WideString readonly dispid 2017;
- property border: OleVariant dispid 1004;
- property vspace: Integer dispid 1005;
- property hspace: Integer dispid 1006;
- property alt: WideString dispid 1002;
- property src: WideString dispid 1003;
- property lowsrc: WideString dispid 1007;
- property vrml: WideString dispid 1008;
- property dynsrc: WideString dispid 1009;
- property complete: WordBool readonly dispid 1010;
- property loop: OleVariant dispid 1011;
- property align: WideString dispid - 2147418039;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property onabort: OleVariant dispid - 2147412084;
- property name: WideString dispid - 2147418112;
- property width: Integer dispid - 2147418107;
- property height: Integer dispid - 2147418106;
- property Start: WideString dispid 1013;
- property longDesc: WideString dispid 2019;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBodyElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1D8-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBodyElement = interface(IDispatch)
- ['{3050F1D8-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_background(const p: WideString); safecall;
- function Get_background: WideString; safecall;
- procedure Set_bgProperties(const p: WideString); safecall;
- function Get_bgProperties: WideString; safecall;
- procedure Set_leftMargin(p: OleVariant); safecall;
- function Get_leftMargin: OleVariant; safecall;
- procedure Set_topMargin(p: OleVariant); safecall;
- function Get_topMargin: OleVariant; safecall;
- procedure Set_rightMargin(p: OleVariant); safecall;
- function Get_rightMargin: OleVariant; safecall;
- procedure Set_bottomMargin(p: OleVariant); safecall;
- function Get_bottomMargin: OleVariant; safecall;
- procedure Set_noWrap(p: WordBool); safecall;
- function Get_noWrap: WordBool; safecall;
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- procedure Set_text(p: OleVariant); safecall;
- function Get_text: OleVariant; safecall;
- procedure Set_link(p: OleVariant); safecall;
- function Get_link: OleVariant; safecall;
- procedure Set_vLink(p: OleVariant); safecall;
- function Get_vLink: OleVariant; safecall;
- procedure Set_aLink(p: OleVariant); safecall;
- function Get_aLink: OleVariant; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onunload(p: OleVariant); safecall;
- function Get_onunload: OleVariant; safecall;
- procedure Set_scroll(const p: WideString); safecall;
- function Get_scroll: WideString; safecall;
- procedure Set_onselect(p: OleVariant); safecall;
- function Get_onselect: OleVariant; safecall;
- procedure Set_onbeforeunload(p: OleVariant); safecall;
- function Get_onbeforeunload: OleVariant; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- property background: WideString read Get_background write Set_background;
- property bgProperties: WideString read Get_bgProperties write Set_bgProperties;
- property leftMargin: OleVariant read Get_leftMargin write Set_leftMargin;
- property topMargin: OleVariant read Get_topMargin write Set_topMargin;
- property rightMargin: OleVariant read Get_rightMargin write Set_rightMargin;
- property bottomMargin: OleVariant read Get_bottomMargin write Set_bottomMargin;
- property noWrap: WordBool read Get_noWrap write Set_noWrap;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property text: OleVariant read Get_text write Set_text;
- property link: OleVariant read Get_link write Set_link;
- property vLink: OleVariant read Get_vLink write Set_vLink;
- property aLink: OleVariant read Get_aLink write Set_aLink;
- property onload: OleVariant read Get_onload write Set_onload;
- property onunload: OleVariant read Get_onunload write Set_onunload;
- property scroll: WideString read Get_scroll write Set_scroll;
- property onselect: OleVariant read Get_onselect write Set_onselect;
- property onbeforeunload: OleVariant read Get_onbeforeunload write Set_onbeforeunload;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBodyElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1D8-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBodyElementDisp = dispinterface
- ['{3050F1D8-98B5-11CF-BB82-00AA00BDCE0B}']
- property background: WideString dispid - 2147413111;
- property bgProperties: WideString dispid - 2147413067;
- property leftMargin: OleVariant dispid - 2147413072;
- property topMargin: OleVariant dispid - 2147413075;
- property rightMargin: OleVariant dispid - 2147413074;
- property bottomMargin: OleVariant dispid - 2147413073;
- property noWrap: WordBool dispid - 2147413107;
- property bgColor: OleVariant dispid - 501;
- property text: OleVariant dispid - 2147413110;
- property link: OleVariant dispid 2010;
- property vLink: OleVariant dispid 2012;
- property aLink: OleVariant dispid 2011;
- property onload: OleVariant dispid - 2147412080;
- property onunload: OleVariant dispid - 2147412079;
- property scroll: WideString dispid - 2147413033;
- property onselect: OleVariant dispid - 2147412102;
- property onbeforeunload: OleVariant dispid - 2147412073;
- function createTextRange: IHTMLTxtRange; dispid 2013;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBodyElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBodyElement2 = interface(IDispatch)
- ['{3050F5C5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_onbeforeprint(p: OleVariant); safecall;
- function Get_onbeforeprint: OleVariant; safecall;
- procedure Set_onafterprint(p: OleVariant); safecall;
- function Get_onafterprint: OleVariant; safecall;
- property onbeforeprint: OleVariant read Get_onbeforeprint write Set_onbeforeprint;
- property onafterprint: OleVariant read Get_onafterprint write Set_onafterprint;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBodyElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBodyElement2Disp = dispinterface
- ['{3050F5C5-98B5-11CF-BB82-00AA00BDCE0B}']
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLBody
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F507-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLBody = dispinterface
- ['{3050F507-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property background: WideString dispid - 2147413111;
- property bgProperties: WideString dispid - 2147413067;
- property leftMargin: OleVariant dispid - 2147413072;
- property topMargin: OleVariant dispid - 2147413075;
- property rightMargin: OleVariant dispid - 2147413074;
- property bottomMargin: OleVariant dispid - 2147413073;
- property noWrap: WordBool dispid - 2147413107;
- property bgColor: OleVariant dispid - 501;
- property text: OleVariant dispid - 2147413110;
- property link: OleVariant dispid 2010;
- property vLink: OleVariant dispid 2012;
- property aLink: OleVariant dispid 2011;
- property onload: OleVariant dispid - 2147412080;
- property onunload: OleVariant dispid - 2147412079;
- property scroll: WideString dispid - 2147413033;
- property onselect: OleVariant dispid - 2147412102;
- property onbeforeunload: OleVariant dispid - 2147412073;
- function createTextRange: IHTMLTxtRange; dispid 2013;
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFontElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1D9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFontElement = interface(IDispatch)
- ['{3050F1D9-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_color(p: OleVariant); safecall;
- function Get_color: OleVariant; safecall;
- procedure Set_face(const p: WideString); safecall;
- function Get_face: WideString; safecall;
- procedure Set_size(p: OleVariant); safecall;
- function Get_size: OleVariant; safecall;
- property color: OleVariant read Get_color write Set_color;
- property face: WideString read Get_face write Set_face;
- property size: OleVariant read Get_size write Set_size;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFontElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1D9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFontElementDisp = dispinterface
- ['{3050F1D9-98B5-11CF-BB82-00AA00BDCE0B}']
- property color: OleVariant dispid - 2147413110;
- property face: WideString dispid - 2147413094;
- property size: OleVariant dispid - 2147413093;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLFontElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F512-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLFontElement = dispinterface
- ['{3050F512-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property color: OleVariant dispid - 2147413110;
- property face: WideString dispid - 2147413094;
- property size: OleVariant dispid - 2147413093;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLAnchorEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F610-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLAnchorEvents2 = dispinterface
- ['{3050F610-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLAnchorEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F29D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLAnchorEvents = dispinterface
- ['{3050F29D-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAnchorElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1DA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAnchorElement = interface(IDispatch)
- ['{3050F1DA-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_href(const p: WideString); safecall;
- function Get_href: WideString; safecall;
- procedure Set_target(const p: WideString); safecall;
- function Get_target: WideString; safecall;
- procedure Set_rel(const p: WideString); safecall;
- function Get_rel: WideString; safecall;
- procedure Set_rev(const p: WideString); safecall;
- function Get_rev: WideString; safecall;
- procedure Set_urn(const p: WideString); safecall;
- function Get_urn: WideString; safecall;
- procedure Set_Methods(const p: WideString); safecall;
- function Get_Methods: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_host(const p: WideString); safecall;
- function Get_host: WideString; safecall;
- procedure Set_hostname(const p: WideString); safecall;
- function Get_hostname: WideString; safecall;
- procedure Set_pathname(const p: WideString); safecall;
- function Get_pathname: WideString; safecall;
- procedure Set_port(const p: WideString); safecall;
- function Get_port: WideString; safecall;
- procedure Set_protocol(const p: WideString); safecall;
- function Get_protocol: WideString; safecall;
- procedure Set_search(const p: WideString); safecall;
- function Get_search: WideString; safecall;
- procedure Set_hash(const p: WideString); safecall;
- function Get_hash: WideString; safecall;
- procedure Set_onblur(p: OleVariant); safecall;
- function Get_onblur: OleVariant; safecall;
- procedure Set_onfocus(p: OleVariant); safecall;
- function Get_onfocus: OleVariant; safecall;
- procedure Set_accessKey(const p: WideString); safecall;
- function Get_accessKey: WideString; safecall;
- function Get_protocolLong: WideString; safecall;
- function Get_mimeType: WideString; safecall;
- function Get_nameProp: WideString; safecall;
- procedure Set_tabIndex(p: Smallint); safecall;
- function Get_tabIndex: Smallint; safecall;
- procedure focus; safecall;
- procedure blur; safecall;
- property href: WideString read Get_href write Set_href;
- property target: WideString read Get_target write Set_target;
- property rel: WideString read Get_rel write Set_rel;
- property rev: WideString read Get_rev write Set_rev;
- property urn: WideString read Get_urn write Set_urn;
- property Methods: WideString read Get_Methods write Set_Methods;
- property name: WideString read Get_name write Set_name;
- property host: WideString read Get_host write Set_host;
- property hostname: WideString read Get_hostname write Set_hostname;
- property pathname: WideString read Get_pathname write Set_pathname;
- property port: WideString read Get_port write Set_port;
- property protocol: WideString read Get_protocol write Set_protocol;
- property search: WideString read Get_search write Set_search;
- property hash: WideString read Get_hash write Set_hash;
- property onblur: OleVariant read Get_onblur write Set_onblur;
- property onfocus: OleVariant read Get_onfocus write Set_onfocus;
- property accessKey: WideString read Get_accessKey write Set_accessKey;
- property protocolLong: WideString read Get_protocolLong;
- property mimeType: WideString read Get_mimeType;
- property nameProp: WideString read Get_nameProp;
- property tabIndex: Smallint read Get_tabIndex write Set_tabIndex;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAnchorElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1DA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAnchorElementDisp = dispinterface
- ['{3050F1DA-98B5-11CF-BB82-00AA00BDCE0B}']
- property href: WideString dispid 0;
- property target: WideString dispid 1003;
- property rel: WideString dispid 1005;
- property rev: WideString dispid 1006;
- property urn: WideString dispid 1007;
- property Methods: WideString dispid 1008;
- property name: WideString dispid - 2147418112;
- property host: WideString dispid 1012;
- property hostname: WideString dispid 1013;
- property pathname: WideString dispid 1014;
- property port: WideString dispid 1015;
- property protocol: WideString dispid 1016;
- property search: WideString dispid 1017;
- property hash: WideString dispid 1018;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property accessKey: WideString dispid - 2147416107;
- property protocolLong: WideString readonly dispid 1031;
- property mimeType: WideString readonly dispid 1030;
- property nameProp: WideString readonly dispid 1032;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- procedure blur; dispid - 2147416110;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAnchorElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F825-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAnchorElement2 = interface(IDispatch)
- ['{3050F825-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_charset(const p: WideString); safecall;
- function Get_charset: WideString; safecall;
- procedure Set_coords(const p: WideString); safecall;
- function Get_coords: WideString; safecall;
- procedure Set_hreflang(const p: WideString); safecall;
- function Get_hreflang: WideString; safecall;
- procedure Set_shape(const p: WideString); safecall;
- function Get_shape: WideString; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- property charset: WideString read Get_charset write Set_charset;
- property coords: WideString read Get_coords write Set_coords;
- property hreflang: WideString read Get_hreflang write Set_hreflang;
- property shape: WideString read Get_shape write Set_shape;
- property type_: WideString read Get_type_ write Set_type_;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAnchorElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F825-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAnchorElement2Disp = dispinterface
- ['{3050F825-98B5-11CF-BB82-00AA00BDCE0B}']
- property charset: WideString dispid 1023;
- property coords: WideString dispid 1024;
- property hreflang: WideString dispid 1025;
- property shape: WideString dispid 1026;
- property type_: WideString dispid 1027;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLAnchorElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F502-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLAnchorElement = dispinterface
- ['{3050F502-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property href: WideString dispid 0;
- property target: WideString dispid 1003;
- property rel: WideString dispid 1005;
- property rev: WideString dispid 1006;
- property urn: WideString dispid 1007;
- property Methods: WideString dispid 1008;
- property name: WideString dispid - 2147418112;
- property host: WideString dispid 1012;
- property hostname: WideString dispid 1013;
- property pathname: WideString dispid 1014;
- property port: WideString dispid 1015;
- property protocol: WideString dispid 1016;
- property search: WideString dispid 1017;
- property hash: WideString dispid 1018;
- property protocolLong: WideString readonly dispid 1031;
- property mimeType: WideString readonly dispid 1030;
- property nameProp: WideString readonly dispid 1032;
- property charset: WideString dispid 1023;
- property coords: WideString dispid 1024;
- property hreflang: WideString dispid 1025;
- property shape: WideString dispid 1026;
- property type_: WideString dispid 1027;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLLabelEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F61C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLLabelEvents2 = dispinterface
- ['{3050F61C-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLLabelEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F329-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLLabelEvents = dispinterface
- ['{3050F329-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLabelElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F32A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLabelElement = interface(IDispatch)
- ['{3050F32A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_htmlFor(const p: WideString); safecall;
- function Get_htmlFor: WideString; safecall;
- procedure Set_accessKey(const p: WideString); safecall;
- function Get_accessKey: WideString; safecall;
- property htmlFor: WideString read Get_htmlFor write Set_htmlFor;
- property accessKey: WideString read Get_accessKey write Set_accessKey;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLabelElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F32A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLabelElementDisp = dispinterface
- ['{3050F32A-98B5-11CF-BB82-00AA00BDCE0B}']
- property htmlFor: WideString dispid 1000;
- property accessKey: WideString dispid - 2147416107;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLabelElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F832-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLabelElement2 = interface(IDispatch)
- ['{3050F832-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_form: IHTMLFormElement; safecall;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLabelElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F832-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLabelElement2Disp = dispinterface
- ['{3050F832-98B5-11CF-BB82-00AA00BDCE0B}']
- property form: IHTMLFormElement readonly dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLLabelElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F522-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLLabelElement = dispinterface
- ['{3050F522-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property htmlFor: WideString dispid 1000;
- property form: IHTMLFormElement readonly dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLListElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F20E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLListElement = interface(IDispatch)
- ['{3050F20E-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLListElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F20E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLListElementDisp = dispinterface
- ['{3050F20E-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// Interface: IHTMLListElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F822-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLListElement2 = interface(IDispatch)
- ['{3050F822-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_compact(p: WordBool); safecall;
- function Get_compact: WordBool; safecall;
- property compact: WordBool read Get_compact write Set_compact;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLListElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F822-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLListElement2Disp = dispinterface
- ['{3050F822-98B5-11CF-BB82-00AA00BDCE0B}']
- property compact: WordBool dispid 1001;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLListElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F525-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLListElement = dispinterface
- ['{3050F525-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property compact: WordBool dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLUListElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1DD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUListElement = interface(IDispatch)
- ['{3050F1DD-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_compact(p: WordBool); safecall;
- function Get_compact: WordBool; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- property compact: WordBool read Get_compact write Set_compact;
- property type_: WideString read Get_type_ write Set_type_;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLUListElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1DD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUListElementDisp = dispinterface
- ['{3050F1DD-98B5-11CF-BB82-00AA00BDCE0B}']
- property compact: WordBool dispid 1001;
- property type_: WideString dispid - 2147413095;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLUListElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F538-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLUListElement = dispinterface
- ['{3050F538-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property compact: WordBool dispid 1001;
- property type_: WideString dispid - 2147413095;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOListElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1DE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOListElement = interface(IDispatch)
- ['{3050F1DE-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_compact(p: WordBool); safecall;
- function Get_compact: WordBool; safecall;
- procedure Set_Start(p: Integer); safecall;
- function Get_Start: Integer; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- property compact: WordBool read Get_compact write Set_compact;
- property Start: Integer read Get_Start write Set_Start;
- property type_: WideString read Get_type_ write Set_type_;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOListElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1DE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOListElementDisp = dispinterface
- ['{3050F1DE-98B5-11CF-BB82-00AA00BDCE0B}']
- property compact: WordBool dispid 1001;
- property Start: Integer dispid 1003;
- property type_: WideString dispid - 2147413095;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLOListElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F52A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLOListElement = dispinterface
- ['{3050F52A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property compact: WordBool dispid 1001;
- property Start: Integer dispid 1003;
- property type_: WideString dispid - 2147413095;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLIElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1E0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLIElement = interface(IDispatch)
- ['{3050F1E0-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- procedure Set_value(p: Integer); safecall;
- function Get_value: Integer; safecall;
- property type_: WideString read Get_type_ write Set_type_;
- property value: Integer read Get_value write Set_value;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLIElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1E0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLIElementDisp = dispinterface
- ['{3050F1E0-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString dispid - 2147413095;
- property value: Integer dispid 1001;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLLIElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F523-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLLIElement = dispinterface
- ['{3050F523-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property type_: WideString dispid - 2147413095;
- property value: Integer dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBlockElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F208-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBlockElement = interface(IDispatch)
- ['{3050F208-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_clear(const p: WideString); safecall;
- function Get_clear: WideString; safecall;
- property clear: WideString read Get_clear write Set_clear;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBlockElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F208-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBlockElementDisp = dispinterface
- ['{3050F208-98B5-11CF-BB82-00AA00BDCE0B}']
- property clear: WideString dispid - 2147413096;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBlockElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F823-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBlockElement2 = interface(IDispatch)
- ['{3050F823-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_cite(const p: WideString); safecall;
- function Get_cite: WideString; safecall;
- procedure Set_width(const p: WideString); safecall;
- function Get_width: WideString; safecall;
- property cite: WideString read Get_cite write Set_cite;
- property width: WideString read Get_width write Set_width;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBlockElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F823-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBlockElement2Disp = dispinterface
- ['{3050F823-98B5-11CF-BB82-00AA00BDCE0B}']
- property cite: WideString dispid 1001;
- property width: WideString dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLBlockElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F506-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLBlockElement = dispinterface
- ['{3050F506-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property clear: WideString dispid - 2147413096;
- property cite: WideString dispid 1001;
- property width: WideString dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDivElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F200-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDivElement = interface(IDispatch)
- ['{3050F200-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_noWrap(p: WordBool); safecall;
- function Get_noWrap: WordBool; safecall;
- property align: WideString read Get_align write Set_align;
- property noWrap: WordBool read Get_noWrap write Set_noWrap;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDivElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F200-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDivElementDisp = dispinterface
- ['{3050F200-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- property noWrap: WordBool dispid - 2147413107;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDivElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F50C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDivElement = dispinterface
- ['{3050F50C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property align: WideString dispid - 2147418040;
- property noWrap: WordBool dispid - 2147413107;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDDElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDDElement = interface(IDispatch)
- ['{3050F1F2-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_noWrap(p: WordBool); safecall;
- function Get_noWrap: WordBool; safecall;
- property noWrap: WordBool read Get_noWrap write Set_noWrap;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDDElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDDElementDisp = dispinterface
- ['{3050F1F2-98B5-11CF-BB82-00AA00BDCE0B}']
- property noWrap: WordBool dispid - 2147413107;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDDElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F50B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDDElement = dispinterface
- ['{3050F50B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property noWrap: WordBool dispid - 2147413107;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDTElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDTElement = interface(IDispatch)
- ['{3050F1F3-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_noWrap(p: WordBool); safecall;
- function Get_noWrap: WordBool; safecall;
- property noWrap: WordBool read Get_noWrap write Set_noWrap;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDTElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDTElementDisp = dispinterface
- ['{3050F1F3-98B5-11CF-BB82-00AA00BDCE0B}']
- property noWrap: WordBool dispid - 2147413107;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDTElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F50D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDTElement = dispinterface
- ['{3050F50D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property noWrap: WordBool dispid - 2147413107;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBRElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBRElement = interface(IDispatch)
- ['{3050F1F0-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_clear(const p: WideString); safecall;
- function Get_clear: WideString; safecall;
- property clear: WideString read Get_clear write Set_clear;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBRElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBRElementDisp = dispinterface
- ['{3050F1F0-98B5-11CF-BB82-00AA00BDCE0B}']
- property clear: WideString dispid - 2147413096;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLBRElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F53A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLBRElement = dispinterface
- ['{3050F53A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property clear: WideString dispid - 2147413096;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDListElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDListElement = interface(IDispatch)
- ['{3050F1F1-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_compact(p: WordBool); safecall;
- function Get_compact: WordBool; safecall;
- property compact: WordBool read Get_compact write Set_compact;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDListElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDListElementDisp = dispinterface
- ['{3050F1F1-98B5-11CF-BB82-00AA00BDCE0B}']
- property compact: WordBool dispid 1001;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDListElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F53B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDListElement = dispinterface
- ['{3050F53B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property compact: WordBool dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLHRElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHRElement = interface(IDispatch)
- ['{3050F1F4-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_color(p: OleVariant); safecall;
- function Get_color: OleVariant; safecall;
- procedure Set_noShade(p: WordBool); safecall;
- function Get_noShade: WordBool; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_size(p: OleVariant); safecall;
- function Get_size: OleVariant; safecall;
- property align: WideString read Get_align write Set_align;
- property color: OleVariant read Get_color write Set_color;
- property noShade: WordBool read Get_noShade write Set_noShade;
- property width: OleVariant read Get_width write Set_width;
- property size: OleVariant read Get_size write Set_size;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLHRElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHRElementDisp = dispinterface
- ['{3050F1F4-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- property color: OleVariant dispid - 2147413110;
- property noShade: WordBool dispid 1001;
- property width: OleVariant dispid - 2147418107;
- property size: OleVariant dispid - 2147418106;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLHRElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F53D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLHRElement = dispinterface
- ['{3050F53D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property align: WideString dispid - 2147418040;
- property color: OleVariant dispid - 2147413110;
- property noShade: WordBool dispid 1001;
- property width: OleVariant dispid - 2147418107;
- property size: OleVariant dispid - 2147418106;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLParaElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLParaElement = interface(IDispatch)
- ['{3050F1F5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLParaElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLParaElementDisp = dispinterface
- ['{3050F1F5-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLParaElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F52C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLParaElement = dispinterface
- ['{3050F52C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property clear: WideString dispid - 2147413096;
- property align: WideString dispid - 2147418040;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElementCollection2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementCollection2 = interface(IDispatch)
- ['{3050F5EE-98B5-11CF-BB82-00AA00BDCE0B}']
- function urns(urn: OleVariant): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElementCollection2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementCollection2Disp = dispinterface
- ['{3050F5EE-98B5-11CF-BB82-00AA00BDCE0B}']
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLElementCollection3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F835-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementCollection3 = interface(IDispatch)
- ['{3050F835-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLElementCollection3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F835-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLElementCollection3Disp = dispinterface
- ['{3050F835-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLElementCollection
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F56B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLElementCollection = dispinterface
- ['{3050F56B-98B5-11CF-BB82-00AA00BDCE0B}']
- function toString: WideString; dispid 1501;
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLHeaderElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHeaderElement = interface(IDispatch)
- ['{3050F1F6-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLHeaderElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F1F6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHeaderElementDisp = dispinterface
- ['{3050F1F6-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLHeaderElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F515-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLHeaderElement = dispinterface
- ['{3050F515-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property clear: WideString dispid - 2147413096;
- property align: WideString dispid - 2147418040;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLSelectElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F622-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLSelectElementEvents2 = dispinterface
- ['{3050F622-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onchange(const pEvtObj: IHTMLEventObj); dispid 1001;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLSelectElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F302-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLSelectElementEvents = dispinterface
- ['{3050F302-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onchange; dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSelectElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F244-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectElement = interface(IDispatch)
- ['{3050F244-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_size(p: Integer); safecall;
- function Get_size: Integer; safecall;
- procedure Set_multiple(p: WordBool); safecall;
- function Get_multiple: WordBool; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- function Get_options: IDispatch; safecall;
- procedure Set_onchange(p: OleVariant); safecall;
- function Get_onchange: OleVariant; safecall;
- procedure Set_selectedIndex(p: Integer); safecall;
- function Get_selectedIndex: Integer; safecall;
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- procedure add(const element: IHTMLElement; before: OleVariant); safecall;
- procedure remove(index: Integer); safecall;
- procedure Set_length(p: Integer); safecall;
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(name: OleVariant; index: OleVariant): IDispatch; safecall;
- function tags(tagName: OleVariant): IDispatch; safecall;
- property size: Integer read Get_size write Set_size;
- property multiple: WordBool read Get_multiple write Set_multiple;
- property name: WideString read Get_name write Set_name;
- property options: IDispatch read Get_options;
- property onchange: OleVariant read Get_onchange write Set_onchange;
- property selectedIndex: Integer read Get_selectedIndex write Set_selectedIndex;
- property type_: WideString read Get_type_;
- property value: WideString read Get_value write Set_value;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- property length: Integer read Get_length write Set_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSelectElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F244-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectElementDisp = dispinterface
- ['{3050F244-98B5-11CF-BB82-00AA00BDCE0B}']
- property size: Integer dispid 1002;
- property multiple: WordBool dispid 1003;
- property name: WideString dispid - 2147418112;
- property options: IDispatch readonly dispid 1005;
- property onchange: OleVariant dispid - 2147412082;
- property selectedIndex: Integer dispid 1010;
- property type_: WideString readonly dispid 1012;
- property value: WideString dispid 1011;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- procedure add(const element: IHTMLElement; before: OleVariant); dispid 1503;
- procedure remove(index: Integer); dispid 1504;
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSelectElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5ED-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectElement2 = interface(IDispatch)
- ['{3050F5ED-98B5-11CF-BB82-00AA00BDCE0B}']
- function urns(urn: OleVariant): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSelectElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5ED-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectElement2Disp = dispinterface
- ['{3050F5ED-98B5-11CF-BB82-00AA00BDCE0B}']
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSelectElement4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F838-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectElement4 = interface(IDispatch)
- ['{3050F838-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSelectElement4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F838-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectElement4Disp = dispinterface
- ['{3050F838-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLSelectElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F531-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLSelectElement = dispinterface
- ['{3050F531-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property size: Integer dispid 1002;
- property multiple: WordBool dispid 1003;
- property name: WideString dispid - 2147418112;
- property options: IDispatch readonly dispid 1005;
- property onchange: OleVariant dispid - 2147412082;
- property selectedIndex: Integer dispid 1010;
- property type_: WideString readonly dispid 1012;
- property value: WideString dispid 1011;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- procedure add(const element: IHTMLElement; before: OleVariant); dispid 1503;
- procedure remove(index: Integer); dispid 1504;
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSelectionObject
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F25A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectionObject = interface(IDispatch)
- ['{3050F25A-98B5-11CF-BB82-00AA00BDCE0B}']
- function createRange: IDispatch; safecall;
- procedure empty; safecall;
- procedure clear; safecall;
- function Get_type_: WideString; safecall;
- property type_: WideString read Get_type_;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSelectionObjectDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F25A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectionObjectDisp = dispinterface
- ['{3050F25A-98B5-11CF-BB82-00AA00BDCE0B}']
- function createRange: IDispatch; dispid 1001;
- procedure empty; dispid 1002;
- procedure clear; dispid 1003;
- property type_: WideString readonly dispid 1004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSelectionObject2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7EC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectionObject2 = interface(IDispatch)
- ['{3050F7EC-98B5-11CF-BB82-00AA00BDCE0B}']
- function createRangeCollection: IDispatch; safecall;
- function Get_typeDetail: WideString; safecall;
- property typeDetail: WideString read Get_typeDetail;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSelectionObject2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7EC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSelectionObject2Disp = dispinterface
- ['{3050F7EC-98B5-11CF-BB82-00AA00BDCE0B}']
- function createRangeCollection: IDispatch; dispid 1005;
- property typeDetail: WideString readonly dispid 1006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOptionElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F211-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionElement = interface(IDispatch)
- ['{3050F211-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_selected(p: WordBool); safecall;
- function Get_selected: WordBool; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_defaultSelected(p: WordBool); safecall;
- function Get_defaultSelected: WordBool; safecall;
- procedure Set_index(p: Integer); safecall;
- function Get_index: Integer; safecall;
- procedure Set_text(const p: WideString); safecall;
- function Get_text: WideString; safecall;
- function Get_form: IHTMLFormElement; safecall;
- property selected: WordBool read Get_selected write Set_selected;
- property value: WideString read Get_value write Set_value;
- property defaultSelected: WordBool read Get_defaultSelected write Set_defaultSelected;
- property index: Integer read Get_index write Set_index;
- property text: WideString read Get_text write Set_text;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOptionElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F211-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionElementDisp = dispinterface
- ['{3050F211-98B5-11CF-BB82-00AA00BDCE0B}']
- property selected: WordBool dispid 1001;
- property value: WideString dispid 1002;
- property defaultSelected: WordBool dispid 1003;
- property index: Integer dispid 1005;
- property text: WideString dispid 1004;
- property form: IHTMLFormElement readonly dispid 1006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOptionElement3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F820-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionElement3 = interface(IDispatch)
- ['{3050F820-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_label_(const p: WideString); safecall;
- function Get_label_: WideString; safecall;
- property label_: WideString read Get_label_ write Set_label_;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOptionElement3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F820-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionElement3Disp = dispinterface
- ['{3050F820-98B5-11CF-BB82-00AA00BDCE0B}']
- property label_: WideString dispid 1007;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOptionElementFactory
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F38C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionElementFactory = interface(IDispatch)
- ['{3050F38C-98B5-11CF-BB82-00AA00BDCE0B}']
- function create(text: OleVariant; value: OleVariant; defaultSelected: OleVariant;
- selected: OleVariant): IHTMLOptionElement; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOptionElementFactoryDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F38C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionElementFactoryDisp = dispinterface
- ['{3050F38C-98B5-11CF-BB82-00AA00BDCE0B}']
- function create(text: OleVariant; value: OleVariant; defaultSelected: OleVariant;
- selected: OleVariant): IHTMLOptionElement; dispid 0;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLOptionElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F52B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLOptionElement = dispinterface
- ['{3050F52B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property selected: WordBool dispid 1001;
- property value: WideString dispid 1002;
- property defaultSelected: WordBool dispid 1003;
- property index: Integer dispid 1005;
- property text: WideString dispid 1004;
- property form: IHTMLFormElement readonly dispid 1006;
- property label_: WideString dispid 1007;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLButtonElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F617-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLButtonElementEvents2 = dispinterface
- ['{3050F617-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLButtonElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F2B3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLButtonElementEvents = dispinterface
- ['{3050F2B3-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLInputTextElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F618-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLInputTextElementEvents2 = dispinterface
- ['{3050F618-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- function onchange(const pEvtObj: IHTMLEventObj): WordBool; dispid 1001;
- procedure onselect(const pEvtObj: IHTMLEventObj); dispid 1006;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- procedure onabort(const pEvtObj: IHTMLEventObj); dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLOptionButtonElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F619-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLOptionButtonElementEvents2 = dispinterface
- ['{3050F619-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- function onchange(const pEvtObj: IHTMLEventObj): WordBool; dispid 1001;
- procedure onselect(const pEvtObj: IHTMLEventObj); dispid 1006;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- procedure onabort(const pEvtObj: IHTMLEventObj); dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLInputFileElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F61A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLInputFileElementEvents2 = dispinterface
- ['{3050F61A-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- function onchange(const pEvtObj: IHTMLEventObj): WordBool; dispid 1001;
- procedure onselect(const pEvtObj: IHTMLEventObj); dispid 1006;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- procedure onabort(const pEvtObj: IHTMLEventObj); dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLInputImageEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F61B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLInputImageEvents2 = dispinterface
- ['{3050F61B-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- procedure onabort(const pEvtObj: IHTMLEventObj); dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLInputTextElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F2A7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLInputTextElementEvents = dispinterface
- ['{3050F2A7-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- function onchange: WordBool; dispid 1001;
- procedure onselect; dispid 1006;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- procedure onabort; dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLOptionButtonElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F2BD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLOptionButtonElementEvents = dispinterface
- ['{3050F2BD-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- function onchange: WordBool; dispid 1001;
- procedure onselect; dispid 1006;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- procedure onabort; dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLInputFileElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F2AF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLInputFileElementEvents = dispinterface
- ['{3050F2AF-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- function onchange: WordBool; dispid 1001;
- procedure onselect; dispid 1006;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- procedure onabort; dispid 1000;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLInputImageEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F2C3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLInputImageEvents = dispinterface
- ['{3050F2C3-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- procedure onabort; dispid 1000;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5D2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputElement = interface(IDispatch)
- ['{3050F5D2-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: WordBool); safecall;
- function Get_status: WordBool; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- procedure Set_size(p: Integer); safecall;
- function Get_size: Integer; safecall;
- procedure Set_maxLength(p: Integer); safecall;
- function Get_maxLength: Integer; safecall;
- procedure select; safecall;
- procedure Set_onchange(p: OleVariant); safecall;
- function Get_onchange: OleVariant; safecall;
- procedure Set_onselect(p: OleVariant); safecall;
- function Get_onselect: OleVariant; safecall;
- procedure Set_defaultValue(const p: WideString); safecall;
- function Get_defaultValue: WideString; safecall;
- procedure Set_readOnly(p: WordBool); safecall;
- function Get_readOnly: WordBool; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- procedure Set_indeterminate(p: WordBool); safecall;
- function Get_indeterminate: WordBool; safecall;
- procedure Set_defaultChecked(p: WordBool); safecall;
- function Get_defaultChecked: WordBool; safecall;
- procedure Set_checked(p: WordBool); safecall;
- function Get_checked: WordBool; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_vspace(p: Integer); safecall;
- function Get_vspace: Integer; safecall;
- procedure Set_hspace(p: Integer); safecall;
- function Get_hspace: Integer; safecall;
- procedure Set_alt(const p: WideString); safecall;
- function Get_alt: WideString; safecall;
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_lowsrc(const p: WideString); safecall;
- function Get_lowsrc: WideString; safecall;
- procedure Set_vrml(const p: WideString); safecall;
- function Get_vrml: WideString; safecall;
- procedure Set_dynsrc(const p: WideString); safecall;
- function Get_dynsrc: WideString; safecall;
- function Get_readyState: WideString; safecall;
- function Get_complete: WordBool; safecall;
- procedure Set_loop(p: OleVariant); safecall;
- function Get_loop: OleVariant; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- procedure Set_onabort(p: OleVariant); safecall;
- function Get_onabort: OleVariant; safecall;
- procedure Set_width(p: Integer); safecall;
- function Get_width: Integer; safecall;
- procedure Set_height(p: Integer); safecall;
- function Get_height: Integer; safecall;
- procedure Set_Start(const p: WideString); safecall;
- function Get_Start: WideString; safecall;
- property type_: WideString read Get_type_ write Set_type_;
- property value: WideString read Get_value write Set_value;
- property name: WideString read Get_name write Set_name;
- property status: WordBool read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- property size: Integer read Get_size write Set_size;
- property maxLength: Integer read Get_maxLength write Set_maxLength;
- property onchange: OleVariant read Get_onchange write Set_onchange;
- property onselect: OleVariant read Get_onselect write Set_onselect;
- property defaultValue: WideString read Get_defaultValue write Set_defaultValue;
- property readOnly: WordBool read Get_readOnly write Set_readOnly;
- property indeterminate: WordBool read Get_indeterminate write Set_indeterminate;
- property defaultChecked: WordBool read Get_defaultChecked write Set_defaultChecked;
- property checked: WordBool read Get_checked write Set_checked;
- property border: OleVariant read Get_border write Set_border;
- property vspace: Integer read Get_vspace write Set_vspace;
- property hspace: Integer read Get_hspace write Set_hspace;
- property alt: WideString read Get_alt write Set_alt;
- property src: WideString read Get_src write Set_src;
- property lowsrc: WideString read Get_lowsrc write Set_lowsrc;
- property vrml: WideString read Get_vrml write Set_vrml;
- property dynsrc: WideString read Get_dynsrc write Set_dynsrc;
- property readyState: WideString read Get_readyState;
- property complete: WordBool read Get_complete;
- property loop: OleVariant read Get_loop write Set_loop;
- property align: WideString read Get_align write Set_align;
- property onload: OleVariant read Get_onload write Set_onload;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property onabort: OleVariant read Get_onabort write Set_onabort;
- property width: Integer read Get_width write Set_width;
- property height: Integer read Get_height write Set_height;
- property Start: WideString read Get_Start write Set_Start;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5D2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputElementDisp = dispinterface
- ['{3050F5D2-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: WordBool dispid 2001;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property size: Integer dispid 2002;
- property maxLength: Integer dispid 2003;
- procedure select; dispid 2004;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property defaultValue: WideString dispid - 2147413029;
- property readOnly: WordBool dispid 2005;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- property indeterminate: WordBool dispid 2007;
- property defaultChecked: WordBool dispid 2008;
- property checked: WordBool dispid 2009;
- property border: OleVariant dispid 2012;
- property vspace: Integer dispid 2013;
- property hspace: Integer dispid 2014;
- property alt: WideString dispid 2010;
- property src: WideString dispid 2011;
- property lowsrc: WideString dispid 2015;
- property vrml: WideString dispid 2016;
- property dynsrc: WideString dispid 2017;
- property readyState: WideString readonly dispid - 2147412996;
- property complete: WordBool readonly dispid 2018;
- property loop: OleVariant dispid 2019;
- property align: WideString dispid - 2147418039;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property onabort: OleVariant dispid - 2147412084;
- property width: Integer dispid - 2147418107;
- property height: Integer dispid - 2147418106;
- property Start: WideString dispid 2020;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F821-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputElement2 = interface(IDispatch)
- ['{3050F821-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_accept(const p: WideString); safecall;
- function Get_accept: WideString; safecall;
- procedure Set_useMap(const p: WideString); safecall;
- function Get_useMap: WideString; safecall;
- property accept: WideString read Get_accept write Set_accept;
- property useMap: WideString read Get_useMap write Set_useMap;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F821-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputElement2Disp = dispinterface
- ['{3050F821-98B5-11CF-BB82-00AA00BDCE0B}']
- property accept: WideString dispid 2022;
- property useMap: WideString dispid 2023;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputButtonElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2B2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputButtonElement = interface(IDispatch)
- ['{3050F2B2-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: OleVariant); safecall;
- function Get_status: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- property type_: WideString read Get_type_;
- property value: WideString read Get_value write Set_value;
- property name: WideString read Get_name write Set_name;
- property status: OleVariant read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputButtonElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2B2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputButtonElementDisp = dispinterface
- ['{3050F2B2-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputHiddenElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2A4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputHiddenElement = interface(IDispatch)
- ['{3050F2A4-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: OleVariant); safecall;
- function Get_status: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- property type_: WideString read Get_type_;
- property value: WideString read Get_value write Set_value;
- property name: WideString read Get_name write Set_name;
- property status: OleVariant read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputHiddenElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2A4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputHiddenElementDisp = dispinterface
- ['{3050F2A4-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputTextElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2A6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputTextElement = interface(IDispatch)
- ['{3050F2A6-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: OleVariant); safecall;
- function Get_status: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- procedure Set_defaultValue(const p: WideString); safecall;
- function Get_defaultValue: WideString; safecall;
- procedure Set_size(p: Integer); safecall;
- function Get_size: Integer; safecall;
- procedure Set_maxLength(p: Integer); safecall;
- function Get_maxLength: Integer; safecall;
- procedure select; safecall;
- procedure Set_onchange(p: OleVariant); safecall;
- function Get_onchange: OleVariant; safecall;
- procedure Set_onselect(p: OleVariant); safecall;
- function Get_onselect: OleVariant; safecall;
- procedure Set_readOnly(p: WordBool); safecall;
- function Get_readOnly: WordBool; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- property type_: WideString read Get_type_;
- property value: WideString read Get_value write Set_value;
- property name: WideString read Get_name write Set_name;
- property status: OleVariant read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- property defaultValue: WideString read Get_defaultValue write Set_defaultValue;
- property size: Integer read Get_size write Set_size;
- property maxLength: Integer read Get_maxLength write Set_maxLength;
- property onchange: OleVariant read Get_onchange write Set_onchange;
- property onselect: OleVariant read Get_onselect write Set_onselect;
- property readOnly: WordBool read Get_readOnly write Set_readOnly;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputTextElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2A6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputTextElementDisp = dispinterface
- ['{3050F2A6-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property defaultValue: WideString dispid - 2147413029;
- property size: Integer dispid 2002;
- property maxLength: Integer dispid 2003;
- procedure select; dispid 2004;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property readOnly: WordBool dispid 2005;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputFileElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2AD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputFileElement = interface(IDispatch)
- ['{3050F2AD-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: OleVariant); safecall;
- function Get_status: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- procedure Set_size(p: Integer); safecall;
- function Get_size: Integer; safecall;
- procedure Set_maxLength(p: Integer); safecall;
- function Get_maxLength: Integer; safecall;
- procedure select; safecall;
- procedure Set_onchange(p: OleVariant); safecall;
- function Get_onchange: OleVariant; safecall;
- procedure Set_onselect(p: OleVariant); safecall;
- function Get_onselect: OleVariant; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- property type_: WideString read Get_type_;
- property name: WideString read Get_name write Set_name;
- property status: OleVariant read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- property size: Integer read Get_size write Set_size;
- property maxLength: Integer read Get_maxLength write Set_maxLength;
- property onchange: OleVariant read Get_onchange write Set_onchange;
- property onselect: OleVariant read Get_onselect write Set_onselect;
- property value: WideString read Get_value write Set_value;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputFileElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2AD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputFileElementDisp = dispinterface
- ['{3050F2AD-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property size: Integer dispid 2002;
- property maxLength: Integer dispid 2003;
- procedure select; dispid 2004;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property value: WideString dispid - 2147413011;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOptionButtonElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2BC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionButtonElement = interface(IDispatch)
- ['{3050F2BC-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- function Get_type_: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_checked(p: WordBool); safecall;
- function Get_checked: WordBool; safecall;
- procedure Set_defaultChecked(p: WordBool); safecall;
- function Get_defaultChecked: WordBool; safecall;
- procedure Set_onchange(p: OleVariant); safecall;
- function Get_onchange: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- procedure Set_status(p: WordBool); safecall;
- function Get_status: WordBool; safecall;
- procedure Set_indeterminate(p: WordBool); safecall;
- function Get_indeterminate: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- property value: WideString read Get_value write Set_value;
- property type_: WideString read Get_type_;
- property name: WideString read Get_name write Set_name;
- property checked: WordBool read Get_checked write Set_checked;
- property defaultChecked: WordBool read Get_defaultChecked write Set_defaultChecked;
- property onchange: OleVariant read Get_onchange write Set_onchange;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property status: WordBool read Get_status write Set_status;
- property indeterminate: WordBool read Get_indeterminate write Set_indeterminate;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOptionButtonElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2BC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionButtonElementDisp = dispinterface
- ['{3050F2BC-98B5-11CF-BB82-00AA00BDCE0B}']
- property value: WideString dispid - 2147413011;
- property type_: WideString readonly dispid 2000;
- property name: WideString dispid - 2147418112;
- property checked: WordBool dispid 2009;
- property defaultChecked: WordBool dispid 2008;
- property onchange: OleVariant dispid - 2147412082;
- property disabled: WordBool dispid - 2147418036;
- property status: WordBool dispid 2001;
- property indeterminate: WordBool dispid 2007;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLInputImage
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2C2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputImage = interface(IDispatch)
- ['{3050F2C2-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_vspace(p: Integer); safecall;
- function Get_vspace: Integer; safecall;
- procedure Set_hspace(p: Integer); safecall;
- function Get_hspace: Integer; safecall;
- procedure Set_alt(const p: WideString); safecall;
- function Get_alt: WideString; safecall;
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_lowsrc(const p: WideString); safecall;
- function Get_lowsrc: WideString; safecall;
- procedure Set_vrml(const p: WideString); safecall;
- function Get_vrml: WideString; safecall;
- procedure Set_dynsrc(const p: WideString); safecall;
- function Get_dynsrc: WideString; safecall;
- function Get_readyState: WideString; safecall;
- function Get_complete: WordBool; safecall;
- procedure Set_loop(p: OleVariant); safecall;
- function Get_loop: OleVariant; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- procedure Set_onabort(p: OleVariant); safecall;
- function Get_onabort: OleVariant; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_width(p: Integer); safecall;
- function Get_width: Integer; safecall;
- procedure Set_height(p: Integer); safecall;
- function Get_height: Integer; safecall;
- procedure Set_Start(const p: WideString); safecall;
- function Get_Start: WideString; safecall;
- property type_: WideString read Get_type_;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property border: OleVariant read Get_border write Set_border;
- property vspace: Integer read Get_vspace write Set_vspace;
- property hspace: Integer read Get_hspace write Set_hspace;
- property alt: WideString read Get_alt write Set_alt;
- property src: WideString read Get_src write Set_src;
- property lowsrc: WideString read Get_lowsrc write Set_lowsrc;
- property vrml: WideString read Get_vrml write Set_vrml;
- property dynsrc: WideString read Get_dynsrc write Set_dynsrc;
- property readyState: WideString read Get_readyState;
- property complete: WordBool read Get_complete;
- property loop: OleVariant read Get_loop write Set_loop;
- property align: WideString read Get_align write Set_align;
- property onload: OleVariant read Get_onload write Set_onload;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property onabort: OleVariant read Get_onabort write Set_onabort;
- property name: WideString read Get_name write Set_name;
- property width: Integer read Get_width write Set_width;
- property height: Integer read Get_height write Set_height;
- property Start: WideString read Get_Start write Set_Start;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLInputImageDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2C2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLInputImageDisp = dispinterface
- ['{3050F2C2-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property disabled: WordBool dispid - 2147418036;
- property border: OleVariant dispid 2012;
- property vspace: Integer dispid 2013;
- property hspace: Integer dispid 2014;
- property alt: WideString dispid 2010;
- property src: WideString dispid 2011;
- property lowsrc: WideString dispid 2015;
- property vrml: WideString dispid 2016;
- property dynsrc: WideString dispid 2017;
- property readyState: WideString readonly dispid - 2147412996;
- property complete: WordBool readonly dispid 2018;
- property loop: OleVariant dispid 2019;
- property align: WideString dispid - 2147418039;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property onabort: OleVariant dispid - 2147412084;
- property name: WideString dispid - 2147418112;
- property width: Integer dispid - 2147418107;
- property height: Integer dispid - 2147418106;
- property Start: WideString dispid 2020;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLInputElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F57D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLInputElement = dispinterface
- ['{3050F57D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property type_: WideString dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: WordBool dispid 2001;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property size: Integer dispid 2002;
- property maxLength: Integer dispid 2003;
- procedure select; dispid 2004;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property defaultValue: WideString dispid - 2147413029;
- property readOnly: WordBool dispid 2005;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- property indeterminate: WordBool dispid 2007;
- property defaultChecked: WordBool dispid 2008;
- property checked: WordBool dispid 2009;
- property border: OleVariant dispid 2012;
- property vspace: Integer dispid 2013;
- property hspace: Integer dispid 2014;
- property alt: WideString dispid 2010;
- property src: WideString dispid 2011;
- property lowsrc: WideString dispid 2015;
- property vrml: WideString dispid 2016;
- property dynsrc: WideString dispid 2017;
- property complete: WordBool readonly dispid 2018;
- property loop: OleVariant dispid 2019;
- property align: WideString dispid - 2147418039;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property onabort: OleVariant dispid - 2147412084;
- property width: Integer dispid - 2147418107;
- property height: Integer dispid - 2147418106;
- property Start: WideString dispid 2020;
- property accept: WideString dispid 2022;
- property useMap: WideString dispid 2023;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTextAreaElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2AA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextAreaElement = interface(IDispatch)
- ['{3050F2AA-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: OleVariant); safecall;
- function Get_status: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- procedure Set_defaultValue(const p: WideString); safecall;
- function Get_defaultValue: WideString; safecall;
- procedure select; safecall;
- procedure Set_onchange(p: OleVariant); safecall;
- function Get_onchange: OleVariant; safecall;
- procedure Set_onselect(p: OleVariant); safecall;
- function Get_onselect: OleVariant; safecall;
- procedure Set_readOnly(p: WordBool); safecall;
- function Get_readOnly: WordBool; safecall;
- procedure Set_rows(p: Integer); safecall;
- function Get_rows: Integer; safecall;
- procedure Set_cols(p: Integer); safecall;
- function Get_cols: Integer; safecall;
- procedure Set_wrap(const p: WideString); safecall;
- function Get_wrap: WideString; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- property type_: WideString read Get_type_;
- property value: WideString read Get_value write Set_value;
- property name: WideString read Get_name write Set_name;
- property status: OleVariant read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- property defaultValue: WideString read Get_defaultValue write Set_defaultValue;
- property onchange: OleVariant read Get_onchange write Set_onchange;
- property onselect: OleVariant read Get_onselect write Set_onselect;
- property readOnly: WordBool read Get_readOnly write Set_readOnly;
- property rows: Integer read Get_rows write Set_rows;
- property cols: Integer read Get_cols write Set_cols;
- property wrap: WideString read Get_wrap write Set_wrap;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTextAreaElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2AA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTextAreaElementDisp = dispinterface
- ['{3050F2AA-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2001;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property defaultValue: WideString dispid - 2147413029;
- procedure select; dispid 7005;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property readOnly: WordBool dispid 7004;
- property rows: Integer dispid 7001;
- property cols: Integer dispid 7002;
- property wrap: WideString dispid 7003;
- function createTextRange: IHTMLTxtRange; dispid 7006;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTextAreaElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F521-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTextAreaElement = dispinterface
- ['{3050F521-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2001;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property defaultValue: WideString dispid - 2147413029;
- procedure select; dispid 7005;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property readOnly: WordBool dispid 7004;
- property rows: Integer dispid 7001;
- property cols: Integer dispid 7002;
- property wrap: WideString dispid 7003;
- function createTextRange: IHTMLTxtRange; dispid 7006;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLRichtextElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F54D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLRichtextElement = dispinterface
- ['{3050F54D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2001;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property defaultValue: WideString dispid - 2147413029;
- procedure select; dispid 7005;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property readOnly: WordBool dispid 7004;
- property rows: Integer dispid 7001;
- property cols: Integer dispid 7002;
- property wrap: WideString dispid 7003;
- function createTextRange: IHTMLTxtRange; dispid 7006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLButtonElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2BB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLButtonElement = interface(IDispatch)
- ['{3050F2BB-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_type_: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_status(p: OleVariant); safecall;
- function Get_status: OleVariant; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- function Get_form: IHTMLFormElement; safecall;
- function createTextRange: IHTMLTxtRange; safecall;
- property type_: WideString read Get_type_;
- property value: WideString read Get_value write Set_value;
- property name: WideString read Get_name write Set_name;
- property status: OleVariant read Get_status write Set_status;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLButtonElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2BB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLButtonElementDisp = dispinterface
- ['{3050F2BB-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 8001;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- function createTextRange: IHTMLTxtRange; dispid 8002;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLButtonElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F51F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLButtonElement = dispinterface
- ['{3050F51F-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 8001;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- function createTextRange: IHTMLTxtRange; dispid 8002;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLMarqueeElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F61F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLMarqueeElementEvents2 = dispinterface
- ['{3050F61F-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onchange(const pEvtObj: IHTMLEventObj); dispid 1001;
- procedure onselect(const pEvtObj: IHTMLEventObj); dispid 1006;
- procedure onbounce(const pEvtObj: IHTMLEventObj); dispid 1009;
- procedure onfinish(const pEvtObj: IHTMLEventObj); dispid 1010;
- procedure onstart(const pEvtObj: IHTMLEventObj); dispid 1011;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLMarqueeElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F2B8-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLMarqueeElementEvents = dispinterface
- ['{3050F2B8-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onchange; dispid 1001;
- procedure onselect; dispid 1006;
- procedure onbounce; dispid 1009;
- procedure onfinish; dispid 1010;
- procedure onstart; dispid 1011;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLMarqueeElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2B5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMarqueeElement = interface(IDispatch)
- ['{3050F2B5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- procedure Set_scrollDelay(p: Integer); safecall;
- function Get_scrollDelay: Integer; safecall;
- procedure Set_direction(const p: WideString); safecall;
- function Get_direction: WideString; safecall;
- procedure Set_behavior(const p: WideString); safecall;
- function Get_behavior: WideString; safecall;
- procedure Set_scrollAmount(p: Integer); safecall;
- function Get_scrollAmount: Integer; safecall;
- procedure Set_loop(p: Integer); safecall;
- function Get_loop: Integer; safecall;
- procedure Set_vspace(p: Integer); safecall;
- function Get_vspace: Integer; safecall;
- procedure Set_hspace(p: Integer); safecall;
- function Get_hspace: Integer; safecall;
- procedure Set_onfinish(p: OleVariant); safecall;
- function Get_onfinish: OleVariant; safecall;
- procedure Set_onstart(p: OleVariant); safecall;
- function Get_onstart: OleVariant; safecall;
- procedure Set_onbounce(p: OleVariant); safecall;
- function Get_onbounce: OleVariant; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- procedure Set_trueSpeed(p: WordBool); safecall;
- function Get_trueSpeed: WordBool; safecall;
- procedure Start; safecall;
- procedure stop; safecall;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property scrollDelay: Integer read Get_scrollDelay write Set_scrollDelay;
- property direction: WideString read Get_direction write Set_direction;
- property behavior: WideString read Get_behavior write Set_behavior;
- property scrollAmount: Integer read Get_scrollAmount write Set_scrollAmount;
- property loop: Integer read Get_loop write Set_loop;
- property vspace: Integer read Get_vspace write Set_vspace;
- property hspace: Integer read Get_hspace write Set_hspace;
- property onfinish: OleVariant read Get_onfinish write Set_onfinish;
- property onstart: OleVariant read Get_onstart write Set_onstart;
- property onbounce: OleVariant read Get_onbounce write Set_onbounce;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- property trueSpeed: WordBool read Get_trueSpeed write Set_trueSpeed;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLMarqueeElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2B5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMarqueeElementDisp = dispinterface
- ['{3050F2B5-98B5-11CF-BB82-00AA00BDCE0B}']
- property bgColor: OleVariant dispid - 501;
- property scrollDelay: Integer dispid 6000;
- property direction: WideString dispid 6001;
- property behavior: WideString dispid 6002;
- property scrollAmount: Integer dispid 6003;
- property loop: Integer dispid 6004;
- property vspace: Integer dispid 6005;
- property hspace: Integer dispid 6006;
- property onfinish: OleVariant dispid - 2147412086;
- property onstart: OleVariant dispid - 2147412085;
- property onbounce: OleVariant dispid - 2147412092;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property trueSpeed: WordBool dispid 6007;
- procedure Start; dispid 6010;
- procedure stop; dispid 6011;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLMarqueeElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F527-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLMarqueeElement = dispinterface
- ['{3050F527-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property bgColor: OleVariant dispid - 501;
- property scrollDelay: Integer dispid 6000;
- property direction: WideString dispid 6001;
- property behavior: WideString dispid 6002;
- property scrollAmount: Integer dispid 6003;
- property loop: Integer dispid 6004;
- property vspace: Integer dispid 6005;
- property hspace: Integer dispid 6006;
- property onfinish: OleVariant dispid - 2147412086;
- property onstart: OleVariant dispid - 2147412085;
- property onbounce: OleVariant dispid - 2147412092;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property trueSpeed: WordBool dispid 6007;
- procedure Start; dispid 6010;
- procedure stop; dispid 6011;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLHtmlElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHtmlElement = interface(IDispatch)
- ['{3050F81C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_version(const p: WideString); safecall;
- function Get_version: WideString; safecall;
- property version: WideString read Get_version write Set_version;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLHtmlElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHtmlElementDisp = dispinterface
- ['{3050F81C-98B5-11CF-BB82-00AA00BDCE0B}']
- property version: WideString dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLHeadElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHeadElement = interface(IDispatch)
- ['{3050F81D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_profile(const p: WideString); safecall;
- function Get_profile: WideString; safecall;
- property profile: WideString read Get_profile write Set_profile;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLHeadElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLHeadElementDisp = dispinterface
- ['{3050F81D-98B5-11CF-BB82-00AA00BDCE0B}']
- property profile: WideString dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTitleElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F322-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTitleElement = interface(IDispatch)
- ['{3050F322-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_text(const p: WideString); safecall;
- function Get_text: WideString; safecall;
- property text: WideString read Get_text write Set_text;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTitleElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F322-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTitleElementDisp = dispinterface
- ['{3050F322-98B5-11CF-BB82-00AA00BDCE0B}']
- property text: WideString dispid - 2147413011;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLMetaElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F203-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMetaElement = interface(IDispatch)
- ['{3050F203-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_httpEquiv(const p: WideString); safecall;
- function Get_httpEquiv: WideString; safecall;
- procedure Set_content(const p: WideString); safecall;
- function Get_content: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_url(const p: WideString); safecall;
- function Get_url: WideString; safecall;
- procedure Set_charset(const p: WideString); safecall;
- function Get_charset: WideString; safecall;
- property httpEquiv: WideString read Get_httpEquiv write Set_httpEquiv;
- property content: WideString read Get_content write Set_content;
- property name: WideString read Get_name write Set_name;
- property url: WideString read Get_url write Set_url;
- property charset: WideString read Get_charset write Set_charset;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLMetaElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F203-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMetaElementDisp = dispinterface
- ['{3050F203-98B5-11CF-BB82-00AA00BDCE0B}']
- property httpEquiv: WideString dispid 1001;
- property content: WideString dispid 1002;
- property name: WideString dispid - 2147418112;
- property url: WideString dispid 1003;
- property charset: WideString dispid 1013;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLMetaElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMetaElement2 = interface(IDispatch)
- ['{3050F81F-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_scheme(const p: WideString); safecall;
- function Get_scheme: WideString; safecall;
- property scheme: WideString read Get_scheme write Set_scheme;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLMetaElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F81F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMetaElement2Disp = dispinterface
- ['{3050F81F-98B5-11CF-BB82-00AA00BDCE0B}']
- property scheme: WideString dispid 1020;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBaseElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F204-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBaseElement = interface(IDispatch)
- ['{3050F204-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_href(const p: WideString); safecall;
- function Get_href: WideString; safecall;
- procedure Set_target(const p: WideString); safecall;
- function Get_target: WideString; safecall;
- property href: WideString read Get_href write Set_href;
- property target: WideString read Get_target write Set_target;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBaseElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F204-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBaseElementDisp = dispinterface
- ['{3050F204-98B5-11CF-BB82-00AA00BDCE0B}']
- property href: WideString dispid 1003;
- property target: WideString dispid 1004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLIsIndexElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F206-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIsIndexElement = interface(IDispatch)
- ['{3050F206-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_prompt(const p: WideString); safecall;
- function Get_prompt: WideString; safecall;
- procedure Set_action(const p: WideString); safecall;
- function Get_action: WideString; safecall;
- property prompt: WideString read Get_prompt write Set_prompt;
- property action: WideString read Get_action write Set_action;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLIsIndexElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F206-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIsIndexElementDisp = dispinterface
- ['{3050F206-98B5-11CF-BB82-00AA00BDCE0B}']
- property prompt: WideString dispid 1010;
- property action: WideString dispid 1011;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLIsIndexElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIsIndexElement2 = interface(IDispatch)
- ['{3050F82F-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_form: IHTMLFormElement; safecall;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLIsIndexElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIsIndexElement2Disp = dispinterface
- ['{3050F82F-98B5-11CF-BB82-00AA00BDCE0B}']
- property form: IHTMLFormElement readonly dispid 1012;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLNextIdElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F207-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNextIdElement = interface(IDispatch)
- ['{3050F207-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_n(const p: WideString); safecall;
- function Get_n: WideString; safecall;
- property n: WideString read Get_n write Set_n;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLNextIdElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F207-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNextIdElementDisp = dispinterface
- ['{3050F207-98B5-11CF-BB82-00AA00BDCE0B}']
- property n: WideString dispid 1012;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLHtmlElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F560-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLHtmlElement = dispinterface
- ['{3050F560-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property version: WideString dispid 1001;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLHeadElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F561-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLHeadElement = dispinterface
- ['{3050F561-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property profile: WideString dispid 1001;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTitleElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F516-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTitleElement = dispinterface
- ['{3050F516-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property text: WideString dispid - 2147413011;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLMetaElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F517-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLMetaElement = dispinterface
- ['{3050F517-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property httpEquiv: WideString dispid 1001;
- property content: WideString dispid 1002;
- property name: WideString dispid - 2147418112;
- property url: WideString dispid 1003;
- property charset: WideString dispid 1013;
- property scheme: WideString dispid 1020;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLBaseElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F518-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLBaseElement = dispinterface
- ['{3050F518-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property href: WideString dispid 1003;
- property target: WideString dispid 1004;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLIsIndexElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F519-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLIsIndexElement = dispinterface
- ['{3050F519-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property prompt: WideString dispid 1010;
- property action: WideString dispid 1011;
- property form: IHTMLFormElement readonly dispid 1012;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLNextIdElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F51A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLNextIdElement = dispinterface
- ['{3050F51A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property n: WideString dispid 1012;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBaseFontElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F202-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBaseFontElement = interface(IDispatch)
- ['{3050F202-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_color(p: OleVariant); safecall;
- function Get_color: OleVariant; safecall;
- procedure Set_face(const p: WideString); safecall;
- function Get_face: WideString; safecall;
- procedure Set_size(p: Integer); safecall;
- function Get_size: Integer; safecall;
- property color: OleVariant read Get_color write Set_color;
- property face: WideString read Get_face write Set_face;
- property size: Integer read Get_size write Set_size;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBaseFontElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F202-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBaseFontElementDisp = dispinterface
- ['{3050F202-98B5-11CF-BB82-00AA00BDCE0B}']
- property color: OleVariant dispid - 2147413110;
- property face: WideString dispid - 2147413094;
- property size: Integer dispid - 2147413086;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLBaseFontElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F504-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLBaseFontElement = dispinterface
- ['{3050F504-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property color: OleVariant dispid - 2147413110;
- property face: WideString dispid - 2147413094;
- property size: Integer dispid - 2147413086;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLUnknownElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F209-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUnknownElement = interface(IDispatch)
- ['{3050F209-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLUnknownElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F209-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLUnknownElementDisp = dispinterface
- ['{3050F209-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLUnknownElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F539-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLUnknownElement = dispinterface
- ['{3050F539-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- end;
-
-// *********************************************************************//
-// Interface: IOmHistory
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {FECEAAA2-8405-11CF-8BA1-00AA00476DA6}
-// *********************************************************************//
- IOmHistory = interface(IDispatch)
- ['{FECEAAA2-8405-11CF-8BA1-00AA00476DA6}']
- function Get_length: Smallint; safecall;
- procedure back(var pvargdistance: OleVariant); safecall;
- procedure forward(var pvargdistance: OleVariant); safecall;
- procedure go(var pvargdistance: OleVariant); safecall;
- property length: Smallint read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IOmHistoryDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {FECEAAA2-8405-11CF-8BA1-00AA00476DA6}
-// *********************************************************************//
- IOmHistoryDisp = dispinterface
- ['{FECEAAA2-8405-11CF-8BA1-00AA00476DA6}']
- property length: Smallint readonly dispid 1;
- procedure back(var pvargdistance: OleVariant); dispid 2;
- procedure forward(var pvargdistance: OleVariant); dispid 3;
- procedure go(var pvargdistance: OleVariant); dispid 4;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLMimeTypesCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3FC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMimeTypesCollection = interface(IDispatch)
- ['{3050F3FC-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLMimeTypesCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3FC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMimeTypesCollectionDisp = dispinterface
- ['{3050F3FC-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPluginsCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3FD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPluginsCollection = interface(IDispatch)
- ['{3050F3FD-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- procedure refresh(reload: WordBool); safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLPluginsCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3FD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPluginsCollectionDisp = dispinterface
- ['{3050F3FD-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1;
- procedure refresh(reload: WordBool); dispid 2;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOpsProfile
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F401-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOpsProfile = interface(IDispatch)
- ['{3050F401-98B5-11CF-BB82-00AA00BDCE0B}']
- function addRequest(const name: WideString; reserved: OleVariant): WordBool; safecall;
- procedure clearRequest; safecall;
- procedure doRequest(usage: OleVariant; fname: OleVariant; domain: OleVariant; path: OleVariant;
- expire: OleVariant; reserved: OleVariant); safecall;
- function getAttribute(const name: WideString): WideString; safecall;
- function setAttribute(const name: WideString; const value: WideString; prefs: OleVariant): WordBool; safecall;
- function commitChanges: WordBool; safecall;
- function addReadRequest(const name: WideString; reserved: OleVariant): WordBool; safecall;
- procedure doReadRequest(usage: OleVariant; fname: OleVariant; domain: OleVariant;
- path: OleVariant; expire: OleVariant; reserved: OleVariant); safecall;
- function doWriteRequest: WordBool; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOpsProfileDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F401-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOpsProfileDisp = dispinterface
- ['{3050F401-98B5-11CF-BB82-00AA00BDCE0B}']
- function addRequest(const name: WideString; reserved: OleVariant): WordBool; dispid 1;
- procedure clearRequest; dispid 2;
- procedure doRequest(usage: OleVariant; fname: OleVariant; domain: OleVariant; path: OleVariant;
- expire: OleVariant; reserved: OleVariant); dispid 3;
- function getAttribute(const name: WideString): WideString; dispid 4;
- function setAttribute(const name: WideString; const value: WideString; prefs: OleVariant): WordBool; dispid 5;
- function commitChanges: WordBool; dispid 6;
- function addReadRequest(const name: WideString; reserved: OleVariant): WordBool; dispid 7;
- procedure doReadRequest(usage: OleVariant; fname: OleVariant; domain: OleVariant;
- path: OleVariant; expire: OleVariant; reserved: OleVariant); dispid 8;
- function doWriteRequest: WordBool; dispid 9;
- end;
-
-// *********************************************************************//
-// Interface: IOmNavigator
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {FECEAAA5-8405-11CF-8BA1-00AA00476DA6}
-// *********************************************************************//
- IOmNavigator = interface(IDispatch)
- ['{FECEAAA5-8405-11CF-8BA1-00AA00476DA6}']
- function Get_appCodeName: WideString; safecall;
- function Get_appName: WideString; safecall;
- function Get_appVersion: WideString; safecall;
- function Get_userAgent: WideString; safecall;
- function javaEnabled: WordBool; safecall;
- function taintEnabled: WordBool; safecall;
- function Get_mimeTypes: IHTMLMimeTypesCollection; safecall;
- function Get_plugins: IHTMLPluginsCollection; safecall;
- function Get_cookieEnabled: WordBool; safecall;
- function Get_opsProfile: IHTMLOpsProfile; safecall;
- function toString: WideString; safecall;
- function Get_cpuClass: WideString; safecall;
- function Get_systemLanguage: WideString; safecall;
- function Get_browserLanguage: WideString; safecall;
- function Get_userLanguage: WideString; safecall;
- function Get_platform: WideString; safecall;
- function Get_appMinorVersion: WideString; safecall;
- function Get_connectionSpeed: Integer; safecall;
- function Get_onLine: WordBool; safecall;
- function Get_userProfile: IHTMLOpsProfile; safecall;
- property appCodeName: WideString read Get_appCodeName;
- property appName: WideString read Get_appName;
- property appVersion: WideString read Get_appVersion;
- property userAgent: WideString read Get_userAgent;
- property mimeTypes: IHTMLMimeTypesCollection read Get_mimeTypes;
- property plugins: IHTMLPluginsCollection read Get_plugins;
- property cookieEnabled: WordBool read Get_cookieEnabled;
- property opsProfile: IHTMLOpsProfile read Get_opsProfile;
- property cpuClass: WideString read Get_cpuClass;
- property systemLanguage: WideString read Get_systemLanguage;
- property browserLanguage: WideString read Get_browserLanguage;
- property userLanguage: WideString read Get_userLanguage;
- property platform: WideString read Get_platform;
- property appMinorVersion: WideString read Get_appMinorVersion;
- property connectionSpeed: Integer read Get_connectionSpeed;
- property onLine: WordBool read Get_onLine;
- property userProfile: IHTMLOpsProfile read Get_userProfile;
- end;
-
-// *********************************************************************//
-// DispIntf: IOmNavigatorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {FECEAAA5-8405-11CF-8BA1-00AA00476DA6}
-// *********************************************************************//
- IOmNavigatorDisp = dispinterface
- ['{FECEAAA5-8405-11CF-8BA1-00AA00476DA6}']
- property appCodeName: WideString readonly dispid 1;
- property appName: WideString readonly dispid 2;
- property appVersion: WideString readonly dispid 3;
- property userAgent: WideString readonly dispid 4;
- function javaEnabled: WordBool; dispid 5;
- function taintEnabled: WordBool; dispid 6;
- property mimeTypes: IHTMLMimeTypesCollection readonly dispid 7;
- property plugins: IHTMLPluginsCollection readonly dispid 8;
- property cookieEnabled: WordBool readonly dispid 9;
- property opsProfile: IHTMLOpsProfile readonly dispid 10;
- function toString: WideString; dispid 11;
- property cpuClass: WideString readonly dispid 12;
- property systemLanguage: WideString readonly dispid 13;
- property browserLanguage: WideString readonly dispid 14;
- property userLanguage: WideString readonly dispid 15;
- property platform: WideString readonly dispid 16;
- property appMinorVersion: WideString readonly dispid 17;
- property connectionSpeed: Integer readonly dispid 18;
- property onLine: WordBool readonly dispid 19;
- property userProfile: IHTMLOpsProfile readonly dispid 20;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLocation
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {163BB1E0-6E00-11CF-837A-48DC04C10000}
-// *********************************************************************//
- IHTMLLocation = interface(IDispatch)
- ['{163BB1E0-6E00-11CF-837A-48DC04C10000}']
- procedure Set_href(const p: WideString); safecall;
- function Get_href: WideString; safecall;
- procedure Set_protocol(const p: WideString); safecall;
- function Get_protocol: WideString; safecall;
- procedure Set_host(const p: WideString); safecall;
- function Get_host: WideString; safecall;
- procedure Set_hostname(const p: WideString); safecall;
- function Get_hostname: WideString; safecall;
- procedure Set_port(const p: WideString); safecall;
- function Get_port: WideString; safecall;
- procedure Set_pathname(const p: WideString); safecall;
- function Get_pathname: WideString; safecall;
- procedure Set_search(const p: WideString); safecall;
- function Get_search: WideString; safecall;
- procedure Set_hash(const p: WideString); safecall;
- function Get_hash: WideString; safecall;
- procedure reload(flag: WordBool); safecall;
- procedure replace(const bstr: WideString); safecall;
- procedure assign(const bstr: WideString); safecall;
- function toString: WideString; safecall;
- property href: WideString read Get_href write Set_href;
- property protocol: WideString read Get_protocol write Set_protocol;
- property host: WideString read Get_host write Set_host;
- property hostname: WideString read Get_hostname write Set_hostname;
- property port: WideString read Get_port write Set_port;
- property pathname: WideString read Get_pathname write Set_pathname;
- property search: WideString read Get_search write Set_search;
- property hash: WideString read Get_hash write Set_hash;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLocationDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {163BB1E0-6E00-11CF-837A-48DC04C10000}
-// *********************************************************************//
- IHTMLLocationDisp = dispinterface
- ['{163BB1E0-6E00-11CF-837A-48DC04C10000}']
- property href: WideString dispid 0;
- property protocol: WideString dispid 1;
- property host: WideString dispid 2;
- property hostname: WideString dispid 3;
- property port: WideString dispid 4;
- property pathname: WideString dispid 5;
- property search: WideString dispid 6;
- property hash: WideString dispid 7;
- procedure reload(flag: WordBool); dispid 8;
- procedure replace(const bstr: WideString); dispid 9;
- procedure assign(const bstr: WideString); dispid 10;
- function toString: WideString; dispid 11;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBookmarkCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4CE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBookmarkCollection = interface(IDispatch)
- ['{3050F4CE-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(index: Integer): OleVariant; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBookmarkCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4CE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBookmarkCollectionDisp = dispinterface
- ['{3050F4CE-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1501;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(index: Integer): OleVariant; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDataTransfer
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDataTransfer = interface(IDispatch)
- ['{3050F4B3-98B5-11CF-BB82-00AA00BDCE0B}']
- function setData(const format: WideString; var data: OleVariant): WordBool; safecall;
- function getData(const format: WideString): OleVariant; safecall;
- function clearData(const format: WideString): WordBool; safecall;
- procedure Set_dropEffect(const p: WideString); safecall;
- function Get_dropEffect: WideString; safecall;
- procedure Set_effectAllowed(const p: WideString); safecall;
- function Get_effectAllowed: WideString; safecall;
- property dropEffect: WideString read Get_dropEffect write Set_dropEffect;
- property effectAllowed: WideString read Get_effectAllowed write Set_effectAllowed;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDataTransferDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4B3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDataTransferDisp = dispinterface
- ['{3050F4B3-98B5-11CF-BB82-00AA00BDCE0B}']
- function setData(const format: WideString; var data: OleVariant): WordBool; dispid 1001;
- function getData(const format: WideString): OleVariant; dispid 1002;
- function clearData(const format: WideString): WordBool; dispid 1003;
- property dropEffect: WideString dispid 1004;
- property effectAllowed: WideString dispid 1005;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEventObj2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F48B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj2 = interface(IDispatch)
- ['{3050F48B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); safecall;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; safecall;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; safecall;
- procedure Set_propertyName(const p: WideString); safecall;
- function Get_propertyName: WideString; safecall;
- procedure _Set_bookmarks(const p: IHTMLBookmarkCollection); safecall;
- function Get_bookmarks: IHTMLBookmarkCollection; safecall;
- procedure _Set_recordset(const p: IDispatch); safecall;
- function Get_recordset: IDispatch; safecall;
- procedure Set_dataFld(const p: WideString); safecall;
- function Get_dataFld: WideString; safecall;
- procedure _Set_boundElements(const p: IHTMLElementCollection); safecall;
- function Get_boundElements: IHTMLElementCollection; safecall;
- procedure Set_repeat_(p: WordBool); safecall;
- function Get_repeat_: WordBool; safecall;
- procedure Set_srcUrn(const p: WideString); safecall;
- function Get_srcUrn: WideString; safecall;
- procedure _Set_srcElement(const p: IHTMLElement); safecall;
- function Get_srcElement: IHTMLElement; safecall;
- procedure Set_altKey(p: WordBool); safecall;
- function Get_altKey: WordBool; safecall;
- procedure Set_ctrlKey(p: WordBool); safecall;
- function Get_ctrlKey: WordBool; safecall;
- procedure Set_shiftKey(p: WordBool); safecall;
- function Get_shiftKey: WordBool; safecall;
- procedure _Set_fromElement(const p: IHTMLElement); safecall;
- function Get_fromElement: IHTMLElement; safecall;
- procedure _Set_toElement(const p: IHTMLElement); safecall;
- function Get_toElement: IHTMLElement; safecall;
- procedure Set_button(p: Integer); safecall;
- function Get_button: Integer; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- procedure Set_qualifier(const p: WideString); safecall;
- function Get_qualifier: WideString; safecall;
- procedure Set_reason(p: Integer); safecall;
- function Get_reason: Integer; safecall;
- procedure Set_x(p: Integer); safecall;
- function Get_x: Integer; safecall;
- procedure Set_y(p: Integer); safecall;
- function Get_y: Integer; safecall;
- procedure Set_clientX(p: Integer); safecall;
- function Get_clientX: Integer; safecall;
- procedure Set_clientY(p: Integer); safecall;
- function Get_clientY: Integer; safecall;
- procedure Set_offsetX(p: Integer); safecall;
- function Get_offsetX: Integer; safecall;
- procedure Set_offsetY(p: Integer); safecall;
- function Get_offsetY: Integer; safecall;
- procedure Set_screenX(p: Integer); safecall;
- function Get_screenX: Integer; safecall;
- procedure Set_screenY(p: Integer); safecall;
- function Get_screenY: Integer; safecall;
- procedure _Set_srcFilter(const p: IDispatch); safecall;
- function Get_srcFilter: IDispatch; safecall;
- function Get_dataTransfer: IHTMLDataTransfer; safecall;
- property propertyName: WideString read Get_propertyName write Set_propertyName;
- property bookmarks: IHTMLBookmarkCollection read Get_bookmarks write _Set_bookmarks;
- property recordset: IDispatch read Get_recordset write _Set_recordset;
- property dataFld: WideString read Get_dataFld write Set_dataFld;
- property boundElements: IHTMLElementCollection read Get_boundElements write _Set_boundElements;
- property repeat_: WordBool read Get_repeat_ write Set_repeat_;
- property srcUrn: WideString read Get_srcUrn write Set_srcUrn;
- property srcElement: IHTMLElement read Get_srcElement write _Set_srcElement;
- property altKey: WordBool read Get_altKey write Set_altKey;
- property ctrlKey: WordBool read Get_ctrlKey write Set_ctrlKey;
- property shiftKey: WordBool read Get_shiftKey write Set_shiftKey;
- property fromElement: IHTMLElement read Get_fromElement write _Set_fromElement;
- property toElement: IHTMLElement read Get_toElement write _Set_toElement;
- property button: Integer read Get_button write Set_button;
- property type_: WideString read Get_type_ write Set_type_;
- property qualifier: WideString read Get_qualifier write Set_qualifier;
- property reason: Integer read Get_reason write Set_reason;
- property x: Integer read Get_x write Set_x;
- property y: Integer read Get_y write Set_y;
- property clientX: Integer read Get_clientX write Set_clientX;
- property clientY: Integer read Get_clientY write Set_clientY;
- property offsetX: Integer read Get_offsetX write Set_offsetX;
- property offsetY: Integer read Get_offsetY write Set_offsetY;
- property screenX: Integer read Get_screenX write Set_screenX;
- property screenY: Integer read Get_screenY write Set_screenY;
- property srcFilter: IDispatch read Get_srcFilter write _Set_srcFilter;
- property dataTransfer: IHTMLDataTransfer read Get_dataTransfer;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLEventObj2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F48B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj2Disp = dispinterface
- ['{3050F48B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property propertyName: WideString dispid 1027;
- property bookmarks: IHTMLBookmarkCollection dispid 1031;
- property recordset: IDispatch dispid 1032;
- property dataFld: WideString dispid 1033;
- property boundElements: IHTMLElementCollection dispid 1034;
- property repeat_: WordBool dispid 1035;
- property srcUrn: WideString dispid 1036;
- property srcElement: IHTMLElement dispid 1001;
- property altKey: WordBool dispid 1002;
- property ctrlKey: WordBool dispid 1003;
- property shiftKey: WordBool dispid 1004;
- property fromElement: IHTMLElement dispid 1009;
- property toElement: IHTMLElement dispid 1010;
- property button: Integer dispid 1012;
- property type_: WideString dispid 1013;
- property qualifier: WideString dispid 1014;
- property reason: Integer dispid 1015;
- property x: Integer dispid 1005;
- property y: Integer dispid 1006;
- property clientX: Integer dispid 1020;
- property clientY: Integer dispid 1021;
- property offsetX: Integer dispid 1022;
- property offsetY: Integer dispid 1023;
- property screenX: Integer dispid 1024;
- property screenY: Integer dispid 1025;
- property srcFilter: IDispatch dispid 1026;
- property dataTransfer: IHTMLDataTransfer readonly dispid 1037;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEventObj3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F680-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj3 = interface(IDispatch)
- ['{3050F680-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_contentOverflow: WordBool; safecall;
- procedure Set_shiftLeft(p: WordBool); safecall;
- function Get_shiftLeft: WordBool; safecall;
- procedure Set_altLeft(p: WordBool); safecall;
- function Get_altLeft: WordBool; safecall;
- procedure Set_ctrlLeft(p: WordBool); safecall;
- function Get_ctrlLeft: WordBool; safecall;
- function Get_imeCompositionChange: LONG_PTR; safecall;
- function Get_imeNotifyCommand: LONG_PTR; safecall;
- function Get_imeNotifyData: LONG_PTR; safecall;
- function Get_imeRequest: LONG_PTR; safecall;
- function Get_imeRequestData: LONG_PTR; safecall;
- function Get_keyboardLayout: LONG_PTR; safecall;
- function Get_behaviorCookie: Integer; safecall;
- function Get_behaviorPart: Integer; safecall;
- function Get_nextPage: WideString; safecall;
- property contentOverflow: WordBool read Get_contentOverflow;
- property shiftLeft: WordBool read Get_shiftLeft write Set_shiftLeft;
- property altLeft: WordBool read Get_altLeft write Set_altLeft;
- property ctrlLeft: WordBool read Get_ctrlLeft write Set_ctrlLeft;
- property imeCompositionChange: LONG_PTR read Get_imeCompositionChange;
- property imeNotifyCommand: LONG_PTR read Get_imeNotifyCommand;
- property imeNotifyData: LONG_PTR read Get_imeNotifyData;
- property imeRequest: LONG_PTR read Get_imeRequest;
- property imeRequestData: LONG_PTR read Get_imeRequestData;
- property keyboardLayout: LONG_PTR read Get_keyboardLayout;
- property behaviorCookie: Integer read Get_behaviorCookie;
- property behaviorPart: Integer read Get_behaviorPart;
- property nextPage: WideString read Get_nextPage;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLEventObj3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F680-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj3Disp = dispinterface
- ['{3050F680-98B5-11CF-BB82-00AA00BDCE0B}']
- property contentOverflow: WordBool readonly dispid 1038;
- property shiftLeft: WordBool dispid 1039;
- property altLeft: WordBool dispid 1040;
- property ctrlLeft: WordBool dispid 1041;
- property imeCompositionChange: LONG_PTR readonly dispid 1042;
- property imeNotifyCommand: LONG_PTR readonly dispid 1043;
- property imeNotifyData: LONG_PTR readonly dispid 1044;
- property imeRequest: LONG_PTR readonly dispid 1046;
- property imeRequestData: LONG_PTR readonly dispid 1047;
- property keyboardLayout: LONG_PTR readonly dispid 1045;
- property behaviorCookie: Integer readonly dispid 1048;
- property behaviorPart: Integer readonly dispid 1049;
- property nextPage: WideString readonly dispid 1050;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEventObj4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F814-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj4 = interface(IDispatch)
- ['{3050F814-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_wheelDelta: Integer; safecall;
- property wheelDelta: Integer read Get_wheelDelta;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLEventObj4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F814-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEventObj4Disp = dispinterface
- ['{3050F814-98B5-11CF-BB82-00AA00BDCE0B}']
- property wheelDelta: Integer readonly dispid 1051;
- end;
-
-// *********************************************************************//
-// DispIntf: DispCEventObj
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F558-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispCEventObj = dispinterface
- ['{3050F558-98B5-11CF-BB82-00AA00BDCE0B}']
- property returnValue: OleVariant dispid 1007;
- property cancelBubble: WordBool dispid 1008;
- property keyCode: Integer dispid 1011;
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property propertyName: WideString dispid 1027;
- property bookmarks: IHTMLBookmarkCollection dispid 1031;
- property recordset: IDispatch dispid 1032;
- property dataFld: WideString dispid 1033;
- property boundElements: IHTMLElementCollection dispid 1034;
- property repeat_: WordBool dispid 1035;
- property srcUrn: WideString dispid 1036;
- property srcElement: IHTMLElement dispid 1001;
- property altKey: WordBool dispid 1002;
- property ctrlKey: WordBool dispid 1003;
- property shiftKey: WordBool dispid 1004;
- property fromElement: IHTMLElement dispid 1009;
- property toElement: IHTMLElement dispid 1010;
- property button: Integer dispid 1012;
- property type_: WideString dispid 1013;
- property qualifier: WideString dispid 1014;
- property reason: Integer dispid 1015;
- property x: Integer dispid 1005;
- property y: Integer dispid 1006;
- property clientX: Integer dispid 1020;
- property clientY: Integer dispid 1021;
- property offsetX: Integer dispid 1022;
- property offsetY: Integer dispid 1023;
- property screenX: Integer dispid 1024;
- property screenY: Integer dispid 1025;
- property srcFilter: IDispatch dispid 1026;
- property dataTransfer: IHTMLDataTransfer readonly dispid 1037;
- property contentOverflow: WordBool readonly dispid 1038;
- property shiftLeft: WordBool dispid 1039;
- property altLeft: WordBool dispid 1040;
- property ctrlLeft: WordBool dispid 1041;
- property imeCompositionChange: LONG_PTR readonly dispid 1042;
- property imeNotifyCommand: LONG_PTR readonly dispid 1043;
- property imeNotifyData: LONG_PTR readonly dispid 1044;
- property imeRequest: LONG_PTR readonly dispid 1046;
- property imeRequestData: LONG_PTR readonly dispid 1047;
- property keyboardLayout: LONG_PTR readonly dispid 1045;
- property behaviorCookie: Integer readonly dispid 1048;
- property behaviorPart: Integer readonly dispid 1049;
- property nextPage: WideString readonly dispid 1050;
- property wheelDelta: Integer readonly dispid 1051;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLWindowEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F625-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLWindowEvents2 = dispinterface
- ['{3050F625-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onunload(const pEvtObj: IHTMLEventObj); dispid 1008;
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onerror(const description: WideString; const url: WideString; line: Integer); dispid 1002;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onbeforeunload(const pEvtObj: IHTMLEventObj); dispid 1017;
- procedure onbeforeprint(const pEvtObj: IHTMLEventObj); dispid 1024;
- procedure onafterprint(const pEvtObj: IHTMLEventObj); dispid 1025;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLWindowEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {96A0A4E0-D062-11CF-94B6-00AA0060275C}
-// *********************************************************************//
- HTMLWindowEvents = dispinterface
- ['{96A0A4E0-D062-11CF-94B6-00AA0060275C}']
- procedure onload; dispid 1003;
- procedure onunload; dispid 1008;
- function onhelp: WordBool; dispid - 2147418102;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onerror(const description: WideString; const url: WideString; line: Integer); dispid 1002;
- procedure onresize; dispid 1016;
- procedure onscroll; dispid 1014;
- procedure onbeforeunload; dispid 1017;
- procedure onbeforeprint; dispid 1024;
- procedure onafterprint; dispid 1025;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDocument2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {332C4425-26CB-11D0-B483-00C04FD90119}
-// *********************************************************************//
- IHTMLDocument2 = interface(IHTMLDocument)
- ['{332C4425-26CB-11D0-B483-00C04FD90119}']
- function Get_all: IHTMLElementCollection; safecall;
- function Get_body: IHTMLElement; safecall;
- function Get_activeElement: IHTMLElement; safecall;
- function Get_images: IHTMLElementCollection; safecall;
- function Get_applets: IHTMLElementCollection; safecall;
- function Get_links: IHTMLElementCollection; safecall;
- function Get_forms: IHTMLElementCollection; safecall;
- function Get_anchors: IHTMLElementCollection; safecall;
- procedure Set_title(const p: WideString); safecall;
- function Get_title: WideString; safecall;
- function Get_scripts: IHTMLElementCollection; safecall;
- procedure Set_designMode(const p: WideString); safecall;
- function Get_designMode: WideString; safecall;
- function Get_selection: IHTMLSelectionObject; safecall;
- function Get_readyState: WideString; safecall;
- function Get_frames: IHTMLFramesCollection2; safecall;
- function Get_embeds: IHTMLElementCollection; safecall;
- function Get_plugins: IHTMLElementCollection; safecall;
- procedure Set_alinkColor(p: OleVariant); safecall;
- function Get_alinkColor: OleVariant; safecall;
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- procedure Set_fgColor(p: OleVariant); safecall;
- function Get_fgColor: OleVariant; safecall;
- procedure Set_linkColor(p: OleVariant); safecall;
- function Get_linkColor: OleVariant; safecall;
- procedure Set_vlinkColor(p: OleVariant); safecall;
- function Get_vlinkColor: OleVariant; safecall;
- function Get_referrer: WideString; safecall;
- function Get_location: IHTMLLocation; safecall;
- function Get_lastModified: WideString; safecall;
- procedure Set_url(const p: WideString); safecall;
- function Get_url: WideString; safecall;
- procedure Set_domain(const p: WideString); safecall;
- function Get_domain: WideString; safecall;
- procedure Set_cookie(const p: WideString); safecall;
- function Get_cookie: WideString; safecall;
- procedure Set_expando(p: WordBool); safecall;
- function Get_expando: WordBool; safecall;
- procedure Set_charset(const p: WideString); safecall;
- function Get_charset: WideString; safecall;
- procedure Set_defaultCharset(const p: WideString); safecall;
- function Get_defaultCharset: WideString; safecall;
- function Get_mimeType: WideString; safecall;
- function Get_fileSize: WideString; safecall;
- function Get_fileCreatedDate: WideString; safecall;
- function Get_fileModifiedDate: WideString; safecall;
- function Get_fileUpdatedDate: WideString; safecall;
- function Get_security: WideString; safecall;
- function Get_protocol: WideString; safecall;
- function Get_nameProp: WideString; safecall;
- procedure write(psarray: PSafeArray); safecall;
- procedure writeln(psarray: PSafeArray); safecall;
- function open(const url: WideString; name: OleVariant; features: OleVariant; replace: OleVariant): IDispatch; safecall;
- procedure close; safecall;
- procedure clear; safecall;
- function queryCommandSupported(const cmdID: WideString): WordBool; safecall;
- function queryCommandEnabled(const cmdID: WideString): WordBool; safecall;
- function queryCommandState(const cmdID: WideString): WordBool; safecall;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; safecall;
- function queryCommandText(const cmdID: WideString): WideString; safecall;
- function queryCommandValue(const cmdID: WideString): OleVariant; safecall;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; safecall;
- function execCommandShowHelp(const cmdID: WideString): WordBool; safecall;
- function createElement(const eTag: WideString): IHTMLElement; safecall;
- procedure Set_onhelp(p: OleVariant); safecall;
- function Get_onhelp: OleVariant; safecall;
- procedure Set_onclick(p: OleVariant); safecall;
- function Get_onclick: OleVariant; safecall;
- procedure Set_ondblclick(p: OleVariant); safecall;
- function Get_ondblclick: OleVariant; safecall;
- procedure Set_onkeyup(p: OleVariant); safecall;
- function Get_onkeyup: OleVariant; safecall;
- procedure Set_onkeydown(p: OleVariant); safecall;
- function Get_onkeydown: OleVariant; safecall;
- procedure Set_onkeypress(p: OleVariant); safecall;
- function Get_onkeypress: OleVariant; safecall;
- procedure Set_onmouseup(p: OleVariant); safecall;
- function Get_onmouseup: OleVariant; safecall;
- procedure Set_onmousedown(p: OleVariant); safecall;
- function Get_onmousedown: OleVariant; safecall;
- procedure Set_onmousemove(p: OleVariant); safecall;
- function Get_onmousemove: OleVariant; safecall;
- procedure Set_onmouseout(p: OleVariant); safecall;
- function Get_onmouseout: OleVariant; safecall;
- procedure Set_onmouseover(p: OleVariant); safecall;
- function Get_onmouseover: OleVariant; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- procedure Set_onafterupdate(p: OleVariant); safecall;
- function Get_onafterupdate: OleVariant; safecall;
- procedure Set_onrowexit(p: OleVariant); safecall;
- function Get_onrowexit: OleVariant; safecall;
- procedure Set_onrowenter(p: OleVariant); safecall;
- function Get_onrowenter: OleVariant; safecall;
- procedure Set_ondragstart(p: OleVariant); safecall;
- function Get_ondragstart: OleVariant; safecall;
- procedure Set_onselectstart(p: OleVariant); safecall;
- function Get_onselectstart: OleVariant; safecall;
- function elementFromPoint(x: Integer; y: Integer): IHTMLElement; safecall;
- function Get_parentWindow: IHTMLWindow2; safecall;
- function Get_styleSheets: IHTMLStyleSheetsCollection; safecall;
- procedure Set_onbeforeupdate(p: OleVariant); safecall;
- function Get_onbeforeupdate: OleVariant; safecall;
- procedure Set_onerrorupdate(p: OleVariant); safecall;
- function Get_onerrorupdate: OleVariant; safecall;
- function toString: WideString; safecall;
- function createStyleSheet(const bstrHref: WideString; lIndex: Integer): IHTMLStyleSheet; safecall;
- property all: IHTMLElementCollection read Get_all;
- property body: IHTMLElement read Get_body;
- property activeElement: IHTMLElement read Get_activeElement;
- property images: IHTMLElementCollection read Get_images;
- property applets: IHTMLElementCollection read Get_applets;
- property links: IHTMLElementCollection read Get_links;
- property forms: IHTMLElementCollection read Get_forms;
- property anchors: IHTMLElementCollection read Get_anchors;
- property title: WideString read Get_title write Set_title;
- property scripts: IHTMLElementCollection read Get_scripts;
- property designMode: WideString read Get_designMode write Set_designMode;
- property selection: IHTMLSelectionObject read Get_selection;
- property readyState: WideString read Get_readyState;
- property frames: IHTMLFramesCollection2 read Get_frames;
- property embeds: IHTMLElementCollection read Get_embeds;
- property plugins: IHTMLElementCollection read Get_plugins;
- property alinkColor: OleVariant read Get_alinkColor write Set_alinkColor;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property fgColor: OleVariant read Get_fgColor write Set_fgColor;
- property linkColor: OleVariant read Get_linkColor write Set_linkColor;
- property vlinkColor: OleVariant read Get_vlinkColor write Set_vlinkColor;
- property referrer: WideString read Get_referrer;
- property location: IHTMLLocation read Get_location;
- property lastModified: WideString read Get_lastModified;
- property url: WideString read Get_url write Set_url;
- property domain: WideString read Get_domain write Set_domain;
- property cookie: WideString read Get_cookie write Set_cookie;
- property expando: WordBool read Get_expando write Set_expando;
- property charset: WideString read Get_charset write Set_charset;
- property defaultCharset: WideString read Get_defaultCharset write Set_defaultCharset;
- property mimeType: WideString read Get_mimeType;
- property fileSize: WideString read Get_fileSize;
- property fileCreatedDate: WideString read Get_fileCreatedDate;
- property fileModifiedDate: WideString read Get_fileModifiedDate;
- property fileUpdatedDate: WideString read Get_fileUpdatedDate;
- property security: WideString read Get_security;
- property protocol: WideString read Get_protocol;
- property nameProp: WideString read Get_nameProp;
- property onhelp: OleVariant read Get_onhelp write Set_onhelp;
- property onclick: OleVariant read Get_onclick write Set_onclick;
- property ondblclick: OleVariant read Get_ondblclick write Set_ondblclick;
- property onkeyup: OleVariant read Get_onkeyup write Set_onkeyup;
- property onkeydown: OleVariant read Get_onkeydown write Set_onkeydown;
- property onkeypress: OleVariant read Get_onkeypress write Set_onkeypress;
- property onmouseup: OleVariant read Get_onmouseup write Set_onmouseup;
- property onmousedown: OleVariant read Get_onmousedown write Set_onmousedown;
- property onmousemove: OleVariant read Get_onmousemove write Set_onmousemove;
- property onmouseout: OleVariant read Get_onmouseout write Set_onmouseout;
- property onmouseover: OleVariant read Get_onmouseover write Set_onmouseover;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- property onafterupdate: OleVariant read Get_onafterupdate write Set_onafterupdate;
- property onrowexit: OleVariant read Get_onrowexit write Set_onrowexit;
- property onrowenter: OleVariant read Get_onrowenter write Set_onrowenter;
- property ondragstart: OleVariant read Get_ondragstart write Set_ondragstart;
- property onselectstart: OleVariant read Get_onselectstart write Set_onselectstart;
- property parentWindow: IHTMLWindow2 read Get_parentWindow;
- property styleSheets: IHTMLStyleSheetsCollection read Get_styleSheets;
- property onbeforeupdate: OleVariant read Get_onbeforeupdate write Set_onbeforeupdate;
- property onerrorupdate: OleVariant read Get_onerrorupdate write Set_onerrorupdate;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDocument2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {332C4425-26CB-11D0-B483-00C04FD90119}
-// *********************************************************************//
- IHTMLDocument2Disp = dispinterface
- ['{332C4425-26CB-11D0-B483-00C04FD90119}']
- property all: IHTMLElementCollection readonly dispid 1003;
- property body: IHTMLElement readonly dispid 1004;
- property activeElement: IHTMLElement readonly dispid 1005;
- property images: IHTMLElementCollection readonly dispid 1011;
- property applets: IHTMLElementCollection readonly dispid 1008;
- property links: IHTMLElementCollection readonly dispid 1009;
- property forms: IHTMLElementCollection readonly dispid 1010;
- property anchors: IHTMLElementCollection readonly dispid 1007;
- property title: WideString dispid 1012;
- property scripts: IHTMLElementCollection readonly dispid 1013;
- property designMode: WideString dispid 1014;
- property selection: IHTMLSelectionObject readonly dispid 1017;
- property readyState: WideString readonly dispid 1018;
- property frames: IHTMLFramesCollection2 readonly dispid 1019;
- property embeds: IHTMLElementCollection readonly dispid 1015;
- property plugins: IHTMLElementCollection readonly dispid 1021;
- property alinkColor: OleVariant dispid 1022;
- property bgColor: OleVariant dispid - 501;
- property fgColor: OleVariant dispid - 2147413110;
- property linkColor: OleVariant dispid 1024;
- property vlinkColor: OleVariant dispid 1023;
- property referrer: WideString readonly dispid 1027;
- property location: IHTMLLocation readonly dispid 1026;
- property lastModified: WideString readonly dispid 1028;
- property url: WideString dispid 1025;
- property domain: WideString dispid 1029;
- property cookie: WideString dispid 1030;
- property expando: WordBool dispid 1031;
- property charset: WideString dispid 1032;
- property defaultCharset: WideString dispid 1033;
- property mimeType: WideString readonly dispid 1041;
- property fileSize: WideString readonly dispid 1042;
- property fileCreatedDate: WideString readonly dispid 1043;
- property fileModifiedDate: WideString readonly dispid 1044;
- property fileUpdatedDate: WideString readonly dispid 1045;
- property security: WideString readonly dispid 1046;
- property protocol: WideString readonly dispid 1047;
- property nameProp: WideString readonly dispid 1048;
- procedure write(psarray: {??PSafeArray} OleVariant); dispid 1054;
- procedure writeln(psarray: {??PSafeArray} OleVariant); dispid 1055;
- function open(const url: WideString; name: OleVariant; features: OleVariant; replace: OleVariant): IDispatch; dispid 1056;
- procedure close; dispid 1057;
- procedure clear; dispid 1058;
- function queryCommandSupported(const cmdID: WideString): WordBool; dispid 1059;
- function queryCommandEnabled(const cmdID: WideString): WordBool; dispid 1060;
- function queryCommandState(const cmdID: WideString): WordBool; dispid 1061;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; dispid 1062;
- function queryCommandText(const cmdID: WideString): WideString; dispid 1063;
- function queryCommandValue(const cmdID: WideString): OleVariant; dispid 1064;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; dispid 1065;
- function execCommandShowHelp(const cmdID: WideString): WordBool; dispid 1066;
- function createElement(const eTag: WideString): IHTMLElement; dispid 1067;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseup: OleVariant dispid - 2147412109;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondragstart: OleVariant dispid - 2147412077;
- property onselectstart: OleVariant dispid - 2147412075;
- function elementFromPoint(x: Integer; y: Integer): IHTMLElement; dispid 1068;
- property parentWindow: IHTMLWindow2 readonly dispid 1034;
- property styleSheets: IHTMLStyleSheetsCollection readonly dispid 1069;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onerrorupdate: OleVariant dispid - 2147412074;
- function toString: WideString; dispid 1070;
- function createStyleSheet(const bstrHref: WideString; lIndex: Integer): IHTMLStyleSheet; dispid 1071;
- property Script: IDispatch readonly dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFramesCollection2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {332C4426-26CB-11D0-B483-00C04FD90119}
-// *********************************************************************//
- IHTMLFramesCollection2 = interface(IDispatch)
- ['{332C4426-26CB-11D0-B483-00C04FD90119}']
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; safecall;
- function Get_length: Integer; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFramesCollection2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {332C4426-26CB-11D0-B483-00C04FD90119}
-// *********************************************************************//
- IHTMLFramesCollection2Disp = dispinterface
- ['{332C4426-26CB-11D0-B483-00C04FD90119}']
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- property length: Integer readonly dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLWindow2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {332C4427-26CB-11D0-B483-00C04FD90119}
-// *********************************************************************//
- IHTMLWindow2 = interface(IHTMLFramesCollection2)
- ['{332C4427-26CB-11D0-B483-00C04FD90119}']
- function Get_frames: IHTMLFramesCollection2; safecall;
- procedure Set_defaultStatus(const p: WideString); safecall;
- function Get_defaultStatus: WideString; safecall;
- procedure Set_status(const p: WideString); safecall;
- function Get_status: WideString; safecall;
- function setTimeout(const expression: WideString; msec: Integer; var language: OleVariant): Integer; safecall;
- procedure clearTimeout(timerID: Integer); safecall;
- procedure alert(const message: WideString); safecall;
- function confirm(const message: WideString): WordBool; safecall;
- function prompt(const message: WideString; const defstr: WideString): OleVariant; safecall;
- function Get_Image: IHTMLImageElementFactory; safecall;
- function Get_location: IHTMLLocation; safecall;
- function Get_history: IOmHistory; safecall;
- procedure close; safecall;
- procedure Set_opener(p: OleVariant); safecall;
- function Get_opener: OleVariant; safecall;
- function Get_navigator: IOmNavigator; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- function Get_parent: IHTMLWindow2; safecall;
- function open(const url: WideString; const name: WideString; const features: WideString;
- replace: WordBool): IHTMLWindow2; safecall;
- function Get_self: IHTMLWindow2; safecall;
- function Get_top: IHTMLWindow2; safecall;
- function Get_window: IHTMLWindow2; safecall;
- procedure navigate(const url: WideString); safecall;
- procedure Set_onfocus(p: OleVariant); safecall;
- function Get_onfocus: OleVariant; safecall;
- procedure Set_onblur(p: OleVariant); safecall;
- function Get_onblur: OleVariant; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onbeforeunload(p: OleVariant); safecall;
- function Get_onbeforeunload: OleVariant; safecall;
- procedure Set_onunload(p: OleVariant); safecall;
- function Get_onunload: OleVariant; safecall;
- procedure Set_onhelp(p: OleVariant); safecall;
- function Get_onhelp: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- procedure Set_onresize(p: OleVariant); safecall;
- function Get_onresize: OleVariant; safecall;
- procedure Set_onscroll(p: OleVariant); safecall;
- function Get_onscroll: OleVariant; safecall;
- function Get_document: IHTMLDocument2; safecall;
- function Get_event: IHTMLEventObj; safecall;
- function Get__newEnum: IUnknown; safecall;
- function showModalDialog(const dialog: WideString; var varArgIn: OleVariant;
- var varOptions: OleVariant): OleVariant; safecall;
- procedure showHelp(const helpURL: WideString; helpArg: OleVariant; const features: WideString); safecall;
- function Get_screen: IHTMLScreen; safecall;
- function Get_Option: IHTMLOptionElementFactory; safecall;
- procedure focus; safecall;
- function Get_closed: WordBool; safecall;
- procedure blur; safecall;
- procedure scroll(x: Integer; y: Integer); safecall;
- function Get_clientInformation: IOmNavigator; safecall;
- function setInterval(const expression: WideString; msec: Integer; var language: OleVariant): Integer; safecall;
- procedure clearInterval(timerID: Integer); safecall;
- procedure Set_offscreenBuffering(p: OleVariant); safecall;
- function Get_offscreenBuffering: OleVariant; safecall;
- function execScript(const code: WideString; const language: WideString): OleVariant; safecall;
- function toString: WideString; safecall;
- procedure scrollBy(x: Integer; y: Integer); safecall;
- procedure scrollTo(x: Integer; y: Integer); safecall;
- procedure moveTo(x: Integer; y: Integer); safecall;
- procedure moveBy(x: Integer; y: Integer); safecall;
- procedure resizeTo(x: Integer; y: Integer); safecall;
- procedure resizeBy(x: Integer; y: Integer); safecall;
- function Get_external: IDispatch; safecall;
- property frames: IHTMLFramesCollection2 read Get_frames;
- property defaultStatus: WideString read Get_defaultStatus write Set_defaultStatus;
- property status: WideString read Get_status write Set_status;
- property Image: IHTMLImageElementFactory read Get_Image;
- property location: IHTMLLocation read Get_location;
- property history: IOmHistory read Get_history;
- property opener: OleVariant read Get_opener write Set_opener;
- property navigator: IOmNavigator read Get_navigator;
- property name: WideString read Get_name write Set_name;
- property parent: IHTMLWindow2 read Get_parent;
- property self: IHTMLWindow2 read Get_self;
- property top: IHTMLWindow2 read Get_top;
- property window: IHTMLWindow2 read Get_window;
- property onfocus: OleVariant read Get_onfocus write Set_onfocus;
- property onblur: OleVariant read Get_onblur write Set_onblur;
- property onload: OleVariant read Get_onload write Set_onload;
- property onbeforeunload: OleVariant read Get_onbeforeunload write Set_onbeforeunload;
- property onunload: OleVariant read Get_onunload write Set_onunload;
- property onhelp: OleVariant read Get_onhelp write Set_onhelp;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property onresize: OleVariant read Get_onresize write Set_onresize;
- property onscroll: OleVariant read Get_onscroll write Set_onscroll;
- property document: IHTMLDocument2 read Get_document;
- property event: IHTMLEventObj read Get_event;
- property _newEnum: IUnknown read Get__newEnum;
- property screen: IHTMLScreen read Get_screen;
- property Option: IHTMLOptionElementFactory read Get_Option;
- property closed: WordBool read Get_closed;
- property clientInformation: IOmNavigator read Get_clientInformation;
- property offscreenBuffering: OleVariant read Get_offscreenBuffering write Set_offscreenBuffering;
- property external: IDispatch read Get_external;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLWindow2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {332C4427-26CB-11D0-B483-00C04FD90119}
-// *********************************************************************//
- IHTMLWindow2Disp = dispinterface
- ['{332C4427-26CB-11D0-B483-00C04FD90119}']
- property frames: IHTMLFramesCollection2 readonly dispid 1100;
- property defaultStatus: WideString dispid 1101;
- property status: WideString dispid 1102;
- function setTimeout(const expression: WideString; msec: Integer; var language: OleVariant): Integer; dispid 1172;
- procedure clearTimeout(timerID: Integer); dispid 1104;
- procedure alert(const message: WideString); dispid 1105;
- function confirm(const message: WideString): WordBool; dispid 1110;
- function prompt(const message: WideString; const defstr: WideString): OleVariant; dispid 1111;
- property Image: IHTMLImageElementFactory readonly dispid 1125;
- property location: IHTMLLocation readonly dispid 14;
- property history: IOmHistory readonly dispid 2;
- procedure close; dispid 3;
- property opener: OleVariant dispid 4;
- property navigator: IOmNavigator readonly dispid 5;
- property name: WideString dispid 11;
- property parent: IHTMLWindow2 readonly dispid 12;
- function open(const url: WideString; const name: WideString; const features: WideString;
- replace: WordBool): IHTMLWindow2; dispid 13;
- property self: IHTMLWindow2 readonly dispid 20;
- property top: IHTMLWindow2 readonly dispid 21;
- property window: IHTMLWindow2 readonly dispid 22;
- procedure navigate(const url: WideString); dispid 25;
- property onfocus: OleVariant dispid - 2147412098;
- property onblur: OleVariant dispid - 2147412097;
- property onload: OleVariant dispid - 2147412080;
- property onbeforeunload: OleVariant dispid - 2147412073;
- property onunload: OleVariant dispid - 2147412079;
- property onhelp: OleVariant dispid - 2147412099;
- property onerror: OleVariant dispid - 2147412083;
- property onresize: OleVariant dispid - 2147412076;
- property onscroll: OleVariant dispid - 2147412081;
- property document: IHTMLDocument2 readonly dispid 1151;
- property event: IHTMLEventObj readonly dispid 1152;
- property _newEnum: IUnknown readonly dispid 1153;
- function showModalDialog(const dialog: WideString; var varArgIn: OleVariant;
- var varOptions: OleVariant): OleVariant; dispid 1154;
- procedure showHelp(const helpURL: WideString; helpArg: OleVariant; const features: WideString); dispid 1155;
- property screen: IHTMLScreen readonly dispid 1156;
- property Option: IHTMLOptionElementFactory readonly dispid 1157;
- procedure focus; dispid 1158;
- property closed: WordBool readonly dispid 23;
- procedure blur; dispid 1159;
- procedure scroll(x: Integer; y: Integer); dispid 1160;
- property clientInformation: IOmNavigator readonly dispid 1161;
- function setInterval(const expression: WideString; msec: Integer; var language: OleVariant): Integer; dispid 1173;
- procedure clearInterval(timerID: Integer); dispid 1163;
- property offscreenBuffering: OleVariant dispid 1164;
- function execScript(const code: WideString; const language: WideString): OleVariant; dispid 1165;
- function toString: WideString; dispid 1166;
- procedure scrollBy(x: Integer; y: Integer); dispid 1167;
- procedure scrollTo(x: Integer; y: Integer); dispid 1168;
- procedure moveTo(x: Integer; y: Integer); dispid 6;
- procedure moveBy(x: Integer; y: Integer); dispid 7;
- procedure resizeTo(x: Integer; y: Integer); dispid 9;
- procedure resizeBy(x: Integer; y: Integer); dispid 8;
- property external: IDispatch readonly dispid 1169;
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- property length: Integer readonly dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLScreen
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F35C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScreen = interface(IDispatch)
- ['{3050F35C-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_colorDepth: Integer; safecall;
- procedure Set_bufferDepth(p: Integer); safecall;
- function Get_bufferDepth: Integer; safecall;
- function Get_width: Integer; safecall;
- function Get_height: Integer; safecall;
- procedure Set_updateInterval(p: Integer); safecall;
- function Get_updateInterval: Integer; safecall;
- function Get_availHeight: Integer; safecall;
- function Get_availWidth: Integer; safecall;
- function Get_fontSmoothingEnabled: WordBool; safecall;
- property colorDepth: Integer read Get_colorDepth;
- property bufferDepth: Integer read Get_bufferDepth write Set_bufferDepth;
- property width: Integer read Get_width;
- property height: Integer read Get_height;
- property updateInterval: Integer read Get_updateInterval write Set_updateInterval;
- property availHeight: Integer read Get_availHeight;
- property availWidth: Integer read Get_availWidth;
- property fontSmoothingEnabled: WordBool read Get_fontSmoothingEnabled;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLScreenDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F35C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScreenDisp = dispinterface
- ['{3050F35C-98B5-11CF-BB82-00AA00BDCE0B}']
- property colorDepth: Integer readonly dispid 1001;
- property bufferDepth: Integer dispid 1002;
- property width: Integer readonly dispid 1003;
- property height: Integer readonly dispid 1004;
- property updateInterval: Integer dispid 1005;
- property availHeight: Integer readonly dispid 1006;
- property availWidth: Integer readonly dispid 1007;
- property fontSmoothingEnabled: WordBool readonly dispid 1008;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLWindow3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4AE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLWindow3 = interface(IDispatch)
- ['{3050F4AE-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_screenLeft: Integer; safecall;
- function Get_screenTop: Integer; safecall;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; safecall;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); safecall;
- function setTimeout(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; safecall;
- function setInterval(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; safecall;
- procedure print; safecall;
- procedure Set_onbeforeprint(p: OleVariant); safecall;
- function Get_onbeforeprint: OleVariant; safecall;
- procedure Set_onafterprint(p: OleVariant); safecall;
- function Get_onafterprint: OleVariant; safecall;
- function Get_clipboardData: IHTMLDataTransfer; safecall;
- function showModelessDialog(const url: WideString; var varArgIn: OleVariant;
- var options: OleVariant): IHTMLWindow2; safecall;
- property screenLeft: Integer read Get_screenLeft;
- property screenTop: Integer read Get_screenTop;
- property onbeforeprint: OleVariant read Get_onbeforeprint write Set_onbeforeprint;
- property onafterprint: OleVariant read Get_onafterprint write Set_onafterprint;
- property clipboardData: IHTMLDataTransfer read Get_clipboardData;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLWindow3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4AE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLWindow3Disp = dispinterface
- ['{3050F4AE-98B5-11CF-BB82-00AA00BDCE0B}']
- property screenLeft: Integer readonly dispid 1170;
- property screenTop: Integer readonly dispid 1171;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- function setTimeout(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; dispid 1103;
- function setInterval(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; dispid 1162;
- procedure print; dispid 1174;
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- property clipboardData: IHTMLDataTransfer readonly dispid 1175;
- function showModelessDialog(const url: WideString; var varArgIn: OleVariant;
- var options: OleVariant): IHTMLWindow2; dispid 1176;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameBase
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F311-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameBase = interface(IDispatch)
- ['{3050F311-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_frameBorder(const p: WideString); safecall;
- function Get_frameBorder: WideString; safecall;
- procedure Set_frameSpacing(p: OleVariant); safecall;
- function Get_frameSpacing: OleVariant; safecall;
- procedure Set_marginWidth(p: OleVariant); safecall;
- function Get_marginWidth: OleVariant; safecall;
- procedure Set_marginHeight(p: OleVariant); safecall;
- function Get_marginHeight: OleVariant; safecall;
- procedure Set_noResize(p: WordBool); safecall;
- function Get_noResize: WordBool; safecall;
- procedure Set_scrolling(const p: WideString); safecall;
- function Get_scrolling: WideString; safecall;
- property src: WideString read Get_src write Set_src;
- property name: WideString read Get_name write Set_name;
- property border: OleVariant read Get_border write Set_border;
- property frameBorder: WideString read Get_frameBorder write Set_frameBorder;
- property frameSpacing: OleVariant read Get_frameSpacing write Set_frameSpacing;
- property marginWidth: OleVariant read Get_marginWidth write Set_marginWidth;
- property marginHeight: OleVariant read Get_marginHeight write Set_marginHeight;
- property noResize: WordBool read Get_noResize write Set_noResize;
- property scrolling: WideString read Get_scrolling write Set_scrolling;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameBaseDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F311-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameBaseDisp = dispinterface
- ['{3050F311-98B5-11CF-BB82-00AA00BDCE0B}']
- property src: WideString dispid - 2147415112;
- property name: WideString dispid - 2147418112;
- property border: OleVariant dispid - 2147415110;
- property frameBorder: WideString dispid - 2147415109;
- property frameSpacing: OleVariant dispid - 2147415108;
- property marginWidth: OleVariant dispid - 2147415107;
- property marginHeight: OleVariant dispid - 2147415106;
- property noResize: WordBool dispid - 2147415105;
- property scrolling: WideString dispid - 2147415104;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLScreen2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F84A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScreen2 = interface(IDispatch)
- ['{3050F84A-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_logicalXDPI: Integer; safecall;
- function Get_logicalYDPI: Integer; safecall;
- function Get_deviceXDPI: Integer; safecall;
- function Get_deviceYDPI: Integer; safecall;
- property logicalXDPI: Integer read Get_logicalXDPI;
- property logicalYDPI: Integer read Get_logicalYDPI;
- property deviceXDPI: Integer read Get_deviceXDPI;
- property deviceYDPI: Integer read Get_deviceYDPI;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLScreen2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F84A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScreen2Disp = dispinterface
- ['{3050F84A-98B5-11CF-BB82-00AA00BDCE0B}']
- property logicalXDPI: Integer readonly dispid 1009;
- property logicalYDPI: Integer readonly dispid 1010;
- property deviceXDPI: Integer readonly dispid 1011;
- property deviceYDPI: Integer readonly dispid 1012;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLWindow4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6CF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLWindow4 = interface(IDispatch)
- ['{3050F6CF-98B5-11CF-BB82-00AA00BDCE0B}']
- function createPopup(var varArgIn: OleVariant): IDispatch; safecall;
- function Get_frameElement: IHTMLFrameBase; safecall;
- property frameElement: IHTMLFrameBase read Get_frameElement;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLWindow4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6CF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLWindow4Disp = dispinterface
- ['{3050F6CF-98B5-11CF-BB82-00AA00BDCE0B}']
- function createPopup(var varArgIn: OleVariant): IDispatch; dispid 1180;
- property frameElement: IHTMLFrameBase readonly dispid 1181;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLScreen
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F591-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLScreen = dispinterface
- ['{3050F591-98B5-11CF-BB82-00AA00BDCE0B}']
- property colorDepth: Integer readonly dispid 1001;
- property bufferDepth: Integer dispid 1002;
- property width: Integer readonly dispid 1003;
- property height: Integer readonly dispid 1004;
- property updateInterval: Integer dispid 1005;
- property availHeight: Integer readonly dispid 1006;
- property availWidth: Integer readonly dispid 1007;
- property fontSmoothingEnabled: WordBool readonly dispid 1008;
- property logicalXDPI: Integer readonly dispid 1009;
- property logicalYDPI: Integer readonly dispid 1010;
- property deviceXDPI: Integer readonly dispid 1011;
- property deviceYDPI: Integer readonly dispid 1012;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLWindow2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F55D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLWindow2 = dispinterface
- ['{3050F55D-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- property length: Integer readonly dispid 1001;
- property frames: IHTMLFramesCollection2 readonly dispid 1100;
- property defaultStatus: WideString dispid 1101;
- property status: WideString dispid 1102;
- procedure clearTimeout(timerID: Integer); dispid 1104;
- procedure alert(const message: WideString); dispid 1105;
- function confirm(const message: WideString): WordBool; dispid 1110;
- function prompt(const message: WideString; const defstr: WideString): OleVariant; dispid 1111;
- property Image: IHTMLImageElementFactory readonly dispid 1125;
- property location: IHTMLLocation readonly dispid 14;
- property history: IOmHistory readonly dispid 2;
- procedure close; dispid 3;
- property opener: OleVariant dispid 4;
- property navigator: IOmNavigator readonly dispid 5;
- property name: WideString dispid 11;
- property parent: IHTMLWindow2 readonly dispid 12;
- function open(const url: WideString; const name: WideString; const features: WideString;
- replace: WordBool): IHTMLWindow2; dispid 13;
- property self: IHTMLWindow2 readonly dispid 20;
- property top: IHTMLWindow2 readonly dispid 21;
- property window: IHTMLWindow2 readonly dispid 22;
- procedure navigate(const url: WideString); dispid 25;
- property onfocus: OleVariant dispid - 2147412098;
- property onblur: OleVariant dispid - 2147412097;
- property onload: OleVariant dispid - 2147412080;
- property onbeforeunload: OleVariant dispid - 2147412073;
- property onunload: OleVariant dispid - 2147412079;
- property onhelp: OleVariant dispid - 2147412099;
- property onerror: OleVariant dispid - 2147412083;
- property onresize: OleVariant dispid - 2147412076;
- property onscroll: OleVariant dispid - 2147412081;
- property document: IHTMLDocument2 readonly dispid 1151;
- property event: IHTMLEventObj readonly dispid 1152;
- property _newEnum: IUnknown readonly dispid 1153;
- function showModalDialog(const dialog: WideString; var varArgIn: OleVariant;
- var varOptions: OleVariant): OleVariant; dispid 1154;
- procedure showHelp(const helpURL: WideString; helpArg: OleVariant; const features: WideString); dispid 1155;
- property screen: IHTMLScreen readonly dispid 1156;
- property Option: IHTMLOptionElementFactory readonly dispid 1157;
- procedure focus; dispid 1158;
- property closed: WordBool readonly dispid 23;
- procedure blur; dispid 1159;
- procedure scroll(x: Integer; y: Integer); dispid 1160;
- property clientInformation: IOmNavigator readonly dispid 1161;
- procedure clearInterval(timerID: Integer); dispid 1163;
- property offscreenBuffering: OleVariant dispid 1164;
- function execScript(const code: WideString; const language: WideString): OleVariant; dispid 1165;
- function toString: WideString; dispid 1166;
- procedure scrollBy(x: Integer; y: Integer); dispid 1167;
- procedure scrollTo(x: Integer; y: Integer); dispid 1168;
- procedure moveTo(x: Integer; y: Integer); dispid 6;
- procedure moveBy(x: Integer; y: Integer); dispid 7;
- procedure resizeTo(x: Integer; y: Integer); dispid 9;
- procedure resizeBy(x: Integer; y: Integer); dispid 8;
- property external: IDispatch readonly dispid 1169;
- property screenLeft: Integer readonly dispid 1170;
- property screenTop: Integer readonly dispid 1171;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- function setTimeout(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; dispid 1103;
- function setInterval(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; dispid 1162;
- procedure print; dispid 1174;
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- property clipboardData: IHTMLDataTransfer readonly dispid 1175;
- function showModelessDialog(const url: WideString; var varArgIn: OleVariant;
- var options: OleVariant): IHTMLWindow2; dispid 1176;
- function createPopup(var varArgIn: OleVariant): IDispatch; dispid 1180;
- property frameElement: IHTMLFrameBase readonly dispid 1181;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLWindowProxy
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F55E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLWindowProxy = dispinterface
- ['{3050F55E-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function item(const pvarIndex: OleVariant): OleVariant; dispid 0;
- property length: Integer readonly dispid 1001;
- property frames: IHTMLFramesCollection2 readonly dispid 1100;
- property defaultStatus: WideString dispid 1101;
- property status: WideString dispid 1102;
- procedure clearTimeout(timerID: Integer); dispid 1104;
- procedure alert(const message: WideString); dispid 1105;
- function confirm(const message: WideString): WordBool; dispid 1110;
- function prompt(const message: WideString; const defstr: WideString): OleVariant; dispid 1111;
- property Image: IHTMLImageElementFactory readonly dispid 1125;
- property location: IHTMLLocation readonly dispid 14;
- property history: IOmHistory readonly dispid 2;
- procedure close; dispid 3;
- property opener: OleVariant dispid 4;
- property navigator: IOmNavigator readonly dispid 5;
- property name: WideString dispid 11;
- property parent: IHTMLWindow2 readonly dispid 12;
- function open(const url: WideString; const name: WideString; const features: WideString;
- replace: WordBool): IHTMLWindow2; dispid 13;
- property self: IHTMLWindow2 readonly dispid 20;
- property top: IHTMLWindow2 readonly dispid 21;
- property window: IHTMLWindow2 readonly dispid 22;
- procedure navigate(const url: WideString); dispid 25;
- property onfocus: OleVariant dispid - 2147412098;
- property onblur: OleVariant dispid - 2147412097;
- property onload: OleVariant dispid - 2147412080;
- property onbeforeunload: OleVariant dispid - 2147412073;
- property onunload: OleVariant dispid - 2147412079;
- property onhelp: OleVariant dispid - 2147412099;
- property onerror: OleVariant dispid - 2147412083;
- property onresize: OleVariant dispid - 2147412076;
- property onscroll: OleVariant dispid - 2147412081;
- property document: IHTMLDocument2 readonly dispid 1151;
- property event: IHTMLEventObj readonly dispid 1152;
- property _newEnum: IUnknown readonly dispid 1153;
- function showModalDialog(const dialog: WideString; var varArgIn: OleVariant;
- var varOptions: OleVariant): OleVariant; dispid 1154;
- procedure showHelp(const helpURL: WideString; helpArg: OleVariant; const features: WideString); dispid 1155;
- property screen: IHTMLScreen readonly dispid 1156;
- property Option: IHTMLOptionElementFactory readonly dispid 1157;
- procedure focus; dispid 1158;
- property closed: WordBool readonly dispid 23;
- procedure blur; dispid 1159;
- procedure scroll(x: Integer; y: Integer); dispid 1160;
- property clientInformation: IOmNavigator readonly dispid 1161;
- procedure clearInterval(timerID: Integer); dispid 1163;
- property offscreenBuffering: OleVariant dispid 1164;
- function execScript(const code: WideString; const language: WideString): OleVariant; dispid 1165;
- function toString: WideString; dispid 1166;
- procedure scrollBy(x: Integer; y: Integer); dispid 1167;
- procedure scrollTo(x: Integer; y: Integer); dispid 1168;
- procedure moveTo(x: Integer; y: Integer); dispid 6;
- procedure moveBy(x: Integer; y: Integer); dispid 7;
- procedure resizeTo(x: Integer; y: Integer); dispid 9;
- procedure resizeBy(x: Integer; y: Integer); dispid 8;
- property external: IDispatch readonly dispid 1169;
- property screenLeft: Integer readonly dispid 1170;
- property screenTop: Integer readonly dispid 1171;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- function setTimeout(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; dispid 1103;
- function setInterval(var expression: OleVariant; msec: Integer; var language: OleVariant): Integer; dispid 1162;
- procedure print; dispid 1174;
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- property clipboardData: IHTMLDataTransfer readonly dispid 1175;
- function showModelessDialog(const url: WideString; var varArgIn: OleVariant;
- var options: OleVariant): IHTMLWindow2; dispid 1176;
- function createPopup(var varArgIn: OleVariant): IDispatch; dispid 1180;
- property frameElement: IHTMLFrameBase readonly dispid 1181;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLDocumentEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F613-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLDocumentEvents2 = dispinterface
- ['{3050F613-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- function onstop(const pEvtObj: IHTMLEventObj): WordBool; dispid 1026;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onbeforeeditfocus(const pEvtObj: IHTMLEventObj); dispid 1027;
- procedure onselectionchange(const pEvtObj: IHTMLEventObj); dispid 1037;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLDocumentEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F260-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLDocumentEvents = dispinterface
- ['{3050F260-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- function onkeypress: WordBool; dispid - 603;
- procedure onmousedown; dispid - 605;
- procedure onmousemove; dispid - 606;
- procedure onmouseup; dispid - 607;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onreadystatechange; dispid - 609;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- function ondragstart: WordBool; dispid - 2147418101;
- function onselectstart: WordBool; dispid - 2147418100;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function oncontextmenu: WordBool; dispid 1023;
- function onstop: WordBool; dispid 1026;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onpropertychange; dispid - 2147418093;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onselectionchange; dispid 1037;
- function oncontrolselect: WordBool; dispid 1036;
- function onmousewheel: WordBool; dispid 1033;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- function onbeforeactivate: WordBool; dispid 1047;
- function onbeforedeactivate: WordBool; dispid 1034;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDocument3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F485-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDocument3 = interface(IDispatch)
- ['{3050F485-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure releaseCapture; safecall;
- procedure recalc(fForce: WordBool); safecall;
- function createTextNode(const text: WideString): IHTMLDOMNode; safecall;
- function Get_documentElement: IHTMLElement; safecall;
- function Get_uniqueID: WideString; safecall;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; safecall;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); safecall;
- procedure Set_onrowsdelete(p: OleVariant); safecall;
- function Get_onrowsdelete: OleVariant; safecall;
- procedure Set_onrowsinserted(p: OleVariant); safecall;
- function Get_onrowsinserted: OleVariant; safecall;
- procedure Set_oncellchange(p: OleVariant); safecall;
- function Get_oncellchange: OleVariant; safecall;
- procedure Set_ondatasetchanged(p: OleVariant); safecall;
- function Get_ondatasetchanged: OleVariant; safecall;
- procedure Set_ondataavailable(p: OleVariant); safecall;
- function Get_ondataavailable: OleVariant; safecall;
- procedure Set_ondatasetcomplete(p: OleVariant); safecall;
- function Get_ondatasetcomplete: OleVariant; safecall;
- procedure Set_onpropertychange(p: OleVariant); safecall;
- function Get_onpropertychange: OleVariant; safecall;
- procedure Set_dir(const p: WideString); safecall;
- function Get_dir: WideString; safecall;
- procedure Set_oncontextmenu(p: OleVariant); safecall;
- function Get_oncontextmenu: OleVariant; safecall;
- procedure Set_onstop(p: OleVariant); safecall;
- function Get_onstop: OleVariant; safecall;
- function createDocumentFragment: IHTMLDocument2; safecall;
- function Get_parentDocument: IHTMLDocument2; safecall;
- procedure Set_enableDownload(p: WordBool); safecall;
- function Get_enableDownload: WordBool; safecall;
- procedure Set_baseUrl(const p: WideString); safecall;
- function Get_baseUrl: WideString; safecall;
- function Get_childNodes: IDispatch; safecall;
- procedure Set_inheritStyleSheets(p: WordBool); safecall;
- function Get_inheritStyleSheets: WordBool; safecall;
- procedure Set_onbeforeeditfocus(p: OleVariant); safecall;
- function Get_onbeforeeditfocus: OleVariant; safecall;
- function getElementsByName(const v: WideString): IHTMLElementCollection; safecall;
- function getElementById(const v: WideString): IHTMLElement; safecall;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; safecall;
- property documentElement: IHTMLElement read Get_documentElement;
- property uniqueID: WideString read Get_uniqueID;
- property onrowsdelete: OleVariant read Get_onrowsdelete write Set_onrowsdelete;
- property onrowsinserted: OleVariant read Get_onrowsinserted write Set_onrowsinserted;
- property oncellchange: OleVariant read Get_oncellchange write Set_oncellchange;
- property ondatasetchanged: OleVariant read Get_ondatasetchanged write Set_ondatasetchanged;
- property ondataavailable: OleVariant read Get_ondataavailable write Set_ondataavailable;
- property ondatasetcomplete: OleVariant read Get_ondatasetcomplete write Set_ondatasetcomplete;
- property onpropertychange: OleVariant read Get_onpropertychange write Set_onpropertychange;
- property dir: WideString read Get_dir write Set_dir;
- property oncontextmenu: OleVariant read Get_oncontextmenu write Set_oncontextmenu;
- property onstop: OleVariant read Get_onstop write Set_onstop;
- property parentDocument: IHTMLDocument2 read Get_parentDocument;
- property enableDownload: WordBool read Get_enableDownload write Set_enableDownload;
- property baseUrl: WideString read Get_baseUrl write Set_baseUrl;
- property childNodes: IDispatch read Get_childNodes;
- property inheritStyleSheets: WordBool read Get_inheritStyleSheets write Set_inheritStyleSheets;
- property onbeforeeditfocus: OleVariant read Get_onbeforeeditfocus write Set_onbeforeeditfocus;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDocument3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F485-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDocument3Disp = dispinterface
- ['{3050F485-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure releaseCapture; dispid 1072;
- procedure recalc(fForce: WordBool); dispid 1073;
- function createTextNode(const text: WideString): IHTMLDOMNode; dispid 1074;
- property documentElement: IHTMLElement readonly dispid 1075;
- property uniqueID: WideString readonly dispid 1077;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onpropertychange: OleVariant dispid - 2147412065;
- property dir: WideString dispid - 2147412995;
- property oncontextmenu: OleVariant dispid - 2147412047;
- property onstop: OleVariant dispid - 2147412044;
- function createDocumentFragment: IHTMLDocument2; dispid 1076;
- property parentDocument: IHTMLDocument2 readonly dispid 1078;
- property enableDownload: WordBool dispid 1079;
- property baseUrl: WideString dispid 1080;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property inheritStyleSheets: WordBool dispid 1082;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- function getElementsByName(const v: WideString): IHTMLElementCollection; dispid 1086;
- function getElementById(const v: WideString): IHTMLElement; dispid 1088;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid 1087;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDocument4
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F69A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDocument4 = interface(IDispatch)
- ['{3050F69A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure focus; safecall;
- function hasFocus: WordBool; safecall;
- procedure Set_onselectionchange(p: OleVariant); safecall;
- function Get_onselectionchange: OleVariant; safecall;
- function Get_namespaces: IDispatch; safecall;
- function createDocumentFromUrl(const bstrUrl: WideString; const bstrOptions: WideString): IHTMLDocument2; safecall;
- procedure Set_media(const p: WideString); safecall;
- function Get_media: WideString; safecall;
- function CreateEventObject(var pvarEventObject: OleVariant): IHTMLEventObj; safecall;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; safecall;
- function createRenderStyle(const v: WideString): IHTMLRenderStyle; safecall;
- procedure Set_oncontrolselect(p: OleVariant); safecall;
- function Get_oncontrolselect: OleVariant; safecall;
- function Get_URLUnencoded: WideString; safecall;
- property onselectionchange: OleVariant read Get_onselectionchange write Set_onselectionchange;
- property namespaces: IDispatch read Get_namespaces;
- property media: WideString read Get_media write Set_media;
- property oncontrolselect: OleVariant read Get_oncontrolselect write Set_oncontrolselect;
- property URLUnencoded: WideString read Get_URLUnencoded;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDocument4Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F69A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDocument4Disp = dispinterface
- ['{3050F69A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure focus; dispid 1089;
- function hasFocus: WordBool; dispid 1090;
- property onselectionchange: OleVariant dispid - 2147412032;
- property namespaces: IDispatch readonly dispid 1091;
- function createDocumentFromUrl(const bstrUrl: WideString; const bstrOptions: WideString): IHTMLDocument2; dispid 1092;
- property media: WideString dispid 1093;
- function CreateEventObject(var pvarEventObject: OleVariant): IHTMLEventObj; dispid 1094;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid 1095;
- function createRenderStyle(const v: WideString): IHTMLRenderStyle; dispid 1096;
- property oncontrolselect: OleVariant dispid - 2147412033;
- property URLUnencoded: WideString readonly dispid 1097;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDocument5
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDocument5 = interface(IDispatch)
- ['{3050F80C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_onmousewheel(p: OleVariant); safecall;
- function Get_onmousewheel: OleVariant; safecall;
- function Get_doctype: IHTMLDOMNode; safecall;
- function Get_implementation_: IHTMLDOMImplementation; safecall;
- function createAttribute(const bstrattrName: WideString): IHTMLDOMAttribute; safecall;
- function createComment(const bstrdata: WideString): IHTMLDOMNode; safecall;
- procedure Set_onfocusin(p: OleVariant); safecall;
- function Get_onfocusin: OleVariant; safecall;
- procedure Set_onfocusout(p: OleVariant); safecall;
- function Get_onfocusout: OleVariant; safecall;
- procedure Set_onactivate(p: OleVariant); safecall;
- function Get_onactivate: OleVariant; safecall;
- procedure Set_ondeactivate(p: OleVariant); safecall;
- function Get_ondeactivate: OleVariant; safecall;
- procedure Set_onbeforeactivate(p: OleVariant); safecall;
- function Get_onbeforeactivate: OleVariant; safecall;
- procedure Set_onbeforedeactivate(p: OleVariant); safecall;
- function Get_onbeforedeactivate: OleVariant; safecall;
- function Get_compatMode: WideString; safecall;
- property onmousewheel: OleVariant read Get_onmousewheel write Set_onmousewheel;
- property doctype: IHTMLDOMNode read Get_doctype;
- property implementation_: IHTMLDOMImplementation read Get_implementation_;
- property onfocusin: OleVariant read Get_onfocusin write Set_onfocusin;
- property onfocusout: OleVariant read Get_onfocusout write Set_onfocusout;
- property onactivate: OleVariant read Get_onactivate write Set_onactivate;
- property ondeactivate: OleVariant read Get_ondeactivate write Set_ondeactivate;
- property onbeforeactivate: OleVariant read Get_onbeforeactivate write Set_onbeforeactivate;
- property onbeforedeactivate: OleVariant read Get_onbeforedeactivate write Set_onbeforedeactivate;
- property compatMode: WideString read Get_compatMode;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDocument5Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F80C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDocument5Disp = dispinterface
- ['{3050F80C-98B5-11CF-BB82-00AA00BDCE0B}']
- property onmousewheel: OleVariant dispid - 2147412036;
- property doctype: IHTMLDOMNode readonly dispid 1098;
- property implementation_: IHTMLDOMImplementation readonly dispid 1099;
- function createAttribute(const bstrattrName: WideString): IHTMLDOMAttribute; dispid 1100;
- function createComment(const bstrdata: WideString): IHTMLDOMNode; dispid 1101;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- property compatMode: WideString readonly dispid 1102;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDocument
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F55F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDocument = dispinterface
- ['{3050F55F-98B5-11CF-BB82-00AA00BDCE0B}']
- property Script: IDispatch readonly dispid 1001;
- property all: IHTMLElementCollection readonly dispid 1003;
- property body: IHTMLElement readonly dispid 1004;
- property activeElement: IHTMLElement readonly dispid 1005;
- property images: IHTMLElementCollection readonly dispid 1011;
- property applets: IHTMLElementCollection readonly dispid 1008;
- property links: IHTMLElementCollection readonly dispid 1009;
- property forms: IHTMLElementCollection readonly dispid 1010;
- property anchors: IHTMLElementCollection readonly dispid 1007;
- property title: WideString dispid 1012;
- property scripts: IHTMLElementCollection readonly dispid 1013;
- property designMode: WideString dispid 1014;
- property selection: IHTMLSelectionObject readonly dispid 1017;
- property readyState: WideString readonly dispid 1018;
- property frames: IHTMLFramesCollection2 readonly dispid 1019;
- property embeds: IHTMLElementCollection readonly dispid 1015;
- property plugins: IHTMLElementCollection readonly dispid 1021;
- property alinkColor: OleVariant dispid 1022;
- property bgColor: OleVariant dispid - 501;
- property fgColor: OleVariant dispid - 2147413110;
- property linkColor: OleVariant dispid 1024;
- property vlinkColor: OleVariant dispid 1023;
- property referrer: WideString readonly dispid 1027;
- property location: IHTMLLocation readonly dispid 1026;
- property lastModified: WideString readonly dispid 1028;
- property url: WideString dispid 1025;
- property domain: WideString dispid 1029;
- property cookie: WideString dispid 1030;
- property expando: WordBool dispid 1031;
- property charset: WideString dispid 1032;
- property defaultCharset: WideString dispid 1033;
- property mimeType: WideString readonly dispid 1041;
- property fileSize: WideString readonly dispid 1042;
- property fileCreatedDate: WideString readonly dispid 1043;
- property fileModifiedDate: WideString readonly dispid 1044;
- property fileUpdatedDate: WideString readonly dispid 1045;
- property security: WideString readonly dispid 1046;
- property protocol: WideString readonly dispid 1047;
- property nameProp: WideString readonly dispid 1048;
- procedure write(psarray: {??PSafeArray} OleVariant); dispid 1054;
- procedure writeln(psarray: {??PSafeArray} OleVariant); dispid 1055;
- function open(const url: WideString; name: OleVariant; features: OleVariant; replace: OleVariant): IDispatch; dispid 1056;
- procedure close; dispid 1057;
- procedure clear; dispid 1058;
- function queryCommandSupported(const cmdID: WideString): WordBool; dispid 1059;
- function queryCommandEnabled(const cmdID: WideString): WordBool; dispid 1060;
- function queryCommandState(const cmdID: WideString): WordBool; dispid 1061;
- function queryCommandIndeterm(const cmdID: WideString): WordBool; dispid 1062;
- function queryCommandText(const cmdID: WideString): WideString; dispid 1063;
- function queryCommandValue(const cmdID: WideString): OleVariant; dispid 1064;
- function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; dispid 1065;
- function execCommandShowHelp(const cmdID: WideString): WordBool; dispid 1066;
- function createElement(const eTag: WideString): IHTMLElement; dispid 1067;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseup: OleVariant dispid - 2147412109;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondragstart: OleVariant dispid - 2147412077;
- property onselectstart: OleVariant dispid - 2147412075;
- function elementFromPoint(x: Integer; y: Integer): IHTMLElement; dispid 1068;
- property parentWindow: IHTMLWindow2 readonly dispid 1034;
- property styleSheets: IHTMLStyleSheetsCollection readonly dispid 1069;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onerrorupdate: OleVariant dispid - 2147412074;
- function toString: WideString; dispid 1070;
- function createStyleSheet(const bstrHref: WideString; lIndex: Integer): IHTMLStyleSheet; dispid 1071;
- procedure releaseCapture; dispid 1072;
- procedure recalc(fForce: WordBool); dispid 1073;
- function createTextNode(const text: WideString): IHTMLDOMNode; dispid 1074;
- property documentElement: IHTMLElement readonly dispid 1075;
- property uniqueID: WideString readonly dispid 1077;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onpropertychange: OleVariant dispid - 2147412065;
- property dir: WideString dispid - 2147412995;
- property oncontextmenu: OleVariant dispid - 2147412047;
- property onstop: OleVariant dispid - 2147412044;
- function createDocumentFragment: IHTMLDocument2; dispid 1076;
- property parentDocument: IHTMLDocument2 readonly dispid 1078;
- property enableDownload: WordBool dispid 1079;
- property baseUrl: WideString dispid 1080;
- property inheritStyleSheets: WordBool dispid 1082;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- function getElementsByName(const v: WideString): IHTMLElementCollection; dispid 1086;
- function getElementById(const v: WideString): IHTMLElement; dispid 1088;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid 1087;
- procedure focus; dispid 1089;
- function hasFocus: WordBool; dispid 1090;
- property onselectionchange: OleVariant dispid - 2147412032;
- property namespaces: IDispatch readonly dispid 1091;
- function createDocumentFromUrl(const bstrUrl: WideString; const bstrOptions: WideString): IHTMLDocument2; dispid 1092;
- property media: WideString dispid 1093;
- function CreateEventObject(var pvarEventObject: OleVariant): IHTMLEventObj; dispid 1094;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid 1095;
- function createRenderStyle(const v: WideString): IHTMLRenderStyle; dispid 1096;
- property oncontrolselect: OleVariant dispid - 2147412033;
- property URLUnencoded: WideString readonly dispid 1097;
- property onmousewheel: OleVariant dispid - 2147412036;
- property doctype: IHTMLDOMNode readonly dispid 1098;
- property implementation_: IHTMLDOMImplementation readonly dispid 1099;
- function createAttribute(const bstrattrName: WideString): IHTMLDOMAttribute; dispid 1100;
- function createComment(const bstrdata: WideString): IHTMLDOMNode; dispid 1101;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- property compatMode: WideString readonly dispid 1102;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- end;
-
-// *********************************************************************//
-// DispIntf: DWebBridgeEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {A6D897FF-0A95-11D1-B0BA-006008166E11}
-// *********************************************************************//
- DWebBridgeEvents = dispinterface
- ['{A6D897FF-0A95-11D1-B0BA-006008166E11}']
- procedure onscriptletevent(const name: WideString; eventData: OleVariant); dispid 1;
- procedure onreadystatechange; dispid - 609;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- function onkeypress: WordBool; dispid - 603;
- procedure onmousedown; dispid - 605;
- procedure onmousemove; dispid - 606;
- procedure onmouseup; dispid - 607;
- end;
-
-// *********************************************************************//
-// Interface: IWebBridge
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {AE24FDAD-03C6-11D1-8B76-0080C744F389}
-// *********************************************************************//
- IWebBridge = interface(IDispatch)
- ['{AE24FDAD-03C6-11D1-8B76-0080C744F389}']
- procedure Set_url(const p: WideString); safecall;
- function Get_url: WideString; safecall;
- procedure Set_Scrollbar(p: WordBool); safecall;
- function Get_Scrollbar: WordBool; safecall;
- procedure Set_embed(p: WordBool); safecall;
- function Get_embed: WordBool; safecall;
- function Get_event: IDispatch; safecall;
- function Get_readyState: Integer; safecall;
- procedure AboutBox; safecall;
- property url: WideString read Get_url write Set_url;
- property Scrollbar: WordBool read Get_Scrollbar write Set_Scrollbar;
- property embed: WordBool read Get_embed write Set_embed;
- property event: IDispatch read Get_event;
- property readyState: Integer read Get_readyState;
- end;
-
-// *********************************************************************//
-// DispIntf: IWebBridgeDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {AE24FDAD-03C6-11D1-8B76-0080C744F389}
-// *********************************************************************//
- IWebBridgeDisp = dispinterface
- ['{AE24FDAD-03C6-11D1-8B76-0080C744F389}']
- property url: WideString dispid 1;
- property Scrollbar: WordBool dispid 2;
- property embed: WordBool dispid 3;
- property event: IDispatch readonly dispid 1152;
- property readyState: Integer readonly dispid - 525;
- procedure AboutBox; dispid - 552;
- end;
-
-// *********************************************************************//
-// Interface: IWBScriptControl
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {A5170870-0CF8-11D1-8B91-0080C744F389}
-// *********************************************************************//
- IWBScriptControl = interface(IDispatch)
- ['{A5170870-0CF8-11D1-8B91-0080C744F389}']
- procedure raiseEvent(const name: WideString; eventData: OleVariant); safecall;
- procedure bubbleEvent; safecall;
- procedure setContextMenu(menuItemPairs: OleVariant); safecall;
- procedure Set_selectableContent(p: WordBool); safecall;
- function Get_selectableContent: WordBool; safecall;
- function Get_frozen: WordBool; safecall;
- procedure Set_Scrollbar(p: WordBool); safecall;
- function Get_Scrollbar: WordBool; safecall;
- function Get_version: WideString; safecall;
- function Get_visibility: WordBool; safecall;
- procedure Set_onvisibilitychange(p: OleVariant); safecall;
- function Get_onvisibilitychange: OleVariant; safecall;
- property selectableContent: WordBool read Get_selectableContent write Set_selectableContent;
- property frozen: WordBool read Get_frozen;
- property Scrollbar: WordBool read Get_Scrollbar write Set_Scrollbar;
- property version: WideString read Get_version;
- property visibility: WordBool read Get_visibility;
- property onvisibilitychange: OleVariant read Get_onvisibilitychange write Set_onvisibilitychange;
- end;
-
-// *********************************************************************//
-// DispIntf: IWBScriptControlDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {A5170870-0CF8-11D1-8B91-0080C744F389}
-// *********************************************************************//
- IWBScriptControlDisp = dispinterface
- ['{A5170870-0CF8-11D1-8B91-0080C744F389}']
- procedure raiseEvent(const name: WideString; eventData: OleVariant); dispid 1;
- procedure bubbleEvent; dispid 2;
- procedure setContextMenu(menuItemPairs: OleVariant); dispid 3;
- property selectableContent: WordBool dispid 4;
- property frozen: WordBool readonly dispid 5;
- property Scrollbar: WordBool dispid 7;
- property version: WideString readonly dispid 8;
- property visibility: WordBool readonly dispid 9;
- property onvisibilitychange: OleVariant dispid 10;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEmbedElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F25F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEmbedElement = interface(IDispatch)
- ['{3050F25F-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_hidden(const p: WideString); safecall;
- function Get_hidden: WideString; safecall;
- function Get_palette: WideString; safecall;
- function Get_pluginspage: WideString; safecall;
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_units(const p: WideString); safecall;
- function Get_units: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- property hidden: WideString read Get_hidden write Set_hidden;
- property palette: WideString read Get_palette;
- property pluginspage: WideString read Get_pluginspage;
- property src: WideString read Get_src write Set_src;
- property units: WideString read Get_units write Set_units;
- property name: WideString read Get_name write Set_name;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLEmbedElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F25F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEmbedElementDisp = dispinterface
- ['{3050F25F-98B5-11CF-BB82-00AA00BDCE0B}']
- property hidden: WideString dispid - 2147415102;
- property palette: WideString readonly dispid - 2147415108;
- property pluginspage: WideString readonly dispid - 2147415107;
- property src: WideString dispid - 2147415106;
- property units: WideString dispid - 2147415104;
- property name: WideString dispid - 2147418112;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLEmbed
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F52E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLEmbed = dispinterface
- ['{3050F52E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property hidden: WideString dispid - 2147415102;
- property palette: WideString readonly dispid - 2147415108;
- property pluginspage: WideString readonly dispid - 2147415107;
- property src: WideString dispid - 2147415106;
- property units: WideString dispid - 2147415104;
- property name: WideString dispid - 2147418112;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLMapEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F61E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLMapEvents2 = dispinterface
- ['{3050F61E-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLMapEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F3BA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLMapEvents = dispinterface
- ['{3050F3BA-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAreasCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F383-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreasCollection = interface(IDispatch)
- ['{3050F383-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_length(p: Integer); safecall;
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(name: OleVariant; index: OleVariant): IDispatch; safecall;
- function tags(tagName: OleVariant): IDispatch; safecall;
- procedure add(const element: IHTMLElement; before: OleVariant); safecall;
- procedure remove(index: Integer); safecall;
- property length: Integer read Get_length write Set_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAreasCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F383-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreasCollectionDisp = dispinterface
- ['{3050F383-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- procedure add(const element: IHTMLElement; before: OleVariant); dispid 1503;
- procedure remove(index: Integer); dispid 1504;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAreasCollection2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5EC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreasCollection2 = interface(IDispatch)
- ['{3050F5EC-98B5-11CF-BB82-00AA00BDCE0B}']
- function urns(urn: OleVariant): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAreasCollection2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5EC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreasCollection2Disp = dispinterface
- ['{3050F5EC-98B5-11CF-BB82-00AA00BDCE0B}']
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAreasCollection3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F837-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreasCollection3 = interface(IDispatch)
- ['{3050F837-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAreasCollection3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F837-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreasCollection3Disp = dispinterface
- ['{3050F837-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLMapElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F266-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMapElement = interface(IDispatch)
- ['{3050F266-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_areas: IHTMLAreasCollection; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- property areas: IHTMLAreasCollection read Get_areas;
- property name: WideString read Get_name write Set_name;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLMapElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F266-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLMapElementDisp = dispinterface
- ['{3050F266-98B5-11CF-BB82-00AA00BDCE0B}']
- property areas: IHTMLAreasCollection readonly dispid 1002;
- property name: WideString dispid - 2147418112;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLAreasCollection
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F56A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLAreasCollection = dispinterface
- ['{3050F56A-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer dispid 1500;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(name: OleVariant; index: OleVariant): IDispatch; dispid 0;
- function tags(tagName: OleVariant): IDispatch; dispid 1502;
- procedure add(const element: IHTMLElement; before: OleVariant); dispid 1503;
- procedure remove(index: Integer); dispid 1504;
- function urns(urn: OleVariant): IDispatch; dispid 1505;
- function namedItem(const name: WideString): IDispatch; dispid 1506;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLMapElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F526-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLMapElement = dispinterface
- ['{3050F526-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property areas: IHTMLAreasCollection readonly dispid 1002;
- property name: WideString dispid - 2147418112;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLAreaEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F611-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLAreaEvents2 = dispinterface
- ['{3050F611-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLAreaEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F366-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLAreaEvents = dispinterface
- ['{3050F366-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAreaElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F265-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreaElement = interface(IDispatch)
- ['{3050F265-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_shape(const p: WideString); safecall;
- function Get_shape: WideString; safecall;
- procedure Set_coords(const p: WideString); safecall;
- function Get_coords: WideString; safecall;
- procedure Set_href(const p: WideString); safecall;
- function Get_href: WideString; safecall;
- procedure Set_target(const p: WideString); safecall;
- function Get_target: WideString; safecall;
- procedure Set_alt(const p: WideString); safecall;
- function Get_alt: WideString; safecall;
- procedure Set_noHref(p: WordBool); safecall;
- function Get_noHref: WordBool; safecall;
- procedure Set_host(const p: WideString); safecall;
- function Get_host: WideString; safecall;
- procedure Set_hostname(const p: WideString); safecall;
- function Get_hostname: WideString; safecall;
- procedure Set_pathname(const p: WideString); safecall;
- function Get_pathname: WideString; safecall;
- procedure Set_port(const p: WideString); safecall;
- function Get_port: WideString; safecall;
- procedure Set_protocol(const p: WideString); safecall;
- function Get_protocol: WideString; safecall;
- procedure Set_search(const p: WideString); safecall;
- function Get_search: WideString; safecall;
- procedure Set_hash(const p: WideString); safecall;
- function Get_hash: WideString; safecall;
- procedure Set_onblur(p: OleVariant); safecall;
- function Get_onblur: OleVariant; safecall;
- procedure Set_onfocus(p: OleVariant); safecall;
- function Get_onfocus: OleVariant; safecall;
- procedure Set_tabIndex(p: Smallint); safecall;
- function Get_tabIndex: Smallint; safecall;
- procedure focus; safecall;
- procedure blur; safecall;
- property shape: WideString read Get_shape write Set_shape;
- property coords: WideString read Get_coords write Set_coords;
- property href: WideString read Get_href write Set_href;
- property target: WideString read Get_target write Set_target;
- property alt: WideString read Get_alt write Set_alt;
- property noHref: WordBool read Get_noHref write Set_noHref;
- property host: WideString read Get_host write Set_host;
- property hostname: WideString read Get_hostname write Set_hostname;
- property pathname: WideString read Get_pathname write Set_pathname;
- property port: WideString read Get_port write Set_port;
- property protocol: WideString read Get_protocol write Set_protocol;
- property search: WideString read Get_search write Set_search;
- property hash: WideString read Get_hash write Set_hash;
- property onblur: OleVariant read Get_onblur write Set_onblur;
- property onfocus: OleVariant read Get_onfocus write Set_onfocus;
- property tabIndex: Smallint read Get_tabIndex write Set_tabIndex;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAreaElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F265-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAreaElementDisp = dispinterface
- ['{3050F265-98B5-11CF-BB82-00AA00BDCE0B}']
- property shape: WideString dispid 1001;
- property coords: WideString dispid 1002;
- property href: WideString dispid 0;
- property target: WideString dispid 1004;
- property alt: WideString dispid 1005;
- property noHref: WordBool dispid 1006;
- property host: WideString dispid 1007;
- property hostname: WideString dispid 1008;
- property pathname: WideString dispid 1009;
- property port: WideString dispid 1010;
- property protocol: WideString dispid 1011;
- property search: WideString dispid 1012;
- property hash: WideString dispid 1013;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- procedure blur; dispid - 2147416110;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLAreaElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F503-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLAreaElement = dispinterface
- ['{3050F503-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property shape: WideString dispid 1001;
- property coords: WideString dispid 1002;
- property href: WideString dispid 0;
- property target: WideString dispid 1004;
- property alt: WideString dispid 1005;
- property noHref: WordBool dispid 1006;
- property host: WideString dispid 1007;
- property hostname: WideString dispid 1008;
- property pathname: WideString dispid 1009;
- property port: WideString dispid 1010;
- property protocol: WideString dispid 1011;
- property search: WideString dispid 1012;
- property hash: WideString dispid 1013;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableCaption
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2EB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCaption = interface(IDispatch)
- ['{3050F2EB-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_vAlign(const p: WideString); safecall;
- function Get_vAlign: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- property vAlign: WideString read Get_vAlign write Set_vAlign;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableCaptionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F2EB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCaptionDisp = dispinterface
- ['{3050F2EB-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTableCaption
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F508-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTableCaption = dispinterface
- ['{3050F508-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLCommentElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F20C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCommentElement = interface(IDispatch)
- ['{3050F20C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_text(const p: WideString); safecall;
- function Get_text: WideString; safecall;
- procedure Set_atomic(p: Integer); safecall;
- function Get_atomic: Integer; safecall;
- property text: WideString read Get_text write Set_text;
- property atomic: Integer read Get_atomic write Set_atomic;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLCommentElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F20C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCommentElementDisp = dispinterface
- ['{3050F20C-98B5-11CF-BB82-00AA00BDCE0B}']
- property text: WideString dispid 1001;
- property atomic: Integer dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLCommentElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F813-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCommentElement2 = interface(IDispatch)
- ['{3050F813-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_data(const p: WideString); safecall;
- function Get_data: WideString; safecall;
- function Get_length: Integer; safecall;
- function substringData(offset: Integer; Count: Integer): WideString; safecall;
- procedure appendData(const bstrstring: WideString); safecall;
- procedure insertData(offset: Integer; const bstrstring: WideString); safecall;
- procedure deleteData(offset: Integer; Count: Integer); safecall;
- procedure replaceData(offset: Integer; Count: Integer; const bstrstring: WideString); safecall;
- property data: WideString read Get_data write Set_data;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLCommentElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F813-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCommentElement2Disp = dispinterface
- ['{3050F813-98B5-11CF-BB82-00AA00BDCE0B}']
- property data: WideString dispid 1003;
- property length: Integer readonly dispid 1004;
- function substringData(offset: Integer; Count: Integer): WideString; dispid 1005;
- procedure appendData(const bstrstring: WideString); dispid 1006;
- procedure insertData(offset: Integer; const bstrstring: WideString); dispid 1007;
- procedure deleteData(offset: Integer; Count: Integer); dispid 1008;
- procedure replaceData(offset: Integer; Count: Integer; const bstrstring: WideString); dispid 1009;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLCommentElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F50A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLCommentElement = dispinterface
- ['{3050F50A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property text: WideString dispid 1001;
- property atomic: Integer dispid 1002;
- property data: WideString dispid 1003;
- property length: Integer readonly dispid 1004;
- function substringData(offset: Integer; Count: Integer): WideString; dispid 1005;
- procedure appendData(const bstrstring: WideString); dispid 1006;
- procedure insertData(offset: Integer; const bstrstring: WideString); dispid 1007;
- procedure deleteData(offset: Integer; Count: Integer); dispid 1008;
- procedure replaceData(offset: Integer; Count: Integer; const bstrstring: WideString); dispid 1009;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPhraseElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F20A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPhraseElement = interface(IDispatch)
- ['{3050F20A-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLPhraseElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F20A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPhraseElementDisp = dispinterface
- ['{3050F20A-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPhraseElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F824-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPhraseElement2 = interface(IDispatch)
- ['{3050F824-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_cite(const p: WideString); safecall;
- function Get_cite: WideString; safecall;
- procedure Set_dateTime(const p: WideString); safecall;
- function Get_dateTime: WideString; safecall;
- property cite: WideString read Get_cite write Set_cite;
- property dateTime: WideString read Get_dateTime write Set_dateTime;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLPhraseElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F824-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPhraseElement2Disp = dispinterface
- ['{3050F824-98B5-11CF-BB82-00AA00BDCE0B}']
- property cite: WideString dispid 1001;
- property dateTime: WideString dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSpanElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3F3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSpanElement = interface(IDispatch)
- ['{3050F3F3-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSpanElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3F3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSpanElementDisp = dispinterface
- ['{3050F3F3-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLPhraseElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F52D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLPhraseElement = dispinterface
- ['{3050F52D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property cite: WideString dispid 1001;
- property dateTime: WideString dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLSpanElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F548-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLSpanElement = dispinterface
- ['{3050F548-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLTableEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F623-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLTableEvents2 = dispinterface
- ['{3050F623-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLTableEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F407-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLTableEvents = dispinterface
- ['{3050F407-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableSection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableSection = interface(IDispatch)
- ['{3050F23B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_vAlign(const p: WideString); safecall;
- function Get_vAlign: WideString; safecall;
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- function Get_rows: IHTMLElementCollection; safecall;
- function insertRow(index: Integer): IDispatch; safecall;
- procedure deleteRow(index: Integer); safecall;
- property align: WideString read Get_align write Set_align;
- property vAlign: WideString read Get_vAlign write Set_vAlign;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property rows: IHTMLElementCollection read Get_rows;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableSectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableSectionDisp = dispinterface
- ['{3050F23B-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property bgColor: OleVariant dispid - 501;
- property rows: IHTMLElementCollection readonly dispid 1000;
- function insertRow(index: Integer): IDispatch; dispid 1001;
- procedure deleteRow(index: Integer); dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTable
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F21E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTable = interface(IDispatch)
- ['{3050F21E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_cols(p: Integer); safecall;
- function Get_cols: Integer; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_frame(const p: WideString); safecall;
- function Get_frame: WideString; safecall;
- procedure Set_rules(const p: WideString); safecall;
- function Get_rules: WideString; safecall;
- procedure Set_cellSpacing(p: OleVariant); safecall;
- function Get_cellSpacing: OleVariant; safecall;
- procedure Set_cellPadding(p: OleVariant); safecall;
- function Get_cellPadding: OleVariant; safecall;
- procedure Set_background(const p: WideString); safecall;
- function Get_background: WideString; safecall;
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- procedure Set_borderColor(p: OleVariant); safecall;
- function Get_borderColor: OleVariant; safecall;
- procedure Set_borderColorLight(p: OleVariant); safecall;
- function Get_borderColorLight: OleVariant; safecall;
- procedure Set_borderColorDark(p: OleVariant); safecall;
- function Get_borderColorDark: OleVariant; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure refresh; safecall;
- function Get_rows: IHTMLElementCollection; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- procedure Set_dataPageSize(p: Integer); safecall;
- function Get_dataPageSize: Integer; safecall;
- procedure nextPage; safecall;
- procedure previousPage; safecall;
- function Get_tHead: IHTMLTableSection; safecall;
- function Get_tFoot: IHTMLTableSection; safecall;
- function Get_tBodies: IHTMLElementCollection; safecall;
- function Get_caption: IHTMLTableCaption; safecall;
- function createTHead: IDispatch; safecall;
- procedure deleteTHead; safecall;
- function createTFoot: IDispatch; safecall;
- procedure deleteTFoot; safecall;
- function createCaption: IHTMLTableCaption; safecall;
- procedure deleteCaption; safecall;
- function insertRow(index: Integer): IDispatch; safecall;
- procedure deleteRow(index: Integer); safecall;
- function Get_readyState: WideString; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- property cols: Integer read Get_cols write Set_cols;
- property border: OleVariant read Get_border write Set_border;
- property frame: WideString read Get_frame write Set_frame;
- property rules: WideString read Get_rules write Set_rules;
- property cellSpacing: OleVariant read Get_cellSpacing write Set_cellSpacing;
- property cellPadding: OleVariant read Get_cellPadding write Set_cellPadding;
- property background: WideString read Get_background write Set_background;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property borderColor: OleVariant read Get_borderColor write Set_borderColor;
- property borderColorLight: OleVariant read Get_borderColorLight write Set_borderColorLight;
- property borderColorDark: OleVariant read Get_borderColorDark write Set_borderColorDark;
- property align: WideString read Get_align write Set_align;
- property rows: IHTMLElementCollection read Get_rows;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- property dataPageSize: Integer read Get_dataPageSize write Set_dataPageSize;
- property tHead: IHTMLTableSection read Get_tHead;
- property tFoot: IHTMLTableSection read Get_tFoot;
- property tBodies: IHTMLElementCollection read Get_tBodies;
- property caption: IHTMLTableCaption read Get_caption;
- property readyState: WideString read Get_readyState;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F21E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableDisp = dispinterface
- ['{3050F21E-98B5-11CF-BB82-00AA00BDCE0B}']
- property cols: Integer dispid 1001;
- property border: OleVariant dispid 1002;
- property frame: WideString dispid 1004;
- property rules: WideString dispid 1003;
- property cellSpacing: OleVariant dispid 1005;
- property cellPadding: OleVariant dispid 1006;
- property background: WideString dispid - 2147413111;
- property bgColor: OleVariant dispid - 501;
- property borderColor: OleVariant dispid - 2147413084;
- property borderColorLight: OleVariant dispid - 2147413083;
- property borderColorDark: OleVariant dispid - 2147413082;
- property align: WideString dispid - 2147418039;
- procedure refresh; dispid 1015;
- property rows: IHTMLElementCollection readonly dispid 1016;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property dataPageSize: Integer dispid 1017;
- procedure nextPage; dispid 1018;
- procedure previousPage; dispid 1019;
- property tHead: IHTMLTableSection readonly dispid 1020;
- property tFoot: IHTMLTableSection readonly dispid 1021;
- property tBodies: IHTMLElementCollection readonly dispid 1024;
- property caption: IHTMLTableCaption readonly dispid 1025;
- function createTHead: IDispatch; dispid 1026;
- procedure deleteTHead; dispid 1027;
- function createTFoot: IDispatch; dispid 1028;
- procedure deleteTFoot; dispid 1029;
- function createCaption: IHTMLTableCaption; dispid 1030;
- procedure deleteCaption; dispid 1031;
- function insertRow(index: Integer): IDispatch; dispid 1032;
- procedure deleteRow(index: Integer); dispid 1033;
- property readyState: WideString readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTable2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4AD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTable2 = interface(IDispatch)
- ['{3050F4AD-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure firstPage; safecall;
- procedure lastPage; safecall;
- function Get_cells: IHTMLElementCollection; safecall;
- function moveRow(indexFrom: Integer; indexTo: Integer): IDispatch; safecall;
- property cells: IHTMLElementCollection read Get_cells;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTable2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4AD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTable2Disp = dispinterface
- ['{3050F4AD-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure firstPage; dispid 1035;
- procedure lastPage; dispid 1036;
- property cells: IHTMLElementCollection readonly dispid 1037;
- function moveRow(indexFrom: Integer; indexTo: Integer): IDispatch; dispid 1038;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTable3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F829-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTable3 = interface(IDispatch)
- ['{3050F829-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_summary(const p: WideString); safecall;
- function Get_summary: WideString; safecall;
- property summary: WideString read Get_summary write Set_summary;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTable3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F829-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTable3Disp = dispinterface
- ['{3050F829-98B5-11CF-BB82-00AA00BDCE0B}']
- property summary: WideString dispid 1039;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableCol
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCol = interface(IDispatch)
- ['{3050F23A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_span(p: Integer); safecall;
- function Get_span: Integer; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_vAlign(const p: WideString); safecall;
- function Get_vAlign: WideString; safecall;
- property span: Integer read Get_span write Set_span;
- property width: OleVariant read Get_width write Set_width;
- property align: WideString read Get_align write Set_align;
- property vAlign: WideString read Get_vAlign write Set_vAlign;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableColDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableColDisp = dispinterface
- ['{3050F23A-98B5-11CF-BB82-00AA00BDCE0B}']
- property span: Integer dispid 1001;
- property width: OleVariant dispid - 2147418107;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableCol2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCol2 = interface(IDispatch)
- ['{3050F82A-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_ch(const p: WideString); safecall;
- function Get_ch: WideString; safecall;
- procedure Set_chOff(const p: WideString); safecall;
- function Get_chOff: WideString; safecall;
- property ch: WideString read Get_ch write Set_ch;
- property chOff: WideString read Get_chOff write Set_chOff;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableCol2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCol2Disp = dispinterface
- ['{3050F82A-98B5-11CF-BB82-00AA00BDCE0B}']
- property ch: WideString dispid 1002;
- property chOff: WideString dispid 1003;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableSection2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableSection2 = interface(IDispatch)
- ['{3050F5C7-98B5-11CF-BB82-00AA00BDCE0B}']
- function moveRow(indexFrom: Integer; indexTo: Integer): IDispatch; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableSection2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableSection2Disp = dispinterface
- ['{3050F5C7-98B5-11CF-BB82-00AA00BDCE0B}']
- function moveRow(indexFrom: Integer; indexTo: Integer): IDispatch; dispid 1003;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableSection3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableSection3 = interface(IDispatch)
- ['{3050F82B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_ch(const p: WideString); safecall;
- function Get_ch: WideString; safecall;
- procedure Set_chOff(const p: WideString); safecall;
- function Get_chOff: WideString; safecall;
- property ch: WideString read Get_ch write Set_ch;
- property chOff: WideString read Get_chOff write Set_chOff;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableSection3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableSection3Disp = dispinterface
- ['{3050F82B-98B5-11CF-BB82-00AA00BDCE0B}']
- property ch: WideString dispid 1004;
- property chOff: WideString dispid 1005;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableRow
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRow = interface(IDispatch)
- ['{3050F23C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_vAlign(const p: WideString); safecall;
- function Get_vAlign: WideString; safecall;
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- procedure Set_borderColor(p: OleVariant); safecall;
- function Get_borderColor: OleVariant; safecall;
- procedure Set_borderColorLight(p: OleVariant); safecall;
- function Get_borderColorLight: OleVariant; safecall;
- procedure Set_borderColorDark(p: OleVariant); safecall;
- function Get_borderColorDark: OleVariant; safecall;
- function Get_rowIndex: Integer; safecall;
- function Get_sectionRowIndex: Integer; safecall;
- function Get_cells: IHTMLElementCollection; safecall;
- function insertCell(index: Integer): IDispatch; safecall;
- procedure deleteCell(index: Integer); safecall;
- property align: WideString read Get_align write Set_align;
- property vAlign: WideString read Get_vAlign write Set_vAlign;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property borderColor: OleVariant read Get_borderColor write Set_borderColor;
- property borderColorLight: OleVariant read Get_borderColorLight write Set_borderColorLight;
- property borderColorDark: OleVariant read Get_borderColorDark write Set_borderColorDark;
- property rowIndex: Integer read Get_rowIndex;
- property sectionRowIndex: Integer read Get_sectionRowIndex;
- property cells: IHTMLElementCollection read Get_cells;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableRowDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRowDisp = dispinterface
- ['{3050F23C-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property bgColor: OleVariant dispid - 501;
- property borderColor: OleVariant dispid - 2147413084;
- property borderColorLight: OleVariant dispid - 2147413083;
- property borderColorDark: OleVariant dispid - 2147413082;
- property rowIndex: Integer readonly dispid 1000;
- property sectionRowIndex: Integer readonly dispid 1001;
- property cells: IHTMLElementCollection readonly dispid 1002;
- function insertCell(index: Integer): IDispatch; dispid 1003;
- procedure deleteCell(index: Integer); dispid 1004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableRow2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRow2 = interface(IDispatch)
- ['{3050F4A1-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- property height: OleVariant read Get_height write Set_height;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableRow2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4A1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRow2Disp = dispinterface
- ['{3050F4A1-98B5-11CF-BB82-00AA00BDCE0B}']
- property height: OleVariant dispid - 2147418106;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableRow3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRow3 = interface(IDispatch)
- ['{3050F82C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_ch(const p: WideString); safecall;
- function Get_ch: WideString; safecall;
- procedure Set_chOff(const p: WideString); safecall;
- function Get_chOff: WideString; safecall;
- property ch: WideString read Get_ch write Set_ch;
- property chOff: WideString read Get_chOff write Set_chOff;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableRow3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRow3Disp = dispinterface
- ['{3050F82C-98B5-11CF-BB82-00AA00BDCE0B}']
- property ch: WideString dispid 1009;
- property chOff: WideString dispid 1010;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableRowMetrics
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F413-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRowMetrics = interface(IDispatch)
- ['{3050F413-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_clientHeight: Integer; safecall;
- function Get_clientWidth: Integer; safecall;
- function Get_clientTop: Integer; safecall;
- function Get_clientLeft: Integer; safecall;
- property clientHeight: Integer read Get_clientHeight;
- property clientWidth: Integer read Get_clientWidth;
- property clientTop: Integer read Get_clientTop;
- property clientLeft: Integer read Get_clientLeft;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableRowMetricsDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F413-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableRowMetricsDisp = dispinterface
- ['{3050F413-98B5-11CF-BB82-00AA00BDCE0B}']
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableCell
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCell = interface(IDispatch)
- ['{3050F23D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_rowSpan(p: Integer); safecall;
- function Get_rowSpan: Integer; safecall;
- procedure Set_colSpan(p: Integer); safecall;
- function Get_colSpan: Integer; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_vAlign(const p: WideString); safecall;
- function Get_vAlign: WideString; safecall;
- procedure Set_bgColor(p: OleVariant); safecall;
- function Get_bgColor: OleVariant; safecall;
- procedure Set_noWrap(p: WordBool); safecall;
- function Get_noWrap: WordBool; safecall;
- procedure Set_background(const p: WideString); safecall;
- function Get_background: WideString; safecall;
- procedure Set_borderColor(p: OleVariant); safecall;
- function Get_borderColor: OleVariant; safecall;
- procedure Set_borderColorLight(p: OleVariant); safecall;
- function Get_borderColorLight: OleVariant; safecall;
- procedure Set_borderColorDark(p: OleVariant); safecall;
- function Get_borderColorDark: OleVariant; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- function Get_cellIndex: Integer; safecall;
- property rowSpan: Integer read Get_rowSpan write Set_rowSpan;
- property colSpan: Integer read Get_colSpan write Set_colSpan;
- property align: WideString read Get_align write Set_align;
- property vAlign: WideString read Get_vAlign write Set_vAlign;
- property bgColor: OleVariant read Get_bgColor write Set_bgColor;
- property noWrap: WordBool read Get_noWrap write Set_noWrap;
- property background: WideString read Get_background write Set_background;
- property borderColor: OleVariant read Get_borderColor write Set_borderColor;
- property borderColorLight: OleVariant read Get_borderColorLight write Set_borderColorLight;
- property borderColorDark: OleVariant read Get_borderColorDark write Set_borderColorDark;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- property cellIndex: Integer read Get_cellIndex;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableCellDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F23D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCellDisp = dispinterface
- ['{3050F23D-98B5-11CF-BB82-00AA00BDCE0B}']
- property rowSpan: Integer dispid 2001;
- property colSpan: Integer dispid 2002;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property bgColor: OleVariant dispid - 501;
- property noWrap: WordBool dispid - 2147413107;
- property background: WideString dispid - 2147413111;
- property borderColor: OleVariant dispid - 2147413084;
- property borderColorLight: OleVariant dispid - 2147413083;
- property borderColorDark: OleVariant dispid - 2147413082;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property cellIndex: Integer readonly dispid 2003;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLTableCell2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCell2 = interface(IDispatch)
- ['{3050F82D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_abbr(const p: WideString); safecall;
- function Get_abbr: WideString; safecall;
- procedure Set_axis(const p: WideString); safecall;
- function Get_axis: WideString; safecall;
- procedure Set_ch(const p: WideString); safecall;
- function Get_ch: WideString; safecall;
- procedure Set_chOff(const p: WideString); safecall;
- function Get_chOff: WideString; safecall;
- procedure Set_headers(const p: WideString); safecall;
- function Get_headers: WideString; safecall;
- procedure Set_scope(const p: WideString); safecall;
- function Get_scope: WideString; safecall;
- property abbr: WideString read Get_abbr write Set_abbr;
- property axis: WideString read Get_axis write Set_axis;
- property ch: WideString read Get_ch write Set_ch;
- property chOff: WideString read Get_chOff write Set_chOff;
- property headers: WideString read Get_headers write Set_headers;
- property scope: WideString read Get_scope write Set_scope;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLTableCell2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLTableCell2Disp = dispinterface
- ['{3050F82D-98B5-11CF-BB82-00AA00BDCE0B}']
- property abbr: WideString dispid 2004;
- property axis: WideString dispid 2005;
- property ch: WideString dispid 2006;
- property chOff: WideString dispid 2007;
- property headers: WideString dispid 2008;
- property scope: WideString dispid 2009;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTable
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F532-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTable = dispinterface
- ['{3050F532-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property cols: Integer dispid 1001;
- property border: OleVariant dispid 1002;
- property frame: WideString dispid 1004;
- property rules: WideString dispid 1003;
- property cellSpacing: OleVariant dispid 1005;
- property cellPadding: OleVariant dispid 1006;
- property background: WideString dispid - 2147413111;
- property bgColor: OleVariant dispid - 501;
- property borderColor: OleVariant dispid - 2147413084;
- property borderColorLight: OleVariant dispid - 2147413083;
- property borderColorDark: OleVariant dispid - 2147413082;
- property align: WideString dispid - 2147418039;
- procedure refresh; dispid 1015;
- property rows: IHTMLElementCollection readonly dispid 1016;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property dataPageSize: Integer dispid 1017;
- procedure nextPage; dispid 1018;
- procedure previousPage; dispid 1019;
- property tHead: IHTMLTableSection readonly dispid 1020;
- property tFoot: IHTMLTableSection readonly dispid 1021;
- property tBodies: IHTMLElementCollection readonly dispid 1024;
- property caption: IHTMLTableCaption readonly dispid 1025;
- function createTHead: IDispatch; dispid 1026;
- procedure deleteTHead; dispid 1027;
- function createTFoot: IDispatch; dispid 1028;
- procedure deleteTFoot; dispid 1029;
- function createCaption: IHTMLTableCaption; dispid 1030;
- procedure deleteCaption; dispid 1031;
- function insertRow(index: Integer): IDispatch; dispid 1032;
- procedure deleteRow(index: Integer); dispid 1033;
- procedure firstPage; dispid 1035;
- procedure lastPage; dispid 1036;
- property cells: IHTMLElementCollection readonly dispid 1037;
- function moveRow(indexFrom: Integer; indexTo: Integer): IDispatch; dispid 1038;
- property summary: WideString dispid 1039;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTableCol
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F533-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTableCol = dispinterface
- ['{3050F533-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property span: Integer dispid 1001;
- property width: OleVariant dispid - 2147418107;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property ch: WideString dispid 1002;
- property chOff: WideString dispid 1003;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTableSection
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F534-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTableSection = dispinterface
- ['{3050F534-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property bgColor: OleVariant dispid - 501;
- property rows: IHTMLElementCollection readonly dispid 1000;
- function insertRow(index: Integer): IDispatch; dispid 1001;
- procedure deleteRow(index: Integer); dispid 1002;
- function moveRow(indexFrom: Integer; indexTo: Integer): IDispatch; dispid 1003;
- property ch: WideString dispid 1004;
- property chOff: WideString dispid 1005;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTableRow
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F535-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTableRow = dispinterface
- ['{3050F535-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property bgColor: OleVariant dispid - 501;
- property borderColor: OleVariant dispid - 2147413084;
- property borderColorLight: OleVariant dispid - 2147413083;
- property borderColorDark: OleVariant dispid - 2147413082;
- property rowIndex: Integer readonly dispid 1000;
- property sectionRowIndex: Integer readonly dispid 1001;
- property cells: IHTMLElementCollection readonly dispid 1002;
- function insertCell(index: Integer): IDispatch; dispid 1003;
- procedure deleteCell(index: Integer); dispid 1004;
- property height: OleVariant dispid - 2147418106;
- property ch: WideString dispid 1009;
- property chOff: WideString dispid 1010;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLTableCell
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F536-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLTableCell = dispinterface
- ['{3050F536-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property rowSpan: Integer dispid 2001;
- property colSpan: Integer dispid 2002;
- property align: WideString dispid - 2147418040;
- property vAlign: WideString dispid - 2147413081;
- property bgColor: OleVariant dispid - 501;
- property noWrap: WordBool dispid - 2147413107;
- property background: WideString dispid - 2147413111;
- property borderColor: OleVariant dispid - 2147413084;
- property borderColorLight: OleVariant dispid - 2147413083;
- property borderColorDark: OleVariant dispid - 2147413082;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property cellIndex: Integer readonly dispid 2003;
- property abbr: WideString dispid 2004;
- property axis: WideString dispid 2005;
- property ch: WideString dispid 2006;
- property chOff: WideString dispid 2007;
- property headers: WideString dispid 2008;
- property scope: WideString dispid 2009;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLScriptEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F621-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLScriptEvents2 = dispinterface
- ['{3050F621-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLScriptEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F3E2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLScriptEvents = dispinterface
- ['{3050F3E2-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onerror; dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLScriptElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F28B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScriptElement = interface(IDispatch)
- ['{3050F28B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_htmlFor(const p: WideString); safecall;
- function Get_htmlFor: WideString; safecall;
- procedure Set_event(const p: WideString); safecall;
- function Get_event: WideString; safecall;
- procedure Set_text(const p: WideString); safecall;
- function Get_text: WideString; safecall;
- procedure Set_defer(p: WordBool); safecall;
- function Get_defer: WordBool; safecall;
- function Get_readyState: WideString; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- property src: WideString read Get_src write Set_src;
- property htmlFor: WideString read Get_htmlFor write Set_htmlFor;
- property event: WideString read Get_event write Set_event;
- property text: WideString read Get_text write Set_text;
- property defer: WordBool read Get_defer write Set_defer;
- property readyState: WideString read Get_readyState;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property type_: WideString read Get_type_ write Set_type_;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLScriptElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F28B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScriptElementDisp = dispinterface
- ['{3050F28B-98B5-11CF-BB82-00AA00BDCE0B}']
- property src: WideString dispid 1001;
- property htmlFor: WideString dispid 1004;
- property event: WideString dispid 1005;
- property text: WideString dispid 1006;
- property defer: WordBool dispid 1007;
- property readyState: WideString readonly dispid - 2147412996;
- property onerror: OleVariant dispid - 2147412083;
- property type_: WideString dispid 1009;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLScriptElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F828-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScriptElement2 = interface(IDispatch)
- ['{3050F828-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_charset(const p: WideString); safecall;
- function Get_charset: WideString; safecall;
- property charset: WideString read Get_charset write Set_charset;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLScriptElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F828-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLScriptElement2Disp = dispinterface
- ['{3050F828-98B5-11CF-BB82-00AA00BDCE0B}']
- property charset: WideString dispid 1010;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLScriptElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F530-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLScriptElement = dispinterface
- ['{3050F530-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property src: WideString dispid 1001;
- property htmlFor: WideString dispid 1004;
- property event: WideString dispid 1005;
- property text: WideString dispid 1006;
- property defer: WordBool dispid 1007;
- property onerror: OleVariant dispid - 2147412083;
- property type_: WideString dispid 1009;
- property charset: WideString dispid 1010;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLNoShowElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F38A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNoShowElement = interface(IDispatch)
- ['{3050F38A-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLNoShowElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F38A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNoShowElementDisp = dispinterface
- ['{3050F38A-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLNoShowElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F528-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLNoShowElement = dispinterface
- ['{3050F528-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLObjectElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F620-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLObjectElementEvents2 = dispinterface
- ['{3050F620-98B5-11CF-BB82-00AA00BDCE0B}']
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- function onerror(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418093;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 2147418092;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLObjectElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F3C4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLObjectElementEvents = dispinterface
- ['{3050F3C4-98B5-11CF-BB82-00AA00BDCE0B}']
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- function onerror: WordBool; dispid - 2147418093;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 2147418092;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLObjectElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F24F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLObjectElement = interface(IDispatch)
- ['{3050F24F-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_object_: IDispatch; safecall;
- function Get_classid: WideString; safecall;
- function Get_data: WideString; safecall;
- procedure _Set_recordset(const p: IDispatch); safecall;
- function Get_recordset: IDispatch; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_codeBase(const p: WideString); safecall;
- function Get_codeBase: WideString; safecall;
- procedure Set_codeType(const p: WideString); safecall;
- function Get_codeType: WideString; safecall;
- procedure Set_code(const p: WideString); safecall;
- function Get_code: WideString; safecall;
- function Get_BaseHref: WideString; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- function Get_form: IHTMLFormElement; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- function Get_readyState: Integer; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- procedure Set_altHtml(const p: WideString); safecall;
- function Get_altHtml: WideString; safecall;
- procedure Set_vspace(p: Integer); safecall;
- function Get_vspace: Integer; safecall;
- procedure Set_hspace(p: Integer); safecall;
- function Get_hspace: Integer; safecall;
- property object_: IDispatch read Get_object_;
- property classid: WideString read Get_classid;
- property data: WideString read Get_data;
- property recordset: IDispatch read Get_recordset write _Set_recordset;
- property align: WideString read Get_align write Set_align;
- property name: WideString read Get_name write Set_name;
- property codeBase: WideString read Get_codeBase write Set_codeBase;
- property codeType: WideString read Get_codeType write Set_codeType;
- property code: WideString read Get_code write Set_code;
- property BaseHref: WideString read Get_BaseHref;
- property type_: WideString read Get_type_ write Set_type_;
- property form: IHTMLFormElement read Get_form;
- property width: OleVariant read Get_width write Set_width;
- property height: OleVariant read Get_height write Set_height;
- property readyState: Integer read Get_readyState;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property altHtml: WideString read Get_altHtml write Set_altHtml;
- property vspace: Integer read Get_vspace write Set_vspace;
- property hspace: Integer read Get_hspace write Set_hspace;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLObjectElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F24F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLObjectElementDisp = dispinterface
- ['{3050F24F-98B5-11CF-BB82-00AA00BDCE0B}']
- property object_: IDispatch readonly dispid - 2147415111;
- property classid: WideString readonly dispid - 2147415110;
- property data: WideString readonly dispid - 2147415109;
- property recordset: IDispatch dispid - 2147415107;
- property align: WideString dispid - 2147418039;
- property name: WideString dispid - 2147418112;
- property codeBase: WideString dispid - 2147415106;
- property codeType: WideString dispid - 2147415105;
- property code: WideString dispid - 2147415104;
- property BaseHref: WideString readonly dispid - 2147418110;
- property type_: WideString dispid - 2147415103;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property readyState: Integer readonly dispid - 2147415102;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onerror: OleVariant dispid - 2147412083;
- property altHtml: WideString dispid - 2147415101;
- property vspace: Integer dispid - 2147415100;
- property hspace: Integer dispid - 2147415099;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLObjectElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4CD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLObjectElement2 = interface(IDispatch)
- ['{3050F4CD-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedRecordset(const dataMember: WideString; var hierarchy: OleVariant): IDispatch; safecall;
- procedure Set_classid(const p: WideString); safecall;
- function Get_classid: WideString; safecall;
- procedure Set_data(const p: WideString); safecall;
- function Get_data: WideString; safecall;
- property classid: WideString read Get_classid write Set_classid;
- property data: WideString read Get_data write Set_data;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLObjectElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4CD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLObjectElement2Disp = dispinterface
- ['{3050F4CD-98B5-11CF-BB82-00AA00BDCE0B}']
- function namedRecordset(const dataMember: WideString; var hierarchy: OleVariant): IDispatch; dispid - 2147415098;
- property classid: WideString dispid - 2147415110;
- property data: WideString dispid - 2147415109;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLObjectElement3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F827-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLObjectElement3 = interface(IDispatch)
- ['{3050F827-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_archive(const p: WideString); safecall;
- function Get_archive: WideString; safecall;
- procedure Set_alt(const p: WideString); safecall;
- function Get_alt: WideString; safecall;
- procedure Set_declare(p: WordBool); safecall;
- function Get_declare: WordBool; safecall;
- procedure Set_standby(const p: WideString); safecall;
- function Get_standby: WideString; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_useMap(const p: WideString); safecall;
- function Get_useMap: WideString; safecall;
- property archive: WideString read Get_archive write Set_archive;
- property alt: WideString read Get_alt write Set_alt;
- property declare: WordBool read Get_declare write Set_declare;
- property standby: WideString read Get_standby write Set_standby;
- property border: OleVariant read Get_border write Set_border;
- property useMap: WideString read Get_useMap write Set_useMap;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLObjectElement3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F827-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLObjectElement3Disp = dispinterface
- ['{3050F827-98B5-11CF-BB82-00AA00BDCE0B}']
- property archive: WideString dispid - 2147415097;
- property alt: WideString dispid - 2147415096;
- property declare: WordBool dispid - 2147415095;
- property standby: WideString dispid - 2147415094;
- property border: OleVariant dispid - 2147415093;
- property useMap: WideString dispid - 2147415092;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLParamElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F83D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLParamElement = interface(IDispatch)
- ['{3050F83D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_value(const p: WideString); safecall;
- function Get_value: WideString; safecall;
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- procedure Set_valueType(const p: WideString); safecall;
- function Get_valueType: WideString; safecall;
- property name: WideString read Get_name write Set_name;
- property value: WideString read Get_value write Set_value;
- property type_: WideString read Get_type_ write Set_type_;
- property valueType: WideString read Get_valueType write Set_valueType;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLParamElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F83D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLParamElementDisp = dispinterface
- ['{3050F83D-98B5-11CF-BB82-00AA00BDCE0B}']
- property name: WideString dispid 1001;
- property value: WideString dispid 1002;
- property type_: WideString dispid 1003;
- property valueType: WideString dispid 1004;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLObjectElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F529-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLObjectElement = dispinterface
- ['{3050F529-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property object_: IDispatch readonly dispid - 2147415111;
- property recordset: IDispatch dispid - 2147415107;
- property align: WideString dispid - 2147418039;
- property name: WideString dispid - 2147418112;
- property codeBase: WideString dispid - 2147415106;
- property codeType: WideString dispid - 2147415105;
- property code: WideString dispid - 2147415104;
- property BaseHref: WideString readonly dispid - 2147418110;
- property type_: WideString dispid - 2147415103;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property width: OleVariant dispid - 2147418107;
- property height: OleVariant dispid - 2147418106;
- property onerror: OleVariant dispid - 2147412083;
- property altHtml: WideString dispid - 2147415101;
- property vspace: Integer dispid - 2147415100;
- property hspace: Integer dispid - 2147415099;
- function namedRecordset(const dataMember: WideString; var hierarchy: OleVariant): IDispatch; dispid - 2147415098;
- property classid: WideString dispid - 2147415110;
- property data: WideString dispid - 2147415109;
- property archive: WideString dispid - 2147415097;
- property alt: WideString dispid - 2147415096;
- property declare: WordBool dispid - 2147415095;
- property standby: WideString dispid - 2147415094;
- property border: OleVariant dispid - 2147415093;
- property useMap: WideString dispid - 2147415092;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLParamElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F590-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLParamElement = dispinterface
- ['{3050F590-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property name: WideString dispid 1001;
- property value: WideString dispid 1002;
- property type_: WideString dispid 1003;
- property valueType: WideString dispid 1004;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLFrameSiteEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F7FF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLFrameSiteEvents2 = dispinterface
- ['{3050F7FF-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLFrameSiteEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F800-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLFrameSiteEvents = dispinterface
- ['{3050F800-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onload; dispid 1003;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameBase2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6DB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameBase2 = interface(IDispatch)
- ['{3050F6DB-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_contentWindow: IHTMLWindow2; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- function Get_readyState: WideString; safecall;
- procedure Set_allowTransparency(p: WordBool); safecall;
- function Get_allowTransparency: WordBool; safecall;
- property contentWindow: IHTMLWindow2 read Get_contentWindow;
- property onload: OleVariant read Get_onload write Set_onload;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- property readyState: WideString read Get_readyState;
- property allowTransparency: WordBool read Get_allowTransparency write Set_allowTransparency;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameBase2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6DB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameBase2Disp = dispinterface
- ['{3050F6DB-98B5-11CF-BB82-00AA00BDCE0B}']
- property contentWindow: IHTMLWindow2 readonly dispid - 2147415103;
- property onload: OleVariant dispid - 2147412080;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property readyState: WideString readonly dispid - 2147412996;
- property allowTransparency: WordBool dispid - 2147412906;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameBase3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameBase3 = interface(IDispatch)
- ['{3050F82E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_longDesc(const p: WideString); safecall;
- function Get_longDesc: WideString; safecall;
- property longDesc: WideString read Get_longDesc write Set_longDesc;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameBase3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F82E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameBase3Disp = dispinterface
- ['{3050F82E-98B5-11CF-BB82-00AA00BDCE0B}']
- property longDesc: WideString dispid - 2147415102;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLFrameBase
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F541-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLFrameBase = dispinterface
- ['{3050F541-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property src: WideString dispid - 2147415112;
- property name: WideString dispid - 2147418112;
- property border: OleVariant dispid - 2147415110;
- property frameBorder: WideString dispid - 2147415109;
- property frameSpacing: OleVariant dispid - 2147415108;
- property marginWidth: OleVariant dispid - 2147415107;
- property marginHeight: OleVariant dispid - 2147415106;
- property noResize: WordBool dispid - 2147415105;
- property scrolling: WideString dispid - 2147415104;
- property contentWindow: IHTMLWindow2 readonly dispid - 2147415103;
- property onload: OleVariant dispid - 2147412080;
- property allowTransparency: WordBool dispid - 2147412906;
- property longDesc: WideString dispid - 2147415102;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F313-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameElement = interface(IDispatch)
- ['{3050F313-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_borderColor(p: OleVariant); safecall;
- function Get_borderColor: OleVariant; safecall;
- property borderColor: OleVariant read Get_borderColor write Set_borderColor;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F313-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameElementDisp = dispinterface
- ['{3050F313-98B5-11CF-BB82-00AA00BDCE0B}']
- property borderColor: OleVariant dispid - 2147414111;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7F5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameElement2 = interface(IDispatch)
- ['{3050F7F5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- property height: OleVariant read Get_height write Set_height;
- property width: OleVariant read Get_width write Set_width;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F7F5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameElement2Disp = dispinterface
- ['{3050F7F5-98B5-11CF-BB82-00AA00BDCE0B}']
- property height: OleVariant dispid - 2147418106;
- property width: OleVariant dispid - 2147418107;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLFrameElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F513-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLFrameElement = dispinterface
- ['{3050F513-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property src: WideString dispid - 2147415112;
- property name: WideString dispid - 2147418112;
- property border: OleVariant dispid - 2147415110;
- property frameBorder: WideString dispid - 2147415109;
- property frameSpacing: OleVariant dispid - 2147415108;
- property marginWidth: OleVariant dispid - 2147415107;
- property marginHeight: OleVariant dispid - 2147415106;
- property noResize: WordBool dispid - 2147415105;
- property scrolling: WideString dispid - 2147415104;
- property contentWindow: IHTMLWindow2 readonly dispid - 2147415103;
- property onload: OleVariant dispid - 2147412080;
- property allowTransparency: WordBool dispid - 2147412906;
- property longDesc: WideString dispid - 2147415102;
- property borderColor: OleVariant dispid - 2147414111;
- property height: OleVariant dispid - 2147418106;
- property width: OleVariant dispid - 2147418107;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLIFrameElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F315-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIFrameElement = interface(IDispatch)
- ['{3050F315-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_vspace(p: Integer); safecall;
- function Get_vspace: Integer; safecall;
- procedure Set_hspace(p: Integer); safecall;
- function Get_hspace: Integer; safecall;
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property vspace: Integer read Get_vspace write Set_vspace;
- property hspace: Integer read Get_hspace write Set_hspace;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLIFrameElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F315-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIFrameElementDisp = dispinterface
- ['{3050F315-98B5-11CF-BB82-00AA00BDCE0B}']
- property vspace: Integer dispid - 2147414111;
- property hspace: Integer dispid - 2147414110;
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLIFrameElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4E6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIFrameElement2 = interface(IDispatch)
- ['{3050F4E6-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_height(p: OleVariant); safecall;
- function Get_height: OleVariant; safecall;
- procedure Set_width(p: OleVariant); safecall;
- function Get_width: OleVariant; safecall;
- property height: OleVariant read Get_height write Set_height;
- property width: OleVariant read Get_width write Set_width;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLIFrameElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F4E6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIFrameElement2Disp = dispinterface
- ['{3050F4E6-98B5-11CF-BB82-00AA00BDCE0B}']
- property height: OleVariant dispid - 2147418106;
- property width: OleVariant dispid - 2147418107;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLIFrame
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F51B-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLIFrame = dispinterface
- ['{3050F51B-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property src: WideString dispid - 2147415112;
- property name: WideString dispid - 2147418112;
- property border: OleVariant dispid - 2147415110;
- property frameBorder: WideString dispid - 2147415109;
- property frameSpacing: OleVariant dispid - 2147415108;
- property marginWidth: OleVariant dispid - 2147415107;
- property marginHeight: OleVariant dispid - 2147415106;
- property noResize: WordBool dispid - 2147415105;
- property scrolling: WideString dispid - 2147415104;
- property contentWindow: IHTMLWindow2 readonly dispid - 2147415103;
- property onload: OleVariant dispid - 2147412080;
- property allowTransparency: WordBool dispid - 2147412906;
- property longDesc: WideString dispid - 2147415102;
- property vspace: Integer dispid - 2147414111;
- property hspace: Integer dispid - 2147414110;
- property align: WideString dispid - 2147418039;
- property height: OleVariant dispid - 2147418106;
- property width: OleVariant dispid - 2147418107;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDivPosition
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F212-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDivPosition = interface(IDispatch)
- ['{3050F212-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDivPositionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F212-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDivPositionDisp = dispinterface
- ['{3050F212-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFieldSetElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3E7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFieldSetElement = interface(IDispatch)
- ['{3050F3E7-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFieldSetElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3E7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFieldSetElementDisp = dispinterface
- ['{3050F3E7-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFieldSetElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F833-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFieldSetElement2 = interface(IDispatch)
- ['{3050F833-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_form: IHTMLFormElement; safecall;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFieldSetElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F833-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFieldSetElement2Disp = dispinterface
- ['{3050F833-98B5-11CF-BB82-00AA00BDCE0B}']
- property form: IHTMLFormElement readonly dispid - 2147416108;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLegendElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3EA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLegendElement = interface(IDispatch)
- ['{3050F3EA-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLegendElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3EA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLegendElementDisp = dispinterface
- ['{3050F3EA-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLLegendElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F834-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLegendElement2 = interface(IDispatch)
- ['{3050F834-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_form: IHTMLFormElement; safecall;
- property form: IHTMLFormElement read Get_form;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLLegendElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F834-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLLegendElement2Disp = dispinterface
- ['{3050F834-98B5-11CF-BB82-00AA00BDCE0B}']
- property form: IHTMLFormElement readonly dispid - 2147416108;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLDivPosition
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F50F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLDivPosition = dispinterface
- ['{3050F50F-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLFieldSetElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F545-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLFieldSetElement = dispinterface
- ['{3050F545-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property align: WideString dispid - 2147418039;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLLegendElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F546-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLLegendElement = dispinterface
- ['{3050F546-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property align: WideString dispid - 2147418039;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLSpanFlow
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3E5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSpanFlow = interface(IDispatch)
- ['{3050F3E5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_align(const p: WideString); safecall;
- function Get_align: WideString; safecall;
- property align: WideString read Get_align write Set_align;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLSpanFlowDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3E5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLSpanFlowDisp = dispinterface
- ['{3050F3E5-98B5-11CF-BB82-00AA00BDCE0B}']
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLSpanFlow
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F544-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLSpanFlow = dispinterface
- ['{3050F544-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- property align: WideString dispid - 2147418039;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameSetElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F319-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameSetElement = interface(IDispatch)
- ['{3050F319-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_rows(const p: WideString); safecall;
- function Get_rows: WideString; safecall;
- procedure Set_cols(const p: WideString); safecall;
- function Get_cols: WideString; safecall;
- procedure Set_border(p: OleVariant); safecall;
- function Get_border: OleVariant; safecall;
- procedure Set_borderColor(p: OleVariant); safecall;
- function Get_borderColor: OleVariant; safecall;
- procedure Set_frameBorder(const p: WideString); safecall;
- function Get_frameBorder: WideString; safecall;
- procedure Set_frameSpacing(p: OleVariant); safecall;
- function Get_frameSpacing: OleVariant; safecall;
- procedure Set_name(const p: WideString); safecall;
- function Get_name: WideString; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onunload(p: OleVariant); safecall;
- function Get_onunload: OleVariant; safecall;
- procedure Set_onbeforeunload(p: OleVariant); safecall;
- function Get_onbeforeunload: OleVariant; safecall;
- property rows: WideString read Get_rows write Set_rows;
- property cols: WideString read Get_cols write Set_cols;
- property border: OleVariant read Get_border write Set_border;
- property borderColor: OleVariant read Get_borderColor write Set_borderColor;
- property frameBorder: WideString read Get_frameBorder write Set_frameBorder;
- property frameSpacing: OleVariant read Get_frameSpacing write Set_frameSpacing;
- property name: WideString read Get_name write Set_name;
- property onload: OleVariant read Get_onload write Set_onload;
- property onunload: OleVariant read Get_onunload write Set_onunload;
- property onbeforeunload: OleVariant read Get_onbeforeunload write Set_onbeforeunload;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameSetElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F319-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameSetElementDisp = dispinterface
- ['{3050F319-98B5-11CF-BB82-00AA00BDCE0B}']
- property rows: WideString dispid 1000;
- property cols: WideString dispid 1001;
- property border: OleVariant dispid 1002;
- property borderColor: OleVariant dispid 1003;
- property frameBorder: WideString dispid 1004;
- property frameSpacing: OleVariant dispid 1005;
- property name: WideString dispid - 2147418112;
- property onload: OleVariant dispid - 2147412080;
- property onunload: OleVariant dispid - 2147412079;
- property onbeforeunload: OleVariant dispid - 2147412073;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFrameSetElement2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameSetElement2 = interface(IDispatch)
- ['{3050F5C6-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_onbeforeprint(p: OleVariant); safecall;
- function Get_onbeforeprint: OleVariant; safecall;
- procedure Set_onafterprint(p: OleVariant); safecall;
- function Get_onafterprint: OleVariant; safecall;
- property onbeforeprint: OleVariant read Get_onbeforeprint write Set_onbeforeprint;
- property onafterprint: OleVariant read Get_onafterprint write Set_onafterprint;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFrameSetElement2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFrameSetElement2Disp = dispinterface
- ['{3050F5C6-98B5-11CF-BB82-00AA00BDCE0B}']
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLFrameSetSite
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F514-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLFrameSetSite = dispinterface
- ['{3050F514-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property rows: WideString dispid 1000;
- property cols: WideString dispid 1001;
- property border: OleVariant dispid 1002;
- property borderColor: OleVariant dispid 1003;
- property frameBorder: WideString dispid 1004;
- property frameSpacing: OleVariant dispid 1005;
- property name: WideString dispid - 2147418112;
- property onload: OleVariant dispid - 2147412080;
- property onunload: OleVariant dispid - 2147412079;
- property onbeforeunload: OleVariant dispid - 2147412073;
- property onbeforeprint: OleVariant dispid - 2147412046;
- property onafterprint: OleVariant dispid - 2147412045;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLBGsound
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F369-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBGsound = interface(IDispatch)
- ['{3050F369-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_src(const p: WideString); safecall;
- function Get_src: WideString; safecall;
- procedure Set_loop(p: OleVariant); safecall;
- function Get_loop: OleVariant; safecall;
- procedure Set_volume(p: OleVariant); safecall;
- function Get_volume: OleVariant; safecall;
- procedure Set_balance(p: OleVariant); safecall;
- function Get_balance: OleVariant; safecall;
- property src: WideString read Get_src write Set_src;
- property loop: OleVariant read Get_loop write Set_loop;
- property volume: OleVariant read Get_volume write Set_volume;
- property balance: OleVariant read Get_balance write Set_balance;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLBGsoundDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F369-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLBGsoundDisp = dispinterface
- ['{3050F369-98B5-11CF-BB82-00AA00BDCE0B}']
- property src: WideString dispid 1001;
- property loop: OleVariant dispid 1002;
- property volume: OleVariant dispid 1003;
- property balance: OleVariant dispid 1004;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLBGsound
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F53C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLBGsound = dispinterface
- ['{3050F53C-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property src: WideString dispid 1001;
- property loop: OleVariant dispid 1002;
- property volume: OleVariant dispid 1003;
- property balance: OleVariant dispid 1004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFontNamesCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F376-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFontNamesCollection = interface(IDispatch)
- ['{3050F376-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(index: Integer): WideString; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFontNamesCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F376-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFontNamesCollectionDisp = dispinterface
- ['{3050F376-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1501;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(index: Integer): WideString; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLFontSizesCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F377-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFontSizesCollection = interface(IDispatch)
- ['{3050F377-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function Get_forFont: WideString; safecall;
- function item(index: Integer): Integer; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- property forFont: WideString read Get_forFont;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLFontSizesCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F377-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLFontSizesCollectionDisp = dispinterface
- ['{3050F377-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1502;
- property _newEnum: IUnknown readonly dispid - 4;
- property forFont: WideString readonly dispid 1503;
- function item(index: Integer): Integer; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLOptionsHolder
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F378-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionsHolder = interface(IDispatch)
- ['{3050F378-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_document: IHTMLDocument2; safecall;
- function Get_fonts: IHTMLFontNamesCollection; safecall;
- procedure Set_execArg(p: OleVariant); safecall;
- function Get_execArg: OleVariant; safecall;
- procedure Set_errorLine(p: Integer); safecall;
- function Get_errorLine: Integer; safecall;
- procedure Set_errorCharacter(p: Integer); safecall;
- function Get_errorCharacter: Integer; safecall;
- procedure Set_errorCode(p: Integer); safecall;
- function Get_errorCode: Integer; safecall;
- procedure Set_errorMessage(const p: WideString); safecall;
- function Get_errorMessage: WideString; safecall;
- procedure Set_errorDebug(p: WordBool); safecall;
- function Get_errorDebug: WordBool; safecall;
- function Get_unsecuredWindowOfDocument: IHTMLWindow2; safecall;
- procedure Set_findText(const p: WideString); safecall;
- function Get_findText: WideString; safecall;
- procedure Set_anythingAfterFrameset(p: WordBool); safecall;
- function Get_anythingAfterFrameset: WordBool; safecall;
- function sizes(const fontName: WideString): IHTMLFontSizesCollection; safecall;
- function openfiledlg(initFile: OleVariant; initDir: OleVariant; filter: OleVariant;
- title: OleVariant): WideString; safecall;
- function savefiledlg(initFile: OleVariant; initDir: OleVariant; filter: OleVariant;
- title: OleVariant): WideString; safecall;
- function choosecolordlg(initColor: OleVariant): Integer; safecall;
- procedure showSecurityInfo; safecall;
- function isApartmentModel(const object_: IHTMLObjectElement): WordBool; safecall;
- function getCharset(const fontName: WideString): Integer; safecall;
- function Get_secureConnectionInfo: WideString; safecall;
- property document: IHTMLDocument2 read Get_document;
- property fonts: IHTMLFontNamesCollection read Get_fonts;
- property execArg: OleVariant read Get_execArg write Set_execArg;
- property errorLine: Integer read Get_errorLine write Set_errorLine;
- property errorCharacter: Integer read Get_errorCharacter write Set_errorCharacter;
- property errorCode: Integer read Get_errorCode write Set_errorCode;
- property errorMessage: WideString read Get_errorMessage write Set_errorMessage;
- property errorDebug: WordBool read Get_errorDebug write Set_errorDebug;
- property unsecuredWindowOfDocument: IHTMLWindow2 read Get_unsecuredWindowOfDocument;
- property findText: WideString read Get_findText write Set_findText;
- property anythingAfterFrameset: WordBool read Get_anythingAfterFrameset write Set_anythingAfterFrameset;
- property secureConnectionInfo: WideString read Get_secureConnectionInfo;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLOptionsHolderDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F378-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLOptionsHolderDisp = dispinterface
- ['{3050F378-98B5-11CF-BB82-00AA00BDCE0B}']
- property document: IHTMLDocument2 readonly dispid 1503;
- property fonts: IHTMLFontNamesCollection readonly dispid 1504;
- property execArg: OleVariant dispid 1505;
- property errorLine: Integer dispid 1506;
- property errorCharacter: Integer dispid 1507;
- property errorCode: Integer dispid 1508;
- property errorMessage: WideString dispid 1509;
- property errorDebug: WordBool dispid 1510;
- property unsecuredWindowOfDocument: IHTMLWindow2 readonly dispid 1511;
- property findText: WideString dispid 1512;
- property anythingAfterFrameset: WordBool dispid 1513;
- function sizes(const fontName: WideString): IHTMLFontSizesCollection; dispid 1514;
- function openfiledlg(initFile: OleVariant; initDir: OleVariant; filter: OleVariant;
- title: OleVariant): WideString; dispid 1515;
- function savefiledlg(initFile: OleVariant; initDir: OleVariant; filter: OleVariant;
- title: OleVariant): WideString; dispid 1516;
- function choosecolordlg(initColor: OleVariant): Integer; dispid 1517;
- procedure showSecurityInfo; dispid 1518;
- function isApartmentModel(const object_: IHTMLObjectElement): WordBool; dispid 1519;
- function getCharset(const fontName: WideString): Integer; dispid 1520;
- property secureConnectionInfo: WideString readonly dispid 1521;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLStyleElementEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F615-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLStyleElementEvents2 = dispinterface
- ['{3050F615-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418102;
- function onclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 600;
- function ondblclick(const pEvtObj: IHTMLEventObj): WordBool; dispid - 601;
- function onkeypress(const pEvtObj: IHTMLEventObj): WordBool; dispid - 603;
- procedure onkeydown(const pEvtObj: IHTMLEventObj); dispid - 602;
- procedure onkeyup(const pEvtObj: IHTMLEventObj); dispid - 604;
- procedure onmouseout(const pEvtObj: IHTMLEventObj); dispid - 2147418103;
- procedure onmouseover(const pEvtObj: IHTMLEventObj); dispid - 2147418104;
- procedure onmousemove(const pEvtObj: IHTMLEventObj); dispid - 606;
- procedure onmousedown(const pEvtObj: IHTMLEventObj); dispid - 605;
- procedure onmouseup(const pEvtObj: IHTMLEventObj); dispid - 607;
- function onselectstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418100;
- procedure onfilterchange(const pEvtObj: IHTMLEventObj); dispid - 2147418095;
- function ondragstart(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418101;
- function onbeforeupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418108;
- procedure onafterupdate(const pEvtObj: IHTMLEventObj); dispid - 2147418107;
- function onerrorupdate(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418099;
- function onrowexit(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418106;
- procedure onrowenter(const pEvtObj: IHTMLEventObj); dispid - 2147418105;
- procedure ondatasetchanged(const pEvtObj: IHTMLEventObj); dispid - 2147418098;
- procedure ondataavailable(const pEvtObj: IHTMLEventObj); dispid - 2147418097;
- procedure ondatasetcomplete(const pEvtObj: IHTMLEventObj); dispid - 2147418096;
- procedure onlosecapture(const pEvtObj: IHTMLEventObj); dispid - 2147418094;
- procedure onpropertychange(const pEvtObj: IHTMLEventObj); dispid - 2147418093;
- procedure onscroll(const pEvtObj: IHTMLEventObj); dispid 1014;
- procedure onfocus(const pEvtObj: IHTMLEventObj); dispid - 2147418111;
- procedure onblur(const pEvtObj: IHTMLEventObj); dispid - 2147418112;
- procedure onresize(const pEvtObj: IHTMLEventObj); dispid 1016;
- function ondrag(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418092;
- procedure ondragend(const pEvtObj: IHTMLEventObj); dispid - 2147418091;
- function ondragenter(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418090;
- function ondragover(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418089;
- procedure ondragleave(const pEvtObj: IHTMLEventObj); dispid - 2147418088;
- function ondrop(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418087;
- function onbeforecut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418083;
- function oncut(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418086;
- function onbeforecopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418082;
- function oncopy(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418085;
- function onbeforepaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418081;
- function onpaste(const pEvtObj: IHTMLEventObj): WordBool; dispid - 2147418084;
- function oncontextmenu(const pEvtObj: IHTMLEventObj): WordBool; dispid 1023;
- procedure onrowsdelete(const pEvtObj: IHTMLEventObj); dispid - 2147418080;
- procedure onrowsinserted(const pEvtObj: IHTMLEventObj); dispid - 2147418079;
- procedure oncellchange(const pEvtObj: IHTMLEventObj); dispid - 2147418078;
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- procedure onlayoutcomplete(const pEvtObj: IHTMLEventObj); dispid 1030;
- procedure onpage(const pEvtObj: IHTMLEventObj); dispid 1031;
- procedure onmouseenter(const pEvtObj: IHTMLEventObj); dispid 1042;
- procedure onmouseleave(const pEvtObj: IHTMLEventObj); dispid 1043;
- procedure onactivate(const pEvtObj: IHTMLEventObj); dispid 1044;
- procedure ondeactivate(const pEvtObj: IHTMLEventObj); dispid 1045;
- function onbeforedeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1034;
- function onbeforeactivate(const pEvtObj: IHTMLEventObj): WordBool; dispid 1047;
- procedure onfocusin(const pEvtObj: IHTMLEventObj); dispid 1048;
- procedure onfocusout(const pEvtObj: IHTMLEventObj); dispid 1049;
- procedure onmove(const pEvtObj: IHTMLEventObj); dispid 1035;
- function oncontrolselect(const pEvtObj: IHTMLEventObj): WordBool; dispid 1036;
- function onmovestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1038;
- procedure onmoveend(const pEvtObj: IHTMLEventObj); dispid 1039;
- function onresizestart(const pEvtObj: IHTMLEventObj): WordBool; dispid 1040;
- procedure onresizeend(const pEvtObj: IHTMLEventObj); dispid 1041;
- function onmousewheel(const pEvtObj: IHTMLEventObj): WordBool; dispid 1033;
- procedure onload(const pEvtObj: IHTMLEventObj); dispid 1003;
- procedure onerror(const pEvtObj: IHTMLEventObj); dispid 1002;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLStyleElementEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F3CB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLStyleElementEvents = dispinterface
- ['{3050F3CB-98B5-11CF-BB82-00AA00BDCE0B}']
- function onhelp: WordBool; dispid - 2147418102;
- function onclick: WordBool; dispid - 600;
- function ondblclick: WordBool; dispid - 601;
- function onkeypress: WordBool; dispid - 603;
- procedure onkeydown; dispid - 602;
- procedure onkeyup; dispid - 604;
- procedure onmouseout; dispid - 2147418103;
- procedure onmouseover; dispid - 2147418104;
- procedure onmousemove; dispid - 606;
- procedure onmousedown; dispid - 605;
- procedure onmouseup; dispid - 607;
- function onselectstart: WordBool; dispid - 2147418100;
- procedure onfilterchange; dispid - 2147418095;
- function ondragstart: WordBool; dispid - 2147418101;
- function onbeforeupdate: WordBool; dispid - 2147418108;
- procedure onafterupdate; dispid - 2147418107;
- function onerrorupdate: WordBool; dispid - 2147418099;
- function onrowexit: WordBool; dispid - 2147418106;
- procedure onrowenter; dispid - 2147418105;
- procedure ondatasetchanged; dispid - 2147418098;
- procedure ondataavailable; dispid - 2147418097;
- procedure ondatasetcomplete; dispid - 2147418096;
- procedure onlosecapture; dispid - 2147418094;
- procedure onpropertychange; dispid - 2147418093;
- procedure onscroll; dispid 1014;
- procedure onfocus; dispid - 2147418111;
- procedure onblur; dispid - 2147418112;
- procedure onresize; dispid 1016;
- function ondrag: WordBool; dispid - 2147418092;
- procedure ondragend; dispid - 2147418091;
- function ondragenter: WordBool; dispid - 2147418090;
- function ondragover: WordBool; dispid - 2147418089;
- procedure ondragleave; dispid - 2147418088;
- function ondrop: WordBool; dispid - 2147418087;
- function onbeforecut: WordBool; dispid - 2147418083;
- function oncut: WordBool; dispid - 2147418086;
- function onbeforecopy: WordBool; dispid - 2147418082;
- function oncopy: WordBool; dispid - 2147418085;
- function onbeforepaste: WordBool; dispid - 2147418081;
- function onpaste: WordBool; dispid - 2147418084;
- function oncontextmenu: WordBool; dispid 1023;
- procedure onrowsdelete; dispid - 2147418080;
- procedure onrowsinserted; dispid - 2147418079;
- procedure oncellchange; dispid - 2147418078;
- procedure onreadystatechange; dispid - 609;
- procedure onbeforeeditfocus; dispid 1027;
- procedure onlayoutcomplete; dispid 1030;
- procedure onpage; dispid 1031;
- function onbeforedeactivate: WordBool; dispid 1034;
- function onbeforeactivate: WordBool; dispid 1047;
- procedure onmove; dispid 1035;
- function oncontrolselect: WordBool; dispid 1036;
- function onmovestart: WordBool; dispid 1038;
- procedure onmoveend; dispid 1039;
- function onresizestart: WordBool; dispid 1040;
- procedure onresizeend; dispid 1041;
- procedure onmouseenter; dispid 1042;
- procedure onmouseleave; dispid 1043;
- function onmousewheel: WordBool; dispid 1033;
- procedure onactivate; dispid 1044;
- procedure ondeactivate; dispid 1045;
- procedure onfocusin; dispid 1048;
- procedure onfocusout; dispid 1049;
- procedure onload; dispid 1003;
- procedure onerror; dispid 1002;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleElement
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F375-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleElement = interface(IDispatch)
- ['{3050F375-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_type_(const p: WideString); safecall;
- function Get_type_: WideString; safecall;
- function Get_readyState: WideString; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- procedure Set_onload(p: OleVariant); safecall;
- function Get_onload: OleVariant; safecall;
- procedure Set_onerror(p: OleVariant); safecall;
- function Get_onerror: OleVariant; safecall;
- function Get_styleSheet: IHTMLStyleSheet; safecall;
- procedure Set_disabled(p: WordBool); safecall;
- function Get_disabled: WordBool; safecall;
- procedure Set_media(const p: WideString); safecall;
- function Get_media: WideString; safecall;
- property type_: WideString read Get_type_ write Set_type_;
- property readyState: WideString read Get_readyState;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- property onload: OleVariant read Get_onload write Set_onload;
- property onerror: OleVariant read Get_onerror write Set_onerror;
- property styleSheet: IHTMLStyleSheet read Get_styleSheet;
- property disabled: WordBool read Get_disabled write Set_disabled;
- property media: WideString read Get_media write Set_media;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleElementDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F375-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleElementDisp = dispinterface
- ['{3050F375-98B5-11CF-BB82-00AA00BDCE0B}']
- property type_: WideString dispid 1002;
- property readyState: WideString readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property styleSheet: IHTMLStyleSheet readonly dispid 1004;
- property disabled: WordBool dispid - 2147418036;
- property media: WideString dispid 1006;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLStyleElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F511-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLStyleElement = dispinterface
- ['{3050F511-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property scopeName: WideString readonly dispid - 2147417073;
- procedure setCapture(containerCapture: WordBool); dispid - 2147417072;
- procedure releaseCapture; dispid - 2147417071;
- property onlosecapture: OleVariant dispid - 2147412066;
- function componentFromPoint(x: Integer; y: Integer): WideString; dispid - 2147417070;
- procedure doScroll(component: OleVariant); dispid - 2147417069;
- property onscroll: OleVariant dispid - 2147412081;
- property ondrag: OleVariant dispid - 2147412063;
- property ondragend: OleVariant dispid - 2147412062;
- property ondragenter: OleVariant dispid - 2147412061;
- property ondragover: OleVariant dispid - 2147412060;
- property ondragleave: OleVariant dispid - 2147412059;
- property ondrop: OleVariant dispid - 2147412058;
- property onbeforecut: OleVariant dispid - 2147412054;
- property oncut: OleVariant dispid - 2147412057;
- property onbeforecopy: OleVariant dispid - 2147412053;
- property oncopy: OleVariant dispid - 2147412056;
- property onbeforepaste: OleVariant dispid - 2147412052;
- property onpaste: OleVariant dispid - 2147412055;
- property currentStyle: IHTMLCurrentStyle readonly dispid - 2147417105;
- property onpropertychange: OleVariant dispid - 2147412065;
- function getClientRects: IHTMLRectCollection; dispid - 2147417068;
- function getBoundingClientRect: IHTMLRect; dispid - 2147417067;
- procedure setExpression(const propname: WideString; const expression: WideString;
- const language: WideString); dispid - 2147417608;
- function getExpression(const propname: WideString): OleVariant; dispid - 2147417607;
- function removeExpression(const propname: WideString): WordBool; dispid - 2147417606;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- property onrowsdelete: OleVariant dispid - 2147412050;
- property onrowsinserted: OleVariant dispid - 2147412049;
- property oncellchange: OleVariant dispid - 2147412048;
- property dir: WideString dispid - 2147412995;
- function createControlRange: IDispatch; dispid - 2147417056;
- property scrollHeight: Integer readonly dispid - 2147417055;
- property scrollWidth: Integer readonly dispid - 2147417054;
- property scrollTop: Integer dispid - 2147417053;
- property scrollLeft: Integer dispid - 2147417052;
- procedure clearAttributes; dispid - 2147417050;
- property oncontextmenu: OleVariant dispid - 2147412047;
- function insertAdjacentElement(const where: WideString; const insertedElement: IHTMLElement): IHTMLElement; dispid - 2147417043;
- function applyElement(const apply: IHTMLElement; const where: WideString): IHTMLElement; dispid - 2147417047;
- function getAdjacentText(const where: WideString): WideString; dispid - 2147417042;
- function replaceAdjacentText(const where: WideString; const newText: WideString): WideString; dispid - 2147417041;
- property canHaveChildren: WordBool readonly dispid - 2147417040;
- function addBehavior(const bstrUrl: WideString; var pvarFactory: OleVariant): Integer; dispid - 2147417032;
- function removeBehavior(cookie: Integer): WordBool; dispid - 2147417031;
- property runtimeStyle: IHTMLStyle readonly dispid - 2147417048;
- property behaviorUrns: IDispatch readonly dispid - 2147417030;
- property tagUrn: WideString dispid - 2147417029;
- property onbeforeeditfocus: OleVariant dispid - 2147412043;
- property readyStateValue: Integer readonly dispid - 2147417028;
- function getElementsByTagName(const v: WideString): IHTMLElementCollection; dispid - 2147417027;
- procedure mergeAttributes(const mergeThis: IHTMLElement; var pvarFlags: OleVariant); dispid - 2147417016;
- property isMultiLine: WordBool readonly dispid - 2147417015;
- property canHaveHTML: WordBool readonly dispid - 2147417014;
- property onlayoutcomplete: OleVariant dispid - 2147412039;
- property onpage: OleVariant dispid - 2147412038;
- property inflateBlock: WordBool dispid - 2147417012;
- property onbeforedeactivate: OleVariant dispid - 2147412035;
- procedure setActive; dispid - 2147417011;
- property contentEditable: WideString dispid - 2147412950;
- property isContentEditable: WordBool readonly dispid - 2147417010;
- property hideFocus: WordBool dispid - 2147412949;
- property disabled: WordBool dispid - 2147418036;
- property isDisabled: WordBool readonly dispid - 2147417007;
- property onmove: OleVariant dispid - 2147412034;
- property oncontrolselect: OleVariant dispid - 2147412033;
- function FireEvent(const bstrEventName: WideString; var pvarEventObject: OleVariant): WordBool; dispid - 2147417006;
- property onresizestart: OleVariant dispid - 2147412029;
- property onresizeend: OleVariant dispid - 2147412028;
- property onmovestart: OleVariant dispid - 2147412031;
- property onmoveend: OleVariant dispid - 2147412030;
- property onmouseenter: OleVariant dispid - 2147412027;
- property onmouseleave: OleVariant dispid - 2147412026;
- property onactivate: OleVariant dispid - 2147412025;
- property ondeactivate: OleVariant dispid - 2147412024;
- function dragDrop: WordBool; dispid - 2147417005;
- property glyphMode: Integer readonly dispid - 2147417004;
- property onmousewheel: OleVariant dispid - 2147412036;
- procedure normalize; dispid - 2147417000;
- function getAttributeNode(const bstrName: WideString): IHTMLDOMAttribute; dispid - 2147417003;
- function setAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417002;
- function removeAttributeNode(const pattr: IHTMLDOMAttribute): IHTMLDOMAttribute; dispid - 2147417001;
- property onbeforeactivate: OleVariant dispid - 2147412022;
- property onfocusin: OleVariant dispid - 2147412021;
- property onfocusout: OleVariant dispid - 2147412020;
- property uniqueNumber: Integer readonly dispid - 2147417058;
- property uniqueID: WideString readonly dispid - 2147417057;
- property nodeType: Integer readonly dispid - 2147417066;
- property parentNode: IHTMLDOMNode readonly dispid - 2147417065;
- function hasChildNodes: WordBool; dispid - 2147417064;
- property childNodes: IDispatch readonly dispid - 2147417063;
- property attributes: IDispatch readonly dispid - 2147417062;
- function insertBefore(const newChild: IHTMLDOMNode; refChild: OleVariant): IHTMLDOMNode; dispid - 2147417061;
- function removeChild(const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417060;
- function replaceChild(const newChild: IHTMLDOMNode; const oldChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417059;
- function cloneNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417051;
- function removeNode(fDeep: WordBool): IHTMLDOMNode; dispid - 2147417046;
- function swapNode(const otherNode: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417044;
- function replaceNode(const replacement: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417045;
- function appendChild(const newChild: IHTMLDOMNode): IHTMLDOMNode; dispid - 2147417039;
- property nodeName: WideString readonly dispid - 2147417038;
- property nodeValue: OleVariant dispid - 2147417037;
- property firstChild: IHTMLDOMNode readonly dispid - 2147417036;
- property lastChild: IHTMLDOMNode readonly dispid - 2147417035;
- property previousSibling: IHTMLDOMNode readonly dispid - 2147417034;
- property nextSibling: IHTMLDOMNode readonly dispid - 2147417033;
- property ownerDocument: IDispatch readonly dispid - 2147416999;
- property type_: WideString dispid 1002;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property styleSheet: IHTMLStyleSheet readonly dispid 1004;
- property media: WideString dispid 1006;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLStyleFontFace
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3D5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleFontFace = interface(IDispatch)
- ['{3050F3D5-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_fontsrc(const p: WideString); safecall;
- function Get_fontsrc: WideString; safecall;
- property fontsrc: WideString read Get_fontsrc write Set_fontsrc;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLStyleFontFaceDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F3D5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLStyleFontFaceDisp = dispinterface
- ['{3050F3D5-98B5-11CF-BB82-00AA00BDCE0B}']
- property fontsrc: WideString dispid - 2147413015;
- end;
-
-// *********************************************************************//
-// Interface: ICSSFilterSite
-// Flags: (0)
-// GUID: {3050F3ED-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ICSSFilterSite = interface(IUnknown)
- ['{3050F3ED-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetElement(out element: IHTMLElement): HRESULT; stdcall;
- function FireOnFilterChangeEvent: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupPointer
-// Flags: (0)
-// GUID: {3050F49F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- pTOleChar = ^TOleChar;
-
- IMarkupPointer = interface(IUnknown)
- ['{3050F49F-98B5-11CF-BB82-00AA00BDCE0B}']
- function OwningDoc(out ppDoc: IHTMLDocument2): HRESULT; stdcall;
- function Gravity(out pGravity: _POINTER_GRAVITY): HRESULT; stdcall;
- function SetGravity(Gravity: _POINTER_GRAVITY): HRESULT; stdcall;
- function Cling(out pfCling: Integer): HRESULT; stdcall;
- function SetCling(fCLing: Integer): HRESULT; stdcall;
- function Unposition: HRESULT; stdcall;
- function IsPositioned(out pfPositioned: Integer): HRESULT; stdcall;
- function GetContainer(out ppContainer: IMarkupContainer): HRESULT; stdcall;
- function MoveAdjacentToElement(const pElement: IHTMLElement; eAdj: _ELEMENT_ADJACENCY): HRESULT; stdcall;
- function MoveToPointer(const pPointer: IMarkupPointer): HRESULT; stdcall;
- function MoveToContainer(const pContainer: IMarkupContainer; fAtStart: Integer): HRESULT; stdcall;
- function left(fMove: Integer; out pContext: _MARKUP_CONTEXT_TYPE; out ppElement: IHTMLElement;
- var pcch: Integer; pchText: pTOleChar): HRESULT; stdcall;
- function right(fMove: Integer; out pContext: _MARKUP_CONTEXT_TYPE; out ppElement: IHTMLElement;
- var pcch: Integer; pchText: pTOleChar): HRESULT; stdcall;
- function CurrentScope(out ppElemCurrent: IHTMLElement): HRESULT; stdcall;
- function IsLeftOf(const pPointerThat: IMarkupPointer; out pfResult: Integer): HRESULT; stdcall;
- function IsLeftOfOrEqualTo(const pPointerThat: IMarkupPointer; out pfResult: Integer): HRESULT; stdcall;
- function IsRightOf(const pPointerThat: IMarkupPointer; out pfResult: Integer): HRESULT; stdcall;
- function IsRightOfOrEqualTo(const pPointerThat: IMarkupPointer; out pfResult: Integer): HRESULT; stdcall;
- function IsEqualTo(const pPointerThat: IMarkupPointer; out pfAreEqual: Integer): HRESULT; stdcall;
- function MoveUnit(muAction: _MOVEUNIT_ACTION): HRESULT; stdcall;
- // !! API fix decl
- function findText(const pchFindText: PWideChar; dwFlags: LongWord; const pIEndMatch: IMarkupPointer;
- const pIEndSearch: IMarkupPointer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupContainer
-// Flags: (0)
-// GUID: {3050F5F9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IMarkupContainer = interface(IUnknown)
- ['{3050F5F9-98B5-11CF-BB82-00AA00BDCE0B}']
- function OwningDoc(out ppDoc: IHTMLDocument2): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupContainer2
-// Flags: (0)
-// GUID: {3050F648-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IMarkupContainer2 = interface(IMarkupContainer)
- ['{3050F648-98B5-11CF-BB82-00AA00BDCE0B}']
- function CreateChangeLog(const pChangeSink: IHTMLChangeSink; out ppChangeLog: IHTMLChangeLog;
- fForward: Integer; fBackward: Integer): HRESULT; stdcall;
- function RegisterForDirtyRange(const pChangeSink: IHTMLChangeSink; out pdwCookie: LongWord): HRESULT; stdcall;
- function UnRegisterForDirtyRange(dwCookie: LongWord): HRESULT; stdcall;
- function GetAndClearDirtyRange(dwCookie: LongWord; const pIPointerBegin: IMarkupPointer;
- const pIPointerEnd: IMarkupPointer): HRESULT; stdcall;
- function GetVersionNumber: Integer; stdcall;
- function GetMasterElement(out ppElementMaster: IHTMLElement): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLChangeSink
-// Flags: (0)
-// GUID: {3050F64A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLChangeSink = interface(IUnknown)
- ['{3050F64A-98B5-11CF-BB82-00AA00BDCE0B}']
- function Notify: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLChangeLog
-// Flags: (0)
-// GUID: {3050F649-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLChangeLog = interface(IUnknown)
- ['{3050F649-98B5-11CF-BB82-00AA00BDCE0B}']
-// !! API change
-// function GetNextChange(pbBuffer: PByte; nBufferSize: Integer; out pnRecordLength: Integer): HRESULT; stdcall;
- function GetNextChange(pbBuffer: PByte; nBufferSize: Integer; out pnRecordLength: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IActiveIMMApp
-// Flags: (0)
-// GUID: {08C0E040-62D1-11D1-9326-0060B067B86E}
-// *********************************************************************//
- IActiveIMMApp = interface(IUnknown)
- ['{08C0E040-62D1-11D1-9326-0060B067B86E}']
- function AssociateContext(hWnd: THandle; hIME: HIMC; out phPrev: LongWord): HRESULT; stdcall;
- function ConfigureIMEA(var hKL: Pointer; hWnd: THandle; dwMode: LongWord;
- var pData: REGISTERWORDA): HRESULT; stdcall;
- function ConfigureIMEW(var hKL: Pointer; hWnd: THandle; dwMode: LongWord;
- var pData: REGISTERWORDW): HRESULT; stdcall;
- function CreateContext(out phIMC: HIMC): HRESULT; stdcall;
- function DestroyContext(hIME: HIMC): HRESULT; stdcall;
- function EnumRegisterWordA(var hKL: Pointer; szReading: PAnsiChar; dwStyle: LongWord;
- szRegister: PAnsiChar; var pData: Pointer; out pEnum: IEnumRegisterWordA): HRESULT; stdcall;
- function EnumRegisterWordW(var hKL: Pointer; szReading: PWideChar; dwStyle: LongWord;
- szRegister: PWideChar; var pData: Pointer;
- out pEnum: IEnumRegisterWordW): HRESULT; stdcall;
- function EscapeA(var hKL: Pointer; hIMC: HIMC; uEscape: SYSUINT; var pData: Pointer;
- out plResult: LRESULT): HRESULT; stdcall;
- function EscapeW(var hKL: Pointer; hIMC: HIMC; uEscape: SYSUINT; var pData: Pointer;
- out plResult: LRESULT): HRESULT; stdcall;
- function GetCandidateListA(hIMC: HIMC; dwIndex: LongWord; uBufLen: SYSUINT;
- out pCandList: CANDIDATELIST;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetCandidateListW(hIMC: HIMC; dwIndex: LongWord; uBufLen: SYSUINT;
- out pCandList: CANDIDATELIST;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetCandidateListCountA(hIMC: HIMC; out pdwListSize: LongWord;
- out pdwBufLen: LongWord): HRESULT; stdcall;
- function GetCandidateListCountW(hIMC: HIMC; out pdwListSize: LongWord;
- out pdwBufLen: LongWord): HRESULT; stdcall;
- function GetCandidateWindow(hIMC: HIMC; dwIndex: LongWord;
- out pCandidate: CANDIDATEFORM): HRESULT; stdcall;
- function GetCompositionFontA(hIMC: HIMC; out plf: LOGFONTA): HRESULT; stdcall;
- function GetCompositionFontW(hIMC: HIMC; out plf: LOGFONTA): HRESULT; stdcall;
- function GetCompositionStringA(hIMC: HIMC; dwIndex: LongWord; dwBufLen: LongWord;
- out plCopied: Integer; out pBuf: Pointer): HRESULT; stdcall;
- function GetCompositionStringW(hIMC: HIMC; dwIndex: LongWord; dwBufLen: LongWord;
- out plCopied: Integer; out pBuf: Pointer): HRESULT; stdcall;
- function GetCompositionWindow(hIMC: HIMC; out pCompForm: COMPOSITIONFORM): HRESULT; stdcall;
- function GetContext(hWnd: THandle; out hIMC: HIMC): HRESULT; stdcall;
- function GetConversionListA(var hKL: Pointer; hIMC: LongWord; pSrc: PAnsiChar; uBufLen: SYSUINT;
- uFlag: SYSUINT; out pDst: CANDIDATELIST;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetConversionListW(var hKL: Pointer; hIMC: HIMC; pSrc: PWideChar;
- uBufLen: SYSUINT; uFlag: SYSUINT;
- out pDst: CANDIDATELIST; out puCopied: SYSUINT): HRESULT; stdcall;
- function GetConversionStatus(hIMC: HIMC; out pfdwConversion: LongWord;
- out pfdwSentence: LongWord): HRESULT; stdcall;
- function GetDefaultIMEWnd(hWnd: HWND; out phDefWnd: HWND): HRESULT; stdcall;
- function GetDescriptionA(var hKL: Pointer; uBufLen: SYSUINT; szDescription: PAnsiChar;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetDescriptionW(var hKL: Pointer; uBufLen: SYSUINT; szDescription: PWideChar;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetGuideLineA(hIMC: HIMC; dwIndex: LongWord; dwBufLen: LongWord; pBuf: PAnsiChar;
- out pdwResult: LongWord): HRESULT; stdcall;
- function GetGuideLineW(hIMC: HIMC; dwIndex: LongWord; dwBufLen: LongWord; pBuf: PWideChar;
- out pdwResult: LongWord): HRESULT; stdcall;
- function GetIMEFileNameA(var hKL: Pointer; uBufLen: SYSUINT; szFileName: PAnsiChar;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetIMEFileNameW(var hKL: Pointer; uBufLen: SYSUINT; szFileName: PWideChar;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetOpenStatus(hIMC: HIMC): HRESULT; stdcall;
- function GetProperty(var hKL: Pointer; fdwIndex: LongWord; out pdwProperty: LongWord): HRESULT; stdcall;
- function GetRegisterWordStyleA(var hKL: Pointer; nItem: SYSUINT;
- out pStyleBuf: STYLEBUFA;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetRegisterWordStyleW(var hKL: Pointer; nItem: SYSUINT;
- out pStyleBuf: STYLEBUFW;
- out puCopied: SYSUINT): HRESULT; stdcall;
- function GetStatusWindowPos(hIMC: HIMC; out pptPos: TPoint): HRESULT; stdcall;
- function GetVirtualKey(hWnd: THandle; out puVirtualKey: SYSUINT): HRESULT; stdcall;
- function InstallIMEA(szIMEFileName: PAnsiChar; szLayoutText: PAnsiChar; out phKL: Pointer): HRESULT; stdcall;
- function InstallIMEW(szIMEFileName: PWideChar; szLayoutText: PWideChar; out phKL: Pointer): HRESULT; stdcall;
- function IsIME(var hKL: Pointer): HRESULT; stdcall;
- function IsUIMessageA(hWndIME: THandle; msg: SYSUINT; wParam: WPARAM;
- lParam: LPARAM): HRESULT; stdcall;
- function IsUIMessageW(hWndIME: THandle; msg: SYSUINT; wParam: WPARAM;
- lParam: LPARAM): HRESULT; stdcall;
- function NotifyIME(hIMC: HIMC; dwAction: LongWord; dwIndex: LongWord; dwValue: LongWord): HRESULT; stdcall;
- function RegisterWordA(var hKL: Pointer; szReading: PAnsiChar; dwStyle: LongWord; szRegister: PAnsiChar): HRESULT; stdcall;
- function RegisterWordW(var hKL: Pointer; szReading: PWideChar; dwStyle: LongWord;
- szRegister: PWideChar): HRESULT; stdcall;
- function ReleaseContext(hWnd: THandle; hIMC: HIMC): HRESULT; stdcall;
- function SetCandidateWindow(hIMC: HIMC; var pCandidate: CANDIDATEFORM): HRESULT; stdcall;
- function SetCompositionFontA(hIMC: HIMC; var plf: LOGFONTA): HRESULT; stdcall;
- function SetCompositionFontW(hIMC: HIMC; var plf: tagLOGFONTW): HRESULT; stdcall;
- function SetCompositionStringA(hIMC: HIMC; dwIndex: LongWord; var pComp: Pointer;
- dwCompLen: LongWord; var pRead: Pointer; dwReadLen: LongWord): HRESULT; stdcall;
- function SetCompositionStringW(hIMC: HIMC; dwIndex: LongWord; var pComp: Pointer;
- dwCompLen: LongWord; var pRead: Pointer; dwReadLen: LongWord): HRESULT; stdcall;
- function SetCompositionWindow(hIMC: HIMC; var pCompForm: COMPOSITIONFORM): HRESULT; stdcall;
- function SetConversionStatus(hIMC: HIMC; fdwConversion: LongWord; fdwSentence: LongWord): HRESULT; stdcall;
- function SetOpenStatus(hIMC: LongWord; fOpen: Integer): HRESULT; stdcall;
- function SetStatusWindowPos(hIMC: HIMC; var pptPos: TPoint): HRESULT; stdcall;
- function SimulateHotKey(hWnd: Thandle; dwHotKeyID: LongWord): HRESULT; stdcall;
- function UnregisterWordA(var hKL: Pointer; szReading: PAnsiChar; dwStyle: LongWord;
- szUnregister: PAnsiChar): HResult; stdcall;
- function UnregisterWordW(var hKL: Pointer; szReading: PWideChar; dwStyle: LongWord;
- szUnregister: PWideChar): HRESULT; stdcall;
- function Activate(fRestoreLayout: Integer): HRESULT; stdcall;
- function Deactivate: HRESULT; stdcall;
- function OnDefWindowProc(hWnd: THandle; msg: SYSUINT; wParam: WPARAM;
- lParam: LPARAM; out plResult: LRESULT): HRESULT; stdcall;
- function FilterClientWindows(var aaClassList: Word; uSize: SYSUINT): HRESULT; stdcall;
- function GetCodePageA(var hKL: Pointer; out uCodePage: SYSUINT): HRESULT; stdcall;
- function GetLangId(var hKL: Pointer; out plid: Word): HRESULT; stdcall;
- function AssociateContextEx(hWnd: THandle; hIMC: HIMC; dwFlags: LongWord): HRESULT; stdcall;
- function DisableIME(idThread: LongWord): HRESULT; stdcall;
- function GetImeMenuItemsA(hIMC: HIMC; dwFlags: LongWord; dwType: LongWord;
- var pImeParentMenu: IMEMENUITEMINFOA;
- out pImeMenu: IMEMENUITEMINFOA; dwSize: LongWord;
- out pdwResult: LongWord): HRESULT; stdcall;
- function GetImeMenuItemsW(hIMC: HIMC; dwFlags: LongWord; dwType: LongWord;
- var pImeParentMenu: IMEMENUITEMINFOW;
- out pImeMenu: IMEMENUITEMINFOW; dwSize: LongWord;
- out pdwResult: LongWord): HRESULT; stdcall;
- function EnumInputContext(idThread: LongWord; out ppEnum: IEnumInputContext): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IEnumRegisterWordA
-// Flags: (0)
-// GUID: {08C03412-F96B-11D0-A475-00AA006BCC59}
-// *********************************************************************//
- IEnumRegisterWordA = interface(IUnknown)
- ['{08C03412-F96B-11D0-A475-00AA006BCC59}']
- function Clone(out ppEnum: IEnumRegisterWordA): HRESULT; stdcall;
- function Next(ulCount: LongWord; out rgRegisterWord: REGISTERWORDA;
- out pcFetched: LongWord): HRESULT; stdcall;
- function reset: HRESULT; stdcall;
- function Skip(ulCount: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IEnumRegisterWordW
-// Flags: (0)
-// GUID: {4955DD31-B159-11D0-8FCF-00AA006BCC59}
-// *********************************************************************//
- IEnumRegisterWordW = interface(IUnknown)
- ['{4955DD31-B159-11D0-8FCF-00AA006BCC59}']
- function Clone(out ppEnum: IEnumRegisterWordW): HRESULT; stdcall;
- function Next(ulCount: LongWord; out rgRegisterWord: REGISTERWORDW;
- out pcFetched: LongWord): HRESULT; stdcall;
- function reset: HRESULT; stdcall;
- function Skip(ulCount: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IEnumInputContext
-// Flags: (0)
-// GUID: {09B5EAB0-F997-11D1-93D4-0060B067B86E}
-// *********************************************************************//
- IEnumInputContext = interface(IUnknown)
- ['{09B5EAB0-F997-11D1-93D4-0060B067B86E}']
- function Clone(out ppEnum: IEnumInputContext): HRESULT; stdcall;
- function Next(ulCount: LongWord; out rgInputContext: LongWord; out pcFetched: LongWord): HRESULT; stdcall;
- function reset: HRESULT; stdcall;
- function Skip(ulCount: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISegmentList
-// Flags: (0)
-// GUID: {3050F605-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ISegmentList = interface(IUnknown)
- ['{3050F605-98B5-11CF-BB82-00AA00BDCE0B}']
- function CreateIterator(out ppIIter: ISegmentListIterator): HRESULT; stdcall;
- function GetType(out peType: _SELECTION_TYPE): HRESULT; stdcall;
- function IsEmpty(out pfEmpty: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISegmentListIterator
-// Flags: (0)
-// GUID: {3050F692-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ISegmentListIterator = interface(IUnknown)
- ['{3050F692-98B5-11CF-BB82-00AA00BDCE0B}']
- function Current(out ppISegment: ISegment): HRESULT; stdcall;
- function First: HRESULT; stdcall;
- function IsDone: HRESULT; stdcall;
- function Advance: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISegment
-// Flags: (0)
-// GUID: {3050F683-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ISegment = interface(IUnknown)
- ['{3050F683-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetPointers(const pIStart: IMarkupPointer; const pIEnd: IMarkupPointer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLCaret
-// Flags: (0)
-// GUID: {3050F604-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLCaret = interface(IUnknown)
- ['{3050F604-98B5-11CF-BB82-00AA00BDCE0B}']
- function MoveCaretToPointer(const pDispPointer: IDisplayPointer; fScrollIntoView: Integer;
- eDir: _CARET_DIRECTION): HRESULT; stdcall;
- function MoveCaretToPointerEx(const pDispPointer: IDisplayPointer; fVisible: Integer;
- fScrollIntoView: Integer; eDir: _CARET_DIRECTION): HRESULT; stdcall;
- function MoveMarkupPointerToCaret(const pIMarkupPointer: IMarkupPointer): HRESULT; stdcall;
- function MoveDisplayPointerToCaret(const pDispPointer: IDisplayPointer): HRESULT; stdcall;
- function IsVisible(out pIsVisible: Integer): HRESULT; stdcall;
- function Show(fScrollIntoView: Integer): HRESULT; stdcall;
- function Hide: HRESULT; stdcall;
- function InsertText(var pText: Word; lLen: Integer): HRESULT; stdcall;
- function scrollIntoView: HRESULT; stdcall;
- function GetLocation(out pPoint: TPoint; fTranslate: Integer): HRESULT; stdcall;
- function GetCaretDirection(out peDir: _CARET_DIRECTION): HRESULT; stdcall;
- function SetCaretDirection(eDir: _CARET_DIRECTION): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IDisplayPointer
-// Flags: (0)
-// GUID: {3050F69E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IDisplayPointer = interface(IUnknown)
- ['{3050F69E-98B5-11CF-BB82-00AA00BDCE0B}']
- function moveToPoint(ptPoint: TPoint; eCoordSystem: _COORD_SYSTEM;
- const pElementContext: IHTMLElement; dwHitTestOptions: LongWord;
- out pdwHitTestResults: LongWord): HRESULT; stdcall;
- function MoveUnit(eMoveUnit: _DISPLAY_MOVEUNIT; lXPos: Integer): HRESULT; stdcall;
- function PositionMarkupPointer(const pMarkupPointer: IMarkupPointer): HRESULT; stdcall;
- function MoveToPointer(const pDispPointer: IDisplayPointer): HRESULT; stdcall;
- function SetPointerGravity(eGravity: _POINTER_GRAVITY): HRESULT; stdcall;
- function GetPointerGravity(out peGravity: _POINTER_GRAVITY): HRESULT; stdcall;
- function SetDisplayGravity(eGravity: _DISPLAY_GRAVITY): HRESULT; stdcall;
- function GetDisplayGravity(out peGravity: _DISPLAY_GRAVITY): HRESULT; stdcall;
- function IsPositioned(out pfPositioned: Integer): HRESULT; stdcall;
- function Unposition: HRESULT; stdcall;
- function IsEqualTo(const pDispPointer: IDisplayPointer; out pfIsEqual: Integer): HRESULT; stdcall;
- function IsLeftOf(const pDispPointer: IDisplayPointer; out pfIsLeftOf: Integer): HRESULT; stdcall;
- function IsRightOf(const pDispPointer: IDisplayPointer; out pfIsRightOf: Integer): HRESULT; stdcall;
- function IsAtBOL(out pfBOL: Integer): HRESULT; stdcall;
- function MoveToMarkupPointer(const pPointer: IMarkupPointer;
- const pDispLineContext: IDisplayPointer): HRESULT; stdcall;
- function scrollIntoView: HRESULT; stdcall;
- function GetLineInfo(out ppLineInfo: ILineInfo): HRESULT; stdcall;
- function GetFlowElement(out ppLayoutElement: IHTMLElement): HRESULT; stdcall;
- function QueryBreaks(out pdwBreaks: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ILineInfo
-// Flags: (0)
-// GUID: {3050F7E2-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ILineInfo = interface(IUnknown)
- ['{3050F7E2-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_x(out p: Integer): HRESULT; stdcall;
- function Get_baseLine(out p: Integer): HRESULT; stdcall;
- function Get_textDescent(out p: Integer): HRESULT; stdcall;
- function Get_textHeight(out p: Integer): HRESULT; stdcall;
- function Get_lineDirection(out p: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementSegment
-// Flags: (0)
-// GUID: {3050F68F-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementSegment = interface(ISegment)
- ['{3050F68F-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetElement(out ppIElement: IHTMLElement): HRESULT; stdcall;
- function SetPrimary(fPrimary: Integer): HRESULT; stdcall;
- function IsPrimary(out pfPrimary: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHighlightSegment
-// Flags: (0)
-// GUID: {3050F690-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHighlightSegment = interface(ISegment)
- ['{3050F690-98B5-11CF-BB82-00AA00BDCE0B}']
- end;
-
-// *********************************************************************//
-// Interface: IHighlightRenderingServices
-// Flags: (0)
-// GUID: {3050F606-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHighlightRenderingServices = interface(IUnknown)
- ['{3050F606-98B5-11CF-BB82-00AA00BDCE0B}']
- function AddSegment(const pDispPointerStart: IDisplayPointer;
- const pDispPointerEnd: IDisplayPointer;
- const pIRenderStyle: IHTMLRenderStyle; out ppISegment: IHighlightSegment): HRESULT; stdcall;
- function MoveSegmentToPointers(const pISegment: IHighlightSegment;
- const pDispPointerStart: IDisplayPointer;
- const pDispPointerEnd: IDisplayPointer): HRESULT; stdcall;
- function RemoveSegment(const pISegment: IHighlightSegment): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IDisplayServices
-// Flags: (0)
-// GUID: {3050F69D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IDisplayServices = interface(IUnknown)
- ['{3050F69D-98B5-11CF-BB82-00AA00BDCE0B}']
- function CreateDisplayPointer(out ppDispPointer: IDisplayPointer): HRESULT; stdcall;
- function TransformRect(var pRect: TRect; eSource: _COORD_SYSTEM; eDestination: _COORD_SYSTEM;
- const pIElement: IHTMLElement): HRESULT; stdcall;
- function TransformPoint(var pPoint: TPoint; eSource: _COORD_SYSTEM;
- eDestination: _COORD_SYSTEM; const pIElement: IHTMLElement): HRESULT; stdcall;
- function GetCaret(out ppCaret: IHTMLCaret): HRESULT; stdcall;
- function GetComputedStyle(const pPointer: IMarkupPointer;
- out ppComputedStyle: IHTMLComputedStyle): HRESULT; stdcall;
- function ScrollRectIntoView(const pIElement: IHTMLElement; rect: TRect): HRESULT; stdcall;
- function HasFlowLayout(const pIElement: IHTMLElement; out pfHasFlowLayout: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLComputedStyle
-// Flags: (0)
-// GUID: {3050F6C3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLComputedStyle = interface(IUnknown)
- ['{3050F6C3-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_bold(out p: WordBool): HRESULT; stdcall;
- function Get_italic(out p: WordBool): HRESULT; stdcall;
- function Get_underline(out p: WordBool): HRESULT; stdcall;
- function Get_overline(out p: WordBool): HRESULT; stdcall;
- function Get_strikeOut(out p: WordBool): HRESULT; stdcall;
- function Get_subScript(out p: WordBool): HRESULT; stdcall;
- function Get_superScript(out p: WordBool): HRESULT; stdcall;
- function Get_explicitFace(out p: WordBool): HRESULT; stdcall;
- function Get_fontWeight(out p: Integer): HRESULT; stdcall;
- function Get_fontSize(out p: Integer): HRESULT; stdcall;
- function Get_fontName(out p: Word): HRESULT; stdcall;
- function Get_hasBgColor(out p: WordBool): HRESULT; stdcall;
- function Get_textColor(out p: LongWord): HRESULT; stdcall;
- function Get_backgroundColor(out p: LongWord): HRESULT; stdcall;
- function Get_preFormatted(out p: WordBool): HRESULT; stdcall;
- function Get_direction(out p: WordBool): HRESULT; stdcall;
- function Get_blockDirection(out p: WordBool): HRESULT; stdcall;
- function Get_OL(out p: WordBool): HRESULT; stdcall;
- function isEqual(const pComputedStyle: IHTMLComputedStyle; out pfEqual: WordBool): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHtmlDlgSafeHelper
-// Flags: (4096) Dispatchable
-// GUID: {3050F81A-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHtmlDlgSafeHelper = interface(IDispatch)
- ['{3050F81A-98B5-11CF-BB82-00AA00BDCE0B}']
- function choosecolordlg(initColor: OleVariant; out rgbColor: OleVariant): HRESULT; stdcall;
- function getCharset(const fontName: WideString; out charset: OleVariant): HRESULT; stdcall;
- function Get_fonts(out p: IDispatch): HRESULT; stdcall;
- function Get_BlockFormats(out p: IDispatch): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IBlockFormats
-// Flags: (4096) Dispatchable
-// GUID: {3050F830-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IBlockFormats = interface(IDispatch)
- ['{3050F830-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get__newEnum(out p: IUnknown): HRESULT; stdcall;
- function Get_Count(out p: Integer): HRESULT; stdcall;
- function item(var pvarIndex: OleVariant; out pbstrBlockFormat: WideString): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IFontNames
-// Flags: (4096) Dispatchable
-// GUID: {3050F839-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IFontNames = interface(IDispatch)
- ['{3050F839-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get__newEnum(out p: IUnknown): HRESULT; stdcall;
- function Get_Count(out p: Integer): HRESULT; stdcall;
- function item(var pvarIndex: OleVariant; out pbstrFontName: WideString): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ICSSFilter
-// Flags: (0)
-// GUID: {3050F3EC-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ICSSFilter = interface(IUnknown)
- ['{3050F3EC-98B5-11CF-BB82-00AA00BDCE0B}']
- function SetSite(const pSink: ICSSFilterSite): HRESULT; stdcall;
- function OnAmbientPropertyChange(dispid: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISecureUrlHost
-// Flags: (0)
-// GUID: {C81984C4-74C8-11D2-BAA9-00C04FC2040E}
-// *********************************************************************//
- ISecureUrlHost = interface(IUnknown)
- ['{C81984C4-74C8-11D2-BAA9-00C04FC2040E}']
- function ValidateSecureUrl(out pfAllow: Integer; var pchUrlInQuestion: Word; dwFlags: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupServices
-// Flags: (0)
-// GUID: {3050F4A0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IMarkupServices = interface(IUnknown)
- ['{3050F4A0-98B5-11CF-BB82-00AA00BDCE0B}']
- function CreateMarkupPointer(out ppPointer: IMarkupPointer): HRESULT; stdcall;
- function CreateMarkupContainer(out ppMarkupContainer: IMarkupContainer): HRESULT; stdcall;
-// !! API change
-// function createElement(tagID: _ELEMENT_TAG_ID; pchAttributes: PWord;
-// out ppElement: IHTMLElement): HRESULT; stdcall;
- function createElement(tagID: _ELEMENT_TAG_ID; const pchAttributes: WideString;
- out ppElement: IHTMLElement): HRESULT; stdcall;
- function CloneElement(const pElemCloneThis: IHTMLElement; out ppElementTheClone: IHTMLElement): HRESULT; stdcall;
- function InsertElement(const pElementInsert: IHTMLElement; const pPointerStart: IMarkupPointer;
- const pPointerFinish: IMarkupPointer): HRESULT; stdcall;
- function RemoveElement(const pElementRemove: IHTMLElement): HRESULT; stdcall;
- function remove(const pPointerStart: IMarkupPointer; const pPointerFinish: IMarkupPointer): HRESULT; stdcall;
- function Copy(const pPointerSourceStart: IMarkupPointer;
- const pPointerSourceFinish: IMarkupPointer; const pPointerTarget: IMarkupPointer): HRESULT; stdcall;
- function move(const pPointerSourceStart: IMarkupPointer;
- const pPointerSourceFinish: IMarkupPointer; const pPointerTarget: IMarkupPointer): HRESULT; stdcall;
- // !! API fix decl
- function InsertText(const pchText: PWideChar; cch: Integer; const pPointerTarget: IMarkupPointer): HRESULT; stdcall;
- // !! API fix decl
- function ParseString(pchHTML: PWideString; dwFlags: LongWord;
- out ppContainerResult: IMarkupContainer;
- const ppPointerStart: IMarkupPointer; const ppPointerFinish: IMarkupPointer): HRESULT; stdcall;
- // !! API fix decl
- function ParseGlobal(const hglobalHTML: HGLOBAL; dwFlags: LongWord;
- out ppContainerResult: IMarkupContainer;
- const pPointerStart: IMarkupPointer; const pPointerFinish: IMarkupPointer): HRESULT; stdcall;
- function IsScopedElement(const pElement: IHTMLElement; out pfScoped: Integer): HRESULT; stdcall;
- function GetElementTagId(const pElement: IHTMLElement; out ptagId: _ELEMENT_TAG_ID): HRESULT; stdcall;
- function GetTagIDForName(const bstrName: WideString; out ptagId: _ELEMENT_TAG_ID): HRESULT; stdcall;
- function GetNameForTagID(tagID: _ELEMENT_TAG_ID; out pbstrName: WideString): HRESULT; stdcall;
- function MovePointersToRange(const pIRange: IHTMLTxtRange; const pPointerStart: IMarkupPointer;
- const pPointerFinish: IMarkupPointer): HRESULT; stdcall;
- function MoveRangeToPointers(const pPointerStart: IMarkupPointer;
- const pPointerFinish: IMarkupPointer; const pIRange: IHTMLTxtRange): HRESULT; stdcall;
-// !! API Change
-// function BeginUndoUnit(var pchTitle: Word): HRESULT; stdcall;
- function BeginUndoUnit(const pchTitle: WideString): HRESULT; stdcall;
- function EndUndoUnit: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupServices2
-// Flags: (0)
-// GUID: {3050F682-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IMarkupServices2 = interface(IMarkupServices)
- ['{3050F682-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function ParseGlobalEx(hglobalHTML: HGLOBAL; dwFlags: DWord;
- const pContext: IMarkupContainer;
- out ppContainerResult: IMarkupContainer;
- const pPointerStart: IMarkupPointer; const pPointerFinish: IMarkupPointer): HRESULT; stdcall;
-{ (hglobalHTML: HGLOBAL; dwFlags: DWord;
- const pContext: IMarkupContainer;
- out ppContainerResult: IMarkupContainer;
- const pPointerStart: IMarkupPointer; const pPointerFinish: IMarkupPointer): HRESULT; stdcall;}
- // !! API fix decl
- function ValidateElements(const pPointerStart: IMarkupPointer;
- const pPointerFinish: IMarkupPointer;
- const pPointerTarget: IMarkupPointer;
- pPointerStatus: IMarkupPointer;
- out ppElemFailBottom: IHTMLElement; out ppElemFailTop: IHTMLElement): HRESULT; stdcall;
- function SaveSegmentsToClipboard(const pSegmentList: ISegmentList; dwFlags: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLChangePlayback
-// Flags: (0)
-// GUID: {3050F6E0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLChangePlayback = interface(IUnknown)
- ['{3050F6E0-98B5-11CF-BB82-00AA00BDCE0B}']
-// !! API change
-// function ExecChange(var pbRecord: Byte; fForward: Integer): HRESULT; stdcall;
- function ExecChange(pbRecord: PByte; fForward: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupPointer2
-// Flags: (0)
-// GUID: {3050F675-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IMarkupPointer2 = interface(IMarkupPointer)
- ['{3050F675-98B5-11CF-BB82-00AA00BDCE0B}']
- function IsAtWordBreak(out pfAtBreak: Integer): HRESULT; stdcall;
- function GetMarkupPosition(out plMP: Integer): HRESULT; stdcall;
- function MoveToMarkupPosition(const pContainer: IMarkupContainer; lMP: Integer): HRESULT; stdcall;
- function MoveUnitBounded(muAction: _MOVEUNIT_ACTION; const pIBoundary: IMarkupPointer): HRESULT; stdcall;
- function IsInsideURL(const pRight: IMarkupPointer; out pfResult: Integer): HRESULT; stdcall;
- function MoveToContent(const pIElement: IHTMLElement; fAtStart: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IMarkupTextFrags
-// Flags: (0)
-// GUID: {3050F5FA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IMarkupTextFrags = interface(IUnknown)
- ['{3050F5FA-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetTextFragCount(out pcFrags: Integer): HRESULT; stdcall;
- function GetTextFrag(iFrag: Integer; out pbstrFrag: WideString;
- const pPointerFrag: IMarkupPointer): HRESULT; stdcall;
- function RemoveTextFrag(iFrag: Integer): HRESULT; stdcall;
- function InsertTextFrag(iFrag: Integer; const bstrInsert: WideString;
- const pPointerInsert: IMarkupPointer): HRESULT; stdcall;
- function FindTextFragFromMarkupPointer(const pPointerFind: IMarkupPointer; out piFrag: Integer;
- out pfFragFound: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IXMLGenericParse
-// Flags: (0)
-// GUID: {E4E23071-4D07-11D2-AE76-0080C73BC199}
-// *********************************************************************//
- IXMLGenericParse = interface(IUnknown)
- ['{E4E23071-4D07-11D2-AE76-0080C73BC199}']
- function SetGenericParse(fDoGeneric: WordBool): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEditHost
-// Flags: (0)
-// GUID: {3050F6A0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEditHost = interface(IUnknown)
- ['{3050F6A0-98B5-11CF-BB82-00AA00BDCE0B}']
- function SnapRect(const pIElement: IHTMLElement; var prcNew: TRect; eHandle: _ELEMENT_CORNER): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEditHost2
-// Flags: (0)
-// GUID: {3050F848-98B5-11CF-BB82-00AA00BDCE0D}
-// *********************************************************************//
- IHTMLEditHost2 = interface(IHTMLEditHost)
- ['{3050F848-98B5-11CF-BB82-00AA00BDCE0D}']
- function PreDrag: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISequenceNumber
-// Flags: (0)
-// GUID: {3050F6C1-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ISequenceNumber = interface(IUnknown)
- ['{3050F6C1-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetSequenceNumber(nCurrent: Integer; out pnNew: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IIMEServices
-// Flags: (0)
-// GUID: {3050F6CA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IIMEServices = interface(IUnknown)
- ['{3050F6CA-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetActiveIMM(out ppActiveIMM: IActiveIMMApp): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISelectionServicesListener
-// Flags: (0)
-// GUID: {3050F699-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ISelectionServicesListener = interface(IUnknown)
- ['{3050F699-98B5-11CF-BB82-00AA00BDCE0B}']
- function BeginSelectionUndo: HRESULT; stdcall;
- function EndSelectionUndo: HRESULT; stdcall;
- function OnSelectedElementExit(const pIElementStart: IMarkupPointer;
- const pIElementEnd: IMarkupPointer;
- const pIElementContentStart: IMarkupPointer;
- const pIElementContentEnd: IMarkupPointer): HRESULT; stdcall;
- function OnChangeType(eType: _SELECTION_TYPE; const pIListener: ISelectionServicesListener): HRESULT; stdcall;
- function GetTypeDetail(out pTypeDetail: WideString): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: ISelectionServices
-// Flags: (0)
-// GUID: {3050F684-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- ISelectionServices = interface(IUnknown)
- ['{3050F684-98B5-11CF-BB82-00AA00BDCE0B}']
- function SetSelectionType(eType: _SELECTION_TYPE; const pIListener: ISelectionServicesListener): HRESULT; stdcall;
- function GetMarkupContainer(out ppIContainer: IMarkupContainer): HRESULT; stdcall;
- function AddSegment(const pIStart: IMarkupPointer; const pIEnd: IMarkupPointer;
- out ppISegmentAdded: ISegment): HRESULT; stdcall;
- function AddElementSegment(const pIElement: IHTMLElement; out ppISegmentAdded: IElementSegment): HRESULT; stdcall;
- function RemoveSegment(const pISegment: ISegment): HRESULT; stdcall;
- function GetSelectionServicesListener(out ppISelectionServicesListener: ISelectionServicesListener): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEditDesigner
-// Flags: (0)
-// GUID: {3050F662-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEditDesigner = interface(IUnknown)
- ['{3050F662-98B5-11CF-BB82-00AA00BDCE0B}']
- function PreHandleEvent(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- function PostHandleEvent(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- function TranslateAccelerator(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- function PostEditorEventNotify(inEvtDispId: Integer; const pIEventObj: IHTMLEventObj): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEditServices
-// Flags: (0)
-// GUID: {3050F663-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEditServices = interface(IUnknown)
- ['{3050F663-98B5-11CF-BB82-00AA00BDCE0B}']
- function AddDesigner(const pIDesigner: IHTMLEditDesigner): HRESULT; stdcall;
- function RemoveDesigner(const pIDesigner: IHTMLEditDesigner): HRESULT; stdcall;
- function GetSelectionServices(const pIContainer: IMarkupContainer;
- out ppSelSvc: ISelectionServices): HRESULT; stdcall;
- function MoveToSelectionAnchor(const pIStartAnchor: IMarkupPointer): HRESULT; stdcall;
- function MoveToSelectionEnd(const pIEndAnchor: IMarkupPointer): HRESULT; stdcall;
- function SelectRange(const pStart: IMarkupPointer; const pEnd: IMarkupPointer;
- eType: _SELECTION_TYPE): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLEditServices2
-// Flags: (0)
-// GUID: {3050F812-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLEditServices2 = interface(IHTMLEditServices)
- ['{3050F812-98B5-11CF-BB82-00AA00BDCE0B}']
- function MoveToSelectionAnchorEx(const pIStartAnchor: IDisplayPointer): HRESULT; stdcall;
- function MoveToSelectionEndEx(const pIEndAnchor: IDisplayPointer): HRESULT; stdcall;
- function FreezeVirtualCaretPos(fReCompute: Integer): HRESULT; stdcall;
- function UnFreezeVirtualCaretPos(fReset: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// DispIntf: HTMLNamespaceEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F6BD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- HTMLNamespaceEvents = dispinterface
- ['{3050F6BD-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure onreadystatechange(const pEvtObj: IHTMLEventObj); dispid - 609;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLNamespace
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6BB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNamespace = interface(IDispatch)
- ['{3050F6BB-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_name: WideString; safecall;
- function Get_urn: WideString; safecall;
- function Get_tagNames: IDispatch; safecall;
- function Get_readyState: OleVariant; safecall;
- procedure Set_onreadystatechange(p: OleVariant); safecall;
- function Get_onreadystatechange: OleVariant; safecall;
- procedure doImport(const bstrImplementationUrl: WideString); safecall;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; safecall;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); safecall;
- property name: WideString read Get_name;
- property urn: WideString read Get_urn;
- property tagNames: IDispatch read Get_tagNames;
- property readyState: OleVariant read Get_readyState;
- property onreadystatechange: OleVariant read Get_onreadystatechange write Set_onreadystatechange;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLNamespaceDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6BB-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNamespaceDisp = dispinterface
- ['{3050F6BB-98B5-11CF-BB82-00AA00BDCE0B}']
- property name: WideString readonly dispid 1000;
- property urn: WideString readonly dispid 1001;
- property tagNames: IDispatch readonly dispid 1002;
- property readyState: OleVariant readonly dispid - 2147412996;
- property onreadystatechange: OleVariant dispid - 2147412087;
- procedure doImport(const bstrImplementationUrl: WideString); dispid 1003;
- function attachEvent(const event: WideString; const pdisp: IDispatch): WordBool; dispid - 2147417605;
- procedure detachEvent(const event: WideString; const pdisp: IDispatch); dispid - 2147417604;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLNamespaceCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6B8-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNamespaceCollection = interface(IDispatch)
- ['{3050F6B8-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function item(index: OleVariant): IDispatch; safecall;
- function add(const bstrNamespace: WideString; const bstrUrn: WideString;
- implementationUrl: OleVariant): IDispatch; safecall;
- property length: Integer read Get_length;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLNamespaceCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6B8-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLNamespaceCollectionDisp = dispinterface
- ['{3050F6B8-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1000;
- function item(index: OleVariant): IDispatch; dispid 0;
- function add(const bstrNamespace: WideString; const bstrUrn: WideString;
- implementationUrl: OleVariant): IDispatch; dispid 1001;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPainter
-// Flags: (0)
-// GUID: {3050F6A6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPainter = interface(IUnknown)
- ['{3050F6A6-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function Draw(rcBounds: TRect; rcUpdate: TRect; lDrawFlags: Integer;
- hdc: hdc; pvDrawObject: Pointer): HRESULT; stdcall;
- function onresize(size: TSize): HRESULT; stdcall;
- function GetPainterInfo(out pInfo: _HTML_PAINTER_INFO): HRESULT; stdcall;
- function HitTestPoint(pt: TPoint; out pbHit: BOOL; out plPartID: Longint): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPaintSite
-// Flags: (0)
-// GUID: {3050F6A7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPaintSite = interface(IUnknown)
- ['{3050F6A7-98B5-11CF-BB82-00AA00BDCE0B}']
- function InvalidatePainterInfo: HRESULT; stdcall;
- // !! API fix decl
- function InvalidateRect(prcInvalid: PRect): HRESULT; stdcall;
- function InvalidateRegion(var rgnInvalid: Pointer): HRESULT; stdcall;
- function GetDrawInfo(lFlags: Integer; out pDrawInfo: _HTML_PAINT_DRAW_INFO): HRESULT; stdcall;
- function TransformGlobalToLocal(ptGlobal: TPoint; out pptLocal: TPoint): HRESULT; stdcall;
- function TransformLocalToGlobal(ptLocal: TPoint; out pptGlobal: TPoint): HRESULT; stdcall;
- function GetHitTestCookie(out plCookie: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPainterEventInfo
-// Flags: (0)
-// GUID: {3050F6DF-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPainterEventInfo = interface(IUnknown)
- ['{3050F6DF-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetEventInfoFlags(out plEventInfoFlags: Integer): HRESULT; stdcall;
- function GetEventTarget(var ppElement: IHTMLElement): HRESULT; stdcall;
- function SetCursor(lPartID: Integer): HRESULT; stdcall;
- function StringFromPartID(lPartID: Integer; out pbstrPart: WideString): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPainterOverlay
-// Flags: (0)
-// GUID: {3050F7E3-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPainterOverlay = interface(IUnknown)
- ['{3050F7E3-98B5-11CF-BB82-00AA00BDCE0B}']
- function onmove(rcDevice: TRect): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLIPrintCollection
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6B5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIPrintCollection = interface(IDispatch)
- ['{3050F6B5-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_length: Integer; safecall;
- function Get__newEnum: IUnknown; safecall;
- function item(index: Integer): IUnknown; safecall;
- property length: Integer read Get_length;
- property _newEnum: IUnknown read Get__newEnum;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLIPrintCollectionDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F6B5-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLIPrintCollectionDisp = dispinterface
- ['{3050F6B5-98B5-11CF-BB82-00AA00BDCE0B}']
- property length: Integer readonly dispid 1501;
- property _newEnum: IUnknown readonly dispid - 4;
- function item(index: Integer): IUnknown; dispid 0;
- end;
-
-// *********************************************************************//
-// Interface: IEnumPrivacyRecords
-// Flags: (0)
-// GUID: {3050F844-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IEnumPrivacyRecords = interface(IUnknown)
- ['{3050F844-98B5-11CF-BB82-00AA00BDCE0B}']
- function reset: HRESULT; stdcall;
- function GetSize(out pSize: LongWord): HRESULT; stdcall;
- function GetPrivacyImpacted(out pState: Integer): HRESULT; stdcall;
- function Next(out pbstrUrl: WideString; out pbstrPolicyRef: WideString;
- out pdwReserved: Integer; out pdwPrivacyFlags: LongWord): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDialog
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F216-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDialog = interface(IDispatch)
- ['{3050F216-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_dialogTop(p: OleVariant); safecall;
- function Get_dialogTop: OleVariant; safecall;
- procedure Set_dialogLeft(p: OleVariant); safecall;
- function Get_dialogLeft: OleVariant; safecall;
- procedure Set_dialogWidth(p: OleVariant); safecall;
- function Get_dialogWidth: OleVariant; safecall;
- procedure Set_dialogHeight(p: OleVariant); safecall;
- function Get_dialogHeight: OleVariant; safecall;
- function Get_dialogArguments: OleVariant; safecall;
- function Get_menuArguments: OleVariant; safecall;
- procedure Set_returnValue(p: OleVariant); safecall;
- function Get_returnValue: OleVariant; safecall;
- procedure close; safecall;
- function toString: WideString; safecall;
- property dialogTop: OleVariant read Get_dialogTop write Set_dialogTop;
- property dialogLeft: OleVariant read Get_dialogLeft write Set_dialogLeft;
- property dialogWidth: OleVariant read Get_dialogWidth write Set_dialogWidth;
- property dialogHeight: OleVariant read Get_dialogHeight write Set_dialogHeight;
- property dialogArguments: OleVariant read Get_dialogArguments;
- property menuArguments: OleVariant read Get_menuArguments;
- property returnValue: OleVariant read Get_returnValue write Set_returnValue;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDialogDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F216-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDialogDisp = dispinterface
- ['{3050F216-98B5-11CF-BB82-00AA00BDCE0B}']
- property dialogTop: OleVariant dispid - 2147418108;
- property dialogLeft: OleVariant dispid - 2147418109;
- property dialogWidth: OleVariant dispid - 2147418107;
- property dialogHeight: OleVariant dispid - 2147418106;
- property dialogArguments: OleVariant readonly dispid 25000;
- property menuArguments: OleVariant readonly dispid 25013;
- property returnValue: OleVariant dispid 25001;
- procedure close; dispid 25011;
- function toString: WideString; dispid 25012;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDialog2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5E0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDialog2 = interface(IDispatch)
- ['{3050F5E0-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_status(const p: WideString); safecall;
- function Get_status: WideString; safecall;
- procedure Set_resizable(const p: WideString); safecall;
- function Get_resizable: WideString; safecall;
- property status: WideString read Get_status write Set_status;
- property resizable: WideString read Get_resizable write Set_resizable;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDialog2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5E0-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDialog2Disp = dispinterface
- ['{3050F5E0-98B5-11CF-BB82-00AA00BDCE0B}']
- property status: WideString dispid 25014;
- property resizable: WideString dispid 25015;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLDialog3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F388-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDialog3 = interface(IDispatch)
- ['{3050F388-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_unadorned(const p: WideString); safecall;
- function Get_unadorned: WideString; safecall;
- procedure Set_dialogHide(const p: WideString); safecall;
- function Get_dialogHide: WideString; safecall;
- property unadorned: WideString read Get_unadorned write Set_unadorned;
- property dialogHide: WideString read Get_dialogHide write Set_dialogHide;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLDialog3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F388-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLDialog3Disp = dispinterface
- ['{3050F388-98B5-11CF-BB82-00AA00BDCE0B}']
- property unadorned: WideString dispid 25016;
- property dialogHide: WideString dispid 25007;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLModelessInit
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5E4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLModelessInit = interface(IDispatch)
- ['{3050F5E4-98B5-11CF-BB82-00AA00BDCE0B}']
- function Get_parameters: OleVariant; safecall;
- function Get_optionString: OleVariant; safecall;
- function Get_moniker: IUnknown; safecall;
- function Get_document: IUnknown; safecall;
- property parameters: OleVariant read Get_parameters;
- property optionString: OleVariant read Get_optionString;
- property moniker: IUnknown read Get_moniker;
- property document: IUnknown read Get_document;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLModelessInitDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5E4-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLModelessInitDisp = dispinterface
- ['{3050F5E4-98B5-11CF-BB82-00AA00BDCE0B}']
- property parameters: OleVariant readonly dispid 25000;
- property optionString: OleVariant readonly dispid 25001;
- property moniker: IUnknown readonly dispid 25006;
- property document: IUnknown readonly dispid 25007;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLPopup
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F666-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPopup = interface(IDispatch)
- ['{3050F666-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Show(x: Integer; y: Integer; w: Integer; h: Integer; var pElement: OleVariant); safecall;
- procedure Hide; safecall;
- function Get_document: IHTMLDocument; safecall;
- function Get_isOpen: WordBool; safecall;
- property document: IHTMLDocument read Get_document;
- property isOpen: WordBool read Get_isOpen;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLPopupDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F666-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLPopupDisp = dispinterface
- ['{3050F666-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Show(x: Integer; y: Integer; w: Integer; h: Integer; var pElement: OleVariant); dispid 27001;
- procedure Hide; dispid 27002;
- property document: IHTMLDocument readonly dispid 27003;
- property isOpen: WordBool readonly dispid 27004;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLPopup
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F589-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLPopup = dispinterface
- ['{3050F589-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Show(x: Integer; y: Integer; w: Integer; h: Integer; var pElement: OleVariant); dispid 27001;
- procedure Hide; dispid 27002;
- property document: IHTMLDocument readonly dispid 27003;
- property isOpen: WordBool readonly dispid 27004;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAppBehavior
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5CA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAppBehavior = interface(IDispatch)
- ['{3050F5CA-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_applicationName(const p: WideString); safecall;
- function Get_applicationName: WideString; safecall;
- procedure Set_version(const p: WideString); safecall;
- function Get_version: WideString; safecall;
- procedure Set_icon(const p: WideString); safecall;
- function Get_icon: WideString; safecall;
- procedure Set_singleInstance(const p: WideString); safecall;
- function Get_singleInstance: WideString; safecall;
- procedure Set_minimizeButton(const p: WideString); safecall;
- function Get_minimizeButton: WideString; safecall;
- procedure Set_maximizeButton(const p: WideString); safecall;
- function Get_maximizeButton: WideString; safecall;
- procedure Set_border(const p: WideString); safecall;
- function Get_border: WideString; safecall;
- procedure Set_borderStyle(const p: WideString); safecall;
- function Get_borderStyle: WideString; safecall;
- procedure Set_sysMenu(const p: WideString); safecall;
- function Get_sysMenu: WideString; safecall;
- procedure Set_caption(const p: WideString); safecall;
- function Get_caption: WideString; safecall;
- procedure Set_windowState(const p: WideString); safecall;
- function Get_windowState: WideString; safecall;
- procedure Set_showInTaskBar(const p: WideString); safecall;
- function Get_showInTaskBar: WideString; safecall;
- function Get_commandLine: WideString; safecall;
- property applicationName: WideString read Get_applicationName write Set_applicationName;
- property version: WideString read Get_version write Set_version;
- property icon: WideString read Get_icon write Set_icon;
- property singleInstance: WideString read Get_singleInstance write Set_singleInstance;
- property minimizeButton: WideString read Get_minimizeButton write Set_minimizeButton;
- property maximizeButton: WideString read Get_maximizeButton write Set_maximizeButton;
- property border: WideString read Get_border write Set_border;
- property borderStyle: WideString read Get_borderStyle write Set_borderStyle;
- property sysMenu: WideString read Get_sysMenu write Set_sysMenu;
- property caption: WideString read Get_caption write Set_caption;
- property windowState: WideString read Get_windowState write Set_windowState;
- property showInTaskBar: WideString read Get_showInTaskBar write Set_showInTaskBar;
- property commandLine: WideString read Get_commandLine;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAppBehaviorDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5CA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAppBehaviorDisp = dispinterface
- ['{3050F5CA-98B5-11CF-BB82-00AA00BDCE0B}']
- property applicationName: WideString dispid 5000;
- property version: WideString dispid 5001;
- property icon: WideString dispid 5002;
- property singleInstance: WideString dispid 5003;
- property minimizeButton: WideString dispid 5005;
- property maximizeButton: WideString dispid 5006;
- property border: WideString dispid 5007;
- property borderStyle: WideString dispid 5008;
- property sysMenu: WideString dispid 5009;
- property caption: WideString dispid 5010;
- property windowState: WideString dispid 5011;
- property showInTaskBar: WideString dispid 5012;
- property commandLine: WideString readonly dispid 5013;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAppBehavior2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAppBehavior2 = interface(IDispatch)
- ['{3050F5C9-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_contextMenu(const p: WideString); safecall;
- function Get_contextMenu: WideString; safecall;
- procedure Set_innerBorder(const p: WideString); safecall;
- function Get_innerBorder: WideString; safecall;
- procedure Set_scroll(const p: WideString); safecall;
- function Get_scroll: WideString; safecall;
- procedure Set_scrollFlat(const p: WideString); safecall;
- function Get_scrollFlat: WideString; safecall;
- procedure Set_selection(const p: WideString); safecall;
- function Get_selection: WideString; safecall;
- property contextMenu: WideString read Get_contextMenu write Set_contextMenu;
- property innerBorder: WideString read Get_innerBorder write Set_innerBorder;
- property scroll: WideString read Get_scroll write Set_scroll;
- property scrollFlat: WideString read Get_scrollFlat write Set_scrollFlat;
- property selection: WideString read Get_selection write Set_selection;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAppBehavior2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5C9-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAppBehavior2Disp = dispinterface
- ['{3050F5C9-98B5-11CF-BB82-00AA00BDCE0B}']
- property contextMenu: WideString dispid 5014;
- property innerBorder: WideString dispid 5015;
- property scroll: WideString dispid 5016;
- property scrollFlat: WideString dispid 5017;
- property selection: WideString dispid 5018;
- end;
-
-// *********************************************************************//
-// Interface: IHTMLAppBehavior3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5CD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAppBehavior3 = interface(IDispatch)
- ['{3050F5CD-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure Set_navigable(const p: WideString); safecall;
- function Get_navigable: WideString; safecall;
- property navigable: WideString read Get_navigable write Set_navigable;
- end;
-
-// *********************************************************************//
-// DispIntf: IHTMLAppBehavior3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {3050F5CD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHTMLAppBehavior3Disp = dispinterface
- ['{3050F5CD-98B5-11CF-BB82-00AA00BDCE0B}']
- property navigable: WideString dispid 5019;
- end;
-
-// *********************************************************************//
-// DispIntf: DispHTMLAppBehavior
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F57C-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispHTMLAppBehavior = dispinterface
- ['{3050F57C-98B5-11CF-BB82-00AA00BDCE0B}']
- property applicationName: WideString dispid 5000;
- property version: WideString dispid 5001;
- property icon: WideString dispid 5002;
- property singleInstance: WideString dispid 5003;
- property minimizeButton: WideString dispid 5005;
- property maximizeButton: WideString dispid 5006;
- property border: WideString dispid 5007;
- property borderStyle: WideString dispid 5008;
- property sysMenu: WideString dispid 5009;
- property caption: WideString dispid 5010;
- property windowState: WideString dispid 5011;
- property showInTaskBar: WideString dispid 5012;
- property commandLine: WideString readonly dispid 5013;
- property contextMenu: WideString dispid 5014;
- property innerBorder: WideString dispid 5015;
- property scroll: WideString dispid 5016;
- property scrollFlat: WideString dispid 5017;
- property selection: WideString dispid 5018;
- end;
-
-// *********************************************************************//
-// DispIntf: DispIHTMLInputButtonElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F51E-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispIHTMLInputButtonElement = dispinterface
- ['{3050F51E-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- end;
-
-// *********************************************************************//
-// DispIntf: DispIHTMLInputTextElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F520-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispIHTMLInputTextElement = dispinterface
- ['{3050F520-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- property type_: WideString readonly dispid 2000;
- property value: WideString dispid - 2147413011;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property defaultValue: WideString dispid - 2147413029;
- property size: Integer dispid 2002;
- property maxLength: Integer dispid 2003;
- procedure select; dispid 2004;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property readOnly: WordBool dispid 2005;
- function createTextRange: IHTMLTxtRange; dispid 2006;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- end;
-
-// *********************************************************************//
-// DispIntf: DispIHTMLInputFileElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F542-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispIHTMLInputFileElement = dispinterface
- ['{3050F542-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- property type_: WideString readonly dispid 2000;
- property name: WideString dispid - 2147418112;
- property status: OleVariant dispid 2021;
- property disabled: WordBool dispid - 2147418036;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property size: Integer dispid 2002;
- property maxLength: Integer dispid 2003;
- procedure select; dispid 2004;
- property onchange: OleVariant dispid - 2147412082;
- property onselect: OleVariant dispid - 2147412102;
- property value: WideString dispid - 2147413011;
- end;
-
-// *********************************************************************//
-// DispIntf: DispIHTMLOptionButtonElement
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F509-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispIHTMLOptionButtonElement = dispinterface
- ['{3050F509-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- property value: WideString dispid - 2147413011;
- property type_: WideString readonly dispid 2000;
- property name: WideString dispid - 2147418112;
- property checked: WordBool dispid 2009;
- property defaultChecked: WordBool dispid 2008;
- property onchange: OleVariant dispid - 2147412082;
- property disabled: WordBool dispid - 2147418036;
- property status: WordBool dispid 2001;
- property indeterminate: WordBool dispid 2007;
- property form: IHTMLFormElement readonly dispid - 2147416108;
- property dataFld: WideString dispid - 2147417091;
- property dataSrc: WideString dispid - 2147417090;
- property dataFormatAs: WideString dispid - 2147417089;
- end;
-
-// *********************************************************************//
-// DispIntf: DispIHTMLInputImage
-// Flags: (4112) Hidden Dispatchable
-// GUID: {3050F51D-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- DispIHTMLInputImage = dispinterface
- ['{3050F51D-98B5-11CF-BB82-00AA00BDCE0B}']
- procedure setAttribute(const strAttributeName: WideString; AttributeValue: OleVariant;
- lFlags: Integer); dispid - 2147417611;
- function getAttribute(const strAttributeName: WideString; lFlags: Integer): OleVariant; dispid - 2147417610;
- function removeAttribute(const strAttributeName: WideString; lFlags: Integer): WordBool; dispid - 2147417609;
- property className: WideString dispid - 2147417111;
- property id: WideString dispid - 2147417110;
- property tagName: WideString readonly dispid - 2147417108;
- property parentElement: IHTMLElement readonly dispid - 2147418104;
- property style: IHTMLStyle readonly dispid - 2147418038;
- property onhelp: OleVariant dispid - 2147412099;
- property onclick: OleVariant dispid - 2147412104;
- property ondblclick: OleVariant dispid - 2147412103;
- property onkeydown: OleVariant dispid - 2147412107;
- property onkeyup: OleVariant dispid - 2147412106;
- property onkeypress: OleVariant dispid - 2147412105;
- property onmouseout: OleVariant dispid - 2147412111;
- property onmouseover: OleVariant dispid - 2147412112;
- property onmousemove: OleVariant dispid - 2147412108;
- property onmousedown: OleVariant dispid - 2147412110;
- property onmouseup: OleVariant dispid - 2147412109;
- property document: IDispatch readonly dispid - 2147417094;
- property title: WideString dispid - 2147418043;
- property language: WideString dispid - 2147413012;
- property onselectstart: OleVariant dispid - 2147412075;
- procedure scrollIntoView(varargStart: OleVariant); dispid - 2147417093;
- function contains(const pChild: IHTMLElement): WordBool; dispid - 2147417092;
- property sourceIndex: Integer readonly dispid - 2147417088;
- property recordNumber: OleVariant readonly dispid - 2147417087;
- property lang: WideString dispid - 2147413103;
- property offsetLeft: Integer readonly dispid - 2147417104;
- property offsetTop: Integer readonly dispid - 2147417103;
- property offsetWidth: Integer readonly dispid - 2147417102;
- property offsetHeight: Integer readonly dispid - 2147417101;
- property offsetParent: IHTMLElement readonly dispid - 2147417100;
- property innerHTML: WideString dispid - 2147417086;
- property innerText: WideString dispid - 2147417085;
- property outerHTML: WideString dispid - 2147417084;
- property outerText: WideString dispid - 2147417083;
- procedure insertAdjacentHTML(const where: WideString; const html: WideString); dispid - 2147417082;
- procedure insertAdjacentText(const where: WideString; const text: WideString); dispid - 2147417081;
- property parentTextEdit: IHTMLElement readonly dispid - 2147417080;
- property isTextEdit: WordBool readonly dispid - 2147417078;
- procedure click; dispid - 2147417079;
- property filters: IHTMLFiltersCollection readonly dispid - 2147417077;
- property ondragstart: OleVariant dispid - 2147412077;
- function toString: WideString; dispid - 2147417076;
- property onbeforeupdate: OleVariant dispid - 2147412091;
- property onafterupdate: OleVariant dispid - 2147412090;
- property onerrorupdate: OleVariant dispid - 2147412074;
- property onrowexit: OleVariant dispid - 2147412094;
- property onrowenter: OleVariant dispid - 2147412093;
- property ondatasetchanged: OleVariant dispid - 2147412072;
- property ondataavailable: OleVariant dispid - 2147412071;
- property ondatasetcomplete: OleVariant dispid - 2147412070;
- property onfilterchange: OleVariant dispid - 2147412069;
- property children: IDispatch readonly dispid - 2147417075;
- property all: IDispatch readonly dispid - 2147417074;
- property tabIndex: Smallint dispid - 2147418097;
- procedure focus; dispid - 2147416112;
- property accessKey: WideString dispid - 2147416107;
- property onblur: OleVariant dispid - 2147412097;
- property onfocus: OleVariant dispid - 2147412098;
- property onresize: OleVariant dispid - 2147412076;
- procedure blur; dispid - 2147416110;
- procedure addFilter(const pUnk: IUnknown); dispid - 2147416095;
- procedure removeFilter(const pUnk: IUnknown); dispid - 2147416094;
- property clientHeight: Integer readonly dispid - 2147416093;
- property clientWidth: Integer readonly dispid - 2147416092;
- property clientTop: Integer readonly dispid - 2147416091;
- property clientLeft: Integer readonly dispid - 2147416090;
- property type_: WideString readonly dispid 2000;
- property disabled: WordBool dispid - 2147418036;
- property border: OleVariant dispid 2012;
- property vspace: Integer dispid 2013;
- property hspace: Integer dispid 2014;
- property alt: WideString dispid 2010;
- property src: WideString dispid 2011;
- property lowsrc: WideString dispid 2015;
- property vrml: WideString dispid 2016;
- property dynsrc: WideString dispid 2017;
- property readyState: WideString readonly dispid - 2147412996;
- property complete: WordBool readonly dispid 2018;
- property loop: OleVariant dispid 2019;
- property align: WideString dispid - 2147418039;
- property onload: OleVariant dispid - 2147412080;
- property onerror: OleVariant dispid - 2147412083;
- property onabort: OleVariant dispid - 2147412084;
- property name: WideString dispid - 2147418112;
- property width: Integer dispid - 2147418107;
- property height: Integer dispid - 2147418106;
- property Start: WideString dispid 2020;
- end;
-
-// *********************************************************************//
-// Interface: IElementNamespace
-// Flags: (0)
-// GUID: {3050F671-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementNamespace = interface(IUnknown)
- ['{3050F671-98B5-11CF-BB82-00AA00BDCE0B}']
- function AddTag(const bstrTagName: WideString; lFlags: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementNamespaceTable
-// Flags: (0)
-// GUID: {3050F670-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementNamespaceTable = interface(IUnknown)
- ['{3050F670-98B5-11CF-BB82-00AA00BDCE0B}']
- // !! API fix decl
- function AddNamespace(const bstrNamespace: WideString; const bstrUrn: WideString;
- lFlags: Integer; const pvarFactory: OleVariant): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementNamespaceFactory
-// Flags: (0)
-// GUID: {3050F672-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementNamespaceFactory = interface(IUnknown)
- ['{3050F672-98B5-11CF-BB82-00AA00BDCE0B}']
- function create(pNamespace: IElementNamespace): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementNamespaceFactory2
-// Flags: (0)
-// GUID: {3050F805-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementNamespaceFactory2 = interface(IElementNamespaceFactory)
- ['{3050F805-98B5-11CF-BB82-00AA00BDCE0B}']
- function CreateWithImplementation(pNamespace: IElementNamespace;
- const bstrImplementation: WideString): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementNamespaceFactoryCallback
-// Flags: (0)
-// GUID: {3050F7FD-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementNamespaceFactoryCallback = interface(IUnknown)
- ['{3050F7FD-98B5-11CF-BB82-00AA00BDCE0B}']
- function Resolve(const bstrNamespace, bstrTagName, bstrAttrs: WideString;
- pNamespace: IElementNamespace): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSiteOM2
-// Flags: (0)
-// GUID: {3050F659-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSiteOM2 = interface(IElementBehaviorSiteOM)
- ['{3050F659-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetDefaults(out ppDefaults: IHTMLElementDefaults): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorCategory
-// Flags: (0)
-// GUID: {3050F4ED-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorCategory = interface(IUnknown)
- ['{3050F4ED-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetCategory(out ppchCategory: PWideChar): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSiteCategory
-// Flags: (0)
-// GUID: {3050F4EE-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSiteCategory = interface(IUnknown)
- ['{3050F4EE-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetRelatedBehaviors(lDirection: Integer; pchCategory: PWideChar;
- out ppEnumerator: IEnumUnknown): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IEnumUnknown
-// Flags: (0)
-// GUID: {00000100-0000-0000-C000-000000000046}
-// *********************************************************************//
- IEnumUnknown = interface(IUnknown)
- ['{00000100-0000-0000-C000-000000000046}']
- function RemoteNext(celt: LongWord; out rgelt: IUnknown; out pceltFetched: LongWord): HRESULT; stdcall;
- function Skip(celt: LongWord): HRESULT; stdcall;
- function reset: HRESULT; stdcall;
- function Clone(out ppEnum: IEnumUnknown): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSubmit
-// Flags: (0)
-// GUID: {3050F646-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSubmit = interface(IUnknown)
- ['{3050F646-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetSubmitInfo(pSubmitData: IHTMLSubmitData): HRESULT; stdcall;
- function reset: HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorFocus
-// Flags: (0)
-// GUID: {3050F6B6-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorFocus = interface(IUnknown)
- ['{3050F6B6-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetFocusRect(var pRect: TRect): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorLayout
-// Flags: (0)
-// GUID: {3050F6BA-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorLayout = interface(IUnknown)
- ['{3050F6BA-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetSize(dwFlags: Integer; sizeContent: TSize; var pptTranslateBy: TPoint;
- var pptTopLeft: TPoint; var psizeProposed: TSize): HRESULT; stdcall;
- function GetLayoutInfo(out plLayoutInfo: Integer): HRESULT; stdcall;
- function GetPosition(lFlags: Integer; var pptTopLeft: TPoint): HRESULT; stdcall;
- // !! API fix decl
- function MapSize(psizeIn: PSize; out prcOut: TRect): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorLayout2
-// Flags: (0)
-// GUID: {3050F846-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorLayout2 = interface(IUnknown)
- ['{3050F846-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetTextDescent(out plDescent: Integer): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSiteLayout
-// Flags: (0)
-// GUID: {3050F6B7-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSiteLayout = interface(IUnknown)
- ['{3050F6B7-98B5-11CF-BB82-00AA00BDCE0B}']
- function InvalidateLayoutInfo: HRESULT; stdcall;
- function InvalidateSize: HRESULT; stdcall;
- function GetMediaResolution(out psizeResolution: TSize): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IElementBehaviorSiteLayout2
-// Flags: (0)
-// GUID: {3050F847-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IElementBehaviorSiteLayout2 = interface(IUnknown)
- ['{3050F847-98B5-11CF-BB82-00AA00BDCE0B}']
- function GetFontInfo(out plf: tagLOGFONTW): HRESULT; stdcall;
- end;
-
-// *********************************************************************//
-// Interface: IHostBehaviorInit
-// Flags: (0)
-// GUID: {3050F842-98B5-11CF-BB82-00AA00BDCE0B}
-// *********************************************************************//
- IHostBehaviorInit = interface(IUnknown)
- ['{3050F842-98B5-11CF-BB82-00AA00BDCE0B}']
- function PopulateNamespaceTable: HRESULT; stdcall;
- end;
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_PLATFORM ON}
-{$ENDIF}
-
-implementation
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/OleCtrlsFix.pas b/windows/src/ext/embeddedwb/Source/OleCtrlsFix.pas
deleted file mode 100644
index 3ce5e82f98c3f67f2586b7c962c242f637e6dea6..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/OleCtrlsFix.pas
+++ /dev/null
@@ -1,49 +0,0 @@
-unit OleCtrlsFix;
-
-interface
-
-uses
- OleCtrls, Windows, Messages;
-
-type
- TOleControlFix = class(TOleControl)
- protected
- // procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
- function GetIDispatchProp(Index: Integer): IDispatch;
- function GetIUnknownProp(Index: Integer): IUnknown;
- end;
-
-implementation
-
-{ TOleControlFix }
-
-{procedure TOleControlFix.WMPaint(var Message: TWMPaint);
-var
- PS: TPaintStruct;
-begin
- if Message.DC = 0 then
- begin
- BeginPaint(Handle, PS);
- EndPaint(Handle, PS);
- end;
-end; }
-
-function TOleControlFix.GetIDispatchProp(Index: Integer): IDispatch;
-var
- Temp: TVarData;
-begin
- GetProperty(Index, Temp);
-// Result := IDispatch(Temp.VDispatch); ***** Change to:
- Pointer(Result) := Temp.VDispatch; //this avoids the extra AddRef
-end;
-
-function TOleControlFix.GetIUnknownProp(Index: Integer): IUnknown;
-var
- Temp: TVarData;
-begin
- GetProperty(Index, Temp);
-// Result := IDispatch(Temp.VUnknown); ***** Change to:
- Pointer(Result) := Temp.VUnknown; //this avoids the extra AddRef
-end;
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/RichEditBrowser.pas b/windows/src/ext/embeddedwb/Source/RichEditBrowser.pas
deleted file mode 100644
index 884aecb669c7da5d6cb598018535ee81f67ba2ee..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/RichEditBrowser.pas
+++ /dev/null
@@ -1,3377 +0,0 @@
-//*****************************************************************
-// Rich Edit for Web Browser *
-// *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Eran Bodankin (bsalsa) *
-// bsalsa@gmail.com *
-// Based on a Ideas from: http://www.torry.net/ *
-// *
-// Documentation and updated versions: *
-// http://www.bsalsa.com *
-//*****************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: RichEditBrowser.pas,v 1.2 2006/11/15 21:01:44 sergev Exp $
-
-unit RichEditBrowser;
-
-interface
-
-{$I EWB.inc}
-
-uses
- System.UITypes,
- Windows, Messages, Classes, Controls, ComCtrls, ExtCtrls, Graphics, ComObj, Menus,
- HighLightHTML, HighLightXML, EmbeddedWB, ImgList, RichEdit, ClipBrd, ActiveX;
-
-const
- REO_GETOBJ_NO_INTERFACES = $00000000;
- REO_GETOBJ_POLEOBJ = $00000001;
- REO_GETOBJ_PSTG = $00000002;
- REO_GETOBJ_POLESITE = $00000004;
- REO_GETOBJ_ALL_INTERFACES = $00000007;
- REO_CP_SELECTION = $FFFFFFFF;
- REO_IOB_SELECTION = $FFFFFFFF;
- REO_IOB_USE_CP = $FFFFFFFE;
- REO_NULL = $00000000;
- REO_READWRITEMASK = $0000003F;
- REO_DONTNEEDPALETTE = $00000020;
- REO_BLANK = $00000010;
- REO_DYNAMICSIZE = $00000008;
- REO_INVERTEDSELECT = $00000004;
- REO_BELOWBASELINE = $00000002;
- REO_RESIZABLE = $00000001;
- REO_LINK = $80000000;
- REO_STATIC = $40000000;
- REO_SELECTED = $08000000;
- REO_OPEN = $04000000;
- REO_INPLACEACTIVE = $02000000;
- REO_HILITED = $01000000;
- REO_LINKAVAILABLE = $00800000;
- REO_GETMETAFILE = $00400000;
- RECO_PASTE = $00000000;
- RECO_DROP = $00000001;
- RECO_COPY = $00000002;
- RECO_CUT = $00000003;
- RECO_DRAG = $00000004;
- READYSTATE_COMPLETE = $00000004;
- CLSID_NULL: TCLSID = '{00000000-0000-0000-0000-000000000000}';
- clSelColor = clHighlightText;
- clSelColorBk = clHighlight;
- clTextColor = clWindowText;
- clTextColorBk = clWindow;
- clHyperlink = clBlue;
- clHyperlinkBk = clWindow;
-
-// type
- // TRichEditVersion = 1..4;
-type
- TURLClickEvent = procedure(Sender: TObject; const URL: string) of object;
- TTextAlignment = (taLeftJustify, taRightJustify, taCenter);
- TThemes = (tDefault, tXP, tBlack, tAluminum, tLight);
-type
- TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte; cb:
- Longint; var pcb: Longint): DWORD; stdcall;
-
- TEditStream = record
- dwCookie: Longint;
- dwError: Longint;
- pfnCallback: TEditStreamCallBack;
- end;
-
- IRichEditOleCallback = interface(IUnknown)
- ['{00020d03-0000-0000-c000-000000000046}']
- function GetNewStorage(out stg: IStorage): HResult; stdcall;
- function GetInPlaceContext(out Frame: IOleInPlaceFrame;
- out Doc: IOleInPlaceUIWindow;
- lpFrameInfo: POleInPlaceFrameInfo): HResult; stdcall;
- function ShowContainerUI(fShow: BOOL): HResult; stdcall;
- function QueryInsertObject(const clsid: TCLSID; const stg: IStorage;
- cp: Longint): HResult; stdcall;
- function DeleteObject(const oleobj: IOleObject): HResult; stdcall;
- function QueryAcceptData(const dataobj: IDataObject;
- var cfFormat: TClipFormat; reco: DWORD; fReally: BOOL;
- hMetaPict: HGLOBAL): HResult; stdcall;
- function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
- function GetClipboardData(const chrg: TCharRange; reco: DWORD;
- out dataobj: IDataObject): HResult; stdcall;
- function GetDragDropEffect(fDrag: BOOL; grfKeyState: DWORD;
- var dwEffect: DWORD): HResult; stdcall;
- function GetContextMenu(seltype: Word; const oleobj: IOleObject;
- const chrg: TCharRange; out Menu: HMENU): HResult; stdcall;
- end;
-
-
-type
- TRichEditOleCallback = class(TInterfacedObject, IRichEditOleCallback)
- public
- function QueryInterface(const iid: TGUID; out Obj): HResult; stdcall;
- function _AddRef: Longint; stdcall;
- function _Release: Longint; stdcall;
- function GetNewStorage(out stg: IStorage): HResult; stdcall;
- function GetClipboardData(const chrg: TCharRange; reco: DWORD;
- out dataobj: IDataObject): HResult; stdcall;
- function GetContextMenu(seltype: Word; const oleobj: IOleObject;
- const chrg: TCharRange; out Menu: HMENU): HResult; stdcall;
- function GetInPlaceContext(out Frame: IOleInPlaceFrame;
- out Doc: IOleInPlaceUIWindow;
- lpFrameInfo: POleInPlaceFrameInfo): HResult; stdcall;
- function ShowContainerUI(fShow: BOOL): HResult; stdcall;
- function QueryInsertObject(const clsid: TCLSID; const stg: IStorage;
- cp: Longint): HResult; stdcall;
- function DeleteObject(const oleobj: IOleObject): HResult; stdcall;
- function QueryAcceptData(const dataobj: IDataObject; var cfFormat: TClipFormat;
- reco: DWORD; fReally: BOOL; hMetaPict: HGLOBAL): HResult; stdcall;
- function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
- function GetDragDropEffect(fDrag: BOOL; grfKeyState: DWORD;
- var dwEffect: DWORD): HResult; stdcall;
- end;
-
- TRichEditWB = class(TRichEdit)
-
- private
- // OldStatusBarW : Integer;
- FAcceptDragComponnents: boolean;
- FAcceptDragFiles: boolean;
- FAutoNavigate: Boolean;
- FEmbeddedWB: TEmbeddedWB;
- FFileName: string;
- FHideCaret: Boolean;
- FHighlightURL: Boolean;
- FHTMLHighlight: Boolean;
- FImage: TImage;
- FModified: Boolean;
- FMoreThen64KB: Boolean;
- FOnURLClick: TURLClickEvent;
- FSelPos: Integer;
- FStatusbar: TStatusbar;
- FStream: TMemoryStream;
- FThemes: TThemes;
- FTextAlignment: TAlignment;
- FTopGap, fLeftGap: Integer;
- FRightGap, fBottomGap: Integer;
- FXMLHighlight: Boolean;
- FPopupVerbMenu: TPopupMenu;
- FAutoVerbMenu: Boolean;
- FMyCallback: TRichEditOleCallback;
- inserted: Boolean;
- function GetCanUndo: Boolean;
- function GetModified: Boolean;
- function GetRTFText: string;
- procedure CheckFileSave;
- procedure ClearAll(Sender: TObject);
- procedure ClearSel(Sender: TObject);
- procedure CNNotify(var Msg: TWMNotify); message CN_NOTIFY;
- procedure CopySel(Sender: TObject);
- procedure CutSel(Sender: TObject);
- procedure DoHTMLrc(Sender: TObject);
- procedure DoXMLrc(Sender: TObject);
- procedure FindDialog(Sender: TObject);
- procedure FindDialogFind(Sender: TObject);
- procedure PasteSel(Sender: TObject);
- procedure PerformFileOpen(const AFileName: string);
- procedure PrintSel(Sender: TObject);
- procedure Prnt(Sender: TObject);
- procedure ReplaceDialogReplace(Sender: TObject);
- procedure SetEditRect;
- procedure SetFileName(const FileName: string);
- procedure SetHideCaret(const Value: Boolean);
- procedure SetHyperlink(Setlink: Boolean; wParam: Integer);
- procedure SetModified(Value: Boolean);
- procedure SetRTFText(RichText: string);
- procedure SetTextAlignment(al: TAlignment);
- procedure UpdateInfo;
- procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
- procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
- procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);
- message WM_WINDOWPOSCHANGED;
-
- protected
- FMax: Integer;
- FSelection: TCharRange;
- function GetPopupMenu: TPopupMenu; override;
- function GetSelStart: Integer; override;
- procedure CreateParams(var Params: TCreateParams); override;
- procedure CreateWnd; override;
- procedure DestroyWnd; override;
- procedure DoSetMaxLength(Value: Integer); override;
- procedure DoURLClick(const URL: string);
- procedure EMExSetSel(var Message: TMessage); message EM_EXSETSEL;
- procedure EMReplaceSel(var Message: TMessage); message EM_REPLACESEL;
- procedure setBottomGap(Value: Integer);
- procedure setLeftGap(Value: Integer);
- procedure setRightGap(Value: Integer);
- procedure setTopGap(Value: Integer);
- procedure WndProc(var Msg: TMessage); override;
-
- public
- CapsLockKey: string;
- CarretPosition: string;
- CompCount: Integer;
- CursorPositionX, CursorPositionY: Integer;
- HTMLSyn: THighlightHTML;
- InsertKey: string;
- LineIndex: Integer;
- NumLockKey: string;
- XMLSyn: THighlightXML;
- constructor Create(AOwner: TComponent); override;
- procedure Loaded; override;
- destructor Destroy; override;
- function AddBitmapFromImagelist(const ASource: TCustomImageList; const
- AImageIndex: System.UITypes.TImageIndex): Integer;
- function AddBullets: Integer;
- function AddButton(bCaption, bName: string; reLeft, bLeft, bTop: Integer): Integer;
- function AddCheckBox(cbCaption, cbName: string; reLeft, cbLeft, cbTop:
- Integer; Chk: Boolean): Integer;
- function AddDateAndTime: Integer;
- function AddEditBox(eText, eName: string; reLeft, eLeft, eTop: Integer): Integer;
- function AddEmptyLine: Integer;
- function AddFile(FilePath: string; Linked: bool; AsIcon:
- Bool): Integer;
- function AddFiles(Files: TStrings; Linked: bool; AsIcon:
- Bool): Integer;
- function AddFormatedText(const txt: string; Bold, Italic, Strikeout, Underline:
- boolean; txtColor: TColor): Integer;
- function AddImage(FilePath: string): Integer;
- function AddImages(Files: TStrings): Integer;
- function AddImageUsingClipboard(FilePath: string): Integer;
- function AddLineNumbering: Integer;
- function AddRadioButton(rbCaption, rbName: string; reLeft, rbLeft, rbTop:
- Integer; Chk: boolean): Integer;
- function AddRomanNumbering: Integer;
- function AddRTFSelection(sourceStream: TStream): Integer;
- function AddRtfText(str: string): Integer;
- function AddText(const txt: string): Integer;
- function AddTextByCursor(str: string): Integer;
- function ConvertBitmapToRTF(pict: TBitmap): string;
- function ChangeToANSIChangeCase(const S: string): string;
- function GetCharactersCount: Integer;
- function GetLineCount: Integer;
- function GetLineFromChar(CharIndex: Integer): Integer;
- function GetLineIndex(LineNo: Integer): Integer;
- function GetLineLength(CharIndex: Integer): Integer;
- function GetNextWord(var s: string; var PrevWord: string): string;
- function GetRTFSelection(intoStream: TStream): string;
- function GetRTFTextToString: string;
- function GetSelectedText(var SelectedText: string): boolean;
- function GetVisibleLines: Integer;
- function IsNumber(s: string): Boolean;
- function IsSeparator(Car: Char): Boolean;
- function RemoveTextFormats: Integer;
- function SearchAndReplace(InSearch, InReplace: string): Integer;
- function SearchForTextAndSelect(SearchText: string): string;
- function SelectLine(Index: Integer): boolean;
- procedure AlignText(alignment: TAlignment);
- procedure AppendRTF(str: string);
- procedure CheckCapslock;
- procedure CheckInsertKey;
- procedure CheckNumLock;
- procedure CreateSnapShot(Pic: TBitmap);
- procedure DoHighlightHTML;
- procedure DoHighlightXML;
- procedure Find;
- procedure GetMemStatus;
- procedure GoToPosition(LineNumber, CharNumber: Word);
- procedure LoadAsCopyFromBrowser;
- procedure LoadFromFile(FileName: string);
- procedure LoadFromStream(S: TStream);
- procedure LoadHTMLFromBrowser;
- procedure LoadStreamFromBrowser;
- procedure LoadStringsFromBrowser;
- procedure LoadTextFromBrowser;
- procedure MailContext;
- procedure MailSelected;
- procedure New;
- procedure Open;
- procedure PreviewInBrowser;
- procedure PrintAll;
- procedure PrintSelectedText;
- procedure Replace;
- procedure Save;
- procedure SaveAs;
- procedure SaveToFile(FileName: string);
- procedure SaveToStream(S: TStream);
- procedure ScrollToBottom;
- procedure ScrollToTop;
- procedure SelAll(Sender: TObject);
- procedure SelectFont;
- procedure SelectionChange; override;
- procedure SetColor;
- procedure SetFontBold;
- procedure SetFontColor;
- procedure SetFontItalic;
- procedure SetFontSize;
- procedure SetFontUnderLine;
- procedure SetLineSpacing(lineSpacing: Byte);
- procedure SetOffSetsValues(SetTo: Integer);
- procedure SetSelectedBgColor;
- procedure SetSelectionHyperLink(Hyperlink: Boolean);
- procedure SetTabWidth(FTabWidth: Integer);
- procedure SetThemes(Thm: TThemes);
- procedure SetToMoreThen64KB;
- procedure SetToOEM(var Key: AnsiChar);
- procedure SetWordHyperLink(Hyperlink: Boolean);
- procedure UndoLast(Sender: TObject);
- property CanUndo: Boolean read GetCanUndo;
- property Modified: Boolean read GetModified write SetModified;
- property AutoVerbMenu: boolean read FAutoVerbMenu write FAutoVerbMenu default True;
-
- published
- procedure DblClick; override;
- procedure KeyDown(var Key: Word; Shift: TShiftState); override;
- procedure KeyPress(var Key: Char); override;
- procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
- Integer); override;
- procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
- procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
- Integer); override;
- property AcceptDragComponnents: Boolean read fAcceptDragComponnents write
- fAcceptDragComponnents default True;
- property AcceptDragFiles: Boolean read fAcceptDragFiles write
- fAcceptDragFiles default True;
- property AutoNavigate: boolean read fAutoNavigate write fAutoNavigate;
- property EmbeddedWB: TEmbeddedWB read FEmbeddedWB write FEmbeddedWB;
- property FileName: string read fFileName write SetFileName;
- property GapBottom: Integer read FBottomGap write setBottomGap default 0;
- property GapLeft: Integer read FLeftGap write setLeftGap default 0;
- property GapRight: Integer read FRightGap write setRightGap default 0;
- property GapTop: Integer read FTopGap write setTopGap default 0;
- property HighlightHTML: boolean read fHTMLHighlight write fHTMLHighlight;
- property HighlightURL: boolean read fHighlightURL write fHighlightURL;
- property HighlightXML: boolean read fXMLHighlight write fXMLHighlight;
- property Image: TImage read fImage write fImage;
- property OnURLClick: TURLClickEvent read FOnURLClick write FOnURLClick;
- property RTFText: string read GetRTFText write SetRTFText;
- property Statusbar: TStatusbar read fStatusbar write fStatusbar;
- property SupprtMoreThen64KB: boolean read fMoreThen64KB write fMoreThen64KB;
- property TextAlignment: TAlignment read fTextAlignment write fTextAlignment;
- property HideCaret: Boolean read FHideCaret write SetHideCaret;
- property Themes: TThemes read FThemes write FThemes;
-
- property Align;
- property Alignment;
- property Anchors;
- property BevelEdges;
- property BevelInner;
- property BevelOuter;
- property BevelKind default bkNone;
- property BevelWidth;
- property BiDiMode;
- property BorderStyle;
- property BorderWidth;
- property Color;
- property Ctl3D;
- property DragCursor;
- property DragKind;
- property DragMode;
- property Enabled;
- property Font;
- property HideSelection;
- property HideScrollBars;
- property ImeMode;
- property ImeName;
- property Constraints;
- property Lines;
- property MaxLength;
- property ParentBiDiMode;
- property ParentColor;
- property ParentCtl3D;
- property ParentFont;
- property ParentShowHint;
- property PlainText;
- property PopupMenu;
- property ReadOnly;
- property ScrollBars;
- property ShowHint;
- property TabOrder;
- property TabStop default True;
- property Visible;
- property WantTabs;
- property WantReturns;
- property WordWrap;
- property OnChange;
- property OnContextPopup;
- property OnDragDrop;
- property OnDragOver;
- property OnendDock;
- property OnendDrag;
- property OnEnter;
- property OnExit;
- property OnKeyDown;
- property OnKeyPress;
- property OnKeyUp;
-{$IFDEF DELPHI9_UP}
- property OnMouseActivate;
-{$ENDIF}
- property OnMouseDown;
- property OnMouseMove;
- property OnMouseUp;
- property OnMouseWheel;
- property OnMouseWheelDown;
- property OnMouseWheelUp;
- property OnProtectChange;
- property OnResizeRequest;
- property OnSaveClipboard;
- property OnSelectionChange;
- property OnStartDock;
- property OnStartDrag;
- end;
-
-type
- TREObject = packed record
- cbStruct: DWORD;
- cp: longint;
- clsid: TCLSID;
- oleobj: IOleObject;
- stg: IStorage;
- olesite: IOLEClientSite;
- SIZEL: TSize;
- dvaspect: DWORD;
- dwFlags: DWORD;
- dwUser: DWORD;
- end;
-
-type
- IRichEditOle = interface(IUnknown)['{00020d00-0000-0000-c000-000000000046}']
- function GetClientSite(out clientSite: IOleClientSite): HResult; stdcall;
- function GetObjectCount: HResult; stdcall;
- function GetLinkCount: HResult; stdcall;
- function GetObject(iob: Longint; out reobject: TReObject;
- dwFlags: DWORD): HResult; stdcall;
- function InsertObject(var reobject: TReObject): HResult; stdcall;
- function ConvertObject(iob: Longint; rclsidNew: TIID;
- lpstrUsertypeNew: LPCSTR): HResult; stdcall;
- function ActivateAs(rclsid: TIID; rclsidAs: TIID): HResult; stdcall;
- function SetHostNames(lpstrContainerApp: LPCSTR;
- lpstrContainerObj: LPCSTR): HResult; stdcall;
- function SetLinkAvailable(iob: Longint; fAvailable: BOOL): HResult; stdcall;
- function SetDvaspect(iob: Longint; dvaspect: DWORD): HResult; stdcall;
- function HandsOffStorage(iob: Longint): HResult; stdcall;
- function SaveCompleted(iob: Longint; const stg: IStorage): HResult; stdcall;
- function InPlaceDeactivate: HResult; stdcall;
- function ContextSensitiveHelp(fEnterMode: BOOL): HResult; stdcall;
- function GetClipboardData(var chrg: TCharRange; reco: DWORD;
- out dataobj: IDataObject): HResult; stdcall;
- function ImportDataObject(dataobj: IDataObject; cf: TClipFormat;
- hMetaPict: HGLOBAL): HResult; stdcall;
- end;
-
-
-
-procedure CreateIStorage(out Fstorage: Istorage);
-function GetRichOleInterface(ARichEdit: TRichEdit; out RichOleInterface: IRichEditOle; out OleClientSite: IOleclientSite): boolean;
-procedure REOleSetCallback(RichEdit: TRichEdit; OleInterface: IRichEditOleCallback);
-procedure ReleaseObject(var Obj);
-function SetFormatEtc(Cf: TClipFormat; med: Longint; td: PDVTargetDevice = nil;
- Asp: Longint = DVASPECT_CONTENT; li: Longint = -1): TFormatEtc;
-function OleSwitchDisplayAspect(OleObject: IOleObject; var CurrentAspect: DWORD;
- NewAspect: DWORD; METAFILEPICT: THandle; DeleteOldAspect, SetUpViewAdvise: boolean;
- AdviseSink: IAdviseSink; var MustUpdate: boolean): HRESULT;
-function GetOleClassFile(const Name: string): TCLSID;
-function OleCopyPasString(const Source: string; Malloc: IMalloc = nil): POleStr;
-function SetStgMedium(Stg, Handle: longint; Release: pointer = nil): TStgMedium;
-procedure OleFreeString(Str: POleStr; Malloc: IMalloc = nil);
-function OleMalloc(Size: Longword; Malloc: IMalloc = nil): pointer;
-procedure OleFree(Mem: pointer; Malloc: IMalloc = nil);
-procedure ChangeOleIcon(REdit: TRichEdit; HIcon: Hwnd; LabelIcon: string);
-procedure AddBitmapToRichEdit(bmp: TBitmap; RichEdit: TRichEditWB);
-
-var
- FRichEditModule: THandle;
- RichEditOle: IRichEditOle;
- RichEditOleCallback: IRichEditOleCallback;
- // RichEditVersion : TRichEditVersion;
-
-implementation
-
-uses
-{$IFDEF UNICODE}
- AnsiStrings,
-{$ENDIF UNICODE}
- StdCtrls, dialogs, Forms, Printers, sysUtils, ShellAPI, JPEG;
-
-resourcestring
- sSaveChanges = 'Save changes to %s?';
- sOverWrite = 'The file already exist. Do you want to overwrite %s ?';
- sUntitled = 'Untitled';
-// sModified = 'Modified';
- sColRowInfo = 'Line: %3d Col: %3d';
-
-type
- TImageDataObject = class(TInterfacedObject, IDataObject)
- private
- FMedium: STGMEDIUM;
- FFormat: FORMATETC;
- FHasData: Boolean;
- protected
- function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium): HResult; stdcall;
- function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium): HResult; stdcall;
- function QueryGetData(const formatetc: TFormatEtc): HResult; stdcall;
- function GetCanonicalFormatEtc(const formatetc: TFormatEtc; out formatetcOut: TFormatEtc): HResult; stdcall;
- function SetData(const formatetc: TFormatEtc; var medium: TStgMedium; fRelease: BOOL): HResult; stdcall;
- function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc: IEnumFormatEtc): HResult; stdcall;
- function DAdvise(const formatetc: TFormatEtc; advf: Longint; const advSink: IAdviseSink; out dwConnection: Longint): HResult; stdcall;
- function DUnadvise(dwConnection: Longint): HResult; stdcall;
- function EnumDAdvise(out enumAdvise: IEnumStatData): HResult; stdcall;
- procedure SetBitmap(const ASource: TBitmap);
- function GetOleObject(const AClient: IOleClientSite;
- const AStorage: IStorage): IOleObject;
- public
- class procedure InsertBitmap(ADest: TCustomRichEdit; ASource: TBitmap);
- destructor Destroy(); override;
- end;
-
-class procedure TImageDataObject.InsertBitmap;
-var
- idoImage: TImageDataObject;
- ifOLE: IRichEditOle;
- ifData: IDataObject;
- ifClient: IOleClientSite;
- ifStorage: IStorage;
- ifBytes: ILockBytes;
- ifOLEObject: IOleObject;
- sCode: HRESULT;
- reObj: TREObject;
- gdClass: TGUID;
-begin
- ifOLE := nil;
- SendMessage(ADest.Handle, EM_GETOLEINTERFACE, 0, LPARAM(@ifOLE));
- if Assigned(ifOLE) then
- try
- idoImage := TImageDataObject.Create();
- if idoImage.GetInterface(IDataObject, ifData) then
- try
- idoImage.SetBitmap(ASource);
- ifClient := nil;
- ifOLE.GetClientSite(ifClient);
- if Assigned(ifClient) then
- try
- ifBytes := nil;
- sCode := CreateILockBytesOnHGlobal(0, True, ifBytes);
- if (sCode = S_OK) and (Assigned(ifBytes)) then
- try
- sCode := StgCreateDocfileOnILockBytes(ifBytes, STGM_SHARE_EXCLUSIVE or
- STGM_CREATE or STGM_READWRITE, 0, ifStorage);
- if sCode = S_OK then
- try
- ifOLEObject := idoImage.GetOleObject(ifClient, ifStorage);
- if Assigned(ifOLEObject) then
- try
- OleSetContainedObject(ifOLEObject, True);
- sCode := ifOLEObject.GetUserClassID(gdClass);
- if sCode = S_OK then
- begin
- with reObj do
- begin
- //clsid := '';
- cp := LongInt(REO_CP_SELECTION);
- dvaspect := DVASPECT_CONTENT;
- oleobj := ifOLEObject;
- olesite := ifClient;
- stg := ifStorage;
- end;
- ifOLE.InsertObject(reObj);
- end;
- finally
- ifOLEObject := nil;
- end;
- finally
- ifStorage := nil;
- end;
- finally
- ifBytes := nil;
- end;
- finally
- ifClient := nil;
- end;
- finally
- ifData := nil;
- end;
- finally
- ifOLE := nil;
- end;
-end;
-
-procedure TImageDataObject.SetBitmap;
-begin
- FMedium.tymed := TYMED_GDI;
- FMedium.hBitmap := ASource.Handle;
- FMedium.unkForRelease := nil;
- FFormat.cfFormat := CF_BITMAP;
- FFormat.ptd := nil;
- FFormat.dwAspect := DVASPECT_CONTENT;
- FFormat.lindex := -1;
- FFormat.tymed := TYMED_GDI;
-end;
-
-function TImageDataObject.GetOleObject;
-var
- sCode: HRESULT;
-begin
- sCode := OleCreateStaticFromData(Self, IOleObject, OLERendER_FORMAT,
- @FFormat, AClient, AStorage, Result);
- if sCode <> S_OK then
- begin
- OleCheck(sCode);
- Result := nil;
- end;
-end;
-
-destructor TImageDataObject.Destroy;
-begin
- if FHasData then
- ReleaseStgMedium(FMedium);
- inherited;
-end;
-
-function TImageDataObject.GetData;
-var
- hDest: THandle;
-
-begin
- hDest := OleDuplicateData(FMedium.hBitmap, CF_BITMAP, 0);
- if (hDest <> 0) then
- begin
- medium.tymed := TYMED_GDI;
- medium.hBitmap := hDest;
- medium.unkForRelease := nil;
- Result := S_OK;
- end
- else
- Result := E_HANDLE;
-end;
-
-function TImageDataObject.GetDataHere;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TImageDataObject.QueryGetData;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TImageDataObject.GetCanonicalFormatEtc;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TImageDataObject.SetData;
-begin
- FMedium := medium;
- FFormat := formatetc;
- FHasData := True;
- Result := S_OK;
-end;
-
-function TImageDataObject.EnumFormatEtc;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TImageDataObject.DAdvise;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TImageDataObject.DUnadvise;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TImageDataObject.EnumDAdvise;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TRichEditOleCallback.QueryInterface(const iid: TGUID; out Obj): HResult;
-begin
- if GetInterface(iid, Obj) then
- Result := S_OK
- else
- Result := E_NOINTERFACE;
-end;
-
-function TRichEditOleCallback._AddRef: LongInt;
-begin
- Inc(FRefCount);
- Result := FRefCount;
-end;
-
-function TRichEditOleCallback._Release: LongInt;
-begin
- Dec(FRefCount);
- Result := FRefCount;
-end;
-
-function TRichEditOleCallback.GetNewStorage(out stg: IStorage): HResult;
-begin
- try
- CreateIStorage(stg);
- Result := S_OK;
- except
- Result := E_OUTOFMEMORY;
- end;
-end;
-
-function TRichEditOleCallback.GetClipboardData(const chrg: TCharRange; reco: DWORD;
- out dataobj: IDataObject): HResult;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TRichEditOleCallback.GetContextMenu(seltype: Word;
- const oleobj: IOleObject; const chrg: TCharRange;
- out Menu: HMENU): HResult;
-begin
- // menu:=0;
- Result := S_OK; // Result := E_NOTIMPL;
-end;
-
-function TRichEditOleCallback.GetInPlaceContext(out Frame: IOleInPlaceFrame; out Doc: IOleInPlaceUIWindow; lpFrameInfo: POleInPlaceFrameInfo): HResult;
-begin
- Result := S_OK;
-end;
-
-function TRichEditOleCallback.QueryInsertObject(const clsid: TCLSID; const stg: IStorage;
- cp: Longint): HResult;
-begin
- Result := NOERROR;
-end;
-
-function TRichEditOleCallback.DeleteObject(const oleobj: IOleObject): HResult;
-begin
- if Assigned(oleobj) then
- oleobj.Close(OLECLOSE_NOSAVE);
- Result := NOERROR;
-end;
-
-function TRichEditOleCallback.QueryAcceptData(const dataobj: IDataObject;
- var cfFormat: TClipFormat; reco: DWORD; fReally: BOOL;
- hMetaPict: HGLOBAL): HResult;
-begin
- Result := S_OK;
-end;
-
-function TRichEditOleCallback.ContextSensitiveHelp(fEnterMode: BOOL): HResult;
-begin
- Result := NOERROR;
-end;
-
-function TRichEditOleCallback.GetDragDropEffect(fDrag: BOOL; grfKeyState: DWORD;
- var dwEffect: DWORD): HResult;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TRichEditOleCallback.ShowContainerUI(fShow: BOOL): HResult;
-begin
- Result := S_OK;
-end;
-
-procedure CreateIStorage(out Fstorage: Istorage);
-var
- FlockBytes: IlockBytes;
-begin
- OleCheck(CreateILockBytesOnHGlobal(0, True, FLockBytes));
- OleCheck(StgCreateDocfileOnILockBytes(FLockBytes, STGM_SHARE_EXCLUSIVE or STGM_CREATE or STGM_READWRITE, 0, FStorage))
-end;
-
-function GetRichOleInterface(ARichEdit: TRichEdit; out RichOleInterface: IRichEditOle; out OleClientSite: IOleclientSite): boolean;
-var
- AppName: AnsiString;
-begin
- Result := False;
- if boolean(SendMessage(ARichEdit.Handle, EM_GETOLEINTERFACE, 0, longint(@RichOleInterface))) then
- begin
- try
- AppName := AnsiString(Application.Title);
- if Trim(AppName) = '' then
- AppName := AnsiString(ExtractFileName(Application.ExeName));
- RichOleInterface.SetHostNames(PAnsiChar(AppName), PAnsiChar(AppName));
- RichOleInterface.GetClientSite(OleclientSite);
- Result := True;
- except
- Result := False;
- end;
- end;
-end;
-
-procedure REOleSetCallback(RichEdit: TRichEdit; OleInterface: IRichEditOleCallback);
-begin
- SendMessage(RichEdit.Handle, EM_SETOLECALLBACK, 0, LPARAM(Oleinterface));
-end;
-
-procedure ReleaseObject(var Obj);
-begin
- if IUnknown(Obj) <> nil then
- begin
- IUnknown(Obj)._Release;
- IUnknown(Obj) := nil;
- end;
-end;
-
-function SetFormatEtc(Cf: TClipFormat; med: Longint; td: PDVTargetDevice = nil;
- Asp: Longint = DVASPECT_CONTENT; li: Longint = -1): TFormatEtc;
-begin
- with Result do
- begin
- cfFormat := cf;
- dwAspect := asp;
- ptd := td;
- tymed := med;
- lindex := li
- end
-end;
-
-function OleSwitchDisplayAspect(OleObject: IOleObject; var CurrentAspect: DWORD;
- NewAspect: DWORD; METAFILEPICT: THandle; DeleteOldAspect, SetUpViewAdvise: boolean;
- AdviseSink: IAdviseSink; var MustUpdate: boolean): HRESULT;
-var
- OleCache: IOleCache;
- ViewObject: IViewObject;
- EnumStatData: IEnumStatData;
- StatData: TStatData;
- FormatEtc: TFormatEtc;
- Medium: TStgMedium;
- Advf,
- NewConnection,
- OldAspect: longint;
- Error: HRESULT;
-begin
- OleCache := nil;
- ViewObject := nil;
- EnumStatData := nil;
- OldAspect := CurrentAspect;
- MustUpdate := False;
- if Failed(OleObject.QueryInterface(IOleCache, OleCache)) then
- begin
- Result := E_INVALIDARG;
- Exit
- end;
- FormatEtc := SetFormatEtc(0, TYMED_NULL, nil, NewAspect);
- if (NewAspect = dvaspect_Icon) and (METAFILEPICT <> 0) then
- Advf := advf_nodata
- else
- Advf := ADVF_PRIMEFIRST;
- Result := OleCache.Cache(FormatEtc, Advf, NewConnection);
- if Failed(Result) then
- Exit;
- CurrentAspect := NewAspect;
- if (NewAspect = dvaspect_Icon) and (METAFILEPICT <> 0) then
- begin
- FormatEtc := SetFormatEtc(CF_METAFILEPICT, TYMED_MFPICT, nil, dvaspect_Icon);
- Medium := SetStgMedium(TYMED_MFPICT, METAFILEPICT);
- OleCache.SetData(FormatEtc, Medium, False)
- end
- else
- MustUpdate := True;
- if SetUpViewAdvise and Assigned(AdviseSink) then
- if Succeeded(OleObject.QueryInterface(IViewObject, ViewObject)) then
- begin
- ViewObject.SetAdvise(NewAspect, 0, AdviseSink);
- ViewObject := nil
- end;
- if DeleteOldAspect then
- begin
- Error := OleCache.EnumCache(EnumStatData);
- while Error = S_OK do
- begin
- Error := EnumStatData.Next(1, StatData, nil);
- if Error = S_OK then
- if StatData.FormatEtc.dwAspect = OldAspect then
- OleCache.Uncache(StatData.dwConnection)
- end
- end;
- Result := S_OK
-end;
-
-function GetOleClassFile(const Name: string): TCLSID;
-var
- Buffer: POleStr;
-begin
- Result := CLSID_NULL;
- Buffer := OleCopyPasString(Name);
- try
- OleCheck(GetClassFile(Buffer, Result))
- finally
- if Assigned(Buffer) then
- OleFreeString(Buffer)
- end
-end;
-
-function OleCopyPasString(const Source: string; Malloc: IMalloc = nil): POleStr;
-var
- Size: Integer;
-begin
- Size := Length(Source);
- if Size = 0 then
- Result := nil
- else
- begin
- Inc(Size);
- Result := OleMalloc(Size * SizeOf(WideChar), Malloc);
- if not Assigned(Result) then
- OutOfMemoryError;
- StringToWideChar(Source, Result, Size)
- end
-end;
-
-function SetStgMedium(Stg, Handle: longint; Release: pointer = nil): TStgMedium;
-begin
- Result.tymed := Stg;
- Result.hGlobal := Handle;
- Result.unkForRelease := Release
-end;
-
-procedure OleFreeString(Str: POleStr; Malloc: IMalloc = nil);
-begin
- OleFree(Str, Malloc)
-end;
-
-function OleMalloc(Size: Longword; Malloc: IMalloc = nil): pointer;
-begin
- if not Assigned(Malloc) then
- Result := CoTaskMemAlloc(Size)
- else
- Result := Malloc.Alloc(Size)
-end;
-
-procedure OleFree(Mem: pointer; Malloc: IMalloc = nil);
-var
- Ok: Integer;
-begin
- if not Assigned(Malloc) then
- begin
- Ok := CoGetMalloc(MEMCTX_TASK, Malloc);
- if Ok = NOERROR then
- Assert(Ok = NOERROR, 'CoGetMalloc');
- end;
- Ok := Malloc.DidAlloc(Mem);
- if Ok = S_False then
- Assert(Ok = S_False, 'Impossible to free the memory');
- Malloc.Free(Mem)
-end;
-
-procedure ChangeOleIcon(REdit: TRichEdit; HIcon: Hwnd; LabelIcon: string);
-var
- Update: Boolean;
- Selectiontype: Integer;
- RichEditOle: IRichEditOle;
- OleClientSite: IOleClientSite;
- REObject: TReObject;
-begin
- Update := True;
- FillChar(ReObject, SizeOf(ReObject), 0);
- ReObject.cbStruct := SizeOf(ReObject);
- Selectiontype := SendMessage(Redit.Handle, EM_SELECTIONtype, 0, 0);
- if selectionType = SEL_OBJECT then
- GetRichOleInterface(REdit, RichEditOle, OleClientSite);
- OleCheck(RichEditOle.GetObject(Longint(REO_IOB_SELECTION), ReObject, REO_GETOBJ_POLEOBJ or REO_GETOBJ_POLESITE));
- HIcon := OleMetafilePictFromIconAndLabel(Hicon, OleCopyPasString(LabelIcon), '', 0);
- OleSwitchDisplayAspect(REObject.oleobj, REObject.dvaspect, REObject.dvaspect, Hicon, False, False, nil, Update);
- OleCheck(REobject.oleobj.Update);
-end;
-
-function TRichEditWB.ConvertBitmapToRTF(pict: TBitmap): string;
-var
- bi, bb, rtf: string;
- bis, bbs: Cardinal;
- achar: string;
- hexpict: string;
- I: Integer;
-begin
-
- GetDIBSizes(pict.Handle, bis, bbs);
- SetLength(bi, bis);
- SetLength(bb, bbs);
- GetDIB(pict.Handle, pict.Palette, PChar(bi)^, PChar(bb)^);
- rtf := '{\rtf1 {\pict\dibitmap ';
- SetLength(hexpict, (Length(bb) + Length(bi)) * 2);
- I := 2;
- for bis := 1 to Length(bi) do
- begin
- achar := Format('%x', [Integer(bi[bis])]);
- if Length(achar) = 1 then
- achar := '0' + achar;
- hexpict[I - 1] := achar[1];
- hexpict[I] := achar[2];
- Inc(I, 2);
- end;
- for bbs := 1 to Length(bb) do
- begin
- achar := Format('%x', [Integer(bb[bbs])]);
- if Length(achar) = 1 then
- achar := '0' + achar;
- hexpict[I - 1] := achar[1];
- hexpict[I] := achar[2];
- Inc(I, 2);
- end;
- rtf := rtf + hexpict + ' }}';
- Result := rtf;
-end;
-
-function TRichEditWB.AddFiles(Files: TStrings; Linked: bool; AsIcon: Bool): Integer;
-var
- I: Integer;
- FilePath: string;
- Ind: word;
- HIcon: hwnd;
- Update: boolean;
- OleClientSite: IOleClientSite;
- Storage: IStorage;
- OleObject: IOleObject;
- ReObject: TReObject;
- RichEditOle: IrichEditOle;
-begin
- Ind := 1;
- Update := True;
- FillChar(ReObject, SizeOf(TReObject), 0);
- for I := 0 to Files.Count - 1 do
- begin
- FilePath := Files[I];
- if GetRichOleInterface(Self, RichEDitOle, OleClientSite) then
- begin
- Storage := nil;
- try
- CreateIStorage(Storage);
- if Linked then
- OleCheck(OleCreateLinkToFile(OleCopyPasString(FilePath), IOleObject, OLERendER_DRAW, nil, OleClientSite, Storage, OleObject))
- else
- OleCheck(OleCreateLinkToFile(OleCopyPasString(FilePath), IOleObject, OLERendER_DRAW, nil, OleClientSite, Storage, OleObject));
- with ReObject do
- begin
- cbStruct := SizeOf(TReObject);
- cp := Integer(REO_CP_SELECTION);
- OleObject.GetUserClassId(CLSID);
- oleobj := OleObject;
- stg := Storage;
- olesite := OleClientSite;
- if Asicon then
- DvAspect := DVASPECT_ICON
- else
- DvAspect := DVASPECT_CONTENT;
- dwFlags := REO_RESIZABLE or REO_DYNAMICSIZE;
- end;
- if IsEqualCLSID(REObject.CLSID, CLSID_NULL) then
- REObject.CLSID := GetOleClassFile(FilePath);
- HIcon := ShellAPI.ExtractAssociatedIcon(Application.Handle, PChar(FilePath), Ind);
- HIcon := OleMetafilePictFromIconAndLabel(Hicon, OleCopyPasString(ExtractFileName(FilePath)), '', 0);
- OleSwitchDisplayAspect(OleObject, REObject.dvaspect, REObject.dvaspect, Hicon, False, False, nil, Update);
- OleCheck(RichEditOle.InsertObject(ReObject));
- SendMessage(Self.Handle, EM_SCROLLCARET, 0, 0);
- OleCheck(OleObject.Update);
- finally
- OleClientSite := nil;
- Storage := nil;
- end;
- end;
- end;
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddFile(FilePath: string; Linked: bool; AsIcon: Bool): Integer;
-var
- Ind: word;
- HIcon: hwnd;
- Update: boolean;
- OleClientSite: IOleClientSite;
- Storage: IStorage;
- OleObject: IOleObject;
- ReObject: TReObject;
- RichEditOle: IrichEditOle;
-begin
- inserted := True;
- Ind := 1;
- Update := True;
- FillChar(ReObject, SizeOf(TReObject), 0);
- if GetRichOleInterface(Self, RichEDitOle, OleClientSite) then
- begin
- Storage := nil;
- try
- CreateIStorage(Storage);
- if Linked then
- OleCheck(OleCreateLinkToFile(OleCopyPasString(FilePath),
- IOleObject, OLERendER_DRAW, nil, OleClientSite, Storage, OleObject))
- else
- OleCheck(OleCreateLinkToFile(OleCopyPasString(FilePath),
- IOleObject, OLERendER_DRAW, nil, OleClientSite, Storage, OleObject));
- with ReObject do
- begin
- cbStruct := SizeOf(TReObject);
- cp := Integer(REO_CP_SELECTION);
- OleObject.GetUserClassId(CLSID);
- oleobj := OleObject;
- stg := Storage;
- olesite := OleClientSite;
- if Asicon then
- DvAspect := DVASPECT_ICON
- else
- DvAspect := DVASPECT_CONTENT;
- dwFlags := REO_RESIZABLE or REO_DYNAMICSIZE;
- end;
- if IsEqualCLSID(REObject.CLSID, CLSID_NULL) then
- REObject.CLSID := GetOleClassFile(FilePath);
- HIcon := ShellAPI.ExtractAssociatedIcon(Application.Handle, PChar(FilePath), Ind);
- HIcon := OleMetafilePictFromIconAndLabel(Hicon, OleCopyPasString(ExtractFileName(FilePath)), '', 0);
- OleSwitchDisplayAspect(OleObject, REObject.dvaspect, REObject.dvaspect, Hicon, False, False, nil, Update);
- OleCheck(RichEditOle.InsertObject(ReObject));
- SendMessage(Self.Handle, EM_SCROLLCARET, 0, 0);
- OleCheck(OleObject.Update);
- finally
- OleClientSite := nil;
- Storage := nil;
- end;
- end;
- result := Lines.Count;
-end;
-
-procedure AddBitmapToRichEdit(bmp: Tbitmap; RichEdit: TRichEditWB);
-
- function BitmapToRTF(pict: TBitmap): string;
- var
- bi, bb, rtf: string;
- bis, bbs: Cardinal;
- achar: string;
- hexpict: string;
- I: Integer;
- begin
-
- GetDIBSizes(pict.Handle, bis, bbs);
- SetLength(bi, bis);
- SetLength(bb, bbs);
- GetDIB(pict.Handle, pict.Palette, PChar(bi)^, PChar(bb)^);
- rtf := '{\rtf1 {\pict\dibitmap ';
- SetLength(hexpict, (Length(bb) + Length(bi)) * 2);
- I := 2;
- for bis := 1 to Length(bi) do
- begin
- achar := Format('%x', [Integer(bi[bis])]);
- if Length(achar) = 1 then
- achar := '0' + achar;
- hexpict[I - 1] := achar[1];
- hexpict[I] := achar[2];
- Inc(I, 2);
- end;
- for bbs := 1 to Length(bb) do
- begin
- achar := Format('%x', [Integer(bb[bbs])]);
- if Length(achar) = 1 then
- achar := '0' + achar;
- hexpict[I - 1] := achar[1];
- hexpict[I] := achar[2];
- Inc(I, 2);
- end;
- rtf := rtf + hexpict + ' }}';
- Result := rtf;
- end;
-var
- s: TstringStream;
-begin
- S := TStringStream.Create(BitmapToRTF(bmp));
- RichEdit.PlainText := False;
- // RichEdit.StreamMode := [smSelection];
- RichEdit.Lines.LoadFromStream(S);
- S.Free;
-end;
-
-function TRichEditWB.AddImages(Files: TStrings): Integer;
-var
- Ext: string;
- Pict: TPicture;
- I: Integer;
-begin
- Result := 0;
- Pict := TPicture.Create;
- try
- for I := 0 to Files.Count - 1 do
- begin
- Ext := ExtractFileExt(Files[I]);
- if (Ext = '.bmp') or (Ext = '.gif') or (Ext = '.jpg') or (Ext = '.jpeg') then
- begin
- Pict.LoadFromFile(Files[I]);
- Clipboard.Assign(Pict);
- PasteFromClipboard;
- SendMessage(Handle, WM_PASTE, 0, 0);
- Result := Lines.Count;
- end
- else
- begin
- MessageDlg('This format is not supported in this feature.', mtError, [mbOK], 0);
- end
- end;
- finally
- Pict.Free;
- end;
-end;
-
-function TRichEditWB.AddImageUsingClipboard(FilePath: string): Integer;
-var
- Pict: TPicture;
-begin
- Pict := TPicture.Create;
- try
- inserted := True;
- Pict.LoadFromFile(FilePath);
- Clipboard.Assign(Pict);
- PasteFromClipboard;
- Result := Lines.Count;
- finally
- Pict.Free;
- end;
-end;
-
-function TRichEditWB.AddImage(FilePath: string): Integer;
-var
- ImageBMP: TBitmap;
- ImageJPG: TJPEGImage;
-begin
- WordWrap := False;
- if (Pos('.bmp', FilePath) > 0) or (Pos('.BMP', FilePath) > 0) then
- begin
- try
- inserted := True;
- ImageBMP := TBitmap.Create;
- ImageBMP.LoadFromFile(FilePath);
- Clipboard.Assign(ImageBMP);
- // Clipboard.AsText:=ConvertBitmapToRTF(ImageBMP);
- Result := Lines.Count;
- finally
- PasteFromClipboard;
- end;
- ImageBMP.Free;
- end
- else
- if (Pos('.jp', FilePath) > 0) or (Pos('.JP', FilePath) > 0) then
- begin
- try
- ImageJPG := TJPEGImage.Create;
- ImageJPG.LoadFromFile(FilePath);
- Clipboard.Assign(ImageJPG);
- Result := Lines.Count;
- finally
- PasteFromClipboard;
- end;
- ImageJPG.Free;
- end
- else
- begin
- MessageDlg('This format is not supported in this feature.', mtError, [mbOK], 0);
- Result := 0;
- end
-end;
-
-function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;
- cb: Longint; var pcb: Longint): DWORD; stdcall;
-var
- theStream: TStream;
- dataAvail: LongInt;
-begin
- theStream := TStream(dwCookie);
- with theStream do
- begin
- dataAvail := Size - Position;
- Result := 0;
- if dataAvail <= cb then
- begin
- pcb := Read(pbBuff^, dataAvail);
- if pcb <> dataAvail then
- result := DWord(E_FAIL);
- end
- else
- begin
- pcb := Read(pbBuff^, cb);
- if pcb <> cb then
- result := DWord(E_FAIL);
- end;
- end;
-end;
-
-function EditStreamOutCallback(dwCookie: Longint; pbBuff: PByte; cb:
- Longint; var pcb: Longint): DWORD; stdcall;
-var
- theStream: TStream;
-begin
- theStream := TStream(dwCookie);
- with theStream do
- begin
- if cb > 0 then
- pcb := Write(pbBuff^, cb);
- Result := 0;
- end;
-end;
-
-function TRichEditWB.GetRTFSelection(intoStream: TStream): string;
-var
- editstream: TEditStream;
-begin
- with editstream do
- begin
- dwCookie := Longint(intoStream);
- dwError := 0;
- pfnCallback := EditStreamOutCallBack;
- end;
- Perform(EM_STREAMOUT, SF_RTF or SFF_SELECTION, longint(@editstream));
- Result := SelText;
-end;
-
-function TRichEditWB.AddRTFSelection(sourceStream: TStream): Integer;
-var
- EditStream: TEditStream;
-begin
- with EditStream do
- begin
- dwCookie := Longint(sourceStream);
- dwError := 0;
- pfnCallback := EditStreamInCallBack;
- end;
- Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, longint(@EditStream));
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddRtfText(str: string): Integer;
-var
- aMemStream: TMemoryStream;
-begin
- Result := 0;
- if Length(str) > 0 then
- begin
- aMemStream := TMemoryStream.Create;
- try
- aMemStream.Write(str[1], length(str));
- aMemStream.Position := 0;
- AddRTFSelection(aMemStream);
- Result := Lines.Count;
- finally
- aMemStream.Free;
- end;
- end;
-end;
-
-procedure TRichEditWB.AppendRTF(str: string);
-var
- start, length, eventmask: Integer;
-begin
- eventmask := SendMessage(Handle, EM_SETEVENTMASK, 0, 0);
- SendMessage(Handle, WM_SETREDRAW, 0, 0);
- start := SelStart;
- length := SelLength;
- SelLength := 0;
- SelStart := System.Length(Text);
- AddRtfText(str);
- SelStart := start;
- SelLength := length;
- SendMessage(Handle, WM_SETREDRAW, 1, 0);
- InvalidateRect(Handle, nil, True);
- SendMessage(Handle, EM_SETEVENTMASK, 0, eventmask);
-end;
-
-function TRichEditWB.AddBitmapFromImagelist(const ASource: TCustomImageList;
- const AImageIndex: System.UITypes.TImageIndex): Integer;
-var
- bmpImage: TBitmap;
-begin
- inserted := True;
- bmpImage := TBitmap.Create();
- try
- ASource.GetBitmap(AImageIndex, bmpImage);
- BmpImage.Width := ASource.Width + 1;
- BmpImage.Height := ASource.Height + 1;
- TImageDataObject.InsertBitmap(Self, bmpImage);
- Result := Lines.Count;
- finally
- FreeAndNil(bmpImage);
- end;
-end;
-
-procedure TRichEditWB.WMPaint(var Msg: TWMPaint);
-var
- DC: HDC;
- // R, R1: TRect;
-begin
- DC := GetDC(Handle);
- if Transparent = 1 then
- SetBkMode(DC, Windows.TRANSPARENT)
- else
- SetBkMode(DC, Windows.OPAQUE);
- ReleaseDC(Handle, DC);
- { if RichEditVersion >= 2 then
- inherited
- else
- begin
- if GetUpdateRect(Handle, R, True) then
- begin
- with ClientRect do
- R1 := Rect(Right - 3, Top, Right, Bottom);
- if IntersectRect(R, R, R1) then
- InvalidateRect(Handle, @R1, True);
- end;
- end;}inherited
-end;
-
-procedure TRichEditWB.DoSetMaxLength(Value: Integer);
-begin
- if Value = 0 then
- Value := $FFFFFF;
- SendMessage(Handle, EM_EXLIMITTEXT, 0, Value);
-end;
-
-procedure TRichEditWB.SetHideCaret(const Value: Boolean);
-begin
- if FHideCaret <> Value then
- FHideCaret := Value;
- if FHideCaret then
- Windows.HideCaret(Handle);
-end;
-
-function TRichEditWB.GetLineFromChar(CharIndex: Integer): Integer;
-begin
- Result := SendMessage(Handle, EM_EXLINEFROMCHAR, 0, CharIndex);
-end;
-
-function TRichEditWB.GetLineIndex(LineNo: Integer): Integer;
-begin
- Result := SendMessage(Handle, EM_LINEINDEX, LineNo, 0);
-end;
-
-procedure TRichEditWB.SelectionChange;
-begin
- if Assigned(OnSelectionChange) then
- OnSelectionChange(Self);
-end;
-
-procedure TRichEditWB.CreateParams(var Params: TCreateParams);
-begin
- inherited CreateParams(Params);
- { case RichEditVersion of
- 1: CreateSubClass(Params, RICHEDIT_CLASS10A);
- else
- CreateSubClass(Params, RICHEDIT_CLASS);
- end; }
- Params.Style := Params.Style or WS_CLIPCHILDREN;
- if FRichEditModule = 0 then
- begin
- FRichEditModule := LoadLibrary('RICHED20.DLL');
- if FRichEditModule <= HINSTANCE_ERROR then
- FRichEditModule := 0;
- end;
- CreateSubClass(Params, RICHEDIT_CLASS);
-end;
-
-procedure TRichEditWB.WMWindowPosChanged(var Message: TWMWindowPosChanged);
-begin
- inherited;
- SetEditRect;
-end;
-
-procedure TRichEditWB.SetEditRect;
-var
- Loc: TRect;
-begin
- SetRect(Loc, FLeftGap, FTopGap, (ClientWidth - 1) - FRightGap, (ClientHeight + 1) - FBottomGap);
- SendMessage(Handle, EM_SETRECTNP, 0, LongInt(@Loc));
-end;
-
-procedure TRichEditWB.setLeftGap(Value: Integer);
-begin
- if (FLeftGap <> Value) and (Value > -1) then
- begin
- FLeftGap := Value;
- ReCreateWnd;
- end;
-end;
-
-procedure TRichEditWB.setTopGap(Value: Integer);
-begin
- if (FTopGap <> Value) and (Value > -1) then
- begin
- FTopGap := Value;
- ReCreateWnd;
- end;
-end;
-
-procedure TRichEditWB.setRightGap(Value: Integer);
-begin
- if (FRightGap <> Value) and (Value > -1) then
- begin
- FRightGap := Value;
- ReCreateWnd;
- end;
-end;
-
-procedure TRichEditWB.setBottomGap(Value: Integer);
-begin
- if (FBottomGap <> Value) and (Value > -1) then
- begin
- FBottomGap := Value;
- ReCreateWnd;
- end;
-end;
-
-procedure TRichEditWB.PrintAll;
-var
- PD: TPrintDialog;
-begin
- PD := TPrintDialog.Create(Self);
- try
- if PD.Execute then
- begin
- Print(Self.Lines.Text);
- end;
- finally
- PD.Free;
- end;
-end;
-
-function TRichEditWB.AddText(const txt: string): Integer;
-begin
- Lines.Add(txt);
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddTextByCursor(str: string): Integer;
-var
- Str1: string;
- i, ui: Integer;
-begin
- ui := Length(Lines[CaretPos.y]);
- str1 := Lines[CaretPos.y];
- if Pos('<$Cursor$>', str) > 0 then
- begin
- i := Pos('<$Cursor$>', str);
- str := StringReplace(str, '<$Cursor$>', '', [rfReplaceAll, rfIgnoreCase]);
- i := i - 1 + ui;
- end
- else
- i := -30;
- System.Insert(str, Str1, CaretPos.x + 1);
- Lines[CaretPos.y] := str1;
- if i <> -30 then
- begin
- SelStart := Perform(EM_LINEINDEX, CaretPos.y, 0) + i;
- SetFocus;
- end;
- Result := Lines.Count;
-end;
-
-function TRichEditWB.GetCharactersCount: Integer;
-begin
- Result := GetTextLen;
-end;
-
-procedure TRichEditWB.SetTabWidth(FTabWidth: Integer);
-begin
- WantTabs := True;
- SendMessage(Handle, EM_SETTABSTOPS, 1, Longint(@FTabWidth));
-end;
-
-procedure TRichEditWB.SetOffSetsValues(SetTo: Integer);
-var
- Rect: TRect;
-begin
- SendMessage(Handle, EM_GETRECT, 0, LongInt(@Rect));
- Rect.Left := SetTo;
- SendMessage(Handle, EM_SETRECT, 0, LongInt(@Rect));
- Refresh;
-end;
-
-function TRichEditWB.GetLineLength(CharIndex: Integer): Integer;
-begin
- Result := SendMessage(Handle, EM_LINELENGTH, CharIndex, 0);
-end;
-
-procedure TRichEditWB.SetToOEM(var Key: AnsiChar);
-var
- ch: string[1];
-begin
-
- Font.Handle := GetStockObject(OEM_FIXED_FONT);
- CharToOem(@Key, @ch[1]);
- Key := ch[1];
-end;
-
-procedure TRichEditWB.GetMemStatus;
-var
- memory: TMemoryStatus;
-begin
- memory.dwLength := SizeOf(memory);
- GlobalMemoryStatus(memory);
- ShowMessage('Total memory: ' + IntToStr(memory.dwTotalPhys) + ' Bytes'
- + #10 + #13 + 'Available memory: ' + IntToStr(memory.dwAvailPhys) + ' Bytes');
-end;
-
-function TRichEditWB.IsSeparator(Car: Char): Boolean;
-begin
- case Car of
- '.', ';', ',', ':', '!', '"', '''', '^', '+', '-', '*', '/', '\', ' ',
- '`', '[', ']', '(', ')', '{', '}', '?', '%', '=': Result := True;
- else
- Result := False;
- end;
-end;
-
-function TRichEditWB.GetNextWord(var s: string; var PrevWord: string): string;
-begin
- Result := '';
- PrevWord := '';
- if s = '' then
- Exit;
- while (s <> '') and IsSeparator(s[1]) do
- begin
- PrevWord := PrevWord + s[1];
- Delete(s, 1, 1);
- end;
- while (s <> '') and not IsSeparator(s[1]) do
- begin
- Result := Result + s[1];
- Delete(s, 1, 1);
- end;
-end;
-
-function TRichEditWB.IsNumber(s: string): Boolean;
-var
- i: Integer;
-begin
- Result := False;
- for i := 1 to Length(s) do
- case s[i] of
- '0'..'9': ;
- else
- Exit;
- end;
- Result := True;
-end;
-
-function TRichEditWB.GetVisibleLines: Integer;
-begin
- Result := Height div (Abs(Self.Font.Height) + 2);
-end;
-
-procedure TRichEditWB.DoHighlightHtml;
-var
- ms: TMemoryStream;
-begin
- if HighlightHTML then
- begin
- HTMLSyn := THighlightHTML.Create;
- try
- HTMLSyn.SetText(Text);
- ms := TMemoryStream.Create;
- try
- HTMLSyn.ConvertToRTFStream(ms);
- PlainText := False;
- ms.Position := 0;
- Lines.LoadFromStream(ms);
- PlainText := True;
- finally
- ms.Free;
- end;
- finally
- HTMLSyn.Free;
- end;
- end;
-end;
-
-procedure TRichEditWB.DoHighlightXML;
-var
- ms: TMemoryStream;
-begin
- if HighlightXML then
- begin
- XMLSyn := THighlightXML.Create;
- try
- XMLSyn.SetText(Text);
- ms := TMemoryStream.Create;
- try
- XMLSyn.ConvertToRTFStream(ms);
- PlainText := False;
- ms.Position := 0;
- Lines.LoadFromStream(ms);
- PlainText := True;
- finally
- ms.Free;
- end;
- finally
- XMLSyn.Free;
- end;
- end;
-end;
-
-procedure TRichEditWB.CreateSnapShot(Pic: TBitmap);
-var
- psd: TSaveDialog;
- Range: TFormatRange;
- TextBounary: TRect;
-begin
- Pic.Width := Width;
- Pic.Height := Height;
- if (Pic.Width <> 0) and (Pic.Height <> 0) then
- Pic.Canvas.Draw(0, 0, Pic)
- else
- with Pic.Canvas do
- begin
- Brush.Color := Color;
- FillRect(ClipRect);
- end;
- Pic.Canvas.Brush.Style := bsClear;
- TextBounary := Rect(0, 0, Width * Screen.PixelsPerInch, Height * Screen.PixelsPerInch);
- with Range do
- begin
- hdc := Pic.Canvas.Handle;
- hdcTarget := Pic.Canvas.Handle;
- rc := TextBounary;
- rcPage := TextBounary;
- chrg.cpMin := 0;
- chrg.cpMax := -1;
- end;
- SendMessage(Handle, EM_FORMATRANGE, 1, Longint(@Range));
- SendMessage(Handle, EM_FORMATRANGE, 0, 0);
- if not Assigned(fImage) then
- begin
- psd := TSaveDialog.Create(Self);
- psd.FileName := 'EditorImage.bmp';
- psd.Filter := 'BMP file | (*.bmp)';
- try
- if psd.Execute then
- if FileExists(psd.FileName) then
- if MessageDlg(Format(sOverWrite, [psd.FileName]), mtConfirmation, mbYesNoCancel, 0)
- <> idYes then
- Exit;
- Pic.SaveToFile(psd.FileName + '.bmp');
- finally
- psd.Free;
- end;
- end;
-end;
-
-procedure TRichEditWB.CutSel(Sender: TObject);
-begin
- if not ReadOnly then
- CutToClipboard;
-end;
-
-procedure TRichEditWB.Prnt(Sender: TObject);
-begin
- Print(Text);
-end;
-
-procedure TRichEditWB.CopySel(Sender: TObject);
-begin
- CopyToClipboard;
-end;
-
-procedure TRichEditWB.ClearSel(Sender: TObject);
-begin
- if not ReadOnly then
- ClearSelection;
-end;
-
-procedure TRichEditWB.PasteSel(Sender: TObject);
-begin
- if not ReadOnly then
- PasteFromClipboard;
-end;
-
-procedure TRichEditWB.SelAll(Sender: TObject);
-begin
- SelectAll;
-end;
-
-procedure TRichEditWB.ClearAll(Sender: TObject);
-begin
- if not ReadOnly then
- Clear;
-end;
-
-procedure TRichEditWB.UndoLast(Sender: TObject);
-begin
- Undo;
-end;
-
-procedure TRichEditWB.SetHyperLink(Setlink: Boolean; wParam: Integer);
-var
- cf: TCharFormat;
-begin
- FillChar(cf, SizeOf(cf), 0);
- cf.cbSize := SizeOf(cf);
- cf.dwMask := CFM_LINK or CFM_COLOR or CFM_UNDERLINE;
-
- if Setlink then
- begin
- cf.dwEffects := CFE_LINK or CFE_UNDERLINE;
- cf.crTextColor := COLORREF(clBlue);
- end
- else
- cf.crTextColor := Font.Color;
- SendMessage(Handle, EM_SETCHARFORMAT, wParam, Integer(@cf));
-end;
-
-procedure TRichEditWB.SetSelectionHyperLink(Hyperlink: Boolean);
-begin
- SetHyperlink(Hyperlink, SCF_SELECTION);
-end;
-
-procedure TRichEditWB.SetWordHyperLink(Hyperlink: Boolean);
-begin
- SetHyperlink(Hyperlink, SCF_WORD or SCF_SELECTION);
-end;
-
-procedure TRichEditWB.DoURLClick(const URL: string);
-var
- X: Olevariant;
-begin
- if fAutoNavigate then
- begin
- if Assigned(FOnURLClick) then
- OnURLClick(Self, URL)
- else
- if Assigned(FEmbeddedWB) then
- begin
- FEmbeddedWB.Navigate(Url, X, X, X, X);
- FEmbeddedWB.SetFocusToDoc;
- end;
- end;
-end;
-
-procedure TRichEditWB.CNNotify(var Msg: TWMNotify);
-var
- p: TENLink;
- sURL: string;
-begin
- if fHighlightURL then
- begin
- if (Msg.NMHdr^.code = EN_LINK) then
- begin
- p := TENLink(Pointer(Msg.NMHdr)^);
- if (p.Msg = WM_LBUTTONDOWN) then
- begin
- try
- SendMessage(Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
- sURL := SelText;
- DoURLClick(sURL);
- except
- end;
- end;
- end;
- inherited;
- end;
-end;
-
-procedure TRichEditWB.CreateWnd;
-{var
- mask: Word;}
-begin
- inherited CreateWnd;
- Modified := FModified;
- if fHighlightURL then
- SendMessage(Handle, EM_AUTOURLDETECT, 1, 0);
- // mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0);
-// SendMessage(Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
- SendMessage(Handle, EM_SETBKGNDCOLOR, 0, ColorToRGB(Color));
-
- DoSetMaxLength(MaxLength);
-end;
-
-procedure TRichEditWB.DestroyWnd;
-begin
- FModified := Modified;
- inherited DestroyWnd;
-end;
-
-procedure TRichEditWB.WndProc(var Msg: TMessage);
-
- procedure Scroll(Msg, ScrollCode: Integer);
- begin
- Perform(Msg, ScrollCode, 0);
- Perform(Msg, SB_endSCROLL, 0);
- end;
-
-begin
- if FHideCaret and not (csDesigning in ComponentState) then
- begin
- case Msg.Msg of
- WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MOUSEMOVE,
- WM_LBUTTONDBLCLK, WM_CHAR, WM_KEYUP:
- begin
- Msg.Result := 0;
- if Msg.Msg = WM_LBUTTONDOWN then
- if not Focused then
- SetFocus;
- Exit;
- end;
- WM_KEYDOWN:
- begin
- case Msg.WParam of
- VK_DOWN:
- Scroll(WM_VSCROLL, SB_LINEDOWN);
- VK_UP:
- Scroll(WM_VSCROLL, SB_LINEUP);
- VK_LEFT:
- Scroll(WM_HSCROLL, SB_LINELEFT);
- VK_RIGHT:
- Scroll(WM_HSCROLL, SB_LINERIGHT);
- VK_NEXT:
- Scroll(WM_VSCROLL, SB_PAGEDOWN);
- VK_PRIOR:
- Scroll(WM_VSCROLL, SB_PAGEUP);
- VK_HOME:
- Scroll(WM_VSCROLL, SB_TOP);
- VK_end:
- Scroll(WM_VSCROLL, SB_BOTTOM);
- end;
- Msg.Result := 0;
- Exit;
- end;
- end;
- end;
- inherited WndProc(Msg);
-end;
-
-constructor TRichEditWB.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- if AcceptDragComponnents then
- begin
- ControlStyle := ControlStyle + [csAcceptsControls];
- end;
- CompCount := 0;
- fAcceptDragComponnents := True;
- fAcceptDragFiles := True;
- fAutoNavigate := True;
- FBottomGap := 0;
- fFileName := sUntitled;
- fHideCaret := False;
- fHighlightURL := True;
- fHTMLHighlight := True;
- fLeftGap := 0;
- fMoreThen64KB := False;
- fRightGap := 0;
- fStream := TMemoryStream.Create;
- fTopGap := 0;
- fXMLHighlight := True;
- ScrollBars := ssBoth;
- ShowHint := True;
- WordWrap := True;
- FAutoVerbMenu := True;
- FMax := 0;
- FSelection.cpMin := 0;
- FSelection.cpMax := 0;
-end;
-
-function TRichEditWB.GetPopupMenu: TPopupMenu;
-var
- canCopy: Boolean;
-begin
- Result := inherited GetPopupMenu;
- canCopy := SelText <> '';
- if FAutoVerbMenu and not Assigned(PopupMenu) then
- begin
- FPopupVerbMenu := TPopupMenu.Create(Self);
- with FPopupVerbMenu do
- begin
- Items.Clear;
- CleanupInstance;
- with Items do
- begin
- Add(NewItem('Undo', 0, False, CanUndo, UndoLast, 0, 'MenuItem0'));
- Add(NewLine);
- Add(NewItem('Cut', 0, False, canCopy, CutSel, 2, 'MenuItem2'));
- Add(NewItem('Copy', 0, False, canCopy, CopySel, 3, 'MenuItem3'));
- Add(NewItem('Paste', 0, False, True, PasteSel, 4, 'MenuItem4'));
- Add(NewItem('Select All', 0, False, True, SelAll, 5, 'MenuItem5'));
- Add(NewLine);
- Add(NewItem('Clear', 0, False, True, ClearAll, 6, 'MenuItem6'));
- Add(NewItem('Clear Selection', 0, False, canCopy, ClearSel, 7, 'MenuItem7'));
- Add(NewLine);
- Add(NewItem('Find', 0, False, True, FindDialog, 8, 'MenuItem8'));
- Add(NewLine);
- if fXMLHighlight then
- Add(NewItem('HighLight XML', 0, False, True, DoXMLrc, 9, 'MenuItem9'));
- if fHTMLHighlight then
- Add(NewItem('HighLight HTML', 0, False, True, DoHTMLrc, 10, 'MenuItem10'));
- Add(NewLine);
- Add(NewItem('Print', 0, False, True, Prnt, 12, 'MenuItem12'));
- Add(NewItem('Print Selected Text', 0, False, canCopy, PrintSel, 13, 'MenuItem13'));
- PostMessage(Handle, WM_NULL, 0, 0);
- end;
- Result := FPopupVerbMenu;
- end;
- end;
-end;
-
-procedure TRichEditWB.EMExSetSel(var Message: TMessage);
-var
- ISel: Integer;
- XSel: ^TCharRange absolute ISel;
-begin
- inherited;
- ISel := Message.LParam;
- FSelection := XSel^;
-end;
-
-procedure TRichEditWB.EMReplaceSel(var Message: TMessage);
-begin
- inherited;
- FMax := FSelection.cpMax + length(PChar(Message.LParam));
-end;
-
-function TRichEditWB.GetSelStart: Integer;
-begin
- if FMax = 0 then
- Result := inherited GetSelStart
- else
- begin
- Result := FMax;
- FMax := 0;
- end;
-end;
-
-procedure TRichEditWB.SetTextAlignment(al: TAlignment);
-begin
- Paragraph.Alignment := al;
-end;
-
-procedure TRichEditWB.SetThemes(thm: TThemes);
-begin
- Themes := Thm;
- if Thm = tBlack then
- begin
- color := clBlack;
- Font.Color := clWhite;
- end
- else
- if Thm = tAluminum then
- begin
- color := clSilver;
- Font.Color := clWhite;
- end
- else
- if Thm = tLight then
- begin
- color := clInfoBk;
- Font.Color := clBlack;
- end
- else
- if Thm = tXP then
- begin
- color := RGB(237, 242, 251);
- Font.Color := clBlack;
- end
- else
- if Thm = tDefault then
- begin
- color := clWindow;
- Font.Color := clBlack;
- end;
-
-end;
-
-procedure TRichEditWB.Loaded;
-begin
- inherited Loaded;
- FMyCallback := TRichEditOleCallback.Create;
- REOleSetCallback(Self, FMyCallBack);
- SetTextAlignment(TextAlignment);
- SetThemes(FThemes);
- // if assigned(Fstatusbar) then OldStatusBarW := Fstatusbar.Panels[0].Width;
- UpdateInfo;
- DragAcceptFiles(Handle, True);
- if fMoreThen64KB then
- SendMessage(Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);
- if ShowHint then
- SetModified(True);
- WordWrap := True;
- WordWrap := False;
- inserted := False;
-end;
-
-destructor TRichEditWB.Destroy;
-begin
- // Fstatusbar.Panels[0].Width := OldStatusBarW;
- FMyCallback.Free;
- FStream.Free;
- inherited Destroy;
-end;
-
-procedure TRichEditWB.DblClick;
-begin
- inherited;
-end;
-
-procedure TRichEditWB.MouseMove(Shift: TShiftState; X, Y: Integer);
-begin
- inherited;
-end;
-
-function TRichEditWB.GetModified: Boolean;
-begin
- Result := FModified;
- if HandleAllocated then
- Result := SendMessage(Handle, EM_GETMODIFY, 0, 0) <> 0;
-end;
-
-function TRichEditWB.GetCanUndo: Boolean;
-begin
- Result := False;
- if HandleAllocated then
- Result := SendMessage(Handle, EM_CANUNDO, 0, 0) <> 0;
-end;
-
-procedure TRichEditWB.SelectFont;
-var
- fd: TFontDialog;
-begin
- fd := TFontDialog.Create(Self);
- try
- fd.Font.Assign(SelAttributes);
-
- if Fd.Execute then
- Font.Assign(fd.Font);
- SetFocus;
- finally
- fd.Free;
- end;
-end;
-
-procedure TRichEditWB.SetFontBold;
-begin
- with SelAttributes do
- if fsBold in Style then
- Style := Style - [fsBold]
- else
- Style := Style + [fsBold];
-end;
-
-procedure TRichEditWB.SetFontUnderLine;
-begin
- with SelAttributes do
- if fsUnderLine in Style then
- Style := Style - [fsUnderLine]
- else
- Style := Style + [fsUnderLine];
-end;
-
-procedure TRichEditWB.SetFontItalic;
-begin
- with SelAttributes do
- if fsItalic in Style then
- Style := Style - [fsItalic]
- else
- Style := Style + [fsItalic];
-end;
-
-procedure TRichEditWB.SetFontSize;
-begin
- SelAttributes.Size := SelAttributes.Size + 2;
-end;
-
-procedure TRichEditWB.SetFontColor;
-var
- CD: TColorDialog;
-begin
- CD := TColorDialog.Create(Self);
- try
- CD.Color := clBlack;
- if CD.Execute then
- SelAttributes.Color := CD.Color;
- finally
- CD.Free;
- end;
-end;
-
-procedure TRichEditWB.SetColor;
-var
- CD: TColorDialog;
-begin
- CD := TColorDialog.Create(Self);
- try
- CD.Color := clWhite;
- if CD.Execute then
- Color := CD.Color;
- finally
- CD.Free;
- end;
-end;
-
-procedure TRichEditWB.SetSelectedBgColor;
-var
- Format: CHARFORMAT2;
- CD: TColorDialog;
-begin
- CD := TColorDialog.Create(Self);
- try
- CD.Color := clYellow;
- if CD.Execute then
- FillChar(Format, SizeOf(Format), 0);
- with Format do
- begin
- cbSize := SizeOf(Format);
- dwMask := CFM_BACKCOLOR;
- crBackColor := CD.Color;
- Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
- end;
- finally
- CD.Free;
- end;
-end;
-
-procedure TRichEditWB.CheckCapslock;
-begin
- if Odd(GetKeyState(VK_CAPITAL)) then
- CapsLockKey := 'Caps Lock: On'
- else
- CapsLockKey := 'Caps Lock: Off';
-end;
-
-procedure TRichEditWB.CheckInsertKey;
-begin
- if Odd(GetKeyState(VK_INSERT)) then
- InsertKey := 'Insert: On'
- else
- InsertKey := 'Insert: Off';
-end;
-
-procedure TRichEditWB.CheckNumLock;
-begin
- if Odd(GetKeyState(VK_NUMLOCK)) then
- NumLockKey := 'NumLock: On'
- else
- NumLockKey := 'NumLock: Off';
-end;
-
-procedure TRichEditWB.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-{var
- CurPos: TPoint;
- Popup : TPopupMenu; }
-begin
- UpdateInfo;
- LineIndex := Perform(EM_LINEFROMCHAR, SelStart, 0);
- {if not Assigned(PopupMenu) then
- begin
- if button = mbRight then
- begin
- Popup := TPopupMenu.Create(self);
- PopupMenu := Popup;
- with popup do
- begin
- Items.Clear;
- CleanupInstance;
- GetCursorPos(CurPos);
- Popup(CurPos.x, CurPos.y);
- with Items do
- begin
- Add(NewItem('Undo',0, False, True, UndoLast, 0, 'MenuItem0'));
- Add(NewLine);
- Add(NewItem('Cut', 0, False, True, CutSel, 2, 'MenuItem2'));
- Add(NewItem('Copy', 0, False, True, CopySel, 3, 'MenuItem3'));
- Add(NewItem('Paste', 0, False, True, PasteSel, 4, 'MenuItem4'));
- Add(NewItem('Select All', 0, False, True, SelAll, 5, 'MenuItem5'));
- Add(NewLine);
- Add(NewItem('Clear', 0, False, True, ClearAll, 6, 'MenuItem6'));
- Add(NewItem('Clear Selection', 0, False, True, ClearSel, 7, 'MenuItem7'));
- Add(NewLine);
- Add(NewItem('Find', 0, False, True, FindDialog, 8, 'MenuItem8'));
- Add(NewLine);
- if fXMLHighlight then
- Add(NewItem('HighLight XML', 0, False, True, DoXMLrc, 9, 'MenuItem9'));
- if fHTMLHighlight then
- Add(NewItem('HighLight HTML', 0, False, True, DoHTMLrc, 10, 'MenuItem10'));
- Add(NewLine);
- Add(NewItem('Print', 0, False, True, Prnt, 12, 'MenuItem12'));
- Add(NewItem('Print Selected Text', 0, False, True, PrintSel, 13, 'MenuItem13'));
- end;
- end;
- PostMessage(Handle, WM_NULL, 0, 0);
- end;
- end; }
- inherited;
-end;
-
-procedure TRichEditWB.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- inherited;
-end;
-
-procedure TRichEditWB.KeyDown(var Key: Word; Shift: TShiftState);
-begin
- inherited;
- UpdateInfo;
- LineIndex := Perform(EM_LINEFROMCHAR, SelStart, 0);
-end;
-
-procedure TRichEditWB.KeyPress(var Key: Char);
-const
- KEY_CTRL_A = 01;
- KEY_CTRL_B = 02;
- KEY_CTRL_F = 06;
- KEY_CTRL_I = 9;
- KEY_CTRL_P = 16;
- KEY_CTRL_S = 19;
- KEY_CTRL_U = 21;
-begin
- if (Ord(Key) = KEY_CTRL_B) or (Ord(Key) = KEY_CTRL_I) or (Ord(Key) = KEY_CTRL_S)
- or (Ord(Key) = KEY_CTRL_U) then
- begin
- with SelAttributes do
- case Ord(Key) of
- KEY_CTRL_B:
- begin
- Key := #0;
- if fsBold in Style then
- Style := Style - [fsBold]
- else
- Style := Style + [fsBold];
- end;
- KEY_CTRL_I:
- begin
- Key := #0;
- if fsItalic in Style then
- Style := Style - [fsItalic]
- else
- Style := Style + [fsItalic];
- end;
- KEY_CTRL_S:
- begin
- Key := #0;
- if fsStrikeout in Style then
- Style := Style - [fsStrikeout]
- else
- Style := Style + [fsStrikeout];
- end;
- KEY_CTRL_U:
- begin
- Key := #0;
- if fsUnderline in Style then
- Style := Style - [fsUnderline]
- else
- Style := Style + [fsUnderline];
- end;
- end;
- end;
- if (Ord(Key) = KEY_CTRL_A) then
- begin
- SelectAll;
- end
- else
- if (Ord(Key) = KEY_CTRL_F) then
- begin
- Find;
- end
- else
- if (Ord(Key) = KEY_CTRL_P) then
- begin
- PrintAll;
- end;
-end;
-
-function TRichEditWB.SelectLine(Index: Integer): boolean;
-var
- StartPos, endPos: Integer;
-begin
- result := False;
- if Index < 0 then
- Exit;
- StartPos := Perform(EM_LINEINDEX, Index, 0);
- if StartPos <> -1 then
- begin
- endPos := SendMessage(Handle, EM_LINEINDEX, Index + 1, 0);
- if endPos = -1 then
- endPos := StartPos + Perform(EM_LINELENGTH, StartPos, 0);
- Perform(EM_SETSEL, StartPos, endPos);
- result := True;
- end;
-end;
-
-function TRichEditWB.GetSelectedText(var SelectedText: string): boolean;
-begin
- SelectedText := SelText;
- if SelectedText <> '' then
- result := True
- else
- begin
- MessageDlg('Please select text before using this feature.', mtError, [mbOK], 0);
- result := False;
- end;
-end;
-
-procedure TRichEditWB.MailSelected;
-var
- em_body, em_mail, em_subject: string;
-begin
- if GetSelectedText(em_body) then
- begin
- em_subject := 'Check it out please.';
- em_mail := 'mailto:?subject=' +
- em_subject + '&body=' + em_body;
- ShellExecute(Handle, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL);
- end;
-end;
-
-procedure TRichEditWB.MailContext;
-var
- em_body, em_mail, em_subject: string;
-begin
- em_body := Lines.GetText;
- if em_body <> '' then
- begin
- em_subject := 'Check it out please.';
- em_mail := 'mailto:?subject=' +
- em_subject + '&body=' + em_body;
- ShellExecute(Handle, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL);
- end
- else
- MessageDlg('Please enter text before using this feature.', mtError, [mbOK], 0);
-end;
-
-function TRichEditWB.GetLineCount: Integer;
-begin
- GetLineCount := lines.Count;
-end;
-
-function TRichEditWB.AddDateAndTime: Integer;
-var
- lt: TSYSTEMTIME;
- st: TSYSTEMTIME;
-begin
- GetLocalTime(lt);
- GetSystemTime(st);
- Lines.Add('Date: ' + IntToStr(lt.wMonth) + '/' + IntToStr(lt.wDay) + '/' +
- IntToStr(lt.wYear) + ' On: ' + IntToStr(lt.wHour) + ':' +
- IntToStr(lt.wMinute) + ':' + IntToStr(lt.wSecond));
- Result := Lines.Count;
-end;
-
-procedure TRichEditWB.AlignText(alignment: TAlignment);
-begin
- Paragraph.Alignment := alignment;
-end;
-
-function TRichEditWB.ChangeToANSIChangeCase(const S: string): string;
-var
- i: Integer;
- Up: ANSIChar;
-begin
-
- Result := S;
- for i := 1 to Length(Result) do
- begin
- Up := ANSIChar(ANSIUpperCase(Result[i])[1]);
- if ANSIChar(Result[i]) = Up then
- Result[i] := (ANSILowerCase(Result[i])[1])
- else
- Result[i] := ANSIUpperCase(Result[i])[1];
- end;
-end;
-
-function TRichEditWB.AddFormatedText(const txt: string; Bold, Italic, Strikeout,
- Underline: boolean; txtColor: TColor): Integer;
-begin
- with SelAttributes do
- begin
- if Bold then
- Style := Style + [fsBold]
- else
- Style := Style - [fsBold];
- if Italic then
- Style := Style + [fsItalic]
- else
- Style := Style - [fsItalic];
- if Strikeout then
- Style := Style + [fsStrikeout]
- else
- Style := Style - [fsStrikeout];
- if Underline then
- Style := Style + [fsUnderline]
- else
- Style := Style - [fsUnderline];
- Color := txtColor;
- end;
- SelText := (txt);
- Result := Lines.Count;
-end;
-
-function TRichEditWB.RemoveTextFormats: Integer;
-begin
- Font.Size := 8;
- with SelAttributes do
- begin
- Style := Style - [fsBold];
- Style := Style - [fsItalic];
- Style := Style - [fsStrikeout];
- Style := Style - [fsUnderline];
- Color := clBlack;
- end;
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddEmptyLine: Integer;
-begin
- Lines.Add('');
- Result := Lines.Count;
-end;
-
-procedure TRichEditWB.SetLineSpacing(lineSpacing: Byte);
-var
- pf2: ParaFormat2;
-begin
- FillChar(pf2, SizeOf(pf2), 0);
- pf2.cbSize := SizeOf(PARAFORMAT2);
- pf2.dwMask := PFM_LINESPACING;
- pf2.bLineSpacingRule := lineSpacing;
- SendMessage(Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
-end;
-
-procedure TRichEditWB.SetToMoreThen64KB;
-begin
- SendMessage(Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);
-end;
-
-procedure TRichEditWB.PrintSelectedText;
-var
- printarea: TRect;
- richedit_outputarea: TRect;
- printresX, printresY: Integer;
- fmtRange: TFormatRange;
- nextChar: Integer;
- S: string;
-begin
- Printer.beginDoc;
- try
- with Printer.Canvas do
- begin
- printresX := GetDeviceCaps(Handle, LOGPIXELSX);
- printresY := GetDeviceCaps(Handle, LOGPIXELSY);
- printarea := Rect(printresX, printresY * 3 div 2, Printer.PageWidth -
- printresX, Printer.PageHeight - printresY * 3 div 2);
- richedit_outputarea := Rect(printarea.Left * 1440 div printresX,
- printarea.Top * 1440 div printresY, printarea.Right * 1440 div printresX,
- printarea.Bottom * 1440 div printresY);
- fmtRange.hDC := Handle;
- fmtRange.hdcTarget := Handle;
- fmtRange.rc := richedit_outputarea;
- fmtRange.rcPage := Rect(0, 0, Printer.PageWidth * 1440 div printresX,
- Printer.PageHeight * 1440 div printresY);
- fmtRange.chrg.cpMin := selstart;
- fmtRange.chrg.cpMax := selStart + sellength - 1;
- S := SelText;
- while (fmtRange.chrg.cpMax > 0) and
- (S[fmtRange.chrg.cpMax] <= ' ') do
- Dec(fmtRange.chrg.cpMax);
- repeat
- nextChar := Perform(EM_FORMATRANGE, 1, Longint(@fmtRange));
- if nextchar < fmtRange.chrg.cpMax then
- begin
- printer.newPage;
- fmtRange.chrg.cpMin := nextChar;
- end;
- until nextchar >= fmtRange.chrg.cpMax;
- Perform(EM_FORMATRANGE, 0, 0);
- end;
- finally
- Printer.endDoc;
- end;
-end;
-
-function TRichEditWB.SearchForTextAndSelect(SearchText: string): string;
-var
- StartPos, Position, endpos: Integer;
-begin
- StartPos := 0;
- endpos := Length(Text);
- Lines.beginUpdate;
- while FindText(SearchText, StartPos, endpos, [stMatchCase]) <> -1 do
- begin
- endpos := Length(Text) - startpos;
- Position := FindText(SearchText, StartPos, endpos, [stMatchCase]);
- Inc(StartPos, Length(SearchText));
- SetFocus;
- SelStart := Position;
- SelLength := Length(SearchText);
- result := SelText;
- end;
- Lines.endUpdate;
-end;
-
-procedure TRichEditWB.FindDialogFind(Sender: TObject);
-var
- S: string;
- startpos: Integer;
-begin
- SelStart := 0;
- with TFindDialog(Sender) do
- begin
- if FSelPos = 0 then
- Options := Options - [frFindNext];
- if frfindNext in Options then
- begin
- StartPos := FSelPos + Length(Findtext);
- S := Copy(Lines.Text, StartPos, MaxInt);
- end
- else
- begin
- S := Lines.Text;
- StartPos := 1;
- end;
- FSelPos := Pos(FindText, S);
- if FSelPos > 0 then
- begin
- FSelPos := FSelPos + StartPos - 1;
- SelStart := FSelPos - 1;
- SelLength := Length(FindText);
- SetFocus;
- end
- else
- begin
- if frfindNext in Options then
- S := Concat('There are no further occurences of "', FindText, '".')
- else
- S := Concat('Could not find "', FindText, '".');
- MessageDlg(S, mtError, [mbOK], 0);
- end;
- end;
-end;
-
-procedure TRichEditWB.Find;
-var
- f: TFindDialog;
-begin
- if not inserted then
- begin
- FSelPos := 0;
- try
- f := TFindDialog.Create(Self);
- f.OnFind := FindDialogFind;
- F.Execute;
- finally
- end;
- end
- else
- MessageDlg('You can not use this feature after inserting files.', mtError, [mbOK], 0);
-end;
-
-procedure TRichEditWB.FindDialog(Sender: TObject);
-var
- f: TFindDialog;
-begin
- if not inserted then
- begin
- FSelPos := 0;
- try
- f := TFindDialog.Create(Self);
- f.OnFind := FindDialogFind;
- F.Execute;
- finally
- end;
- end
- else
- MessageDlg('You can not use this feature after inserting files.', mtError, [mbOK], 0);
-end;
-
-procedure TRichEditWB.ReplaceDialogReplace(Sender: TObject);
-var
- SelPos, SPos, SLen, TextLength: Integer;
- SearchString: string;
-begin
- with TReplaceDialog(Sender) do
- begin
- TextLength := Length(Lines.Text);
- SPos := SelStart;
- SLen := SelLength;
- SearchString := Copy(Lines.Text, SPos + SLen + 1, TextLength - SLen + 1);
- SelPos := Pos(FindText, SearchString);
- if SelPos > 0 then
- begin
- SelStart := (SelPos - 1) + (SPos + SLen);
- SelLength := Length(FindText);
- SelText := ReplaceText;
- end
- else
- MessageDlg('Could not find "' + FindText + '".', mtError, [mbOk], 0);
- end;
-end;
-
-procedure TRichEditWB.Replace;
-var
- r: TReplaceDialog;
-begin
- if not inserted then
- begin
- FSelPos := 0;
- try
- r := TReplaceDialog.Create(Self);
- r.OnReplace := ReplaceDialogReplace;
- r.Execute;
- finally
- end;
- end
- else
- MessageDlg('You can not use this feature after inserting files.', mtError, [mbOK], 0);
-end;
-
-procedure TRichEditWB.GoToPosition(LineNumber, CharNumber: Word);
-begin
- SelStart := Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber;
- SetFocus;
-end;
-
-procedure TRichEditWB.PrintSel(Sender: TObject);
-var
- printarea: TRect;
- richedit_outputarea: TRect;
- printresX, printresY: Integer;
- fmtRange: TFormatRange;
- nextChar: Integer;
- S: string;
-begin
- Printer.beginDoc;
- try
- with Printer.Canvas do
- begin
- printresX := GetDeviceCaps(Handle, LOGPIXELSX);
- printresY := GetDeviceCaps(Handle, LOGPIXELSY);
- printarea := Rect(printresX, printresY * 3 div 2, Printer.PageWidth -
- printresX, Printer.PageHeight - printresY * 3 div 2);
- richedit_outputarea := Rect(printarea.Left * 1440 div printresX,
- printarea.Top * 1440 div printresY, printarea.Right * 1440 div printresX,
- printarea.Bottom * 1440 div printresY);
- fmtRange.hDC := Handle;
- fmtRange.hdcTarget := Handle;
- fmtRange.rc := richedit_outputarea;
- fmtRange.rcPage := Rect(0, 0, Printer.PageWidth * 1440 div printresX,
- Printer.PageHeight * 1440 div printresY);
- fmtRange.chrg.cpMin := selstart;
- fmtRange.chrg.cpMax := selStart + sellength - 1;
- S := SelText;
- while (fmtRange.chrg.cpMax > 0) and
- (S[fmtRange.chrg.cpMax] <= ' ') do
- Dec(fmtRange.chrg.cpMax);
- repeat
- nextChar := Perform(EM_FORMATRANGE, 1, Longint(@fmtRange));
- if nextchar < fmtRange.chrg.cpMax then
- begin
- printer.newPage;
- fmtRange.chrg.cpMin := nextChar;
- end;
- until nextchar >= fmtRange.chrg.cpMax;
- Perform(EM_FORMATRANGE, 0, 0);
- end;
- finally
- Printer.endDoc;
- end;
-end;
-
-function TRichEditWB.SearchAndReplace(InSearch, InReplace: string): Integer;
-var
- X, Toend: Integer;
- oldCursor: TCursor;
-begin
- oldCursor := Forms.Screen.Cursor;
- Screen.Cursor := crHourglass;
- begin
- X := 0;
- Toend := length(Text);
- X := FindText(inSearch, X, Toend, []);
- while X <> -1 do
- begin
- SetFocus;
- SelStart := X;
- SelLength := length(inSearch);
- SelText := InReplace;
- X := FindText(inSearch, X + length(InReplace), Toend, []);
- end;
- end;
- Screen.Cursor := oldCursor;
- Result := Lines.Count;
-end;
-
-procedure TRichEditWB.SetRTFText(RichText: string);
-begin
- FStream.Clear;
- FStream.WriteBuffer(RichText[1], Length(RichText));
- FStream.Position := 0;
- Lines.LoadFromStream(FStream);
-end;
-
-function TRichEditWB.GetRTFText: string;
-begin
- FStream.Clear;
- Lines.SaveToStream(FStream);
- Result := PChar(FStream.Memory);
-end;
-
-procedure TRichEditWB.PreviewInBrowser;
-var
- st: TStringList;
-begin
- if Assigned(FEmbeddedWB) then
- begin
- while EmbeddedWB.ReadyState <> READYSTATE_COMPLETE do
- EmbeddedWB.Stop;
- try
- PlainText := False;
- st := TStringList.Create;
- st.Clear;
- st.Add(Text);
- EmbeddedWB.LoadFromStrings(st);
- finally
- end;
- end
- else
- MessageDlg('You must assign a TEmbeddedWB before using this feature.', mtError, [MbOk], 0);
-end;
-
-function TRichEditWB.GetRTFTextToString: string;
-var
- ss: TStringStream;
- EmptyStr: string;
-begin
- EmptyStr := '';
- ss := TStringStream.Create(EmptyStr);
- try
- PlainText := False;
- Lines.SaveToStream(ss);
- Result := ss.DataString;
- finally
- ss.Free
- end;
-end;
-
-procedure TRichEditWB.LoadStreamFromBrowser;
-var
- Stm: TMemoryStream;
-begin
- if Assigned(FEmbeddedWB) then
- begin
- while EmbeddedWB.ReadyState <> READYSTATE_COMPLETE do
- Forms.Application.ProcessMessages;
- Stm := TMemoryStream.Create;
- PlainText := False;
- Clear;
- try
- EmbeddedWB.SaveToStream(Stm);
- Stm.Position := 0;
- Lines.LoadFromStream(Stm);
- Stm.Position := 0;
- FFileName := EmbeddedWB.LocationName;
- UpdateInfo;
- ScrollToTop;
- SelStart := Perform(EM_LINEINDEX, 1, 1);
- finally
- Stm.Free;
- end;
- end
- else
- MessageDlg('You must assign a TEmbeddedWB before using this feature.', mtError, [MbOk], 0);
-end;
-
-procedure TRichEditWB.LoadHTMLFromBrowser;
-begin
- if Assigned(FEmbeddedWB) then
- begin
- PlainText := False;
- Clear;
- while EmbeddedWB.ReadyState <> READYSTATE_COMPLETE do
- Forms.Application.ProcessMessages;
- if Assigned(EmbeddedWB.document) then
- Lines.Add(EmbeddedWB.OleObject.Document.documentElement.innerHTML);
- fFileName := EmbeddedWB.LocationName;
- UpdateInfo;
- ScrollToTop;
- SelStart := Perform(EM_LINEINDEX, 1, 1);
- end
- else
- MessageDlg('You must assign a TEmbeddedWB before using this feature.', mtError, [MbOk], 0);
-end;
-
-procedure TRichEditWB.LoadTextFromBrowser;
-begin
- if Assigned(FEmbeddedWB) then
- begin
- Clear;
- PlainText := False;
- while EmbeddedWB.ReadyState <> READYSTATE_COMPLETE do
- Forms.Application.ProcessMessages;
- if Assigned(EmbeddedWB.document) then
- Lines.Add(EmbeddedWB.OleObject.Document.documentElement.innerText);
- fFileName := EmbeddedWB.LocationName;
- UpdateInfo;
- ScrollToTop;
- SelStart := Perform(EM_LINEINDEX, 1, 1);
- end
- else
- MessageDlg('You should Assign A web Browser before using this feature!', mtError, [MbOk], 0);
-end;
-
-procedure TRichEditWB.LoadStringsFromBrowser;
-begin
- if Assigned(FEmbeddedWB) then
- begin
- Clear;
- PlainText := False;
- while EmbeddedWB.ReadyState <> READYSTATE_COMPLETE do
- Forms.Application.ProcessMessages;
- EmbeddedWB.SaveToStrings(Lines);
- fFileName := EmbeddedWB.LocationName;
- UpdateInfo;
- ScrollToTop;
- SelStart := Perform(EM_LINEINDEX, 1, 1);
- end
- else
- MessageDlg('You should Assign A web Browser before using this feature!', mtError, [MbOk], 0);
-end;
-
-procedure TRichEditWB.LoadAsCopyFromBrowser;
-begin
- if Assigned(FEmbeddedWB) then
- begin
- Clear;
- PlainText := False;
- while EmbeddedWB.ReadyState <> READYSTATE_COMPLETE do
- Forms.Application.ProcessMessages;
- EmbeddedWB.SelectAll;
- EmbeddedWB.Copy;
- PasteFromClipboard;
- fFileName := EmbeddedWB.LocationName;
- UpdateInfo;
- ScrollToTop;
- SelStart := Perform(EM_LINEINDEX, 1, 1);
- end
- else
- MessageDlg('You should Assign A web Browser before using this feature!', mtError, [MbOk], 0);
-end;
-
-procedure TRichEditWB.ScrollToTop;
-begin
- SendMessage(Handle, EM_LINESCROLL, 0, -Lines.Count);
- SetFocus;
-end;
-
-procedure TRichEditWB.ScrollToBottom;
-begin
- SendMessage(Handle, EM_SCROLL, 0, Lines.Count);
- SetFocus;
-end;
-
-procedure TRichEditWB.DoHTMLrc(Sender: TObject);
-var
- ms: TMemoryStream;
-begin
- HTMLSyn := THighlightHTML.Create;
- try
- HTMLSyn.SetText(Text);
- ms := TMemoryStream.Create;
- try
- HTMLSyn.ConvertToRTFStream(ms);
- PlainText := False;
- ms.Position := 0;
- Lines.LoadFromStream(ms);
- PlainText := True;
- finally
- ms.Free;
- end;
- finally
- HTMLSyn.Free;
- end;
-end;
-
-procedure TRichEditWB.DoXMLrc(Sender: TObject);
-var
- ms: TMemoryStream;
-begin
- XMLSyn := THighlightXML.Create;
- try
- XMLSyn.SetText(Text);
- ms := TMemoryStream.Create;
- try
- XMLSyn.ConvertToRTFStream(ms);
- PlainText := False;
- ms.Position := 0;
- Lines.LoadFromStream(ms);
- PlainText := True;
- finally
- ms.Free;
- end;
- finally
- XMLSyn.Free;
- end;
-end;
-
-function TRichEditWB.AddLineNumbering: Integer;
-var
- fmt: TParaFormat2;
-begin
- FillChar(fmt, SizeOf(fmt), 0);
- fmt.cbSize := SizeOf(fmt);
- fmt.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or
- PFM_NUMBERINGTAB;
- fmt.wNumbering := 2;
- fmt.wNumberingStart := 1;
- fmt.wNumberingStyle := $200;
- fmt.wNumberingTab := 1440 div 4;
- Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddBullets: Integer;
-var
- fmt: TParaFormat2;
-begin
- SelectAll;
- FillChar(fmt, SizeOf(fmt), 0);
- with fmt do
- begin
- cbSize := SizeOf(fmt);
- dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or
- PFM_NUMBERINGTAB;
- wNumbering := 1;
- wNumberingStart := 1;
- wNumberingStyle := $200;
- wNumberingTab := 1440 div 4;
- end;
- Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
- selStart := 0;
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddRomanNumbering: Integer;
-var
- fmt: TParaFormat2;
-begin
- SelectAll;
- FillChar(fmt, SizeOf(fmt), 0);
- with fmt do
- begin
- cbSize := SizeOf(fmt);
- dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or
- PFM_NUMBERINGTAB;
- wNumbering := 6;
- wNumberingStart := 1;
- wNumberingStyle := $200;
- wNumberingTab := 1440 div 4;
- end;
- Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
- selStart := 0;
- Result := Lines.Count;
-end;
-
-function TRichEditWB.AddCheckBox(cbCaption, cbName: string; reLeft, cbLeft,
- cbTop: Integer; Chk: Boolean): Integer;
-var
- cb: TCheckBox;
-begin
- if AcceptDragComponnents then
- begin
- Self.Left := RELeft;
- cb := TCheckBox.Create(Self);
- with cb do
- begin
- Name := cbName + IntToStr(CompCount);
- Caption := cbCaption;
- Left := cbLeft;
- Top := cbTop;
- Parent := Self;
- Checked := Chk;
- inc(CompCount);
- Result := CompCount;
- end;
- end
- else
- Result := 0;
-end;
-
-function TRichEditWB.AddEditBox(eText, eName: string; reLeft, eLeft, eTop: Integer): Integer;
-var
- E: TEdit;
-begin
- if AcceptDragComponnents then
- begin
- Self.Left := RELeft;
- E := TEdit.Create(Self);
- with E do
- begin
- Name := eName + IntToStr(CompCount);
- Text := eText;
- Left := eLeft;
- Top := eTop;
- Parent := Self;
- inc(CompCount);
- Result := CompCount;
- end;
- end
- else
- Result := 0;
-end;
-
-function TRichEditWB.AddRadioButton(rbCaption, rbName: string; reLeft, rbLeft,
- rbTop: Integer; Chk: boolean): Integer;
-var
- RB: TRadioButton;
-begin
- if AcceptDragComponnents then
- begin
- Self.Left := reLeft;
- RB := TRadioButton.Create(Self);
- with RB do
- begin
- Name := rbName + IntToStr(CompCount);
- Caption := rbCaption;
- Left := rbLeft;
- Top := rbTop;
- Parent := Self;
- Checked := Chk;
- inc(CompCount);
- Result := CompCount;
- end;
- end
- else
- Result := 0;
-end;
-
-function TRichEditWB.AddButton(bCaption, bName: string; reLeft, bLeft, bTop:
- Integer): Integer;
-var
- B: TButton;
-begin
- if AcceptDragComponnents then
- begin
- Self.Left := reLeft;
- B := TButton.Create(Self);
- with B do
- begin
- Name := bName + IntToStr(CompCount);
- Caption := bCaption;
- Left := bLeft;
- Top := bTop;
- Parent := Self;
- inc(CompCount);
- Result := CompCount;
- end;
- end
- else
- Result := 0;
-end;
-
-procedure TRichEditWB.SetModified(Value: Boolean);
-begin
- inherited Modified;
- UpdateInfo;
- // if Assigned(FStatusbar) then
- begin
- //FStatusbar.Panels[0].Width := 2000;
- // FStatusbar.Panels[0].Text := Hint;
- end;
-end;
-
-procedure TRichEditWB.UpdateInfo;
-var
- CharPos: TPoint;
- sMod: string;
-begin
- CharPos.Y := SendMessage(Handle, EM_EXLINEFROMCHAR, 0, SelStart);
- CharPos.X := (SelStart - SendMessage(Handle, EM_LINEINDEX, CharPos.Y, 0));
- Inc(CharPos.Y);
- Inc(CharPos.X);
- CarretPosition := Format(sColRowInfo, [CharPos.Y, CharPos.X]);
- CheckCapslock;
- CheckInsertKey;
- CheckNumLock;
- if Modified then
- sMod := 'Modified'
- else
- sMod := '';
- Hint := 'File Name: ' + fFileName + '. | ' +
- #10 + #13 + 'Position: ' + Format(sColRowInfo, [CharPos.Y, CharPos.X]) + '. | ' +
- #10 + #13 + sMod + '. | ' +
- #10 + #13 + CapsLockKey + '. | ' +
- #10 + #13 + NumLockKey + '. | ' +
- #10 + #13 + InsertKey + '. | ' +
- #10 + #13 + 'Total Lines Count: ' + IntToStr(GetLineCount) + '. |';
- CursorPositionX := CharPos.X;
- CursorPositionY := CharPos.Y;
-end;
-
-procedure TRichEditWB.New;
-begin
- CheckFileSave;
- SetFileName(sUntitled);
- Lines.Clear;
- inserted := False;
- Modified := False;
- SetModified(False);
-end;
-
-procedure TRichEditWB.PerformFileOpen(const AFileName: string);
-var
- Ext: string;
-begin
- inserted := False;
- Ext := ExtractFileExt(AFileName);
- PlainText := Ext = '.txt';
- Lines.LoadFromFile(AFileName);
- SetFileName(AFileName);
- SetFocus;
- Modified := False;
- SetModified(False);
-end;
-
-procedure TRichEditWB.Open;
-var
- OD: TOpendialog;
-begin
- CheckFileSave;
- OD := TOpendialog.Create(Self);
- try
- OD.Title := Forms.Application.Title + ' - ' + 'Open Dialog';
- if OD.Execute then
- begin
- ReadOnly := ofReadOnly in OD.Options;
- PerformFileOpen(OD.FileName);
- Setfilename(OD.FileName);
- UpdateInfo;
- end;
- finally
- OD.Free;
- end;
-end;
-
-procedure TRichEditWB.LoadFromFile(FileName: string);
-begin
- Lines.LoadFromFile(FileName);
-end;
-
-procedure TRichEditWB.LoadFromStream(S: TStream);
-begin
- Lines.LoadFromStream(S);
-end;
-
-procedure TRichEditWB.SaveToFile(FileName: string);
-begin
- Lines.SaveToFile(FileName);
-end;
-
-procedure TRichEditWB.SaveToStream(S: TStream);
-begin
- Lines.SaveToStream(S);
-end;
-
-procedure TRichEditWB.Save;
-var
- i: Integer;
-begin
- if FFileName = sUntitled then
- begin
- SaveAs;
- Exit;
- end
- else
- begin
- if FileExists(Trim(FFileName + '.html')) then
- begin
- i := MessageDlg(Format(sOverWrite, [Trim(FFileName + '.html')]), mtConfirmation,
- mbYesNoCancel, 0);
- if i = mrCancel then Exit;
- if i = mrNo then SaveAs;
- if i = mrYes then
- begin
- Lines.SaveToFile(Trim(FFileName + '.html'));
- Modified := False;
- SetModified(False);
- end;
- end
- else
- Lines.SaveToFile(Trim(FFileName + '.html'));
- Modified := False;
- SetModified(False);
- end;
-end;
-
-procedure TRichEditWB.SaveAs;
-var
- sd: TSaveDialog;
-begin
- sd := TSaveDialog.Create(Self);
- try
- SD.FileName := (Trim(FFileName + '.html'));
- if SD.Execute then
- begin
- if FileExists(Trim(SD.FileName + '.html')) then
- if MessageDlg(Format(sOverWrite, [(Trim(SD.FileName + '.html'))]), mtConfirmation, mbYesNoCancel, 0)
- <> idYes then Exit;
- Lines.SaveToFile(SD.FileName + '.html');
- SetFileName(SD.FileName);
- Modified := False;
- SetModified(False);
- end;
- finally
- sd.Free;
- end;
-end;
-
-procedure TRichEditWB.SetFileName(const FileName: string);
-begin
- fFileName := FileName;
-end;
-
-procedure TRichEditWB.CheckFileSave;
-var
- SaveResp: Integer;
-begin
- if not Modified then
- Exit;
- SaveResp := MessageDlg(Format(sSaveChanges, [FFileName]),
- mtConfirmation, mbYesNoCancel, 0);
- case SaveResp of
- idYes: Save;
- idNo: {Nothing};
- idCancel: Abort;
- end;
-end;
-
-procedure TRichEditWB.WMDropFiles(var Msg: TWMDropFiles);
-var
- CFileName: array[0..MAX_PATH] of Char;
-begin
- if AcceptDragFiles then
- begin
- try
- if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
- begin
- CheckFileSave;
- PerformFileOpen(CFileName);
- Msg.Result := 0;
- end;
- finally
- DragFinish(Msg.Drop);
- end;
- end;
-end;
-
-initialization
-
-finalization
- if FRichEditModule <> 0 then
- FreeLibrary(FRichEditModule);
-end.
diff --git a/windows/src/ext/embeddedwb/Source/SHDocVw_EWB.pas b/windows/src/ext/embeddedwb/Source/SHDocVw_EWB.pas
deleted file mode 100644
index ff4aba6349db5beda8dc5239238b001ffc784891..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/SHDocVw_EWB.pas
+++ /dev/null
@@ -1,1976 +0,0 @@
-//**************************************************************
-// *
-// SHDocVw_EWB *
-// *
-// For Delphi 5 to XE *
-// by *
-// bsalsa - Eran Bodankin - bsalsa@gmail.com *
-// *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: SHDocVw_EWB.pas,v 1.3 2006/12/14 12:57:55 bsalsa Exp $
-
-unit SHDocVw_EWB;
-{$I EWB.inc}
-// ************************************************************************ //
-// Type Lib: shdocvw.dll (1) EWB
-// LIBID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}
-// LCID: 0
-// Created by Eran Bodankin (bsalsa)
-// Errors:
-// Hint: Symbol 'Type' renamed to 'type_'
-// Hint: Parameter 'Type' of IWebBrowser.Type changed to 'Type_'
-// Hint: Parameter 'Property' of DWebBrowserEvents.PropertyChange changed to 'Property_'
-// Hint: Parameter 'Property' of IWebBrowserApp.PutProperty changed to 'Property_'
-// Hint: Parameter 'Property' of IWebBrowserApp.GetProperty changed to 'Property_'
-// Hint: Parameter 'Type' of IShellUIHelper.AddDesktopComponent changed to 'Type_'
-// Hint: Parameter 'var' of IShellNameSpace.Expand changed to 'var_'
-// ************************************************************************ //
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
-{$IFDEF DELPHI6_UP}
-{$WARN SYMBOL_PLATFORM OFF}
-{$ALIGN 4}
-{$VARPROPSETTER ON} // You need to download and install the second D6 patch in order for this to compile.
-{$ENDIF}
-{$WRITEABLECONST ON}
-
-interface
-
-{$I EWB.inc}
-
-uses
- EwbAcc, Windows, ActiveX, Classes{$IFDEF USE_OleCtrlsFix}, OleCtrlsFix{$ENDIF}, OleCtrls, OleServer, StdVCL{$IFDEF DELPHI6_UP}, Variants{$ENDIF};
-
-// *********************************************************************//
-// GUIDS declared in the TypeLibrary. Following prefixes are used:
-// Type Libraries : LIBID_xxxx
-// CoClasses : CLASS_xxxx
-// DISPInterfaces : DIID_xxxx
-// Non-DISP interfaces: IID_xxxx
-// *********************************************************************//
-const
- // TypeLibrary Major and minor versions
- SHDocVwMajorVersion = 1;
- SHDocVwMinorVersion = 1;
-
- LIBID_SHDocVw: TGUID = '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}';
-
- IID_IWebBrowser: TGUID = '{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}';
- DIID_DWebBrowserEvents: TGUID = '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
- IID_IWebBrowserApp: TGUID = '{0002DF05-0000-0000-C000-000000000046}';
- IID_IWebBrowser2: TGUID = '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}';
- DIID_DWebBrowserEvents2: TGUID = '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
- CLASS_WebBrowser_V1: TGUID = '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';
- CLASS_WebBrowser: TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}';
- CLASS_InternetExplorer: TGUID = '{0002DF01-0000-0000-C000-000000000046}';
- CLASS_ShellBrowserWindow: TGUID = '{C08AFD90-F2A1-11D1-8455-00A0C91F3880}';
- DIID_DShellWindowsEvents: TGUID = '{FE4106E0-399A-11D0-A48C-00A0C90A8F39}';
- IID_IShellWindows: TGUID = '{85CB6900-4D95-11CF-960C-0080C7F4EE85}';
- CLASS_ShellWindows: TGUID = '{9BA05972-F6A8-11CF-A442-00A0C90A8F39}';
- IID_IShellUIHelper: TGUID = '{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}';
- IID_IShellUIHelper2: TGUID = '{A7FE6EDA-1932-4281-B881-87B31B8BC52C}';
- IID_IShellUIHelper3: TGUID = '{B7FCA399-7F15-42DF-A51C-E39C1A4F32DE}';
- CLASS_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
- DIID_DShellNameSpaceEvents: TGUID = '{55136806-B2DE-11D1-B9F2-00A0C98BC547}';
- IID_IShellFavoritesNameSpace: TGUID = '{55136804-B2DE-11D1-B9F2-00A0C98BC547}';
- IID_IShellNameSpace: TGUID = '{E572D3C9-37BE-4AE2-825D-D521763E3108}';
- CLASS_ShellNameSpace: TGUID = '{55136805-B2DE-11D1-B9F2-00A0C98BC547}';
- CLASS_ShellShellNameSpace: TGUID = '{2F2F1F96-2BC1-4B1C-BE28-EA3774F4676A}';
- IID_IScriptErrorList: TGUID = '{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}';
- CLASS_CScriptErrorList: TGUID = '{EFD01300-160F-11D2-BB2E-00805FF7EFCA}';
-
-{$IFDEF USE_OleCtrlsFix}
-type
- TOleControl = class(OleCtrlsFix.TOleControlFix);
-{$ENDIF}
-
-// *********************************************************************//
-// Declaration of Enumerations defined in Type Library
-// *********************************************************************//
-// Constants for enum CommandStateChangeConstants
-type
- CommandStateChangeConstants = TOleEnum;
-const
- CSC_UPDATECOMMANDS = $FFFFFFFF;
- CSC_NAVIGATEFORWARD = $00000001;
- CSC_NAVIGATEBACK = $00000002;
-
-// Constants for enum OLECMDID
-type
- OLECMDID = TOleEnum;
-const
- OLECMDID_OPEN = $00000001;
- OLECMDID_NEW = $00000002;
- OLECMDID_SAVE = $00000003;
- OLECMDID_SAVEAS = $00000004;
- OLECMDID_SAVECOPYAS = $00000005;
- OLECMDID_PRINT = $00000006;
- OLECMDID_PRINTPREVIEW = $00000007;
- OLECMDID_PAGESETUP = $00000008;
- OLECMDID_SPELL = $00000009;
- OLECMDID_PROPERTIES = $0000000A;
- OLECMDID_CUT = $0000000B;
- OLECMDID_COPY = $0000000C;
- OLECMDID_PASTE = $0000000D;
- OLECMDID_PASTESPECIAL = $0000000E;
- OLECMDID_UNDO = $0000000F;
- OLECMDID_REDO = $00000010;
- OLECMDID_SELECTALL = $00000011;
- OLECMDID_CLEARSELECTION = $00000012;
- OLECMDID_ZOOM = $00000013;
- OLECMDID_GETZOOMRANGE = $00000014;
- OLECMDID_UPDATECOMMANDS = $00000015;
- OLECMDID_REFRESH = $00000016;
- OLECMDID_STOP = $00000017;
- OLECMDID_HIDETOOLBARS = $00000018;
- OLECMDID_SETPROGRESSMAX = $00000019;
- OLECMDID_SETPROGRESSPOS = $0000001A;
- OLECMDID_SETPROGRESSTEXT = $0000001B;
- OLECMDID_SETTITLE = $0000001C;
- OLECMDID_SETDOWNLOADSTATE = $0000001D;
- OLECMDID_STOPDOWNLOAD = $0000001E;
- OLECMDID_ONTOOLBARACTIVATED = $0000001F;
- OLECMDID_FIND = $00000020;
- OLECMDID_DELETE = $00000021;
- OLECMDID_HTTPEQUIV = $00000022;
- OLECMDID_HTTPEQUIV_DONE = $00000023;
- OLECMDID_ENABLE_INTERACTION = $00000024;
- OLECMDID_ONUNLOAD = $00000025;
- OLECMDID_PROPERTYBAG2 = $00000026;
- OLECMDID_PREREFRESH = $00000027;
- OLECMDID_SHOWSCRIPTERROR = $00000028;
- OLECMDID_SHOWMESSAGE = $00000029;
- OLECMDID_SHOWFIND = $0000002A;
- OLECMDID_SHOWPAGESETUP = $0000002B;
- OLECMDID_SHOWPRINT = $0000002C;
- OLECMDID_CLOSE = $0000002D;
- OLECMDID_ALLOWUILESSSAVEAS = $0000002E;
- OLECMDID_DONTDOWNLOADCSS = $0000002F;
- OLECMDID_UPDATEPAGESTATUS = $00000030;
- OLECMDID_PRINT2 = $00000031;
- OLECMDID_PRINTPREVIEW2 = $00000032;
- OLECMDID_SETPRINTTEMPLATE = $00000033;
- OLECMDID_GETPRINTTEMPLATE = $00000034;
- OLECMDID_PAGEACTIONBLOCKED = $00000037;
- OLECMDID_PAGEACTIONUIQUERY = $00000038;
- OLECMDID_FOCUSVIEWCONTROLS = $00000039;
- OLECMDID_FOCUSVIEWCONTROLSQUERY = $0000003A;
- OLECMDID_SHOWPAGEACTIONMENU = $0000003B;
- //New IE7 Values
- OLECMDID_ADDTRAVELENTRY = $0000003C;
- OLECMDID_UPDATETRAVELENTRY = $0000003D;
- OLECMDID_UPDATEBACKFORWARDSTATE = $0000003E;
- OLECMDID_OPTICAL_ZOOM = $0000003F;
- OLECMDID_OPTICAL_GETZOOMRANGE = $00000040;
- OLECMDID_WINDOWSTATECHANGED = $00000041;
- //New IE8 Values
- OLECMDID_ACTIVEXINSTALLSCOPE = $00000042;
- OLECMDID_UPDATETRAVELENTRY_DATARECOVERY = $00000043;
-
-// Constants for enum OLECMDF
-type
- OLECMDF = TOleEnum;
-const
- OLECMDF_SUPPORTED = $00000001;
- OLECMDF_ENABLED = $00000002;
- OLECMDF_LATCHED = $00000004;
- OLECMDF_NINCHED = $00000008;
- OLECMDF_INVISIBLE = $00000010;
- OLECMDF_DEFHIDEONCTXTMENU = $00000020;
- OLECMDIDF_WINDOWSTATE_USERVISIBLE = $00000001;
- OLECMDIDF_WINDOWSTATE_ENABLED = $00000002;
- OLECMDIDF_WINDOWSTATE_USERVISIBLE_VALID = $00010000;
- OLECMDIDF_WINDOWSTATE_ENABLED_VALID = $00020000;
-
-// Constants for enum OLECMDEXECOPT
-type
- OLECMDEXECOPT = TOleEnum;
-const
- OLECMDEXECOPT_DODEFAULT = $00000000;
- OLECMDEXECOPT_PROMPTUSER = $00000001;
- OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
- OLECMDEXECOPT_SHOWHELP = $00000003;
-
-// Constants for enum tagREADYSTATE
-type
- tagREADYSTATE = TOleEnum;
-const
- READYSTATE_UNINITIALIZED = $00000000;
- READYSTATE_LOADING = $00000001;
- READYSTATE_LOADED = $00000002;
- READYSTATE_INTERACTIVE = $00000003;
- READYSTATE_COMPLETE = $00000004;
-
-// Constants for enum SecureLockIconConstants
-type
- SecureLockIconConstants = TOleEnum;
-const
- secureLockIconUnsecure = $00000000;
- secureLockIconMixed = $00000001;
- secureLockIconSecureUnknownBits = $00000002;
- secureLockIconSecure40Bit = $00000003;
- secureLockIconSecure56Bit = $00000004;
- secureLockIconSecureFortezza = $00000005;
- secureLockIconSecure128Bit = $00000006;
-
-// Constants for enum NewProcessCauseConstants
-type
- NewProcessCauseConstants = TOleEnum;
-const
- ProtectedModeRedirect = $00000001;
-
-// Constants for enum ShellWindowTypeConstants
-type
- ShellWindowTypeConstants = TOleEnum;
-const
- SWC_EXPLORER = $00000000;
- SWC_BROWSER = $00000001;
- SWC_3RDPARTY = $00000002;
- SWC_CALLBACK = $00000004;
- SWC_DESKTOP = $00000008;
-
-// Constants for enum ShellWindowFindWindowOptions
-type
- ShellWindowFindWindowOptions = TOleEnum;
-const
- SWFO_NEEDDISPATCH = $00000001;
- SWFO_INCLUDEPENDING = $00000002;
- SWFO_COOKIEPASSED = $00000004;
-
-type
- RefreshConstants = TOleEnum;
-const
- REFRESH_NORMAL = 0;
- REFRESH_IFEXPIRED = 1;
- REFRESH_CONTINUE = 2;
- REFRESH_COMPLETELY = 3;
-
-type
-
-// *********************************************************************//
-// Forward declaration of types defined in TypeLibrary
-// *********************************************************************//
- IWebBrowser = interface;
- IWebBrowserDisp = dispinterface;
- DWebBrowserEvents = dispinterface;
- IWebBrowserApp = interface;
- IWebBrowserAppDisp = dispinterface;
- IWebBrowser2 = interface;
- IWebBrowser2Disp = dispinterface;
- DWebBrowserEvents2 = dispinterface;
- DShellWindowsEvents = dispinterface;
- IShellWindows = interface;
- IShellWindowsDisp = dispinterface;
- IShellUIHelper = interface;
- IShellUIHelperDisp = dispinterface;
- IShellUIHelper2 = interface;
- IShellUIHelper2Disp = dispinterface;
- IShellUIHelper3 = interface;
- IShellUIHelper3Disp = dispinterface;
- DShellNameSpaceEvents = dispinterface;
- IShellFavoritesNameSpace = interface;
- IShellFavoritesNameSpaceDisp = dispinterface;
- IShellNameSpace = interface;
- IShellNameSpaceDisp = dispinterface;
- IScriptErrorList = interface;
- IScriptErrorListDisp = dispinterface;
-
-// *********************************************************************//
-// Declaration of CoClasses defined in Type Library
-// (NOTE: Here we map each CoClass to its Default Interface)
-// *********************************************************************//
- WebBrowser_V1 = IWebBrowser;
- WebBrowser = IWebBrowser2;
- InternetExplorer = IWebBrowser2;
- ShellBrowserWindow = IWebBrowser2;
- ShellWindows = IShellWindows;
- ShellUIHelper = IShellUIHelper3;
- ShellNameSpace = IShellNameSpace;
- ShellShellNameSpace = IShellNameSpace;
- CScriptErrorList = IScriptErrorList;
-
-// *********************************************************************//
-// Declaration of structures, unions and aliases.
-// *********************************************************************//
- POleVariant1 = ^OleVariant; {*}
-
-// *********************************************************************//
-// Interface: IWebBrowser
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
-// *********************************************************************//
- IWebBrowser = interface(IDispatch)
- ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
- procedure GoBack; safecall;
- procedure GoForward; safecall;
- procedure GoHome; safecall;
- procedure GoSearch; safecall;
- { procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); safecall; }
-
- // D2009:
- procedure Navigate(const URL: WideString; const Flags: OleVariant;
- const TargetFrameName: OleVariant; var PostData: OleVariant;
- const Headers: OleVariant); safecall;
-
- procedure Refresh; safecall;
- procedure Refresh2(var Level: OleVariant); safecall;
- procedure Stop; safecall;
- function Get_Application: IDispatch; safecall;
- function Get_Parent: IDispatch; safecall;
- function Get_Container: IDispatch; safecall;
- function Get_Document: IDispatch; safecall;
- function Get_TopLevelContainer: WordBool; safecall;
- function Get_type_: WideString; safecall;
- function Get_Left: Integer; safecall;
- procedure Set_Left(pl: Integer); safecall;
- function Get_Top: Integer; safecall;
- procedure Set_Top(pl: Integer); safecall;
- function Get_Width: Integer; safecall;
- procedure Set_Width(pl: Integer); safecall;
- function Get_Height: Integer; safecall;
- procedure Set_Height(pl: Integer); safecall;
- function Get_LocationName: WideString; safecall;
- function Get_LocationURL: WideString; safecall;
- function Get_Busy: WordBool; safecall;
- property Application: IDispatch read Get_Application;
- property Parent: IDispatch read Get_Parent;
- property Container: IDispatch read Get_Container;
- property Document: IDispatch read Get_Document;
- property TopLevelContainer: WordBool read Get_TopLevelContainer;
- property type_: WideString read Get_type_;
- property Left: Integer read Get_Left write Set_Left;
- property Top: Integer read Get_Top write Set_Top;
- property Width: Integer read Get_Width write Set_Width;
- property Height: Integer read Get_Height write Set_Height;
- property LocationName: WideString read Get_LocationName;
- property LocationURL: WideString read Get_LocationURL;
- property Busy: WordBool read Get_Busy;
- end;
-
-// *********************************************************************//
-// DispIntf: IWebBrowserDisp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
-// *********************************************************************//
- IWebBrowserDisp = dispinterface
- ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}']
- procedure GoBack; dispid 100;
- procedure GoForward; dispid 101;
- procedure GoHome; dispid 102;
- procedure GoSearch; dispid 103;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); dispid 104;
- procedure Refresh; dispid - 550;
- procedure Refresh2(var Level: OleVariant); dispid 105;
- procedure Stop; dispid 106;
- property Application: IDispatch readonly dispid 200;
- property Parent: IDispatch readonly dispid 201;
- property Container: IDispatch readonly dispid 202;
- property Document: IDispatch readonly dispid 203;
- property TopLevelContainer: WordBool readonly dispid 204;
- property type_: WideString readonly dispid 205;
- property Left: Integer dispid 206;
- property Top: Integer dispid 207;
- property Width: Integer dispid 208;
- property Height: Integer dispid 209;
- property LocationName: WideString readonly dispid 210;
- property LocationURL: WideString readonly dispid 211;
- property Busy: WordBool readonly dispid 212;
- end;
-
-// *********************************************************************//
-// DispIntf: DWebBrowserEvents
-// Flags: (4112) Hidden Dispatchable
-// GUID: {EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}
-// *********************************************************************//
- DWebBrowserEvents = dispinterface
- ['{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}']
- procedure BeforeNavigate(const URL: WideString; Flags: Integer;
- const TargetFrameName: WideString; var PostData: OleVariant;
- const Headers: WideString; var Cancel: WordBool); dispid 100;
- procedure NavigateComplete(const URL: WideString); dispid 101;
- procedure StatusTextChange(const Text: WideString); dispid 102;
- procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
- procedure DownloadComplete; dispid 104;
- procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
- procedure DownloadBegin; dispid 106;
- procedure NewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString;
- var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 107;
- procedure TitleChange(const Text: WideString); dispid 113;
- procedure FrameBeforeNavigate(const URL: WideString; Flags: Integer;
- const TargetFrameName: WideString; var PostData: OleVariant;
- const Headers: WideString; var Cancel: WordBool); dispid 200;
- procedure FrameNavigateComplete(const URL: WideString); dispid 201;
- procedure FrameNewWindow(const URL: WideString; Flags: Integer;
- const TargetFrameName: WideString; var PostData: OleVariant;
- const Headers: WideString; var Processed: WordBool); dispid 204;
- procedure Quit(var Cancel: WordBool); dispid 103;
- procedure WindowMove; dispid 109;
- procedure WindowResize; dispid 110;
- procedure WindowActivate; dispid 111;
- procedure PropertyChange(const Property_: WideString); dispid 112;
- end;
-
-// *********************************************************************//
-// Interface: IWebBrowserApp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {0002DF05-0000-0000-C000-000000000046}
-// *********************************************************************//
- IWebBrowserApp = interface(IWebBrowser)
- ['{0002DF05-0000-0000-C000-000000000046}']
- procedure Quit; safecall;
- procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); safecall;
- procedure PutProperty(const Property_: WideString; vtValue: OleVariant); safecall;
- function GetProperty(const Property_: WideString): OleVariant; safecall;
- function Get_Name: WideString; safecall;
- function Get_HWND: Integer; safecall;
- function Get_FullName: WideString; safecall;
- function Get_Path: WideString; safecall;
- function Get_Visible: WordBool; safecall;
- procedure Set_Visible(pBool: WordBool); safecall;
- function Get_StatusBar: WordBool; safecall;
- procedure Set_StatusBar(pBool: WordBool); safecall;
- function Get_StatusText: WideString; safecall;
- procedure Set_StatusText(const StatusText: WideString); safecall;
- function Get_ToolBar: SYSINT; safecall;
- procedure Set_ToolBar(Value: SYSINT); safecall;
- function Get_MenuBar: WordBool; safecall;
- procedure Set_MenuBar(Value: WordBool); safecall;
- function Get_FullScreen: WordBool; safecall;
- procedure Set_FullScreen(pbFullScreen: WordBool); safecall;
- property Name: WideString read Get_Name;
- property HWND: Integer read Get_HWND;
- property FullName: WideString read Get_FullName;
- property Path: WideString read Get_Path;
- property Visible: WordBool read Get_Visible write Set_Visible;
- property StatusBar: WordBool read Get_StatusBar write Set_StatusBar;
- property StatusText: WideString read Get_StatusText write Set_StatusText;
- property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar;
- property MenuBar: WordBool read Get_MenuBar write Set_MenuBar;
- property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
- end;
-
-// *********************************************************************//
-// DispIntf: IWebBrowserAppDisp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {0002DF05-0000-0000-C000-000000000046}
-// *********************************************************************//
- IWebBrowserAppDisp = dispinterface
- ['{0002DF05-0000-0000-C000-000000000046}']
- procedure Quit; dispid 300;
- procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
- procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
- function GetProperty(const Property_: WideString): OleVariant; dispid 303;
- property Name: WideString readonly dispid 0;
- property HWND: Integer readonly dispid - 515;
- property FullName: WideString readonly dispid 400;
- property Path: WideString readonly dispid 401;
- property Visible: WordBool dispid 402;
- property StatusBar: WordBool dispid 403;
- property StatusText: WideString dispid 404;
- property ToolBar: SYSINT dispid 405;
- property MenuBar: WordBool dispid 406;
- property FullScreen: WordBool dispid 407;
- procedure GoBack; dispid 100;
- procedure GoForward; dispid 101;
- procedure GoHome; dispid 102;
- procedure GoSearch; dispid 103;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); dispid 104;
- procedure Refresh; dispid - 550;
- procedure Refresh2(var Level: OleVariant); dispid 105;
- procedure Stop; dispid 106;
- property Application: IDispatch readonly dispid 200;
- property Parent: IDispatch readonly dispid 201;
- property Container: IDispatch readonly dispid 202;
- property Document: IDispatch readonly dispid 203;
- property TopLevelContainer: WordBool readonly dispid 204;
- property type_: WideString readonly dispid 205;
- property Left: Integer dispid 206;
- property Top: Integer dispid 207;
- property Width: Integer dispid 208;
- property Height: Integer dispid 209;
- property LocationName: WideString readonly dispid 210;
- property LocationURL: WideString readonly dispid 211;
- property Busy: WordBool readonly dispid 212;
- end;
-
-// *********************************************************************//
-// Interface: IWebBrowser2
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
-// *********************************************************************//
- IWebBrowser2 = interface(IWebBrowserApp)
- ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
- procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); safecall;
- function QueryStatusWB(cmdID: OLECMDID): OLECMDF; safecall;
- procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
- var pvaOut: OleVariant); safecall;
- procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
- var pvarSize: OleVariant); safecall;
- function Get_ReadyState: tagREADYSTATE; safecall;
- function Get_Offline: WordBool; safecall;
- procedure Set_Offline(pbOffline: WordBool); safecall;
- function Get_Silent: WordBool; safecall;
- procedure Set_Silent(pbSilent: WordBool); safecall;
- function Get_RegisterAsBrowser: WordBool; safecall;
- procedure Set_RegisterAsBrowser(pbRegister: WordBool); safecall;
- function Get_RegisterAsDropTarget: WordBool; safecall;
- procedure Set_RegisterAsDropTarget(pbRegister: WordBool); safecall;
- function Get_TheaterMode: WordBool; safecall;
- procedure Set_TheaterMode(pbRegister: WordBool); safecall;
- function Get_AddressBar: WordBool; safecall;
- procedure Set_AddressBar(Value: WordBool); safecall;
- function Get_Resizable: WordBool; safecall;
- procedure Set_Resizable(Value: WordBool); safecall;
- property ReadyState: tagREADYSTATE read Get_ReadyState;
- property Offline: WordBool read Get_Offline write Set_Offline;
- property Silent: WordBool read Get_Silent write Set_Silent;
- property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser;
- property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget;
- property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode;
- property AddressBar: WordBool read Get_AddressBar write Set_AddressBar;
- property Resizable: WordBool read Get_Resizable write Set_Resizable;
- end;
-
-// *********************************************************************//
-// DispIntf: IWebBrowser2Disp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
-// *********************************************************************//
- IWebBrowser2Disp = dispinterface
- ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}']
- procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); dispid 500;
- function QueryStatusWB(cmdID: OLECMDID): OLECMDF; dispid 501;
- procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
- var pvaOut: OleVariant); dispid 502;
- procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
- var pvarSize: OleVariant); dispid 503;
- property ReadyState: tagREADYSTATE readonly dispid - 525;
- property Offline: WordBool dispid 550;
- property Silent: WordBool dispid 551;
- property RegisterAsBrowser: WordBool dispid 552;
- property RegisterAsDropTarget: WordBool dispid 553;
- property TheaterMode: WordBool dispid 554;
- property AddressBar: WordBool dispid 555;
- property Resizable: WordBool dispid 556;
- procedure Quit; dispid 300;
- procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301;
- procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302;
- function GetProperty(const Property_: WideString): OleVariant; dispid 303;
- property Name: WideString readonly dispid 0;
- property HWND: Integer readonly dispid - 515;
- property FullName: WideString readonly dispid 400;
- property Path: WideString readonly dispid 401;
- property Visible: WordBool dispid 402;
- property StatusBar: WordBool dispid 403;
- property StatusText: WideString dispid 404;
- property ToolBar: SYSINT dispid 405;
- property MenuBar: WordBool dispid 406;
- property FullScreen: WordBool dispid 407;
- procedure GoBack; dispid 100;
- procedure GoForward; dispid 101;
- procedure GoHome; dispid 102;
- procedure GoSearch; dispid 103;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); dispid 104;
- procedure Refresh; dispid - 550;
- procedure Refresh2(var Level: OleVariant); dispid 105;
- procedure Stop; dispid 106;
- property Application: IDispatch readonly dispid 200;
- property Parent: IDispatch readonly dispid 201;
- property Container: IDispatch readonly dispid 202;
- property Document: IDispatch readonly dispid 203;
- property TopLevelContainer: WordBool readonly dispid 204;
- property type_: WideString readonly dispid 205;
- property Left: Integer dispid 206;
- property Top: Integer dispid 207;
- property Width: Integer dispid 208;
- property Height: Integer dispid 209;
- property LocationName: WideString readonly dispid 210;
- property LocationURL: WideString readonly dispid 211;
- property Busy: WordBool readonly dispid 212;
- end;
-
-// *********************************************************************//
-// DispIntf: DWebBrowserEvents2
-// Flags: (4112) Hidden Dispatchable
-// GUID: {34A715A0-6587-11D0-924A-0020AFC7AC4D}
-// *********************************************************************//
- DWebBrowserEvents2 = dispinterface
- ['{34A715A0-6587-11D0-924A-0020AFC7AC4D}']
- procedure StatusTextChange(const Text: WideString); dispid 102;
- procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108;
- procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105;
- procedure DownloadBegin; dispid 106;
- procedure DownloadComplete; dispid 104;
- procedure TitleChange(const Text: WideString); dispid 113;
- procedure PropertyChange(const szProperty: WideString); dispid 112;
- procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant; var Cancel: WordBool); dispid 250;
- procedure NewWindow2(var ppDisp: IDispatch; var Cancel: WordBool); dispid 251;
- procedure NavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); dispid 252;
- procedure DocumentComplete(const pDisp: IDispatch; var URL: OleVariant); dispid 259;
- procedure OnQuit; dispid 253;
- procedure OnVisible(Visible: WordBool); dispid 254;
- procedure OnToolBar(ToolBar: WordBool); dispid 255;
- procedure OnMenuBar(MenuBar: WordBool); dispid 256;
- procedure OnStatusBar(StatusBar: WordBool); dispid 257;
- procedure OnFullScreen(FullScreen: WordBool); dispid 258;
- procedure OnTheaterMode(TheaterMode: WordBool); dispid 260;
- procedure OnAddressBar(AddressBar: WordBool); dispid 261;
- procedure WindowSetResizable(Resizable: WordBool); dispid 262;
- procedure WindowSetLeft(Left: Integer); dispid 264;
- procedure WindowSetTop(Top: Integer); dispid 265;
- procedure WindowSetWidth(Width: Integer); dispid 266;
- procedure WindowSetHeight(Height: Integer); dispid 267;
- procedure WindowClosing(IsChildWindow: WordBool; var Cancel: WordBool); dispid 263;
- procedure ClientToHostWindow(var CX: Integer; var CY: Integer); dispid 268;
- procedure SetSecureLockIcon(SecureLockIcon: Integer); dispid 269;
- // procedure FileDownload(var Cancel: WordBool); dispid 270;
- procedure FileDownload(ActiveDocument: WordBool; var Cancel: WordBool); dispid 270;
- procedure NavigateError(const pDisp: IDispatch; var URL: OleVariant; var Frame: OleVariant;
- var StatusCode: OleVariant; var Cancel: WordBool); dispid 271;
- procedure PrintTemplateInstantiation(const pDisp: IDispatch); dispid 225;
- procedure PrintTemplateTeardown(const pDisp: IDispatch); dispid 226;
- procedure UpdatePageStatus(const pDisp: IDispatch; var nPage: OleVariant; var fDone: OleVariant); dispid 227;
- procedure PrivacyImpactedStateChange(bImpacted: WordBool); dispid 272;
- procedure NewWindow3(var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: LongWord;
- const bstrUrlContext: WideString; const bstrUrl: WideString); dispid 273;
- procedure SetPhishingFilterStatus(PhishingFilterStatus: Integer); dispid 282;
-// procedure WindowStateChanged(dwWindowStateFlags: LongWord; dwValidFlagsMask: LongWord); dispid 283;
- procedure NewProcess(lCauseFlag: Integer; const pWB2: IDispatch; var Cancel: WordBool); dispid 284;
- procedure ThirdPartyUrlBlocked(var URL: OleVariant; dwCount: LongWord); dispid 285;
- end;
-
-// *********************************************************************//
-// DispIntf: DShellWindowsEvents
-// Flags: (4096) Dispatchable
-// GUID: {FE4106E0-399A-11D0-A48C-00A0C90A8F39}
-// *********************************************************************//
- DShellWindowsEvents = dispinterface
- ['{FE4106E0-399A-11D0-A48C-00A0C90A8F39}']
- procedure WindowRegistered(lCookie: Integer); dispid 200;
- procedure WindowRevoked(lCookie: Integer); dispid 201;
- end;
-
-// *********************************************************************//
-// Interface: IShellWindows
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
-// *********************************************************************//
- IShellWindows = interface(IDispatch)
- ['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
- function Get_Count: Integer; safecall;
- function Item(index: OleVariant): IDispatch; safecall;
- function _NewEnum: IUnknown; safecall;
- procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); safecall;
- procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant;
- var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); safecall;
- procedure Revoke(lCookie: Integer); safecall;
- procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); safecall;
- procedure OnActivated(lCookie: Integer; fActive: WordBool); safecall;
- function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT;
- out pHWND: Integer; swfwOptions: SYSINT): IDispatch; safecall;
- procedure OnCreated(lCookie: Integer; const punk: IUnknown); safecall;
- procedure ProcessAttachDetach(fAttach: WordBool); safecall;
- property Count: Integer read Get_Count;
- end;
-
-// *********************************************************************//
-// DispIntf: IShellWindowsDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85}
-// *********************************************************************//
- IShellWindowsDisp = dispinterface
- ['{85CB6900-4D95-11CF-960C-0080C7F4EE85}']
- property Count: Integer readonly dispid 1610743808;
- function Item(index: OleVariant): IDispatch; dispid 0;
- function _NewEnum: IUnknown; dispid - 4;
- procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); dispid 1610743811;
- procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant;
- var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); dispid 1610743812;
- procedure Revoke(lCookie: Integer); dispid 1610743813;
- procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); dispid 1610743814;
- procedure OnActivated(lCookie: Integer; fActive: WordBool); dispid 1610743815;
- function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT;
- out pHWND: Integer; swfwOptions: SYSINT): IDispatch; dispid 1610743816;
- procedure OnCreated(lCookie: Integer; const punk: IUnknown); dispid 1610743817;
- procedure ProcessAttachDetach(fAttach: WordBool); dispid 1610743818;
- end;
-
-// *********************************************************************//
-// Interface: IShellUIHelper
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
-// *********************************************************************//
- IShellUIHelper = interface(IDispatch)
- ['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
- procedure ResetFirstBootMode; safecall;
- procedure ResetSafeMode; safecall;
- procedure RefreshOfflineDesktop; safecall;
- procedure AddFavorite(const URL: WideString; var Title: OleVariant); safecall;
- procedure AddChannel(const URL: WideString); safecall;
- procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
- var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
- var Height: OleVariant); safecall;
- function IsSubscribed(const URL: WideString): WordBool; safecall;
- procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
- var varTargetFrame: OleVariant); safecall;
- procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); safecall;
- procedure AutoCompleteSaveForm(var Form: OleVariant); safecall;
- procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
- var pvarTargetFrame: OleVariant); safecall;
- procedure AutoCompleteAttach(var Reserved: OleVariant); safecall;
- function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IShellUIHelperDisp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}
-// *********************************************************************//
- IShellUIHelperDisp = dispinterface
- ['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}']
- procedure ResetFirstBootMode; dispid 1;
- procedure ResetSafeMode; dispid 2;
- procedure RefreshOfflineDesktop; dispid 3;
- procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4;
- procedure AddChannel(const URL: WideString); dispid 5;
- procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
- var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
- var Height: OleVariant); dispid 6;
- function IsSubscribed(const URL: WideString): WordBool; dispid 7;
- procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
- var varTargetFrame: OleVariant); dispid 8;
- procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9;
- procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10;
- procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
- var pvarTargetFrame: OleVariant); dispid 11;
- procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12;
- function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13;
- end;
-
-//*********************************************************************//
-// Interface: IShellUIHelper2
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {A7FE6EDA-1932-4281-B881-87B31B8BC52C}
-// *********************************************************************//
- IShellUIHelper2 = interface(IShellUIHelper)
- ['{A7FE6EDA-1932-4281-B881-87B31B8BC52C}']
- procedure AddSearchProvider(const URL: WideString); safecall;
- procedure RunOnceShown; safecall;
- procedure SkipRunOnce; safecall;
- procedure CustomizeSettings(fSQM: WordBool; fPhishing: WordBool; const bstrLocale: WideString); safecall;
- function SqmEnabled: WordBool; safecall;
- function PhishingEnabled: WordBool; safecall;
- function BrandImageUri: WideString; safecall;
- procedure SkipTabsWelcome; safecall;
- procedure DiagnoseConnection; safecall;
- procedure CustomizeClearType(fSet: WordBool); safecall;
- function IsSearchProviderInstalled(const URL: WideString): LongWord; safecall;
- function IsSearchMigrated: WordBool; safecall;
- function DefaultSearchProvider: WideString; safecall;
- procedure RunOnceRequiredSettingsComplete(fComplete: WordBool); safecall;
- function RunOnceHasShown: WordBool; safecall;
- function SearchGuideUrl: WideString; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IShellUIHelper2Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {A7FE6EDA-1932-4281-B881-87B31B8BC52C}
-// *********************************************************************//
- IShellUIHelper2Disp = dispinterface
- ['{A7FE6EDA-1932-4281-B881-87B31B8BC52C}']
- procedure AddSearchProvider(const URL: WideString); dispid 14;
- procedure RunOnceShown; dispid 15;
- procedure SkipRunOnce; dispid 16;
- procedure CustomizeSettings(fSQM: WordBool; fPhishing: WordBool; const bstrLocale: WideString); dispid 17;
- function SqmEnabled: WordBool; dispid 18;
- function PhishingEnabled: WordBool; dispid 19;
- function BrandImageUri: WideString; dispid 20;
- procedure SkipTabsWelcome; dispid 21;
- procedure DiagnoseConnection; dispid 22;
- procedure CustomizeClearType(fSet: WordBool); dispid 23;
- function IsSearchProviderInstalled(const URL: WideString): LongWord; dispid 24;
- function IsSearchMigrated: WordBool; dispid 25;
- function DefaultSearchProvider: WideString; dispid 26;
- procedure RunOnceRequiredSettingsComplete(fComplete: WordBool); dispid 27;
- function RunOnceHasShown: WordBool; dispid 28;
- function SearchGuideUrl: WideString; dispid 29;
- procedure ResetFirstBootMode; dispid 1;
- procedure ResetSafeMode; dispid 2;
- procedure RefreshOfflineDesktop; dispid 3;
- procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4;
- procedure AddChannel(const URL: WideString); dispid 5;
- procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
- var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
- var Height: OleVariant); dispid 6;
- function IsSubscribed(const URL: WideString): WordBool; dispid 7;
- procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
- var varTargetFrame: OleVariant); dispid 8;
- procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9;
- procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10;
- procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
- var pvarTargetFrame: OleVariant); dispid 11;
- procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12;
- function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13;
- end;
-
-// *********************************************************************//
-// Interface: IShellUIHelper3
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {B7FCA399-7F15-42DF-A51C-E39C1A4F32DE}
-// *********************************************************************//
- IShellUIHelper3 = interface(IShellUIHelper2)
- ['{B7FCA399-7F15-42DF-A51C-E39C1A4F32DE}']
- procedure AddService(const URL: WideString); safecall;
- procedure AddInPrivateSubscription(const URL: WideString; const bstrFilterName: WideString); safecall;
- function IsServiceInstalled(const URL: WideString; const Verb: WideString): LongWord; safecall;
- procedure AddToFavoritesBar(const URL: WideString; const Title: WideString;
- var Type_: OleVariant); safecall;
- procedure BuildNewTabPage; safecall;
- procedure SetRecentlyClosedVisible(fVisible: WordBool); safecall;
- procedure SetActivitiesVisible(fVisible: WordBool); safecall;
- procedure ContentDiscoveryReset; safecall;
- function IsSuggestedSitesEnabled: WordBool; safecall;
- procedure EnableSuggestedSites(fEnable: WordBool); safecall;
- procedure NavigateToSuggestedSites(const bstrRelativeUrl: WideString); safecall;
- procedure ShowTabsHelp; safecall;
- procedure ShowInPrivateHelp; safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IShellUIHelper3Disp
-// Flags: (4416) Dual OleAutomation Dispatchable
-// GUID: {B7FCA399-7F15-42DF-A51C-E39C1A4F32DE}
-// *********************************************************************//
- IShellUIHelper3Disp = dispinterface
- ['{B7FCA399-7F15-42DF-A51C-E39C1A4F32DE}']
- procedure AddService(const URL: WideString); dispid 30;
- procedure AddInPrivateSubscription(const URL: WideString; const bstrFilterName: WideString); dispid 37;
- function IsServiceInstalled(const URL: WideString; const Verb: WideString): LongWord; dispid 31;
- procedure AddToFavoritesBar(const URL: WideString; const Title: WideString;
- var Type_: OleVariant); dispid 32;
- procedure BuildNewTabPage; dispid 33;
- procedure SetRecentlyClosedVisible(fVisible: WordBool); dispid 34;
- procedure SetActivitiesVisible(fVisible: WordBool); dispid 35;
- procedure ContentDiscoveryReset; dispid 36;
- function IsSuggestedSitesEnabled: WordBool; dispid 38;
- procedure EnableSuggestedSites(fEnable: WordBool); dispid 39;
- procedure NavigateToSuggestedSites(const bstrRelativeUrl: WideString); dispid 40;
- procedure ShowTabsHelp; dispid 41;
- procedure ShowInPrivateHelp; dispid 42;
- procedure AddSearchProvider(const URL: WideString); dispid 14;
- procedure RunOnceShown; dispid 15;
- procedure SkipRunOnce; dispid 16;
- procedure CustomizeSettings(fSQM: WordBool; fPhishing: WordBool; const bstrLocale: WideString); dispid 17;
- function SqmEnabled: WordBool; dispid 18;
- function PhishingEnabled: WordBool; dispid 19;
- function BrandImageUri: WideString; dispid 20;
- procedure SkipTabsWelcome; dispid 21;
- procedure DiagnoseConnection; dispid 22;
- procedure CustomizeClearType(fSet: WordBool); dispid 23;
- function IsSearchProviderInstalled(const URL: WideString): LongWord; dispid 24;
- function IsSearchMigrated: WordBool; dispid 25;
- function DefaultSearchProvider: WideString; dispid 26;
- procedure RunOnceRequiredSettingsComplete(fComplete: WordBool); dispid 27;
- function RunOnceHasShown: WordBool; dispid 28;
- function SearchGuideUrl: WideString; dispid 29;
- procedure ResetFirstBootMode; dispid 1;
- procedure ResetSafeMode; dispid 2;
- procedure RefreshOfflineDesktop; dispid 3;
- procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4;
- procedure AddChannel(const URL: WideString); dispid 5;
- procedure AddDesktopComponent(const URL: WideString; const Type_: WideString;
- var Left: OleVariant; var Top: OleVariant; var Width: OleVariant;
- var Height: OleVariant); dispid 6;
- function IsSubscribed(const URL: WideString): WordBool; dispid 7;
- procedure NavigateAndFind(const URL: WideString; const strQuery: WideString;
- var varTargetFrame: OleVariant); dispid 8;
- procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9;
- procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10;
- procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString;
- var pvarTargetFrame: OleVariant); dispid 11;
- procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12;
- function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13;
- end;
-
-// *********************************************************************//
-// DispIntf: DShellNameSpaceEvents
-// Flags: (4096) Dispatchable
-// GUID: {55136806-B2DE-11D1-B9F2-00A0C98BC547}
-// *********************************************************************//
- DShellNameSpaceEvents = dispinterface
- ['{55136806-B2DE-11D1-B9F2-00A0C98BC547}']
- procedure FavoritesSelectionChange(cItems: Integer; hItem: Integer; const strName: WideString;
- const strUrl: WideString; cVisits: Integer;
- const strDate: WideString; fAvailableOffline: Integer); dispid 1;
- procedure SelectionChange; dispid 2;
- procedure DoubleClick; dispid 3;
- procedure Initialized; dispid 4;
- end;
-
-// *********************************************************************//
-// Interface: IShellFavoritesNameSpace
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547}
-// *********************************************************************//
- IShellFavoritesNameSpace = interface(IDispatch)
- ['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
- procedure MoveSelectionUp; safecall;
- procedure MoveSelectionDown; safecall;
- procedure ResetSort; safecall;
- procedure NewFolder; safecall;
- procedure Synchronize; safecall;
- procedure Import; safecall;
- procedure Export; safecall;
- procedure InvokeContextMenuCommand(const strCommand: WideString); safecall;
- procedure MoveSelectionTo; safecall;
- function Get_SubscriptionsEnabled: WordBool; safecall;
- function CreateSubscriptionForSelection: WordBool; safecall;
- function DeleteSubscriptionForSelection: WordBool; safecall;
- procedure SetRoot(const bstrFullPath: WideString); safecall;
- property SubscriptionsEnabled: WordBool read Get_SubscriptionsEnabled;
- end;
-
-// *********************************************************************//
-// DispIntf: IShellFavoritesNameSpaceDisp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547}
-// *********************************************************************//
- IShellFavoritesNameSpaceDisp = dispinterface
- ['{55136804-B2DE-11D1-B9F2-00A0C98BC547}']
- procedure MoveSelectionUp; dispid 1;
- procedure MoveSelectionDown; dispid 2;
- procedure ResetSort; dispid 3;
- procedure NewFolder; dispid 4;
- procedure Synchronize; dispid 5;
- procedure Import; dispid 6;
- procedure Export; dispid 7;
- procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
- procedure MoveSelectionTo; dispid 9;
- property SubscriptionsEnabled: WordBool readonly dispid 10;
- function CreateSubscriptionForSelection: WordBool; dispid 11;
- function DeleteSubscriptionForSelection: WordBool; dispid 12;
- procedure SetRoot(const bstrFullPath: WideString); dispid 13;
- end;
-
-// *********************************************************************//
-// Interface: IShellNameSpace
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
-// *********************************************************************//
- IShellNameSpace = interface(IShellFavoritesNameSpace)
- ['{E572D3C9-37BE-4AE2-825D-D521763E3108}']
- function Get_EnumOptions: Integer; safecall;
- procedure Set_EnumOptions(pgrfEnumFlags: Integer); safecall;
- function Get_SelectedItem: IDispatch; safecall;
- procedure Set_SelectedItem(const pItem: IDispatch); safecall;
- function Get_Root: OleVariant; safecall;
- procedure Set_Root(pvar: OleVariant); safecall;
- function Get_Depth: SYSINT; safecall;
- procedure Set_Depth(piDepth: SYSINT); safecall;
- function Get_Mode: SYSUINT; safecall;
- procedure Set_Mode(puMode: SYSUINT); safecall;
- function Get_Flags: LongWord; safecall;
- procedure Set_Flags(pdwFlags: LongWord); safecall;
- procedure Set_TVFlags(dwFlags: LongWord); safecall;
- function Get_TVFlags: LongWord; safecall;
- function Get_Columns: WideString; safecall;
- procedure Set_Columns(const bstrColumns: WideString); safecall;
- function Get_CountViewTypes: SYSINT; safecall;
- procedure SetViewType(iType: SYSINT); safecall;
- function SelectedItems: IDispatch; safecall;
- procedure Expand(var_: OleVariant; iDepth: SYSINT); safecall;
- procedure UnselectAll; safecall;
- property EnumOptions: Integer read Get_EnumOptions write Set_EnumOptions;
- property SelectedItem: IDispatch read Get_SelectedItem write Set_SelectedItem;
- property Root: OleVariant read Get_Root write Set_Root;
- property Depth: SYSINT read Get_Depth write Set_Depth;
- property Mode: SYSUINT read Get_Mode write Set_Mode;
- property Flags: LongWord read Get_Flags write Set_Flags;
- property TVFlags: LongWord read Get_TVFlags write Set_TVFlags;
- property Columns: WideString read Get_Columns write Set_Columns;
- property CountViewTypes: SYSINT read Get_CountViewTypes;
- end;
-
-// *********************************************************************//
-// DispIntf: IShellNameSpaceDisp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108}
-// *********************************************************************//
- IShellNameSpaceDisp = dispinterface
- ['{E572D3C9-37BE-4AE2-825D-D521763E3108}']
- property EnumOptions: Integer dispid 14;
- property SelectedItem: IDispatch dispid 15;
- property Root: OleVariant dispid 16;
- property Depth: SYSINT dispid 17;
- property Mode: SYSUINT dispid 18;
- property Flags: LongWord dispid 19;
- property TVFlags: LongWord dispid 20;
- property Columns: WideString dispid 21;
- property CountViewTypes: SYSINT readonly dispid 22;
- procedure SetViewType(iType: SYSINT); dispid 23;
- function SelectedItems: IDispatch; dispid 24;
- procedure Expand(var_: OleVariant; iDepth: SYSINT); dispid 25;
- procedure UnselectAll; dispid 26;
- procedure MoveSelectionUp; dispid 1;
- procedure MoveSelectionDown; dispid 2;
- procedure ResetSort; dispid 3;
- procedure NewFolder; dispid 4;
- procedure Synchronize; dispid 5;
- procedure Import; dispid 6;
- procedure Export; dispid 7;
- procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8;
- procedure MoveSelectionTo; dispid 9;
- property SubscriptionsEnabled: WordBool readonly dispid 10;
- function CreateSubscriptionForSelection: WordBool; dispid 11;
- function DeleteSubscriptionForSelection: WordBool; dispid 12;
- procedure SetRoot(const bstrFullPath: WideString); dispid 13;
- end;
-
-// *********************************************************************//
-// Interface: IScriptErrorList
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
-// *********************************************************************//
- IScriptErrorList = interface(IDispatch)
- ['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
- procedure advanceError; safecall;
- procedure retreatError; safecall;
- function canAdvanceError: Integer; safecall;
- function canRetreatError: Integer; safecall;
- function getErrorLine: Integer; safecall;
- function getErrorChar: Integer; safecall;
- function getErrorCode: Integer; safecall;
- function getErrorMsg: WideString; safecall;
- function getErrorUrl: WideString; safecall;
- function getAlwaysShowLockState: Integer; safecall;
- function getDetailsPaneOpen: Integer; safecall;
- procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); safecall;
- function getPerErrorDisplay: Integer; safecall;
- procedure setPerErrorDisplay(fPerErrorDisplay: Integer); safecall;
- end;
-
-// *********************************************************************//
-// DispIntf: IScriptErrorListDisp
-// Flags: (4432) Hidden Dual OleAutomation Dispatchable
-// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA}
-// *********************************************************************//
- IScriptErrorListDisp = dispinterface
- ['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}']
- procedure advanceError; dispid 10;
- procedure retreatError; dispid 11;
- function canAdvanceError: Integer; dispid 12;
- function canRetreatError: Integer; dispid 13;
- function getErrorLine: Integer; dispid 14;
- function getErrorChar: Integer; dispid 15;
- function getErrorCode: Integer; dispid 16;
- function getErrorMsg: WideString; dispid 17;
- function getErrorUrl: WideString; dispid 18;
- function getAlwaysShowLockState: Integer; dispid 23;
- function getDetailsPaneOpen: Integer; dispid 19;
- procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); dispid 20;
- function getPerErrorDisplay: Integer; dispid 21;
- procedure setPerErrorDisplay(fPerErrorDisplay: Integer); dispid 22;
- end;
-
-// *********************************************************************//
-// OLE Control Proxy class declaration
-// Control Name : TEWB_V1
-// Help String : WebBrowser Control
-// Default Interface: IWebBrowser
-// Def. Intf. DISP? : No
-// Event Interface: DWebBrowserEvents
-// TypeFlags : (34) CanCreate Control
-// *********************************************************************//
- TEWB_V1BeforeNavigate = procedure(ASender: TObject; const URL: WideString; Flags: Integer;
- const TargetFrameName: WideString;
- var PostData: OleVariant;
- const Headers: WideString;
- var Cancel: WordBool) of object;
- TEWB_V1NavigateComplete = procedure(ASender: TObject; const URL: WideString) of object;
- TEWB_V1StatusTextChange = procedure(ASender: TObject; const Text: WideString) of object;
- TEWB_V1ProgressChange = procedure(ASender: TObject; Progress: Integer; ProgressMax: Integer) of object;
- TEWB_V1CommandStateChange = procedure(ASender: TObject; Command: Integer; Enable: WordBool) of object;
- TEWB_V1NewWindow = procedure(ASender: TObject; const URL: WideString; Flags: Integer;
- const TargetFrameName: WideString;
- var PostData: OleVariant;
- const Headers: WideString;
- var Processed: WordBool) of object;
- TEWB_V1TitleChange = procedure(ASender: TObject; const Text: WideString) of object;
- TEWB_V1FrameBeforeNavigate = procedure(ASender: TObject; const URL: WideString;
- Flags: Integer;
- const TargetFrameName: WideString;
- var PostData: OleVariant;
- const Headers: WideString;
- var Cancel: WordBool) of object;
- TEWB_V1FrameNavigateComplete = procedure(ASender: TObject; const URL: WideString) of object;
- TEWB_V1FrameNewWindow = procedure(ASender: TObject; const URL: WideString; Flags: Integer;
- const TargetFrameName: WideString;
- var PostData: OleVariant;
- const Headers: WideString;
- var Processed: WordBool) of object;
- TEWB_V1Quit = procedure(ASender: TObject; var Cancel: WordBool) of object;
- TEWB_V1PropertyChange = procedure(ASender: TObject; const Property_: WideString) of object;
-
- TEWB_V1 = class(TOleControl)
- private
- FOnBeforeNavigate: TEWB_V1BeforeNavigate;
- FOnNavigateComplete: TEWB_V1NavigateComplete;
- FOnStatusTextChange: TEWB_V1StatusTextChange;
- FOnProgressChange: TEWB_V1ProgressChange;
- FOnDownloadComplete: TNotifyEvent;
- FOnCommandStateChange: TEWB_V1CommandStateChange;
- FOnDownloadBegin: TNotifyEvent;
- FOnNewWindow: TEWB_V1NewWindow;
- FOnTitleChange: TEWB_V1TitleChange;
- FOnFrameBeforeNavigate: TEWB_V1FrameBeforeNavigate;
- FOnFrameNavigateComplete: TEWB_V1FrameNavigateComplete;
- FOnFrameNewWindow: TEWB_V1FrameNewWindow;
- FOnQuit: TEWB_V1Quit;
- FOnWindowMove: TNotifyEvent;
- FOnWindowResize: TNotifyEvent;
- FOnWindowActivate: TNotifyEvent;
- FOnPropertyChange: TEWB_V1PropertyChange;
- FIntf: IWebBrowser;
- function GetControlInterface: IWebBrowser;
- protected
- procedure CreateControl;
- procedure InitControlData; override;
- function Get_Application: IDispatch;
- function Get_Parent: IDispatch;
- function Get_Container: IDispatch;
- function Get_Document: IDispatch;
- public
- procedure GoBack;
- procedure GoForward;
- procedure GoHome;
- procedure GoSearch;
- procedure Navigate(const URL: WideString); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); overload;
- procedure Refresh;
- procedure Refresh2; overload;
- procedure Refresh2(var Level: OleVariant); overload;
- procedure Stop;
- property ControlInterface: IWebBrowser read GetControlInterface;
- property DefaultInterface: IWebBrowser read GetControlInterface;
- property Application: IDispatch index 200 read GetIDispatchProp;
- property Parent: IDispatch index 201 read GetIDispatchProp;
- property Container: IDispatch index 202 read GetIDispatchProp;
- property Document: IDispatch index 203 read GetIDispatchProp;
- property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
- property type_: WideString index 205 read GetWideStringProp;
- property LocationName: WideString index 210 read GetWideStringProp;
- property LocationURL: WideString index 211 read GetWideStringProp;
- property Busy: WordBool index 212 read GetWordBoolProp;
- published
- property Anchors;
- property TabStop;
- property Align;
- property DragCursor;
- property DragMode;
- property ParentShowHint;
- property PopupMenu;
- property ShowHint;
- property TabOrder;
- property Visible;
- property OnDragDrop;
- property OnDragOver;
- property OnEndDrag;
- property OnEnter;
- property OnExit;
- property OnStartDrag;
- property OnBeforeNavigate: TEWB_V1BeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate;
- property OnNavigateComplete: TEWB_V1NavigateComplete read FOnNavigateComplete write FOnNavigateComplete;
- property OnStatusTextChange: TEWB_V1StatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
- property OnProgressChange: TEWB_V1ProgressChange read FOnProgressChange write FOnProgressChange;
- property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
- property OnCommandStateChange: TEWB_V1CommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
- property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
- property OnNewWindow: TEWB_V1NewWindow read FOnNewWindow write FOnNewWindow;
- property OnTitleChange: TEWB_V1TitleChange read FOnTitleChange write FOnTitleChange;
- property OnFrameBeforeNavigate: TEWB_V1FrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate;
- property OnFrameNavigateComplete: TEWB_V1FrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete;
- property OnFrameNewWindow: TEWB_V1FrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow;
- property OnQuit: TEWB_V1Quit read FOnQuit write FOnQuit;
- property OnWindowMove: TNotifyEvent read FOnWindowMove write FOnWindowMove;
- property OnWindowResize: TNotifyEvent read FOnWindowResize write FOnWindowResize;
- property OnWindowActivate: TNotifyEvent read FOnWindowActivate write FOnWindowActivate;
- property OnPropertyChange: TEWB_V1PropertyChange read FOnPropertyChange write FOnPropertyChange;
- end;
-
-// *********************************************************************//
-// OLE Control Proxy class declaration
-// Control Name : TEWB
-// Help String : WebBrowser Control
-// Default Interface: IWebBrowser2
-// Def. Intf. DISP? : No
-// Event Interface: DWebBrowserEvents2
-// TypeFlags : (34) CanCreate Control
-// *********************************************************************//
- TEWBStatusTextChange = procedure(ASender: TObject; const Text: WideString) of object;
- TEWBProgressChange = procedure(ASender: TObject; Progress: Integer; ProgressMax: Integer) of object;
- TEWBCommandStateChange = procedure(ASender: TObject; Command: Integer; Enable: WordBool) of object;
- TEWBTitleChange = procedure(ASender: TObject; const Text: WideString) of object;
- TEWBPropertyChange = procedure(ASender: TObject; const szProperty: WideString) of object;
- TEWBBeforeNavigate2 = procedure(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant;
- var Flags: OleVariant;
- var TargetFrameName: OleVariant;
- var PostData: OleVariant;
- var Headers: OleVariant;
- var Cancel: WordBool) of object;
- TEWBNewWindow2 = procedure(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object;
- TEWBNavigateComplete2 = procedure(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant) of object;
- TEWBDocumentComplete = procedure(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant) of object;
- TEWBOnVisible = procedure(ASender: TObject; Visible: WordBool) of object;
- TEWBOnToolBar = procedure(ASender: TObject; ToolBar: WordBool) of object;
- TEWBOnMenuBar = procedure(ASender: TObject; MenuBar: WordBool) of object;
- TEWBOnStatusBar = procedure(ASender: TObject; StatusBar: WordBool) of object;
- TEWBOnFullScreen = procedure(ASender: TObject; FullScreen: WordBool) of object;
- TEWBOnTheaterMode = procedure(ASender: TObject; TheaterMode: WordBool) of object;
- TEWBOnAddressBar = procedure(ASender: TObject; AddressBar: WordBool) of object;
- TEWBWindowSetResizable = procedure(ASender: TObject; Resizable: WordBool) of object;
- TEWBWindowSetLeft = procedure(ASender: TObject; Left: Integer) of object;
- TEWBWindowSetTop = procedure(ASender: TObject; Top: Integer) of object;
- TEWBWindowSetWidth = procedure(ASender: TObject; Width: Integer) of object;
- TEWBWindowSetHeight = procedure(ASender: TObject; Height: Integer) of object;
- TEWBWindowClosing = procedure(ASender: TObject; IsChildWindow: WordBool;
- var Cancel: WordBool) of object;
- TEWBClientToHostWindow = procedure(ASender: TObject; var CX: Integer; var CY: Integer) of object;
- TEWBSetSecureLockIcon = procedure(ASender: TObject; SecureLockIcon: Integer) of object;
- TEWBFileDownload = procedure(ASender: TObject; var Cancel: WordBool) of object;
- TEWBNavigateError = procedure(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant;
- var Frame: OleVariant;
- var StatusCode: OleVariant;
- var Cancel: WordBool) of object;
- TEWBPrintTemplateInstantiation = procedure(ASender: TObject; const pDisp: IDispatch) of object;
- TEWBPrintTemplateTeardown = procedure(ASender: TObject; const pDisp: IDispatch) of object;
- TEWBUpdatePageStatus = procedure(ASender: TObject; const pDisp: IDispatch;
- var nPage: OleVariant;
- var fDone: OleVariant) of object;
- TEWBPrivacyImpactedStateChange = procedure(ASender: TObject; bImpacted: WordBool) of object;
- TEWBNewWindow3 = procedure(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool;
- dwFlags: LongWord;
- const bstrUrlContext: WideString;
- const bstrUrl: WideString) of object;
-
- TEWB = class(TOleControl)
- private
- FOnStatusTextChange: TEWBStatusTextChange;
- FOnProgressChange: TEWBProgressChange;
- FOnCommandStateChange: TEWBCommandStateChange;
- FOnDownloadBegin: TNotifyEvent;
- FOnDownloadComplete: TNotifyEvent;
- FOnTitleChange: TEWBTitleChange;
- FOnPropertyChange: TEWBPropertyChange;
- FOnBeforeNavigate2: TEWBBeforeNavigate2;
- FOnNewWindow2: TEWBNewWindow2;
- FOnNavigateComplete2: TEWBNavigateComplete2;
- FOnDocumentComplete: TEWBDocumentComplete;
- FOnQuit: TNotifyEvent;
- FOnVisible: TEWBOnVisible;
- FOnToolBar: TEWBOnToolBar;
- FOnMenuBar: TEWBOnMenuBar;
- FOnStatusBar: TEWBOnStatusBar;
- FOnFullScreen: TEWBOnFullScreen;
- FOnTheaterMode: TEWBOnTheaterMode;
- FOnAddressBar: TEWBOnAddressBar;
- FOnWindowSetResizable: TEWBWindowSetResizable;
- FOnWindowSetLeft: TEWBWindowSetLeft;
- FOnWindowSetTop: TEWBWindowSetTop;
- FOnWindowSetWidth: TEWBWindowSetWidth;
- FOnWindowSetHeight: TEWBWindowSetHeight;
- FOnWindowClosing: TEWBWindowClosing;
- FOnClientToHostWindow: TEWBClientToHostWindow;
- FOnSetSecureLockIcon: TEWBSetSecureLockIcon;
- FOnFileDownload: TEWBFileDownload;
- FOnNavigateError: TEWBNavigateError;
- FOnPrintTemplateInstantiation: TEWBPrintTemplateInstantiation;
- FOnPrintTemplateTeardown: TEWBPrintTemplateTeardown;
- FOnUpdatePageStatus: TEWBUpdatePageStatus;
- FOnPrivacyImpactedStateChange: TEWBPrivacyImpactedStateChange;
- FOnNewWindow3: TEWBNewWindow3;
- FIntf: IWebBrowser2;
- function GetControlInterface: IWebBrowser2;
- protected
- procedure CreateControl;
- procedure InitControlData; override;
- function Get_Application: IDispatch;
- function Get_Parent: IDispatch;
- function Get_Container: IDispatch;
- function Get_Document: IDispatch;
- public
- procedure GoBack;
- procedure GoForward;
- procedure GoHome;
- procedure GoSearch;
- procedure Navigate(const URL: WideString); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
- procedure Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); overload;
- procedure Refresh;
- procedure Refresh2; overload;
- procedure Refresh2(var Level: OleVariant); overload;
- procedure Stop;
- procedure Quit;
- procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
- procedure PutProperty(const Property_: WideString; vtValue: OleVariant);
- function GetProperty(const Property_: WideString): OleVariant;
- procedure Navigate2(var URL: OleVariant); overload;
- procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
- procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
- procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant); overload;
- procedure Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant); overload;
- function QueryStatusWB(cmdID: OLECMDID): OLECMDF;
- procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
- procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); overload;
- procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
- var pvaOut: OleVariant); overload;
- procedure ShowBrowserBar(var pvaClsid: OleVariant); overload;
- procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); overload;
- procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
- var pvarSize: OleVariant); overload;
- property ControlInterface: IWebBrowser2 read GetControlInterface;
- property DefaultInterface: IWebBrowser2 read GetControlInterface;
- property Application: IDispatch index 200 read GetIDispatchProp;
- property Parent: IDispatch index 201 read GetIDispatchProp;
- property Container: IDispatch index 202 read GetIDispatchProp;
- property Document: IDispatch index 203 read GetIDispatchProp;
- property TopLevelContainer: WordBool index 204 read GetWordBoolProp;
- property type_: WideString index 205 read GetWideStringProp;
- property LocationName: WideString index 210 read GetWideStringProp;
- property LocationURL: WideString index 211 read GetWideStringProp;
- property Busy: WordBool index 212 read GetWordBoolProp;
- property Name: WideString index 0 read GetWideStringProp;
- property HWND: Integer index - 515 read GetIntegerProp;
- property FullName: WideString index 400 read GetWideStringProp;
- property Path: WideString index 401 read GetWideStringProp;
- property ReadyState: TOleEnum index - 525 read GetTOleEnumProp;
- published
- property Anchors;
- property TabStop;
- property Align;
- property DragCursor;
- property DragMode;
- property ParentShowHint;
- property PopupMenu;
- property ShowHint;
- property TabOrder;
- property OnDragDrop;
- property OnDragOver;
- property OnEndDrag;
- property OnEnter;
- property OnExit;
- property OnStartDrag;
- property Visible: WordBool index 402 read GetWordBoolProp write SetWordBoolProp stored False;
- property StatusBar: WordBool index 403 read GetWordBoolProp write SetWordBoolProp stored False;
- property StatusText: WideString index 404 read GetWideStringProp write SetWideStringProp stored False;
- property ToolBar: Integer index 405 read GetIntegerProp write SetIntegerProp stored False;
- property MenuBar: WordBool index 406 read GetWordBoolProp write SetWordBoolProp stored False;
- property FullScreen: WordBool index 407 read GetWordBoolProp write SetWordBoolProp stored False;
- property Offline: WordBool index 550 read GetWordBoolProp write SetWordBoolProp stored False;
- property Silent: WordBool index 551 read GetWordBoolProp write SetWordBoolProp stored False;
- property RegisterAsBrowser: WordBool index 552 read GetWordBoolProp write SetWordBoolProp stored False;
- property RegisterAsDropTarget: WordBool index 553 read GetWordBoolProp write SetWordBoolProp stored False;
- property TheaterMode: WordBool index 554 read GetWordBoolProp write SetWordBoolProp stored False;
- property AddressBar: WordBool index 555 read GetWordBoolProp write SetWordBoolProp stored False;
- property Resizable: WordBool index 556 read GetWordBoolProp write SetWordBoolProp stored False;
- property OnStatusTextChange: TEWBStatusTextChange read FOnStatusTextChange write FOnStatusTextChange;
- property OnProgressChange: TEWBProgressChange read FOnProgressChange write FOnProgressChange;
- property OnCommandStateChange: TEWBCommandStateChange read FOnCommandStateChange write FOnCommandStateChange;
- property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin;
- property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete;
- property OnTitleChange: TEWBTitleChange read FOnTitleChange write FOnTitleChange;
- property OnPropertyChange: TEWBPropertyChange read FOnPropertyChange write FOnPropertyChange;
- property OnBeforeNavigate2: TEWBBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
- property OnNewWindow2: TEWBNewWindow2 read FOnNewWindow2 write FOnNewWindow2;
- property OnNavigateComplete2: TEWBNavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2;
- property OnDocumentComplete: TEWBDocumentComplete read FOnDocumentComplete write FOnDocumentComplete;
- property OnQuit: TNotifyEvent read FOnQuit write FOnQuit;
- property OnVisible: TEWBOnVisible read FOnVisible write FOnVisible;
- property OnToolBar: TEWBOnToolBar read FOnToolBar write FOnToolBar;
- property OnMenuBar: TEWBOnMenuBar read FOnMenuBar write FOnMenuBar;
- property OnStatusBar: TEWBOnStatusBar read FOnStatusBar write FOnStatusBar;
- property OnFullScreen: TEWBOnFullScreen read FOnFullScreen write FOnFullScreen;
- property OnTheaterMode: TEWBOnTheaterMode read FOnTheaterMode write FOnTheaterMode;
- property OnAddressBar: TEWBOnAddressBar read FOnAddressBar write FOnAddressBar;
- property OnWindowSetResizable: TEWBWindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable;
- property OnWindowSetLeft: TEWBWindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft;
- property OnWindowSetTop: TEWBWindowSetTop read FOnWindowSetTop write FOnWindowSetTop;
- property OnWindowSetWidth: TEWBWindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth;
- property OnWindowSetHeight: TEWBWindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight;
- property OnWindowClosing: TEWBWindowClosing read FOnWindowClosing write FOnWindowClosing;
- property OnClientToHostWindow: TEWBClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow;
- property OnSetSecureLockIcon: TEWBSetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon;
- property OnFileDownload: TEWBFileDownload read FOnFileDownload write FOnFileDownload;
- property OnNavigateError: TEWBNavigateError read FOnNavigateError write FOnNavigateError;
- property OnPrintTemplateInstantiation: TEWBPrintTemplateInstantiation read FOnPrintTemplateInstantiation write FOnPrintTemplateInstantiation;
- property OnPrintTemplateTeardown: TEWBPrintTemplateTeardown read FOnPrintTemplateTeardown write FOnPrintTemplateTeardown;
- property OnUpdatePageStatus: TEWBUpdatePageStatus read FOnUpdatePageStatus write FOnUpdatePageStatus;
- property OnPrivacyImpactedStateChange: TEWBPrivacyImpactedStateChange read FOnPrivacyImpactedStateChange write FOnPrivacyImpactedStateChange;
- property OnNewWindow3: TEWBNewWindow3 read FOnNewWindow3 write FOnNewWindow3;
- end;
-
-// *********************************************************************//
-// The Class CoInternetExplorer provides a Create and CreateRemote method to
-// create instances of the default interface IWebBrowser2 exposed by
-// the CoClass InternetExplorer. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoInternetExplorer = class
- class function Create: IWebBrowser2;
- class function CreateRemote(const MachineName: string): IWebBrowser2;
- end;
-
-// *********************************************************************//
-// The Class CoShellBrowserWindow provides a Create and CreateRemote method to
-// create instances of the default interface IWebBrowser2 exposed by
-// the CoClass ShellBrowserWindow. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoShellBrowserWindow = class
- class function Create: IWebBrowser2;
- class function CreateRemote(const MachineName: string): IWebBrowser2;
- end;
-
-// *********************************************************************//
-// The Class CoShellWindows provides a Create and CreateRemote method to
-// create instances of the default interface IShellWindows exposed by
-// the CoClass ShellWindows. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoShellWindows = class
- class function Create: IShellWindows;
- class function CreateRemote(const MachineName: string): IShellWindows;
- end;
-
-// *********************************************************************//
-// The Class CoShellUIHelper provides a Create and CreateRemote method to
-// create instances of the default interface IShellUIHelper3 exposed by
-// the CoClass ShellUIHelper. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoShellUIHelper = class
- class function Create: IShellUIHelper3;
- class function CreateRemote(const MachineName: string): IShellUIHelper3;
- end;
-
-// *********************************************************************//
-// The Class CoShellNameSpace provides a Create and CreateRemote method to
-// create instances of the default interface IShellNameSpace exposed by
-// the CoClass ShellNameSpace. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoShellNameSpace = class
- class function Create: IShellNameSpace;
- class function CreateRemote(const MachineName: string): IShellNameSpace;
- end;
-
-// *********************************************************************//
-// The Class CoShellShellNameSpace provides a Create and CreateRemote method to
-// create instances of the default interface IShellNameSpace exposed by
-// the CoClass ShellShellNameSpace. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoShellShellNameSpace = class
- class function Create: IShellNameSpace;
- class function CreateRemote(const MachineName: string): IShellNameSpace;
- end;
-
-// *********************************************************************//
-// The Class CoCScriptErrorList provides a Create and CreateRemote method to
-// create instances of the default interface IScriptErrorList exposed by
-// the CoClass CScriptErrorList. The functions are intended to be used by
-// clients wishing to automate the CoClass objects exposed by the
-// server of this typelibrary.
-// *********************************************************************//
- CoCScriptErrorList = class
- class function Create: IScriptErrorList;
- class function CreateRemote(const MachineName: string): IScriptErrorList;
- end;
-
-
-implementation
-
-uses ComObj;
-
-var
- VarEmptyParam: OleVariant;
-
-procedure TEWB_V1.InitControlData;
-const
- CEventDispIDs: array[0..16] of DWORD = (
- $00000064, $00000065, $00000066, $0000006C, $00000068, $00000069,
- $0000006A, $0000006B, $00000071, $000000C8, $000000C9, $000000CC,
- $00000067, $0000006D, $0000006E, $0000006F, $00000070);
- CControlData: TControlData2 = (
- ClassID: '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';
- EventIID: '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}';
- EventCount: 17;
- EventDispIDs: @CEventDispIDs;
- LicenseKey: nil (*HR:$80040111*);
- Flags: $00000000;
- Version: 401);
-begin
- ControlData := @CControlData;
- TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnBeforeNavigate) - Cardinal(Self);
-end;
-
-procedure TEWB_V1.CreateControl;
-
- procedure DoCreate;
- begin
- FIntf := IUnknown(OleObject) as IWebBrowser;
- end;
-
-begin
- if FIntf = nil then
- DoCreate;
-end;
-
-function TEWB_V1.GetControlInterface: IWebBrowser;
-begin
- CreateControl;
- Result := FIntf;
-end;
-
-function TEWB_V1.Get_Application: IDispatch;
-begin
- Result := DefaultInterface.Application;
-end;
-
-function TEWB_V1.Get_Parent: IDispatch;
-begin
- Result := DefaultInterface.Parent;
-end;
-
-function TEWB_V1.Get_Container: IDispatch;
-begin
- Result := DefaultInterface.Container;
-end;
-
-function TEWB_V1.Get_Document: IDispatch;
-begin
- Result := DefaultInterface.Document;
-end;
-
-procedure TEWB_V1.GoBack;
-begin
- DefaultInterface.GoBack;
-end;
-
-procedure TEWB_V1.GoForward;
-begin
- DefaultInterface.GoForward;
-end;
-
-procedure TEWB_V1.GoHome;
-begin
- DefaultInterface.GoHome;
-end;
-
-procedure TEWB_V1.GoSearch;
-begin
- DefaultInterface.GoSearch;
-end;
-
-procedure TEWB_V1.Navigate(const URL: WideString);
-begin
- DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB_V1.Navigate(const URL: WideString; var Flags: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, EmptyParam, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB_V1.Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, TargetFrameName, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB_V1.Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, TargetFrameName, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB_V1.Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
-end;
-
-procedure TEWB_V1.Refresh;
-begin
- DefaultInterface.Refresh;
-end;
-
-procedure TEWB_V1.Refresh2;
-var
- Level: OleVariant;
-begin
- Level := EmptyParam;
- DefaultInterface.Refresh2(Level);
-end;
-
-procedure TEWB_V1.Refresh2(var Level: OleVariant);
-begin
- DefaultInterface.Refresh2(Level);
-end;
-
-procedure TEWB_V1.Stop;
-begin
- DefaultInterface.Stop;
-end;
-
-procedure TEWB.InitControlData;
-const
- CEventDispIDs: array[0..33] of DWORD = (
- $00000066, $0000006C, $00000069, $0000006A, $00000068, $00000071,
- $00000070, $000000FA, $000000FB, $000000FC, $00000103, $000000FD,
- $000000FE, $000000FF, $00000100, $00000101, $00000102, $00000104, $00000105,
- $00000106, $00000108, $00000109, $0000010A, $0000010B, $00000107,
- $0000010C, $0000010D, $0000010E, $0000010F, $000000E1, $000000E2,
- $000000E3, $00000110, $00000111);
- CControlData: TControlData2 = (
- ClassID: '{8856F961-340A-11D0-A96B-00C04FD705A2}';
- EventIID: '{34A715A0-6587-11D0-924A-0020AFC7AC4D}';
- EventCount: 34;
- EventDispIDs: @CEventDispIDs;
- LicenseKey: nil (*HR:$80040111*);
- Flags: $00000000;
- Version: 401);
-begin
- ControlData := @CControlData;
- TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnStatusTextChange) - Cardinal(Self);
-end;
-
-procedure TEWB.CreateControl;
-
- procedure DoCreate;
- begin
- FIntf := IUnknown(OleObject) as IWebBrowser2;
- end;
-
-begin
- if not Assigned(FIntf) then
- DoCreate;
-end;
-
-function TEWB.GetControlInterface: IWebBrowser2;
-begin
- CreateControl;
- Result := FIntf;
-end;
-
-function TEWB.Get_Application: IDispatch;
-begin
- Result := DefaultInterface.Application;
-end;
-
-function TEWB.Get_Parent: IDispatch;
-begin
- Result := DefaultInterface.Parent;
-end;
-
-function TEWB.Get_Container: IDispatch;
-begin
- Result := DefaultInterface.Container;
-end;
-
-function TEWB.Get_Document: IDispatch;
-begin
- Result := DefaultInterface.Document;
-end;
-
-procedure TEWB.GoBack;
-begin
- DefaultInterface.GoBack;
-end;
-
-procedure TEWB.GoForward;
-begin
- DefaultInterface.GoForward;
-end;
-
-procedure TEWB.GoHome;
-begin
- DefaultInterface.GoHome;
-end;
-
-procedure TEWB.GoSearch;
-begin
- DefaultInterface.GoSearch;
-end;
-
-procedure TEWB.Navigate(const URL: WideString);
-begin
- DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB.Navigate(const URL: WideString; var Flags: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, EmptyParam, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB.Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, TargetFrameName, VarEmptyParam, EmptyParam);
-end;
-
-procedure TEWB.Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam);
-end;
-
-procedure TEWB.Navigate(const URL: WideString; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant);
-begin
- DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
-end;
-
-procedure TEWB.Refresh;
-begin
- DefaultInterface.Refresh;
-end;
-
-procedure TEWB.Refresh2;
-begin
- DefaultInterface.Refresh2(VarEmptyParam);
-end;
-
-procedure TEWB.Refresh2(var Level: OleVariant);
-begin
- DefaultInterface.Refresh2(Level);
-end;
-
-procedure TEWB.Stop;
-begin
- DefaultInterface.Stop;
-end;
-
-procedure TEWB.Quit;
-begin
- DefaultInterface.Quit;
-end;
-
-procedure TEWB.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
-begin
- DefaultInterface.ClientToWindow(pcx, pcy);
-end;
-
-procedure TEWB.PutProperty(const Property_: WideString; vtValue: OleVariant);
-begin
- DefaultInterface.PutProperty(Property_, vtValue);
-end;
-
-function TEWB.GetProperty(const Property_: WideString): OleVariant;
-begin
- Result := DefaultInterface.GetProperty(Property_);
-end;
-
-procedure TEWB.Navigate2(var URL: OleVariant);
-begin
- DefaultInterface.Navigate2(URL, VarEmptyParam, VarEmptyParam, VarEmptyParam, VarEmptyParam);
-end;
-
-procedure TEWB.Navigate2(var URL: OleVariant; var Flags: OleVariant);
-begin
- DefaultInterface.Navigate2(URL, Flags, VarEmptyParam, VarEmptyParam, VarEmptyParam);
-end;
-
-procedure TEWB.Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant);
-begin
- DefaultInterface.Navigate2(URL, Flags, TargetFrameName, VarEmptyParam, VarEmptyParam);
-end;
-
-procedure TEWB.Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant);
-begin
- DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, VarEmptyParam);
-end;
-
-procedure TEWB.Navigate2(var URL: OleVariant; var Flags: OleVariant;
- var TargetFrameName: OleVariant; var PostData: OleVariant;
- var Headers: OleVariant);
-begin
- DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
-end;
-
-function TEWB.QueryStatusWB(cmdID: OLECMDID): OLECMDF;
-begin
- Result := DefaultInterface.QueryStatusWB(cmdID);
-end;
-
-procedure TEWB.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT);
-begin
- DefaultInterface.ExecWB(cmdID, cmdexecopt, VarEmptyParam, VarEmptyParam);
-end;
-
-procedure TEWB.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant);
-begin
- DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, VarEmptyParam);
-end;
-
-procedure TEWB.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
- var pvaOut: OleVariant);
-begin
- DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, pvaOut);
-end;
-
-procedure TEWB.ShowBrowserBar(var pvaClsid: OleVariant);
-begin
- DefaultInterface.ShowBrowserBar(pvaClsid, VarEmptyParam, VarEmptyParam);
-end;
-
-procedure TEWB.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant);
-begin
- DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, VarEmptyParam);
-end;
-
-procedure TEWB.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant;
- var pvarSize: OleVariant);
-begin
- DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, pvarSize);
-end;
-
-class function CoInternetExplorer.Create: IWebBrowser2;
-begin
- Result := CreateComObject(CLASS_InternetExplorer) as IWebBrowser2;
-end;
-
-class function CoInternetExplorer.CreateRemote(const MachineName: string): IWebBrowser2;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_InternetExplorer) as IWebBrowser2;
-end;
-
-class function CoShellBrowserWindow.Create: IWebBrowser2;
-begin
- Result := CreateComObject(CLASS_ShellBrowserWindow) as IWebBrowser2;
-end;
-
-class function CoShellBrowserWindow.CreateRemote(const MachineName: string): IWebBrowser2;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_ShellBrowserWindow) as IWebBrowser2;
-end;
-
-class function CoShellWindows.Create: IShellWindows;
-begin
- Result := CreateComObject(CLASS_ShellWindows) as IShellWindows;
-end;
-
-class function CoShellWindows.CreateRemote(const MachineName: string): IShellWindows;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_ShellWindows) as IShellWindows;
-end;
-
-class function CoShellUIHelper.Create: IShellUIHelper3;
-begin
- Result := CreateComObject(CLASS_ShellUIHelper) as IShellUIHelper3;
-end;
-
-class function CoShellUIHelper.CreateRemote(const MachineName: string): IShellUIHelper3;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_ShellUIHelper) as IShellUIHelper3;
-end;
-
-class function CoShellNameSpace.Create: IShellNameSpace;
-begin
- Result := CreateComObject(CLASS_ShellNameSpace) as IShellNameSpace;
-end;
-
-class function CoShellNameSpace.CreateRemote(const MachineName: string): IShellNameSpace;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_ShellNameSpace) as IShellNameSpace;
-end;
-
-class function CoShellShellNameSpace.Create: IShellNameSpace;
-begin
- Result := CreateComObject(CLASS_ShellShellNameSpace) as IShellNameSpace;
-end;
-
-class function CoShellShellNameSpace.CreateRemote(const MachineName: string): IShellNameSpace;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_ShellShellNameSpace) as IShellNameSpace;
-end;
-
-class function CoCScriptErrorList.Create: IScriptErrorList;
-begin
- Result := CreateComObject(CLASS_CScriptErrorList) as IScriptErrorList;
-end;
-
-class function CoCScriptErrorList.CreateRemote(const MachineName: string): IScriptErrorList;
-begin
- Result := CreateRemoteComObject(MachineName, CLASS_CScriptErrorList) as IScriptErrorList;
-end;
-
-
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/SecurityManager.pas b/windows/src/ext/embeddedwb/Source/SecurityManager.pas
deleted file mode 100644
index 080908d7078f0e87fd11c7c9c08c93a1377fa20e..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/SecurityManager.pas
+++ /dev/null
@@ -1,402 +0,0 @@
-//**************************************************************
-// *
-// SecurityManager * *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.dk *
-// *
-// Contributions: *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// - D2005 update *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: SecurityManager.pas,v 1.2 2006/11/15 21:01:44 sergev Exp $
-
-unit SecurityManager;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Activex, UrlMon, Windows, SysUtils, Classes, EwbIEConst;
-
-const
- DefaultActions: array[0..24] of DWORD = (
- $00001001, $00001004, $00001200, $00001201, $00001400, $00001402,
- $00001405, $00001406, $00001407, $00001601, $00001604, $00001605,
- $00001606, $00001607, $00001800, $00001802, $00001803, $00001804,
- $00001805, $00001A00, $00001A02, $00001A03, $00001A04, $00001C00,
- $00001E05);
-
-type
- TJavaPolicyOption = (Prohibited, High, Medium, Low, Custom);
- TAllowDisAllowPolicyOption = (Allow, Disallow);
-
-const
- JavaPolicyValues: array[0..4] of Cardinal =
- (URLPOLICY_JAVA_PROHIBIT,
- URLPOLICY_JAVA_HIGH,
- URLPOLICY_JAVA_MEDIUM,
- URLPOLICY_JAVA_LOW,
- URLPOLICY_JAVA_CUSTOM);
- AllowDisallowValues: array[0..1] of Cardinal = (URLPOLICY_ALLOW, URLPOLICY_DISALLOW);
-
-type
- TActiveXOptions = TAllowDisAllowPolicyOption;
- TJavaPermissionsOptions = TJavaPolicyOption;
- TScriptOptions = TAllowDisallowPolicyOption;
- TSubmitFormsOptions = TAllowDisallowPolicyOption;
- TCrossDomainDataOptions = TAllowDisallowPolicyOption;
-
- TUrlPolicyOptions = class(TPersistent)
- private
- FActiveX: TActiveXOptions;
- FCrossDomainData: TCrossDomainDataOptions;
- FJavaPermissions: TJavaPermissionsOptions;
- FSubmitForms: TSubmitFormsOptions;
- FScriptOptions: TScriptOptions;
- published
- property ActiveX: TActiveXOptions read FActiveX write FActiveX;
- property CrossDomainData: TCrossDomainDataOptions read FCrossDomainData write FCrossDomainData;
- property SubmitForms: TSubmitFormsOptions read FSubmitForms write FSubmitForms;
- property JavaPermissions: TJavaPermissionsOptions read FJavaPermissions write FJavaPermissions;
- property Scripts: TScriptOptions read FScriptOptions write FScriptOptions;
- end;
- TSetSecuritySiteEvent = function(Site: IInternetSecurityMgrSite): HResult of object;
- TGetSecuritySiteEvent = function(out Site: IInternetSecurityMgrSite): HResult of object;
- TMapUrlToZoneEvent = function(pwszUrl: LPCWSTR; out dwZone: DWORD;
- dwFlags: DWORD): HResult of object;
- TGetSecurityIdEvent = function(pwszUrl: LPCWSTR; pbSecurityId: Pointer;
- var cbSecurityId: DWORD; dwReserved: DWORD): HResult of object;
- TProcessUrlActionEvent = function(pwszUrl: LPCWSTR; dwAction: DWORD;
- pPolicy: Pointer; cbPolicy: DWORD; pContext: Pointer; cbContext: DWORD;
- dwFlags, dwReserved: DWORD): HResult of object;
- TQueryCustomPolicyEvent = function(pwszUrl: LPCWSTR; const guidKey: TGUID;
- out pPolicy: Pointer; out cbPolicy: DWORD; pContext: Pointer; cbContext: DWORD;
- dwReserved: DWORD): HResult of object;
- TSetZoneMappingEvent = function(dwZone: DWORD; lpszPattern: LPCWSTR;
- dwFlags: DWORD): HResult of object;
- TGetZoneMappingsEvent = function(dwZone: DWORD; out enumString: IEnumString;
- dwFlags: DWORD): HResult of object;
- TSecurityManager = class(TComponent, IInternetSecurityManager)
- private
- { Private declarations }
- FSetSecuritySite: TSetSecuritySiteEvent;
- FGetSecuritySite: TGetSecuritySiteEvent;
- FMapUrlToZone: TMapUrlToZoneEvent;
- FGetSecurityID: TGetSecurityIDEvent;
- FProcessUrlAction: TProcessUrlActionEvent;
- FQueryCustomPolicy: TQueryCustomPolicyEvent;
- FSetZoneMapping: TSetZoneMappingEvent;
- FGetZoneMappings: TGetZoneMappingsEvent;
- FUrlPolicyOptions: TUrlPolicyOptions;
- protected
- { Protected declarations }
- public
- { Public declarations }
- function QueryInterface(const IID: TGUID; out Obj): HResult; override;
- function SetSecuritySite(Site: IInternetSecurityMgrSite): HResult; stdcall;
- function GetSecuritySite(out Site: IInternetSecurityMgrSite): HResult; stdcall;
- function MapUrlToZone(pwszUrl: LPCWSTR; out dwZone: DWORD;
- dwFlags: DWORD): HResult; stdcall;
- function GetSecurityId(pwszUrl: LPCWSTR; pbSecurityId: Pointer;
- var cbSecurityId: DWORD; dwReserved: DWORD): HResult; stdcall;
- function ProcessUrlAction(pwszUrl: LPCWSTR; dwAction: DWORD;
- pPolicy: Pointer; cbPolicy: DWORD; pContext: Pointer; cbContext: DWORD;
- dwFlags, dwReserved: DWORD): HResult; stdcall;
- function QueryCustomPolicy(pwszUrl: LPCWSTR; const guidKey: TGUID;
- out pPolicy: Pointer; out cbPolicy: DWORD; pContext: Pointer; cbContext: DWORD;
- dwReserved: DWORD): HResult; stdcall;
- function SetZoneMapping(dwZone: DWORD; lpszPattern: LPCWSTR;
- dwFlags: DWORD): HResult; stdcall;
- function GetZoneMappings(dwZone: DWORD; out enumString: IEnumString;
- dwFlags: DWORD): HResult; stdcall;
- constructor Create(Owner: TComponent); override;
- destructor Destroy; override;
-
- published
- { Published declarations }
- property OnSetSecuritySite: TSetSecuritySiteEvent read FSetSecuritySite write FSetSecuritySite;
- property OnGetSecuritySite: TGetSecuritySiteEvent read FGetSecuritySite write FGetSecuritySite;
- property OnMapUrlToZone: TMapUrlToZoneEvent read FMapUrlToZone write FMapUrlToZone;
- property OnGetSecurityID: TGetSecurityIDEvent read FGetSecurityID write FGetSecurityID;
- property OnProcessUrlAction: TProcessUrlActionEvent read FProcessUrlAction write FProcessUrlAction;
- property OnQueryCustomPolicy: TQueryCustomPolicyEvent read FQueryCustomPolicy write FQueryCustomPolicy;
- property OnSetZoneMapping: TSetZoneMappingEvent read FSetZoneMapping write FSetZoneMapping;
- property OnGetZoneMappings: TGetZoneMappingsEvent read FGetZoneMappings write FGetZoneMappings;
- property UrlPolicy: TUrlPolicyOptions read FUrlPolicyOptions write FUrlPolicyOptions;
- end;
-
-function DisplayAction(UrlAction: DWORD): string;
-function DisplayPolicy(UrlAction, UrlPolicy: DWORD): string;
-
-implementation
-
-// Helper/debug function
-
-function DisplayPolicy(UrlAction, UrlPolicy: DWORD): string;
-begin
- case UrlPolicy of
- URLPOLICY_ALLOW: Result := 'URLPOLICY_ALLOW';
- URLPOLICY_DISALLOW: Result := 'URLPOLICY_DISALLOW';
- URLPOLICY_QUERY: Result := 'URLPOLICY_QUERY';
- URLPOLICY_ACTIVEX_CHECK_LIST: Result := 'URLPOLICY_ACTIVEX_CHECK_LIST';
- URLPOLICY_MASK_PERMISSIONS: Result := 'URLPOLICY_MASK_PERMISSIONS';
- URLPOLICY_LOG_ON_DISALLOW: Result := 'URLPOLICY_LOG_ON_DISALLOW';
- URLPOLICY_LOG_ON_ALLOW: Result := 'URLPOLICY_LOG_ON_ALLOW';
- URLPOLICY_NOTIFY_ON_DISALLOW: Result := 'URLPOLICY_NOTIFY_ON_DISALLOW';
- URLPOLICY_NOTIFY_ON_ALLOW: Result := 'URLPOLICY_NOTIFY_ON_ALLOW';
- end;
- if UrlAction = URLACTION_CREDENTIALS_USE then
- begin
- if UrlPolicy = URLPOLICY_CREDENTIALS_ANONYMOUS_ONLY then
- Result := 'URLPOLICY_CREDENTIALS_ANONYMOUS_ONLY'
- else
- if UrlPolicy = URLPOLICY_CREDENTIALS_CONDITIONAL_PROMPT then
- Result := 'URLPOLICY_CREDENTIALS_CONDITIONAL_PROMPT'
- else
- if UrlPolicy = URLPOLICY_CREDENTIALS_MUST_PROMPT_USER then
- Result := 'URLPOLICY_CREDENTIALS_MUST_PROMPT_USER'
- else
- if UrlPolicy = URLPOLICY_CREDENTIALS_SILENT_LOGON_OK then
- Result := 'URLPOLICY_CREDENTIALS_SILENT_LOGON_OK';
- end
- else
- if UrlAction = URLACTION_CHANNEL_SOFTDIST_PERMISSIONS then
- begin
- if UrlPolicy = URLPOLICY_CHANNEL_SOFTDIST_AUTOINSTALL then
- Result := 'URLPOLICY_CHANNEL_SOFTDIST_AUTOINSTALL'
- else
- if UrlPolicy = URLPOLICY_CHANNEL_SOFTDIST_PRECACHE then
- Result := 'URLPOLICY_CHANNEL_SOFTDIST_PRECACHE'
- else
- if UrlPolicy = URLPOLICY_CHANNEL_SOFTDIST_PROHIBIT then
- Result := 'URLPOLICY_CHANNEL_SOFTDIST_PROHIBIT'
- else
- end
- else
- if UrlAction = URLACTION_JAVA_PERMISSIONS then
- begin
- if UrlPolicy = URLPOLICY_JAVA_CUSTOM then
- Result := 'URLPOLICY_JAVA_CUSTOM'
- else
- if UrlPolicy = URLPOLICY_JAVA_MEDIUM then
- Result := 'URLPOLICY_JAVA_MEDIUM'
- else
- if UrlPolicy = URLPOLICY_JAVA_LOW then
- Result := 'URLPOLICY_JAVA_LOW'
- else
- if UrlPolicy = URLPOLICY_JAVA_HIGH then
- Result := 'URLPOLICY_JAVA_HIGH'
- else
- if UrlPolicy = URLPOLICY_JAVA_PROHIBIT then
- Result := 'URLPOLICY_JAVA_PROHIBIT';
- end;
-end;
-
-// Helper/debug function
-
-function DisplayAction(UrlAction: DWORD): string;
-begin
- case
- UrlAction of
- URLACTION_DOWNLOAD_SIGNED_ACTIVEX: Result := 'URLACTION_DOWNLOAD_SIGNED_ACTIVEX';
- URLACTION_DOWNLOAD_UNSIGNED_ACTIVEX: Result := 'URLACTION_DOWNLOAD_UNSIGNED_ACTIVEX';
- URLACTION_ACTIVEX_RUN: Result := 'URLACTION_ACTIVEX_RUN';
- URLACTION_ACTIVEX_OVERRIDE_OBJECT_SAFETY: Result := 'URLACTION_ACTIVEX_OVERRIDE_OBJECT_SAFETY';
- URLACTION_ACTIVEX_OVERRIDE_DATA_SAFETY: Result := 'URLACTION_ACTIVEX_OVERRIDE_DATA_SAFETY';
- URLACTION_ACTIVEX_OVERRIDE_SCRIPT_SAFETY: Result := 'URLACTION_ACTIVEX_OVERRIDE_SCRIPT_SAFETY';
- URLACTION_SCRIPT_OVERRIDE_SAFETY: Result := 'URLACTION_SCRIPT_OVERRIDE_SAFETY';
- URLACTION_ACTIVEX_CONFIRM_NOOBJECTSAFETY: Result := 'URLACTION_ACTIVEX_CONFIRM_NOOBJECTSAFETY';
- URLACTION_ACTIVEX_TREATASUNTRUSTED: Result := 'URLACTION_ACTIVEX_TREATASUNTRUSTED';
- URLACTION_CROSS_DOMAIN_DATA: Result := 'URLACTION_CROSS_DOMAIN_DATA';
- URLACTION_HTML_SUBFRAME_NAVIGATE: Result := 'URLACTION_HTML_SUBFRAME_NAVIGATE';
- URLACTION_HTML_USERDATA_SAVE: Result := 'URLACTION_HTML_USERDATA_SAVE';
- URLACTION_COOKIES: Result := 'URLACTION_COOKIES';
- URLACTION_COOKIES_SESSION: Result := 'URLACTION_COOKIES_SESSION';
- URLACTION_SCRIPT_PASTE: Result := 'URLACTION_SCRIPT_PASTE';
- URLACTION_SCRIPT_RUN: Result := 'URLACTION_SCRIPT_RUN';
- URLACTION_SCRIPT_JAVA_USE: Result := 'URLACTION_SCRIPT_JAVA_USE';
- URLACTION_SCRIPT_SAFE_ACTIVEX: Result := 'URLACTION_SCRIPT_SAFE_ACTIVEX';
- URLACTION_HTML_SUBMIT_FORMS: Result := 'URLACTION_HTML_SUBMIT_FORMS';
- URLACTION_HTML_SUBMIT_FORMS_FROM: Result := 'URLACTION_HTML_SUBMIT_FORMS_FROM';
- URLACTION_HTML_SUBMIT_FORMS_TO: Result := 'URLACTION_HTML_SUBMIT_FORMS_TO';
- URLACTION_HTML_FONT_DOWNLOAD: Result := 'URLACTION_HTML_FONT_DOWNLOAD';
- URLACTION_HTML_JAVA_RUN: Result := 'URLACTION_HTML_JAVA_RUN';
- URLACTION_SHELL_INSTALL_DTITEMS: Result := 'URLACTION_SHELL_INSTALL_DTITEMS';
- URLACTION_SHELL_MOVE_OR_COPY: Result := 'URLACTION_SHELL_MOVE_OR_COPY';
- URLACTION_SHELL_FILE_DOWNLOAD: Result := 'URLACTION_SHELL_FILE_DOWNLOAD';
- URLACTION_SHELL_VERB: Result := 'URLACTION_SHELL_VERB';
- URLACTION_SHELL_WEBVIEW_VERB: Result := 'URLACTION_SHELL_WEBVIEW_VERB';
- URLACTION_CREDENTIALS_USE: Result := 'URLACTION_CREDENTIALS_USE';
- URLACTION_CLIENT_CERT_PROMPT: Result := 'URLACTION_CLIENT_CERT_PROMPT';
- URLACTION_AUTHENTICATE_CLIENT: Result := 'URLACTION_AU:TICATE_CLIENT';
- URLACTION_JAVA_PERMISSIONS: Result := 'URLACTION_JAVA_PERMISSIONS';
- URLACTION_INFODELIVERY_NO_ADDING_CHANNELS: Result := 'URLACTION_INFODELIVERY_NO_ADDING_CHANNELS';
- URLACTION_INFODELIVERY_NO_EDITING_CHANNELS: Result := 'URLACTION_INFODELIVERY_NO_EDITING_CHANNELS';
- URLACTION_INFODELIVERY_NO_REMOVING_CHANNELS: Result := 'URLACTION_INFODELIVERY_NO_REMOVING_CHANNELS';
- URLACTION_INFODELIVERY_NO_ADDING_SUBSCRIPTIONS: Result := 'URLACTION_INFODELIVERY_NO_ADDING_SUBSCRIPTIONS';
- URLACTION_INFODELIVERY_NO_EDITING_SUBSCRIPTIONS: Result := 'URLACTION_INFODELIVERY_NO_EDITING_SUBSCRIPTIONS';
- URLACTION_INFODELIVERY_NO_REMOVING_SUBSCRIPTIONS: Result := 'URLACTION_INFODELIVERY_NO_REMOVING_SUBSCRIPTIONS';
- URLACTION_INFODELIVERY_NO_CHANNEL_LOGGING: Result := 'URLACTION_INFODELIVERY_NO_CHANNEL_LOGGING';
- URLACTION_CHANNEL_SOFTDIST_PERMISSIONS: Result := 'URLACTION_CHANNEL_SOFTDIST_PERMISSIONS';
- end;
-end;
-
-{ TSecurityManager }
-
-constructor TSecurityManager.Create(Owner: TComponent);
-begin
- inherited;
- FUrlPolicyOptions := TUrlPolicyOptions.Create;
-end;
-
-destructor TSecurityManager.Destroy;
-begin
- FUrlPolicyOptions.Free;
- inherited;
-end;
-
-function TSecurityManager.GetSecurityId(pwszUrl: LPCWSTR;
- pbSecurityId: Pointer; var cbSecurityId: DWORD;
- dwReserved: DWORD): HResult;
-begin
- if Assigned(FGetSecurityID) then
- Result := FGetSecurityID(pwszUrl, pbSecurityID, cbSecurityID, dwReserved)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-function TSecurityManager.GetSecuritySite(
- out Site: IInternetSecurityMgrSite): HResult;
-begin
- if Assigned(FGetSecuritySite) then
- Result := FGetSecuritySite(site)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-function TSecurityManager.GetZoneMappings(dwZone: DWORD;
- out enumString: IEnumString; dwFlags: DWORD): HResult;
-begin
- if Assigned(FGetZoneMappings) then
- Result := FGetZoneMappings(dwZone, enumString, dwFlags)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-function TSecurityManager.MapUrlToZone(pwszUrl: LPCWSTR; out dwZone: DWORD;
- dwFlags: DWORD): HResult;
-begin
- if Assigned(FMapUrlToZone) then
- Result := FMapUrlToZone(pwszUrl, dwZone, dwFlags)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-function TSecurityManager.ProcessUrlAction(pwszUrl: LPCWSTR;
- dwAction: DWORD; pPolicy: Pointer; cbPolicy: DWORD; pContext: Pointer;
- cbContext, dwFlags, dwReserved: DWORD): HResult;
-var
- dwPolicy: DWORD;
-begin
- if Assigned(FProcessUrlAction) then
- Result := FProcessUrlAction(pwszUrl, dwAction, pPolicy, cbPolicy, pContext, cbContext, dwFlags, dwReserved)
- else
- begin
- Result := S_FALSE;
- dwPolicy := URLPOLICY_ALLOW;
- if (dwAction <= URLACTION_ACTIVEX_MAX) and (dwAction >= URLACTION_ACTIVEX_MIN)
- then
- dwPolicy := AllowDisallowValues[Ord(FUrlPolicyOptions.FActiveX)]
- else
-
- if ((dwAction <= URLACTION_JAVA_MAX) and (dwAction >= URLACTION_JAVA_MIN)) or
- (dwAction = URLACTION_HTML_JAVA_RUN) then
- dwPolicy := JavaPolicyValues[Ord(FUrlPolicyOptions.FJavaPermissions)]
- else
-
- if ((dwAction = URLACTION_HTML_SUBMIT_FORMS_TO) or (dwAction = URLACTION_HTML_SUBMIT_FORMS_FROM)) then
- dwPolicy := AllowDisallowValues[Ord(FUrlPolicyOptions.FSubmitforms)]
- else
-
- if (dwAction = URLACTION_CROSS_DOMAIN_DATA) then
- dwPolicy := AllowDisallowValues[Ord(FUrlPolicyOptions.FCrossDomainData)]
- else
-
- if (dwAction <= URLACTION_SCRIPT_MAX) and (dwAction >= URLACTION_SCRIPT_MIN) then
- dwPolicy := AllowDisallowValues[Ord(FUrlPolicyOptions.FScriptOptions)]
- else
-
- Result := INET_E_DEFAULT_ACTION;
- if (Result = S_FALSE) and (cbPolicy >= SizeOf(DWORD)) then
- begin
- Dword(ppolicy^) := dwpolicy;
- Result := S_OK;
- end;
- end;
-end;
-
-function TSecurityManager.QueryCustomPolicy(pwszUrl: LPCWSTR;
- const guidKey: TGUID; out pPolicy: Pointer; out cbPolicy: DWORD;
- pContext: Pointer; cbContext, dwReserved: DWORD): HResult;
-begin
- if Assigned(FQueryCustomPolicy) then
- Result := FQueryCustomPolicy(pwszUrl, guidKey, pPolicy, cbPolicy, pContext, cbContext, dwReserved)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-function TSecurityManager.QueryInterface(const IID: TGUID;
- out Obj): HResult;
-begin
- Result := inherited QueryInterface(iid, obj);
-end;
-
-function TSecurityManager.SetSecuritySite(
- Site: IInternetSecurityMgrSite): HResult;
-begin
- if Assigned(FSetSecuritySite) then
- Result := FSetSecuritySite(site)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-function TSecurityManager.SetZoneMapping(dwZone: DWORD;
- lpszPattern: LPCWSTR; dwFlags: DWORD): HResult;
-begin
- if Assigned(FSetZoneMapping) then
- Result := FSetZoneMapping(dwZone, lpszPattern, dwFlags)
- else
- Result := INET_E_DEFAULT_ACTION;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/SendMail_For_Ewb.pas b/windows/src/ext/embeddedwb/Source/SendMail_For_Ewb.pas
deleted file mode 100644
index ca7543d9bc39673611292df313a9d8017fe3b1ec..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/SendMail_For_Ewb.pas
+++ /dev/null
@@ -1,518 +0,0 @@
-{ I got Permission to add the SendMail component and to change the code
- by my needs from Mike Shkolnik
- We thank him for that.
- You can find Mike's full components package at http://www.scalabium.com.
- bsalsa
-
-Copyright (C) 1998-2004, written by Mike Shkolnik, Scalabium Software
- E-Mail: mshkolnik@scalabium.com
- WEB: http://www.scalabium.com
- tel: 380-/44/-552-10-29
-}
-
-unit SendMail_For_Ewb;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Classes, Dialogs, Controls, Messages, MAPI;
-
-type
- TEwbMapiMail = class;
-
- TSendMailThread = class(TThread)
- private
- EwbMapiMail: TEwbMapiMail;
- public
- procedure Execute; override;
- constructor Create(AMapiMail: TEwbMapiMail);
- end;
-
- TEwbMapiMail = class(TComponent)
- private
- { Private declarations }
- FLastError: Integer;
-
- FSubject: string;
- FBody: string;
-
- FSenderName: string;
- FSenderAddress: string;
-
- FRecipients: TStrings;
- FAttachments: TStrings;
- FAttachmentNames: TStrings;
-
- FEditDialog: Boolean;
- FResolveNames: Boolean;
- FRequestReceipt: Boolean;
-
- procedure SetRecipients(Value: TStrings);
- procedure SetAttachments(Value: TStrings);
- procedure SetAttachmentNames(Value: TStrings);
- protected
- { Protected declarations }
- public
- { Public declarations }
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
-
- function Send: Boolean;
-
- property LastError: Integer read FLastError;
- published
- { Published declarations }
- property Subject: string read FSubject write FSubject;
- property Body: string read FBody write FBody;
-
- property Recipients: TStrings read FRecipients write SetRecipients;
- property Attachments: TStrings read FAttachments write SetAttachments;
- property AttachmentNames: TStrings read FAttachmentNames write
- SetAttachmentNames;
-
- property EditDialog: Boolean read FEditDialog write FEditDialog;
- property ResolveNames: Boolean read FResolveNames write FResolveNames;
- property RequestReceipt: Boolean read FRequestReceipt write FRequestReceipt;
-
- property SenderName: string read FSenderName write FSenderName;
- property SenderAddress: string read FSenderAddress write FSenderAddress;
- end;
-
-{$IFDEF UNICODE}
-function SendEMailByMAPI(SenderName, SenderAddress, Subject, Body: string;
- Recipients, Attachments, AttachmentNames: TStrings; WithOpenMessage,
- ResolveNames, NeedReceipt: Boolean; intMAPISession:
- Integer): Integer; overload;
-{$ENDIF UNICODE}
-function SendEMailByMAPI(SenderName, SenderAddress, Subject, Body: Ansistring;
- Recipients, Attachments, AttachmentNames: TStrings; WithOpenMessage,
- ResolveNames, NeedReceipt: Boolean; intMAPISession:
- Integer): Integer; overload;
-
-function MAPIErrorDescription(intErrorCode: Integer): string;
-
-implementation
-
-uses
-{$IFDEF UNICODE}
- AnsiStrings,
-{$ENDIF UNICODE}
- Windows, SysUtils, Registry, Forms;
-
-function MAPIErrorDescription(intErrorCode: Integer): string;
-begin
- case intErrorCode of
- MAPI_E_USER_ABORT: Result := 'User cancelled request';
- MAPI_E_FAILURE: Result := 'General MAPI failure';
- MAPI_E_LOGON_FAILURE: Result := 'Logon failure';
- MAPI_E_DISK_FULL: Result := 'Disk full';
- MAPI_E_INSUFFICIENT_MEMORY: Result := 'Insufficient memory';
- MAPI_E_ACCESS_DENIED: Result := 'Access denied';
- MAPI_E_TOO_MANY_SESSIONS: Result := 'Too many sessions';
- MAPI_E_TOO_MANY_FILES: Result := 'Too many files open';
- MAPI_E_TOO_MANY_RECIPIENTS: Result := 'Too many recipients';
- MAPI_E_ATTACHMENT_NOT_FOUND: Result := 'Attachment not found';
- MAPI_E_ATTACHMENT_OPEN_FAILURE: Result := 'Failed to open attachment';
- MAPI_E_ATTACHMENT_WRITE_FAILURE: Result := 'Failed to write attachment';
- MAPI_E_UNKNOWN_RECIPIENT: Result := 'Unknown recipient';
- MAPI_E_BAD_RECIPTYPE: Result := 'Invalid recipient type';
- MAPI_E_NO_MESSAGES: Result := 'No messages';
- MAPI_E_INVALID_MESSAGE: Result := 'Invalid message';
- MAPI_E_TEXT_TOO_LARGE: Result := 'Text too large.';
- MAPI_E_INVALID_SESSION: Result := 'Invalid session';
- MAPI_E_TYPE_NOT_SUPPORTED: Result := 'Type not supported';
- MAPI_E_AMBIGUOUS_RECIPIENT: Result := 'Ambiguous recipient';
- MAPI_E_MESSAGE_IN_USE: Result := 'Message in use';
- MAPI_E_NETWORK_FAILURE: Result := 'Network failure';
- MAPI_E_INVALID_EDITFIELDS: Result := 'Invalid edit fields';
- MAPI_E_INVALID_RECIPS: Result := 'Invalid recipients';
- MAPI_E_NOT_SUPPORTED: Result := 'Not supported';
- else
- Result := 'Unknown Error Code: ' + IntToStr(intErrorCode);
- end;
-end;
-
-function GetDefaultLogon(var strDefaultLogon: AnsiString): Boolean;
-const
- KEYNAME1 = 'Software\Microsoft\Windows Messaging Subsystem\Profiles';
- KEYNAME2 =
- 'Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles';
- VALUESTR = 'DefaultProfile';
-begin
- Result := False;
- strDefaultLogon := '';
- with TRegistry.Create do
- try
- RootKey := HKEY_CURRENT_USER;
- if OpenKey(KEYNAME1, False) then
- begin
- try
- strDefaultLogon := AnsiString(ReadString(VALUESTR));
- Result := True;
- except
- end;
- CloseKey;
- end
- else if OpenKey(KEYNAME2, False) then
- begin
- try
- strDefaultLogon := AnsiString(ReadString(VALUESTR));
- Result := True;
- except
- end;
- CloseKey;
- end
- else
- finally
- Free;
- end;
-end;
-
-function SendEMailByMAPI(SenderName, SenderAddress, Subject, Body: AnsiString;
- Recipients, Attachments, AttachmentNames: TStrings; WithOpenMessage,
- ResolveNames, NeedReceipt: Boolean; intMAPISession:
- Integer): Integer;
-const
- RECIP_MAX = MaxInt div SizeOf(TMapiRecipDesc);
- ATTACH_MAX = MaxInt div SizeOf(TMapiFileDesc);
-type
- TRecipAccessArray = array[0..(RECIP_MAX - 1)] of TMapiRecipDesc;
- TlpRecipArray = ^TRecipAccessArray;
-
- TAttachAccessArray = array[0..(ATTACH_MAX - 1)] of TMapiFileDesc;
- TlpAttachArray = ^TAttachAccessArray;
-
- TszRecipName = array[0..256] of AnsiChar;
- TlpszRecipName = ^TszRecipName;
-
- TszPathName = array[0..256] of AnsiChar;
- TlpszPathname = ^TszPathname;
-
- TszFileName = array[0..256] of AnsiChar;
- TlpszFileName = ^TszFileName;
-
-var
- i: Integer;
-
- Message: TMapiMessage;
- lpRecipArray: TlpRecipArray;
- lpAttachArray: TlpAttachArray;
-
- function CheckRecipient(strRecipient: Ansistring): Integer;
- var
- lpRecip: PMapiRecipDesc;
- begin
- try
- Result := MapiResolveName(0, 0, PAnsiChar(strRecipient), 0, 0, lpRecip);
-
- if (Result in [MAPI_E_AMBIGUOUS_RECIPIENT,
- MAPI_E_UNKNOWN_RECIPIENT]) then
- Result := MapiResolveName(0, 0, PAnsiChar(strRecipient), MAPI_DIALOG, 0,
- lpRecip);
-
- AnsiStrings.StrCopy(PAnsiChar(new(TlpszRecipName)), lpRecip^.lpszName);
-
- if Result = SUCCESS_SUCCESS then
- begin
- strRecipient := AnsiStrings.StrPas(lpRecip^.lpszName);
- with lpRecipArray^[i] do
- begin
- if lpRecip^.lpszAddress = nil then
- begin
- lpszAddress := AnsiStrings.StrCopy(new(TlpszRecipName)^,
- lpRecip^.lpszName);
- end
- else
- begin
- lpszAddress := AnsiStrings.StrCopy(new(TlpszRecipName)^,
- lpRecip^.lpszAddress);
- end;
- ulEIDSize := lpRecip^.ulEIDSize;
- lpEntryID := lpRecip^.lpEntryID;
- MapiFreeBuffer(lpRecip);
- end
- end;
- finally
- end;
- end;
-
- function SendMess: Integer;
- const
- arrMAPIFlag: array[Boolean] of Word = (0, MAPI_DIALOG);
- arrReceipt: array[Boolean] of Word = (0, MAPI_RECEIPT_REQUESTED);
- arrLogon: array[Boolean] of Word = (0, MAPI_LOGON_UI or MAPI_NEW_SESSION);
- begin
- try
- Result := MAPISendMail(0, Application.Handle {0}, Message,
- arrReceipt[NeedReceipt] or
- arrMAPIFlag[WithOpenMessage] or
- MAPI_LOGON_UI {or MAPI_NEW_SESSION} or
- arrLogon[{True}intMAPISession = 0],
- 0);
- finally
- end;
- end;
-
-var
- lpSender: TMapiRecipDesc;
- strDefaultProfile, s: AnsiString;
-begin
- Result := 0;
- lpRecipArray := nil;
- lpAttachArray := nil;
- FillChar(Message, SizeOf(Message), 0);
- with Message do
- begin
- strDefaultProfile := '';
- if GetDefaultLogon(strDefaultProfile) then
- begin
- try
- { try to logon with default profile }
- Result := MapiLogOn(0, PAnsiChar(strDefaultProfile), nil,
- MAPI_NEW_SESSION, 0, @intMAPISession);
- finally
- if (Result <> SUCCESS_SUCCESS) then
- begin
- intMAPISession := 0;
- raise Exception.CreateFmt('MAPI Error %d: %s', [Result,
- MAPIErrorDescription(Result)]);
- end;
- end
- end;
-
- if (SenderAddress <> '') then
- begin
- lpSender.ulRecipClass := MAPI_ORIG;
- if (SenderName <> '') then
- lpSender.lpszName := PAnsiChar(SenderAddress)
- else
- lpSender.lpszName := PAnsiChar(SenderName);
- lpSender.lpszAddress := PAnsiChar(SenderAddress);
- lpSender.ulReserved := 0;
- lpSender.ulEIDSize := 0;
- lpSender.lpEntryID := nil;
- lpOriginator := @lpSender;
- end;
-
- lpszSubject := PAnsiChar(Subject);
- lpszNoteText := PAnsiChar(Body);
-
- if Assigned(Attachments) and (Attachments.Count > 0) then
- begin
- nFileCount := Attachments.Count;
-
-{$IFDEF UNICODE}
- lpAttachArray := TlpAttachArray(AnsiStrings.AnsiStrAlloc(nFileCount *
- SizeOf(TMapiFileDesc)));
-{$ELSE}
- lpAttachArray := TlpAttachArray(StrAlloc(nFileCount *
- SizeOf(TMapiFileDesc)));
-{$ENDIF UNICODE}
- FillChar(lpAttachArray^, AnsiStrings.StrBufSize(PAnsiChar(lpAttachArray)), 0);
- for i := 0 to nFileCount - 1 do
- begin
- lpAttachArray^[i].nPosition := Cardinal(-1);
- //Cardinal($FFFFFFFF); //ULONG(-1);
- lpAttachArray^[i].lpszPathName := AnsiStrings.StrPCopy(new(TlpszPathname)^,
- AnsiString(Attachments[i]));
- if i < AttachmentNames.Count then
- begin
- lpAttachArray^[i].lpszFileName :=
- AnsiStrings.StrPCopy(new(TlpszFileName)^,
- AnsiString(AttachmentNames[i]))
- end
- else
- begin
- lpAttachArray^[i].lpszFileName :=
- AnsiStrings.StrPCopy(new(TlpszFileName)^,
- AnsiString(ExtractFileName(Attachments[i])));
- end;
- end;
- lpFiles := @lpAttachArray^
- end
- else
- nFileCount := 0;
- end;
-
- if Assigned(Recipients) and (Recipients.Count > 0) then
- begin
-{$IFDEF UNICODE}
- lpRecipArray := TlpRecipArray(AnsiStrings.AnsiStrAlloc(Recipients.Count *
- SizeOf(TMapiRecipDesc)));
-{$ELSE}
- lpRecipArray := TlpRecipArray(StrAlloc(Recipients.Count *
- SizeOf(TMapiRecipDesc)));
-{$ENDIF UNICODE}
- FillChar(lpRecipArray^, AnsiStrings.StrBufSize(PAnsiChar(lpRecipArray)), 0);
- for i := 0 to Recipients.Count - 1 do
- begin
- s := AnsiString(Recipients[i]);
- if (UpperCase(Copy(s, 1, 3)) = 'CC:') then
- begin
- lpRecipArray^[i].ulRecipClass := MAPI_CC;
- Delete(s, 1, 3);
- end
- else if (UpperCase(Copy(s, 1, 4)) = 'BCC:') then
- begin
- lpRecipArray^[i].ulRecipClass := MAPI_BCC;
- Delete(s, 1, 4);
- end
- else
- lpRecipArray^[i].ulRecipClass := MAPI_TO;
-
- if ResolveNames then
- CheckRecipient(s)
- else
- begin
- lpRecipArray^[i].lpszName := AnsiStrings.StrCopy(new(TlpszRecipName)^,
- PAnsiChar(s));
- lpRecipArray^[i].lpszAddress := AnsiStrings.StrCopy(new(TlpszRecipName)^,
- PAnsiChar(s));
- end;
- end;
- Message.nRecipCount := Recipients.Count;
- Message.lpRecips := @lpRecipArray^;
- end
- else
- Message.nRecipCount := 0;
-
- Result := SendMess;
-
- if Assigned(Attachments) and (Message.nFileCount > 0) then
- begin
- for i := 0 to Message.nFileCount - 1 do
- begin
- Dispose(lpAttachArray^[i].lpszPathname);
- Dispose(lpAttachArray^[i].lpszFileName);
- end;
- AnsiStrings.StrDispose(PAnsiChar(lpAttachArray));
- end;
-
- if Assigned(Recipients) and (Recipients.Count > 0) then
- begin
- for i := 0 to Message.nRecipCount - 1 do
- begin
- if Assigned(lpRecipArray^[i].lpszName) then
- Dispose(lpRecipArray^[i].lpszName);
-
- if Assigned(lpRecipArray^[i].lpszAddress) then
- Dispose(lpRecipArray^[i].lpszAddress);
- end;
- AnsiStrings.StrDispose(PAnsiChar(lpRecipArray));
- end;
-
- if intMAPISession <> 0 then
- try
- MapiLogOff(intMAPISession, 0, 0, 0);
- except
- end;
-end;
-
-{$IFDEF UNICODE}
-
-function SendEMailByMAPI(SenderName, SenderAddress, Subject, Body: string;
- Recipients, Attachments, AttachmentNames: TStrings; WithOpenMessage,
- ResolveNames, NeedReceipt: Boolean; intMAPISession:
- Integer): Integer;
-begin
- Result := SendEMailByMAPI(AnsiString(SenderName), AnsiString(SenderAddress),
- AnsiString(Subject),
- AnsiString(Body), Recipients, Attachments, AttachmentNames, WithOpenMessage,
- ResolveNames, NeedReceipt,
- intMAPISession);
-end;
-{$ENDIF UNICODE}
-
-{ TEwbMapiMail }
-
-constructor TEwbMapiMail.Create(AOwner: TComponent);
-begin
- inherited Create(AOwner);
- EditDialog := True;
- FRecipients := TStringList.Create;
- FAttachments := TStringList.Create;
- FAttachmentNames := TStringList.Create;
-end;
-
-destructor TEwbMapiMail.Destroy;
-begin
- FRecipients.Free;
- Attachments.Free;
- AttachmentNames.Free;
- inherited Destroy;
-end;
-
-procedure TEwbMapiMail.SetRecipients(Value: TStrings);
-begin
- FRecipients.Assign(Value)
-end;
-
-procedure TEwbMapiMail.SetAttachments(Value: TStrings);
-begin
- Attachments.Assign(Value)
-end;
-
-procedure TEwbMapiMail.SetAttachmentNames(Value: TStrings);
-begin
- AttachmentNames.Assign(Value)
-end;
-
-function TEwbMapiMail.Send: Boolean;
-var
- SendThread: TSendMailThread;
-begin
- SendThread := TSendMailThread.Create(Self);
- SendThread.FreeOnTerminate := True;
- {$IFDEF DELPHI2010_UP}
- SendThread.Start;
- {$ELSE}
- SendThread.Resume;
- {$ENDIF}
- Result := True;
- // FLastError := SendThread.WaitFor;
- // FLastError := SendEMailByMAPI(SenderName, SenderAddress, Subject, Body, Recipients, Attachments, AttachmentNames, EditDialog, ResolveNames, RequestReceipt, 0);
- // if FLastError = MAPI_E_FAILURE then
- // PostMessage(TWinControl(Owner).Handle, WM_SendMail, 0, 0);
- // Result := (LastError = SUCCESS_SUCCESS);
-end;
-
-{ TSendMailThread }
-
-constructor TSendMailThread.Create(AMapiMail: TEwbMapiMail);
-begin
- inherited Create(True);
- EwbMapiMail := AMapiMail;
-end;
-
-procedure TSendMailThread.Execute;
-const
- WM_SendMail = WM_USER + $100;
-var
- i: Integer;
-begin
- with EwbMapiMail do
- begin
- try
- ReturnValue := SendEMailByMAPI(SenderName, SenderAddress, Subject, Body,
- Recipients, Attachments, AttachmentNames, EditDialog, ResolveNames,
- RequestReceipt, 0);
- case ReturnValue of
- MAPI_E_FAILURE:
- begin
- PostMessage(TWinControl(Owner).Handle, WM_SendMail, 0, 0);
- end;
- end;
- finally
- for i := 0 to EwbMapiMail.Attachments.Count - 1 do
- begin
- DeleteFile(EwbMapiMail.Attachments[i]);
- end;
- end;
- end;
- EwbMapiMail.Free;
- Terminate;
-end;
-
-end.
diff --git a/windows/src/ext/embeddedwb/Source/UI_Less.pas b/windows/src/ext/embeddedwb/Source/UI_Less.pas
deleted file mode 100644
index 874600396e54015f6790c092e8e65afd19b19afd..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/UI_Less.pas
+++ /dev/null
@@ -1,341 +0,0 @@
-{ ***********************************************************
-// TUILess - UI_Less parser *
-// For Delphi *
-// *
-// Freeware Component *
-// by *
-// Per Linds Larsen * // per.lindsoe@larsen.dk *
-// Developing Team: *
-// bsalsa - bsalsa.com *
-// Documentation and updated versions: *
-// *
-// http://www.bsalsa.com *
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-//$Id: UI_Less.pas,v 1.3 2006/11/17 12:43:54 bsalsa Exp $
-
-unit UI_Less;
-
-interface
-
-uses
- MsHtml_EWB, UrlMon, ActiveX, Windows, Messages, Classes;
-
-type
- TInvokeEvent = function(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params: TagDispParams; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT of object;
-
- TUILess = class(TComponent, IUnknown, IDispatch, IPropertyNotifySink, IOleClientSite)
- private
- FOnInvoke: TInvokeEvent;
- FAbout: string;
- FEnabled: Boolean;
- procedure SetAbout(Value: string);
- protected
- // IDispatch: http://msdn.microsoft.com/en-us/library/ms221608.aspx
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT; stdcall;
- // IPropertyNotifySink: http://msdn.microsoft.com/en-us/library/ms692638(VS.85).aspx
- function OnChanged(dispid: TDispID): HRESULT; stdcall;
- function OnRequestEdit(dispid: TDispID): HRESULT; stdcall;
- // IOleClientSite: http://msdn.microsoft.com/en-us/library/ms693706.aspx
- function SaveObject: HRESULT; stdcall;
- function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint;
- out mk: IMoniker): HRESULT; stdcall;
- function GetContainer(out container: IOleContainer): HRESULT; stdcall;
- function ShowObject: HRESULT; stdcall;
- function OnShowWindow(fShow: BOOL): HRESULT; stdcall;
- function RequestNewObjectLayout: HRESULT; stdcall;
- //
- function LoadUrlFromMoniker: HRESULT;
- function LoadUrlFromFile: HRESULT;
-// * We only use LoadUrlFromMoniker, but we could use LoadUrlFromFile instead.
- public
- HTMLElementCollection: IHTMLElementCollection;
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function Go(URL: WideString): IHTMLELEMENTCollection;
- procedure GetImageList(ImagesList: TStrings);
- procedure GetAnchorList(Anchorlist: TStrings); overload;
- procedure GetLinkList(LinkList: TStrings); overload;
- published
- property OnInvoke: TInvokeEvent read FOnInvoke write FOnInvoke;
- property Enabled: Boolean read FEnabled write FEnabled default True;
- property About: string read fAbout write SetAbout;
- end;
-
-implementation
-
-uses
- EwbIEConst;
-
-var
- Doc: IhtmlDocument2;
- _URL: WideString;
-
-/// CORE ---->>>>>>>>>
-
-constructor TUILess.Create;
-begin
- FAbout := 'TUILess parser - ' + WEB_SITE;
- FEnabled := True;
- inherited;
-end;
-
-destructor TUILess.Destroy;
-begin
- inherited;
-end;
-
-function TUILess.Go(URL: WideString): IHtmlElementCollection;
-const
- WM_USER_STARTWALKING = WM_USER + 1;
-var
- Cookie: Integer;
- CP: IConnectionPoint;
- OleObject: IOleObject;
- OleControl: IOleControl;
- CPC: IConnectionPointContainer;
- Msg: TMsg;
- hr: HRESULT;
-begin
- if not FEnabled then
- Result := nil
- else
- begin
- _URL := Url;
- if Succeeded(CoCreateInstance(CLASS_HTMLDocument, nil, CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, Doc)) then
- begin
- OleObject := Doc as IOleObject;
- OleObject.SetClientSite(Self);
- OleControl := Doc as IOleControl;
- OleControl.OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
- CPC := Doc as IConnectionPointContainer;
- if CPC.FindConnectionPoint(IpropertyNotifySink, CP) = S_OK then
- begin
- if CP.Advise(Self, Cookie) = S_OK then
- begin
- HR := LoadUrlFromMoniker; // alternative: Hr:= LoadUrlFromFile;
- if Succeeded(HR) {or (HR = E_PENDING)} then
- while (GetMessage(msg, 0, 0, 0)) do
- if ((msg.message = WM_USER_STARTWALKING) and (msg.hwnd = 0)) then
- begin
- PostQuitMessage(0);
- HtmlElementCollection := Doc.Get_all;
- Result := HtmlElementCollection;
- end
- else
- DispatchMessage(msg);
- end;
- end;
- end;
- end;
-end;
-
-function TUILess.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT;
-const
- DLCTL_NO_SCRIPTS = $00000080;
- DLCTL_NO_JAVA = $00000100;
- DLCTL_NO_RUNACTIVEXCTLS = $00000200;
- DLCTL_NO_DLACTIVEXCTLS = $00000400;
- DLCTL_DOWNLOADONLY = $00000800;
-var
- I: Integer;
-begin
- Result := E_Fail;
- if FEnabled then
- begin
- if DISPID_AMBIENT_DLCONTROL = DispID then
- begin
- I := DLCTL_DOWNLOADONLY + DLCTL_NO_SCRIPTS +
- DLCTL_NO_JAVA + DLCTL_NO_DLACTIVEXCTLS +
- DLCTL_NO_RUNACTIVEXCTLS;
- PVariant(VarResult)^ := I;
- Result := S_OK;
- if Assigned(FOnInvoke) then
- FOnInvoke(DispID, IID, LocaleID, Flags, TagDispParams(Params),
- VarResult, ExcepInfo, ArgErr)
- end
- else
- Result := DISP_E_MEMBERNOTFOUND;
- end;
-end;
-
-function TUILess.OnChanged(dispid: TDispID): HRESULT;
-const
- WM_USER_STARTWALKING = WM_USER + 1;
- READYSTATE_COMPLETE = $00000004;
-var
- dp: TDispParams;
- vResult: OleVariant;
-begin
- Result := E_Fail;
- if FEnabled then
- begin
- if (DISPID_READYSTATE = Dispid) then
- begin
- if Succeeded((Doc as IHTMLDocument2).Invoke(DISPID_READYSTATE, GUID_null,
- LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, dp, @vresult, nil, nil)) then
- if Integer(vResult) = READYSTATE_COMPLETE then
- PostThreadMessage(GetCurrentThreadId(), WM_USER_STARTWALKING, 0, 0);
- end;
- end;
-end;
-
-function TUILess.LoadUrlFromMoniker: HRESULT;
-var
- Moniker: IMoniker;
- BindCtx: IBindCTX;
- PM: IPersistMoniker;
-begin
- Result := E_Fail;
- if FEnabled then
- begin
- if Succeeded(CreateURLMoniker(nil, PWideChar(_URL), Moniker)) then
- begin
- CreateBindCtx(0, BindCtx);
- PM := Doc as IPersistMoniker;
- Result := PM.Load(LongBool(0), Moniker, BindCtx, STGM_READ);
- end;
- end;
-end;
-
-function TUILess.LoadUrlFromFile: HRESULT;
-var
- PF: IPersistFile;
-begin
- Result := E_Fail;
- if FEnabled then
- begin
- PF := Doc as IPersistFile;
- Result := PF.Load(PWideChar(_URL), 0);
- end;
-end;
-
-/// UTILITIES ---------- >>>>>>>>>>>>>>>>>>>>>
-
-procedure TUILess.GetImageList(ImagesList: TStrings);
-var
- ImageElement: IHTMLImgElement;
- Disp: IDispatch;
- i: Integer;
-begin
- if HtmlElementCollection <> nil then
- begin
- for i := 0 to HTMLElementCollection.length - 1 do
- begin
- Disp := HtmlElementCollection.item(i, 0);
- if Succeeded(Disp.QueryInterface(IHTMLImgElement, ImageElement))
- then
- ImagesList.Add(ImageElement.src);
- end;
- end;
-end;
-
-procedure TUILess.GetAnchorList(Anchorlist: TStrings);
-var
- Anchor: IHTMLAnchorElement;
- Disp: IDispatch;
- x: Integer;
-begin
- if HTMLElementCollection <> nil then
- begin
- for x := 0 to HTMLElementCollection.length - 1 do
- begin
- Disp := HTMLElementCollection.item(x, 0);
- if Succeeded(Disp.QueryInterface(IHTMLAnchorElement, Anchor))
- and (anchor.href <> '') then
- Anchorlist.Add(Anchor.href);
- end;
- end;
-end;
-
-procedure TUILess.GetLinkList(LinkList: TStrings);
-var
- Anchor: IHTMLAnchorElement;
- Link: IHTMLElement;
- Disp: IDispatch;
- i: Integer;
-begin
- if HTMLElementCollection <> nil then
- begin
- for i := 0 to HTMLElementCollection.length - 1 do
- begin
- Disp := HTMLElementCollection.item(i, 0);
- if Succeeded(Disp.QueryInterface(IHTMLElement, Link)) and
- (Link.innerText <> '') then
- begin
- if Succeeded(Disp.QueryInterface(IHTMLAnchorElement, Anchor))
- and (Anchor.href <> '') then
- LinkList.Add(Link.innerText);
- end;
- end;
- end;
-end;
-
-/// Don't Care ------>>>>>>>>>>>
-
-procedure TUILess.SetAbout(Value: string);
-begin
- Exit;
-end;
-
-function TUILess.OnRequestEdit(dispid: TDispID): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TUILess.SaveObject: HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TUILess.GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint;
- out mk: IMoniker): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TUILess.GetContainer(out container: IOleContainer): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TUILess.ShowObject: HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TUILess.OnShowWindow(fShow: BOOL): HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-function TUILess.RequestNewObjectLayout: HRESULT;
-begin
- Result := E_NOTIMPL;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/UrlHistory.pas b/windows/src/ext/embeddedwb/Source/UrlHistory.pas
deleted file mode 100644
index b7ae120d55a571153a38a719725ce249cd4d2725..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/UrlHistory.pas
+++ /dev/null
@@ -1,330 +0,0 @@
-//**************************************************************
-// *
-// UrlHistory * *
-// For Delphi 5 to XE *
-// Freeware Component *
-// by *
-// Per Linds Larsen *
-// per.lindsoe@larsen.dk *
-// *
-// Contributions: *
-// Eran Bodankin (bsalsa) bsalsa@gmail.com *
-// *
-// Updated versions: *
-// http://www.bsalsa.com *
-//**************************************************************
-
-{*******************************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use, change or modify the component under 4 conditions:
-1. In your website, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@gmail.com) any code change in the unit
- for the benefit of the other users.
-4. Please consider donation in our web site!
-{*******************************************************************************}
-//$Id: UrlHistory.pas,v 1.2 2006/11/15 21:01:44 sergev Exp $
-
-unit UrlHistory;
-
-interface
-
-{$I EWB.inc}
-
-uses
- Windows, SysUtils, Classes, ActiveX, ComObj, EwbAcc;
-
-
-type
- TSortDirectionOption = (sdAscending, sdDescending);
- TSortFieldOption = (sfTitle, sfURL, sfLastVisited, sfLastUpdated, sfExpires);
- TSearchFieldOption = (seBoth, seTitle, seURL);
-
-type
-
- TOnAcceptEvent = procedure(Title, Url: string; LastVisited, LastUpdated, Expires: TDateTime;
- var Accept: Boolean) of object;
-
- TOnDeleteEvent = procedure(Title, Url: string; LastVisited, LastUpdated, Expires: TDateTime;
- var Delete: Boolean) of object;
-
- TUrlHistory = class(TComponent)
- private
- { Private declarations }
- FSearch: string;
- FAccept: Boolean;
- FDelete: Boolean;
- FOnDelete: TOnDeleteEvent;
- FOnAccept: TOnAcceptEvent;
- FSortDirection: TSortDirectionOption;
- FSortField: TSortFieldOption;
- FSearchField: TSearchFieldOption;
- Stg: IUrlHistoryStg2;
- Enum: IEnumStatUrl;
- protected
- { Protected declarations }
- procedure ClearList;
- procedure Accept(Title, Url: string; LastVisited, LastUpdated, Expires: TDateTime;
- var Accept: Boolean);
- procedure Delete(Title, Url: string; LastVisited, LastUpdated, Expires: TDateTime;
- var Delete: Boolean);
- procedure Loaded; override;
- public
- Items: TList;
- { Public declarations }
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- function Enumerate: Integer;
- function DeleteEntries: Integer;
- function AddUrl(Url: PWideChar; Title: PWideChar): HRESULT;
- function DeleteUrl(Url: PWideChar): HRESULT;
- function QueryUrl(Url: PWideChar; var Entry: TEntry): HRESULT;
- function ClearHistory: HRESULT;
-
- published
- { Published declarations }
- property OnAccept: TOnAcceptEvent read FOnAccept write FOnAccept;
- property OnDelete: TOnDeleteEvent read FOnDelete write FOnDelete;
- property SortField: TSortFieldOption read FSortField write FSortField;
- property SearchField: TSearchFieldOption read FSearchField write FSearchField;
- property Search: string read FSearch write FSearch;
- property SortDirection: TSortDirectionOption read FSortDirection write FSortDirection;
- end;
-
-implementation
-
-var
- Ascending: Boolean;
-
-function TitleSortFunc(Item1, Item2: Pointer): Integer;
-begin
- if ((PEntry(Item1).Title < PEntry(Item2).Title) and Ascending)
- or ((PEntry(Item1).Title > PEntry(Item2).Title) and not Ascending) then
- Result := -1
- else
- if PEntry(Item1).Title = PEntry(Item2).Title then
- Result := 0
- else
- Result := 1;
-end;
-
-function UrlSortFunc(Item1, Item2: Pointer): Integer;
-begin
- if ((PEntry(Item1).Url < PEntry(Item2).Url) and Ascending)
- or ((PEntry(Item1).Url > PEntry(Item2).Url) and not Ascending) then
- Result := -1
- else
- if PEntry(Item1).Url = PEntry(Item2).Url then
- Result := 0
- else
- Result := 1;
-end;
-
-function LastVisitedSortFunc(Item1, Item2: Pointer): Integer;
-begin
- if ((PEntry(Item1).LastVisited < PEntry(Item2).LastVisited) and Ascending)
- or ((PEntry(Item1).LastVisited > PEntry(Item2).LastVisited) and not Ascending)
- then
- Result := -1
- else
- if PEntry(Item1).LastVisited = PEntry(Item2).LastVisited then
- Result := 0
- else
- Result := 1;
-end;
-
-function LastUpdatedSortFunc(Item1, Item2: Pointer): Integer;
-begin
- if ((PEntry(Item1).LastUpdated < PEntry(Item2).LastUpdated) and Ascending)
- or ((PEntry(Item1).LastUpdated > PEntry(Item2).LastUpdated) and not Ascending) then
- Result := -1
- else
- if PEntry(Item1).LastUpdated = PEntry(Item2).LastUpdated then
- Result := 0
- else
- Result := 1;
-end;
-
-function ExpiresSortFunc(Item1, Item2: Pointer): Integer;
-begin
- if ((PEntry(Item1).Expires < PEntry(Item2).Expires) and Ascending)
- or ((PEntry(Item1).Expires > PEntry(Item2).Expires) and not Ascending) then
- Result := -1
- else
- if PEntry(Item1).Expires = PEntry(Item2).Expires then
- Result := 0
- else
- Result := 1;
-end;
-
-function FileTimeToDt(Ft: TFileTime): TDateTime;
-var
- l: Integer;
- lft: TFileTime;
-begin
- FileTimeToLocalFiletime(Ft, lft);
- if FileTimeToDosDateTime(lft, Longrec(l).Hi, Longrec(l).Lo) then
- Result := FileDateToDatetime(l)
- else
- Result := 0;
-end;
-
-{ TUrlHistory }
-
-function TUrlHistory.AddUrl(Url, Title: PWideChar): HRESULT;
-begin
- Result := Stg.AddUrl(Url, Title, 0);
-end;
-
-function TUrlHistory.ClearHistory: HRESULT;
-begin
- Result := Stg.ClearHistory;
-end;
-
-constructor TUrlHistory.Create(AOwner: TComponent);
-begin
- inherited;
-end;
-
-function TUrlHistory.DeleteUrl(Url: PWideChar): HRESULT;
-begin
- Result := stg.DeleteUrl(Url, 0);
-end;
-
-procedure TUrlHistory.ClearList;
-var
- I: Integer;
-begin
- if Items <> nil then
- begin
- for I := 0 to Pred(Items.Count) do
- Dispose(PEntry(Items[i]));
- Items.Clear;
- end;
-end;
-
-function TUrlHistory.Enumerate: Integer;
-var
- staturl: TStaturl;
- title, Url: string;
- Entry: PEntry;
- Fetched: Integer;
-begin
- ClearList;
- Stg.EnumUrls(Enum);
- while Enum.Next(1, StatUrl, @Fetched) = S_OK do
- begin
- Url := PWideChar(Pointer(Staturl.pwcsUrl));
- Title := PWideChar(Pointer(Staturl.pwcsTitle));
- if FSearch <> '' then
- if ((FSearchField = seUrl) and (Pos(FSearch, Url) = 0)) or
- ((FSearchField = seTitle) and (Pos(FSearch, Title) = 0)) or
- ((FSearchField = seBoth) and ((Pos(FSearch, Url) = 0)) or (Pos(FSearch, Title) = 0)) then
- Continue;
- Entry := New(PEntry);
- Entry.Url := Url;
- Entry.Title := Title;
- Entry.Lastvisited := FileTimeToDt(Staturl.ftLastVisited);
- Entry.LastUpdated := FileTimeToDt(Staturl.ftLastUpdated);
- Entry.Expires := FileTimeToDt(Staturl.ftExpires);
- FAccept := True;
- if Assigned(FOnAccept) then
- FOnAccept(Entry.Title, Entry.Url, Entry.LastVisited, Entry.LastUpdated, Entry.Expires, FAccept);
- if FAccept then
- Items.Add(Entry);
- end;
- Ascending := BOOL(FSortDirection = sdAscending);
- case FSortField of
- sfTitle: Items.Sort(TitleSortFunc);
- sfUrl: Items.Sort(UrlSortFunc);
- sfLastVisited: Items.Sort(LastVisitedSortFunc);
- sfLastUpdated: Items.Sort(LastUpdatedSortFunc);
- sfExpires: Items.Sort(ExpiresSortFunc);
- end;
- Result := Items.Count;
-end;
-
-procedure TUrlHistory.Loaded;
-const
- CLSID_CUrlHistory: TGUID = '{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
-begin
- inherited;
- Items := TList.Create;
- Stg := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg2;
-end;
-
-destructor TUrlHistory.Destroy;
-begin
- Clearlist;
- if Items <> nil then
- Items.Free;
- inherited;
-end;
-
-procedure TUrlHistory.Accept(Title, Url: string; LastVisited, LastUpdated,
- Expires: TDateTime; var Accept: Boolean);
-begin
-//
-end;
-
-procedure TUrlHistory.Delete(Title, Url: string; LastVisited, LastUpdated,
- Expires: TDateTime; var Delete: Boolean);
-begin
-//
-end;
-
-function TUrlHistory.DeleteEntries: Integer;
-var
- StatUrl: TStatUrl;
- Fetched: Integer;
-begin
- Result := 0;
- Stg.EnumUrls(Enum);
- while enum.Next(1, StatUrl, @Fetched) = S_OK do
- begin
- FDelete := False;
- if Assigned(FOnDelete) then
- FOnDelete(PWideChar(Pointer(Staturl.pwcsUrl)),
- PWideChar(Pointer(Staturl.pwcsTitle)),
- FileTimeToDt(Staturl.ftLastVisited),
- FileTimeToDt(Staturl.ftLastUpdated),
- FileTimeToDt(Staturl.ftExpires),
- FDelete);
- if FDelete then
- begin
- Stg.DeleteUrl(PWideChar(Pointer(Staturl.pwcsUrl)), 0);
- Inc(Result);
- end;
- end;
-end;
-
-function TUrlHistory.QueryUrl(Url: PWideChar; var Entry: TEntry): HRESULT;
-var
- StatUrl: TSTATURL;
-begin
- Result := Stg.QueryUrl(Url, 0, StatUrl);
- if Result = S_OK then
- begin
- Entry.Url := PWideChar(Pointer(Staturl.pwcsUrl));
- Entry.Title := PWideChar(Pointer(Staturl.pwcsTitle));
- Entry.LastVisited := FileTimeToDt(Staturl.ftLastVisited);
- Entry.LastUpdated := FileTimeToDt(Staturl.ftLastUpdated);
- Entry.Expires := FileTimeToDt(Staturl.ftExpires);
- end;
-end;
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Source/Wcrypt2.pas b/windows/src/ext/embeddedwb/Source/Wcrypt2.pas
deleted file mode 100644
index 42c1ae46fc6d7d3d8c3374a8658fb0601d03e6da..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/Wcrypt2.pas
+++ /dev/null
@@ -1,7870 +0,0 @@
-{******************************************************************}
-{ }
-{ Borland Delphi Runtime Library }
-{ Cryptographic API interface unit }
-{ }
-{ Portions created by Microsoft are }
-{ Copyright (C) 1993-1998 Microsoft Corporation. }
-{ All Rights Reserved. }
-{ }
-{ The original file is: wincrypt.h, 1992 - 1997 }
-{ The original Pascal code is: wcrypt2.pas, released 01 Jan 1998 }
-{ The initial developer of the Pascal code is }
-{ Massimo Maria Ghisalberti (nissl@dada.it) }
-{ }
-{ Portions created by Massimo Maria Ghisalberti are }
-{ Copyright (C) 1997-1998 Massimo Maria Ghisalberti }
-{ }
-{ Contributor(s): }
-{ Peter Tang (peter.tang@citicorp.com) }
-{ Phil Shrimpton (phil@shrimpton.co.uk) }
-{ }
-{ Obtained through: }
-{ }
-{ Joint Endeavour of Delphi Innovators (Project JEDI) }
-{ }
-{ You may retrieve the latest version of this file at the Project }
-{ JEDI home page, located at http://delphi-jedi.org }
-{ }
-{ The contents of this file are used with permission, subject to }
-{ the Mozilla Public License Version 1.1 (the "License"); you may }
-{ not use this file except in compliance with the License. You may }
-{ obtain a copy of the License at }
-{ http://www.mozilla.org/MPL/MPL-1.1.html }
-{ }
-{ Software distributed under the License is distributed on an }
-{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or }
-{ implied. See the License for the specific language governing }
-{ rights and limitations under the License. }
-{ }
-{******************************************************************}
-//$Id: Wcrypt2.pas,v 1.2 2006/11/15 21:01:44 sergev Exp $
-
-unit wcrypt2;
-
-{.DEFINE NT5}
-
-{$ALIGN ON}
-
-{$IFNDEF VER90}
-{$WEAKPACKAGEUNIT}
-{$ENDIF}
-
-interface
-
-uses
- Windows
-{$IFDEF VER90}
- , Ole2
-{$ENDIF};
-
-const
- ADVAPI32 = 'advapi32.dll';
- CRYPT32 = 'crypt32.dll';
- SOFTPUB = 'softpub.dll';
-{$IFDEF NT5}
- ADVAPI32NT5 = 'advapi32.dll';
-{$ENDIF}
-
-{Support Type}
-
-type
- PVOID = Pointer;
- LONG = DWORD;
-{$IFDEF UNICODE}
- LPAWSTR = PWideChar;
-{$ELSE}
- LPAWSTR = PAnsiChar;
-{$ENDIF}
-
-//-----------------------------------------------------------------------------
- // Type support for a pointer to an array of pointer (type **name)
- PLPSTR = Pointer; // type for a pointer to Array of pointer a type
- PPCERT_INFO = Pointer; // type for a pointer to Array of pointer a type
- PPVOID = Pointer; // type for a pointer to Array of pointer a type
- PPCCERT_CONTEXT = Pointer; // type for a pointer to Array of pointer a type
- PPCCTL_CONTEXT = Pointer; // type for a pointer to Array of pointer a type
- PPCCRL_CONTEXT = Pointer; // type for a pointer to Array of pointer a type
-//-----------------------------------------------------------------------------
-
-//+---------------------------------------------------------------------------
-//
-// Microsoft Windows
-// Copyright (C) Microsoft Corporation, 1992 - 1997.
-//
-// File: wincrypt.h
-//
-// Contents: Cryptographic API Prototypes and Definitions
-//
-//----------------------------------------------------------------------------
-
-
-//
-// Algorithm IDs and Flags
-//
-
-// ALG_ID crackers
-function GET_ALG_CLASS(x: integer): integer;
-function GET_ALG_TYPE(x: integer): integer;
-function GET_ALG_SID(x: integer): integer;
-
-const
- // Algorithm classes
- ALG_CLASS_ANY = 0;
- ALG_CLASS_SIGNATURE = (1 shl 13);
- ALG_CLASS_MSG_ENCRYPT = (2 shl 13);
- ALG_CLASS_DATA_ENCRYPT = (3 shl 13);
- ALG_CLASS_HASH = (4 shl 13);
- ALG_CLASS_KEY_EXCHANGE = (5 shl 13);
-
- // Algorithm types
- ALG_TYPE_ANY = 0;
- ALG_TYPE_DSS = (1 shl 9);
- ALG_TYPE_RSA = (2 shl 9);
- ALG_TYPE_BLOCK = (3 shl 9);
- ALG_TYPE_STREAM = (4 shl 9);
- ALG_TYPE_DH = (5 shl 9);
- ALG_TYPE_SECURECHANNEL = (6 shl 9);
-
- // Generic sub-ids
- ALG_SID_ANY = 0;
-
- // Some RSA sub-ids
- ALG_SID_RSA_ANY = 0;
- ALG_SID_RSA_PKCS = 1;
- ALG_SID_RSA_MSATWORK = 2;
- ALG_SID_RSA_ENTRUST = 3;
- ALG_SID_RSA_PGP = 4;
-
- // Some DSS sub-ids
- ALG_SID_DSS_ANY = 0;
- ALG_SID_DSS_PKCS = 1;
- ALG_SID_DSS_DMS = 2;
-
- // Block cipher sub ids
- // DES sub_ids
- ALG_SID_DES = 1;
- ALG_SID_3DES = 3;
- ALG_SID_DESX = 4;
- ALG_SID_IDEA = 5;
- ALG_SID_CAST = 6;
- ALG_SID_SAFERSK64 = 7;
- ALD_SID_SAFERSK128 = 8;
- ALG_SID_SAFERSK128 = 8;
- ALG_SID_3DES_112 = 9;
- ALG_SID_CYLINK_MEK = 12;
- ALG_SID_RC5 = 13;
-
- // Fortezza sub-ids
- ALG_SID_SKIPJACK = 10;
- ALG_SID_TEK = 11;
-
- // KP_MODE
- CRYPT_MODE_CBCI = 6; {ANSI CBC Interleaved}
- CRYPT_MODE_CFBP = 7; {ANSI CFB Pipelined}
- CRYPT_MODE_OFBP = 8; {ANSI OFB Pipelined}
- CRYPT_MODE_CBCOFM = 9; {ANSI CBC + OF Masking}
- CRYPT_MODE_CBCOFMI = 10; {ANSI CBC + OFM Interleaved}
-
- // RC2 sub-ids
- ALG_SID_RC2 = 2;
-
- // Stream cipher sub-ids
- ALG_SID_RC4 = 1;
- ALG_SID_SEAL = 2;
-
- // Diffie-Hellman sub-ids
- ALG_SID_DH_SANDF = 1;
- ALG_SID_DH_EPHEM = 2;
- ALG_SID_AGREED_KEY_ANY = 3;
- ALG_SID_KEA = 4;
-
- // Hash sub ids
- ALG_SID_MD2 = 1;
- ALG_SID_MD4 = 2;
- ALG_SID_MD5 = 3;
- ALG_SID_SHA = 4;
- ALG_SID_SHA1 = 4;
- ALG_SID_MAC = 5;
- ALG_SID_RIPEMD = 6;
- ALG_SID_RIPEMD160 = 7;
- ALG_SID_SSL3SHAMD5 = 8;
- ALG_SID_HMAC = 9;
-
- // secure channel sub ids
- ALG_SID_SSL3_MASTER = 1;
- ALG_SID_SCHANNEL_MASTER_HASH = 2;
- ALG_SID_SCHANNEL_MAC_KEY = 3;
- ALG_SID_PCT1_MASTER = 4;
- ALG_SID_SSL2_MASTER = 5;
- ALG_SID_TLS1_MASTER = 6;
- ALG_SID_SCHANNEL_ENC_KEY = 7;
-
- // Our silly example sub-id
- ALG_SID_EXAMPLE = 80;
-
-{$IFNDEF ALGIDDEF}
-{$DEFINE ALGIDDEF}
-type ALG_ID = ULONG;
-{$ENDIF}
-
-// algorithm identifier definitions
-const
- CALG_MD2 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MD2);
- CALG_MD4 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MD4);
- CALG_MD5 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MD5);
- CALG_SHA = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_SHA);
- CALG_SHA1 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_SHA1);
- CALG_MAC = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MAC);
- CALG_RSA_SIGN = (ALG_CLASS_SIGNATURE or ALG_TYPE_RSA or ALG_SID_RSA_ANY);
- CALG_DSS_SIGN = (ALG_CLASS_SIGNATURE or ALG_TYPE_DSS or ALG_SID_DSS_ANY);
- CALG_RSA_KEYX = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_RSA or ALG_SID_RSA_ANY);
- CALG_DES = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_DES);
- CALG_3DES_112 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_3DES_112);
- CALG_3DES = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_3DES);
- CALG_RC2 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_RC2);
- CALG_RC4 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_STREAM or ALG_SID_RC4);
- CALG_SEAL = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_STREAM or ALG_SID_SEAL);
- CALG_DH_SF = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_DH_SANDF);
- CALG_DH_EPHEM = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_DH_EPHEM);
- CALG_AGREEDKEY_ANY = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_AGREED_KEY_ANY);
- CALG_KEA_KEYX = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_KEA);
- CALG_HUGHES_MD5 = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_ANY or ALG_SID_MD5);
- CALG_SKIPJACK = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_SKIPJACK);
- CALG_TEK = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_TEK);
- CALG_CYLINK_MEK = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_CYLINK_MEK);
- CALG_SSL3_SHAMD5 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_SSL3SHAMD5);
- CALG_SSL3_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SSL3_MASTER);
- CALG_SCHANNEL_MASTER_HASH = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SCHANNEL_MASTER_HASH);
- CALG_SCHANNEL_MAC_KEY = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SCHANNEL_MAC_KEY);
- CALG_SCHANNEL_ENC_KEY = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SCHANNEL_ENC_KEY);
- CALG_PCT1_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_PCT1_MASTER);
- CALG_SSL2_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SSL2_MASTER);
- CALG_TLS1_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_TLS1_MASTER);
- CALG_RC5 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_RC5);
- CALG_HMAC = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_HMAC);
-
-type
- PVTableProvStruc = ^VTableProvStruc;
- VTableProvStruc = record
- Version: DWORD;
- FuncVerifyImage: TFarProc;
- FuncReturnhWnd: TFarProc;
- dwProvType: DWORD;
- pbContextInfo: PBYTE;
- cbContextInfo: DWORD;
- end;
-
-//type HCRYPTPROV = ULONG;
-//type HCRYPTKEY = ULONG;
-//type HCRYPTHASH = ULONG;
-
-
-const
- // dwFlags definitions for CryptAcquireContext
- CRYPT_VERIFYCONTEXT = $F0000000;
- CRYPT_NEWKEYSET = $00000008;
- CRYPT_DELETEKEYSET = $00000010;
- CRYPT_MACHINE_KEYSET = $00000020;
-
- // dwFlag definitions for CryptGenKey
- CRYPT_EXPORTABLE = $00000001;
- CRYPT_USER_PROTECTED = $00000002;
- CRYPT_CREATE_SALT = $00000004;
- CRYPT_UPDATE_KEY = $00000008;
- CRYPT_NO_SALT = $00000010;
- CRYPT_PREGEN = $00000040;
- CRYPT_RECIPIENT = $00000010;
- CRYPT_INITIATOR = $00000040;
- CRYPT_ONLINE = $00000080;
- CRYPT_SF = $00000100;
- CRYPT_CREATE_IV = $00000200;
- CRYPT_KEK = $00000400;
- CRYPT_DATA_KEY = $00000800;
-
- // dwFlags definitions for CryptDeriveKey
- CRYPT_SERVER = $00000400;
-
- KEY_LENGTH_MASK = $FFFF0000;
-
- // dwFlag definitions for CryptExportKey
- CRYPT_Y_ONLY = $00000001;
- CRYPT_SSL2_SLUMMING = $00000002;
-
- // dwFlags definitions for CryptHashSessionKey
- CRYPT_LITTLE_ENDIAN = $00000001;
-
- // dwFlag definitions for CryptSetProviderEx and CryptGetDefaultProvider
- CRYPT_MACHINE_DEFAULT = $00000001;
- CRYPT_USER_DEFAULT = $00000002;
- CRYPT_DELETE_DEFAULT = $00000004;
-
- // exported key blob definitions
- SIMPLEBLOB = $1;
- PUBLICKEYBLOB = $6;
- PRIVATEKEYBLOB = $7;
- PLAINTEXTKEYBLOB = $8;
- AT_KEYEXCHANGE = 1;
- AT_SIGNATURE = 2;
- CRYPT_USERDATA = 1;
-
- // dwParam
- KP_IV = 1; // Initialization vector
- KP_SALT = 2; // Salt value
- KP_PADDING = 3; // Padding values
- KP_MODE = 4; // Mode of the cipher
- KP_MODE_BITS = 5; // Number of bits to feedback
- KP_PERMISSIONS = 6; // Key permissions DWORD
- KP_ALGID = 7; // Key algorithm
- KP_BLOCKLEN = 8; // Block size of the cipher
- KP_KEYLEN = 9; // Length of key in bits
- KP_SALT_EX = 10; // Length of salt in bytes
- KP_P = 11; // DSS/Diffie-Hellman P value
- KP_G = 12; // DSS/Diffie-Hellman G value
- KP_Q = 13; // DSS Q value
- KP_X = 14; // Diffie-Hellman X value
- KP_Y = 15; // Y value
- KP_RA = 16; // Fortezza RA value
- KP_RB = 17; // Fortezza RB value
- KP_INFO = 18; // for putting information into an RSA envelope
- KP_EFFECTIVE_KEYLEN = 19; // setting and getting RC2 effective key length
- KP_SCHANNEL_ALG = 20; // for setting the Secure Channel algorithms
- KP_CLIENT_RANDOM = 21; // for setting the Secure Channel client random data
- KP_SERVER_RANDOM = 22; // for setting the Secure Channel server random data
- KP_RP = 23;
- KP_PRECOMP_MD5 = 24;
- KP_PRECOMP_SHA = 25;
- KP_CERTIFICATE = 26; // for setting Secure Channel certificate data (PCT1)
- KP_CLEAR_KEY = 27; // for setting Secure Channel clear key data (PCT1)
- KP_PUB_EX_LEN = 28;
- KP_PUB_EX_VAL = 29;
-
- // KP_PADDING
- PKCS5_PADDING = 1; {PKCS 5 (sec 6.2) padding method}
- RANDOM_PADDING = 2;
- ZERO_PADDING = 3;
-
- // KP_MODE
- CRYPT_MODE_CBC = 1; // Cipher block chaining
- CRYPT_MODE_ECB = 2; // Electronic code book
- CRYPT_MODE_OFB = 3; // Output feedback mode
- CRYPT_MODE_CFB = 4; // Cipher feedback mode
- CRYPT_MODE_CTS = 5; // Ciphertext stealing mode
-
- // KP_PERMISSIONS
- CRYPT_ENCRYPT = $0001; // Allow encryption
- CRYPT_DECRYPT = $0002; // Allow decryption
- CRYPT_EXPORT = $0004; // Allow key to be exported
- CRYPT_READ = $0008; // Allow parameters to be read
- CRYPT_WRITE = $0010; // Allow parameters to be set
- CRYPT_MAC = $0020; // Allow MACs to be used with key
- CRYPT_EXPORT_KEY = $0040; // Allow key to be used for exporting keys
- CRYPT_IMPORT_KEY = $0080; // Allow key to be used for importing keys
-
- HP_ALGID = $0001; // Hash algorithm
- HP_HASHVAL = $0002; // Hash value
- HP_HASHSIZE = $0004; // Hash value size
-
- HP_HMAC_INFO = $0005; // information for creating an HMAC
-
- CRYPT_FAILED = FALSE;
- CRYPT_SUCCEED = TRUE;
-
-function RCRYPT_SUCCEEDED(rt: BOOL): BOOL;
-function RCRYPT_FAILED(rt: BOOL): BOOL;
-
-const
- // CryptGetProvParam
- PP_ENUMALGS = 1;
- PP_ENUMCONTAINERS = 2;
- PP_IMPTYPE = 3;
- PP_NAME = 4;
- PP_VERSION = 5;
- PP_CONTAINER = 6;
- PP_CHANGE_PASSWORD = 7;
- PP_KEYSET_SEC_DESCR = 8; // get/set security descriptor of keyset
- PP_CERTCHAIN = 9; // for retrieving certificates from tokens
- PP_KEY_TYPE_SUBTYPE = 10;
- PP_PROVTYPE = 16;
- PP_KEYSTORAGE = 17;
- PP_APPLI_CERT = 18;
- PP_SYM_KEYSIZE = 19;
- PP_SESSION_KEYSIZE = 20;
- PP_UI_PROMPT = 21;
- PP_ENUMALGS_EX = 22;
- CRYPT_FIRST = 1;
- CRYPT_NEXT = 2;
- CRYPT_IMPL_HARDWARE = 1;
- CRYPT_IMPL_SOFTWARE = 2;
- CRYPT_IMPL_MIXED = 3;
- CRYPT_IMPL_UNKNOWN = 4;
-
- // key storage flags
- CRYPT_SEC_DESCR = $00000001;
- CRYPT_PSTORE = $00000002;
- CRYPT_UI_PROMPT = $00000004;
-
- // protocol flags
- CRYPT_FLAG_PCT1 = $0001;
- CRYPT_FLAG_SSL2 = $0002;
- CRYPT_FLAG_SSL3 = $0004;
- CRYPT_FLAG_TLS1 = $0008;
-
- // CryptSetProvParam
- PP_CLIENT_HWND = 1;
- PP_CONTEXT_INFO = 11;
- PP_KEYEXCHANGE_KEYSIZE = 12;
- PP_SIGNATURE_KEYSIZE = 13;
- PP_KEYEXCHANGE_ALG = 14;
- PP_SIGNATURE_ALG = 15;
- PP_DELETEKEY = 24;
-
- PROV_RSA_FULL = 1;
- PROV_RSA_SIG = 2;
- PROV_DSS = 3;
- PROV_FORTEZZA = 4;
- PROV_MS_EXCHANGE = 5;
- PROV_SSL = 6;
-
- PROV_RSA_SCHANNEL = 12;
- PROV_DSS_DH = 13;
- PROV_EC_ECDSA_SIG = 14;
- PROV_EC_ECNRA_SIG = 15;
- PROV_EC_ECDSA_FULL = 16;
- PROV_EC_ECNRA_FULL = 17;
- PROV_SPYRUS_LYNKS = 20;
-
-
- // STT defined Providers
- PROV_STT_MER = 7;
- PROV_STT_ACQ = 8;
- PROV_STT_BRND = 9;
- PROV_STT_ROOT = 10;
- PROV_STT_ISS = 11;
-
- // Provider friendly names
- MS_DEF_PROV_A = 'Microsoft Base Cryptographic Provider v1.0';
-{$IFNDEF VER90}
- MS_DEF_PROV_W = WideString('Microsoft Base Cryptographic Provider v1.0');
-{$ELSE}
- MS_DEF_PROV_W = ('Microsoft Base Cryptographic Provider v1.0');
-{$ENDIF}
-
-{$IFDEF UNICODE}
- MS_DEF_PROV = MS_DEF_PROV_W;
-{$ELSE}
- MS_DEF_PROV = MS_DEF_PROV_A;
-{$ENDIF}
-
- MS_ENHANCED_PROV_A = 'Microsoft Enhanced Cryptographic Provider v1.0';
-{$IFNDEF VER90}
- MS_ENHANCED_PROV_W = WideString('Microsoft Enhanced Cryptographic Provider v1.0');
-{$ELSE}
- MS_ENHANCED_PROV_W = ('Microsoft Enhanced Cryptographic Provider v1.0');
-{$ENDIF}
-
-{$IFDEF UNICODE}
- MS_ENHANCED_PROV = MS_ENHANCED_PROV_W;
-{$ELSE}
- MS_ENHANCED_PROV = MS_ENHANCED_PROV_A;
-{$ENDIF}
-
- MS_DEF_RSA_SIG_PROV_A = 'Microsoft RSA Signature Cryptographic Provider';
-{$IFNDEF VER90}
- MS_DEF_RSA_SIG_PROV_W = WideString('Microsoft RSA Signature Cryptographic Provider');
-{$ELSE}
- MS_DEF_RSA_SIG_PROV_W = ('Microsoft RSA Signature Cryptographic Provider');
-{$ENDIF}
-
-{$IFDEF UNICODE}
- MS_DEF_RSA_SIG_PROV = MS_DEF_RSA_SIG_PROV_W;
-{$ELSE}
- MS_DEF_RSA_SIG_PROV = MS_DEF_RSA_SIG_PROV_A;
-{$ENDIF}
-
- MS_DEF_RSA_SCHANNEL_PROV_A = 'Microsoft Base RSA SChannel Cryptographic Provider';
-{$IFNDEF VER90}
- MS_DEF_RSA_SCHANNEL_PROV_W = WideString('Microsoft Base RSA SChannel Cryptographic Provider');
-{$ELSE}
- MS_DEF_RSA_SCHANNEL_PROV_W = ('Microsoft Base RSA SChannel Cryptographic Provider');
-{$ENDIF}
-
-
-{$IFDEF UNICODE}
- MS_DEF_RSA_SCHANNEL_PROV = MS_DEF_RSA_SCHANNEL_PROV_W;
-{$ELSE}
- MS_DEF_RSA_SCHANNEL_PROV = MS_DEF_RSA_SCHANNEL_PROV_A;
-{$ENDIF}
-
- MS_ENHANCED_RSA_SCHANNEL_PROV_A = 'Microsoft Enhanced RSA SChannel Cryptographic Provider';
-{$IFNDEF VER90}
- MS_ENHANCED_RSA_SCHANNEL_PROV_W = WideString('Microsoft Enhanced RSA SChannel Cryptographic Provider');
-{$ELSE}
- MS_ENHANCED_RSA_SCHANNEL_PROV_W = ('Microsoft Enhanced RSA SChannel Cryptographic Provider');
-{$ENDIF}
-
-{$IFDEF UNICODE}
- MS_ENHANCED_RSA_SCHANNEL_PROV = MS_ENHANCED_RSA_SCHANNEL_PROV_W;
-{$ELSE}
- MS_ENHANCED_RSA_SCHANNEL_PROV = MS_ENHANCED_RSA_SCHANNEL_PROV_A;
-{$ENDIF}
-
- MS_DEF_DSS_PROV_A = 'Microsoft Base DSS Cryptographic Provider';
-{$IFNDEF VER90}
- MS_DEF_DSS_PROV_W = WideString('Microsoft Base DSS Cryptographic Provider');
-{$ELSE}
- MS_DEF_DSS_PROV_W = ('Microsoft Base DSS Cryptographic Provider');
-{$ENDIF}
-
-{$IFDEF UNICODE}
- MS_DEF_DSS_PROV = MS_DEF_DSS_PROV_W;
-{$ELSE}
- MS_DEF_DSS_PROV = MS_DEF_DSS_PROV_A;
-{$ENDIF}
-
- MS_DEF_DSS_DH_PROV_A = 'Microsoft Base DSS and Diffie-Hellman Cryptographic Provider';
-{$IFNDEF VER90}
- MS_DEF_DSS_DH_PROV_W = WideString('Microsoft Base DSS and Diffie-Hellman Cryptographic Provider');
-{$ELSE}
- MS_DEF_DSS_DH_PROV_W = ('Microsoft Base DSS and Diffie-Hellman Cryptographic Provider');
-{$ENDIF}
-
-{$IFDEF UNICODE}
- MS_DEF_DSS_DH_PROV = MS_DEF_DSS_DH_PROV_W;
-{$ELSE}
- MS_DEF_DSS_DH_PROV = MS_DEF_DSS_DH_PROV_A;
-{$ENDIF}
-
- MAXUIDLEN = 64;
- CUR_BLOB_VERSION = 2;
-
-{structure for use with CryptSetHashParam with CALG_HMAC}
-type
- PHMAC_INFO = ^HMAC_INFO;
- HMAC_INFO = record
- HashAlgid: ALG_ID;
- pbInnerString: PBYTE;
- cbInnerString: DWORD;
- pbOuterString: PBYTE;
- cbOuterString: DWORD;
- end;
-
-// structure for use with CryptSetHashParam with CALG_HMAC
-type
- PSCHANNEL_ALG = ^SCHANNEL_ALG;
- SCHANNEL_ALG = record
- dwUse: DWORD;
- Algid: ALG_ID;
- cBits: DWORD;
- end;
-
-// uses of algortihms for SCHANNEL_ALG structure
-const
- SCHANNEL_MAC_KEY = $00000000;
- SCHANNEL_ENC_KEY = $00000001;
-
-type
- PPROV_ENUMALGS = ^PROV_ENUMALGS;
- PROV_ENUMALGS = record
- aiAlgid: ALG_ID;
- dwBitLen: DWORD;
- dwNameLen: DWORD;
- szName: array[0..20 - 1] of Char;
- end;
-
-type
- PPROV_ENUMALGS_EX = ^PROV_ENUMALGS_EX;
- PROV_ENUMALGS_EX = record
- aiAlgid: ALG_ID;
- dwDefaultLen: DWORD;
- dwMinLen: DWORD;
- dwMaxLen: DWORD;
- dwProtocols: DWORD;
- dwNameLen: DWORD;
- szName: array[0..20 - 1] of Char;
- dwLongNameLen: DWORD;
- szLongName: array[0..40 - 1] of Char;
- end;
-
-type
- PPUBLICKEYSTRUC = ^PUBLICKEYSTRUC;
- PUBLICKEYSTRUC = record
- bType: BYTE;
- bVersion: BYTE;
- reserved: Word;
- aiKeyAlg: ALG_ID;
- end;
-
-type
- BLOBHEADER = PUBLICKEYSTRUC;
- PBLOBHEADER = ^BLOBHEADER;
-
-type
- PRSAPUBKEY = ^RSAPUBKEY;
- RSAPUBKEY = record
- magic: DWORD; // Has to be RSA1
- bitlen: DWORD; // # of bits in modulus
- pubexp: DWORD; // public exponent
- // Modulus data follows
- end;
-
-type
- PPUBKEY = ^PUBKEY;
- PUBKEY = record
- magic: DWORD;
- bitlen: DWORD; // # of bits in modulus
- end;
-
-type
- DHPUBKEY = PUBKEY;
- DSSPUBKEY = PUBKEY;
- KEAPUBKEY = PUBKEY;
- TEKPUBKEY = PUBKEY;
-
-
-type
- PDSSSEED = ^DSSSEED;
- DSSSEED = record
- counter: DWORD;
- seed: array[0..20 - 1] of BYTE;
- end;
-
-type
- PKEY_TYPE_SUBTYPE = ^KEY_TYPE_SUBTYPE;
- KEY_TYPE_SUBTYPE = record
- dwKeySpec: DWORD;
- Type_: TGUID; {conflict with base Delphi type: original name 'Type'}
- Subtype: TGUID;
- end;
-
-type
- HCRYPTPROV = ULONG;
- PHCRYPTPROV = ^HCRYPTPROV;
- HCRYPTKEY = ULONG;
- PHCRYPTKEY = ^HCRYPTKEY;
- HCRYPTHASH = ULONG;
- PHCRYPTHASH = ^HCRYPTHASH;
-
-function CryptAcquireContextA(phProv: PHCRYPTPROV;
- pszContainer: PAnsiChar;
- pszProvider: PAnsiChar;
- dwProvType: DWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-function CryptAcquireContext(phProv: PHCRYPTPROV;
- pszContainer: LPAWSTR;
- pszProvider: LPAWSTR;
- dwProvType: DWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-function CryptAcquireContextW(phProv: PHCRYPTPROV;
- pszContainer: PWideChar;
- pszProvider: PWideChar;
- dwProvType: DWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptReleaseContext(hProv: HCRYPTPROV;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-
-function CryptGenKey(hProv: HCRYPTPROV;
- Algid: ALG_ID;
- dwFlags: DWORD;
- phKey: PHCRYPTKEY): BOOL; stdcall;
-
-
-function CryptDeriveKey(hProv: HCRYPTPROV;
- Algid: ALG_ID;
- hBaseData: HCRYPTHASH;
- dwFlags: DWORD;
- phKey: PHCRYPTKEY): BOOL; stdcall;
-
-
-
-function CryptDestroyKey(hKey: HCRYPTKEY): BOOL; stdcall;
-
-
-function CryptSetKeyParam(hKey: HCRYPTKEY;
- dwParam: DWORD;
- pbData: PBYTE;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptGetKeyParam(hKey: HCRYPTKEY;
- dwParam: DWORD;
- pbData: PBYTE;
- pdwDataLen: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptSetHashParam(hHash: HCRYPTHASH;
- dwParam: DWORD;
- pbData: PBYTE;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptGetHashParam(hHash: HCRYPTHASH;
- dwParam: DWORD;
- pbData: PBYTE;
- pdwDataLen: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptSetProvParam(hProv: HCRYPTPROV;
- dwParam: DWORD;
- pbData: PBYTE;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptGetProvParam(hProv: HCRYPTPROV;
- dwParam: DWORD;
- pbData: PBYTE;
- pdwDataLen: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptGenRandom(hProv: HCRYPTPROV;
- dwLen: DWORD;
- pbBuffer: PBYTE): BOOL; stdcall;
-
-
-function CryptGetUserKey(hProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- phUserKey: PHCRYPTKEY): BOOL; stdcall;
-
-
-function CryptExportKey(hKey: HCRYPTKEY;
- hExpKey: HCRYPTKEY;
- dwBlobType: DWORD;
- dwFlags: DWORD;
- pbData: PBYTE;
- pdwDataLen: PDWORD): BOOL; stdcall;
-
-
-function CryptImportKey(hProv: HCRYPTPROV;
- pbData: PBYTE;
- dwDataLen: DWORD;
- hPubKey: HCRYPTKEY;
- dwFlags: DWORD;
- phKey: PHCRYPTKEY): BOOL; stdcall;
-
-
-function CryptEncrypt(hKey: HCRYPTKEY;
- hHash: HCRYPTHASH;
- Final: BOOL;
- dwFlags: DWORD;
- pbData: PBYTE;
- pdwDataLen: PDWORD;
- dwBufLen: DWORD): BOOL; stdcall;
-
-
-function CryptDecrypt(hKey: HCRYPTKEY;
- hHash: HCRYPTHASH;
- Final: BOOL;
- dwFlags: DWORD;
- pbData: PBYTE;
- pdwDataLen: PDWORD): BOOL; stdcall;
-
-
-function CryptCreateHash(hProv: HCRYPTPROV;
- Algid: ALG_ID;
- hKey: HCRYPTKEY;
- dwFlags: DWORD;
- phHash: PHCRYPTHASH): BOOL; stdcall;
-
-
-function CryptHashData(hHash: HCRYPTHASH;
- const pbData: PBYTE;
- dwDataLen: DWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptHashSessionKey(hHash: HCRYPTHASH;
- hKey: HCRYPTKEY;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptDestroyHash(hHash: HCRYPTHASH): BOOL; stdcall;
-
-
-function CryptSignHashA(hHash: HCRYPTHASH;
- dwKeySpec: DWORD;
- sDescription: PAnsiChar;
- dwFlags: DWORD;
- pbSignature: PBYTE;
- pdwSigLen: PDWORD): BOOL; stdcall;
-
-
-function CryptSignHash(hHash: HCRYPTHASH;
- dwKeySpec: DWORD;
- sDescription: LPAWSTR;
- dwFlags: DWORD;
- pbSignature: PBYTE;
- pdwSigLen: PDWORD): BOOL; stdcall;
-
-function CryptSignHashW(hHash: HCRYPTHASH;
- dwKeySpec: DWORD;
- sDescription: PWideChar;
- dwFlags: DWORD;
- pbSignature: PBYTE;
- pdwSigLen: PDWORD): BOOL; stdcall;
-
-function CryptSignHashU(hHash: HCRYPTHASH;
- dwKeySpec: DWORD;
- sDescription: PWideChar;
- dwFlags: DWORD;
- pbSignature: PBYTE;
- pdwSigLen: PDWORD): BOOL; stdcall;
-
-function CryptVerifySignatureA(hHash: HCRYPTHASH;
- const pbSignature: PBYTE;
- dwSigLen: DWORD;
- hPubKey: HCRYPTKEY;
- sDescription: PAnsiChar;
- dwFlags: DWORD): BOOL; stdcall;
-
-function CryptVerifySignature(hHash: HCRYPTHASH;
- const pbSignature: PBYTE;
- dwSigLen: DWORD;
- hPubKey: HCRYPTKEY;
- sDescription: LPAWSTR;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptVerifySignatureW(hHash: HCRYPTHASH;
- const pbSignature: PBYTE;
- dwSigLen: DWORD;
- hPubKey: HCRYPTKEY;
- sDescription: PWideChar;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptSetProviderA(pszProvName: PAnsiChar;
- dwProvType: DWORD): BOOL; stdcall;
-
-function CryptSetProvider(pszProvName: LPAWSTR;
- dwProvType: DWORD): BOOL; stdcall;
-
-function CryptSetProviderW(pszProvName: PWideChar;
- dwProvType: DWORD): BOOL; stdcall;
-
-function CryptSetProviderU(pszProvName: PWideChar;
- dwProvType: DWORD): BOOL; stdcall;
-
-{$IFDEF NT5}
-
-function CryptSetProviderExA(pszProvName: LPCSTR;
- dwProvType: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-function CryptSetProviderExW(pszProvName: LPCWSTR;
- dwProvType: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-function CryptSetProviderEx(pszProvName: LPAWSTR;
- dwProvType: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-
-function CryptGetDefaultProviderA(dwProvType: DWORD;
- pdwReserved: DWORD;
- dwFlags: DWORD;
- pszProvName: LPSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-function CryptGetDefaultProviderW(dwProvType: DWORD;
- pdwReserved: DWORD;
- dwFlags: DWORD;
- pszProvName: LPWSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-function CryptGetDefaultProvider(dwProvType: DWORD;
- pdwReserved: DWORD;
- dwFlags: DWORD;
- pszProvName: LPAWSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-function CryptEnumProviderTypesA(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszTypeName: LPSTR;
- pcbTypeName: PDWORD): BOOL; stdcall;
-
-function CryptEnumProviderTypesW(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszTypeName: LPWSTR;
- pcbTypeName: PDWORD): BOOL; stdcall;
-
-function CryptEnumProviderTypes(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszTypeName: LPAWSTR;
- pcbTypeName: PDWORD): BOOL; stdcall;
-
-function CryptEnumProvidersA(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszProvName: LPSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-function CryptEnumProvidersW(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszProvName: LPWSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-function CryptEnumProviders(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszProvName: LPAWSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-function CryptContextAddRef(hProv: HCRYPTPROV;
- pdwReserved: PDWORD;
- dwFlags: DWORD): BOOL; stdcall;
-
-function CryptDuplicateKey(hKey: HCRYPTKEY;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- phKey: PHCRYPTKEY): BOOL; stdcall;
-
-function CryptDuplicateHash(hHash: HCRYPTHASH;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- phHash: PHCRYPTHASH): BOOL; stdcall;
-
-{$ENDIF NT5}
-
-function CryptEnumProvidersU(dwIndex: DWORD;
- pdwReserved: PDWORD;
- dwFlags: DWORD;
- pdwProvType: PDWORD;
- pszProvName: LPWSTR;
- pcbProvName: PDWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// CRYPTOAPI BLOB definitions
-//--------------------------------------------------------------------------
-
-type
- PCRYPTOAPI_BLOB = ^CRYPTOAPI_BLOB;
- CRYPTOAPI_BLOB = record
- cbData: DWORD;
- pbData: PBYTE;
- end;
-
-type
- CRYPT_INTEGER_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_INTEGER_BLOB = ^CRYPT_INTEGER_BLOB;
- CRYPT_UINT_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_UINT_BLOB = ^CRYPT_UINT_BLOB;
- CRYPT_OBJID_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_OBJID_BLOB = ^CRYPT_OBJID_BLOB;
- CERT_NAME_BLOB = CRYPTOAPI_BLOB;
- PCERT_NAME_BLOB = ^CERT_NAME_BLOB;
- CERT_RDN_VALUE_BLOB = CRYPTOAPI_BLOB;
- PCERT_RDN_VALUE_BLOB = ^CERT_RDN_VALUE_BLOB;
- CERT_BLOB = CRYPTOAPI_BLOB;
- PCERT_BLOB = ^CERT_BLOB;
- CRL_BLOB = CRYPTOAPI_BLOB;
- PCRL_BLOB = ^CRL_BLOB;
- DATA_BLOB = CRYPTOAPI_BLOB;
- PDATA_BLOB = ^DATA_BLOB; // JEFFJEFF temporary (too generic)
- CRYPT_DATA_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_DATA_BLOB = ^CRYPT_DATA_BLOB;
- CRYPT_HASH_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_HASH_BLOB = ^CRYPT_HASH_BLOB;
- CRYPT_DIGEST_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_DIGEST_BLOB = ^CRYPT_DIGEST_BLOB;
- CRYPT_DER_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_DER_BLOB = ^CRYPT_DER_BLOB;
- CRYPT_ATTR_BLOB = CRYPTOAPI_BLOB;
- PCRYPT_ATTR_BLOB = ^CRYPT_ATTR_BLOB;
-
-//+-------------------------------------------------------------------------
-// In a CRYPT_BIT_BLOB the last byte may contain 0-7 unused bits. Therefore, the
-// overall bit length is cbData * 8 - cUnusedBits.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_BIT_BLOB = ^CRYPT_BIT_BLOB;
- CRYPT_BIT_BLOB = record
- cbData: DWORD;
- pbData: PBYTE;
- cUnusedBits: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// Type used for any algorithm
-//
-// Where the Parameters CRYPT_OBJID_BLOB is in its encoded representation. For most
-// algorithm types, the Parameters CRYPT_OBJID_BLOB is NULL (Parameters.cbData = 0).
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_ALGORITHM_IDENTIFIER = ^CRYPT_ALGORITHM_IDENTIFIER;
- CRYPT_ALGORITHM_IDENTIFIER = record
- pszObjId: LPSTR;
- Parameters: CRYPT_OBJID_BLOB;
- end;
-
-// Following are the definitions of various algorithm object identifiers
-// RSA
-const
- szOID_RSA = '1.2.840.113549';
- szOID_PKCS = '1.2.840.113549.1';
- szOID_RSA_HASH = '1.2.840.113549.2';
- szOID_RSA_ENCRYPT = '1.2.840.113549.3';
-
- szOID_PKCS_1 = '1.2.840.113549.1.1';
- szOID_PKCS_2 = '1.2.840.113549.1.2';
- szOID_PKCS_3 = '1.2.840.113549.1.3';
- szOID_PKCS_4 = '1.2.840.113549.1.4';
- szOID_PKCS_5 = '1.2.840.113549.1.5';
- szOID_PKCS_6 = '1.2.840.113549.1.6';
- szOID_PKCS_7 = '1.2.840.113549.1.7';
- szOID_PKCS_8 = '1.2.840.113549.1.8';
- szOID_PKCS_9 = '1.2.840.113549.1.9';
- szOID_PKCS_10 = '1.2.840.113549.1.10';
-
- szOID_RSA_RSA = '1.2.840.113549.1.1.1';
- szOID_RSA_MD2RSA = '1.2.840.113549.1.1.2';
- szOID_RSA_MD4RSA = '1.2.840.113549.1.1.3';
- szOID_RSA_MD5RSA = '1.2.840.113549.1.1.4';
- szOID_RSA_SHA1RSA = '1.2.840.113549.1.1.5';
- szOID_RSA_SETOAEP_RSA = '1.2.840.113549.1.1.6';
-
- szOID_RSA_data = '1.2.840.113549.1.7.1';
- szOID_RSA_signedData = '1.2.840.113549.1.7.2';
- szOID_RSA_envelopedData = '1.2.840.113549.1.7.3';
- szOID_RSA_signEnvData = '1.2.840.113549.1.7.4';
- szOID_RSA_digestedData = '1.2.840.113549.1.7.5';
- szOID_RSA_hashedData = '1.2.840.113549.1.7.5';
- szOID_RSA_encryptedData = '1.2.840.113549.1.7.6';
-
- szOID_RSA_emailAddr = '1.2.840.113549.1.9.1';
- szOID_RSA_unstructName = '1.2.840.113549.1.9.2';
- szOID_RSA_contentType = '1.2.840.113549.1.9.3';
- szOID_RSA_messageDigest = '1.2.840.113549.1.9.4';
- szOID_RSA_signingTime = '1.2.840.113549.1.9.5';
- szOID_RSA_counterSign = '1.2.840.113549.1.9.6';
- szOID_RSA_challengePwd = '1.2.840.113549.1.9.7';
- szOID_RSA_unstructAddr = '1.2.840.113549.1.9.8';
- szOID_RSA_extCertAttrs = '1.2.840.113549.1.9.9';
- szOID_RSA_SMIMECapabilities = '1.2.840.113549.1.9.15';
- szOID_RSA_preferSignedData = '1.2.840.113549.1.9.15.1';
-
- szOID_RSA_MD2 = '1.2.840.113549.2.2';
- szOID_RSA_MD4 = '1.2.840.113549.2.4';
- szOID_RSA_MD5 = '1.2.840.113549.2.5';
-
- szOID_RSA_RC2CBC = '1.2.840.113549.3.2';
- szOID_RSA_RC4 = '1.2.840.113549.3.4';
- szOID_RSA_DES_EDE3_CBC = '1.2.840.113549.3.7';
- szOID_RSA_RC5_CBCPad = '1.2.840.113549.3.9';
-
-// ITU-T UsefulDefinitions
- szOID_DS = '2.5';
- szOID_DSALG = '2.5.8';
- szOID_DSALG_CRPT = '2.5.8.1';
- szOID_DSALG_HASH = '2.5.8.2';
- szOID_DSALG_SIGN = '2.5.8.3';
- szOID_DSALG_RSA = '2.5.8.1.1';
-
-// NIST OSE Implementors' Workshop (OIW)
-// http://nemo.ncsl.nist.gov/oiw/agreements/stable/OSI/12s_9506.w51
-// http://nemo.ncsl.nist.gov/oiw/agreements/working/OSI/12w_9503.w51
- szOID_OIW = '1.3.14';
-// NIST OSE Implementors' Workshop (OIW) Security SIG algorithm identifiers
- szOID_OIWSEC = '1.3.14.3.2';
- szOID_OIWSEC_md4RSA = '1.3.14.3.2.2';
- szOID_OIWSEC_md5RSA = '1.3.14.3.2.3';
- szOID_OIWSEC_md4RSA2 = '1.3.14.3.2.4';
- szOID_OIWSEC_desECB = '1.3.14.3.2.6';
- szOID_OIWSEC_desCBC = '1.3.14.3.2.7';
- szOID_OIWSEC_desOFB = '1.3.14.3.2.8';
- szOID_OIWSEC_desCFB = '1.3.14.3.2.9';
- szOID_OIWSEC_desMAC = '1.3.14.3.2.10';
- szOID_OIWSEC_rsaSign = '1.3.14.3.2.11';
- szOID_OIWSEC_dsa = '1.3.14.3.2.12';
- szOID_OIWSEC_shaDSA = '1.3.14.3.2.13';
- szOID_OIWSEC_mdc2RSA = '1.3.14.3.2.14';
- szOID_OIWSEC_shaRSA = '1.3.14.3.2.15';
- szOID_OIWSEC_dhCommMod = '1.3.14.3.2.16';
- szOID_OIWSEC_desEDE = '1.3.14.3.2.17';
- szOID_OIWSEC_sha = '1.3.14.3.2.18';
- szOID_OIWSEC_mdc2 = '1.3.14.3.2.19';
- szOID_OIWSEC_dsaComm = '1.3.14.3.2.20';
- szOID_OIWSEC_dsaCommSHA = '1.3.14.3.2.21';
- szOID_OIWSEC_rsaXchg = '1.3.14.3.2.22';
- szOID_OIWSEC_keyHashSeal = '1.3.14.3.2.23';
- szOID_OIWSEC_md2RSASign = '1.3.14.3.2.24';
- szOID_OIWSEC_md5RSASign = '1.3.14.3.2.25';
- szOID_OIWSEC_sha1 = '1.3.14.3.2.26';
- szOID_OIWSEC_dsaSHA1 = '1.3.14.3.2.27';
- szOID_OIWSEC_dsaCommSHA1 = '1.3.14.3.2.28';
- szOID_OIWSEC_sha1RSASign = '1.3.14.3.2.29';
-// NIST OSE Implementors' Workshop (OIW) Directory SIG algorithm identifiers
- szOID_OIWDIR = '1.3.14.7.2';
- szOID_OIWDIR_CRPT = '1.3.14.7.2.1';
- szOID_OIWDIR_HASH = '1.3.14.7.2.2';
- szOID_OIWDIR_SIGN = '1.3.14.7.2.3';
- szOID_OIWDIR_md2 = '1.3.14.7.2.2.1';
- szOID_OIWDIR_md2RSA = '1.3.14.7.2.3.1';
-
-
-// INFOSEC Algorithms
-// joint-iso-ccitt(2) country(16) us(840) organization(1) us-government(101) dod(2) id-infosec(1)
- szOID_INFOSEC = '2.16.840.1.101.2.1';
- szOID_INFOSEC_sdnsSignature = '2.16.840.1.101.2.1.1.1';
- szOID_INFOSEC_mosaicSignature = '2.16.840.1.101.2.1.1.2';
- szOID_INFOSEC_sdnsConfidentiality = '2.16.840.1.101.2.1.1.3';
- szOID_INFOSEC_mosaicConfidentiality = '2.16.840.1.101.2.1.1.4';
- szOID_INFOSEC_sdnsIntegrity = '2.16.840.1.101.2.1.1.5';
- szOID_INFOSEC_mosaicIntegrity = '2.16.840.1.101.2.1.1.6';
- szOID_INFOSEC_sdnsTokenProtection = '2.16.840.1.101.2.1.1.7';
- szOID_INFOSEC_mosaicTokenProtection = '2.16.840.1.101.2.1.1.8';
- szOID_INFOSEC_sdnsKeyManagement = '2.16.840.1.101.2.1.1.9';
- szOID_INFOSEC_mosaicKeyManagement = '2.16.840.1.101.2.1.1.10';
- szOID_INFOSEC_sdnsKMandSig = '2.16.840.1.101.2.1.1.11';
- szOID_INFOSEC_mosaicKMandSig = '2.16.840.1.101.2.1.1.12';
- szOID_INFOSEC_SuiteASignature = '2.16.840.1.101.2.1.1.13';
- szOID_INFOSEC_SuiteAConfidentiality = '2.16.840.1.101.2.1.1.14';
- szOID_INFOSEC_SuiteAIntegrity = '2.16.840.1.101.2.1.1.15';
- szOID_INFOSEC_SuiteATokenProtection = '2.16.840.1.101.2.1.1.16';
- szOID_INFOSEC_SuiteAKeyManagement = '2.16.840.1.101.2.1.1.17';
- szOID_INFOSEC_SuiteAKMandSig = '2.16.840.1.101.2.1.1.18';
- szOID_INFOSEC_mosaicUpdatedSig = '2.16.840.1.101.2.1.1.19';
- szOID_INFOSEC_mosaicKMandUpdSig = '2.16.840.1.101.2.1.1.20';
- szOID_INFOSEC_mosaicUpdatedInteg = '2.16.840.1.101.2.1.1.21';
-
-type
- PCRYPT_OBJID_TABLE = ^CRYPT_OBJID_TABLE;
- CRYPT_OBJID_TABLE = record
- dwAlgId: DWORD;
- pszObjId: LPCSTR;
- end;
-
-//+-------------------------------------------------------------------------
-// PKCS #1 HashInfo (DigestInfo)
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_HASH_INFO = ^CRYPT_HASH_INFO;
- CRYPT_HASH_INFO = record
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- Hash: CRYPT_HASH_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// Type used for an extension to an encoded content
-//
-// Where the Value's CRYPT_OBJID_BLOB is in its encoded representation.
-//--------------------------------------------------------------------------
-
-type
- PCERT_EXTENSION = ^CERT_EXTENSION;
- CERT_EXTENSION = record
- pszObjId: LPSTR;
- fCritical: BOOL;
- Value: CRYPT_OBJID_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// AttributeTypeValue
-//
-// Where the Value's CRYPT_OBJID_BLOB is in its encoded representation.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_ATTRIBUTE_TYPE_VALUE = ^CRYPT_ATTRIBUTE_TYPE_VALUE;
- CRYPT_ATTRIBUTE_TYPE_VALUE = record
- pszObjId: LPSTR;
- Value: CRYPT_OBJID_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// Attributes
-//
-// Where the Value's PATTR_BLOBs are in their encoded representation.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_ATTRIBUTE = ^CRYPT_ATTRIBUTE;
- CRYPT_ATTRIBUTE = record
- pszObjId: LPSTR;
- cValue: DWORD;
- rgValue: PCRYPT_ATTR_BLOB;
- end;
-
-type
- PCRYPT_ATTRIBUTES = ^CRYPT_ATTRIBUTES;
- CRYPT_ATTRIBUTES = record
- cAttr: DWORD; {IN}
- rgAttr: PCRYPT_ATTRIBUTE; {IN}
- end;
-
-//+-------------------------------------------------------------------------
-// Attributes making up a Relative Distinguished Name (CERT_RDN)
-//
-// The interpretation of the Value depends on the dwValueType.
-// See below for a list of the types.
-//--------------------------------------------------------------------------
-
-type
- PCERT_RDN_ATTR = ^CERT_RDN_ATTR;
- CERT_RDN_ATTR = record
- pszObjId: LPSTR;
- dwValueType: DWORD;
- Value: CERT_RDN_VALUE_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// CERT_RDN attribute Object Identifiers
-//--------------------------------------------------------------------------
-// Labeling attribute types:
-const
- szOID_COMMON_NAME = '2.5.4.3'; // case-ignore string
- szOID_SUR_NAME = '2.5.4.4'; // case-ignore string
- szOID_DEVICE_SERIAL_NUMBER = '2.5.4.5'; // printable string
-
-// Geographic attribute types:
- szOID_COUNTRY_NAME = '2.5.4.6'; // printable 2char string
- szOID_LOCALITY_NAME = '2.5.4.7'; // case-ignore string
- szOID_STATE_OR_PROVINCE_NAME = '2.5.4.8'; // case-ignore string
- szOID_STREET_ADDRESS = '2.5.4.9'; // case-ignore string
-
-// Organizational attribute types:
- szOID_ORGANIZATION_NAME = '2.5.4.10'; // case-ignore string
- szOID_ORGANIZATIONAL_UNIT_NAME = '2.5.4.11'; // case-ignore string
- szOID_TITLE = '2.5.4.12'; // case-ignore string
-
-// Explanatory attribute types:
- szOID_DESCRIPTION = '2.5.4.13'; // case-ignore string
- szOID_SEARCH_GUIDE = '2.5.4.14';
- szOID_BUSINESS_CATEGORY = '2.5.4.15'; // case-ignore string
-
-// Postal addressing attribute types:
- szOID_POSTAL_ADDRESS = '2.5.4.16';
- szOID_POSTAL_CODE = '2.5.4.17'; // case-ignore string
- szOID_POST_OFFICE_BOX = '2.5.4.18'; // case-ignore string
- szOID_PHYSICAL_DELIVERY_OFFICE_NAME = '2.5.4.19'; // case-ignore string
-
-// Telecommunications addressing attribute types:
- szOID_TELEPHONE_NUMBER = '2.5.4.20'; // telephone number
- szOID_TELEX_NUMBER = '2.5.4.21';
- szOID_TELETEXT_TERMINAL_IDENTIFIER = '2.5.4.22';
- szOID_FACSIMILE_TELEPHONE_NUMBER = '2.5.4.23';
- szOID_X21_ADDRESS = '2.5.4.24'; // numeric string
- szOID_INTERNATIONAL_ISDN_NUMBER = '2.5.4.25'; // numeric string
- szOID_REGISTERED_ADDRESS = '2.5.4.26';
- szOID_DESTINATION_INDICATOR = '2.5.4.27'; // printable string
-
-// Preference attribute types:
- szOID_PREFERRED_DELIVERY_METHOD = '2.5.4.28';
-
-// OSI application attribute types:
- szOID_PRESENTATION_ADDRESS = '2.5.4.29';
- szOID_SUPPORTED_APPLICATION_CONTEXT = '2.5.4.30';
-
-// Relational application attribute types:
- szOID_MEMBER = '2.5.4.31';
- szOID_OWNER = '2.5.4.32';
- szOID_ROLE_OCCUPANT = '2.5.4.33';
- szOID_SEE_ALSO = '2.5.4.34';
-
-// Security attribute types:
- szOID_USER_PASSWORD = '2.5.4.35';
- szOID_USER_CERTIFICATE = '2.5.4.36';
- szOID_CA_CERTIFICATE = '2.5.4.37';
- szOID_AUTHORITY_REVOCATION_LIST = '2.5.4.38';
- szOID_CERTIFICATE_REVOCATION_LIST = '2.5.4.39';
- szOID_CROSS_CERTIFICATE_PAIR = '2.5.4.40';
-
-// Undocumented attribute types???
-//#define szOID_??? '2.5.4.41'
- szOID_GIVEN_NAME = '2.5.4.42'; // case-ignore string
- szOID_INITIALS = '2.5.4.43'; // case-ignore string
-
-// Pilot user attribute types:
- szOID_DOMAIN_COMPONENT = '0.9.2342.19200300.100.1.25'; // IA5 string
-
-//+-------------------------------------------------------------------------
-// CERT_RDN Attribute Value Types
-//
-// For RDN_ENCODED_BLOB, the Value's CERT_RDN_VALUE_BLOB is in its encoded
-// representation. Otherwise, its an array of bytes.
-//
-// For all CERT_RDN types, Value.cbData is always the number of bytes, not
-// necessarily the number of elements in the string. For instance,
-// RDN_UNIVERSAL_STRING is an array of ints (cbData == intCnt * 4) and
-// RDN_BMP_STRING is an array of unsigned shorts (cbData == ushortCnt * 2).
-//
-// For CertDecodeName, two 0 bytes are always appended to the end of the
-// string (ensures a CHAR or WCHAR string is null terminated).
-// These added 0 bytes are't included in the BLOB.cbData.
-//--------------------------------------------------------------------------
-
-const
- CERT_RDN_ANY_TYPE = 0;
- CERT_RDN_ENCODED_BLOB = 1;
- CERT_RDN_OCTET_STRING = 2;
- CERT_RDN_NUMERIC_STRING = 3;
- CERT_RDN_PRINTABLE_STRING = 4;
- CERT_RDN_TELETEX_STRING = 5;
- CERT_RDN_T61_STRING = 5;
- CERT_RDN_VIDEOTEX_STRING = 6;
- CERT_RDN_IA5_STRING = 7;
- CERT_RDN_GRAPHIC_STRING = 8;
- CERT_RDN_VISIBLE_STRING = 9;
- CERT_RDN_ISO646_STRING = 9;
- CERT_RDN_GENERAL_STRING = 10;
- CERT_RDN_UNIVERSAL_STRING = 11;
- CERT_RDN_INT4_STRING = 11;
- CERT_RDN_BMP_STRING = 12;
- CERT_RDN_UNICODE_STRING = 12;
-
-
-// Macro to check that the dwValueType is a character string and not an
-// encoded blob or octet string
-function IS_CERT_RDN_CHAR_STRING(X: DWORD): BOOL;
-
-//+-------------------------------------------------------------------------
-// A CERT_RDN consists of an array of the above attributes
-//--------------------------------------------------------------------------
-
-type
- PCERT_RDN = ^CERT_RDN;
- CERT_RDN = record
- cRDNAttr: DWORD;
- rgRDNAttr: PCERT_RDN_ATTR;
- end;
-
-//+-------------------------------------------------------------------------
-// Information stored in a subject's or issuer's name. The information
-// is represented as an array of the above RDNs.
-//--------------------------------------------------------------------------
-
-type
- PCERT_NAME_INFO = ^CERT_NAME_INFO;
- CERT_NAME_INFO = record
- cRDN: DWORD;
- rgRDN: PCERT_RDN;
- end;
-
-//+-------------------------------------------------------------------------
-// Name attribute value without the Object Identifier
-//
-// The interpretation of the Value depends on the dwValueType.
-// See above for a list of the types.
-//--------------------------------------------------------------------------
-
-type
- PCERT_NAME_VALUE = ^CERT_NAME_VALUE;
- CERT_NAME_VALUE = record
- dwValueType: DWORD;
- Value: CERT_RDN_VALUE_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// Public Key Info
-//
-// The PublicKey is the encoded representation of the information as it is
-// stored in the bit string
-//--------------------------------------------------------------------------
-
-type
- PCERT_PUBLIC_KEY_INFO = ^CERT_PUBLIC_KEY_INFO;
- CERT_PUBLIC_KEY_INFO = record
- Algorithm: CRYPT_ALGORITHM_IDENTIFIER;
- PublicKey: CRYPT_BIT_BLOB;
- end;
-
-const
- CERT_RSA_PUBLIC_KEY_OBJID = szOID_RSA_RSA;
- CERT_DEFAULT_OID_PUBLIC_KEY_SIGN = szOID_RSA_RSA;
- CERT_DEFAULT_OID_PUBLIC_KEY_XCHG = szOID_RSA_RSA;
-
-//+-------------------------------------------------------------------------
-// Information stored in a certificate
-//
-// The Issuer, Subject, Algorithm, PublicKey and Extension BLOBs are the
-// encoded representation of the information.
-//--------------------------------------------------------------------------
-
-type
- PCERT_INFO = ^CERT_INFO;
- CERT_INFO = record
- dwVersion: DWORD;
- SerialNumber: CRYPT_INTEGER_BLOB;
- SignatureAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- Issuer: CERT_NAME_BLOB;
- NotBefore: TFILETIME;
- NotAfter: TFILETIME;
- Subject: CERT_NAME_BLOB;
- SubjectPublicKeyInfo: CERT_PUBLIC_KEY_INFO;
- IssuerUniqueId: CRYPT_BIT_BLOB;
- SubjectUniqueId: CRYPT_BIT_BLOB;
- cExtension: DWORD;
- rgExtension: PCERT_EXTENSION;
- end;
-
-//+-------------------------------------------------------------------------
-// Certificate versions
-//--------------------------------------------------------------------------
-const
- CERT_V1 = 0;
- CERT_V2 = 1;
- CERT_V3 = 2;
-
-//+-------------------------------------------------------------------------
-// Certificate Information Flags
-//--------------------------------------------------------------------------
-
- CERT_INFO_VERSION_FLAG = 1;
- CERT_INFO_SERIAL_NUMBER_FLAG = 2;
- CERT_INFO_SIGNATURE_ALGORITHM_FLAG = 3;
- CERT_INFO_ISSUER_FLAG = 4;
- CERT_INFO_NOT_BEFORE_FLAG = 5;
- CERT_INFO_NOT_AFTER_FLAG = 6;
- CERT_INFO_SUBJECT_FLAG = 7;
- CERT_INFO_SUBJECT_PUBLIC_KEY_INFO_FLAG = 8;
- CERT_INFO_ISSUER_UNIQUE_ID_FLAG = 9;
- CERT_INFO_SUBJECT_UNIQUE_ID_FLAG = 10;
- CERT_INFO_EXTENSION_FLAG = 11;
-
-//+-------------------------------------------------------------------------
-// An entry in a CRL
-//
-// The Extension BLOBs are the encoded representation of the information.
-//--------------------------------------------------------------------------
-
-type
- PCRL_ENTRY = ^CRL_ENTRY;
- CRL_ENTRY = record
- SerialNumber: CRYPT_INTEGER_BLOB;
- RevocationDate: TFILETIME;
- cExtension: DWORD;
- rgExtension: PCERT_EXTENSION;
- end;
-
-//+-------------------------------------------------------------------------
-// Information stored in a CRL
-//
-// The Issuer, Algorithm and Extension BLOBs are the encoded
-// representation of the information.
-//--------------------------------------------------------------------------
-
-type
- PCRL_INFO = ^CRL_INFO;
- CRL_INFO = record
- dwVersion: DWORD;
- SignatureAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- Issuer: CERT_NAME_BLOB;
- ThisUpdate: TFILETIME;
- NextUpdate: TFILETIME;
- cCRLEntry: DWORD;
- rgCRLEntry: PCRL_ENTRY;
- cExtension: DWORD;
- rgExtension: PCERT_EXTENSION;
- end;
-
-//+-------------------------------------------------------------------------
-// CRL versions
-//--------------------------------------------------------------------------
-const
- CRL_V1 = 0;
- CRL_V2 = 1;
-
-//+-------------------------------------------------------------------------
-// Information stored in a certificate request
-//
-// The Subject, Algorithm, PublicKey and Attribute BLOBs are the encoded
-// representation of the information.
-//--------------------------------------------------------------------------
-
-type
- PCERT_REQUEST_INFO = ^CERT_REQUEST_INFO;
- CERT_REQUEST_INFO = record
- dwVersion: DWORD;
- Subject: CERT_NAME_BLOB;
- SubjectPublicKeyInfo: CERT_PUBLIC_KEY_INFO;
- cAttribute: DWORD;
- rgAttribute: PCRYPT_ATTRIBUTE;
- end;
-
-//+-------------------------------------------------------------------------
-// Certificate Request versions
-//--------------------------------------------------------------------------
-const CERT_REQUEST_V1 = 0;
-
-//+-------------------------------------------------------------------------
-// Information stored in Netscape's Keygen request
-//--------------------------------------------------------------------------
-type
- PCERT_KEYGEN_REQUEST_INFO = ^CERT_KEYGEN_REQUEST_INFO;
- CERT_KEYGEN_REQUEST_INFO = record
- dwVersion: DWORD;
- SubjectPublicKeyInfo: CERT_PUBLIC_KEY_INFO;
- pwszChallengeString: LPWSTR; // encoded as IA5
- end;
-
-const
- CERT_KEYGEN_REQUEST_V1 = 0;
-
-
-//+-------------------------------------------------------------------------
-// Certificate, CRL, Certificate Request or Keygen Request Signed Content
-//
-// The "to be signed" encoded content plus its signature. The ToBeSigned
-// is the encoded CERT_INFO, CRL_INFO, CERT_REQUEST_INFO or
-// CERT_KEYGEN_REQUEST_INFO.
-//--------------------------------------------------------------------------
-type
- PCERT_SIGNED_CONTENT_INFO = ^CERT_SIGNED_CONTENT_INFO;
- CERT_SIGNED_CONTENT_INFO = record
- ToBeSigned: CRYPT_DER_BLOB;
- SignatureAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- Signature: CRYPT_BIT_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// Certificate Trust List (CTL)
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CTL Usage. Also used for EnhancedKeyUsage extension.
-//--------------------------------------------------------------------------
-
-type
- PCTL_USAGE = ^CTL_USAGE;
- CTL_USAGE = record
- cUsageIdentifier: DWORD;
- rgpszUsageIdentifier: PLPSTR; // array of pszObjId
- end;
-
-type
- CERT_ENHKEY_USAGE = CTL_USAGE;
- PCERT_ENHKEY_USAGE = ^CERT_ENHKEY_USAGE;
-
-
-//+-------------------------------------------------------------------------
-// An entry in a CTL
-//--------------------------------------------------------------------------
-type
- PCTL_ENTRY = ^CTL_ENTRY;
- CTL_ENTRY = record
- SubjectIdentifier: CRYPT_DATA_BLOB; // For example, its hash
- cAttribute: DWORD;
- rgAttribute: PCRYPT_ATTRIBUTE; // OPTIONAL
- end;
-
-//+-------------------------------------------------------------------------
-// Information stored in a CTL
-//--------------------------------------------------------------------------
-type
- PCTL_INFO = ^CTL_INFO;
- CTL_INFO = record
- dwVersion: DWORD;
- SubjectUsage: CTL_USAGE;
- ListIdentifier: CRYPT_DATA_BLOB; // OPTIONAL
- SequenceNumber: CRYPT_INTEGER_BLOB; // OPTIONAL
- ThisUpdate: TFILETIME;
- NextUpdate: TFILETIME; // OPTIONAL
- SubjectAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- cCTLEntry: DWORD;
- rgCTLEntry: PCTL_ENTRY; // OPTIONAL
- cExtension: DWORD;
- rgExtension: PCERT_EXTENSION; // OPTIONAL
- end;
-
-//+-------------------------------------------------------------------------
-// CTL versions
-//--------------------------------------------------------------------------
-const
- CTL_V1 = 0;
-
-//+-------------------------------------------------------------------------
-// TimeStamp Request
-//
-// The pszTimeStamp is the OID for the Time type requested
-// The pszContentType is the Content Type OID for the content, usually DATA
-// The Content is a un-decoded blob
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_TIME_STAMP_REQUEST_INFO = ^CRYPT_TIME_STAMP_REQUEST_INFO;
- CRYPT_TIME_STAMP_REQUEST_INFO = record
- pszTimeStampAlgorithm: LPSTR; // pszObjId
- pszContentType: LPSTR; // pszObjId
- Content: CRYPT_OBJID_BLOB;
- cAttribute: DWORD;
- rgAttribute: PCRYPT_ATTRIBUTE;
- end;
-
-//+-------------------------------------------------------------------------
-// Certificate and Message encoding types
-//
-// The encoding type is a DWORD containing both the certificate and message
-// encoding types. The certificate encoding type is stored in the LOWORD.
-// The message encoding type is stored in the HIWORD. Some functions or
-// structure fields require only one of the encoding types. The following
-// naming convention is used to indicate which encoding type(s) are
-// required:
-// dwEncodingType (both encoding types are required)
-// dwMsgAndCertEncodingType (both encoding types are required)
-// dwMsgEncodingType (only msg encoding type is required)
-// dwCertEncodingType (only cert encoding type is required)
-//
-// Its always acceptable to specify both.
-//--------------------------------------------------------------------------
-
-const
- CERT_ENCODING_TYPE_MASK = $0000FFFF;
- CMSG_ENCODING_TYPE_MASK = $FFFF0000;
-
-//#define GET_CERT_ENCODING_TYPE(X) (X & CERT_ENCODING_TYPE_MASK)
-//#define GET_CMSG_ENCODING_TYPE(X) (X & CMSG_ENCODING_TYPE_MASK)
-function GET_CERT_ENCODING_TYPE(X: DWORD): DWORD;
-function GET_CMSG_ENCODING_TYPE(X: DWORD): DWORD;
-
-const
- CRYPT_ASN_ENCODING = $00000001;
- CRYPT_NDR_ENCODING = $00000002;
- X509_ASN_ENCODING = $00000001;
- X509_NDR_ENCODING = $00000002;
- PKCS_7_ASN_ENCODING = $00010000;
- PKCS_7_NDR_ENCODING = $00020000;
-
-//+-------------------------------------------------------------------------
-// format the specified data structure according to the certificate
-// encoding type.
-//
-//--------------------------------------------------------------------------
-
-function CryptFormatObject(dwCertEncodingType: DWORD;
- dwFormatType: DWORD;
- dwFormatStrType: DWORD;
- pFormatStruct: PVOID;
- lpszStructType: LPCSTR;
- const pbEncoded: PBYTE;
- cbEncoded: DWORD;
- pbFormat: PVOID;
- pcbFormat: PDWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Encode / decode the specified data structure according to the certificate
-// encoding type.
-//
-// See below for a list of the predefined data structures.
-//--------------------------------------------------------------------------
-
-function CryptEncodeObject(dwCertEncodingType: DWORD;
- lpszStructType: LPCSTR;
- const pvStructInfo: PVOID;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD): BOOL; stdcall;
-
-function CryptDecodeObject(dwCertEncodingType: DWORD;
- lpszStructType: LPCSTR;
- const pbEncoded: PBYTE;
- cbEncoded: DWORD;
- dwFlags: DWORD;
- pvStructInfo: PVOID;
- pcbStructInfo: PDWORD): BOOL; stdcall;
-
-// When the following flag is set the nocopy optimization is enabled.
-// This optimization where appropriate, updates the pvStructInfo fields
-// to point to content residing within pbEncoded instead of making a copy
-// of and appending to pvStructInfo.
-//
-// Note, when set, pbEncoded can't be freed until pvStructInfo is freed.
-const
- CRYPT_DECODE_NOCOPY_FLAG = $1;
-
-//+-------------------------------------------------------------------------
-// Predefined X509 certificate data structures that can be encoded / decoded.
-//--------------------------------------------------------------------------
- CRYPT_ENCODE_DECODE_NONE = 0;
- X509_CERT = (LPCSTR(1));
- X509_CERT_TO_BE_SIGNED = (LPCSTR(2));
- X509_CERT_CRL_TO_BE_SIGNED = (LPCSTR(3));
- X509_CERT_REQUEST_TO_BE_SIGNED = (LPCSTR(4));
- X509_EXTENSIONS = (LPCSTR(5));
- X509_NAME_VALUE = (LPCSTR(6));
- X509_NAME = (LPCSTR(7));
- X509_PUBLIC_KEY_INFO = (LPCSTR(8));
-
-//+-------------------------------------------------------------------------
-// Predefined X509 certificate extension data structures that can be
-// encoded / decoded.
-//--------------------------------------------------------------------------
- X509_AUTHORITY_KEY_ID = (LPCSTR(9));
- X509_KEY_ATTRIBUTES = (LPCSTR(10));
- X509_KEY_USAGE_RESTRICTION = (LPCSTR(11));
- X509_ALTERNATE_NAME = (LPCSTR(12));
- X509_BASIC_CONSTRAINTS = (LPCSTR(13));
- X509_KEY_USAGE = (LPCSTR(14));
- X509_BASIC_CONSTRAINTS2 = (LPCSTR(15));
- X509_CERT_POLICIES = (LPCSTR(16));
-
-//+-------------------------------------------------------------------------
-// Additional predefined data structures that can be encoded / decoded.
-//--------------------------------------------------------------------------
- PKCS_UTC_TIME = (LPCSTR(17));
- PKCS_TIME_REQUEST = (LPCSTR(18));
- RSA_CSP_PUBLICKEYBLOB = (LPCSTR(19));
- X509_UNICODE_NAME = (LPCSTR(20));
-
- X509_KEYGEN_REQUEST_TO_BE_SIGNED = (LPCSTR(21));
- PKCS_ATTRIBUTE = (LPCSTR(22));
- PKCS_CONTENT_INFO_SEQUENCE_OF_ANY = (LPCSTR(23));
-
-//+-------------------------------------------------------------------------
-// Predefined primitive data structures that can be encoded / decoded.
-//--------------------------------------------------------------------------
- X509_UNICODE_NAME_VALUE = (LPCSTR(24));
- X509_ANY_STRING = X509_NAME_VALUE;
- X509_UNICODE_ANY_STRING = X509_UNICODE_NAME_VALUE;
- X509_OCTET_STRING = (LPCSTR(25));
- X509_BITS = (LPCSTR(26));
- X509_INTEGER = (LPCSTR(27));
- X509_MULTI_BYTE_INTEGER = (LPCSTR(28));
- X509_ENUMERATED = (LPCSTR(29));
- X509_CHOICE_OF_TIME = (LPCSTR(30));
-
-//+-------------------------------------------------------------------------
-// More predefined X509 certificate extension data structures that can be
-// encoded / decoded.
-//--------------------------------------------------------------------------
-
- X509_AUTHORITY_KEY_ID2 = (LPCSTR(31));
-// X509_AUTHORITY_INFO_ACCESS (LPCSTR(32));
- X509_CRL_REASON_CODE = X509_ENUMERATED;
- PKCS_CONTENT_INFO = (LPCSTR(33));
- X509_SEQUENCE_OF_ANY = (LPCSTR(34));
- X509_CRL_DIST_POINTS = (LPCSTR(35));
- X509_ENHANCED_KEY_USAGE = (LPCSTR(36));
- PKCS_CTL = (LPCSTR(37));
-
- X509_MULTI_BYTE_UINT = (LPCSTR(38));
- X509_DSS_PUBLICKEY = X509_MULTI_BYTE_UINT;
- X509_DSS_PARAMETERS = (LPCSTR(39));
- X509_DSS_SIGNATURE = (LPCSTR(40));
- PKCS_RC2_CBC_PARAMETERS = (LPCSTR(41));
- PKCS_SMIME_CAPABILITIES = (LPCSTR(42));
-
-//+-------------------------------------------------------------------------
-// Predefined PKCS #7 data structures that can be encoded / decoded.
-//--------------------------------------------------------------------------
- PKCS7_SIGNER_INFO = (LPCSTR(500));
-
-//+-------------------------------------------------------------------------
-// Predefined Software Publishing Credential (SPC) data structures that
-// can be encoded / decoded.
-//
-// Predefined values: 2000 .. 2999
-//
-// See spc.h for value and data structure definitions.
-//--------------------------------------------------------------------------
-//+-------------------------------------------------------------------------
-// Extension Object Identifiers
-//--------------------------------------------------------------------------
-const
- szOID_AUTHORITY_KEY_IDENTIFIER = '2.5.29.1';
- szOID_KEY_ATTRIBUTES = '2.5.29.2';
- szOID_KEY_USAGE_RESTRICTION = '2.5.29.4';
- szOID_SUBJECT_ALT_NAME = '2.5.29.7';
- szOID_ISSUER_ALT_NAME = '2.5.29.8';
- szOID_BASIC_CONSTRAINTS = '2.5.29.10';
- szOID_KEY_USAGE = '2.5.29.15';
- szOID_BASIC_CONSTRAINTS2 = '2.5.29.19';
- szOID_CERT_POLICIES = '2.5.29.32';
-
- szOID_AUTHORITY_KEY_IDENTIFIER2 = '2.5.29.35';
- szOID_SUBJECT_KEY_IDENTIFIER = '2.5.29.14';
- szOID_SUBJECT_ALT_NAME2 = '2.5.29.17';
- szOID_ISSUER_ALT_NAME2 = '2.5.29.18';
- szOID_CRL_REASON_CODE = '2.5.29.21';
- szOID_CRL_DIST_POINTS = '2.5.29.31';
- szOID_ENHANCED_KEY_USAGE = '2.5.29.37';
-
-
-// Internet Public Key Infrastructure
- szOID_PKIX = '1.3.6.1.5.5.7';
- szOID_AUTHORITY_INFO_ACCESS = '1.3.6.1.5.5.7.2';
-
-// Microsoft extensions or attributes
- szOID_CERT_EXTENSIONS = '1.3.6.1.4.1.311.2.1.14';
- szOID_NEXT_UPDATE_LOCATION = '1.3.6.1.4.1.311.10.2';
-
-// Microsoft PKCS #7 ContentType Object Identifiers
- szOID_CTL = '1.3.6.1.4.1.311.10.1';
-
-//+-------------------------------------------------------------------------
-// Extension Object Identifiers (currently not implemented)
-//--------------------------------------------------------------------------
- szOID_POLICY_MAPPINGS = '2.5.29.5';
- szOID_SUBJECT_DIR_ATTRS = '2.5.29.9';
-
-//+-------------------------------------------------------------------------
-// Enhanced Key Usage (Purpose) Object Identifiers
-//--------------------------------------------------------------------------
-const szOID_PKIX_KP = '1.3.6.1.5.5.7.3';
-
-// Consistent key usage bits: DIGITAL_SIGNATURE, KEY_ENCIPHERMENT
-// or KEY_AGREEMENT
- szOID_PKIX_KP_SERVER_AUTH = '1.3.6.1.5.5.7.3.1';
-
-// Consistent key usage bits: DIGITAL_SIGNATURE
- szOID_PKIX_KP_CLIENT_AUTH = '1.3.6.1.5.5.7.3.2';
-
-// Consistent key usage bits: DIGITAL_SIGNATURE
- szOID_PKIX_KP_CODE_SIGNING = '1.3.6.1.5.5.7.3.3';
-
-// Consistent key usage bits: DIGITAL_SIGNATURE, NON_REPUDIATION and/or
-// (KEY_ENCIPHERMENT or KEY_AGREEMENT)
- szOID_PKIX_KP_EMAIL_PROTECTION = '1.3.6.1.5.5.7.3.4';
-
-//+-------------------------------------------------------------------------
-// Microsoft Enhanced Key Usage (Purpose) Object Identifiers
-//+-------------------------------------------------------------------------
-
-// Signer of CTLs
- szOID_KP_CTL_USAGE_SIGNING = '1.3.6.1.4.1.311.10.3.1';
-
-// Signer of TimeStamps
- szOID_KP_TIME_STAMP_SIGNING = '1.3.6.1.4.1.311.10.3.2';
-
-//+-------------------------------------------------------------------------
-// Microsoft Attribute Object Identifiers
-//+-------------------------------------------------------------------------
- szOID_YESNO_TRUST_ATTR = '1.3.6.1.4.1.311.10.4.1';
-
-//+-------------------------------------------------------------------------
-// X509_CERT
-//
-// The "to be signed" encoded content plus its signature. The ToBeSigned
-// content is the CryptEncodeObject() output for one of the following:
-// X509_CERT_TO_BE_SIGNED, X509_CERT_CRL_TO_BE_SIGNED or
-// X509_CERT_REQUEST_TO_BE_SIGNED.
-//
-// pvStructInfo points to CERT_SIGNED_CONTENT_INFO.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_CERT_TO_BE_SIGNED
-//
-// pvStructInfo points to CERT_INFO.
-//
-// For CryptDecodeObject(), the pbEncoded is the "to be signed" plus its
-// signature (output of a X509_CERT CryptEncodeObject()).
-//
-// For CryptEncodeObject(), the pbEncoded is just the "to be signed".
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_CERT_CRL_TO_BE_SIGNED
-//
-// pvStructInfo points to CRL_INFO.
-//
-// For CryptDecodeObject(), the pbEncoded is the "to be signed" plus its
-// signature (output of a X509_CERT CryptEncodeObject()).
-//
-// For CryptEncodeObject(), the pbEncoded is just the "to be signed".
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_CERT_REQUEST_TO_BE_SIGNED
-//
-// pvStructInfo points to CERT_REQUEST_INFO.
-//
-// For CryptDecodeObject(), the pbEncoded is the "to be signed" plus its
-// signature (output of a X509_CERT CryptEncodeObject()).
-//
-// For CryptEncodeObject(), the pbEncoded is just the "to be signed".
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_EXTENSIONS
-// szOID_CERT_EXTENSIONS
-//
-// pvStructInfo points to following CERT_EXTENSIONS.
-//--------------------------------------------------------------------------
-type
- PCERT_EXTENSIONS = ^CERT_EXTENSIONS;
- CERT_EXTENSIONS = record
- cExtension: DWORD;
- rgExtension: PCERT_EXTENSION;
- end;
-
-//+-------------------------------------------------------------------------
-// X509_NAME_VALUE
-// X509_ANY_STRING
-//
-// pvStructInfo points to CERT_NAME_VALUE.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_UNICODE_NAME_VALUE
-// X509_UNICODE_ANY_STRING
-//
-// pvStructInfo points to CERT_NAME_VALUE.
-//
-// The name values are unicode strings.
-//
-// For CryptEncodeObject:
-// Value.pbData points to the unicode string.
-// If Value.cbData = 0, then, the unicode string is NULL terminated.
-// Otherwise, Value.cbData is the unicode string byte count. The byte count
-// is twice the character count.
-//
-// If the unicode string contains an invalid character for the specified
-// dwValueType, then, *pcbEncoded is updated with the unicode character
-// index of the first invalid character. LastError is set to:
-// CRYPT_E_INVALID_NUMERIC_STRING, CRYPT_E_INVALID_PRINTABLE_STRING or
-// CRYPT_E_INVALID_IA5_STRING.
-//
-// The unicode string is converted before being encoded according to
-// the specified dwValueType. If dwValueType is set to 0, LastError
-// is set to E_INVALIDARG.
-//
-// If the dwValueType isn't one of the character strings (its a
-// CERT_RDN_ENCODED_BLOB or CERT_RDN_OCTET_STRING), then, CryptEncodeObject
-// will return FALSE with LastError set to CRYPT_E_NOT_CHAR_STRING.
-//
-// For CryptDecodeObject:
-// Value.pbData points to a NULL terminated unicode string. Value.cbData
-// contains the byte count of the unicode string excluding the NULL
-// terminator. dwValueType contains the type used in the encoded object.
-// Its not forced to CERT_RDN_UNICODE_STRING. The encoded value is
-// converted to the unicode string according to the dwValueType.
-//
-// If the encoded object isn't one of the character string types, then,
-// CryptDecodeObject will return FALSE with LastError set to
-// CRYPT_E_NOT_CHAR_STRING. For a non character string, decode using
-// X509_NAME_VALUE or X509_ANY_STRING.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_NAME
-//
-// pvStructInfo points to CERT_NAME_INFO.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_UNICODE_NAME
-//
-// pvStructInfo points to CERT_NAME_INFO.
-//
-// The RDN attribute values are unicode strings except for the dwValueTypes of
-// CERT_RDN_ENCODED_BLOB or CERT_RDN_OCTET_STRING. These dwValueTypes are
-// the same as for a X509_NAME. Their values aren't converted to/from unicode.
-//
-// For CryptEncodeObject:
-// Value.pbData points to the unicode string.
-// If Value.cbData = 0, then, the unicode string is NULL terminated.
-// Otherwise, Value.cbData is the unicode string byte count. The byte count
-// is twice the character count.
-//
-// If dwValueType = 0 (CERT_RDN_ANY_TYPE), the pszObjId is used to find
-// an acceptable dwValueType. If the unicode string contains an
-// invalid character for the found or specified dwValueType, then,
-// *pcbEncoded is updated with the error location of the invalid character.
-// See below for details. LastError is set to:
-// CRYPT_E_INVALID_NUMERIC_STRING, CRYPT_E_INVALID_PRINTABLE_STRING or
-// CRYPT_E_INVALID_IA5_STRING.
-//
-// The unicode string is converted before being encoded according to
-// the specified or ObjId matching dwValueType.
-//
-// For CryptDecodeObject:
-// Value.pbData points to a NULL terminated unicode string. Value.cbData
-// contains the byte count of the unicode string excluding the NULL
-// terminator. dwValueType contains the type used in the encoded object.
-// Its not forced to CERT_RDN_UNICODE_STRING. The encoded value is
-// converted to the unicode string according to the dwValueType.
-//
-// If the dwValueType of the encoded value isn't a character string
-// type, then, it isn't converted to UNICODE. Use the
-// IS_CERT_RDN_CHAR_STRING() macro on the dwValueType to check
-// that Value.pbData points to a converted unicode string.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// Unicode Name Value Error Location Definitions
-//
-// Error location is returned in *pcbEncoded by
-// CryptEncodeObject(X509_UNICODE_NAME)
-//
-// Error location consists of:
-// RDN_INDEX - 10 bits << 22
-// ATTR_INDEX - 6 bits << 16
-// VALUE_INDEX - 16 bits (unicode character index)
-//--------------------------------------------------------------------------
-const
- CERT_UNICODE_RDN_ERR_INDEX_MASK = $3FF;
- CERT_UNICODE_RDN_ERR_INDEX_SHIFT = 22;
- CERT_UNICODE_ATTR_ERR_INDEX_MASK = $003F;
- CERT_UNICODE_ATTR_ERR_INDEX_SHIFT = 16;
- CERT_UNICODE_VALUE_ERR_INDEX_MASK = $0000FFFF;
- CERT_UNICODE_VALUE_ERR_INDEX_SHIFT = 0;
-
-{#define GET_CERT_UNICODE_RDN_ERR_INDEX(X) \
- ((X >> CERT_UNICODE_RDN_ERR_INDEX_SHIFT) & CERT_UNICODE_RDN_ERR_INDEX_MASK)}
-function GET_CERT_UNICODE_RDN_ERR_INDEX(X: integer): integer;
-{#define GET_CERT_UNICODE_ATTR_ERR_INDEX(X) \
- ((X >> CERT_UNICODE_ATTR_ERR_INDEX_SHIFT) & CERT_UNICODE_ATTR_ERR_INDEX_MASK)}
-function GET_CERT_UNICODE_ATTR_ERR_INDEX(X: integer): integer;
-{#define GET_CERT_UNICODE_VALUE_ERR_INDEX(X) \
- (X & CERT_UNICODE_VALUE_ERR_INDEX_MASK)}
-function GET_CERT_UNICODE_VALUE_ERR_INDEX(X: integer): integer;
-
-//+-------------------------------------------------------------------------
-// X509_PUBLIC_KEY_INFO
-//
-// pvStructInfo points to CERT_PUBLIC_KEY_INFO.
-//--------------------------------------------------------------------------
-
-
-//+-------------------------------------------------------------------------
-// X509_AUTHORITY_KEY_ID
-// szOID_AUTHORITY_KEY_IDENTIFIER
-//
-// pvStructInfo points to following CERT_AUTHORITY_KEY_ID_INFO.
-//--------------------------------------------------------------------------
-type
- PCERT_AUTHORITY_KEY_ID_INFO = ^CERT_AUTHORITY_KEY_ID_INFO;
- CERT_AUTHORITY_KEY_ID_INFO = record
- KeyId: CRYPT_DATA_BLOB;
- CertIssuer: CERT_NAME_BLOB;
- CertSerialNumber: CRYPT_INTEGER_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// X509_KEY_ATTRIBUTES
-// szOID_KEY_ATTRIBUTES
-//
-// pvStructInfo points to following CERT_KEY_ATTRIBUTES_INFO.
-//--------------------------------------------------------------------------
-type
- PCERT_PRIVATE_KEY_VALIDITY = ^CERT_PRIVATE_KEY_VALIDITY;
- CERT_PRIVATE_KEY_VALIDITY = record
- NotBefore: TFILETIME;
- NotAfter: TFILETIME;
- end;
-
-type
- PCERT_KEY_ATTRIBUTES_INFO = ^CERT_KEY_ATTRIBUTES_INFO;
- CERT_KEY_ATTRIBUTES_INFO = record
- KeyId: CRYPT_DATA_BLOB;
- IntendedKeyUsage: CRYPT_BIT_BLOB;
- pPrivateKeyUsagePeriod: PCERT_PRIVATE_KEY_VALIDITY; // OPTIONAL
- end;
-
-const
- CERT_DIGITAL_SIGNATURE_KEY_USAGE = $80;
- CERT_NON_REPUDIATION_KEY_USAGE = $40;
- CERT_KEY_ENCIPHERMENT_KEY_USAGE = $20;
- CERT_DATA_ENCIPHERMENT_KEY_USAGE = $10;
- CERT_KEY_AGREEMENT_KEY_USAGE = $08;
- CERT_KEY_CERT_SIGN_KEY_USAGE = $04;
- CERT_OFFLINE_CRL_SIGN_KEY_USAGE = $02;
-
- CERT_CRL_SIGN_KEY_USAGE = $02;
-
-//+-------------------------------------------------------------------------
-// X509_KEY_USAGE_RESTRICTION
-// szOID_KEY_USAGE_RESTRICTION
-//
-// pvStructInfo points to following CERT_KEY_USAGE_RESTRICTION_INFO.
-//--------------------------------------------------------------------------
-type
- PCERT_POLICY_ID = ^CERT_POLICY_ID;
- CERT_POLICY_ID = record
- cCertPolicyElementId: DWORD;
- rgpszCertPolicyElementId: PLPSTR; // pszObjId
- end;
-
-type
- PCERT_KEY_USAGE_RESTRICTION_INFO = ^CERT_KEY_USAGE_RESTRICTION_INFO;
- CERT_KEY_USAGE_RESTRICTION_INFO = record
- cCertPolicyId: DWORD;
- rgCertPolicyId: PCERT_POLICY_ID;
- RestrictedKeyUsage: CRYPT_BIT_BLOB;
- end;
-
-// See CERT_KEY_ATTRIBUTES_INFO for definition of the RestrictedKeyUsage bits
-
-//+-------------------------------------------------------------------------
-// X509_ALTERNATE_NAME
-// szOID_SUBJECT_ALT_NAME
-// szOID_ISSUER_ALT_NAME
-// szOID_SUBJECT_ALT_NAME2
-// szOID_ISSUER_ALT_NAME2
-//
-// pvStructInfo points to following CERT_ALT_NAME_INFO.
-//--------------------------------------------------------------------------
-
-type
- PCERT_ALT_NAME_ENTRY = ^CERT_ALT_NAME_ENTRY;
- CERT_ALT_NAME_ENTRY = record
- dwAltNameChoice: DWORD;
- case integer of
- {1}0: ({OtherName :Not implemented});
- {2}1: (pwszRfc822Name: LPWSTR); //(encoded IA5)
- {3}2: (pwszDNSName: LPWSTR); //(encoded IA5)
- {4}3: ({x400Address :Not implemented});
- {5}4: (DirectoryName: CERT_NAME_BLOB);
- {6}5: ({pEdiPartyName :Not implemented});
- {7}6: (pwszURL: LPWSTR); //(encoded IA5)
- {8}7: (IPAddress: CRYPT_DATA_BLOB); //(Octet String)
- {9}8: (pszRegisteredID: LPSTR); //(Octet String)
- end;
-
-const
- CERT_ALT_NAME_OTHER_NAME = 1;
- CERT_ALT_NAME_RFC822_NAME = 2;
- CERT_ALT_NAME_DNS_NAME = 3;
- CERT_ALT_NAME_X400_ADDRESS = 4;
- CERT_ALT_NAME_DIRECTORY_NAME = 5;
- CERT_ALT_NAME_EDI_PARTY_NAME = 6;
- CERT_ALT_NAME_URL = 7;
- CERT_ALT_NAME_IP_ADDRESS = 8;
- CERT_ALT_NAME_REGISTERED_ID = 9;
-
-type
- PCERT_ALT_NAME_INFO = ^CERT_ALT_NAME_INFO;
- CERT_ALT_NAME_INFO = record
- cAltEntry: DWORD;
- rgAltEntry: PCERT_ALT_NAME_ENTRY;
- end;
-
-//+-------------------------------------------------------------------------
-// Alternate name IA5 Error Location Definitions for
-// CRYPT_E_INVALID_IA5_STRING.
-//
-// Error location is returned in *pcbEncoded by
-// CryptEncodeObject(X509_ALTERNATE_NAME)
-//
-// Error location consists of:
-// ENTRY_INDEX - 8 bits << 16
-// VALUE_INDEX - 16 bits (unicode character index)
-//--------------------------------------------------------------------------
-
-const
- CERT_ALT_NAME_ENTRY_ERR_INDEX_MASK = $FF;
- CERT_ALT_NAME_ENTRY_ERR_INDEX_SHIFT = 16;
- CERT_ALT_NAME_VALUE_ERR_INDEX_MASK = $0000FFFF;
- CERT_ALT_NAME_VALUE_ERR_INDEX_SHIFT = 0;
-
-{#define GET_CERT_ALT_NAME_ENTRY_ERR_INDEX(X) \
- ((X >> CERT_ALT_NAME_ENTRY_ERR_INDEX_SHIFT) & \
- CERT_ALT_NAME_ENTRY_ERR_INDEX_MASK)}
-function GET_CERT_ALT_NAME_ENTRY_ERR_INDEX(X: DWORD): DWORD;
-
-{#define GET_CERT_ALT_NAME_VALUE_ERR_INDEX(X) \
- (X & CERT_ALT_NAME_VALUE_ERR_INDEX_MASK)}
-function GET_CERT_ALT_NAME_VALUE_ERR_INDEX(X: DWORD): DWORD;
-
-//+-------------------------------------------------------------------------
-// X509_BASIC_CONSTRAINTS
-// szOID_BASIC_CONSTRAINTS
-//
-// pvStructInfo points to following CERT_BASIC_CONSTRAINTS_INFO.
-//--------------------------------------------------------------------------
-
-type
- PCERT_BASIC_CONSTRAINTS_INFO = ^CERT_BASIC_CONSTRAINTS_INFO;
- CERT_BASIC_CONSTRAINTS_INFO = record
- SubjectType: CRYPT_BIT_BLOB;
- fPathLenConstraint: BOOL;
- dwPathLenConstraint: DWORD;
- cSubtreesConstraint: DWORD;
- rgSubtreesConstraint: PCERT_NAME_BLOB;
- end;
-
-const
- CERT_CA_SUBJECT_FLAG = $80;
- CERT_END_ENTITY_SUBJECT_FLAG = $40;
-
-//+-------------------------------------------------------------------------
-// X509_BASIC_CONSTRAINTS2
-// szOID_BASIC_CONSTRAINTS2
-//
-// pvStructInfo points to following CERT_BASIC_CONSTRAINTS2_INFO.
-//--------------------------------------------------------------------------
-
-type
- PCERT_BASIC_CONSTRAINTS2_INFO = ^CERT_BASIC_CONSTRAINTS2_INFO;
- CERT_BASIC_CONSTRAINTS2_INFO = record
- fCA: BOOL;
- fPathLenConstraint: BOOL;
- dwPathLenConstraint: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// X509_KEY_USAGE
-// szOID_KEY_USAGE
-//
-// pvStructInfo points to a CRYPT_BIT_BLOB. Has same bit definitions as
-// CERT_KEY_ATTRIBUTES_INFO's IntendedKeyUsage.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_CERT_POLICIES
-// szOID_CERT_POLICIES
-//
-// pvStructInfo points to following CERT_POLICIES_INFO.
-//--------------------------------------------------------------------------
-
-type
- PCERT_POLICY_QUALIFIER_INFO = ^CERT_POLICY_QUALIFIER_INFO;
- CERT_POLICY_QUALIFIER_INFO = record
- pszPolicyQualifierId: LPSTR; // pszObjId
- Qualifier: CRYPT_OBJID_BLOB; // optional
- end;
-
-type
- PCERT_POLICY_INFO = ^CERT_POLICY_INFO;
- CERT_POLICY_INFO = record
- pszPolicyIdentifier: LPSTR; // pszObjId
- cPolicyQualifier: DWORD; // optional
- rgPolicyQualifier: PCERT_POLICY_QUALIFIER_INFO;
- end;
-
-type
- PCERT_POLICIES_INFO = ^CERT_POLICIES_INFO;
- CERT_POLICIES_INFO = record
- cPolicyInfo: DWORD;
- rgPolicyInfo: PCERT_POLICY_INFO;
- end;
-
-//+-------------------------------------------------------------------------
-// RSA_CSP_PUBLICKEYBLOB
-//
-// pvStructInfo points to a PUBLICKEYSTRUC immediately followed by a
-// RSAPUBKEY and the modulus bytes.
-//
-// CryptExportKey outputs the above StructInfo for a dwBlobType of
-// PUBLICKEYBLOB. CryptImportKey expects the above StructInfo when
-// importing a public key.
-//
-// For dwCertEncodingType = X509_ASN_ENCODING, the RSA_CSP_PUBLICKEYBLOB is
-// encoded as a PKCS #1 RSAPublicKey consisting of a SEQUENCE of a
-// modulus INTEGER and a publicExponent INTEGER. The modulus is encoded
-// as being a unsigned integer. When decoded, if the modulus was encoded
-// as unsigned integer with a leading 0 byte, the 0 byte is removed before
-// converting to the CSP modulus bytes.
-//
-// For decode, the aiKeyAlg field of PUBLICKEYSTRUC is always set to
-// CALG_RSA_KEYX.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_KEYGEN_REQUEST_TO_BE_SIGNED
-//
-// pvStructInfo points to CERT_KEYGEN_REQUEST_INFO.
-//
-// For CryptDecodeObject(), the pbEncoded is the "to be signed" plus its
-// signature (output of a X509_CERT CryptEncodeObject()).
-//
-// For CryptEncodeObject(), the pbEncoded is just the "to be signed".
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// PKCS_ATTRIBUTE data structure
-//
-// pvStructInfo points to a CRYPT_ATTRIBUTE.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// PKCS_CONTENT_INFO_SEQUENCE_OF_ANY data structure
-//
-// pvStructInfo points to following CRYPT_CONTENT_INFO_SEQUENCE_OF_ANY.
-//
-// For X509_ASN_ENCODING: encoded as a PKCS#7 ContentInfo structure wrapping
-// a sequence of ANY. The value of the contentType field is pszObjId,
-// while the content field is the following structure:
-// SequenceOfAny ::= SEQUENCE OF ANY
-//
-// The CRYPT_DER_BLOBs point to the already encoded ANY content.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_CONTENT_INFO_SEQUENCE_OF_ANY = ^CRYPT_CONTENT_INFO_SEQUENCE_OF_ANY;
- CRYPT_CONTENT_INFO_SEQUENCE_OF_ANY = record
- pszObjId: LPSTR;
- cValue: DWORD;
- rgValue: PCRYPT_DER_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// PKCS_CONTENT_INFO data structure
-//
-// pvStructInfo points to following CRYPT_CONTENT_INFO.
-//
-// For X509_ASN_ENCODING: encoded as a PKCS#7 ContentInfo structure.
-// The CRYPT_DER_BLOB points to the already encoded ANY content.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_CONTENT_INFO = ^CRYPT_CONTENT_INFO;
- CRYPT_CONTENT_INFO = record
- pszObjId: LPSTR;
- Content: CRYPT_DER_BLOB;
- end;
-
-
-//+-------------------------------------------------------------------------
-// X509_OCTET_STRING data structure
-//
-// pvStructInfo points to a CRYPT_DATA_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_BITS data structure
-//
-// pvStructInfo points to a CRYPT_BIT_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_INTEGER data structure
-//
-// pvStructInfo points to an int.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_MULTI_BYTE_INTEGER data structure
-//
-// pvStructInfo points to a CRYPT_INTEGER_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_ENUMERATED data structure
-//
-// pvStructInfo points to an int containing the enumerated value
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_CHOICE_OF_TIME data structure
-//
-// pvStructInfo points to a FILETIME.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_SEQUENCE_OF_ANY data structure
-//
-// pvStructInfo points to following CRYPT_SEQUENCE_OF_ANY.
-//
-// The CRYPT_DER_BLOBs point to the already encoded ANY content.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_SEQUENCE_OF_ANY = ^CRYPT_SEQUENCE_OF_ANY;
- CRYPT_SEQUENCE_OF_ANY = record
- cValue: DWORD;
- rgValue: PCRYPT_DER_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// X509_AUTHORITY_KEY_ID2
-// szOID_AUTHORITY_KEY_IDENTIFIER2
-//
-// pvStructInfo points to following CERT_AUTHORITY_KEY_ID2_INFO.
-//
-// For CRYPT_E_INVALID_IA5_STRING, the error location is returned in
-// *pcbEncoded by CryptEncodeObject(X509_AUTHORITY_KEY_ID2)
-//
-// See X509_ALTERNATE_NAME for error location defines.
-//--------------------------------------------------------------------------
-
-type
- PCERT_AUTHORITY_KEY_ID2_INFO = ^CERT_AUTHORITY_KEY_ID2_INFO;
- CERT_AUTHORITY_KEY_ID2_INFO = record
- KeyId: CRYPT_DATA_BLOB;
- AuthorityCertIssuer: CERT_ALT_NAME_INFO; // Optional, set cAltEntry to 0 to omit.
- AuthorityCertSerialNumber: CRYPT_INTEGER_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// szOID_SUBJECT_KEY_IDENTIFIER
-//
-// pvStructInfo points to a CRYPT_DATA_BLOB.
-//--------------------------------------------------------------------------
-
-
-//+-------------------------------------------------------------------------
-// X509_CRL_REASON_CODE
-// szOID_CRL_REASON_CODE
-//
-// pvStructInfo points to an int which can be set to one of the following
-// enumerated values:
-//--------------------------------------------------------------------------
-
-const
- CRL_REASON_UNSPECIFIED = 0;
- CRL_REASON_KEY_COMPROMISE = 1;
- CRL_REASON_CA_COMPROMISE = 2;
- CRL_REASON_AFFILIATION_CHANGED = 3;
- CRL_REASON_SUPERSEDED = 4;
- CRL_REASON_CESSATION_OF_OPERATION = 5;
- CRL_REASON_CERTIFICATE_HOLD = 6;
- CRL_REASON_REMOVE_FROM_CRL = 8;
-
-//+-------------------------------------------------------------------------
-// X509_CRL_DIST_POINTS
-// szOID_CRL_DIST_POINTS
-//
-// pvStructInfo points to following CRL_DIST_POINTS_INFO.
-//
-// For CRYPT_E_INVALID_IA5_STRING, the error location is returned in
-// *pcbEncoded by CryptEncodeObject(X509_CRL_DIST_POINTS)
-//
-// Error location consists of:
-// CRL_ISSUER_BIT - 1 bit << 31 (0 for FullName, 1 for CRLIssuer)
-// POINT_INDEX - 7 bits << 24
-// ENTRY_INDEX - 8 bits << 16
-// VALUE_INDEX - 16 bits (unicode character index)
-//
-// See X509_ALTERNATE_NAME for ENTRY_INDEX and VALUE_INDEX error location
-// defines.
-//--------------------------------------------------------------------------
-
-type
- PCRL_DIST_POINT_NAME = ^CRL_DIST_POINT_NAME;
- CRL_DIST_POINT_NAME = record
- dwDistPointNameChoice: DWORD;
- case integer of
- 0: (FullName: CERT_ALT_NAME_INFO); {1}
- 1: ({IssuerRDN :Not implemented}); {2}
- end;
-
-const
- CRL_DIST_POINT_NO_NAME = 0;
- CRL_DIST_POINT_FULL_NAME = 1;
- CRL_DIST_POINT_ISSUER_RDN_NAME = 2;
-
-type
- PCRL_DIST_POINT = ^CRL_DIST_POINT;
- CRL_DIST_POINT = record
- DistPointName: CRL_DIST_POINT_NAME; // OPTIONAL
- ReasonFlags: CRYPT_BIT_BLOB; // OPTIONAL
- CRLIssuer: CERT_ALT_NAME_INFO; // OPTIONAL
- end;
-
-const
- CRL_REASON_UNUSED_FLAG = $80;
- CRL_REASON_KEY_COMPROMISE_FLAG = $40;
- CRL_REASON_CA_COMPROMISE_FLAG = $20;
- CRL_REASON_AFFILIATION_CHANGED_FLAG = $10;
- CRL_REASON_SUPERSEDED_FLAG = $08;
- CRL_REASON_CESSATION_OF_OPERATION_FLAG = $04;
- CRL_REASON_CERTIFICATE_HOLD_FLAG = $02;
-
-type
- PCRL_DIST_POINTS_INFO = ^CRL_DIST_POINTS_INFO;
- CRL_DIST_POINTS_INFO = record
- cDistPoint: DWORD;
- rgDistPoint: PCRL_DIST_POINT;
- end;
-
-const
- CRL_DIST_POINT_ERR_INDEX_MASK = $7F;
- CRL_DIST_POINT_ERR_INDEX_SHIFT = 24;
-
-{#define GET_CRL_DIST_POINT_ERR_INDEX(X) \
- ((X >> CRL_DIST_POINT_ERR_INDEX_SHIFT) & CRL_DIST_POINT_ERR_INDEX_MASK)}
-function GET_CRL_DIST_POINT_ERR_INDEX(X: DWORD): DWORD;
-const CRL_DIST_POINT_ERR_CRL_ISSUER_BIT = (DWORD($80000000));
-
-{#define IS_CRL_DIST_POINT_ERR_CRL_ISSUER(X) \
- (0 != (X & CRL_DIST_POINT_ERR_CRL_ISSUER_BIT))}
-function IS_CRL_DIST_POINT_ERR_CRL_ISSUER(X: DWORD): BOOL;
-
-//+-------------------------------------------------------------------------
-// X509_ENHANCED_KEY_USAGE
-// szOID_ENHANCED_KEY_USAGE
-//
-// pvStructInfo points to a CERT_ENHKEY_USAGE, CTL_USAGE.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NEXT_UPDATE_LOCATION
-//
-// pvStructInfo points to a CERT_ALT_NAME_INFO.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// PKCS_CTL
-// szOID_CTL
-//
-// pvStructInfo points to a CTL_INFO.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_MULTI_BYTE_UINT
-//
-// pvStructInfo points to a CRYPT_UINT_BLOB. Before encoding, inserts a
-// leading 0x00. After decoding, removes a leading 0x00.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_DSS_PUBLICKEY
-//
-// pvStructInfo points to a CRYPT_UINT_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// X509_DSS_PARAMETERS
-//
-// pvStructInfo points to following CERT_DSS_PARAMETERS data structure.
-//--------------------------------------------------------------------------
-
-type
- PCERT_DSS_PARAMETERS = ^CERT_DSS_PARAMETERS;
- CERT_DSS_PARAMETERS = record
- p: CRYPT_UINT_BLOB;
- q: CRYPT_UINT_BLOB;
- g: CRYPT_UINT_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// X509_DSS_SIGNATURE
-//
-// pvStructInfo is a BYTE rgbSignature[CERT_DSS_SIGNATURE_LEN]. The
-// bytes are ordered as output by the DSS CSP's CryptSignHash().
-//--------------------------------------------------------------------------
-
-const
- CERT_DSS_R_LEN = 20;
- CERT_DSS_S_LEN = 20;
- CERT_DSS_SIGNATURE_LEN = (CERT_DSS_R_LEN + CERT_DSS_S_LEN);
-
-// Sequence of 2 unsigned integers (the extra +1 is for a potential leading
-// 0x00 to make the integer unsigned)
- CERT_MAX_ASN_ENCODED_DSS_SIGNATURE_LEN = (2 + 2 * (2 + 20 + 1));
-
-//+-------------------------------------------------------------------------
-// PKCS_RC2_CBC_PARAMETERS
-// szOID_RSA_RC2CBC
-//
-// pvStructInfo points to following CRYPT_RC2_CBC_PARAMETERS data structure.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_RC2_CBC_PARAMETERS = ^CRYPT_RC2_CBC_PARAMETERS;
- CRYPT_RC2_CBC_PARAMETERS = record
- dwVersion: DWORD;
- fIV: BOOL; // set if has following IV
- rgbIV: array[0..8 - 1] of BYTE;
- end;
-
-const
- CRYPT_RC2_40BIT_VERSION = 160;
- CRYPT_RC2_64BIT_VERSION = 120;
- CRYPT_RC2_128BIT_VERSION = 58;
-
-
-//+-------------------------------------------------------------------------
-// PKCS_SMIME_CAPABILITIES
-// szOID_RSA_SMIMECapabilities
-//
-// pvStructInfo points to following CRYPT_SMIME_CAPABILITIES data structure.
-//
-// Note, for CryptEncodeObject(X509_ASN_ENCODING), Parameters.cbData == 0
-// causes the encoded parameters to be omitted and not encoded as a NULL
-// (05 00) as is done when encoding a CRYPT_ALGORITHM_IDENTIFIER. This
-// is per the SMIME specification for encoding capabilities.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_SMIME_CAPABILITY = ^CRYPT_SMIME_CAPABILITY;
- CRYPT_SMIME_CAPABILITY = record
- pszObjId: LPSTR;
- Parameters: CRYPT_OBJID_BLOB;
- end;
-
-type
- PCRYPT_SMIME_CAPABILITIES = ^CRYPT_SMIME_CAPABILITIES;
- CRYPT_SMIME_CAPABILITIES = record
- cCapability: DWORD;
- rgCapability: PCRYPT_SMIME_CAPABILITY;
- end;
-
-
-//+-------------------------------------------------------------------------
-// PKCS7_SIGNER_INFO
-//
-// pvStructInfo points to CMSG_SIGNER_INFO.
-//--------------------------------------------------------------------------
-
-
-//+-------------------------------------------------------------------------
-// Netscape Certificate Extension Object Identifiers
-//--------------------------------------------------------------------------
-
-const
- szOID_NETSCAPE = '2.16.840.1.113730';
- szOID_NETSCAPE_CERT_EXTENSION = '2.16.840.1.113730.1';
- szOID_NETSCAPE_CERT_TYPE = '2.16.840.1.113730.1.1';
- szOID_NETSCAPE_BASE_URL = '2.16.840.1.113730.1.2';
- szOID_NETSCAPE_REVOCATION_URL = '2.16.840.1.113730.1.3';
- szOID_NETSCAPE_CA_REVOCATION_URL = '2.16.840.1.113730.1.4';
- szOID_NETSCAPE_CERT_RENEWAL_URL = '2.16.840.1.113730.1.7';
- szOID_NETSCAPE_CA_POLICY_URL = '2.16.840.1.113730.1.8';
- szOID_NETSCAPE_SSL_SERVER_NAME = '2.16.840.1.113730.1.12';
- szOID_NETSCAPE_COMMENT = '2.16.840.1.113730.1.13';
-
-//+-------------------------------------------------------------------------
-// Netscape Certificate Data Type Object Identifiers
-//--------------------------------------------------------------------------
-
-const
- szOID_NETSCAPE_DATA_TYPE = '2.16.840.1.113730.2';
- szOID_NETSCAPE_CERT_SEQUENCE = '2.16.840.1.113730.2.5';
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_CERT_TYPE extension
-//
-// Its value is a bit string. CryptDecodeObject/CryptEncodeObject using
-// X509_BITS.
-//
-// The following bits are defined:
-//--------------------------------------------------------------------------
-
-const
- NETSCAPE_SSL_CLIENT_AUTH_CERT_TYPE = $80;
- NETSCAPE_SSL_SERVER_AUTH_CERT_TYPE = $40;
- NETSCAPE_SSL_CA_CERT_TYPE = $04;
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_BASE_URL extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// When present this string is added to the beginning of all relative URLs
-// in the certificate. This extension can be considered an optimization
-// to reduce the size of the URL extensions.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_REVOCATION_URL extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// It is a relative or absolute URL that can be used to check the
-// revocation status of a certificate. The revocation check will be
-// performed as an HTTP GET method using a url that is the concatenation of
-// revocation-url and certificate-serial-number.
-// Where the certificate-serial-number is encoded as a string of
-// ascii hexadecimal digits. For example, if the netscape-base-url is
-// https://www.certs-r-us.com/, the netscape-revocation-url is
-// cgi-bin/check-rev.cgi?, and the certificate serial number is 173420,
-// the resulting URL would be:
-// https://www.certs-r-us.com/cgi-bin/check-rev.cgi?02a56c
-//
-// The server should return a document with a Content-Type of
-// application/x-netscape-revocation. The document should contain
-// a single ascii digit, '1' if the certificate is not curently valid,
-// and '0' if it is curently valid.
-//
-// Note: for all of the URLs that include the certificate serial number,
-// the serial number will be encoded as a string which consists of an even
-// number of hexadecimal digits. If the number of significant digits is odd,
-// the string will have a single leading zero to ensure an even number of
-// digits is generated.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_CA_REVOCATION_URL extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// It is a relative or absolute URL that can be used to check the
-// revocation status of any certificates that are signed by the CA that
-// this certificate belongs to. This extension is only valid in CA
-// certificates. The use of this extension is the same as the above
-// szOID_NETSCAPE_REVOCATION_URL extension.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_CERT_RENEWAL_URL extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// It is a relative or absolute URL that points to a certificate renewal
-// form. The renewal form will be accessed with an HTTP GET method using a
-// url that is the concatenation of renewal-url and
-// certificate-serial-number. Where the certificate-serial-number is
-// encoded as a string of ascii hexadecimal digits. For example, if the
-// netscape-base-url is https://www.certs-r-us.com/, the
-// netscape-cert-renewal-url is cgi-bin/check-renew.cgi?, and the
-// certificate serial number is 173420, the resulting URL would be:
-// https://www.certs-r-us.com/cgi-bin/check-renew.cgi?02a56c
-// The document returned should be an HTML form that will allow the user
-// to request a renewal of their certificate.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_CA_POLICY_URL extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// It is a relative or absolute URL that points to a web page that
-// describes the policies under which the certificate was issued.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_SSL_SERVER_NAME extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// It is a "shell expression" that can be used to match the hostname of the
-// SSL server that is using this certificate. It is recommended that if
-// the server's hostname does not match this pattern the user be notified
-// and given the option to terminate the SSL connection. If this extension
-// is not present then the CommonName in the certificate subject's
-// distinguished name is used for the same purpose.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_COMMENT extension
-//
-// Its value is an IA5_STRING. CryptDecodeObject/CryptEncodeObject using
-// X509_ANY_STRING or X509_UNICODE_ANY_STRING, where,
-// dwValueType = CERT_RDN_IA5_STRING.
-//
-// It is a comment that may be displayed to the user when the certificate
-// is viewed.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// szOID_NETSCAPE_CERT_SEQUENCE
-//
-// Its value is a PKCS#7 ContentInfo structure wrapping a sequence of
-// certificates. The value of the contentType field is
-// szOID_NETSCAPE_CERT_SEQUENCE, while the content field is the following
-// structure:
-// CertificateSequence ::= SEQUENCE OF Certificate.
-//
-// CryptDecodeObject/CryptEncodeObject using
-// PKCS_CONTENT_INFO_SEQUENCE_OF_ANY, where,
-// pszObjId = szOID_NETSCAPE_CERT_SEQUENCE and the CRYPT_DER_BLOBs point
-// to encoded X509 certificates.
-//--------------------------------------------------------------------------
-
-
-//+=========================================================================
-// Object IDentifier (OID) Installable Functions: Data Structures and APIs
-//==========================================================================
-
-type
- HCRYPTOIDFUNCSET = procedure;
- HCRYPTOIDFUNCADDR = procedure;
-
-// Predefined OID Function Names
-const
- CRYPT_OID_ENCODE_OBJECT_FUNC = 'CryptDllEncodeObject';
- CRYPT_OID_DECODE_OBJECT_FUNC = 'CryptDllDecodeObject';
- CRYPT_OID_CREATE_COM_OBJECT_FUNC = 'CryptDllCreateCOMObject';
- CRYPT_OID_VERIFY_REVOCATION_FUNC = 'CertDllVerifyRevocation';
- CRYPT_OID_VERIFY_CTL_USAGE_FUNC = 'CertDllVerifyCTLUsage';
- CRYPT_OID_FORMAT_OBJECT_FUNC = 'CryptDllFormatObject';
- CRYPT_OID_FIND_OID_INFO_FUNC = 'CryptDllFindOIDInfo';
-
-// CryptDllEncodeObject has same function signature as CryptEncodeObject.
-
-// CryptDllDecodeObject has same function signature as CryptDecodeObject.
-
-// CryptDllCreateCOMObject has the following signature:
-// BOOL WINAPI CryptDllCreateCOMObject(
-// IN DWORD dwEncodingType,
-// IN LPCSTR pszOID,
-// IN PCRYPT_DATA_BLOB pEncodedContent,
-// IN DWORD dwFlags,
-// IN REFIID riid,
-// OUT void **ppvObj);
-
-// CertDllVerifyRevocation has the same signature as CertVerifyRevocation
-// (See CertVerifyRevocation for details on when called)
-
-// CertDllVerifyCTLUsage has the same signature as CertVerifyCTLUsage
-
-// CryptDllFindOIDInfo currently is only used to store values used by
-// CryptFindOIDInfo. See CryptFindOIDInfo() for more details.
-
-// Example of a complete OID Function Registry Name:
-// HKEY_LOCAL_MACHINE\Software\Microsoft\Cryptography\OID
-// Encoding Type 1\CryptDllEncodeObject\1.2.3
-//
-// The key's L"Dll" value contains the name of the Dll.
-// The key's L"FuncName" value overrides the default function name
-
-const
- CRYPT_OID_REGPATH = 'Software\\Microsoft\\Cryptography\\OID';
- CRYPT_OID_REG_ENCODING_TYPE_PREFIX = 'EncodingType ';
-{$IFNDEF VER90}
- CRYPT_OID_REG_DLL_VALUE_NAME = WideString('Dll');
- CRYPT_OID_REG_FUNC_NAME_VALUE_NAME = WideString('FuncName');
-{$ELSE}
- CRYPT_OID_REG_DLL_VALUE_NAME = ('Dll');
- CRYPT_OID_REG_FUNC_NAME_VALUE_NAME = ('FuncName');
-{$ENDIF}
- CRYPT_OID_REG_FUNC_NAME_VALUE_NAME_A = 'FuncName';
-
-// OID used for Default OID functions
- CRYPT_DEFAULT_OID = 'DEFAULT';
-
-type
- PCRYPT_OID_FUNC_ENTRY = ^CRYPT_OID_FUNC_ENTRY;
- CRYPT_OID_FUNC_ENTRY = record
- pszOID: LPCSTR;
- pvFuncAddr: PVOID;
- end;
-
-const
- CRYPT_INSTALL_OID_FUNC_BEFORE_FLAG = 1;
-
-//+-------------------------------------------------------------------------
-// Install a set of callable OID function addresses.
-//
-// By default the functions are installed at end of the list.
-// Set CRYPT_INSTALL_OID_FUNC_BEFORE_FLAG to install at beginning of list.
-//
-// hModule should be updated with the hModule passed to DllMain to prevent
-// the Dll containing the function addresses from being unloaded by
-// CryptGetOIDFuncAddress/CryptFreeOIDFunctionAddress. This would be the
-// case when the Dll has also regsvr32'ed OID functions via
-// CryptRegisterOIDFunction.
-//
-// DEFAULT functions are installed by setting rgFuncEntry[].pszOID =
-// CRYPT_DEFAULT_OID.
-//--------------------------------------------------------------------------
-
-function CryptInstallOIDFunctionAddress(hModule: HMODULE; // hModule passed to DllMain
- dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- cFuncEntry: DWORD;
- const rgFuncEntry: array of CRYPT_OID_FUNC_ENTRY;
- dwFlags: DWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Initialize and return handle to the OID function set identified by its
-// function name.
-//
-// If the set already exists, a handle to the existing set is returned.
-//--------------------------------------------------------------------------
-
-function CryptInitOIDFunctionSet(pszFuncName: LPCSTR;
- dwFlags: DWORD): HCRYPTOIDFUNCSET; stdcall;
-//+-------------------------------------------------------------------------
-// Search the list of installed functions for an encoding type and OID match.
-// If not found, search the registry.
-//
-// For success, returns TRUE with *ppvFuncAddr updated with the function's
-// address and *phFuncAddr updated with the function address's handle.
-// The function's handle is AddRef'ed. CryptFreeOIDFunctionAddress needs to
-// be called to release it.
-//
-// For a registry match, the Dll containing the function is loaded.
-//--------------------------------------------------------------------------
-
-function CryptGetOIDFunctionAddress(hFuncSet: HCRYPTOIDFUNCSET;
- dwEncodingType: DWORD;
- pszOID: LPCSTR;
- dwFlags: DWORD;
- var ppvFuncAddr: array of PVOID;
- var phFuncAddr: HCRYPTOIDFUNCADDR): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Get the list of registered default Dll entries for the specified
-// function set and encoding type.
-//
-// The returned list consists of none, one or more null terminated Dll file
-// names. The list is terminated with an empty (L"\0") Dll file name.
-// For example: L"first.dll" L"\0" L"second.dll" L"\0" L"\0"
-//--------------------------------------------------------------------------
-
-function CryptGetDefaultOIDDllList(hFuncSet: HCRYPTOIDFUNCSET;
- dwEncodingType: DWORD;
- pwszDllList: LPWSTR;
- pcchDllList: PDWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Either: get the first or next installed DEFAULT function OR
-// load the Dll containing the DEFAULT function.
-//
-// If pwszDll is NULL, search the list of installed DEFAULT functions.
-// *phFuncAddr must be set to NULL to get the first installed function.
-// Successive installed functions are returned by setting *phFuncAddr
-// to the hFuncAddr returned by the previous call.
-//
-// If pwszDll is NULL, the input *phFuncAddr
-// is always CryptFreeOIDFunctionAddress'ed by this function, even for
-// an error.
-//
-// If pwszDll isn't NULL, then, attempts to load the Dll and the DEFAULT
-// function. *phFuncAddr is ignored upon entry and isn't
-// CryptFreeOIDFunctionAddress'ed.
-//
-// For success, returns TRUE with *ppvFuncAddr updated with the function's
-// address and *phFuncAddr updated with the function address's handle.
-// The function's handle is AddRef'ed. CryptFreeOIDFunctionAddress needs to
-// be called to release it or CryptGetDefaultOIDFunctionAddress can also
-// be called for a NULL pwszDll.
-//--------------------------------------------------------------------------
-
-function CryptGetDefaultOIDFunctionAddress(hFuncSet: HCRYPTOIDFUNCSET;
- dwEncodingType: DWORD;
- pwszDll: DWORD;
- dwFlags: LPCWSTR;
- var ppvFuncAddr: array of PVOID;
- var phFuncAddr: HCRYPTOIDFUNCADDR): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Releases the handle AddRef'ed and returned by CryptGetOIDFunctionAddress
-// or CryptGetDefaultOIDFunctionAddress.
-//
-// If a Dll was loaded for the function its unloaded. However, before doing
-// the unload, the DllCanUnloadNow function exported by the loaded Dll is
-// called. It should return S_FALSE to inhibit the unload or S_TRUE to enable
-// the unload. If the Dll doesn't export DllCanUnloadNow, the Dll is unloaded.
-//
-// DllCanUnloadNow has the following signature:
-// STDAPI DllCanUnloadNow(void);
-//--------------------------------------------------------------------------
-
-function CryptFreeOIDFunctionAddress(hFuncAddr: HCRYPTOIDFUNCADDR;
- dwFlags: DWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Register the Dll containing the function to be called for the specified
-// encoding type, function name and OID.
-//
-// pwszDll may contain environment-variable strings
-// which are ExpandEnvironmentStrings()'ed before loading the Dll.
-//
-// In addition to registering the DLL, you may override the
-// name of the function to be called. For example,
-// pszFuncName = "CryptDllEncodeObject",
-// pszOverrideFuncName = "MyEncodeXyz".
-// This allows a Dll to export multiple OID functions for the same
-// function name without needing to interpose its own OID dispatcher function.
-//--------------------------------------------------------------------------
-
-function CryptRegisterOIDFunction(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- pszOID: LPCSTR; //OPTIONAL
- pwszDll: LPCWSTR; //OPTIONAL
- pszOverrideFuncName: LPCSTR): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Unregister the Dll containing the function to be called for the specified
-// encoding type, function name and OID.
-//--------------------------------------------------------------------------
-
-function CryptUnregisterOIDFunction(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- pszOID: LPCSTR): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Register the Dll containing the default function to be called for the
-// specified encoding type and function name.
-//
-// Unlike CryptRegisterOIDFunction, you can't override the function name
-// needing to be exported by the Dll.
-//
-// The Dll is inserted before the entry specified by dwIndex.
-// dwIndex == 0, inserts at the beginning.
-// dwIndex == CRYPT_REGISTER_LAST_INDEX, appends at the end.
-//
-// pwszDll may contain environment-variable strings
-// which are ExpandEnvironmentStrings()'ed before loading the Dll.
-//--------------------------------------------------------------------------
-
-function CryptRegisterDefaultOIDFunction(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- dwIndex: DWORD;
- pwszDll: LPCWSTR): BOOL; stdcall;
-
-const
- CRYPT_REGISTER_FIRST_INDEX = 0;
- CRYPT_REGISTER_LAST_INDEX = $FFFFFFFF;
-
-//+-------------------------------------------------------------------------
-// Unregister the Dll containing the default function to be called for
-// the specified encoding type and function name.
-//--------------------------------------------------------------------------
-
-function CryptUnregisterDefaultOIDFunction(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- pwszDll: LPCWSTR): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Set the value for the specified encoding type, function name, OID and
-// value name.
-//
-// See RegSetValueEx for the possible value types.
-//
-// String types are UNICODE.
-//--------------------------------------------------------------------------
-
-function CryptSetOIDFunctionValue(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- pszOID: LPCSTR;
- pwszValueName: LPCWSTR;
- dwValueType: DWORD;
- const pbValueData: PBYTE;
- cbValueData: DWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Get the value for the specified encoding type, function name, OID and
-// value name.
-//
-// See RegEnumValue for the possible value types.
-//
-// String types are UNICODE.
-//--------------------------------------------------------------------------
-
-function CryptGetOIDFunctionValue(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- pwszValueName: LPCSTR;
- pszOID: LPCWSTR;
- pdwValueType: PDWORD;
- pbValueData: PBYTE;
- pcbValueData: PDWORD): BOOL; stdcall;
-
-type
- PFN_CRYPT_ENUM_OID_FUNC = function(dwEncodingType: DWORD;
- pszFuncName: LPCSTR;
- pszOID: LPCSTR;
- cValue: DWORD;
- const rgdwValueType: array of DWORD;
- const rgpwszValueName: array of LPCWSTR;
- const rgpbValueData: array of PBYTE;
- const rgcbValueData: array of DWORD;
- pvArg: PVOID): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Enumerate the OID functions identified by their encoding type,
-// function name and OID.
-//
-// pfnEnumOIDFunc is called for each registry key matching the input
-// parameters. Setting dwEncodingType to CRYPT_MATCH_ANY_ENCODING_TYPE matches
-// any. Setting pszFuncName or pszOID to NULL matches any.
-//
-// Set pszOID == CRYPT_DEFAULT_OID to restrict the enumeration to only the
-// DEFAULT functions
-//
-// String types are UNICODE.
-//--------------------------------------------------------------------------
-
-function CryptEnumOIDFunction(dwEncodingType: DWORD;
- pszFuncName: LPCSTR; //OPTIONAL
- pszOID: LPCSTR; //OPTIONAL
- dwFlags: DWORD;
- pvArg: PVOID;
- pfnEnumOIDFunc: PFN_CRYPT_ENUM_OID_FUNC): BOOL; stdcall;
-
-const
- CRYPT_MATCH_ANY_ENCODING_TYPE = $FFFFFFFF;
-
-//+=========================================================================
-// Object IDentifier (OID) Information: Data Structures and APIs
-//==========================================================================
-
-//+-------------------------------------------------------------------------
-// OID Information
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_OID_INFO = ^CRYPT_OID_INFO;
- CRYPT_OID_INFO = record
- cbSize: DWORD;
- pszOID: LPCSTR;
- pwszName: LPCWSTR;
- dwGroupId: DWORD;
- EnumValue: record {type EnumValue for the union part of the original struct --max--}
- case integer of
- 0: (dwValue: DWORD);
- 1: (Algid: ALG_ID);
- 2: (dwLength: DWORD);
- end;
- ExtraInfo: CRYPT_DATA_BLOB;
- end;
-
-type
- CCRYPT_OID_INFO = CRYPT_OID_INFO;
- PCCRYPT_OID_INFO = ^CCRYPT_OID_INFO;
-
-//+-------------------------------------------------------------------------
-// OID Group IDs
-//--------------------------------------------------------------------------
-
-const
- CRYPT_HASH_ALG_OID_GROUP_ID = 1;
- CRYPT_ENCRYPT_ALG_OID_GROUP_ID = 2;
- CRYPT_PUBKEY_ALG_OID_GROUP_ID = 3;
- CRYPT_SIGN_ALG_OID_GROUP_ID = 4;
- CRYPT_RDN_ATTR_OID_GROUP_ID = 5;
- CRYPT_EXT_OR_ATTR_OID_GROUP_ID = 6;
- CRYPT_ENHKEY_USAGE_OID_GROUP_ID = 7;
- CRYPT_POLICY_OID_GROUP_ID = 8;
- CRYPT_LAST_OID_GROUP_ID = 8;
-
- CRYPT_FIRST_ALG_OID_GROUP_ID = CRYPT_HASH_ALG_OID_GROUP_ID;
- CRYPT_LAST_ALG_OID_GROUP_ID = CRYPT_SIGN_ALG_OID_GROUP_ID;
-
-
-// The CRYPT_*_ALG_OID_GROUP_ID's have an Algid. The CRYPT_RDN_ATTR_OID_GROUP_ID
-// has a dwLength. The CRYPT_EXT_OR_ATTR_OID_GROUP_ID,
-// CRYPT_ENHKEY_USAGE_OID_GROUP_ID or CRYPT_POLICY_OID_GROUP_ID don't have a
-// dwValue.
-
-// CRYPT_PUBKEY_ALG_OID_GROUP_ID has the following optional ExtraInfo:
-// DWORD[0] - Flags. CRYPT_OID_INHIBIT_SIGNATURE_FORMAT_FLAG can be set to
-// inhibit the reformatting of the signature before
-// CryptVerifySignature is called or after CryptSignHash
-// is called. CRYPT_OID_USE_PUBKEY_PARA_FOR_PKCS7_FLAG can
-// be set to include the public key algorithm's parameters
-// in the PKCS7's digestEncryptionAlgorithm's parameters.
-
- CRYPT_OID_INHIBIT_SIGNATURE_FORMAT_FLAG = $1;
- CRYPT_OID_USE_PUBKEY_PARA_FOR_PKCS7_FLAG = $2;
-
-// CRYPT_SIGN_ALG_OID_GROUP_ID has the following optional ExtraInfo:
-// DWORD[0] - Public Key Algid.
-// DWORD[1] - Flags. Same as above for CRYPT_PUBKEY_ALG_OID_GROUP_ID.
-
-// CRYPT_RDN_ATTR_OID_GROUP_ID has the following optional ExtraInfo:
-// Array of DWORDs:
-// [0 ..] - Null terminated list of acceptable RDN attribute
-// value types. An empty list implies CERT_RDN_PRINTABLE_STRING,
-// CERT_RDN_T61_STRING, 0.
-
-//+-------------------------------------------------------------------------
-// Find OID information. Returns NULL if unable to find any information
-// for the specified key and group. Note, returns a pointer to a constant
-// data structure. The returned pointer MUST NOT be freed.
-//
-// dwKeyType's:
-// CRYPT_OID_INFO_OID_KEY, pvKey points to a szOID
-// CRYPT_OID_INFO_NAME_KEY, pvKey points to a wszName
-// CRYPT_OID_INFO_ALGID_KEY, pvKey points to an ALG_ID
-// CRYPT_OID_INFO_SIGN_KEY, pvKey points to an array of two ALG_ID's:
-// ALG_ID[0] - Hash Algid
-// ALG_ID[1] - PubKey Algid
-//
-// Setting dwGroupId to 0, searches all groups according to the dwKeyType.
-// Otherwise, only the dwGroupId is searched.
-//--------------------------------------------------------------------------
-
-function CryptFindOIDInfo(dwKeyType: DWORD;
- pvKey: PVOID;
- dwGroupId: DWORD): PCCRYPT_OID_INFO; stdcall;
-
-const
- CRYPT_OID_INFO_OID_KEY = 1;
- CRYPT_OID_INFO_NAME_KEY = 2;
- CRYPT_OID_INFO_ALGID_KEY = 3;
- CRYPT_OID_INFO_SIGN_KEY = 4;
-
-//+-------------------------------------------------------------------------
-// Register OID information. The OID information specified in the
-// CCRYPT_OID_INFO structure is persisted to the registry.
-//
-// crypt32.dll contains information for the commonly known OIDs. This function
-// allows applications to augment crypt32.dll's OID information. During
-// CryptFindOIDInfo's first call, the registered OID information is installed.
-//
-// By default the registered OID information is installed after crypt32.dll's
-// OID entries. Set CRYPT_INSTALL_OID_INFO_BEFORE_FLAG to install before.
-//--------------------------------------------------------------------------
-
-function CryptRegisterOIDInfo(pInfo: PCCRYPT_OID_INFO;
- dwFlags: DWORD): BOOL; stdcall;
-
-const
- CRYPT_INSTALL_OID_INFO_BEFORE_FLAG = 1;
-
-//+-------------------------------------------------------------------------
-// Unregister OID information. Only the pszOID and dwGroupId fields are
-// used to identify the OID information to be unregistered.
-//--------------------------------------------------------------------------
-
-function CryptUnregisterOIDInfo(pInfo: PCCRYPT_OID_INFO): BOOL; stdcall;
-
-//+=========================================================================
-// Low Level Cryptographic Message Data Structures and APIs
-//==========================================================================
-
-type
- HCRYPTMSG = Pointer;
-
-const
- szOID_PKCS_7_DATA = '1.2.840.113549.1.7.1';
- szOID_PKCS_7_SIGNED = '1.2.840.113549.1.7.2';
- szOID_PKCS_7_ENVELOPED = '1.2.840.113549.1.7.3';
- szOID_PKCS_7_SIGNEDANDENVELOPED = '1.2.840.113549.1.7.4';
- szOID_PKCS_7_DIGESTED = '1.2.840.113549.1.7.5';
- szOID_PKCS_7_ENCRYPTED = '1.2.840.113549.1.7.6';
-
- szOID_PKCS_9_CONTENT_TYPE = '1.2.840.113549.1.9.3';
- szOID_PKCS_9_MESSAGE_DIGEST = '1.2.840.113549.1.9.4';
-
-//+-------------------------------------------------------------------------
-// Message types
-//--------------------------------------------------------------------------
-
-const
- CMSG_DATA = 1;
- CMSG_SIGNED = 2;
- CMSG_ENVELOPED = 3;
- CMSG_SIGNED_AND_ENVELOPED = 4;
- CMSG_HASHED = 5;
- CMSG_ENCRYPTED = 6;
-
-//+-------------------------------------------------------------------------
-// Message Type Bit Flags
-//--------------------------------------------------------------------------
-
- CMSG_ALL_FLAGS = (not ULONG(0));
- CMSG_DATA_FLAG = (1 shl CMSG_DATA);
- CMSG_SIGNED_FLAG = (1 shl CMSG_SIGNED);
- CMSG_ENVELOPED_FLAG = (1 shl CMSG_ENVELOPED);
- CMSG_SIGNED_AND_ENVELOPED_FLAG = (1 shl CMSG_SIGNED_AND_ENVELOPED);
- CMSG_HASHED_FLAG = (1 shl CMSG_HASHED);
- CMSG_ENCRYPTED_FLAG = (1 shl CMSG_ENCRYPTED);
-
-//+-------------------------------------------------------------------------
-// The message encode information (pvMsgEncodeInfo) is message type dependent
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_DATA: pvMsgEncodeInfo = NULL
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNED
-//
-// The pCertInfo in the CMSG_SIGNER_ENCODE_INFO provides the Issuer, SerialNumber
-// and PublicKeyInfo.Algorithm. The PublicKeyInfo.Algorithm implicitly
-// specifies the HashEncryptionAlgorithm to be used.
-//
-// The hCryptProv and dwKeySpec specify the private key to use. If dwKeySpec
-// == 0, then, defaults to AT_SIGNATURE.
-//
-// pvHashAuxInfo currently isn't used and must be set to NULL.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_SIGNER_ENCODE_INFO = ^CMSG_SIGNER_ENCODE_INFO;
- CMSG_SIGNER_ENCODE_INFO = record
- cbSize: DWORD;
- pCertInfo: PCERT_INFO;
- hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvHashAuxInfo: PVOID;
- cAuthAttr: DWORD;
- rgAuthAttr: PCRYPT_ATTRIBUTE;
- cUnauthAttr: DWORD;
- rgUnauthAttr: PCRYPT_ATTRIBUTE;
- end;
-
-type
- PCMSG_SIGNED_ENCODE_INFO = ^CMSG_SIGNED_ENCODE_INFO;
- CMSG_SIGNED_ENCODE_INFO = record
- cbSize: DWORD;
- cSigners: DWORD;
- rgSigners: PCMSG_SIGNER_ENCODE_INFO;
- cCertEncoded: DWORD;
- rgCertEncoded: PCERT_BLOB;
- cCrlEncoded: DWORD;
- rgCrlEncoded: PCRL_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_ENVELOPED
-//
-// The PCERT_INFO for the rgRecipients provides the Issuer, SerialNumber
-// and PublicKeyInfo. The PublicKeyInfo.Algorithm implicitly
-// specifies the KeyEncryptionAlgorithm to be used.
-//
-// The PublicKeyInfo.PublicKey in PCERT_INFO is used to encrypt the content
-// encryption key for the recipient.
-//
-// hCryptProv is used to do the content encryption, recipient key encryption
-// and export. The hCryptProv's private keys aren't used.
-//
-// Note: CAPI currently doesn't support more than one KeyEncryptionAlgorithm
-// per provider. This will need to be fixed.
-//
-// pvEncryptionAuxInfo currently isn't used and must be set to NULL.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_ENVELOPED_ENCODE_INFO = ^CMSG_ENVELOPED_ENCODE_INFO;
- CMSG_ENVELOPED_ENCODE_INFO = record
- cbSize: DWORD;
- hCryptProv: HCRYPTPROV;
- ContentEncryptionAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvEncryptionAuxInfo: PVOID;
- cRecipients: DWORD;
- rgpRecipients: PPCERT_INFO; // pointer to array of PCERT_INFO
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNED_AND_ENVELOPED
-//
-// For PKCS #7, a signed and enveloped message doesn't have the
-// signer's authenticated or unauthenticated attributes. Otherwise, a
-// combination of the CMSG_SIGNED_ENCODE_INFO and CMSG_ENVELOPED_ENCODE_INFO.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_SIGNED_AND_ENVELOPED_ENCODE_INFO = ^CMSG_SIGNED_AND_ENVELOPED_ENCODE_INFO;
- CMSG_SIGNED_AND_ENVELOPED_ENCODE_INFO = record
- cbSize: DWORD;
- SignedInfo: CMSG_SIGNED_ENCODE_INFO;
- EnvelopedInfo: CMSG_ENVELOPED_ENCODE_INFO;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_HASHED
-//
-// hCryptProv is used to do the hash. Doesn't need to use a private key.
-//
-// If fDetachedHash is set, then, the encoded message doesn't contain
-// any content (its treated as NULL Data)
-//
-// pvHashAuxInfo currently isn't used and must be set to NULL.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_HASHED_ENCODE_INFO = ^CMSG_HASHED_ENCODE_INFO;
- CMSG_HASHED_ENCODE_INFO = record
- cbSize: DWORD;
- hCryptProv: HCRYPTPROV;
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvHashAuxInfo: PVOID;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_ENCRYPTED
-//
-// The key used to encrypt the message is identified outside of the message
-// content (for example, password).
-//
-// The content input to CryptMsgUpdate has already been encrypted.
-//
-// pvEncryptionAuxInfo currently isn't used and must be set to NULL.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_ENCRYPTED_ENCODE_INFO = ^CMSG_ENCRYPTED_ENCODE_INFO;
- CMSG_ENCRYPTED_ENCODE_INFO = record
- cbSize: DWORD;
- ContentEncryptionAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvEncryptionAuxInfo: PVOID;
- end;
-
-//+-------------------------------------------------------------------------
-// This parameter allows messages to be of variable length with streamed
-// output.
-//
-// By default, messages are of a definite length and
-// CryptMsgGetParam(CMSG_CONTENT_PARAM) is
-// called to get the cryptographically processed content. Until closed,
-// the handle keeps a copy of the processed content.
-//
-// With streamed output, the processed content can be freed as its streamed.
-//
-// If the length of the content to be updated is known at the time of the
-// open, then, ContentLength should be set to that length. Otherwise, it
-// should be set to CMSG_INDEFINITE_LENGTH.
-//--------------------------------------------------------------------------
-
-type
- PFN_CMSG_STREAM_OUTPUT = function(
- const pvArg: PVOID;
- pbData: PBYTE;
- cbData: DWORD;
- fFinal: BOOL): BOOL; stdcall;
-
-const
- CMSG_INDEFINITE_LENGTH = ($FFFFFFFF);
-
-type
- PCMSG_STREAM_INFO = ^CMSG_STREAM_INFO;
- CMSG_STREAM_INFO = record
- cbContent: DWORD;
- pfnStreamOutput: PFN_CMSG_STREAM_OUTPUT;
- pvArg: PVOID;
- end;
-
-//+-------------------------------------------------------------------------
-// Open dwFlags
-//--------------------------------------------------------------------------
-
-const
- CMSG_BARE_CONTENT_FLAG = $00000001;
- CMSG_LENGTH_ONLY_FLAG = $00000002;
- CMSG_DETACHED_FLAG = $00000004;
- CMSG_AUTHENTICATED_ATTRIBUTES_FLAG = $00000008;
- CMSG_CONTENTS_OCTETS_FLAG = $00000010;
- CMSG_MAX_LENGTH_FLAG = $00000020;
-
-//+-------------------------------------------------------------------------
-// Open a cryptographic message for encoding
-//
-// For PKCS #7:
-// If the content to be passed to CryptMsgUpdate has already
-// been message encoded (the input to CryptMsgUpdate is the streamed output
-// from another message encode), then, the CMSG_ENCODED_CONTENT_INFO_FLAG should
-// be set in dwFlags. If not set, then, the inner ContentType is Data and
-// the input to CryptMsgUpdate is treated as the inner Data type's Content,
-// a string of bytes.
-// If CMSG_BARE_CONTENT_FLAG is specified for a streamed message,
-// the streamed output will not have an outer ContentInfo wrapper. This
-// makes it suitable to be streamed into an enclosing message.
-//
-// The pStreamInfo parameter needs to be set to stream the encoded message
-// output.
-//--------------------------------------------------------------------------
-
-function CryptMsgOpenToEncode(dwMsgEncodingType: DWORD;
- dwFlags: DWORD;
- dwMsgType: DWORD;
- pvMsgEncodeInfo: PVOID;
- pszInnerContentObjID: LPSTR; //OPTIONAL
- pStreamInfo: PCMSG_STREAM_INFO //OPTIONAL
- ): HCRYPTMSG; stdcall;
-
-//+-------------------------------------------------------------------------
-// Calculate the length of an encoded cryptographic message.
-//
-// Calculates the length of the encoded message given the
-// message type, encoding parameters and total length of
-// the data to be updated. Note, this might not be the exact length. However,
-// it will always be greater than or equal to the actual length.
-//--------------------------------------------------------------------------
-
-function CryptMsgCalculateEncodedLength(dwMsgEncodingType: DWORD;
- dwFlags: DWORD;
- dwMsgType: DWORD;
- pvMsgEncodeInfo: PVOID;
- pszInnerContentObjID: LPSTR; //OPTIONAL
- cbData: DWORD): DWORD; stdcall;
-
-//+-------------------------------------------------------------------------
-// Open a cryptographic message for decoding
-//
-// For PKCS #7: if the inner ContentType isn't Data, then, the inner
-// ContentInfo consisting of both ContentType and Content is output.
-// To also enable ContentInfo output for the Data ContentType, then,
-// the CMSG_ENCODED_CONTENT_INFO_FLAG should be set
-// in dwFlags. If not set, then, only the content portion of the inner
-// ContentInfo is output for the Data ContentType.
-//
-// To only calculate the length of the decoded message, set the
-// CMSG_LENGTH_ONLY_FLAG in dwFlags. After the final CryptMsgUpdate get the
-// MSG_CONTENT_PARAM. Note, this might not be the exact length. However,
-// it will always be greater than or equal to the actual length.
-//
-// hCryptProv specifies the crypto provider to use for hashing and/or
-// decrypting the message. For enveloped messages, hCryptProv also specifies
-// the private exchange key to use. For signed messages, hCryptProv is used
-// when CryptMsgVerifySigner is called.
-//
-// For enveloped messages, the pRecipientInfo contains the Issuer and
-// SerialNumber identifying the RecipientInfo in the message.
-//
-// Note, the pRecipientInfo should correspond to the provider's private
-// exchange key.
-//
-// If pRecipientInfo is NULL, then, the message isn't decrypted. To decrypt
-// the message, CryptMsgControl(CMSG_CTRL_DECRYPT) is called after the final
-// CryptMsgUpdate.
-//
-// The pStreamInfo parameter needs to be set to stream the decoded content
-// output. Note, if pRecipientInfo is NULL, then, the streamed output isn't
-// decrypted.
-//--------------------------------------------------------------------------
-
-function CryptMsgOpenToDecode(dwMsgEncodingType: DWORD;
- dwFlags: DWORD;
- dwMsgType: DWORD;
- hCryptProv: HCRYPTPROV;
- pRecipientInfo: PCERT_INFO; //OPTIONAL
- pStreamInfo: PCMSG_STREAM_INFO //OPTIONAL
- ): HCRYPTMSG; stdcall;
-
-//+-------------------------------------------------------------------------
-// Close a cryptographic message handle
-//
-// LastError is preserved unless FALSE is returned.
-//--------------------------------------------------------------------------
-
-function CryptMsgClose(hCryptMsg: HCRYPTMSG): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Update the content of a cryptographic message. Depending on how the
-// message was opened, the content is either encoded or decoded.
-//
-// This function is repetitively called to append to the message content.
-// fFinal is set to identify the last update. On fFinal, the encode/decode
-// is completed. The encoded/decoded content and the decoded parameters
-// are valid until the open and all duplicated handles are closed.
-//--------------------------------------------------------------------------
-
-function CryptMsgUpdate(hCryptMsg: HCRYPTMSG;
- const pbData: PBYTE;
- cbData: DWORD;
- fFinal: BOOL): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Perform a special "control" function after the final CryptMsgUpdate of a
-// encoded/decoded cryptographic message.
-//
-// The dwCtrlType parameter specifies the type of operation to be performed.
-//
-// The pvCtrlPara definition depends on the dwCtrlType value.
-//
-// See below for a list of the control operations and their pvCtrlPara
-// type definition.
-//--------------------------------------------------------------------------
-
-function CryptMsgControl(hCryptMsg: HCRYPTMSG;
- dwFlags: DWORD;
- dwCtrlType: DWORD;
- pvCtrlPara: PVOID): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Message control types
-//--------------------------------------------------------------------------
-
-const
- CMSG_CTRL_VERIFY_SIGNATURE = 1;
- CMSG_CTRL_DECRYPT = 2;
- CMSG_CTRL_VERIFY_HASH = 5;
- CMSG_CTRL_ADD_SIGNER = 6;
- CMSG_CTRL_DEL_SIGNER = 7;
- CMSG_CTRL_ADD_SIGNER_UNAUTH_ATTR = 8;
- CMSG_CTRL_DEL_SIGNER_UNAUTH_ATTR = 9;
- CMSG_CTRL_ADD_CERT = 10;
- CMSG_CTRL_DEL_CERT = 11;
- CMSG_CTRL_ADD_CRL = 12;
- CMSG_CTRL_DEL_CRL = 13;
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_VERIFY_SIGNATURE
-//
-// Verify the signature of a SIGNED or SIGNED_AND_ENVELOPED
-// message after it has been decoded.
-//
-// For a SIGNED_AND_ENVELOPED message, called after
-// CryptMsgControl(CMSG_CTRL_DECRYPT), if CryptMsgOpenToDecode was called
-// with a NULL pRecipientInfo.
-//
-// pvCtrlPara points to a CERT_INFO struct.
-//
-// The CERT_INFO contains the Issuer and SerialNumber identifying
-// the Signer of the message. The CERT_INFO also contains the
-// PublicKeyInfo
-// used to verify the signature. The cryptographic provider specified
-// in CryptMsgOpenToDecode is used.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_DECRYPT
-//
-// Decrypt an ENVELOPED or SIGNED_AND_ENVELOPED message after it has been
-// decoded.
-//
-// hCryptProv and dwKeySpec specify the private key to use. For dwKeySpec ==
-// 0, defaults to AT_KEYEXCHANGE.
-//
-// dwRecipientIndex is the index of the recipient in the message associated
-// with the hCryptProv's private key.
-//
-// This control function needs to be called, if you don't know the appropriate
-// recipient before calling CryptMsgOpenToDecode. After the final
-// CryptMsgUpdate, the list of recipients is obtained by iterating through
-// CMSG_RECIPIENT_INFO_PARAM. The recipient corresponding to a private
-// key owned by the caller is selected and passed to this function to decrypt
-// the message.
-//
-// Note, the message can only be decrypted once.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_CTRL_DECRYPT_PARA = ^CMSG_CTRL_DECRYPT_PARA;
- CMSG_CTRL_DECRYPT_PARA = record
- cbSize: DWORD;
- hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- dwRecipientIndex: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_VERIFY_HASH
-//
-// Verify the hash of a HASHED message after it has been decoded.
-//
-// Only the hCryptMsg parameter is used, to specify the message whose
-// hash is being verified.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_ADD_SIGNER
-//
-// Add a signer to a signed-data or signed-and-enveloped-data message.
-//
-// pvCtrlPara points to a CMSG_SIGNER_ENCODE_INFO.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_DEL_SIGNER
-//
-// Remove a signer from a signed-data or signed-and-enveloped-data message.
-//
-// pvCtrlPara points to a DWORD containing the 0-based index of the
-// signer to be removed.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_ADD_SIGNER_UNAUTH_ATTR
-//
-// Add an unauthenticated attribute to the SignerInfo of a signed-data or
-// signed-and-enveloped-data message.
-//
-// The unauthenticated attribute is input in the form of an encoded blob.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_CTRL_ADD_SIGNER_UNAUTH_ATTR_PARA = ^CMSG_CTRL_ADD_SIGNER_UNAUTH_ATTR_PARA;
- CMSG_CTRL_ADD_SIGNER_UNAUTH_ATTR_PARA = record
- cbSize: DWORD;
- dwSignerIndex: DWORD;
- blob: CRYPT_DATA_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_DEL_SIGNER_UNAUTH_ATTR
-//
-// Delete an unauthenticated attribute from the SignerInfo of a signed-data
-// or signed-and-enveloped-data message.
-//
-// The unauthenticated attribute to be removed is specified by
-// a 0-based index.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_CTRL_DEL_SIGNER_UNAUTH_ATTR_PARA = ^CMSG_CTRL_DEL_SIGNER_UNAUTH_ATTR_PARA;
- CMSG_CTRL_DEL_SIGNER_UNAUTH_ATTR_PARA = record
- cbSize: DWORD;
- dwSignerIndex: DWORD;
- dwUnauthAttrIndex: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_ADD_CERT
-//
-// Add a certificate to a signed-data or signed-and-enveloped-data message.
-//
-// pvCtrlPara points to a CRYPT_DATA_BLOB containing the certificate's
-// encoded bytes.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_DEL_CERT
-//
-// Delete a certificate from a signed-data or signed-and-enveloped-data
-// message.
-//
-// pvCtrlPara points to a DWORD containing the 0-based index of the
-// certificate to be removed.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_ADD_CRL
-//
-// Add a CRL to a signed-data or signed-and-enveloped-data message.
-//
-// pvCtrlPara points to a CRYPT_DATA_BLOB containing the CRL's
-// encoded bytes.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CTRL_DEL_CRL
-//
-// Delete a CRL from a signed-data or signed-and-enveloped-data message.
-//
-// pvCtrlPara points to a DWORD containing the 0-based index of the CRL
-// to be removed.
-//--------------------------------------------------------------------------
-
-
-//+-------------------------------------------------------------------------
-// Verify a countersignature, at the SignerInfo level.
-// ie. verify that pbSignerInfoCountersignature contains the encrypted
-// hash of the encryptedDigest field of pbSignerInfo.
-//
-// hCryptProv is used to hash the encryptedDigest field of pbSignerInfo.
-// The only fields referenced from pciCountersigner are SerialNumber, Issuer,
-// and SubjectPublicKeyInfo.
-//--------------------------------------------------------------------------
-
-function CryptMsgVerifyCountersignatureEncoded(hCryptProv: HCRYPTPROV;
- dwEncodingType: DWORD;
- pbSignerInfo: PBYTE;
- cbSignerInfo: DWORD;
- pbSignerInfoCountersignature: PBYTE;
- cbSignerInfoCountersignature: DWORD;
- pciCountersigner: PCERT_INFO): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Countersign an already-existing signature in a message
-//
-// dwIndex is a zero-based index of the SignerInfo to be countersigned.
-//--------------------------------------------------------------------------
-
-function CryptMsgCountersign(hCryptMsg: HCRYPTMSG;
- dwIndex: DWORD;
- cCountersigners: DWORD;
- rgCountersigners: PCMSG_SIGNER_ENCODE_INFO): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Countersign an already-existing signature (encoded SignerInfo).
-// Output an encoded SignerInfo blob, suitable for use as a countersignature
-// attribute in the unauthenticated attributes of a signed-data or
-// signed-and-enveloped-data message.
-//--------------------------------------------------------------------------
-
-function CryptMsgCountersignEncoded(dwEncodingType: DWORD;
- pbSignerInfo: PBYTE;
- cbSignerInfo: DWORD;
- cCountersigners: DWORD;
- rgCountersigners: PCMSG_SIGNER_ENCODE_INFO;
- pbCountersignature: PBYTE;
- pcbCountersignature: PDWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Get a parameter after encoding/decoding a cryptographic message. Called
-// after the final CryptMsgUpdate. Only the CMSG_CONTENT_PARAM and
-// CMSG_COMPUTED_HASH_PARAM are valid for an encoded message.
-//
-// For an encoded HASHED message, the CMSG_COMPUTED_HASH_PARAM can be got
-// before any CryptMsgUpdates to get its length.
-//
-// The pvData type definition depends on the dwParamType value.
-//
-// Elements pointed to by fields in the pvData structure follow the
-// structure. Therefore, *pcbData may exceed the size of the structure.
-//
-// Upon input, if *pcbData == 0, then, *pcbData is updated with the length
-// of the data and the pvData parameter is ignored.
-//
-// Upon return, *pcbData is updated with the length of the data.
-//
-// The OBJID BLOBs returned in the pvData structures point to
-// their still encoded representation. The appropriate functions
-// must be called to decode the information.
-//
-// See below for a list of the parameters to get.
-//--------------------------------------------------------------------------
-
-function CryptMsgGetParam(hCryptMsg: HCRYPTMSG;
- dwParamType: DWORD;
- dwIndex: DWORD;
- pvData: PVOID;
- pcbData: PDWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Get parameter types and their corresponding data structure definitions.
-//--------------------------------------------------------------------------
-
-const
- CMSG_TYPE_PARAM = 1;
- CMSG_CONTENT_PARAM = 2;
- CMSG_BARE_CONTENT_PARAM = 3;
- CMSG_INNER_CONTENT_TYPE_PARAM = 4;
- CMSG_SIGNER_COUNT_PARAM = 5;
- CMSG_SIGNER_INFO_PARAM = 6;
- CMSG_SIGNER_CERT_INFO_PARAM = 7;
- CMSG_SIGNER_HASH_ALGORITHM_PARAM = 8;
- CMSG_SIGNER_AUTH_ATTR_PARAM = 9;
- CMSG_SIGNER_UNAUTH_ATTR_PARAM = 10;
- CMSG_CERT_COUNT_PARAM = 11;
- CMSG_CERT_PARAM = 12;
- CMSG_CRL_COUNT_PARAM = 13;
- CMSG_CRL_PARAM = 14;
- CMSG_ENVELOPE_ALGORITHM_PARAM = 15;
- CMSG_RECIPIENT_COUNT_PARAM = 17;
- CMSG_RECIPIENT_INDEX_PARAM = 18;
- CMSG_RECIPIENT_INFO_PARAM = 19;
- CMSG_HASH_ALGORITHM_PARAM = 20;
- CMSG_HASH_DATA_PARAM = 21;
- CMSG_COMPUTED_HASH_PARAM = 22;
- CMSG_ENCRYPT_PARAM = 26;
- CMSG_ENCRYPTED_DIGEST = 27;
- CMSG_ENCODED_SIGNER = 28;
- CMSG_ENCODED_MESSAGE = 29;
-
-//+-------------------------------------------------------------------------
-// CMSG_TYPE_PARAM
-//
-// The type of the decoded message.
-//
-// pvData points to a DWORD
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CONTENT_PARAM
-//
-// The encoded content of a cryptographic message. Depending on how the
-// message was opened, the content is either the whole PKCS#7
-// message (opened to encode) or the inner content (opened to decode).
-// In the decode case, the decrypted content is returned, if enveloped.
-// If not enveloped, and if the inner content is of type DATA, the returned
-// data is the contents octets of the inner content.
-//
-// pvData points to the buffer receiving the content bytes
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_BARE_CONTENT_PARAM
-//
-// The encoded content of an encoded cryptographic message, without the
-// outer layer of ContentInfo. That is, only the encoding of the
-// ContentInfo.content field is returned.
-//
-// pvData points to the buffer receiving the content bytes
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_INNER_CONTENT_TYPE_PARAM
-//
-// The type of the inner content of a decoded cryptographic message,
-// in the form of a NULL-terminated object identifier string
-// (eg. "1.2.840.113549.1.7.1").
-//
-// pvData points to the buffer receiving the object identifier string
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNER_COUNT_PARAM
-//
-// Count of signers in a SIGNED or SIGNED_AND_ENVELOPED message
-//
-// pvData points to a DWORD
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNER_CERT_INFO_PARAM
-//
-// To get all the signers, repetitively call CryptMsgGetParam, with
-// dwIndex set to 0 .. SignerCount - 1.
-//
-// pvData points to a CERT_INFO struct.
-//
-// Only the following fields have been updated in the CERT_INFO struct:
-// Issuer and SerialNumber.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNER_INFO_PARAM
-//
-// To get all the signers, repetitively call CryptMsgGetParam, with
-// dwIndex set to 0 .. SignerCount - 1.
-//
-// pvData points to a CMSG_SIGNER_INFO struct.
-//--------------------------------------------------------------------------
-
-type
- PCMSG_SIGNER_INFO = ^CMSG_SIGNER_INFO;
- CMSG_SIGNER_INFO = record
- dwVersion: DWORD;
- Issuer: CERT_NAME_BLOB;
- SerialNumber: CRYPT_INTEGER_BLOB;
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- HashEncryptionAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- EncryptedHash: CRYPT_DATA_BLOB;
- AuthAttrs: CRYPT_ATTRIBUTES;
- UnauthAttrs: CRYPT_ATTRIBUTES;
- end;
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNER_HASH_ALGORITHM_PARAM
-//
-// This parameter specifies the HashAlgorithm that was used for the signer.
-//
-// Set dwIndex to iterate through all the signers.
-//
-// pvData points to an CRYPT_ALGORITHM_IDENTIFIER struct.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNER_AUTH_ATTR_PARAM
-//
-// The authenticated attributes for the signer.
-//
-// Set dwIndex to iterate through all the signers.
-//
-// pvData points to a CMSG_ATTR struct.
-//--------------------------------------------------------------------------
-
-type
- CMSG_ATTR = CRYPT_ATTRIBUTES;
- PCMSG_ATTR = ^CRYPT_ATTRIBUTES;
-
-//+-------------------------------------------------------------------------
-// CMSG_SIGNER_UNAUTH_ATTR_PARAM
-//
-// The unauthenticated attributes for the signer.
-//
-// Set dwIndex to iterate through all the signers.
-//
-// pvData points to a CMSG_ATTR struct.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CERT_COUNT_PARAM
-//
-// Count of certificates in a SIGNED or SIGNED_AND_ENVELOPED message.
-//
-// pvData points to a DWORD
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CERT_PARAM
-//
-// To get all the certificates, repetitively call CryptMsgGetParam, with
-// dwIndex set to 0 .. CertCount - 1.
-//
-// pvData points to an array of the certificate's encoded bytes.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CRL_COUNT_PARAM
-//
-// Count of CRLs in a SIGNED or SIGNED_AND_ENVELOPED message.
-//
-// pvData points to a DWORD
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_CRL_PARAM
-//
-// To get all the CRLs, repetitively call CryptMsgGetParam, with
-// dwIndex set to 0 .. CrlCount - 1.
-//
-// pvData points to an array of the CRL's encoded bytes.
-//--------------------------------------------------------------------------
-
-
-//+-------------------------------------------------------------------------
-// CMSG_ENVELOPE_ALGORITHM_PARAM
-//
-// The ContentEncryptionAlgorithm that was used in
-// an ENVELOPED or SIGNED_AND_ENVELOPED message.
-//
-// pvData points to an CRYPT_ALGORITHM_IDENTIFIER struct.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_RECIPIENT_COUNT_PARAM
-//
-// Count of recipients in an ENVELOPED or SIGNED_AND_ENVELOPED message.
-//
-// pvData points to a DWORD
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_RECIPIENT_INDEX_PARAM
-//
-// Index of the recipient used to decrypt an ENVELOPED or SIGNED_AND_ENVELOPED
-// message.
-//
-// pvData points to a DWORD
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_RECIPIENT_INFO_PARAM
-//
-// To get all the recipients, repetitively call CryptMsgGetParam, with
-// dwIndex set to 0 .. RecipientCount - 1.
-//
-// pvData points to a CERT_INFO struct.
-//
-// Only the following fields have been updated in the CERT_INFO struct:
-// Issuer, SerialNumber and PublicKeyAlgorithm. The PublicKeyAlgorithm
-// specifies the KeyEncryptionAlgorithm that was used.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_HASH_ALGORITHM_PARAM
-//
-// The HashAlgorithm in a HASHED message.
-//
-// pvData points to an CRYPT_ALGORITHM_IDENTIFIER struct.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_HASH_DATA_PARAM
-//
-// The hash in a HASHED message.
-//
-// pvData points to an array of bytes.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_COMPUTED_HASH_PARAM
-//
-// The computed hash for a HASHED message.
-//
-// This may be called for either an encoded or decoded message.
-// It also may be called before any encoded CryptMsgUpdates to get its length.
-//
-// pvData points to an array of bytes.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_ENCRYPT_PARAM
-//
-// The ContentEncryptionAlgorithm that was used in an ENCRYPTED message.
-//
-// pvData points to an CRYPT_ALGORITHM_IDENTIFIER struct.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CMSG_ENCODED_MESSAGE
-//
-// The full encoded message. This is useful in the case of a decoded
-// message which has been modified (eg. a signed-data or
-// signed-and-enveloped-data message which has been countersigned).
-//
-// pvData points to an array of the message's encoded bytes.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CryptMsg OID installable functions
-//--------------------------------------------------------------------------
-
-// If *phCryptProv is NULL upon entry, then, if supported, the installable
-// function should acquire a default provider and return. Note, its up
-// to the installable function to release at process detach.
-
-const
- CMSG_OID_GEN_ENCRYPT_KEY_FUNC = 'CryptMsgDllGenEncryptKey';
-
-type
- PFN_CMSG_GEN_ENCRYPT_KEY = function(phCryptProv: PHCRYPTPROV;
- paiEncrypt: PCRYPT_ALGORITHM_IDENTIFIER;
- pvEncryptAuxInfo: PVOID;
- pPublicKeyInfo: PCERT_PUBLIC_KEY_INFO;
- phEncryptKey: PHCRYPTKEY
- ): BOOL; stdcall;
-
-const
- CMSG_OID_EXPORT_ENCRYPT_KEY_FUNC = 'CryptMsgDllExportEncryptKey';
-
-type
- PFN_CMSG_EXPORT_ENCRYPT_KEY = function(hCryptProv: HCRYPTPROV;
- hEncryptKey: HCRYPTKEY;
- pPublicKeyInfo: PCERT_PUBLIC_KEY_INFO;
- pbData: PBYTE;
- pcbData: PDWORD): BOOL; stdcall;
-
-const
- CMSG_OID_IMPORT_ENCRYPT_KEY_FUNC = 'CryptMsgDllImportEncryptKey';
-
-type
- PFN_CMSG_IMPORT_ENCRYPT_KEY = function(hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- paiEncrypt: PCRYPT_ALGORITHM_IDENTIFIER;
- paiPubKey: PCRYPT_ALGORITHM_IDENTIFIER;
- pbEncodedKey: PBYTE;
- cbEncodedKey: DWORD;
- phEncryptKey: PHCRYPTKEY
- ): BOOL; stdcall;
-
-//+=========================================================================
-// Certificate Store Data Structures and APIs
-//==========================================================================
-
-//+-------------------------------------------------------------------------
-// In its most basic implementation, a cert store is simply a
-// collection of certificates and/or CRLs. This is the case when
-// a cert store is opened with all of its certificates and CRLs
-// coming from a PKCS #7 encoded cryptographic message.
-//
-// Nonetheless, all cert stores have the following properties:
-// - A public key may have more than one certificate in the store.
-// For example, a private/public key used for signing may have a
-// certificate issued for VISA and another issued for
-// Mastercard. Also, when a certificate is renewed there might
-// be more than one certificate with the same subject and
-// issuer.
-// - However, each certificate in the store is uniquely
-// identified by its Issuer and SerialNumber.
-// - There's an issuer of subject certificate relationship. A
-// certificate's issuer is found by doing a match of
-// pSubjectCert->Issuer with pIssuerCert->Subject.
-// The relationship is verified by using
-// the issuer's public key to verify the subject certificate's
-// signature. Note, there might be X.509 v3 extensions
-// to assist in finding the issuer certificate.
-// - Since issuer certificates might be renewed, a subject
-// certificate might have more than one issuer certificate.
-// - There's an issuer of CRL relationship. An
-// issuer's CRL is found by doing a match of
-// pIssuerCert->Subject with pCrl->Issuer.
-// The relationship is verified by using
-// the issuer's public key to verify the CRL's
-// signature. Note, there might be X.509 v3 extensions
-// to assist in finding the CRL.
-// - Since some issuers might support the X.509 v3 delta CRL
-// extensions, an issuer might have more than one CRL.
-// - The store shouldn't have any redundant certificates or
-// CRLs. There shouldn't be two certificates with the same
-// Issuer and SerialNumber. There shouldn't be two CRLs with
-// the same Issuer, ThisUpdate and NextUpdate.
-// - The store has NO policy or trust information. No
-// certificates are tagged as being "root". Its up to
-// the application to maintain a list of CertIds (Issuer +
-// SerialNumber) for certificates it trusts.
-// - The store might contain bad certificates and/or CRLs.
-// The issuer's signature of a subject certificate or CRL may
-// not verify. Certificates or CRLs may not satisfy their
-// time validity requirements. Certificates may be
-// revoked.
-//
-// In addition to the certificates and CRLs, properties can be
-// stored. There are two predefined property IDs for a user
-// certificate: CERT_KEY_PROV_HANDLE_PROP_ID and
-// CERT_KEY_PROV_INFO_PROP_ID. The CERT_KEY_PROV_HANDLE_PROP_ID
-// is a HCRYPTPROV handle to the private key assoicated
-// with the certificate. The CERT_KEY_PROV_INFO_PROP_ID contains
-// information to be used to call
-// CryptAcquireContext and CryptProvSetParam to get a handle
-// to the private key associated with the certificate.
-//
-// There exists two more predefined property IDs for certificates
-// and CRLs, CERT_SHA1_HASH_PROP_ID and CERT_MD5_HASH_PROP_ID.
-// If these properties don't already exist, then, a hash of the
-// content is computed. (CERT_HASH_PROP_ID maps to the default
-// hash algorithm, currently, CERT_SHA1_HASH_PROP_ID).
-//
-// There are additional APIs for creating certificate and CRL
-// contexts not in a store (CertCreateCertificateContext and
-// CertCreateCRLContext).
-//
-//--------------------------------------------------------------------------
-
-type
- HCERTSTORE = PVOID;
-
-//+-------------------------------------------------------------------------
-// Certificate context.
-//
-// A certificate context contains both the encoded and decoded representation
-// of a certificate. A certificate context returned by a cert store function
-// must be freed by calling the CertFreeCertificateContext function. The
-// CertDuplicateCertificateContext function can be called to make a duplicate
-// copy (which also must be freed by calling CertFreeCertificateContext).
-//--------------------------------------------------------------------------
-
-type
- PCERT_CONTEXT = ^CERT_CONTEXT;
- CERT_CONTEXT = record
- dwCertEncodingType: DWORD;
- pbCertEncoded: PBYTE;
- cbCertEncoded: DWORD;
- pCertInfo: PCERT_INFO;
- hCertStore: HCERTSTORE;
- end;
-
-type
- PCCERT_CONTEXT = ^CERT_CONTEXT;
-
-//+-------------------------------------------------------------------------
-// CRL context.
-//
-// A CRL context contains both the encoded and decoded representation
-// of a CRL. A CRL context returned by a cert store function
-// must be freed by calling the CertFreeCRLContext function. The
-// CertDuplicateCRLContext function can be called to make a duplicate
-// copy (which also must be freed by calling CertFreeCRLContext).
-//--------------------------------------------------------------------------
-
-type
- PCRL_CONTEXT = ^CRL_CONTEXT;
- CRL_CONTEXT = record
- dwCertEncodingType: DWORD;
- pbCrlEncoded: PBYTE;
- cbCrlEncoded: DWORD;
- pCrlInfo: PCRL_INFO;
- hCertStore: HCERTSTORE;
- end;
-
-type
- PCCRL_CONTEXT = ^CRL_CONTEXT;
-
-//+-------------------------------------------------------------------------
-// Certificate Trust List (CTL) context.
-//
-// A CTL context contains both the encoded and decoded representation
-// of a CTL. Also contains an opened HCRYPTMSG handle to the decoded
-// cryptographic signed message containing the CTL_INFO as its inner content.
-// pbCtlContent is the encoded inner content of the signed message.
-//
-// The CryptMsg APIs can be used to extract additional signer information.
-//--------------------------------------------------------------------------
-
-type
- PCTL_CONTEXT = ^CTL_CONTEXT;
- CTL_CONTEXT = record
- dwMsgAndCertEncodingType: DWORD;
- pbCtlEncoded: PBYTE;
- cbCtlEncoded: DWORD;
- pCtlInfo: PCTL_INFO;
- hCertStore: HCERTSTORE;
- hCryptMsg: HCRYPTMSG;
- pbCtlContent: PBYTE;
- cbCtlContent: DWORD;
- end;
-
-type
- PCCTL_CONTEXT = ^CTL_CONTEXT;
-
-//+-------------------------------------------------------------------------
-// Certificate, CRL and CTL property IDs
-//
-// See CertSetCertificateContextProperty or CertGetCertificateContextProperty
-// for usage information.
-//--------------------------------------------------------------------------
-
-const
- CERT_KEY_PROV_HANDLE_PROP_ID = 1;
- CERT_KEY_PROV_INFO_PROP_ID = 2;
- CERT_SHA1_HASH_PROP_ID = 3;
- CERT_MD5_HASH_PROP_ID = 4;
- CERT_HASH_PROP_ID = CERT_SHA1_HASH_PROP_ID;
- CERT_KEY_CONTEXT_PROP_ID = 5;
- CERT_KEY_SPEC_PROP_ID = 6;
- CERT_IE30_RESERVED_PROP_ID = 7;
- CERT_PUBKEY_HASH_RESERVED_PROP_ID = 8;
- CERT_ENHKEY_USAGE_PROP_ID = 9;
- CERT_CTL_USAGE_PROP_ID = CERT_ENHKEY_USAGE_PROP_ID;
- CERT_NEXT_UPDATE_LOCATION_PROP_ID = 10;
- CERT_FRIENDLY_NAME_PROP_ID = 11;
- CERT_PVK_FILE_PROP_ID = 12;
-// Note, 32 - 34 are reserved for the CERT, CRL and CTL file element IDs.
- CERT_FIRST_RESERVED_PROP_ID = 13;
-
- CERT_LAST_RESERVED_PROP_ID = $00007FFF;
- CERT_FIRST_USER_PROP_ID = $00008000;
- CERT_LAST_USER_PROP_ID = $0000FFFF;
-
-function IS_CERT_HASH_PROP_ID(X: DWORD): BOOL;
-
-//+-------------------------------------------------------------------------
-// Cryptographic Key Provider Information
-//
-// CRYPT_KEY_PROV_INFO defines the CERT_KEY_PROV_INFO_PROP_ID's pvData.
-//
-// The CRYPT_KEY_PROV_INFO fields are passed to CryptAcquireContext
-// to get a HCRYPTPROV handle. The optional CRYPT_KEY_PROV_PARAM fields are
-// passed to CryptProvSetParam to further initialize the provider.
-//
-// The dwKeySpec field identifies the private key to use from the container
-// For example, AT_KEYEXCHANGE or AT_SIGNATURE.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_KEY_PROV_PARAM = ^CRYPT_KEY_PROV_PARAM;
- CRYPT_KEY_PROV_PARAM = record
- dwParam: DWORD;
- pbData: PBYTE;
- cbData: DWORD;
- dwFlags: DWORD;
- end;
-
-type
- PCRYPT_KEY_PROV_INFO = ^CRYPT_KEY_PROV_INFO;
- CRYPT_KEY_PROV_INFO = record
- pwszContainerName: LPWSTR;
- pwszProvName: LPWSTR;
- dwProvType: DWORD;
- dwFlags: DWORD;
- cProvParam: DWORD;
- rgProvParam: PCRYPT_KEY_PROV_PARAM;
- dwKeySpec: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// The following flag should be set in the above dwFlags to enable
-// a CertSetCertificateContextProperty(CERT_KEY_CONTEXT_PROP_ID) after a
-// CryptAcquireContext is done in the Sign or Decrypt Message functions.
-//
-// The following define must not collide with any of the
-// CryptAcquireContext dwFlag defines.
-//--------------------------------------------------------------------------
-
-const
- CERT_SET_KEY_PROV_HANDLE_PROP_ID = $00000001;
- CERT_SET_KEY_CONTEXT_PROP_ID = $00000001;
-
-//+-------------------------------------------------------------------------
-// Certificate Key Context
-//
-// CERT_KEY_CONTEXT defines the CERT_KEY_CONTEXT_PROP_ID's pvData.
-//--------------------------------------------------------------------------
-
-type
- PCERT_KEY_CONTEXT = ^CERT_KEY_CONTEXT;
- CERT_KEY_CONTEXT = record
- cbSize: DWORD; // sizeof(CERT_KEY_CONTEXT)
- hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// Certificate Store Provider Types
-//--------------------------------------------------------------------------
-
-const
- CERT_STORE_PROV_MSG = (LPCSTR(1));
- CERT_STORE_PROV_MEMORY = (LPCSTR(2));
- CERT_STORE_PROV_FILE = (LPCSTR(3));
- CERT_STORE_PROV_REG = (LPCSTR(4));
-
- CERT_STORE_PROV_PKCS7 = (LPCSTR(5));
- CERT_STORE_PROV_SERIALIZED = (LPCSTR(6));
- CERT_STORE_PROV_FILENAME_A = (LPCSTR(7));
- CERT_STORE_PROV_FILENAME_W = (LPCSTR(8));
- CERT_STORE_PROV_FILENAME = CERT_STORE_PROV_FILENAME_W;
- CERT_STORE_PROV_SYSTEM_A = (LPCSTR(9));
- CERT_STORE_PROV_SYSTEM_W = (LPCSTR(10));
- CERT_STORE_PROV_SYSTEM = CERT_STORE_PROV_SYSTEM_W;
-
- sz_CERT_STORE_PROV_MEMORY = 'Memory';
- sz_CERT_STORE_PROV_FILENAME_W = 'File';
- sz_CERT_STORE_PROV_FILENAME = sz_CERT_STORE_PROV_FILENAME_W;
- sz_CERT_STORE_PROV_SYSTEM_W = 'System';
- sz_CERT_STORE_PROV_SYSTEM = sz_CERT_STORE_PROV_SYSTEM_W;
- sz_CERT_STORE_PROV_PKCS7 = 'PKCS7';
- sz_CERT_STORE_PROV_SERIALIZED = 'Serialized';
-
-//+-------------------------------------------------------------------------
-// Certificate Store verify/results flags
-//--------------------------------------------------------------------------
-
- CERT_STORE_SIGNATURE_FLAG = $00000001;
- CERT_STORE_TIME_VALIDITY_FLAG = $00000002;
- CERT_STORE_REVOCATION_FLAG = $00000004;
- CERT_STORE_NO_CRL_FLAG = $00010000;
- CERT_STORE_NO_ISSUER_FLAG = $00020000;
-
-//+-------------------------------------------------------------------------
-// Certificate Store open/property flags
-//--------------------------------------------------------------------------
-
- CERT_STORE_NO_CRYPT_RELEASE_FLAG = $00000001;
- CERT_STORE_READONLY_FLAG = $00008000;
-
-//+-------------------------------------------------------------------------
-// Certificate Store Provider flags are in the HiWord (0xFFFF0000)
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// Certificate System Store Flag Values
-//--------------------------------------------------------------------------
-// Location of the system store in the registry:
-// HKEY_CURRENT_USER or HKEY_LOCAL_MACHINE
- CERT_SYSTEM_STORE_LOCATION_MASK = $00030000;
- CERT_SYSTEM_STORE_CURRENT_USER = $00010000;
- CERT_SYSTEM_STORE_LOCAL_MACHINE = $00020000;
-
-//+-------------------------------------------------------------------------
-// Open the cert store using the specified store provider.
-//
-// hCryptProv specifies the crypto provider to use to create the hash
-// properties or verify the signature of a subject certificate or CRL.
-// The store doesn't need to use a private
-// key. If the CERT_STORE_NO_CRYPT_RELEASE_FLAG isn't set, hCryptProv is
-// CryptReleaseContext'ed on the final CertCloseStore.
-//
-// Note, if the open fails, hCryptProv is released if it would have been
-// released when the store was closed.
-//
-// If hCryptProv is zero, then, the default provider and container for the
-// PROV_RSA_FULL provider type is CryptAcquireContext'ed with
-// CRYPT_VERIFYCONTEXT access. The CryptAcquireContext is deferred until
-// the first create hash or verify signature. In addition, once acquired,
-// the default provider isn't released until process exit when crypt32.dll
-// is unloaded. The acquired default provider is shared across all stores
-// and threads.
-//
-// After initializing the store's data structures and optionally acquiring a
-// default crypt provider, CertOpenStore calls CryptGetOIDFunctionAddress to
-// get the address of the CRYPT_OID_OPEN_STORE_PROV_FUNC specified by
-// lpszStoreProvider. Since a store can contain certificates with different
-// encoding types, CryptGetOIDFunctionAddress is called with dwEncodingType
-// set to 0 and not the dwEncodingType passed to CertOpenStore.
-// PFN_CERT_DLL_OPEN_STORE_FUNC specifies the signature of the provider's
-// open function. This provider open function is called to load the
-// store's certificates and CRLs. Optionally, the provider may return an
-// array of functions called before a certificate or CRL is added or deleted
-// or has a property that is set.
-//
-// Use of the dwEncodingType parameter is provider dependent. The type
-// definition for pvPara also depends on the provider.
-//
-// Store providers are installed or registered via
-// CryptInstallOIDFunctionAddress or CryptRegisterOIDFunction, where,
-// dwEncodingType is 0 and pszFuncName is CRYPT_OID_OPEN_STORE_PROV_FUNC.
-//
-// Here's a list of the predefined provider types (implemented in crypt32.dll):
-//
-// CERT_STORE_PROV_MSG:
-// Gets the certificates and CRLs from the specified cryptographic message.
-// dwEncodingType contains the message and certificate encoding types.
-// The message's handle is passed in pvPara. Given,
-// HCRYPTMSG hCryptMsg; pvPara = (const void *) hCryptMsg;
-//
-// CERT_STORE_PROV_MEMORY
-// sz_CERT_STORE_PROV_MEMORY:
-// Opens a store without any initial certificates or CRLs. pvPara
-// isn't used.
-//
-// CERT_STORE_PROV_FILE:
-// Reads the certificates and CRLs from the specified file. The file's
-// handle is passed in pvPara. Given,
-// HANDLE hFile; pvPara = (const void *) hFile;
-//
-// For a successful open, the file pointer is advanced past
-// the certificates and CRLs and their properties read from the file.
-// Note, only expects a serialized store and not a file containing
-// either a PKCS #7 signed message or a single encoded certificate.
-//
-// The hFile isn't closed.
-//
-// CERT_STORE_PROV_REG:
-// Reads the certificates and CRLs from the registry. The registry's
-// key handle is passed in pvPara. Given,
-// HKEY hKey; pvPara = (const void *) hKey;
-//
-// The input hKey isn't closed by the provider. Before returning, the
-// provider opens/creates "Certificates" and "CRLs" subkeys. These
-// subkeys remain open until the store is closed.
-//
-// If CERT_STORE_READONLY_FLAG is set, then, the registry subkeys are
-// RegOpenKey'ed with KEY_READ_ACCESS. Otherwise, the registry subkeys
-// are RegCreateKey'ed with KEY_ALL_ACCESS.
-//
-// This provider returns the array of functions for reading, writing,
-// deleting and property setting certificates and CRLs.
-// Any changes to the opened store are immediately pushed through to
-// the registry. However, if CERT_STORE_READONLY_FLAG is set, then,
-// writing, deleting or property setting results in a
-// SetLastError(E_ACCESSDENIED).
-//
-// Note, all the certificates and CRLs are read from the registry
-// when the store is opened. The opened store serves as a write through
-// cache. However, the opened store isn't notified of other changes
-// made to the registry. Note, RegNotifyChangeKeyValue is supported
-// on NT but not supported on Windows95.
-//
-// CERT_STORE_PROV_PKCS7:
-// sz_CERT_STORE_PROV_PKCS7:
-// Gets the certificates and CRLs from the encoded PKCS #7 signed message.
-// dwEncodingType specifies the message and certificate encoding types.
-// The pointer to the encoded message's blob is passed in pvPara. Given,
-// CRYPT_DATA_BLOB EncodedMsg; pvPara = (const void *) &EncodedMsg;
-//
-// Note, also supports the IE3.0 special version of a
-// PKCS #7 signed message referred to as a "SPC" formatted message.
-//
-// CERT_STORE_PROV_SERIALIZED:
-// sz_CERT_STORE_PROV_SERIALIZED:
-// Gets the certificates and CRLs from memory containing a serialized
-// store. The pointer to the serialized memory blob is passed in pvPara.
-// Given,
-// CRYPT_DATA_BLOB Serialized; pvPara = (const void *) &Serialized;
-//
-// CERT_STORE_PROV_FILENAME_A:
-// CERT_STORE_PROV_FILENAME_W:
-// CERT_STORE_PROV_FILENAME:
-// sz_CERT_STORE_PROV_FILENAME_W:
-// sz_CERT_STORE_PROV_FILENAME:
-// Opens the file and first attempts to read as a serialized store. Then,
-// as a PKCS #7 signed message. Finally, as a single encoded certificate.
-// The filename is passed in pvPara. The filename is UNICODE for the
-// "_W" provider and ASCII for the "_A" provider. For "_W": given,
-// LPCWSTR pwszFilename; pvPara = (const void *) pwszFilename;
-// For "_A": given,
-// LPCSTR pszFilename; pvPara = (const void *) pszFilename;
-//
-// Note, the default (without "_A" or "_W") is unicode.
-//
-// Note, also supports the reading of the IE3.0 special version of a
-// PKCS #7 signed message file referred to as a "SPC" formatted file.
-//
-// CERT_STORE_PROV_SYSTEM_A:
-// CERT_STORE_PROV_SYSTEM_W:
-// CERT_STORE_PROV_SYSTEM:
-// sz_CERT_STORE_PROV_SYSTEM_W:
-// sz_CERT_STORE_PROV_SYSTEM:
-// Opens the specified "system" store. Currently, all the system
-// stores are stored in the registry. The upper word of the dwFlags
-// parameter is used to specify the location of the system store. It
-// should be set to either CERT_SYSTEM_STORE_CURRENT_USER for
-// HKEY_CURRENT_USER or CERT_SYSTEM_STORE_LOCAL_MACHINE for
-// HKEY_LOCAL_MACHINE.
-//
-// After opening the registry key associated with the system name,
-// the CERT_STORE_PROV_REG provider is called to complete the open.
-//
-// The system store name is passed in pvPara. The name is UNICODE for the
-// "_W" provider and ASCII for the "_A" provider. For "_W": given,
-// LPCWSTR pwszSystemName; pvPara = (const void *) pwszSystemName;
-// For "_A": given,
-// LPCSTR pszSystemName; pvPara = (const void *) pszSystemName;
-//
-// Note, the default (without "_A" or "_W") is UNICODE.
-//
-// If CERT_STORE_READONLY_FLAG is set, then, the registry is
-// RegOpenKey'ed with KEY_READ_ACCESS. Otherwise, the registry is
-// RegCreateKey'ed with KEY_ALL_ACCESS.
-//
-// The "root" store is treated differently from the other system
-// stores. Before a certificate is added to or deleted from the "root"
-// store, a pop up message box is displayed. The certificate's subject,
-// issuer, serial number, time validity, sha1 and md5 thumbprints are
-// displayed. The user is given the option to do the add or delete.
-// If they don't allow the operation, LastError is set to E_ACCESSDENIED.
-//--------------------------------------------------------------------------
-
-function CertOpenStore(lpszStoreProvider: LPCSTR;
- dwEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- dwFlags: DWORD;
- const pvPara: PVOID): HCERTSTORE; stdcall;
-
-//+-------------------------------------------------------------------------
-// OID Installable Certificate Store Provider Data Structures
-//--------------------------------------------------------------------------
-
-// Handle returned by the store provider when opened.
-type
- HCERTSTOREPROV = PVOID;
-
-// Store Provider OID function's pszFuncName.
-const
- CRYPT_OID_OPEN_STORE_PROV_FUNC = 'CertDllOpenStoreProv';
-
-// Note, the Store Provider OID function's dwEncodingType is always 0.
-
-// The following information is returned by the provider when opened. Its
-// zeroed with cbSize set before the provider is called. If the provider
-// doesn't need to be called again after the open it doesn't need to
-// make any updates to the CERT_STORE_PROV_INFO.
-
-type
- PCERT_STORE_PROV_INFO = ^CERT_STORE_PROV_INFO;
- CERT_STORE_PROV_INFO = record
- cbSize: DWORD;
- cStoreProvFunc: DWORD;
- rgpvStoreProvFunc: PPVOID;
- hStoreProv: HCERTSTOREPROV;
- dwStoreProvFlags: DWORD;
- end;
-
-// Definition of the store provider's open function.
-//
-// *pStoreProvInfo has been zeroed before the call.
-//
-// Note, pStoreProvInfo->cStoreProvFunc should be set last. Once set,
-// all subsequent store calls, such as CertAddSerializedElementToStore will
-// call the appropriate provider callback function.
-
-type
- PFN_CERT_DLL_OPEN_STORE_PROV_FUNC = function(lpszStoreProvider: LPCSTR;
- dwEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- dwFlags: DWORD;
- const pvPara: PVOID;
- hCertStore: HCERTSTORE;
- pStoreProvInfo: PCERT_STORE_PROV_INFO
- ): BOOL; stdcall;
-
-// Indices into the store provider's array of callback functions.
-//
-// The provider can implement any subset of the following functions. It
-// sets pStoreProvInfo->cStoreProvFunc to the last index + 1 and any
-// preceding not implemented functions to NULL.
-
-const
- CERT_STORE_PROV_CLOSE_FUNC = 0;
- CERT_STORE_PROV_READ_CERT_FUNC = 1;
- CERT_STORE_PROV_WRITE_CERT_FUNC = 2;
- CERT_STORE_PROV_DELETE_CERT_FUNC = 3;
- CERT_STORE_PROV_SET_CERT_PROPERTY_FUNC = 4;
- CERT_STORE_PROV_READ_CRL_FUNC = 5;
- CERT_STORE_PROV_WRITE_CRL_FUNC = 6;
- CERT_STORE_PROV_DELETE_CRL_FUNC = 7;
- CERT_STORE_PROV_SET_CRL_PROPERTY_FUNC = 8;
- CERT_STORE_PROV_READ_CTL_FUNC = 9;
- CERT_STORE_PROV_WRITE_CTL_FUNC = 10;
- CERT_STORE_PROV_DELETE_CTL_FUNC = 11;
- CERT_STORE_PROV_SET_CTL_PROPERTY_FUNC = 12;
-
-// Called by CertCloseStore when the store's reference count is
-// decremented to 0.
-
-type
- PFN_CERT_STORE_PROV_CLOSE = procedure(hStoreProv: HCERTSTOREPROV;
- dwFlags: DWORD); stdcall;
-
-// Currently not called directly by the store APIs. However, may be exported
-// to support other providers based on it.
-//
-// Reads the provider's copy of the certificate context. If it exists,
-// creates a new certificate context.
-
-type
- PFN_CERT_STORE_PROV_READ_CERT = function(hStoreProv: HCERTSTOREPROV;
- pStoreCertContext: PCCERT_CONTEXT;
- dwFlags: DWORD;
- var ppProvCertContext: PCCERT_CONTEXT
- ): BOOL; stdcall;
-
-const
- CERT_STORE_PROV_WRITE_ADD_FLAG = $1;
-
-// Called by CertAddEncodedCertificateToStore,
-// CertAddCertificateContextToStore or CertAddSerializedElementToStore before
-// adding to the store. The CERT_STORE_PROV_WRITE_ADD_FLAG is set. In
-// addition to the encoded certificate, the added pCertContext might also
-// have properties.
-//
-// Returns TRUE if its OK to update the the store.
-
-type
- PFN_CERT_STORE_PROV_WRITE_CERT = function(hStoreProv: HCERTSTOREPROV;
- pCertContext: PCCERT_CONTEXT;
- dwFlags: DWORD): BOOL; stdcall;
-
-// Called by CertDeleteCertificateFromStore before deleting from the
-// store.
-//
-// Returns TRUE if its OK to delete from the store.
-
-type
- PFN_CERT_STORE_PROV_DELETE_CERT = function(hStoreProv: HCERTSTOREPROV;
- pCertContext: PCCERT_CONTEXT;
- dwFlags: DWORD): BOOL; stdcall;
-
-// Called by CertSetCertificateContextProperty before setting the
-// certificate's property. Also called by CertGetCertificateContextProperty,
-// when getting a hash property that needs to be created and then persisted
-// via the set.
-//
-// Upon input, the property hasn't been set for the pCertContext parameter.
-//
-// Returns TRUE if its OK to set the property.
-
-type
- PFN_CERT_STORE_PROV_SET_CERT_PROPERTY = function(hStoreProv: HCERTSTOREPROV;
- pCertContext: PCCERT_CONTEXT;
- dwPropId: DWORD;
- dwFlags: DWORD;
- const pvData: PVOID
- ): BOOL; stdcall;
-
-// Currently not called directly by the store APIs. However, may be exported
-// to support other providers based on it.
-//
-// Reads the provider's copy of the CRL context. If it exists,
-// creates a new CRL context.
-
-type
- PFN_CERT_STORE_PROV_READ_CRL = function(hStoreProv: HCERTSTOREPROV;
- pStoreCrlContext: PCCRL_CONTEXT;
- dwFlags: DWORD;
- var ppProvCrlContext: PCCRL_CONTEXT
- ): BOOL; stdcall;
-
-// Called by CertAddEncodedCRLToStore,
-// CertAddCRLContextToStore or CertAddSerializedElementToStore before
-// adding to the store. The CERT_STORE_PROV_WRITE_ADD_FLAG is set. In
-// addition to the encoded CRL, the added pCertContext might also
-// have properties.
-//
-// Returns TRUE if its OK to update the the store.
-
-type
- PFN_CERT_STORE_PROV_WRITE_CRL = function(hStoreProv: HCERTSTOREPROV;
- pCrlContext: PCCRL_CONTEXT;
- dwFlags: DWORD): BOOL; stdcall;
-
-// Called by CertDeleteCRLFromStore before deleting from the store.
-//
-// Returns TRUE if its OK to delete from the store.
-
-type
- PFN_CERT_STORE_PROV_DELETE_CRL = function(hStoreProv: HCERTSTOREPROV;
- pCrlContext: PCCRL_CONTEXT;
- dwFlags: DWORD): BOOL; stdcall;
-
-// Called by CertDeleteCRLFromStore before deleting from the store.
-//
-// Returns TRUE if its OK to delete from the store.
-
-type
- PFN_CERT_STORE_PROV_SET_CRL_PROPERTY = function(hStoreProv: HCERTSTOREPROV;
- pCrlContext: PCCRL_CONTEXT;
- dwPropId: DWORD;
- dwFlags: DWORD;
- pvData: PVOID): BOOL; stdcall;
-
-// Currently not called directly by the store APIs. However, may be exported
-// to support other providers based on it.
-//
-// Reads the provider's copy of the CTL context. If it exists,
-// creates a new CTL context.
-
-type
- PFN_CERT_STORE_PROV_READ_CTL = function(hStoreProv: HCERTSTOREPROV;
- pStoreCtlContext: PCCTL_CONTEXT;
- dwFlags: DWORD;
- var ppProvCtlContext: PCCTL_CONTEXT
- ): BOOL; stdcall;
-
-// Called by CertAddEncodedCTLToStore,
-// CertAddCTLContextToStore or CertAddSerializedElementToStore before
-// adding to the store. The CERT_STORE_PROV_WRITE_ADD_FLAG is set. In
-// addition to the encoded CTL, the added pCertContext might also
-// have properties.
-//
-// Returns TRUE if its OK to update the the store.
-
-type
- PFN_CERT_STORE_PROV_WRITE_CTL = function(hStoreProv: HCERTSTOREPROV;
- pCtlContext: PCCTL_CONTEXT;
- dwFlags: DWORD): BOOL; stdcall;
-
-// Called by CertDeleteCTLFromStore before deleting from the store.
-//
-// Returns TRUE if its OK to delete from the store.
-
-type
- PFN_CERT_STORE_PROV_DELETE_CTL = function(hStoreProv: HCERTSTOREPROV;
- pCtlContext: PCCTL_CONTEXT;
- dwFlags: DWORD): BOOL; stdcall;
-
-// Called by CertSetCTLContextProperty before setting the
-// CTL's property. Also called by CertGetCTLContextProperty,
-// when getting a hash property that needs to be created and then persisted
-// via the set.
-//
-// Upon input, the property hasn't been set for the pCtlContext parameter.
-//
-// Returns TRUE if its OK to set the property.
-
-type
- PFN_CERT_STORE_PROV_SET_CTL_PROPERTY = function(hStoreProv: HCERTSTOREPROV;
- pCtlContext: PCCTL_CONTEXT;
- dwPropId: DWORD;
- dwFlags: DWORD;
- const pvData: PVOID
- ): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Duplicate a cert store handle
-//--------------------------------------------------------------------------
-
-function CertDuplicateStore(hCertStore: HCERTSTORE): HCERTSTORE; stdcall;
-
-const CERT_STORE_SAVE_AS_STORE = 1;
-const CERT_STORE_SAVE_AS_PKCS7 = 2;
-
-const CERT_STORE_SAVE_TO_FILE = 1;
-const CERT_STORE_SAVE_TO_MEMORY = 2;
-const CERT_STORE_SAVE_TO_FILENAME_A = 3;
-const CERT_STORE_SAVE_TO_FILENAME_W = 4;
-const CERT_STORE_SAVE_TO_FILENAME = CERT_STORE_SAVE_TO_FILENAME_W;
-
-//+-------------------------------------------------------------------------
-// Save the cert store. Extended version with lots of options.
-//
-// According to the dwSaveAs parameter, the store can be saved as a
-// serialized store (CERT_STORE_SAVE_AS_STORE) containing properties in
-// addition to encoded certificates, CRLs and CTLs or the store can be saved
-// as a PKCS #7 signed message (CERT_STORE_SAVE_AS_PKCS7) which doesn't
-// include the properties or CTLs.
-//
-// Note, the CERT_KEY_CONTEXT_PROP_ID property (and its
-// CERT_KEY_PROV_HANDLE_PROP_ID or CERT_KEY_SPEC_PROP_ID) isn't saved into
-// a serialized store.
-//
-// For CERT_STORE_SAVE_AS_PKCS7, the dwEncodingType specifies the message
-// encoding type. The dwEncodingType parameter isn't used for
-// CERT_STORE_SAVE_AS_STORE.
-//
-// The dwFlags parameter currently isn't used and should be set to 0.
-//
-// The dwSaveTo and pvSaveToPara parameters specify where to save the
-// store as follows:
-// CERT_STORE_SAVE_TO_FILE:
-// Saves to the specified file. The file's handle is passed in
-// pvSaveToPara. Given,
-// HANDLE hFile; pvSaveToPara = (void *) hFile;
-//
-// For a successful save, the file pointer is positioned after the
-// last write.
-//
-// CERT_STORE_SAVE_TO_MEMORY:
-// Saves to the specified memory blob. The pointer to
-// the memory blob is passed in pvSaveToPara. Given,
-// CRYPT_DATA_BLOB SaveBlob; pvSaveToPara = (void *) &SaveBlob;
-// Upon entry, the SaveBlob's pbData and cbData need to be initialized.
-// Upon return, cbData is updated with the actual length.
-// For a length only calculation, pbData should be set to NULL. If
-// pbData is non-NULL and cbData isn't large enough, FALSE is returned
-// with a last error of ERRROR_MORE_DATA.
-//
-// CERT_STORE_SAVE_TO_FILENAME_A:
-// CERT_STORE_SAVE_TO_FILENAME_W:
-// CERT_STORE_SAVE_TO_FILENAME:
-// Opens the file and saves to it. The filename is passed in pvSaveToPara.
-// The filename is UNICODE for the "_W" option and ASCII for the "_A"
-// option. For "_W": given,
-// LPCWSTR pwszFilename; pvSaveToPara = (void *) pwszFilename;
-// For "_A": given,
-// LPCSTR pszFilename; pvSaveToPara = (void *) pszFilename;
-//
-// Note, the default (without "_A" or "_W") is UNICODE.
-//
-//--------------------------------------------------------------------------
-
-function CertSaveStore(hCertStore: HCERTSTORE;
- dwEncodingType: DWORD;
- dwSaveAs: DWORD;
- dwSaveTo: DWORD;
- pvSaveToPara: PVOID;
- dwFlags: DWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Certificate Store close flags
-//--------------------------------------------------------------------------
-const CERT_CLOSE_STORE_FORCE_FLAG = $00000001;
-const CERT_CLOSE_STORE_CHECK_FLAG = $00000002;
-
-//+-------------------------------------------------------------------------
-// Close a cert store handle.
-//
-// There needs to be a corresponding close for each open and duplicate.
-//
-// Even on the final close, the cert store isn't freed until all of its
-// certificate and CRL contexts have also been freed.
-//
-// On the final close, the hCryptProv passed to CertStoreOpen is
-// CryptReleaseContext'ed.
-//
-// To force the closure of the store with all of its memory freed, set the
-// CERT_STORE_CLOSE_FORCE_FLAG. This flag should be set when the caller does
-// its own reference counting and wants everything to vanish.
-//
-// To check if all the store's certificates and CRLs have been freed and that
-// this is the last CertCloseStore, set the CERT_CLOSE_STORE_CHECK_FLAG. If
-// set and certs, CRLs or stores still need to be freed/closed, FALSE is
-// returned with LastError set to CRYPT_E_PENDING_CLOSE. Note, for FALSE,
-// the store is still closed. This is a diagnostic flag.
-//
-// LastError is preserved unless CERT_CLOSE_STORE_CHECK_FLAG is set and FALSE
-// is returned.
-//--------------------------------------------------------------------------
-
-function CertCloseStore(hCertStore: HCERTSTORE; dwFlags: DWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Get the subject certificate context uniquely identified by its Issuer and
-// SerialNumber from the store.
-//
-// If the certificate isn't found, NULL is returned. Otherwise, a pointer to
-// a read only CERT_CONTEXT is returned. CERT_CONTEXT must be freed by calling
-// CertFreeCertificateContext. CertDuplicateCertificateContext can be called to make a
-// duplicate.
-//
-// The returned certificate might not be valid. Normally, it would be
-// verified when getting its issuer certificate (CertGetIssuerCertificateFromStore).
-//--------------------------------------------------------------------------
-
-function CertGetSubjectCertificateFromStore(hCertStore: HCERTSTORE;
- dwCertEncodingType: DWORD;
- pCertId: PCERT_INFO // Only the Issuer and SerialNumber
- ): PCCERT_CONTEXT; stdcall; // fields are used
-
-//+-------------------------------------------------------------------------
-// Enumerate the certificate contexts in the store.
-//
-// If a certificate isn't found, NULL is returned.
-// Otherwise, a pointer to a read only CERT_CONTEXT is returned. CERT_CONTEXT
-// must be freed by calling CertFreeCertificateContext or is freed when passed as the
-// pPrevCertContext on a subsequent call. CertDuplicateCertificateContext
-// can be called to make a duplicate.
-//
-// pPrevCertContext MUST BE NULL to enumerate the first
-// certificate in the store. Successive certificates are enumerated by setting
-// pPrevCertContext to the CERT_CONTEXT returned by a previous call.
-//
-// NOTE: a NON-NULL pPrevCertContext is always CertFreeCertificateContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-
-function CertEnumCertificatesInStore(hCertStore: HCERTSTORE;
- pPrevCertContext: PCCERT_CONTEXT
- ): PCCERT_CONTEXT; stdcall;
-
-//+-------------------------------------------------------------------------
-// Find the first or next certificate context in the store.
-//
-// The certificate is found according to the dwFindType and its pvFindPara.
-// See below for a list of the find types and its parameters.
-//
-// Currently dwFindFlags is only used for CERT_FIND_SUBJECT_ATTR,
-// CERT_FIND_ISSUER_ATTR or CERT_FIND_CTL_USAGE. Otherwise, must be set to 0.
-//
-// Usage of dwCertEncodingType depends on the dwFindType.
-//
-// If the first or next certificate isn't found, NULL is returned.
-// Otherwise, a pointer to a read only CERT_CONTEXT is returned. CERT_CONTEXT
-// must be freed by calling CertFreeCertificateContext or is freed when passed as the
-// pPrevCertContext on a subsequent call. CertDuplicateCertificateContext
-// can be called to make a duplicate.
-//
-// pPrevCertContext MUST BE NULL on the first
-// call to find the certificate. To find the next certificate, the
-// pPrevCertContext is set to the CERT_CONTEXT returned by a previous call.
-//
-// NOTE: a NON-NULL pPrevCertContext is always CertFreeCertificateContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-
-function CertFindCertificateInStore(hCertStore: HCERTSTORE;
- dwCertEncodingType: DWORD;
- dwFindFlags: DWORD;
- dwFindType: DWORD;
- const pvFindPara: PVOID;
- pPrevCertContext: PCCERT_CONTEXT
- ): PCCERT_CONTEXT; stdcall;
-
-//+-------------------------------------------------------------------------
-// Certificate comparison functions
-//--------------------------------------------------------------------------
-
-const CERT_COMPARE_SHIFT = 16;
-const CERT_COMPARE_ANY = 0;
-const CERT_COMPARE_SHA1_HASH = 1;
-const CERT_COMPARE_NAME = 2;
-const CERT_COMPARE_ATTR = 3;
-const CERT_COMPARE_MD5_HASH = 4;
-const CERT_COMPARE_PROPERTY = 5;
-const CERT_COMPARE_PUBLIC_KEY = 6;
-const CERT_COMPARE_HASH = CERT_COMPARE_SHA1_HASH;
-const CERT_COMPARE_NAME_STR_A = 7;
-const CERT_COMPARE_NAME_STR_W = 8;
-const CERT_COMPARE_KEY_SPEC = 9;
-const CERT_COMPARE_ENHKEY_USAGE = 10;
-const CERT_COMPARE_CTL_USAGE = CERT_COMPARE_ENHKEY_USAGE;
-
-//+-------------------------------------------------------------------------
-// dwFindType
-//
-// The dwFindType definition consists of two components:
-// - comparison function
-// - certificate information flag
-//--------------------------------------------------------------------------
-
-const CERT_FIND_ANY = (CERT_COMPARE_ANY shl CERT_COMPARE_SHIFT);
-const CERT_FIND_SHA1_HASH = (CERT_COMPARE_SHA1_HASH shl CERT_COMPARE_SHIFT);
-const CERT_FIND_MD5_HASH = (CERT_COMPARE_MD5_HASH shl CERT_COMPARE_SHIFT);
-const CERT_FIND_HASH = CERT_FIND_SHA1_HASH;
-const CERT_FIND_PROPERTY = (CERT_COMPARE_PROPERTY shl CERT_COMPARE_SHIFT);
-const CERT_FIND_PUBLIC_KEY = (CERT_COMPARE_PUBLIC_KEY shl CERT_COMPARE_SHIFT);
-
-const CERT_FIND_SUBJECT_NAME = (CERT_COMPARE_NAME shl CERT_COMPARE_SHIFT or CERT_INFO_SUBJECT_FLAG);
-const CERT_FIND_SUBJECT_ATTR = (CERT_COMPARE_ATTR shl CERT_COMPARE_SHIFT or CERT_INFO_SUBJECT_FLAG);
-const CERT_FIND_ISSUER_NAME = (CERT_COMPARE_NAME shl CERT_COMPARE_SHIFT or CERT_INFO_ISSUER_FLAG);
-const CERT_FIND_ISSUER_ATTR = (CERT_COMPARE_ATTR shl CERT_COMPARE_SHIFT or CERT_INFO_ISSUER_FLAG);
-const CERT_FIND_SUBJECT_STR_A = (CERT_COMPARE_NAME_STR_A shl CERT_COMPARE_SHIFT or CERT_INFO_SUBJECT_FLAG);
-const CERT_FIND_SUBJECT_STR_W = (CERT_COMPARE_NAME_STR_W shl CERT_COMPARE_SHIFT or CERT_INFO_SUBJECT_FLAG);
-const CERT_FIND_SUBJECT_STR = CERT_FIND_SUBJECT_STR_W;
-const CERT_FIND_ISSUER_STR_A = (CERT_COMPARE_NAME_STR_A shl CERT_COMPARE_SHIFT or CERT_INFO_ISSUER_FLAG);
-const CERT_FIND_ISSUER_STR_W = (CERT_COMPARE_NAME_STR_W shl CERT_COMPARE_SHIFT or CERT_INFO_ISSUER_FLAG);
-const CERT_FIND_ISSUER_STR = CERT_FIND_ISSUER_STR_W;
-const CERT_FIND_KEY_SPEC = (CERT_COMPARE_KEY_SPEC shl CERT_COMPARE_SHIFT);
-const CERT_FIND_ENHKEY_USAGE = (CERT_COMPARE_ENHKEY_USAGE shl CERT_COMPARE_SHIFT);
-const CERT_FIND_CTL_USAGE = CERT_FIND_ENHKEY_USAGE;
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_ANY
-//
-// Find any certificate.
-//
-// pvFindPara isn't used.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_HASH
-//
-// Find a certificate with the specified hash.
-//
-// pvFindPara points to a CRYPT_HASH_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_PROPERTY
-//
-// Find a certificate having the specified property.
-//
-// pvFindPara points to a DWORD containing the PROP_ID
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_PUBLIC_KEY
-//
-// Find a certificate matching the specified public key.
-//
-// pvFindPara points to a CERT_PUBLIC_KEY_INFO containing the public key
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_SUBJECT_NAME
-// CERT_FIND_ISSUER_NAME
-//
-// Find a certificate with the specified subject/issuer name. Does an exact
-// match of the entire name.
-//
-// Restricts search to certificates matching the dwCertEncodingType.
-//
-// pvFindPara points to a CERT_NAME_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_SUBJECT_ATTR
-// CERT_FIND_ISSUER_ATTR
-//
-// Find a certificate with the specified subject/issuer attributes.
-//
-// Compares the attributes in the subject/issuer name with the
-// Relative Distinguished Name's (CERT_RDN) array of attributes specified in
-// pvFindPara. The comparison iterates through the CERT_RDN attributes and looks
-// for an attribute match in any of the subject/issuer's RDNs.
-//
-// The CERT_RDN_ATTR fields can have the following special values:
-// pszObjId == NULL - ignore the attribute object identifier
-// dwValueType == RDN_ANY_TYPE - ignore the value type
-// Value.pbData == NULL - match any value
-//
-// Currently only an exact, case sensitive match is supported.
-//
-// CERT_UNICODE_IS_RDN_ATTRS_FLAG should be set in dwFindFlags if the RDN was
-// initialized with unicode strings as for
-// CryptEncodeObject(X509_UNICODE_NAME).
-//
-// Restricts search to certificates matching the dwCertEncodingType.
-//
-// pvFindPara points to a CERT_RDN (defined in wincert.h).
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_SUBJECT_STR_A
-// CERT_FIND_SUBJECT_STR_W | CERT_FIND_SUBJECT_STR
-// CERT_FIND_ISSUER_STR_A
-// CERT_FIND_ISSUER_STR_W | CERT_FIND_ISSUER_STR
-//
-// Find a certificate containing the specified subject/issuer name string.
-//
-// First, the certificate's subject/issuer is converted to a name string
-// via CertNameToStrA/CertNameToStrW(CERT_SIMPLE_NAME_STR). Then, a
-// case insensitive substring within string match is performed.
-//
-// Restricts search to certificates matching the dwCertEncodingType.
-//
-// For *_STR_A, pvFindPara points to a null terminated character string.
-// For *_STR_W, pvFindPara points to a null terminated wide character string.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_KEY_SPEC
-//
-// Find a certificate having a CERT_KEY_SPEC_PROP_ID property matching
-// the specified KeySpec.
-//
-// pvFindPara points to a DWORD containing the KeySpec.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CERT_FIND_ENHKEY_USAGE
-//
-// Find a certificate having the szOID_ENHANCED_KEY_USAGE extension or
-// the CERT_ENHKEY_USAGE_PROP_ID and matching the specified pszUsageIdentifers.
-//
-// pvFindPara points to a CERT_ENHKEY_USAGE data structure. If pvFindPara
-// is NULL or CERT_ENHKEY_USAGE's cUsageIdentifier is 0, then, matches any
-// certificate having enhanced key usage.
-//
-// The CERT_FIND_OPTIONAL_ENHKEY_USAGE_FLAG can be set in dwFindFlags to
-// also match a certificate without either the extension or property.
-//
-// If CERT_FIND_NO_ENHKEY_USAGE_FLAG is set in dwFindFlags, finds
-// certificates without the key usage extension or property. Setting this
-// flag takes precedence over pvFindPara being NULL.
-//
-// If the CERT_FIND_EXT_ONLY_ENHKEY_USAGE_FLAG is set, then, only does a match
-// using the extension. If pvFindPara is NULL or cUsageIdentifier is set to
-// 0, finds certificates having the extension. If
-// CERT_FIND_OPTIONAL_ENHKEY_USAGE_FLAG is set, also matches a certificate
-// without the extension. If CERT_FIND_NO_ENHKEY_USAGE_FLAG is set, finds
-// certificates without the extension.
-//
-// If the CERT_FIND_EXT_PROP_ENHKEY_USAGE_FLAG is set, then, only does a match
-// using the property. If pvFindPara is NULL or cUsageIdentifier is set to
-// 0, finds certificates having the property. If
-// CERT_FIND_OPTIONAL_ENHKEY_USAGE_FLAG is set, also matches a certificate
-// without the property. If CERT_FIND_NO_ENHKEY_USAGE_FLAG is set, finds
-// certificates without the property.
-//--------------------------------------------------------------------------
-
-const CERT_FIND_OPTIONAL_ENHKEY_USAGE_FLAG = $1;
-const CERT_FIND_EXT_ONLY_ENHKEY_USAGE_FLAG = $2;
-const CERT_FIND_PROP_ONLY_ENHKEY_USAGE_FLAG = $4;
-const CERT_FIND_NO_ENHKEY_USAGE_FLAG = $8;
-const CERT_FIND_OPTIONAL_CTL_USAGE_FLAG = CERT_FIND_OPTIONAL_ENHKEY_USAGE_FLAG;
-const CERT_FIND_EXT_ONLY_CTL_USAGE_FLAG = CERT_FIND_EXT_ONLY_ENHKEY_USAGE_FLAG;
-const CERT_FIND_PROP_ONLY_CTL_USAGE_FLAG = CERT_FIND_PROP_ONLY_ENHKEY_USAGE_FLAG;
-const CERT_FIND_NO_CTL_USAGE_FLAG = CERT_FIND_NO_ENHKEY_USAGE_FLAG;
-
-//+-------------------------------------------------------------------------
-// Get the certificate context from the store for the first or next issuer
-// of the specified subject certificate. Perform the enabled
-// verification checks on the subject. (Note, the checks are on the subject
-// using the returned issuer certificate.)
-//
-// If the first or next issuer certificate isn't found, NULL is returned.
-// Otherwise, a pointer to a read only CERT_CONTEXT is returned. CERT_CONTEXT
-// must be freed by calling CertFreeCertificateContext or is freed when passed as the
-// pPrevIssuerContext on a subsequent call. CertDuplicateCertificateContext
-// can be called to make a duplicate.
-//
-// For a self signed subject certificate, NULL is returned with LastError set
-// to CERT_STORE_SELF_SIGNED. The enabled verification checks are still done.
-//
-// The pSubjectContext may have been obtained from this store, another store
-// or created by the caller application. When created by the caller, the
-// CertCreateCertificateContext function must have been called.
-//
-// An issuer may have multiple certificates. This may occur when the validity
-// period is about to change. pPrevIssuerContext MUST BE NULL on the first
-// call to get the issuer. To get the next certificate for the issuer, the
-// pPrevIssuerContext is set to the CERT_CONTEXT returned by a previous call.
-//
-// NOTE: a NON-NULL pPrevIssuerContext is always CertFreeCertificateContext'ed by
-// this function, even for an error.
-//
-// The following flags can be set in *pdwFlags to enable verification checks
-// on the subject certificate context:
-// CERT_STORE_SIGNATURE_FLAG - use the public key in the returned
-// issuer certificate to verify the
-// signature on the subject certificate.
-// Note, if pSubjectContext->hCertStore ==
-// hCertStore, the store provider might
-// be able to eliminate a redo of
-// the signature verify.
-// CERT_STORE_TIME_VALIDITY_FLAG - get the current time and verify that
-// its within the subject certificate's
-// validity period
-// CERT_STORE_REVOCATION_FLAG - check if the subject certificate is on
-// the issuer's revocation list
-//
-// If an enabled verification check fails, then, its flag is set upon return.
-// If CERT_STORE_REVOCATION_FLAG was enabled and the issuer doesn't have a
-// CRL in the store, then, CERT_STORE_NO_CRL_FLAG is set in addition to
-// the CERT_STORE_REVOCATION_FLAG.
-//
-// If CERT_STORE_SIGNATURE_FLAG or CERT_STORE_REVOCATION_FLAG is set, then,
-// CERT_STORE_NO_ISSUER_FLAG is set if it doesn't have an issuer certificate
-// in the store.
-//
-// For a verification check failure, a pointer to the issuer's CERT_CONTEXT
-// is still returned and SetLastError isn't updated.
-//--------------------------------------------------------------------------
-function CertGetIssuerCertificateFromStore(hCertStore: HCERTSTORE;
- pSubjectContext: PCCERT_CONTEXT;
- pPrevIssuerContext: PCCERT_CONTEXT; //OPTIONAL
- pdwFlags: PDWORD): PCCERT_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Perform the enabled verification checks on the subject certificate
-// using the issuer. Same checks and flags definitions as for the above
-// CertGetIssuerCertificateFromStore.
-//
-// If you are only checking CERT_STORE_TIME_VALIDITY_FLAG, then, the
-// issuer can be NULL.
-//
-// For a verification check failure, SUCCESS is still returned.
-//--------------------------------------------------------------------------
-
-function CertVerifySubjectCertificateContext(pSubject: PCCERT_CONTEXT;
- pIssuer: PCCERT_CONTEXT; //OPTIONAL
- pdwFlags: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Duplicate a certificate context
-//--------------------------------------------------------------------------
-
-function CertDuplicateCertificateContext(pCertContext: PCCERT_CONTEXT): PCCERT_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Create a certificate context from the encoded certificate. The created
-// context isn't put in a store.
-//
-// Makes a copy of the encoded certificate in the created context.
-//
-// If unable to decode and create the certificate context, NULL is returned.
-// Otherwise, a pointer to a read only CERT_CONTEXT is returned.
-// CERT_CONTEXT must be freed by calling CertFreeCertificateContext.
-// CertDuplicateCertificateContext can be called to make a duplicate.
-//
-// CertSetCertificateContextProperty and CertGetCertificateContextProperty can be called
-// to store properties for the certificate.
-//--------------------------------------------------------------------------
-function CertCreateCertificateContext(dwCertEncodingType: DWORD;
- pbCertEncoded: PBYTE;
- cbCertEncoded: DWORD): PCCERT_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Free a certificate context
-//
-// There needs to be a corresponding free for each context obtained by a
-// get, find, duplicate or create.
-//--------------------------------------------------------------------------
-function CertFreeCertificateContext(pCertContext: PCCERT_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Set the property for the specified certificate context.
-//
-// The type definition for pvData depends on the dwPropId value. There are
-// five predefined types:
-// CERT_KEY_PROV_HANDLE_PROP_ID - a HCRYPTPROV for the certificate's
-// private key is passed in pvData. Updates the hCryptProv field
-// of the CERT_KEY_CONTEXT_PROP_ID. If the CERT_KEY_CONTEXT_PROP_ID
-// doesn't exist, its created with all the other fields zeroed out. If
-// CERT_STORE_NO_CRYPT_RELEASE_FLAG isn't set, HCRYPTPROV is implicitly
-// released when either the property is set to NULL or on the final
-// free of the CertContext.
-//
-// CERT_KEY_PROV_INFO_PROP_ID - a PCRYPT_KEY_PROV_INFO for the certificate's
-// private key is passed in pvData.
-//
-// CERT_SHA1_HASH_PROP_ID -
-// CERT_MD5_HASH_PROP_ID - normally, either property is implicitly
-// set by doing a CertGetCertificateContextProperty. pvData points to a
-// CRYPT_HASH_BLOB.
-//
-// CERT_KEY_CONTEXT_PROP_ID - a PCERT_KEY_CONTEXT for the certificate's
-// private key is passed in pvData. The CERT_KEY_CONTEXT contains both the
-// hCryptProv and dwKeySpec for the private key.
-// See the CERT_KEY_PROV_HANDLE_PROP_ID for more information about
-// the hCryptProv field and dwFlags settings. Note, more fields may
-// be added for this property. The cbSize field value will be adjusted
-// accordingly.
-//
-// CERT_KEY_SPEC_PROP_ID - the dwKeySpec for the private key. pvData
-// points to a DWORD containing the KeySpec
-//
-// CERT_ENHKEY_USAGE_PROP_ID - enhanced key usage definition for the
-// certificate. pvData points to a CRYPT_DATA_BLOB containing an
-// ASN.1 encoded CERT_ENHKEY_USAGE (encoded via
-// CryptEncodeObject(X509_ENHANCED_KEY_USAGE).
-//
-// CERT_NEXT_UPDATE_LOCATION_PROP_ID - location of the next update.
-// Currently only applicable to CTLs. pvData points to a CRYPT_DATA_BLOB
-// containing an ASN.1 encoded CERT_ALT_NAME_INFO (encoded via
-// CryptEncodeObject(X509_ALTERNATE_NAME)).
-//
-// CERT_FRIENDLY_NAME_PROP_ID - friendly name for the cert, CRL or CTL.
-// pvData points to a CRYPT_DATA_BLOB. pbData is a pointer to a NULL
-// terminated unicode, wide character string.
-// cbData = (wcslen((LPWSTR) pbData) + 1) * sizeof(WCHAR).
-//
-// For all the other PROP_IDs: an encoded PCRYPT_DATA_BLOB is passed in pvData.
-//
-// If the property already exists, then, the old value is deleted and silently
-// replaced. Setting, pvData to NULL, deletes the property.
-//--------------------------------------------------------------------------
-function CertSetCertificateContextProperty(pCertContext: PCCERT_CONTEXT;
- dwPropId: DWORD;
- dwFlags: DWORD;
- pvData: PVOID): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Get the property for the specified certificate context.
-//
-// For CERT_KEY_PROV_HANDLE_PROP_ID, pvData points to a HCRYPTPROV.
-//
-// For CERT_KEY_PROV_INFO_PROP_ID, pvData points to a CRYPT_KEY_PROV_INFO structure.
-// Elements pointed to by fields in the pvData structure follow the
-// structure. Therefore, *pcbData may exceed the size of the structure.
-//
-// For CERT_KEY_CONTEXT_PROP_ID, pvData points to a CERT_KEY_CONTEXT structure.
-//
-// For CERT_KEY_SPEC_PROP_ID, pvData points to a DWORD containing the KeySpec.
-// If the CERT_KEY_CONTEXT_PROP_ID exists, the KeySpec is obtained from there.
-// Otherwise, if the CERT_KEY_PROV_INFO_PROP_ID exists, its the source
-// of the KeySpec.
-//
-// For CERT_SHA1_HASH_PROP_ID or CERT_MD5_HASH_PROP_ID, if the hash
-// doesn't already exist, then, its computed via CryptHashCertificate()
-// and then set. pvData points to the computed hash. Normally, the length
-// is 20 bytes for SHA and 16 for MD5.
-//
-// For all other PROP_IDs, pvData points to an encoded array of bytes.
-//--------------------------------------------------------------------------
-function CertGetCertificateContextProperty(pCertContext: PCCERT_CONTEXT;
- dwPropId: DWORD;
- pvData: PVOID;
- pcbData: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Enumerate the properties for the specified certificate context.
-//
-// To get the first property, set dwPropId to 0. The ID of the first
-// property is returned. To get the next property, set dwPropId to the
-// ID returned by the last call. To enumerate all the properties continue
-// until 0 is returned.
-//
-// CertGetCertificateContextProperty is called to get the property's data.
-//
-// Note, since, the CERT_KEY_PROV_HANDLE_PROP_ID and CERT_KEY_SPEC_PROP_ID
-// properties are stored as fields in the CERT_KEY_CONTEXT_PROP_ID
-// property, they aren't enumerated individually.
-//--------------------------------------------------------------------------
-function CertEnumCertificateContextProperties(pCertContext: PCCERT_CONTEXT;
- dwPropId: DWORD): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-// Get the first or next CRL context from the store for the specified
-// issuer certificate. Perform the enabled verification checks on the CRL.
-//
-// If the first or next CRL isn't found, NULL is returned.
-// Otherwise, a pointer to a read only CRL_CONTEXT is returned. CRL_CONTEXT
-// must be freed by calling CertFreeCRLContext. However, the free must be
-// pPrevCrlContext on a subsequent call. CertDuplicateCRLContext
-// can be called to make a duplicate.
-//
-// The pIssuerContext may have been obtained from this store, another store
-// or created by the caller application. When created by the caller, the
-// CertCreateCertificateContext function must have been called.
-//
-// If pIssuerContext == NULL, finds all the CRLs in the store.
-//
-// An issuer may have multiple CRLs. For example, it generates delta CRLs
-// using a X.509 v3 extension. pPrevCrlContext MUST BE NULL on the first
-// call to get the CRL. To get the next CRL for the issuer, the
-// pPrevCrlContext is set to the CRL_CONTEXT returned by a previous call.
-//
-// NOTE: a NON-NULL pPrevCrlContext is always CertFreeCRLContext'ed by
-// this function, even for an error.
-//
-// The following flags can be set in *pdwFlags to enable verification checks
-// on the returned CRL:
-// CERT_STORE_SIGNATURE_FLAG - use the public key in the
-// issuer's certificate to verify the
-// signature on the returned CRL.
-// Note, if pIssuerContext->hCertStore ==
-// hCertStore, the store provider might
-// be able to eliminate a redo of
-// the signature verify.
-// CERT_STORE_TIME_VALIDITY_FLAG - get the current time and verify that
-// its within the CRL's ThisUpdate and
-// NextUpdate validity period.
-//
-// If an enabled verification check fails, then, its flag is set upon return.
-//
-// If pIssuerContext == NULL, then, an enabled CERT_STORE_SIGNATURE_FLAG
-// always fails and the CERT_STORE_NO_ISSUER_FLAG is also set.
-//
-// For a verification check failure, a pointer to the first or next
-// CRL_CONTEXT is still returned and SetLastError isn't updated.
-//--------------------------------------------------------------------------
-function CertGetCRLFromStore(hCertStore: HCERTSTORE;
- pIssuerContext: PCCERT_CONTEXT; //OPTIONAL
- pPrevCrlContext: PCCRL_CONTEXT;
- pdwFlags: PDWORD): PCCRL_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Duplicate a CRL context
-//--------------------------------------------------------------------------
-function CertDuplicateCRLContext(pCrlContext: PCCRL_CONTEXT): PCCRL_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Create a CRL context from the encoded CRL. The created
-// context isn't put in a store.
-//
-// Makes a copy of the encoded CRL in the created context.
-//
-// If unable to decode and create the CRL context, NULL is returned.
-// Otherwise, a pointer to a read only CRL_CONTEXT is returned.
-// CRL_CONTEXT must be freed by calling CertFreeCRLContext.
-// CertDuplicateCRLContext can be called to make a duplicate.
-//
-// CertSetCRLContextProperty and CertGetCRLContextProperty can be called
-// to store properties for the CRL.
-//--------------------------------------------------------------------------
-function CertCreateCRLContext(dwCertEncodingType: DWORD;
- pbCrlEncoded: PBYTE;
- cbCrlEncoded: DWORD): PCCRL_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Free a CRL context
-//
-// There needs to be a corresponding free for each context obtained by a
-// get, duplicate or create.
-//--------------------------------------------------------------------------
-function CertFreeCRLContext(pCrlContext: PCCRL_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Set the property for the specified CRL context.
-//
-// Same Property Ids and semantics as CertSetCertificateContextProperty.
-//--------------------------------------------------------------------------
-function CertSetCRLContextProperty(pCrlContext: PCCRL_CONTEXT;
- dwPropId: DWORD;
- dwFlags: DWORD;
- const pvData: PVOID): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Get the property for the specified CRL context.
-//
-// Same Property Ids and semantics as CertGetCertificateContextProperty.
-//
-// CERT_SHA1_HASH_PROP_ID or CERT_MD5_HASH_PROP_ID is the predefined
-// property of most interest.
-//--------------------------------------------------------------------------
-function CertGetCRLContextProperty(pCrlContext: PCCRL_CONTEXT;
- dwPropId: DWORD;
- pvData: PVOID;
- pcbData: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Enumerate the properties for the specified CRL context.
-//
-// To get the first property, set dwPropId to 0. The ID of the first
-// property is returned. To get the next property, set dwPropId to the
-// ID returned by the last call. To enumerate all the properties continue
-// until 0 is returned.
-//
-// CertGetCRLContextProperty is called to get the property's data.
-//--------------------------------------------------------------------------
-function CertEnumCRLContextProperties(pCrlContext: PCCRL_CONTEXT;
- dwPropId: DWORD): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-// Add certificate/CRL, encoded, context or element disposition values.
-//--------------------------------------------------------------------------
-const CERT_STORE_ADD_NEW = 1;
-const CERT_STORE_ADD_USE_EXISTING = 2;
-const CERT_STORE_ADD_REPLACE_EXISTING = 3;
-const CERT_STORE_ADD_ALWAYS = 4;
-
-//+-------------------------------------------------------------------------
-// Add the encoded certificate to the store according to the specified
-// disposition action.
-//
-// Makes a copy of the encoded certificate before adding to the store.
-//
-// dwAddDispostion specifies the action to take if the certificate
-// already exists in the store. This parameter must be one of the following
-// values:
-// CERT_STORE_ADD_NEW
-// Fails if the certificate already exists in the store. LastError
-// is set to CRYPT_E_EXISTS.
-// CERT_STORE_ADD_USE_EXISTING
-// If the certifcate already exists, then, its used and if ppCertContext
-// is non-NULL, the existing context is duplicated.
-// CERT_STORE_ADD_REPLACE_EXISTING
-// If the certificate already exists, then, the existing certificate
-// context is deleted before creating and adding the new context.
-// CERT_STORE_ADD_ALWAYS
-// No check is made to see if the certificate already exists. A
-// new certificate context is always created. This may lead to
-// duplicates in the store.
-//
-// CertGetSubjectCertificateFromStore is called to determine if the
-// certificate already exists in the store.
-//
-// ppCertContext can be NULL, indicating the caller isn't interested
-// in getting the CERT_CONTEXT of the added or existing certificate.
-//--------------------------------------------------------------------------
-function CertAddEncodedCertificateToStore(hCertStore: HCERTSTORE;
- dwCertEncodingType: DWORD;
- const pbCertEncoded: PBYTE;
- cbCertEncoded: DWORD;
- dwAddDisposition: DWORD;
- var ppCertContext: PCCERT_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Add the certificate context to the store according to the specified
-// disposition action.
-//
-// In addition to the encoded certificate, the context's properties are
-// also copied. Note, the CERT_KEY_CONTEXT_PROP_ID property (and its
-// CERT_KEY_PROV_HANDLE_PROP_ID or CERT_KEY_SPEC_PROP_ID) isn't copied.
-//
-// Makes a copy of the certificate context before adding to the store.
-//
-// dwAddDispostion specifies the action to take if the certificate
-// already exists in the store. This parameter must be one of the following
-// values:
-// CERT_STORE_ADD_NEW
-// Fails if the certificate already exists in the store. LastError
-// is set to CRYPT_E_EXISTS.
-// CERT_STORE_ADD_USE_EXISTING
-// If the certifcate already exists, then, its used and if ppStoreContext
-// is non-NULL, the existing context is duplicated. Iterates
-// through pCertContext's properties and only copies the properties
-// that don't already exist. The SHA1 and MD5 hash properties aren't
-// copied.
-// CERT_STORE_ADD_REPLACE_EXISTING
-// If the certificate already exists, then, the existing certificate
-// context is deleted before creating and adding a new context.
-// Properties are copied before doing the add.
-// CERT_STORE_ADD_ALWAYS
-// No check is made to see if the certificate already exists. A
-// new certificate context is always created and added. This may lead to
-// duplicates in the store. Properties are
-// copied before doing the add.
-//
-// CertGetSubjectCertificateFromStore is called to determine if the
-// certificate already exists in the store.
-//
-// ppStoreContext can be NULL, indicating the caller isn't interested
-// in getting the CERT_CONTEXT of the added or existing certificate.
-//--------------------------------------------------------------------------
-function CertAddCertificateContextToStore(hCertStore: HCERTSTORE;
- pCertContext: PCCERT_CONTEXT;
- dwAddDisposition: DWORD;
- var ppStoreContext: PCCERT_CONTEXT //OPTIONAL
- ): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Certificate Store Context Types
-//--------------------------------------------------------------------------
-const CERT_STORE_CERTIFICATE_CONTEXT = 1;
-const CERT_STORE_CRL_CONTEXT = 2;
-const CERT_STORE_CTL_CONTEXT = 3;
-
-//+-------------------------------------------------------------------------
-// Certificate Store Context Bit Flags
-//--------------------------------------------------------------------------
-const CERT_STORE_ALL_CONTEXT_FLAG = (not ULONG(0));
-const CERT_STORE_CERTIFICATE_CONTEXT_FLAG = (1 shl CERT_STORE_CERTIFICATE_CONTEXT);
-const CERT_STORE_CRL_CONTEXT_FLAG = (1 shl CERT_STORE_CRL_CONTEXT);
-const CERT_STORE_CTL_CONTEXT_FLAG = (1 shl CERT_STORE_CTL_CONTEXT);
-
-//+-------------------------------------------------------------------------
-// Add the serialized certificate or CRL element to the store.
-//
-// The serialized element contains the encoded certificate, CRL or CTL and
-// its properties, such as, CERT_KEY_PROV_INFO_PROP_ID.
-//
-// If hCertStore is NULL, creates a certificate, CRL or CTL context not
-// residing in any store.
-//
-// dwAddDispostion specifies the action to take if the certificate or CRL
-// already exists in the store. See CertAddCertificateContextToStore for a
-// list of and actions taken.
-//
-// dwFlags currently isn't used and should be set to 0.
-//
-// dwContextTypeFlags specifies the set of allowable contexts. For example, to
-// add either a certificate or CRL, set dwContextTypeFlags to:
-// CERT_STORE_CERTIFICATE_CONTEXT_FLAG | CERT_STORE_CRL_CONTEXT_FLAG
-//
-// *pdwContextType is updated with the type of the context returned in
-// *ppvContxt. pdwContextType or ppvContext can be NULL, indicating the
-// caller isn't interested in getting the output. If *ppvContext is
-// returned it must be freed by calling CertFreeCertificateContext or
-// CertFreeCRLContext.
-//--------------------------------------------------------------------------
-function CertAddSerializedElementToStore(hCertStore: HCERTSTORE;
- pbElement: PBYTE;
- cbElement: DWORD;
- dwAddDisposition: DWORD;
- dwFlags: DWORD;
- dwContextTypeFlags: DWORD;
- pdwContextType: PDWORD;
- var ppvContext: array of PVOID): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Delete the specified certificate from the store.
-//
-// All subsequent gets or finds for the certificate will fail. However,
-// memory allocated for the certificate isn't freed until all of its contexts
-// have also been freed.
-//
-// The pCertContext is obtained from a get, enum, find or duplicate.
-//
-// Some store provider implementations might also delete the issuer's CRLs
-// if this is the last certificate for the issuer in the store.
-//
-// NOTE: the pCertContext is always CertFreeCertificateContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-function CertDeleteCertificateFromStore(pCertContext: PCCERT_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Add the encoded CRL to the store according to the specified
-// disposition option.
-//
-// Makes a copy of the encoded CRL before adding to the store.
-//
-// dwAddDispostion specifies the action to take if the CRL
-// already exists in the store. See CertAddEncodedCertificateToStore for a
-// list of and actions taken.
-//
-// Compares the CRL's Issuer to determine if the CRL already exists in the
-// store.
-//
-// ppCrlContext can be NULL, indicating the caller isn't interested
-// in getting the CRL_CONTEXT of the added or existing CRL.
-//--------------------------------------------------------------------------
-function CertAddEncodedCRLToStore(hCertStore: HCERTSTORE;
- dwCertEncodingType: DWORD;
- pbCrlEncoded: PBYTE;
- cbCrlEncoded: DWORD;
- dwAddDisposition: DWORD;
- var ppCrlContext: PCCRL_CONTEXT
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Add the CRL context to the store according to the specified
-// disposition option.
-//
-// In addition to the encoded CRL, the context's properties are
-// also copied. Note, the CERT_KEY_CONTEXT_PROP_ID property (and its
-// CERT_KEY_PROV_HANDLE_PROP_ID or CERT_KEY_SPEC_PROP_ID) isn't copied.
-//
-// Makes a copy of the encoded CRL before adding to the store.
-//
-// dwAddDispostion specifies the action to take if the CRL
-// already exists in the store. See CertAddCertificateContextToStore for a
-// list of and actions taken.
-//
-// Compares the CRL's Issuer, ThisUpdate and NextUpdate to determine
-// if the CRL already exists in the store.
-//
-// ppStoreContext can be NULL, indicating the caller isn't interested
-// in getting the CRL_CONTEXT of the added or existing CRL.
-//--------------------------------------------------------------------------
-function CertAddCRLContextToStore(hCertStore: HCERTSTORE;
- pCrlContext: PCCRL_CONTEXT;
- dwAddDisposition: DWORD;
- var ppStoreContext: PCCRL_CONTEXT
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Delete the specified CRL from the store.
-//
-// All subsequent gets for the CRL will fail. However,
-// memory allocated for the CRL isn't freed until all of its contexts
-// have also been freed.
-//
-// The pCrlContext is obtained from a get or duplicate.
-//
-// NOTE: the pCrlContext is always CertFreeCRLContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-function CertDeleteCRLFromStore(pCrlContext: PCCRL_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Serialize the certificate context's encoded certificate and its
-// properties.
-//--------------------------------------------------------------------------
-function CertSerializeCertificateStoreElement(pCertContext: PCCERT_CONTEXT;
- dwFlags: DWORD;
- pbElement: PBYTE;
- pcbElement: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Serialize the CRL context's encoded CRL and its properties.
-//--------------------------------------------------------------------------
-function CertSerializeCRLStoreElement(pCrlContext: PCCRL_CONTEXT;
- dwFlags: DWORD;
- pbElement: PBYTE;
- pcbElement: PDWORD): BOOL; stdcall;
-//+=========================================================================
-// Certificate Trust List (CTL) Store Data Structures and APIs
-//==========================================================================
-
-//+-------------------------------------------------------------------------
-// Duplicate a CTL context
-//--------------------------------------------------------------------------
-function CertDuplicateCTLContext(pCtlContext: PCCTL_CONTEXT): PCCTL_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Create a CTL context from the encoded CTL. The created
-// context isn't put in a store.
-//
-// Makes a copy of the encoded CTL in the created context.
-//
-// If unable to decode and create the CTL context, NULL is returned.
-// Otherwise, a pointer to a read only CTL_CONTEXT is returned.
-// CTL_CONTEXT must be freed by calling CertFreeCTLContext.
-// CertDuplicateCTLContext can be called to make a duplicate.
-//
-// CertSetCTLContextProperty and CertGetCTLContextProperty can be called
-// to store properties for the CTL.
-//--------------------------------------------------------------------------
-function CertCreateCTLContext(dwMsgAndCertEncodingType: DWORD;
- const pbCtlEncoded: PBYTE;
- cbCtlEncoded: DWORD): PCCTL_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Free a CTL context
-//
-// There needs to be a corresponding free for each context obtained by a
-// get, duplicate or create.
-//--------------------------------------------------------------------------
-function CertFreeCTLContext(pCtlContext: PCCTL_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Set the property for the specified CTL context.
-//
-// Same Property Ids and semantics as CertSetCertificateContextProperty.
-//--------------------------------------------------------------------------
-function CertSetCTLContextProperty(pCtlContext: PCCTL_CONTEXT;
- dwPropId: DWORD;
- dwFlags: DWORD;
- const pvData: PVOID): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Get the property for the specified CTL context.
-//
-// Same Property Ids and semantics as CertGetCertificateContextProperty.
-//
-// CERT_SHA1_HASH_PROP_ID or CERT_NEXT_UPDATE_LOCATION_PROP_ID are the
-// predefined properties of most interest.
-//--------------------------------------------------------------------------
-function CertGetCTLContextProperty(pCtlContext: PCCTL_CONTEXT;
- dwPropId: DWORD;
- pvData: PVOID;
- pcbData: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Enumerate the properties for the specified CTL context.
-//--------------------------------------------------------------------------
-function CertEnumCTLContextProperties(pCtlContext: PCCTL_CONTEXT;
- dwPropId: DWORD): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-// Enumerate the CTL contexts in the store.
-//
-// If a CTL isn't found, NULL is returned.
-// Otherwise, a pointer to a read only CTL_CONTEXT is returned. CTL_CONTEXT
-// must be freed by calling CertFreeCTLContext or is freed when passed as the
-// pPrevCtlContext on a subsequent call. CertDuplicateCTLContext
-// can be called to make a duplicate.
-//
-// pPrevCtlContext MUST BE NULL to enumerate the first
-// CTL in the store. Successive CTLs are enumerated by setting
-// pPrevCtlContext to the CTL_CONTEXT returned by a previous call.
-//
-// NOTE: a NON-NULL pPrevCtlContext is always CertFreeCTLContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-function CertEnumCTLsInStore(hCertStore: HCERTSTORE;
- pPrevCtlContext: PCCTL_CONTEXT
- ): PCCTL_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// Attempt to find the specified subject in the CTL.
-//
-// For CTL_CERT_SUBJECT_TYPE, pvSubject points to a CERT_CONTEXT. The CTL's
-// SubjectAlgorithm is examined to determine the representation of the
-// subject's identity. Initially, only SHA1 or MD5 hash will be supported.
-// The appropriate hash property is obtained from the CERT_CONTEXT.
-//
-// For CTL_ANY_SUBJECT_TYPE, pvSubject points to the CTL_ANY_SUBJECT_INFO
-// structure which contains the SubjectAlgorithm to be matched in the CTL
-// and the SubjectIdentifer to be matched in one of the CTL entries.
-//
-// The certificate's hash or the CTL_ANY_SUBJECT_INFO's SubjectIdentifier
-// is used as the key in searching the subject entries. A binary
-// memory comparison is done between the key and the entry's SubjectIdentifer.
-//
-// dwEncodingType isn't used for either of the above SubjectTypes.
-//--------------------------------------------------------------------------
-function CertFindSubjectInCTL(dwEncodingType: DWORD;
- dwSubjectType: DWORD;
- pvSubject: PVOID;
- pCtlContext: PCCTL_CONTEXT;
- dwFlags: DWORD): PCTL_ENTRY; stdcall;
-// Subject Types:
-// CTL_ANY_SUBJECT_TYPE, pvSubject points to following CTL_ANY_SUBJECT_INFO.
-// CTL_CERT_SUBJECT_TYPE, pvSubject points to CERT_CONTEXT.
-const CTL_ANY_SUBJECT_TYPE = 1;
-const CTL_CERT_SUBJECT_TYPE = 2;
-
-type
- PCTL_ANY_SUBJECT_INFO = ^CTL_ANY_SUBJECT_INFO;
- CTL_ANY_SUBJECT_INFO = record
- SubjectAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- SubjectIdentifier: CRYPT_DATA_BLOB;
- end;
-
-//+-------------------------------------------------------------------------
-// Find the first or next CTL context in the store.
-//
-// The CTL is found according to the dwFindType and its pvFindPara.
-// See below for a list of the find types and its parameters.
-//
-// Currently dwFindFlags isn't used and must be set to 0.
-//
-// Usage of dwMsgAndCertEncodingType depends on the dwFindType.
-//
-// If the first or next CTL isn't found, NULL is returned.
-// Otherwise, a pointer to a read only CTL_CONTEXT is returned. CTL_CONTEXT
-// must be freed by calling CertFreeCTLContext or is freed when passed as the
-// pPrevCtlContext on a subsequent call. CertDuplicateCTLContext
-// can be called to make a duplicate.
-//
-// pPrevCtlContext MUST BE NULL on the first
-// call to find the CTL. To find the next CTL, the
-// pPrevCtlContext is set to the CTL_CONTEXT returned by a previous call.
-//
-// NOTE: a NON-NULL pPrevCtlContext is always CertFreeCTLContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-function CertFindCTLInStore(hCertStore: HCERTSTORE;
- dwMsgAndCertEncodingType: DWORD;
- dwFindFlags: DWORD;
- dwFindType: DWORD;
- const pvFindPara: PVOID;
- pPrevCtlContext: PCCTL_CONTEXT): PCCTL_CONTEXT; stdcall;
-
-const CTL_FIND_ANY = 0;
-const CTL_FIND_SHA1_HASH = 1;
-const CTL_FIND_MD5_HASH = 2;
-const CTL_FIND_USAGE = 3;
-const CTL_FIND_SUBJECT = 4;
-
-type
- PCTL_FIND_USAGE_PARA = ^CTL_FIND_USAGE_PARA;
- CTL_FIND_USAGE_PARA = record
- cbSize: DWORD;
- SubjectUsage: CTL_USAGE; // optional
- ListIdentifier: CRYPT_DATA_BLOB; // optional
- pSigner: PCERT_INFO; // optional
- end;
-
-const CTL_FIND_NO_LIST_ID_CBDATA = $FFFFFFFF;
-const CTL_FIND_NO_SIGNER_PTR = (PCERT_INFO($FFFFFFFF));
-
-const CTL_FIND_SAME_USAGE_FLAG = $1;
-
-type
- PCTL_FIND_SUBJECT_PARA = ^CTL_FIND_SUBJECT_PARA;
- CTL_FIND_SUBJECT_PARA = record
- cbSize: DWORD;
- pUsagePara: PCTL_FIND_USAGE_PARA; // optional
- dwSubjectType: DWORD;
- pvSubject: PVOID;
- end;
-
-//+-------------------------------------------------------------------------
-// CTL_FIND_ANY
-//
-// Find any CTL.
-//
-// pvFindPara isn't used.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CTL_FIND_SHA1_HASH
-// CTL_FIND_MD5_HASH
-//
-// Find a CTL with the specified hash.
-//
-// pvFindPara points to a CRYPT_HASH_BLOB.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CTL_FIND_USAGE
-//
-// Find a CTL having the specified usage identifiers, list identifier or
-// signer. The CertEncodingType of the signer is obtained from the
-// dwMsgAndCertEncodingType parameter.
-//
-// pvFindPara points to a CTL_FIND_USAGE_PARA data structure. The
-// SubjectUsage.cUsageIdentifer can be 0 to match any usage. The
-// ListIdentifier.cbData can be 0 to match any list identifier. To only match
-// CTLs without a ListIdentifier, cbData must be set to
-// CTL_FIND_NO_LIST_ID_CBDATA. pSigner can be NULL to match any signer. Only
-// the Issuer and SerialNumber fields of the pSigner's PCERT_INFO are used.
-// To only match CTLs without a signer, pSigner must be set to
-// CTL_FIND_NO_SIGNER_PTR.
-//
-// The CTL_FIND_SAME_USAGE_FLAG can be set in dwFindFlags to
-// only match CTLs with the same usage identifiers. CTLs having additional
-// usage identifiers aren't matched. For example, if only "1.2.3" is specified
-// in CTL_FIND_USAGE_PARA, then, for a match, the CTL must only contain
-// "1.2.3" and not any additional usage identifers.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// CTL_FIND_SUBJECT
-//
-// Find a CTL having the specified subject. CertFindSubjectInCTL can be
-// called to get a pointer to the subject's entry in the CTL. pUsagePara can
-// optionally be set to enable the above CTL_FIND_USAGE matching.
-//
-// pvFindPara points to a CTL_FIND_SUBJECT_PARA data structure.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// Add the encoded CTL to the store according to the specified
-// disposition option.
-//
-// Makes a copy of the encoded CTL before adding to the store.
-//
-// dwAddDispostion specifies the action to take if the CTL
-// already exists in the store. See CertAddEncodedCertificateToStore for a
-// list of and actions taken.
-//
-// Compares the CTL's SubjectUsage, ListIdentifier and any of its signers
-// to determine if the CTL already exists in the store.
-//
-// ppCtlContext can be NULL, indicating the caller isn't interested
-// in getting the CTL_CONTEXT of the added or existing CTL.
-//--------------------------------------------------------------------------
-function CertAddEncodedCTLToStore(hCertStore: HCERTSTORE;
- dwMsgAndCertEncodingType: DWORD;
- const pbCtlEncoded: PBYTE;
- cbCtlEncoded: DWORD;
- dwAddDisposition: DWORD;
- var ppCtlContext: PCCTL_CONTEXT //OPTIONAL
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Add the CTL context to the store according to the specified
-// disposition option.
-//
-// In addition to the encoded CTL, the context's properties are
-// also copied. Note, the CERT_KEY_CONTEXT_PROP_ID property (and its
-// CERT_KEY_PROV_HANDLE_PROP_ID or CERT_KEY_SPEC_PROP_ID) isn't copied.
-//
-// Makes a copy of the encoded CTL before adding to the store.
-//
-// dwAddDispostion specifies the action to take if the CTL
-// already exists in the store. See CertAddCertificateContextToStore for a
-// list of and actions taken.
-//
-// Compares the CTL's SubjectUsage, ListIdentifier and any of its signers
-// to determine if the CTL already exists in the store.
-//
-// ppStoreContext can be NULL, indicating the caller isn't interested
-// in getting the CTL_CONTEXT of the added or existing CTL.
-//--------------------------------------------------------------------------
-function CertAddCTLContextToStore(hCertStore: HCERTSTORE;
- pCtlContext: PCCTL_CONTEXT;
- dwAddDisposition: DWORD;
- var ppStoreContext: PCCTL_CONTEXT
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Serialize the CTL context's encoded CTL and its properties.
-//--------------------------------------------------------------------------
-function CertSerializeCTLStoreElement(pCtlContext: PCCTL_CONTEXT;
- dwFlags: DWORD;
- pbElement: PBYTE;
- pcbElement: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Delete the specified CTL from the store.
-//
-// All subsequent gets for the CTL will fail. However,
-// memory allocated for the CTL isn't freed until all of its contexts
-// have also been freed.
-//
-// The pCtlContext is obtained from a get or duplicate.
-//
-// NOTE: the pCtlContext is always CertFreeCTLContext'ed by
-// this function, even for an error.
-//--------------------------------------------------------------------------
-function CertDeleteCTLFromStore(pCtlContext: PCCTL_CONTEXT): BOOL; stdcall;
-//+=========================================================================
-// Enhanced Key Usage Helper Functions
-//==========================================================================
-
-//+-------------------------------------------------------------------------
-// Get the enhanced key usage extension or property from the certificate
-// and decode.
-//
-// If the CERT_FIND_EXT_ONLY_ENHKEY_USAGE_FLAG is set, then, only get the
-// extension.
-//
-// If the CERT_FIND_PROP_ONLY_ENHKEY_USAGE_FLAG is set, then, only get the
-// property.
-//--------------------------------------------------------------------------
-function CertGetEnhancedKeyUsage(pCertContext: PCCERT_CONTEXT;
- dwFlags: DWORD;
- pUsage: PCERT_ENHKEY_USAGE;
- pcbUsage: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Set the enhanced key usage property for the certificate.
-//--------------------------------------------------------------------------
-function CertSetEnhancedKeyUsage(pCertContext: PCCERT_CONTEXT;
- pUsage: PCERT_ENHKEY_USAGE
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Add the usage identifier to the certificate's enhanced key usage property.
-//--------------------------------------------------------------------------
-function CertAddEnhancedKeyUsageIdentifier(pCertContext: PCCERT_CONTEXT;
- pszUsageIdentifier: LPCSTR
- ): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Remove the usage identifier from the certificate's enhanced key usage
-// property.
-//--------------------------------------------------------------------------
-function CertRemoveEnhancedKeyUsageIdentifier(pCertContext: PCCERT_CONTEXT;
- pszUsageIdentifier: LPCSTR
- ): BOOL; stdcall;
-
-//+=========================================================================
-// Cryptographic Message helper functions for verifying and signing a
-// CTL.
-//==========================================================================
-
-//+-------------------------------------------------------------------------
-// Get and verify the signer of a cryptographic message.
-//
-// To verify a CTL, the hCryptMsg is obtained from the CTL_CONTEXT's
-// hCryptMsg field.
-//
-// If CMSG_TRUSTED_SIGNER_FLAG is set, then, treat the Signer stores as being
-// trusted and only search them to find the certificate corresponding to the
-// signer's issuer and serial number. Otherwise, the SignerStores are
-// optionally provided to supplement the message's store of certificates.
-// If a signer certificate is found, its public key is used to verify
-// the message signature. The CMSG_SIGNER_ONLY_FLAG can be set to
-// return the signer without doing the signature verify.
-//
-// If CMSG_USE_SIGNER_INDEX_FLAG is set, then, only get the signer specified
-// by *pdwSignerIndex. Otherwise, iterate through all the signers
-// until a signer verifies or no more signers.
-//
-// For a verified signature, *ppSigner is updated with certificate context
-// of the signer and *pdwSignerIndex is updated with the index of the signer.
-// ppSigner and/or pdwSignerIndex can be NULL, indicating the caller isn't
-// interested in getting the CertContext and/or index of the signer.
-//--------------------------------------------------------------------------
-function CryptMsgGetAndVerifySigner(hCryptMsg: HCRYPTMSG;
- cSignerStore: DWORD;
- var rghSignerStore: HCERTSTORE;
- dwFlags: DWORD;
- var ppSigner: PCCERT_CONTEXT;
- pdwSignerIndex: PDWORD): BOOL; stdcall;
-
-const CMSG_TRUSTED_SIGNER_FLAG = $1;
-const CMSG_SIGNER_ONLY_FLAG = $2;
-const CMSG_USE_SIGNER_INDEX_FLAG = $4;
-
-//+-------------------------------------------------------------------------
-// Sign an encoded CTL.
-//
-// The pbCtlContent can be obtained via a CTL_CONTEXT's pbCtlContent
-// field or via a CryptEncodeObject(PKCS_CTL).
-//--------------------------------------------------------------------------
-function CryptMsgSignCTL(dwMsgEncodingType: DWORD;
- pbCtlContent: PBYTE;
- cbCtlContent: DWORD;
- pSignInfo: PCMSG_SIGNED_ENCODE_INFO;
- dwFlags: DWORD;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Encode the CTL and create a signed message containing the encoded CTL.
-//--------------------------------------------------------------------------
-function CryptMsgEncodeAndSignCTL(dwMsgEncodingType: DWORD;
- pCtlInfo: PCTL_INFO;
- pSignInfo: PCMSG_SIGNED_ENCODE_INFO;
- dwFlags: DWORD;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD): BOOL; stdcall;
-
-//+=========================================================================
-// Certificate Verify CTL Usage Data Structures and APIs
-//==========================================================================
-type
- PHCERTSTORE = ^HCERTSTORE;
-
-type
- PCTL_VERIFY_USAGE_PARA = ^CTL_VERIFY_USAGE_PARA;
- CTL_VERIFY_USAGE_PARA = record
- cbSize: DWORD;
- ListIdentifier: CRYPT_DATA_BLOB; // OPTIONAL
- cCtlStore: DWORD;
- rghCtlStore: PHCERTSTORE; // OPTIONAL
- cSignerStore: DWORD;
- rghSignerStore: PHCERTSTORE; // OPTIONAL
- end;
-
-type
- PCTL_VERIFY_USAGE_STATUS = ^CTL_VERIFY_USAGE_STATUS;
- CTL_VERIFY_USAGE_STATUS = record
- cbSize: DWORD;
- dwError: DWORD;
- dwFlags: DWORD;
- ppCtl: PPCCTL_CONTEXT; // IN OUT OPTIONAL
- dwCtlEntryIndex: DWORD;
- ppSigner: PPCCERT_CONTEXT; // IN OUT OPTIONAL
- dwSignerIndex: DWORD;
- end;
-
-const CERT_VERIFY_INHIBIT_CTL_UPDATE_FLAG = $1;
-const CERT_VERIFY_TRUSTED_SIGNERS_FLAG = $2;
-const CERT_VERIFY_NO_TIME_CHECK_FLAG = $4;
-const CERT_VERIFY_ALLOW_MORE_USAGE_FLAG = $8;
-
-const CERT_VERIFY_UPDATED_CTL_FLAG = $1;
-
-//+-------------------------------------------------------------------------
-// Verify that a subject is trusted for the specified usage by finding a
-// signed and time valid CTL with the usage identifiers and containing the
-// the subject. A subject can be identified by either its certificate context
-// or any identifier such as its SHA1 hash.
-//
-// See CertFindSubjectInCTL for definition of dwSubjectType and pvSubject
-// parameters.
-//
-// Via pVerifyUsagePara, the caller can specify the stores to be searched
-// to find the CTL. The caller can also specify the stores containing
-// acceptable CTL signers. By setting the ListIdentifier, the caller
-// can also restrict to a particular signer CTL list.
-//
-// Via pVerifyUsageStatus, the CTL containing the subject, the subject's
-// index into the CTL's array of entries, and the signer of the CTL
-// are returned. If the caller is not interested, ppCtl and ppSigner can be set
-// to NULL. Returned contexts must be freed via the store's free context APIs.
-//
-// If the CERT_VERIFY_INHIBIT_CTL_UPDATE_FLAG isn't set, then, a time
-// invalid CTL in one of the CtlStores may be replaced. When replaced, the
-// CERT_VERIFY_UPDATED_CTL_FLAG is set in pVerifyUsageStatus->dwFlags.
-//
-// If the CERT_VERIFY_TRUSTED_SIGNERS_FLAG is set, then, only the
-// SignerStores specified in pVerifyUsageStatus are searched to find
-// the signer. Otherwise, the SignerStores provide additional sources
-// to find the signer's certificate.
-//
-// If CERT_VERIFY_NO_TIME_CHECK_FLAG is set, then, the CTLs aren't checked
-// for time validity.
-//
-// If CERT_VERIFY_ALLOW_MORE_USAGE_FLAG is set, then, the CTL may contain
-// additional usage identifiers than specified by pSubjectUsage. Otherwise,
-// the found CTL will contain the same usage identifers and no more.
-//
-// CertVerifyCTLUsage will be implemented as a dispatcher to OID installable
-// functions. First, it will try to find an OID function matching the first
-// usage object identifier in the pUsage sequence. Next, it will dispatch
-// to the default CertDllVerifyCTLUsage functions.
-//
-// If the subject is trusted for the specified usage, then, TRUE is
-// returned. Otherwise, FALSE is returned with dwError set to one of the
-// following:
-// CRYPT_E_NO_VERIFY_USAGE_DLL
-// CRYPT_E_NO_VERIFY_USAGE_CHECK
-// CRYPT_E_VERIFY_USAGE_OFFLINE
-// CRYPT_E_NOT_IN_CTL
-// CRYPT_E_NO_TRUSTED_SIGNER
-//--------------------------------------------------------------------------
-function CertVerifyCTLUsage(dwEncodingType: DWORD;
- dwSubjectType: DWORD;
- pvSubject: PVOID;
- pSubjectUsage: PCTL_USAGE;
- dwFlags: DWORD;
- pVerifyUsagePara: PCTL_VERIFY_USAGE_PARA;
- pVerifyUsageStatus: PCTL_VERIFY_USAGE_STATUS
- ): BOOL; stdcall;
-
-//+=========================================================================
-// Certificate Revocation Data Structures and APIs
-//==========================================================================
-
-//+-------------------------------------------------------------------------
-// The following data structure may be passed to CertVerifyRevocation to
-// assist in finding the issuer of the context to be verified.
-//
-// When pIssuerCert is specified, pIssuerCert is the issuer of
-// rgpvContext[cContext - 1].
-//
-// When cCertStore and rgCertStore are specified, these stores may contain
-// an issuer certificate.
-//--------------------------------------------------------------------------
-type
- PCERT_REVOCATION_PARA = ^CERT_REVOCATION_PARA;
- CERT_REVOCATION_PARA = record
- cbSize: DWORD;
- pIssuerCert: PCCERT_CONTEXT;
- cCertStore: DWORD;
- rgCertStore: PHCERTSTORE;
- end;
-
-//+-------------------------------------------------------------------------
-// The following data structure is returned by CertVerifyRevocation to
-// specify the status of the revoked or unchecked context. Review the
-// following CertVerifyRevocation comments for details.
-//
-// Upon input to CertVerifyRevocation, cbSize must be set to a size
-// >= sizeof(CERT_REVOCATION_STATUS). Otherwise, CertVerifyRevocation
-// returns FALSE and sets LastError to E_INVALIDARG.
-//
-// Upon input to the installed or registered CRYPT_OID_VERIFY_REVOCATION_FUNC
-// functions, the dwIndex, dwError and dwReason have been zero'ed.
-//--------------------------------------------------------------------------
-type
- PCERT_REVOCATION_STATUS = ^CERT_REVOCATION_STATUS;
- CERT_REVOCATION_STATUS = record
- cbSize: DWORD;
- dwIndex: DWORD;
- dwError: DWORD;
- dwReason: DWORD;
- end;
-//+-------------------------------------------------------------------------
-// Verifies the array of contexts for revocation. The dwRevType parameter
-// indicates the type of the context data structure passed in rgpvContext.
-// Currently only the revocation of certificates is defined.
-//
-// If the CERT_VERIFY_REV_CHAIN_FLAG flag is set, then, CertVerifyRevocation
-// is verifying a chain of certs where, rgpvContext[i + 1] is the issuer
-// of rgpvContext[i]. Otherwise, CertVerifyRevocation makes no assumptions
-// about the order of the contexts.
-//
-// To assist in finding the issuer, the pRevPara may optionally be set. See
-// the CERT_REVOCATION_PARA data structure for details.
-//
-// The contexts must contain enough information to allow the
-// installable or registered revocation DLLs to find the revocation server. For
-// certificates, this information would normally be conveyed in an
-// extension such as the IETF's AuthorityInfoAccess extension.
-//
-// CertVerifyRevocation returns TRUE if all of the contexts were successfully
-// checked and none were revoked. Otherwise, returns FALSE and updates the
-// returned pRevStatus data structure as follows:
-// dwIndex
-// Index of the first context that was revoked or unable to
-// be checked for revocation
-// dwError
-// Error status. LastError is also set to this error status.
-// dwError can be set to one of the following error codes defined
-// in winerror.h:
-// ERROR_SUCCESS - good context
-// CRYPT_E_REVOKED - context was revoked. dwReason contains the
-// reason for revocation
-// CRYPT_E_REVOCATION_OFFLINE - unable to connect to the
-// revocation server
-// CRYPT_E_NOT_IN_REVOCATION_DATABASE - the context to be checked
-// was not found in the revocation server's database.
-// CRYPT_E_NO_REVOCATION_CHECK - the called revocation function
-// wasn't able to do a revocation check on the context
-// CRYPT_E_NO_REVOCATION_DLL - no installed or registered Dll was
-// found to verify revocation
-// dwReason
-// The dwReason is currently only set for CRYPT_E_REVOKED and contains
-// the reason why the context was revoked. May be one of the following
-// CRL reasons defined by the CRL Reason Code extension ("2.5.29.21")
-// CRL_REASON_UNSPECIFIED 0
-// CRL_REASON_KEY_COMPROMISE 1
-// CRL_REASON_CA_COMPROMISE 2
-// CRL_REASON_AFFILIATION_CHANGED 3
-// CRL_REASON_SUPERSEDED 4
-// CRL_REASON_CESSATION_OF_OPERATION 5
-// CRL_REASON_CERTIFICATE_HOLD 6
-//
-// For each entry in rgpvContext, CertVerifyRevocation iterates
-// through the CRYPT_OID_VERIFY_REVOCATION_FUNC
-// function set's list of installed DEFAULT functions.
-// CryptGetDefaultOIDFunctionAddress is called with pwszDll = NULL. If no
-// installed functions are found capable of doing the revocation verification,
-// CryptVerifyRevocation iterates through CRYPT_OID_VERIFY_REVOCATION_FUNC's
-// list of registered DEFAULT Dlls. CryptGetDefaultOIDDllList is called to
-// get the list. CryptGetDefaultOIDFunctionAddress is called to load the Dll.
-//
-// The called functions have the same signature as CertVerifyRevocation. A
-// called function returns TRUE if it was able to successfully check all of
-// the contexts and none were revoked. Otherwise, the called function returns
-// FALSE and updates pRevStatus. dwIndex is set to the index of
-// the first context that was found to be revoked or unable to be checked.
-// dwError and LastError are updated. For CRYPT_E_REVOKED, dwReason
-// is updated. Upon input to the called function, dwIndex, dwError and
-// dwReason have been zero'ed. cbSize has been checked to be >=
-// sizeof(CERT_REVOCATION_STATUS).
-//
-// If the called function returns FALSE, and dwError isn't set to
-// CRYPT_E_REVOKED, then, CertVerifyRevocation either continues on to the
-// next DLL in the list for a returned dwIndex of 0 or for a returned
-// dwIndex > 0, restarts the process of finding a verify function by
-// advancing the start of the context array to the returned dwIndex and
-// decrementing the count of remaining contexts.
-//--------------------------------------------------------------------------
-function CertVerifyRevocation(dwEncodingType: DWORD;
- dwRevType: DWORD;
- cContext: DWORD;
- rgpvContext: array of PVOID;
- dwFlags: DWORD;
- pRevPara: PCERT_REVOCATION_PARA;
- pRevStatus: PCERT_REVOCATION_STATUS
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Revocation types
-//--------------------------------------------------------------------------
-const CERT_CONTEXT_REVOCATION_TYPE = 1;
-
-//+-------------------------------------------------------------------------
-// When the following flag is set, rgpvContext[] consists of a chain
-// of certificates, where rgpvContext[i + 1] is the issuer of rgpvContext[i].
-//--------------------------------------------------------------------------
-const CERT_VERIFY_REV_CHAIN_FLAG = $1;
-
-//+-------------------------------------------------------------------------
-// CERT_CONTEXT_REVOCATION_TYPE
-//
-// pvContext points to a const CERT_CONTEXT.
-//--------------------------------------------------------------------------
-
-//+=========================================================================
-// Certificate Helper APIs
-//==========================================================================
-
-
-//+-------------------------------------------------------------------------
-// Compare two multiple byte integer blobs to see if they are identical.
-//
-// Before doing the comparison, leading zero bytes are removed from a
-// positive number and leading 0xFF bytes are removed from a negative
-// number.
-//
-// The multiple byte integers are treated as Little Endian. pbData[0] is the
-// least significant byte and pbData[cbData - 1] is the most significant
-// byte.
-//
-// Returns TRUE if the integer blobs are identical after removing leading
-// 0 or 0xFF bytes.
-//--------------------------------------------------------------------------
-function CertCompareIntegerBlob(pInt1: PCRYPT_INTEGER_BLOB;
- pInt2: PCRYPT_INTEGER_BLOB
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Compare two certificates to see if they are identical.
-//
-// Since a certificate is uniquely identified by its Issuer and SerialNumber,
-// these are the only fields needing to be compared.
-//
-// Returns TRUE if the certificates are identical.
-//--------------------------------------------------------------------------
-function CertCompareCertificate(dwCertEncodingType: DWORD;
- pCertId1: PCERT_INFO;
- pCertId2: PCERT_INFO): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Compare two certificate names to see if they are identical.
-//
-// Returns TRUE if the names are identical.
-//--------------------------------------------------------------------------
-function CertCompareCertificateName(dwCertEncodingType: DWORD;
- pCertName1: PCERT_NAME_BLOB;
- pCertName2: PCERT_NAME_BLOB): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Compare the attributes in the certificate name with the specified
-// Relative Distinguished Name's (CERT_RDN) array of attributes.
-// The comparison iterates through the CERT_RDN attributes and looks for an
-// attribute match in any of the certificate name's RDNs.
-// Returns TRUE if all the attributes are found and match.
-//
-// The CERT_RDN_ATTR fields can have the following special values:
-// pszObjId == NULL - ignore the attribute object identifier
-// dwValueType == RDN_ANY_TYPE - ignore the value type
-//
-// Currently only an exact, case sensitive match is supported.
-//
-// CERT_UNICODE_IS_RDN_ATTRS_FLAG should be set if the pRDN was initialized
-// with unicode strings as for CryptEncodeObject(X509_UNICODE_NAME).
-//--------------------------------------------------------------------------
-function CertIsRDNAttrsInCertificateName(dwCertEncodingType: DWORD;
- dwFlags: DWORD;
- pCertName: PCERT_NAME_BLOB;
- pRDN: PCERT_RDN): BOOL; stdcall;
-
-const CERT_UNICODE_IS_RDN_ATTRS_FLAG = $1;
-
-//+-------------------------------------------------------------------------
-// Compare two public keys to see if they are identical.
-//
-// Returns TRUE if the keys are identical.
-//--------------------------------------------------------------------------
-function CertComparePublicKeyInfo(dwCertEncodingType: DWORD;
- pPublicKey1: PCERT_PUBLIC_KEY_INFO;
- pPublicKey2: PCERT_PUBLIC_KEY_INFO
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Get the public/private key's bit length.
-//
-// Returns 0 if unable to determine the key's length.
-//--------------------------------------------------------------------------
-function CertGetPublicKeyLength(dwCertEncodingType: DWORD;
- pPublicKey: PCERT_PUBLIC_KEY_INFO
- ): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-// Verify the signature of a subject certificate or a CRL using the
-// public key info
-//
-// Returns TRUE for a valid signature.
-//
-// hCryptProv specifies the crypto provider to use to verify the signature.
-// It doesn't need to use a private key.
-//--------------------------------------------------------------------------
-function CryptVerifyCertificateSignature(hCryptProv: HCRYPTPROV;
- dwCertEncodingType: DWORD;
- const pbEncoded: PBYTE;
- cbEncoded: DWORD;
- pPublicKey: PCERT_PUBLIC_KEY_INFO
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Compute the hash of the "to be signed" information in the encoded
-// signed content (CERT_SIGNED_CONTENT_INFO).
-//
-// hCryptProv specifies the crypto provider to use to compute the hash.
-// It doesn't need to use a private key.
-//--------------------------------------------------------------------------
-function CryptHashToBeSigned(hCryptProv: HCRYPTPROV;
- dwCertEncodingType: DWORD;
- const pbEncoded: PBYTE;
- cbEncoded: DWORD;
- pbComputedHash: PBYTE;
- pcbComputedHash: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Hash the encoded content.
-//
-// hCryptProv specifies the crypto provider to use to compute the hash.
-// It doesn't need to use a private key.
-//
-// Algid specifies the CAPI hash algorithm to use. If Algid is 0, then, the
-// default hash algorithm (currently SHA1) is used.
-//--------------------------------------------------------------------------
-function CryptHashCertificate(hCryptProv: HCRYPTPROV;
- Algid: ALG_ID;
- dwFlags: DWORD;
- const pbEncoded: PBYTE;
- cbEncoded: DWORD;
- pbComputedHash: PBYTE;
- pcbComputedHash: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Sign the "to be signed" information in the encoded signed content.
-//
-// hCryptProv specifies the crypto provider to use to do the signature.
-// It uses the specified private key.
-//--------------------------------------------------------------------------
-function CryptSignCertificate(hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- dwCertEncodingType: DWORD;
- const pbEncodedToBeSigned: PBYTE;
- cbEncodedToBeSigned: DWORD;
- pSignatureAlgorithm: PCRYPT_ALGORITHM_IDENTIFIER;
- const pvHashAuxInfo: PVOID;
- pbSignature: PBYTE;
- pcbSignature: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Encode the "to be signed" information. Sign the encoded "to be signed".
-// Encode the "to be signed" and the signature.
-//
-// hCryptProv specifies the crypto provider to use to do the signature.
-// It uses the specified private key.
-//--------------------------------------------------------------------------
-function CryptSignAndEncodeCertificate(hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- dwCertEncodingType: DWORD;
- const lpszStructType: LPCSTR; // "to be signed"
- pvStructInfo: PVOID;
- pSignatureAlgorithm: PCRYPT_ALGORITHM_IDENTIFIER;
- const pvHashAuxInfo: PVOID;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Verify the time validity of a certificate.
-//
-// Returns -1 if before NotBefore, +1 if after NotAfter and otherwise 0 for
-// a valid certificate
-//
-// If pTimeToVerify is NULL, uses the current time.
-//--------------------------------------------------------------------------
-function CertVerifyTimeValidity(pTimeToVerify: PFILETIME;
- pCertInfo: PCERT_INFO): LONG; stdcall;
-
-//+-------------------------------------------------------------------------
-// Verify the time validity of a CRL.
-//
-// Returns -1 if before ThisUpdate, +1 if after NextUpdate and otherwise 0 for
-// a valid CRL
-//
-// If pTimeToVerify is NULL, uses the current time.
-//--------------------------------------------------------------------------
-function CertVerifyCRLTimeValidity(pTimeToVerify: PFILETIME;
- pCrlInfo: PCRL_INFO): LONG; stdcall;
-//+-------------------------------------------------------------------------
-// Verify that the subject's time validity nests within the issuer's time
-// validity.
-//
-// Returns TRUE if it nests. Otherwise, returns FALSE.
-//--------------------------------------------------------------------------
-function CertVerifyValidityNesting(pSubjectInfo: PCERT_INFO;
- pIssuerInfo: PCERT_INFO): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Verify that the subject certificate isn't on its issuer CRL.
-//
-// Returns true if the certificate isn't on the CRL.
-//--------------------------------------------------------------------------
-function CertVerifyCRLRevocation(dwCertEncodingType: DWORD;
- pCertId: PCERT_INFO; // Only the Issuer and SerialNumber
- cCrlInfo: DWORD; // fields are used
- rgpCrlInfo: array of PCRL_INFO): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Convert the CAPI AlgId to the ASN.1 Object Identifier string
-//
-// Returns NULL if there isn't an ObjId corresponding to the AlgId.
-//--------------------------------------------------------------------------
-function CertAlgIdToOID(dwAlgId: DWORD): LPCSTR; stdcall;
-//+-------------------------------------------------------------------------
-// Convert the ASN.1 Object Identifier string to the CAPI AlgId.
-//
-// Returns 0 if there isn't an AlgId corresponding to the ObjId.
-//--------------------------------------------------------------------------
-function CertOIDToAlgId(pszObjId: LPCSTR): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-// Find an extension identified by its Object Identifier.
-//
-// If found, returns pointer to the extension. Otherwise, returns NULL.
-//--------------------------------------------------------------------------
-function CertFindExtension(pszObjId: LPCSTR;
- cExtensions: DWORD;
- rgExtensions: array of CERT_EXTENSION): PCERT_EXTENSION; stdcall;
-//+-------------------------------------------------------------------------
-// Find the first attribute identified by its Object Identifier.
-//
-// If found, returns pointer to the attribute. Otherwise, returns NULL.
-//--------------------------------------------------------------------------
-function CertFindAttribute(pszObjId: LPCSTR;
- cAttr: DWORD;
- rgAttr: array of CRYPT_ATTRIBUTE): PCRYPT_ATTRIBUTE; stdcall;
-//+-------------------------------------------------------------------------
-// Find the first CERT_RDN attribute identified by its Object Identifier in
-// the name's list of Relative Distinguished Names.
-//
-// If found, returns pointer to the attribute. Otherwise, returns NULL.
-//--------------------------------------------------------------------------
-function CertFindRDNAttr(pszObjId: LPCSTR;
- pName: PCERT_NAME_INFO): PCERT_RDN_ATTR; stdcall;
-//+-------------------------------------------------------------------------
-// Get the intended key usage bytes from the certificate.
-//
-// If the certificate doesn't have any intended key usage bytes, returns FALSE
-// and *pbKeyUsage is zeroed. Otherwise, returns TRUE and up through
-// cbKeyUsage bytes are copied into *pbKeyUsage. Any remaining uncopied
-// bytes are zeroed.
-//--------------------------------------------------------------------------
-function CertGetIntendedKeyUsage(dwCertEncodingType: DWORD;
- pCertInfo: PCERT_INFO;
- pbKeyUsage: PBYTE;
- cbKeyUsage: DWORD): BOOL; stdcall;
-
-//+-------------------------------------------------------------------------
-// Export the public key info associated with the provider's corresponding
-// private key.
-//
-// Calls CryptExportPublicKeyInfo with pszPublicKeyObjId = szOID_RSA_RSA,
-// dwFlags = 0 and pvAuxInfo = NULL.
-//--------------------------------------------------------------------------
-function CryptExportPublicKeyInfo(hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- dwCertEncodingType: DWORD;
- pInfo: PCERT_PUBLIC_KEY_INFO;
- pcbInfo: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Export the public key info associated with the provider's corresponding
-// private key.
-//
-// Uses the dwCertEncodingType and pszPublicKeyObjId to call the
-// installable CRYPT_OID_EXPORT_PUBLIC_KEY_INFO_FUNC. The called function
-// has the same signature as CryptExportPublicKeyInfoEx.
-//
-// If unable to find an installable OID function for the pszPublicKeyObjId,
-// attempts to export as a RSA Public Key (szOID_RSA_RSA).
-//
-// The dwFlags and pvAuxInfo aren't used for szOID_RSA_RSA.
-//--------------------------------------------------------------------------
-const CRYPT_OID_EXPORT_PUBLIC_KEY_INFO_FUNC = 'CryptDllExportPublicKeyInfoEx';
-
-function CryptExportPublicKeyInfoEx(hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- dwCertEncodingType: DWORD;
- pszPublicKeyObjId: LPSTR;
- dwFlags: DWORD;
- pvAuxInfo: PVOID;
- pInfo: PCERT_PUBLIC_KEY_INFO;
- pcbInfo: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Convert and import the public key info into the provider and return a
-// handle to the public key.
-//
-// Calls CryptImportPublicKeyInfoEx with aiKeyAlg = 0, dwFlags = 0 and
-// pvAuxInfo = NULL.
-//--------------------------------------------------------------------------
-function CryptImportPublicKeyInfo(hCryptProv: HCRYPTPROV;
- dwCertEncodingType: DWORD;
- pInfo: PCERT_PUBLIC_KEY_INFO;
- phKey: PHCRYPTKEY): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Convert and import the public key info into the provider and return a
-// handle to the public key.
-//
-// Uses the dwCertEncodingType and pInfo->Algorithm.pszObjId to call the
-// installable CRYPT_OID_IMPORT_PUBLIC_KEY_INFO_FUNC. The called function
-// has the same signature as CryptImportPublicKeyInfoEx.
-//
-// If unable to find an installable OID function for the pszObjId,
-// attempts to import as a RSA Public Key (szOID_RSA_RSA).
-//
-// For szOID_RSA_RSA: aiKeyAlg may be set to CALG_RSA_SIGN or CALG_RSA_KEYX.
-// Defaults to CALG_RSA_KEYX. The dwFlags and pvAuxInfo aren't used.
-//--------------------------------------------------------------------------
-const CRYPT_OID_IMPORT_PUBLIC_KEY_INFO_FUNC = 'CryptDllImportPublicKeyInfoEx';
-
-function CryptImportPublicKeyInfoEx(hCryptProv: HCRYPTPROV;
- dwCertEncodingType: DWORD;
- pInfo: PCERT_PUBLIC_KEY_INFO;
- aiKeyAlg: ALG_ID;
- dwFlags: DWORD;
- pvAuxInfo: PVOID;
- phKey: PHCRYPTKEY
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Compute the hash of the encoded public key info.
-//
-// The public key info is encoded and then hashed.
-//--------------------------------------------------------------------------
-function CryptHashPublicKeyInfo(hCryptProv: HCRYPTPROV;
- Algid: ALG_ID;
- dwFlags: DWORD;
- dwCertEncodingType: DWORD;
- pInfo: PCERT_PUBLIC_KEY_INFO;
- pbComputedHash: PBYTE;
- pcbComputedHash: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Convert a Name Value to a null terminated char string
-//
-// Returns the number of characters converted including the terminating null
-// character. If psz is NULL or csz is 0, returns the required size of the
-// destination string (including the terminating null char).
-//
-// If psz != NULL && csz != 0, returned psz is always NULL terminated.
-//
-// Note: csz includes the NULL char.
-//--------------------------------------------------------------------------
-function CertRDNValueToStrA(dwValueType: DWORD;
- pValue: PCERT_RDN_VALUE_BLOB;
- psz: LPSTR; //OPTIONAL
- csz: DWORD): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-// Convert a Name Value to a null terminated char string
-//
-// Returns the number of characters converted including the terminating null
-// character. If psz is NULL or csz is 0, returns the required size of the
-// destination string (including the terminating null char).
-//
-// If psz != NULL && csz != 0, returned psz is always NULL terminated.
-//
-// Note: csz includes the NULL char.
-//--------------------------------------------------------------------------
-function CertRDNValueToStrW(dwValueType: DWORD;
- pValue: PCERT_RDN_VALUE_BLOB;
- psz: LPWSTR; //OPTIONAL
- csz: DWORD): DWORD; stdcall;
-
-function CertRDNValueToStr(dwValueType: DWORD;
- pValue: PCERT_RDN_VALUE_BLOB;
- psz: LPAWSTR; //OPTIONAL
- csz: DWORD): DWORD; stdcall;
-
-//+-------------------------------------------------------------------------
-// Convert the certificate name blob to a null terminated char string.
-//
-// Follows the string representation of distinguished names specified in
-// RFC 1779. (Note, added double quoting "" for embedded quotes, quote
-// empty strings and don't quote strings containing consecutive spaces).
-// RDN values of type CERT_RDN_ENCODED_BLOB or CERT_RDN_OCTET_STRING are
-// formatted in hexadecimal (e.g. #0A56CF).
-//
-// The name string is formatted according to the dwStrType:
-// CERT_SIMPLE_NAME_STR
-// The object identifiers are discarded. CERT_RDN entries are separated
-// by ", ". Multiple attributes per CERT_RDN are separated by " + ".
-// For example:
-// Microsoft, Joe Cool + Programmer
-// CERT_OID_NAME_STR
-// The object identifiers are included with a "=" separator from their
-// attribute value. CERT_RDN entries are separated by ", ".
-// Multiple attributes per CERT_RDN are separated by " + ". For example:
-// 2.5.4.11=Microsoft, 2.5.4.3=Joe Cool + 2.5.4.12=Programmer
-// CERT_X500_NAME_STR
-// The object identifiers are converted to their X500 key name. Otherwise,
-// same as CERT_OID_NAME_STR. If the object identifier doesn't have
-// a corresponding X500 key name, then, the object identifier is used with
-// a "OID." prefix. For example:
-// OU=Microsoft, CN=Joe Cool + T=Programmer, OID.1.2.3.4.5.6=Unknown
-//
-// We quote the RDN value if it contains leading or trailing whitespace
-// or one of the following characters: ",", "+", "=", """, "\n", "<", ">",
-// "#" or ";". The quoting character is ". If the the RDN Value contains
-// a " it is double quoted (""). For example:
-// OU=" Microsoft", CN="Joe ""Cool""" + T="Programmer, Manager"
-//
-// CERT_NAME_STR_SEMICOLON_FLAG can be or'ed into dwStrType to replace
-// the ", " separator with a "; " separator.
-//
-// CERT_NAME_STR_CRLF_FLAG can be or'ed into dwStrType to replace
-// the ", " separator with a "\r\n" separator.
-//
-// CERT_NAME_STR_NO_PLUS_FLAG can be or'ed into dwStrType to replace the
-// " + " separator with a single space, " ".
-//
-// CERT_NAME_STR_NO_QUOTING_FLAG can be or'ed into dwStrType to inhibit
-// the above quoting.
-//
-// Returns the number of characters converted including the terminating null
-// character. If psz is NULL or csz is 0, returns the required size of the
-// destination string (including the terminating null char).
-//
-// If psz != NULL && csz != 0, returned psz is always NULL terminated.
-//
-// Note: csz includes the NULL char.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-//--------------------------------------------------------------------------
-function CertNameToStrA(dwCertEncodingType: DWORD;
- pName: PCERT_NAME_BLOB;
- dwStrType: DWORD;
- psz: LPSTR; //OPTIONAL
- csz: DWORD): DWORD; stdcall;
-//+-------------------------------------------------------------------------
-//--------------------------------------------------------------------------
-function CertNameToStrW(dwCertEncodingType: DWORD;
- pName: PCERT_NAME_BLOB;
- dwStrType: DWORD;
- psz: LPWSTR; //OPTIONAL
- csz: DWORD): DWORD; stdcall;
-
-function CertNameToStr(dwCertEncodingType: DWORD;
- pName: PCERT_NAME_BLOB;
- dwStrType: DWORD;
- psz: LPAWSTR; //OPTIONAL
- csz: DWORD): DWORD; stdcall;
-
-//+-------------------------------------------------------------------------
-// Certificate name string types
-//--------------------------------------------------------------------------
-const CERT_SIMPLE_NAME_STR = 1;
-const CERT_OID_NAME_STR = 2;
-const CERT_X500_NAME_STR = 3;
-
-//+-------------------------------------------------------------------------
-// Certificate name string type flags OR'ed with the above types
-//--------------------------------------------------------------------------
-const CERT_NAME_STR_SEMICOLON_FLAG = $40000000;
-const CERT_NAME_STR_NO_PLUS_FLAG = $20000000;
-const CERT_NAME_STR_NO_QUOTING_FLAG = $10000000;
-const CERT_NAME_STR_CRLF_FLAG = $08000000;
-const CERT_NAME_STR_COMMA_FLAG = $04000000;
-
-
-//+-------------------------------------------------------------------------
-// Convert the null terminated X500 string to an encoded certificate name.
-//
-// The input string is expected to be formatted the same as the output
-// from the above CertNameToStr API.
-//
-// The CERT_SIMPLE_NAME_STR type isn't supported. Otherwise, when dwStrType
-// is set to 0, CERT_OID_NAME_STR or CERT_X500_NAME_STR, allow either a
-// case insensitive X500 key (CN=), case insensitive "OID." prefixed
-// object identifier (OID.1.2.3.4.5.6=) or an object identifier (1.2.3.4=).
-//
-// If no flags are OR'ed into dwStrType, then, allow "," or ";" as RDN
-// separators and "+" as the multiple RDN value separator. Quoting is
-// supported. A quote may be included in a quoted value by double quoting,
-// for example (CN="Joe ""Cool"""). A value starting with a "#" is treated
-// as ascii hex and converted to a CERT_RDN_OCTET_STRING. Embedded whitespace
-// is skipped (1.2.3 = # AB CD 01 is the same as 1.2.3=#ABCD01).
-//
-// Whitespace surrounding the keys, object identifers and values is removed.
-//
-// CERT_NAME_STR_COMMA_FLAG can be or'ed into dwStrType to only allow the
-// "," as the RDN separator.
-//
-// CERT_NAME_STR_SEMICOLON_FLAG can be or'ed into dwStrType to only allow the
-// ";" as the RDN separator.
-//
-// CERT_NAME_STR_CRLF_FLAG can be or'ed into dwStrType to only allow
-// "\r" or "\n" as the RDN separator.
-//
-// CERT_NAME_STR_NO_PLUS_FLAG can be or'ed into dwStrType to ignore "+"
-// as a separator and not allow multiple values per RDN.
-//
-// CERT_NAME_STR_NO_QUOTING_FLAG can be or'ed into dwStrType to inhibit
-// quoting.
-//
-// Support the following X500 Keys:
-//
-// Key Object Identifier RDN Value Type(s)
-// --- ----------------- -----------------
-// CN szOID_COMMON_NAME Printable, T61
-// L szOID_LOCALITY_NAME Printable, T61
-// O szOID_ORGANIZATION_NAME Printable, T61
-// OU szOID_ORGANIZATIONAL_UNIT_NAME Printable, T61
-// Email szOID_RSA_emailAddr Only IA5
-// C szOID_COUNTRY_NAME Only Printable
-// S szOID_STATE_OR_PROVINCE_NAME Printable, T61
-// ST szOID_STATE_OR_PROVINCE_NAME Printable, T61
-// STREET szOID_STREET_ADDRESS Printable, T61
-// T szOID_TITLE Printable, T61
-// Title szOID_TITLE Printable, T61
-// G szOID_GIVEN_NAME Printable, T61
-// GivenName szOID_GIVEN_NAME Printable, T61
-// I szOID_INITIALS Printable, T61
-// Initials szOID_INITIALS Printable, T61
-// SN szOID_SUR_NAME Printable, T61
-// DC szOID_DOMAIN_COMPONENT Only IA5
-//
-// The T61 types are UTF-8 encoded.
-//
-// Returns TRUE if successfully parsed the input string and encoded
-// the name.
-//
-// If the input string is detected to be invalid, *ppszError is updated
-// to point to the beginning of the invalid character sequence. Otherwise,
-// *ppszError is set to NULL. *ppszError is updated with a non-NULL pointer
-// for the following errors:
-// CRYPT_E_INVALID_X500_STRING
-// CRYPT_E_INVALID_NUMERIC_STRING
-// CRYPT_E_INVALID_PRINTABLE_STRING
-// CRYPT_E_INVALID_IA5_STRING
-//
-// ppszError can be set to NULL if not interested in getting a pointer
-// to the invalid character sequence.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-//--------------------------------------------------------------------------
-function CertStrToNameA(dwCertEncodingType: DWORD;
- pszX500: LPCSTR;
- dwStrType: DWORD;
- pvReserved: PVOID;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD;
- var ppszError: array of LPCSTR): BOOL; stdcall; {--max-- iniziato qui}
-//+-------------------------------------------------------------------------
-//--------------------------------------------------------------------------
-function CertStrToNameW(dwCertEncodingType: DWORD;
- pszX500: LPCWSTR;
- dwStrType: DWORD;
- pvReserved: PVOID;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD;
- var ppszError: array of LPWSTR): BOOL; stdcall;
-
-function CertStrToName(dwCertEncodingType: DWORD;
- pszX500: LPAWSTR;
- dwStrType: DWORD;
- pvReserved: PVOID;
- pbEncoded: PBYTE;
- pcbEncoded: PDWORD;
- var ppszError: array of LPAWSTR): BOOL; stdcall;
-
-//+=========================================================================
-// Simplified Cryptographic Message Data Structures and APIs
-//==========================================================================
-
-
-//+-------------------------------------------------------------------------
-// Conventions for the *pb and *pcb output parameters:
-//
-// Upon entry to the function:
-// if pcb is OPTIONAL && pcb == NULL, then,
-// No output is returned
-// else if pb == NULL && pcb != NULL, then,
-// Length only determination. No length error is
-// returned.
-// otherwise where (pb != NULL && pcb != NULL && *pcb != 0)
-// Output is returned. If *pcb isn't big enough a
-// length error is returned. In all cases *pcb is updated
-// with the actual length needed/returned.
-//--------------------------------------------------------------------------
-
-
-//+-------------------------------------------------------------------------
-// Type definitions of the parameters used for doing the cryptographic
-// operations.
-//--------------------------------------------------------------------------
-
-//+-------------------------------------------------------------------------
-// Callback to get and verify the signer's certificate.
-//
-// Passed the CertId of the signer (its Issuer and SerialNumber) and a
-// handle to its cryptographic signed message's cert store.
-//
-// For CRYPT_E_NO_SIGNER, called with pSignerId == NULL.
-//
-// For a valid signer certificate, returns a pointer to a read only
-// CERT_CONTEXT. The returned CERT_CONTEXT is either obtained from a
-// cert store or was created via CertCreateCertificateContext. For either case,
-// its freed via CertFreeCertificateContext.
-//
-// If a valid certificate isn't found, this callback returns NULL with
-// LastError set via SetLastError().
-//
-// The NULL implementation tries to get the Signer certificate from the
-// message cert store. It doesn't verify the certificate.
-//--------------------------------------------------------------------------
-
-type
- PFN_CRYPT_GET_SIGNER_CERTIFICATE = function(pvGetArg: PVOID;
- dwCertEncodingType: DWORD;
- pSignerId: PCERT_INFO; // Only the Issuer and SerialNumber
- hMsgCertStore: HCERTSTORE // fields have been updated
- ): PCCERT_CONTEXT; stdcall;
-//+-------------------------------------------------------------------------
-// The CRYPT_SIGN_MESSAGE_PARA are used for signing messages using the
-// specified signing certificate contexts. (Note, allows multiple signers.)
-//
-// Either the CERT_KEY_PROV_HANDLE_PROP_ID or CERT_KEY_PROV_INFO_PROP_ID must
-// be set for each rgpSigningCert[]. Either one specifies the private
-// signature key to use.
-//
-// If any certificates and/or CRLs are to be included in the signed message,
-// then, the MsgCert and MsgCrl parameters need to be updated. If the
-// rgpSigningCerts are to be included, then, they must also be in the
-// rgpMsgCert array.
-//
-// cbSize must be set to the sizeof(CRYPT_SIGN_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//
-// pvHashAuxInfo currently isn't used and must be set to NULL.
-//
-// dwFlags normally is set to 0. However, if the encoded output
-// is to be a CMSG_SIGNED inner content of an outer cryptographic message,
-// such as a CMSG_ENVELOPED, then, the CRYPT_MESSAGE_BARE_CONTENT_OUT_FLAG
-// should be set. If not set, then it would be encoded as an inner content
-// type of CMSG_DATA.
-//
-// dwInnerContentType is normally set to 0. It needs to be set if the
-// ToBeSigned input is the encoded output of another cryptographic
-// message, such as, an CMSG_ENVELOPED. When set, it's one of the cryptographic
-// message types, for example, CMSG_ENVELOPED.
-//
-// If the inner content of a nested cryptographic message is data (CMSG_DATA
-// the default), then, neither dwFlags or dwInnerContentType need to be set.
-//--------------------------------------------------------------------------
-
-type
- PCRYPT_SIGN_MESSAGE_PARA = ^CRYPT_SIGN_MESSAGE_PARA;
- CRYPT_SIGN_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgEncodingType: DWORD;
- pSigningCert: PCCERT_CONTEXT;
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvHashAuxInfo: PVOID;
- cMsgCert: DWORD;
- rgpMsgCert: PPCCERT_CONTEXT; // pointer to array of PCCERT_CONTEXT
- cMsgCrl: DWORD;
- rgpMsgCrl: PPCCRL_CONTEXT; // pointer to array of PCCERT_CO
- cAuthAttr: DWORD;
- rgAuthAttr: PCRYPT_ATTRIBUTE;
- cUnauthAttr: DWORD;
- rgUnauthAttr: PCRYPT_ATTRIBUTE;
- dwFlags: DWORD;
- dwInnerContentType: DWORD;
- end;
-const CRYPT_MESSAGE_BARE_CONTENT_OUT_FLAG = $1;
-
-//+-------------------------------------------------------------------------
-// The CRYPT_VERIFY_MESSAGE_PARA are used to verify signed messages.
-//
-// hCryptProv is used to do hashing and signature verification.
-//
-// The dwCertEncodingType specifies the encoding type of the certificates
-// and/or CRLs in the message.
-//
-// pfnGetSignerCertificate is called to get and verify the message signer's
-// certificate.
-//
-// cbSize must be set to the sizeof(CRYPT_VERIFY_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//--------------------------------------------------------------------------
-type
- PCRYPT_VERIFY_MESSAGE_PARA = ^CRYPT_VERIFY_MESSAGE_PARA;
- CRYPT_VERIFY_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgAndCertEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- pfnGetSignerCertificate: PFN_CRYPT_GET_SIGNER_CERTIFICATE;
- pvGetArg: PVOID;
- end;
-
-//+-------------------------------------------------------------------------
-// The CRYPT_ENCRYPT_MESSAGE_PARA are used for encrypting messages.
-//
-// hCryptProv is used to do content encryption, recipient key
-// encryption, and recipient key export. Its private key
-// isn't used.
-//
-// pvEncryptionAuxInfo currently isn't used and must be set to NULL.
-//
-// cbSize must be set to the sizeof(CRYPT_ENCRYPT_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//
-// dwFlags normally is set to 0. However, if the encoded output
-// is to be a CMSG_ENVELOPED inner content of an outer cryptographic message,
-// such as a CMSG_SIGNED, then, the CRYPT_MESSAGE_BARE_CONTENT_OUT_FLAG
-// should be set. If not set, then it would be encoded as an inner content
-// type of CMSG_DATA.
-//
-// dwInnerContentType is normally set to 0. It needs to be set if the
-// ToBeEncrypted input is the encoded output of another cryptographic
-// message, such as, an CMSG_SIGNED. When set, it's one of the cryptographic
-// message types, for example, CMSG_SIGNED.
-//
-// If the inner content of a nested cryptographic message is data (CMSG_DATA
-// the default), then, neither dwFlags or dwInnerContentType need to be set.
-//--------------------------------------------------------------------------
-type
- PCRYPT_ENCRYPT_MESSAGE_PARA = ^CRYPT_ENCRYPT_MESSAGE_PARA;
- CRYPT_ENCRYPT_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- ContentEncryptionAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvEncryptionAuxInfo: PVOID;
- dwFlags: DWORD;
- dwInnerContentType: DWORD;
- end;
-
-//+-------------------------------------------------------------------------
-// The CRYPT_DECRYPT_MESSAGE_PARA are used for decrypting messages.
-//
-// The CertContext to use for decrypting a message is obtained from one
-// of the specified cert stores. An encrypted message can have one or
-// more recipients. The recipients are identified by their CertId (Issuer
-// and SerialNumber). The cert stores are searched to find the CertContext
-// corresponding to the CertId.
-//
-// Only CertContexts in the store with either
-// the CERT_KEY_PROV_HANDLE_PROP_ID or CERT_KEY_PROV_INFO_PROP_ID set
-// can be used. Either property specifies the private exchange key to use.
-//
-// cbSize must be set to the sizeof(CRYPT_DECRYPT_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//--------------------------------------------------------------------------
-type
- PCRYPT_DECRYPT_MESSAGE_PARA = ^CRYPT_DECRYPT_MESSAGE_PARA;
- CRYPT_DECRYPT_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgAndCertEncodingType: DWORD;
- cCertStore: DWORD;
- rghCertStore: PHCERTSTORE;
- end;
-//+-------------------------------------------------------------------------
-// The CRYPT_HASH_MESSAGE_PARA are used for hashing or unhashing
-// messages.
-//
-// hCryptProv is used to compute the hash.
-//
-// pvHashAuxInfo currently isn't used and must be set to NULL.
-//
-// cbSize must be set to the sizeof(CRYPT_HASH_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//--------------------------------------------------------------------------
-type
- PCRYPT_HASH_MESSAGE_PARA = ^CRYPT_HASH_MESSAGE_PARA;
- CRYPT_HASH_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvHashAuxInfo: PVOID;
- end;
-
-//+-------------------------------------------------------------------------
-// The CRYPT_KEY_SIGN_MESSAGE_PARA are used for signing messages until a
-// certificate has been created for the signature key.
-//
-// pvHashAuxInfo currently isn't used and must be set to NULL.
-//
-// If PubKeyAlgorithm isn't set, defaults to szOID_RSA_RSA.
-//
-// cbSize must be set to the sizeof(CRYPT_KEY_SIGN_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//--------------------------------------------------------------------------
-type
- PCRYPT_KEY_SIGN_MESSAGE_PARA = ^CRYPT_KEY_SIGN_MESSAGE_PARA;
- CRYPT_KEY_SIGN_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgAndCertEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- dwKeySpec: DWORD;
- HashAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- pvHashAuxInfo: PVOID;
- PubKeyAlgorithm: CRYPT_ALGORITHM_IDENTIFIER;
- end;
-
-//+-------------------------------------------------------------------------
-// The CRYPT_KEY_VERIFY_MESSAGE_PARA are used to verify signed messages without
-// a certificate for the signer.
-//
-// Normally used until a certificate has been created for the key.
-//
-// hCryptProv is used to do hashing and signature verification.
-//
-// cbSize must be set to the sizeof(CRYPT_KEY_VERIFY_MESSAGE_PARA) or else
-// LastError will be updated with E_INVALIDARG.
-//--------------------------------------------------------------------------
-type
- PCRYPT_KEY_VERIFY_MESSAGE_PARA = ^CRYPT_KEY_VERIFY_MESSAGE_PARA;
- CRYPT_KEY_VERIFY_MESSAGE_PARA = record
- cbSize: DWORD;
- dwMsgEncodingType: DWORD;
- hCryptProv: HCRYPTPROV;
- end;
-
-//+-------------------------------------------------------------------------
-// Sign the message.
-//
-// If fDetachedSignature is TRUE, the "to be signed" content isn't included
-// in the encoded signed blob.
-//--------------------------------------------------------------------------
-function CryptSignMessage(pSignPara: PCRYPT_SIGN_MESSAGE_PARA;
- fDetachedSignature: BOOL;
- cToBeSigned: DWORD;
- const rgpbToBeSigned: array of PBYTE;
- rgcbToBeSigned: array of DWORD;
- pbSignedBlob: PBYTE;
- pcbSignedBlob: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Verify a signed message.
-//
-// If pbDecoded == NULL, then, *pcbDecoded is implicitly set to 0 on input.
-// For *pcbDecoded == 0 && ppSignerCert == NULL on input, the signer isn't
-// verified.
-//
-// A message might have more than one signer. Set dwSignerIndex to iterate
-// through all the signers. dwSignerIndex == 0 selects the first signer.
-//
-// pVerifyPara's pfnGetSignerCertificate is called to get the signer's
-// certificate.
-//
-// For a verified signer and message, *ppSignerCert is updated
-// with the CertContext of the signer. It must be freed by calling
-// CertFreeCertificateContext. Otherwise, *ppSignerCert is set to NULL.
-//
-// ppSignerCert can be NULL, indicating the caller isn't interested
-// in getting the CertContext of the signer.
-//
-// pcbDecoded can be NULL, indicating the caller isn't interested in getting
-// the decoded content. Furthermore, if the message doesn't contain any
-// content or signers, then, pcbDecoded must be set to NULL, to allow the
-// pVerifyPara->pfnGetCertificate to be called. Normally, this would be
-// the case when the signed message contains only certficates and CRLs.
-// If pcbDecoded is NULL and the message doesn't have the indicated signer,
-// pfnGetCertificate is called with pSignerId set to NULL.
-//
-// If the message doesn't contain any signers || dwSignerIndex > message's
-// SignerCount, then, an error is returned with LastError set to
-// CRYPT_E_NO_SIGNER. Also, for CRYPT_E_NO_SIGNER, pfnGetSignerCertificate
-// is still called with pSignerId set to NULL.
-//
-// Note, an alternative way to get the certificates and CRLs from a
-// signed message is to call CryptGetMessageCertificates.
-//--------------------------------------------------------------------------
-function CryptVerifyMessageSignature(pVerifyPara: PCRYPT_VERIFY_MESSAGE_PARA;
- dwSignerIndex: DWORD;
- const pbSignedBlob: PBYTE;
- cbSignedBlob: DWORD;
- pbDecoded: PBYTE;
- pcbDecoded: DWORD;
- ppSignerCert: PCCERT_CONTEXT
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Returns the count of signers in the signed message. For no signers, returns
-// 0. For an error returns -1 with LastError updated accordingly.
-//--------------------------------------------------------------------------
-function CryptGetMessageSignerCount(dwMsgEncodingType: DWORD;
- const pbSignedBlob: PBYTE;
- cbSignedBlob: DWORD): LONG; stdcall;
-//+-------------------------------------------------------------------------
-// Returns the cert store containing the message's certs and CRLs.
-// For an error, returns NULL with LastError updated.
-//--------------------------------------------------------------------------
-function CryptGetMessageCertificates(dwMsgAndCertEncodingType: DWORD;
- hCryptProv: HCRYPTPROV; // passed to CertOpenStore
- dwFlags: DWORD; // passed to CertOpenStore
- const pbSignedBlob: PBYTE;
- cbSignedBlob: DWORD): HCERTSTORE; stdcall;
-//+-------------------------------------------------------------------------
-// Verify a signed message containing detached signature(s).
-// The "to be signed" content is passed in separately. No
-// decoded output. Otherwise, identical to CryptVerifyMessageSignature.
-//--------------------------------------------------------------------------
-function CryptVerifyDetachedMessageSignature(pVerifyPara: PCRYPT_VERIFY_MESSAGE_PARA;
- dwSignerIndex: DWORD;
- const pbDetachedSignBlob: PBYTE;
- cbDetachedSignBlob: DWORD;
- cToBeSigned: DWORD;
- const rgpbToBeSigned: array of PBYTE;
- rgcbToBeSigned: array of DWORD;
- ppSignerCert: PPCCERT_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Encrypts the message for the recipient(s).
-//--------------------------------------------------------------------------
-function CryptEncryptMessage(pEncryptPara: PCRYPT_ENCRYPT_MESSAGE_PARA;
- cRecipientCert: DWORD;
- rgpRecipientCert: array of PCCERT_CONTEXT;
- const pbToBeEncrypted: PBYTE;
- cbToBeEncrypted: DWORD;
- pbEncryptedBlob: PBYTE;
- pcbEncryptedBlob: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Decrypts the message.
-//
-// If pbDecrypted == NULL, then, *pcbDecrypted is implicitly set to 0 on input.
-// For *pcbDecrypted == 0 && ppXchgCert == NULL on input, the message isn't
-// decrypted.
-//
-// For a successfully decrypted message, *ppXchgCert is updated
-// with the CertContext used to decrypt. It must be freed by calling
-// CertStoreFreeCert. Otherwise, *ppXchgCert is set to NULL.
-//
-// ppXchgCert can be NULL, indicating the caller isn't interested
-// in getting the CertContext used to decrypt.
-//--------------------------------------------------------------------------
-function CryptDecryptMessage(pDecryptPara: PCRYPT_DECRYPT_MESSAGE_PARA;
- const pbEncryptedBlob: PBYTE;
- cbEncryptedBlob: DWORD;
- pbDecrypted: PBYTE;
- pcbDecrypted: PDWORD;
- ppXchgCert: PPCCERT_CONTEXT): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Sign the message and encrypt for the recipient(s). Does a CryptSignMessage
-// followed with a CryptEncryptMessage.
-//
-// Note: this isn't the CMSG_SIGNED_AND_ENVELOPED. Its a CMSG_SIGNED
-// inside of an CMSG_ENVELOPED.
-//--------------------------------------------------------------------------
-function CryptSignAndEncryptMessage(pSignPara: PCRYPT_SIGN_MESSAGE_PARA;
- pEncryptPara: PCRYPT_ENCRYPT_MESSAGE_PARA;
- cRecipientCert: DWORD;
- rgpRecipientCert: array of PCCERT_CONTEXT;
- const pbToBeSignedAndEncrypted: PBYTE;
- cbToBeSignedAndEncrypted: DWORD;
- pbSignedAndEncryptedBlob: PBYTE;
- pcbSignedAndEncryptedBlob: PDWORD
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Decrypts the message and verifies the signer. Does a CryptDecryptMessage
-// followed with a CryptVerifyMessageSignature.
-//
-// If pbDecrypted == NULL, then, *pcbDecrypted is implicitly set to 0 on input.
-// For *pcbDecrypted == 0 && ppSignerCert == NULL on input, the signer isn't
-// verified.
-//
-// A message might have more than one signer. Set dwSignerIndex to iterate
-// through all the signers. dwSignerIndex == 0 selects the first signer.
-//
-// The pVerifyPara's VerifySignerPolicy is called to verify the signer's
-// certificate.
-//
-// For a successfully decrypted and verified message, *ppXchgCert and
-// *ppSignerCert are updated. They must be freed by calling
-// CertStoreFreeCert. Otherwise, they are set to NULL.
-//
-// ppXchgCert and/or ppSignerCert can be NULL, indicating the
-// caller isn't interested in getting the CertContext.
-//
-// Note: this isn't the CMSG_SIGNED_AND_ENVELOPED. Its a CMSG_SIGNED
-// inside of an CMSG_ENVELOPED.
-//
-// The message always needs to be decrypted to allow access to the
-// signed message. Therefore, if ppXchgCert != NULL, its always updated.
-//--------------------------------------------------------------------------
-function CryptDecryptAndVerifyMessageSignature(pDecryptPara: PCRYPT_DECRYPT_MESSAGE_PARA;
- pVerifyPara: PCRYPT_VERIFY_MESSAGE_PARA;
- dwSignerIndex: DWORD;
- const pbEncryptedBlob: PBYTE;
- cbEncryptedBlob: DWORD;
- pbDecrypted: PBYTE;
- pcbDecrypted: PDWORD;
- var ppXchgCert: array of PCCERT_CONTEXT;
- var ppSignerCert: array of PCCERT_CONTEXT
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Decodes a cryptographic message which may be one of the following types:
-// CMSG_DATA
-// CMSG_SIGNED
-// CMSG_ENVELOPED
-// CMSG_SIGNED_AND_ENVELOPED
-// CMSG_HASHED
-//
-// dwMsgTypeFlags specifies the set of allowable messages. For example, to
-// decode either SIGNED or ENVELOPED messages, set dwMsgTypeFlags to:
-// CMSG_SIGNED_FLAG | CMSG_ENVELOPED_FLAG.
-//
-// dwProvInnerContentType is only applicable when processing nested
-// crytographic messages. When processing an outer crytographic message
-// it must be set to 0. When decoding a nested cryptographic message
-// its the dwInnerContentType returned by a previous CryptDecodeMessage
-// of the outer message. The InnerContentType can be any of the CMSG types,
-// for example, CMSG_DATA, CMSG_SIGNED, ...
-//
-// The optional *pdwMsgType is updated with the type of message.
-//
-// The optional *pdwInnerContentType is updated with the type of the inner
-// message. Unless there is cryptographic message nesting, CMSG_DATA
-// is returned.
-//
-// For CMSG_DATA: returns decoded content.
-// For CMSG_SIGNED: same as CryptVerifyMessageSignature.
-// For CMSG_ENVELOPED: same as CryptDecryptMessage.
-// For CMSG_SIGNED_AND_ENVELOPED: same as CryptDecryptMessage plus
-// CryptVerifyMessageSignature.
-// For CMSG_HASHED: verifies the hash and returns decoded content.
-//--------------------------------------------------------------------------
-function CryptDecodeMessage(dwMsgTypeFlags: DWORD;
- pDecryptPara: PCRYPT_DECRYPT_MESSAGE_PARA;
- pVerifyPara: PCRYPT_VERIFY_MESSAGE_PARA;
- dwSignerIndex: DWORD;
- const pbEncodedBlob: PBYTE;
- cbEncodedBlob: DWORD;
- dwPrevInnerContentType: DWORD;
- pdwMsgType: PDWORD;
- pdwInnerContentType: PDWORD;
- pbDecoded: PBYTE;
- pcbDecoded: PDWORD;
- var ppXchgCert: array of PCCERT_CONTEXT;
- var ppSignerCert: array of PCCERT_CONTEXT
- ): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Hash the message.
-//
-// If fDetachedHash is TRUE, only the ComputedHash is encoded in the
-// pbHashedBlob. Otherwise, both the ToBeHashed and ComputedHash
-// are encoded.
-//
-// pcbHashedBlob or pcbComputedHash can be NULL, indicating the caller
-// isn't interested in getting the output.
-//--------------------------------------------------------------------------
-function CryptHashMessage(pHashPara: PCRYPT_HASH_MESSAGE_PARA;
- fDetachedHash: BOOL;
- cToBeHashed: DWORD;
- const rgpbToBeHashed: array of PBYTE;
- rgcbToBeHashed: array of DWORD;
- pbHashedBlob: PBYTE;
- pcbHashedBlob: PDWORD;
- pbComputedHash: PBYTE;
- pcbComputedHash: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Verify a hashed message.
-//
-// pcbToBeHashed or pcbComputedHash can be NULL,
-// indicating the caller isn't interested in getting the output.
-//--------------------------------------------------------------------------
-function CryptVerifyMessageHash(pHashPara: PCRYPT_HASH_MESSAGE_PARA;
- pbHashedBlob: PBYTE;
- cbHashedBlob: DWORD;
- pbToBeHashed: PBYTE;
- pcbToBeHashed: PDWORD;
- pbComputedHash: PBYTE;
- pcbComputedHash: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Verify a hashed message containing a detached hash.
-// The "to be hashed" content is passed in separately. No
-// decoded output. Otherwise, identical to CryptVerifyMessageHash.
-//
-// pcbComputedHash can be NULL, indicating the caller isn't interested
-// in getting the output.
-//--------------------------------------------------------------------------
-function CryptVerifyDetachedMessageHash(pHashPara: PCRYPT_HASH_MESSAGE_PARA;
- pbDetachedHashBlob: PBYTE;
- cbDetachedHashBlob: DWORD;
- cToBeHashed: DWORD;
- rgpbToBeHashed: array of PBYTE;
- rgcbToBeHashed: array of DWORD;
- pbComputedHash: PBYTE;
- pcbComputedHash: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Sign the message using the provider's private key specified in the
-// parameters. A dummy SignerId is created and stored in the message.
-//
-// Normally used until a certificate has been created for the key.
-//--------------------------------------------------------------------------
-function CryptSignMessageWithKey(pSignPara: PCRYPT_KEY_SIGN_MESSAGE_PARA;
- const pbToBeSigned: PBYTE;
- cbToBeSigned: DWORD;
- pbSignedBlob: PBYTE;
- pcbSignedBlob: PDWORD): BOOL; stdcall;
-//+-------------------------------------------------------------------------
-// Verify a signed message using the specified public key info.
-//
-// Normally called by a CA until it has created a certificate for the
-// key.
-//
-// pPublicKeyInfo contains the public key to use to verify the signed
-// message. If NULL, the signature isn't verified (for instance, the decoded
-// content may contain the PublicKeyInfo).
-//
-// pcbDecoded can be NULL, indicating the caller isn't interested
-// in getting the decoded content.
-//--------------------------------------------------------------------------
-function CryptVerifyMessageSignatureWithKey(pVerifyPara: PCRYPT_KEY_VERIFY_MESSAGE_PARA;
- pPublicKeyInfo: PCERT_PUBLIC_KEY_INFO;
- const pbSignedBlob: PBYTE;
- cbSignedBlob: DWORD;
- pbDecoded: PBYTE;
- pcbDecoded: PDWORD): BOOL; stdcall;
-
-//+=========================================================================
-// System Certificate Store Data Structures and APIs
-//==========================================================================
-
-
-//+-------------------------------------------------------------------------
-// Get a system certificate store based on a subsystem protocol.
-//
-// Current examples of subsystems protocols are:
-// "MY" Cert Store hold certs with associated Private Keys
-// "CA" Certifying Authority certs
-// "ROOT" Root Certs
-// "SPC" Software publisher certs
-//
-//
-// If hProv is NULL the default provider "1" is opened for you.
-// When the store is closed the provider is release. Otherwise
-// if hProv is not NULL, no provider is created or released.
-//
-// The returned Cert Store can be searched for an appropriate Cert
-// using the Cert Store API's (see certstor.h)
-//
-// When done, the cert store should be closed using CertStoreClose
-//--------------------------------------------------------------------------
-
-function CertOpenSystemStoreA(hProv: HCRYPTPROV;
- szSubsystemProtocol: LPCSTR): HCERTSTORE; stdcall;
-
-function CertOpenSystemStoreW(hProv: HCRYPTPROV;
- szSubsystemProtocol: LPCWSTR): HCERTSTORE; stdcall;
-
-function CertOpenSystemStore(hProv: HCRYPTPROV;
- szSubsystemProtocol: LPAWSTR): HCERTSTORE; stdcall;
-
-function CertAddEncodedCertificateToSystemStoreA(szCertStoreName: LPCSTR;
- const pbCertEncoded: PBYTE;
- cbCertEncoded: DWORD): BOOL; stdcall;
-
-function CertAddEncodedCertificateToSystemStoreW(szCertStoreName: LPCWSTR;
- const pbCertEncoded: PBYTE;
- cbCertEncoded: DWORD): BOOL; stdcall;
-
-function CertAddEncodedCertificateToSystemStore(szCertStoreName: LPAWSTR;
- const pbCertEncoded: PBYTE;
- cbCertEncoded: DWORD): BOOL; stdcall;
-
-
-//+-------------------------------------------------------------------------
-// Find all certificate chains tying the given issuer name to any certificate
-// that the current user has a private key for.
-//
-// If no certificate chain is found, FALSE is returned with LastError set
-// to CRYPT_E_NOT_FOUND and the counts zeroed.
-//
-// IE 3.0 ASSUMPTION:
-// The client certificates are in the "My" system store. The issuer
-// cerificates may be in the "Root", "CA" or "My" system stores.
-//--------------------------------------------------------------------------
-type
- PCERT_CHAIN = ^CERT_CHAIN;
- CERT_CHAIN = record
- cCerts: DWORD; // number of certs in chain
- certs: PCERT_BLOB; // pointer to array of cert chain blobs representing the certs
- keyLocatorInfo: CRYPT_KEY_PROV_INFO; // key locator for cert
- end;
-
-
-// WINCRYPT32API This is not exported by crypt32, it is exported by softpub
-function FindCertsByIssuer(pCertChains: PCERT_CHAIN;
- pcbCertChains: PDWORD;
- pcCertChains: PDWORD; // count of certificates chains returned
- pbEncodedIssuerName: PBYTE; // DER encoded issuer name
- cbEncodedIssuerName: DWORD; // count in bytes of encoded issuer name
- pwszPurpose: LPCWSTR; // "ClientAuth" or "CodeSigning"
- dwKeySpec: DWORD // only return signers supporting this keyspec
- ): HRESULT; stdcall;
-
-//////////////////////////// VERSION 2 ////////////////////////////////////////////////////////////////////
-
-implementation
-
-{Macro inplementation}
-
-function GET_ALG_CLASS(x: integer): integer;
-begin
- Result := (x and (7 shl 13));
-end;
-
-function GET_ALG_TYPE(x: integer): integer;
-begin
- Result := (x and (15 shl 9));
-end;
-
-function GET_ALG_SID(x: integer): integer;
-begin
- Result := (x and (511));
-end;
-
-function RCRYPT_SUCCEEDED(rt: BOOL): BOOL;
-begin
- Result := rt = CRYPT_SUCCEED;
-end;
-
-function RCRYPT_FAILED(rt: BOOL): BOOL;
-begin
- Result := rt = CRYPT_FAILED;
-end;
-
-function GET_CERT_UNICODE_RDN_ERR_INDEX(X: integer): integer;
-begin
- Result := ((X shr CERT_UNICODE_RDN_ERR_INDEX_SHIFT) and CERT_UNICODE_RDN_ERR_INDEX_MASK);
-end;
-
-function GET_CERT_UNICODE_ATTR_ERR_INDEX(X: integer): integer;
-begin
- Result := ((X shr CERT_UNICODE_ATTR_ERR_INDEX_SHIFT) and CERT_UNICODE_ATTR_ERR_INDEX_MASK);
-end;
-
-function GET_CERT_UNICODE_VALUE_ERR_INDEX(X: integer): integer;
-begin
- Result := (X and CERT_UNICODE_VALUE_ERR_INDEX_MASK);
-end;
-
-function GET_CERT_ALT_NAME_ENTRY_ERR_INDEX(X: DWORD): DWORD;
-begin
- Result := ((X shr CERT_ALT_NAME_ENTRY_ERR_INDEX_SHIFT) and CERT_ALT_NAME_ENTRY_ERR_INDEX_MASK);
-end;
-
-function GET_CERT_ALT_NAME_VALUE_ERR_INDEX(X: DWORD): DWORD;
-begin
- Result := (X and CERT_ALT_NAME_VALUE_ERR_INDEX_MASK);
-end;
-
-function GET_CRL_DIST_POINT_ERR_INDEX(X: DWORD): DWORD;
-begin
- Result := ((X shr CRL_DIST_POINT_ERR_INDEX_SHIFT) and CRL_DIST_POINT_ERR_INDEX_MASK);
-end;
-
-function IS_CRL_DIST_POINT_ERR_CRL_ISSUER(X: DWORD): BOOL;
-begin
- Result := (0 <> (X and CRL_DIST_POINT_ERR_CRL_ISSUER_BIT));
-end;
-///////////////////////////////////////version 2 /////////////////////////
-
-function IS_CERT_RDN_CHAR_STRING(X: DWORD): BOOL;
-begin
- Result := BOOL(X >= CERT_RDN_NUMERIC_STRING);
-end;
-
-function GET_CERT_ENCODING_TYPE(X: DWORD): DWORD;
-begin
- Result := (X and CERT_ENCODING_TYPE_MASK);
-end;
-
-function GET_CMSG_ENCODING_TYPE(X: DWORD): DWORD;
-begin
- Result := (X and CMSG_ENCODING_TYPE_MASK);
-end;
-
-function IS_CERT_HASH_PROP_ID(X: DWORD): BOOL;
-begin
- if (X = CERT_SHA1_HASH_PROP_ID) or (X = CERT_MD5_HASH_PROP_ID) then
- Result := True
- else
- Result := False;
-end;
-{end Macro}
-
-function CryptAcquireContextA; external ADVAPI32 name 'CryptAcquireContextA';
-{$IFDEF UNICODE}
-function CryptAcquireContext; external ADVAPI32 name 'CryptAcquireContextW';
-{$ELSE}
-function CryptAcquireContext; external ADVAPI32 name 'CryptAcquireContextA';
-{$ENDIF}
-function CryptAcquireContextW; external ADVAPI32 name 'CryptAcquireContextW';
-function CryptReleaseContext; external ADVAPI32 name 'CryptReleaseContext';
-function CryptGenKey; external ADVAPI32 name 'CryptGenKey';
-function CryptDeriveKey; external ADVAPI32 name 'CryptDeriveKey';
-function CryptDestroyKey; external ADVAPI32 name 'CryptDestroyKey';
-function CryptSetKeyParam; external ADVAPI32 name 'CryptSetKeyParam';
-function CryptGetKeyParam; external ADVAPI32 name 'CryptGetKeyParam';
-function CryptSetHashParam; external ADVAPI32 name 'CryptSetHashParam';
-function CryptGetHashParam; external ADVAPI32 name 'CryptGetHashParam';
-function CryptSetProvParam; external ADVAPI32 name 'CryptSetProvParam';
-function CryptGetProvParam; external ADVAPI32 name 'CryptGetProvParam';
-function CryptGenRandom; external ADVAPI32 name 'CryptGenRandom';
-function CryptGetUserKey; external ADVAPI32 name 'CryptGetUserKey';
-function CryptExportKey; external ADVAPI32 name 'CryptExportKey';
-function CryptImportKey; external ADVAPI32 name 'CryptImportKey';
-function CryptEncrypt; external ADVAPI32 name 'CryptEncrypt';
-function CryptDecrypt; external ADVAPI32 name 'CryptDecrypt';
-function CryptCreateHash; external ADVAPI32 name 'CryptCreateHash';
-function CryptHashData; external ADVAPI32 name 'CryptHashData';
-function CryptHashSessionKey; external ADVAPI32 name 'CryptHashSessionKey';
-function CryptDestroyHash; external ADVAPI32 name 'CryptDestroyHash';
-function CryptSignHashA; external ADVAPI32 name 'CryptSignHashA';
-function CryptSignHashW; external ADVAPI32 name 'CryptSignHashW';
-function CryptSignHashU; external CRYPT32 name 'CryptSignHashU';
-{$IFDEF UNICODE}
-function CryptSignHash; external ADVAPI32 name 'CryptSignHashW';
-{$ELSE}
-function CryptSignHash; external ADVAPI32 name 'CryptSignHashA';
-{$ENDIF}
-function CryptVerifySignatureA; external ADVAPI32 name 'CryptVerifySignatureA';
-function CryptVerifySignatureW; external ADVAPI32 name 'CryptVerifySignatureW';
-{$IFDEF UNICODE}
-function CryptVerifySignature; external ADVAPI32 name 'CryptVerifySignatureW';
-{$ELSE}
-function CryptVerifySignature; external ADVAPI32 name 'CryptVerifySignatureA';
-{$ENDIF}
-function CryptSetProviderW; external ADVAPI32 name 'CryptSetProviderW';
-function CryptSetProviderA; external ADVAPI32 name 'CryptSetProviderA';
-function CryptSetProviderU; external CRYPT32 name 'CryptSetProviderU';
-{$IFDEF UNICODE}
-function CryptSetProvider; external ADVAPI32 name 'CryptSetProviderW';
-{$ELSE}
-function CryptSetProvider; external ADVAPI32 name 'CryptSetProviderA';
-{$ENDIF}
-
-{$IFDEF NT5}
-function CryptSetProviderExA; external ADVAPI32NT5 name 'CryptSetProviderExA'; //nt5 advapi32
-function CryptSetProviderExW; external ADVAPI32NT5 name 'CryptSetProviderExW';
-{$IFDEF UNICODE}
-function CryptSetProviderEx; external ADVAPI32NT5 name 'CryptSetProviderExW';
-{$ELSE}
-function CryptSetProviderEx; external ADVAPI32NT5 name 'CryptSetProviderExA';
-{$ENDIF} // !UNICODE
-
-function CryptGetDefaultProviderA; external ADVAPI32NT5 name 'CryptGetDefaultProviderA'; //nt5 advapi32
-function CryptGetDefaultProviderW; external ADVAPI32NT5 name 'CryptGetDefaultProviderW';
-{$IFDEF UNICODE}
-function CryptGetDefaultProvider; external ADVAPI32NT5 name 'CryptGetDefaultProviderW';
-{$ELSE}
-function CryptGetDefaultProvider; external ADVAPI32NT5 name 'CryptGetDefaultProviderA';
-{$ENDIF} // !UNICODE
-
-function CryptEnumProviderTypesA; external ADVAPI32NT5 name 'CryptEnumProviderTypesA'; //nt5 advapi32
-function CryptEnumProviderTypesW; external ADVAPI32NT5 name 'CryptEnumProviderTypesW';
-{$IFDEF UNICODE}
-function CryptEnumProviderTypes; external ADVAPI32NT5 name 'CryptEnumProviderTypesW';
-{$ELSE}
-function CryptEnumProviderTypes; external ADVAPI32NT5 name 'CryptEnumProviderTypesA';
-{$ENDIF} // !UNICODE
-
-function CryptEnumProvidersA; external ADVAPI32NT5 name 'CryptEnumProvidersA'; //nt5 advapi32
-function CryptEnumProvidersW; external ADVAPI32NT5 name 'CryptEnumProvidersW';
-
-{$IFDEF UNICODE}
-function CryptEnumProviders; external ADVAPI32NT5 name 'CryptEnumProvidersW';
-{$ELSE}
-function CryptEnumProviders; external ADVAPI32NT5 name 'CryptEnumProvidersA';
-{$ENDIF} // !UNICODE
-function CryptContextAddRef; external ADVAPI32NT5 name 'CryptContextAddRef'; //nt5 advapi32
-function CryptDuplicateKey; external ADVAPI32NT5 name 'CryptDuplicateKey'; //nt5 advapi32
-function CryptDuplicateHash; external ADVAPI32NT5 name 'CryptDuplicateHash'; //nt5 advapi32
-{$ENDIF NT5}
-
-function CryptEnumProvidersU; external CRYPT32 name 'CryptEnumProvidersU';
-function CryptFormatObject; external CRYPT32 name 'CryptFormatObject';
-function CryptEncodeObject; external CRYPT32 name 'CryptEncodeObject';
-function CryptDecodeObject; external CRYPT32 name 'CryptDecodeObject';
-function CryptInstallOIDFunctionAddress; external CRYPT32 name 'CryptInstallOIDFunctionAddress';
-function CryptInitOIDFunctionSet; external CRYPT32 name 'CryptInitOIDFunctionSet';
-function CryptGetOIDFunctionAddress; external CRYPT32 name 'CryptGetOIDFunctionAddress';
-function CryptGetDefaultOIDDllList; external CRYPT32 name 'CryptGetDefaultOIDDllList';
-function CryptGetDefaultOIDFunctionAddress; external CRYPT32 name 'CryptGetDefaultOIDFunctionAddress';
-function CryptFreeOIDFunctionAddress; external CRYPT32 name 'CryptFreeOIDFunctionAddress';
-function CryptRegisterOIDFunction; external CRYPT32 name 'CryptRegisterOIDFunction';
-function CryptUnregisterOIDFunction; external CRYPT32 name 'CryptUnregisterOIDFunction';
-function CryptRegisterDefaultOIDFunction; external CRYPT32 name 'CryptRegisterDefaultOIDFunction';
-function CryptUnregisterDefaultOIDFunction; external CRYPT32 name 'CryptUnregisterDefaultOIDFunction';
-function CryptSetOIDFunctionValue; external CRYPT32 name 'CryptSetOIDFunctionValue';
-function CryptGetOIDFunctionValue; external CRYPT32 name 'CryptGetOIDFunctionValue';
-function CryptEnumOIDFunction; external CRYPT32 name 'CryptEnumOIDFunction';
-function CryptFindOIDInfo; external CRYPT32 name 'CryptFindOIDInfo';
-
-function CryptRegisterOIDInfo; external CRYPT32 name 'CryptRegisterOIDInfo';
-function CryptUnregisterOIDInfo; external CRYPT32 name 'CryptUnregisterOIDInfo';
-function CryptMsgOpenToEncode; external CRYPT32 name 'CryptMsgOpenToEncode';
-function CryptMsgCalculateEncodedLength; external CRYPT32 name 'CryptMsgCalculateEncodedLength';
-function CryptMsgOpenToDecode; external CRYPT32 name 'CryptMsgOpenToDecode';
-function CryptMsgClose; external CRYPT32 name 'CryptMsgClose';
-function CryptMsgUpdate; external CRYPT32 name 'CryptMsgUpdate';
-function CryptMsgControl; external CRYPT32 name 'CryptMsgControl';
-function CryptMsgVerifyCountersignatureEncoded; external CRYPT32 name 'CryptMsgVerifyCountersignatureEncoded';
-function CryptMsgCountersign; external CRYPT32 name 'CryptMsgCountersign';
-function CryptMsgCountersignEncoded; external CRYPT32 name 'CryptMsgCountersignEncoded';
-function CryptMsgGetParam; external CRYPT32 name 'CryptMsgGetParam';
-function CertOpenStore; external CRYPT32 name 'CertOpenStore';
-function CertDuplicateStore; external CRYPT32 name 'CertDuplicateStore';
-function CertSaveStore; external CRYPT32 name 'CertSaveStore';
-function CertCloseStore; external CRYPT32 name 'CertCloseStore';
-function CertGetSubjectCertificateFromStore; external CRYPT32 name 'CertGetSubjectCertificateFromStore';
-function CertEnumCertificatesInStore; external CRYPT32 name 'CertEnumCertificatesInStore';
-function CertFindCertificateInStore; external CRYPT32 name 'CertFindCertificateInStore';
-function CertGetIssuerCertificateFromStore; external CRYPT32 name 'CertGetIssuerCertificateFromStore';
-function CertVerifySubjectCertificateContext; external CRYPT32 name 'CertVerifySubjectCertificateContext';
-function CertDuplicateCertificateContext; external CRYPT32 name 'CertDuplicateCertificateContext';
-function CertCreateCertificateContext; external CRYPT32 name 'CertCreateCertificateContext';
-function CertFreeCertificateContext; external CRYPT32 name 'CertFreeCertificateContext';
-function CertSetCertificateContextProperty; external CRYPT32 name 'CertSetCertificateContextProperty';
-function CertGetCertificateContextProperty; external CRYPT32 name 'CertGetCertificateContextProperty';
-function CertEnumCertificateContextProperties; external CRYPT32 name 'CertEnumCertificateContextProperties';
-function CertGetCRLFromStore; external CRYPT32 name 'CertGetCRLFromStore';
-function CertDuplicateCRLContext; external CRYPT32 name 'CertDuplicateCRLContext';
-function CertCreateCRLContext; external CRYPT32 name 'CertCreateCRLContext';
-function CertFreeCRLContext; external CRYPT32 name 'CertFreeCRLContext';
-function CertSetCRLContextProperty; external CRYPT32 name 'CertSetCRLContextProperty';
-function CertGetCRLContextProperty; external CRYPT32 name 'CertGetCRLContextProperty';
-function CertEnumCRLContextProperties; external CRYPT32 name 'CertEnumCRLContextProperties';
-function CertAddEncodedCertificateToStore; external CRYPT32 name 'CertAddEncodedCertificateToStore';
-function CertAddCertificateContextToStore; external CRYPT32 name 'CertAddCertificateContextToStore';
-function CertAddSerializedElementToStore; external CRYPT32 name 'CertAddSerializedElementToStore';
-function CertDeleteCertificateFromStore; external CRYPT32 name 'CertDeleteCertificateFromStore';
-function CertAddEncodedCRLToStore; external CRYPT32 name 'CertAddEncodedCRLToStore';
-function CertAddCRLContextToStore; external CRYPT32 name 'CertAddCRLContextToStore';
-function CertDeleteCRLFromStore; external CRYPT32 name 'CertDeleteCRLFromStore';
-function CertSerializeCertificateStoreElement; external CRYPT32 name 'CertSerializeCertificateStoreElement';
-function CertSerializeCRLStoreElement; external CRYPT32 name 'CertSerializeCRLStoreElement';
-function CertDuplicateCTLContext; external CRYPT32 name 'CertDuplicateCTLContext';
-function CertCreateCTLContext; external CRYPT32 name 'CertCreateCTLContext';
-function CertFreeCTLContext; external CRYPT32 name 'CertFreeCTLContext';
-function CertSetCTLContextProperty; external CRYPT32 name 'CertSetCTLContextProperty';
-function CertGetCTLContextProperty; external CRYPT32 name 'CertGetCTLContextProperty';
-function CertEnumCTLContextProperties; external CRYPT32 name 'CertEnumCTLContextProperties';
-function CertEnumCTLsInStore; external CRYPT32 name 'CertEnumCTLsInStore';
-function CertFindSubjectInCTL; external CRYPT32 name 'CertFindSubjectInCTL';
-function CertFindCTLInStore; external CRYPT32 name 'CertFindCTLInStore';
-function CertAddEncodedCTLToStore; external CRYPT32 name 'CertAddEncodedCTLToStore';
-function CertAddCTLContextToStore; external CRYPT32 name 'CertAddCTLContextToStore';
-function CertSerializeCTLStoreElement; external CRYPT32 name 'CertSerializeCTLStoreElement';
-function CertDeleteCTLFromStore; external CRYPT32 name 'CertDeleteCTLFromStore';
-function CertGetEnhancedKeyUsage; external CRYPT32 name 'CertGetEnhancedKeyUsage';
-function CertSetEnhancedKeyUsage; external CRYPT32 name 'CertSetEnhancedKeyUsage';
-function CertAddEnhancedKeyUsageIdentifier; external CRYPT32 name 'CertAddEnhancedKeyUsageIdentifier';
-function CertRemoveEnhancedKeyUsageIdentifier; external CRYPT32 name 'CertRemoveEnhancedKeyUsageIdentifier';
-function CryptMsgGetAndVerifySigner; external CRYPT32 name 'CryptMsgGetAndVerifySigner';
-function CryptMsgSignCTL; external CRYPT32 name 'CryptMsgSignCTL';
-function CryptMsgEncodeAndSignCTL; external CRYPT32 name 'CryptMsgEncodeAndSignCTL';
-function CertVerifyCTLUsage; external CRYPT32 name 'CertVerifyCTLUsage';
-function CertVerifyRevocation; external CRYPT32 name 'CertVerifyRevocation';
-function CertCompareIntegerBlob; external CRYPT32 name 'CertCompareIntegerBlob';
-function CertCompareCertificate; external CRYPT32 name 'CertCompareCertificate';
-function CertCompareCertificateName; external CRYPT32 name 'CertCompareCertificateName';
-function CertIsRDNAttrsInCertificateName; external CRYPT32 name 'CertIsRDNAttrsInCertificateName';
-function CertComparePublicKeyInfo; external CRYPT32 name 'CertComparePublicKeyInfo';
-function CertGetPublicKeyLength; external CRYPT32 name 'CertGetPublicKeyLength';
-function CryptVerifyCertificateSignature; external CRYPT32 name 'CryptVerifyCertificateSignature';
-function CryptHashToBeSigned; external CRYPT32 name 'CryptHashToBeSigned';
-function CryptHashCertificate; external CRYPT32 name 'CryptHashCertificate';
-function CryptSignCertificate; external CRYPT32 name 'CryptSignCertificate';
-function CryptSignAndEncodeCertificate; external CRYPT32 name 'CryptSignAndEncodeCertificate';
-function CertVerifyTimeValidity; external CRYPT32 name 'CertVerifyTimeValidity';
-function CertVerifyCRLTimeValidity; external CRYPT32 name 'CertVerifyCRLTimeValidity';
-function CertVerifyValidityNesting; external CRYPT32 name 'CertVerifyValidityNesting';
-function CertVerifyCRLRevocation; external CRYPT32 name 'CertVerifyCRLRevocation';
-function CertAlgIdToOID; external CRYPT32 name 'CertAlgIdToOID';
-function CertOIDToAlgId; external CRYPT32 name 'CertOIDToAlgId';
-function CertFindExtension; external CRYPT32 name 'CertFindExtension';
-function CertFindAttribute; external CRYPT32 name 'CertFindAttribute';
-function CertFindRDNAttr; external CRYPT32 name 'CertFindRDNAttr';
-function CertGetIntendedKeyUsage; external CRYPT32 name 'CertGetIntendedKeyUsage';
-function CryptExportPublicKeyInfo; external CRYPT32 name 'CryptExportPublicKeyInfo';
-function CryptExportPublicKeyInfoEx; external CRYPT32 name 'CryptExportPublicKeyInfoEx';
-function CryptImportPublicKeyInfo; external CRYPT32 name 'CryptImportPublicKeyInfo';
-function CryptImportPublicKeyInfoEx; external CRYPT32 name 'CryptImportPublicKeyInfoEx';
-function CryptHashPublicKeyInfo; external CRYPT32 name 'CryptHashPublicKeyInfo';
-function CertRDNValueToStrA; external CRYPT32 name 'CertRDNValueToStrA';
-function CertRDNValueToStrW; external CRYPT32 name 'CertRDNValueToStrW';
-{$IFDEF UNICODE}
-function CertRDNValueToStr; external CRYPT32 name 'CertRDNValueToStrW';
-{$ELSE}
-function CertRDNValueToStr; external CRYPT32 name 'CertRDNValueToStrA';
-{$ENDIF} // !UNICODE
-function CertNameToStrA; external CRYPT32 name 'CertNameToStrA';
-function CertNameToStrW; external CRYPT32 name 'CertNameToStrW';
-{$IFDEF UNICODE}
-function CertNameToStr; external CRYPT32 name 'CertNameToStrW';
-{$ELSE}
-function CertNameToStr; external CRYPT32 name 'CertNameToStrA';
-{$ENDIF} // !UNICODE
-function CertStrToNameW; external CRYPT32 name 'CertStrToNameW';
-function CertStrToNameA; external CRYPT32 name 'CertStrToNameA';
-{$IFDEF UNICODE}
-function CertStrToName; external CRYPT32 name 'CertStrToNameW';
-{$ELSE}
-function CertStrToName; external CRYPT32 name 'CertStrToNameA';
-{$ENDIF} // !UNICODE
-function CryptSignMessage; external CRYPT32 name 'CryptSignMessage';
-//function CryptSignMessageWithKey; external CRYPT32 name 'CryptSignMessageWithKey';
-function CryptVerifyMessageSignature; external CRYPT32 name 'CryptVerifyMessageSignature';
-//function CryptVerifyMessageSignatureWithKey; external CRYPT32 name 'CryptVerifyMessageSignatureWithKey';
-function CryptGetMessageSignerCount; external CRYPT32 name 'CryptGetMessageSignerCount';
-function CryptGetMessageCertificates; external CRYPT32 name 'CryptGetMessageCertificates';
-function CryptVerifyDetachedMessageSignature; external CRYPT32 name 'CryptVerifyDetachedMessageSignature';
-function CryptEncryptMessage; external CRYPT32 name 'CryptEncryptMessage';
-function CryptDecryptMessage; external CRYPT32 name 'CryptDecryptMessage';
-function CryptSignAndEncryptMessage; external CRYPT32 name 'CryptSignAndEncryptMessage';
-function CryptDecryptAndVerifyMessageSignature; external CRYPT32 name 'CryptDecryptAndVerifyMessageSignature';
-function CryptDecodeMessage; external CRYPT32 name 'CryptDecodeMessage';
-function CryptHashMessage; external CRYPT32 name 'CryptHashMessage';
-function CryptVerifyMessageHash; external CRYPT32 name 'CryptVerifyMessageHash';
-function CryptVerifyDetachedMessageHash; external CRYPT32 name 'CryptVerifyDetachedMessageHash';
-function CryptSignMessageWithKey; external CRYPT32 name 'CryptSignMessageWithKey';
-function CryptVerifyMessageSignatureWithKey; external CRYPT32 name 'CryptVerifyMessageSignatureWithKey';
-function CertOpenSystemStoreA; external CRYPT32 name 'CertOpenSystemStoreA';
-function CertOpenSystemStoreW; external CRYPT32 name 'CertOpenSystemStoreW';
-{$IFDEF UNICODE}
-function CertOpenSystemStore; external CRYPT32 name 'CertOpenSystemStoreW';
-{$ELSE}
-function CertOpenSystemStore; external CRYPT32 name 'CertOpenSystemStoreA';
-{$ENDIF} // !UNICODE
-function CertAddEncodedCertificateToSystemStoreA; external CRYPT32 name 'CertAddEncodedCertificateToSystemStoreA';
-function CertAddEncodedCertificateToSystemStoreW; external CRYPT32 name 'CertAddEncodedCertificateToSystemStoreW';
-{$IFDEF UNICODE}
-function CertAddEncodedCertificateToSystemStore; external CRYPT32 name 'CertAddEncodedCertificateToSystemStoreW';
-{$ELSE}
-function CertAddEncodedCertificateToSystemStore; external CRYPT32 name 'CertAddEncodedCertificateToSystemStoreA';
-{$ENDIF} // !UNICODE
-function FindCertsByIssuer; external SOFTPUB name 'FindCertsByIssuer';
-end.
diff --git a/windows/src/ext/embeddedwb/Source/wbhFixes.pas b/windows/src/ext/embeddedwb/Source/wbhFixes.pas
deleted file mode 100644
index daff940a3dd991326131027811e7124055e82f81..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Source/wbhFixes.pas
+++ /dev/null
@@ -1,52 +0,0 @@
-unit wbhFixes;
-
-interface
-
-uses
- Windows, ActiveX;
-
-type
-{$EXTERNALSYM IServiceProvider}
- IServiceProvider = interface(IUnknown)
- ['{6d5140c1-7436-11ce-8034-00aa006009fa}']
- function QueryService(const rsid, IID: TGuid; out Obj): HResult; stdcall;
- end;
-
- PServiceProvider = ^IServiceProvider;
-{$EXTERNALSYM PServiceProvider}
-
-type
- IDispatch = interface(IUnknown)
- ['{00020400-0000-0000-C000-000000000046}']
- function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
- function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult;
- stdcall;
- function GetIDsOfNames(const IID: TGUID; Names: Pointer;
- NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
- stdcall;
- end;
-
- IDispatchEx = interface(IDispatch)
- ['{A6EF9860-C720-11D0-9337-00A0C90DCAA9}']
- function GetDispID(const bstrName: TBSTR; const grfdex: DWORD;
- out id: TDispID): HResult; stdcall;
- function InvokeEx(const id: TDispID; const lcid: LCID; const wflags:
- WORD; const pdp: PDispParams; out varRes: OleVariant; out pei:
- TExcepInfo; const pspCaller: PServiceProvider): HResult; stdcall;
- function DeleteMemberByName(const bstr: TBSTR;
- const grfdex: DWORD): HResult; stdcall;
- function DeleteMemberByDispID(const id: TDispID): HResult; stdcall;
- function GetMemberProperties(const id: TDispID; const grfdexFetch:
- DWORD; out grfdex: DWORD): HResult; stdcall;
- function GetMemberName(const id: TDispID; out bstrName: TBSTR):
- HResult; stdcall;
- function GetNextDispID(const grfdex: DWORD; const id: TDispID;
- out nid: TDispID): HResult; stdcall;
- function GetNameSpaceParent(out unk: IUnknown): HResult; stdcall;
- end;
-
-implementation
-
-end.
diff --git a/windows/src/ext/embeddedwb/Tools/MimeFilter.pas b/windows/src/ext/embeddedwb/Tools/MimeFilter.pas
deleted file mode 100644
index 490cb47f12d9ea9802046628aef439f495d2f165..0000000000000000000000000000000000000000
--- a/windows/src/ext/embeddedwb/Tools/MimeFilter.pas
+++ /dev/null
@@ -1,426 +0,0 @@
-{*****************************************************************}
-{ }
-{ Borland Delphi Runtime Library }
-{ MimeFilter interface unit }
-{ }
-{ By Per Lindso Larsen and Eran Bodankin - bsalsa }
-{ Converted 6 May 2007 bsalsa@bsalsa.com }
-{ Last modified 27 Jan 2009 bsalsa@bsalsa.com }
-{ Version 2 }
-{ }
-{ Documentation and updated versions: }
-{ }
-{ http://www.bsalsa.com }
-{*****************************************************************}
-{LICENSE:
-THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
-EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
-WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
-YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
-AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
-AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
-OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
-OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
-INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
-OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
-AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
-DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
-
-You may use/ change/ modify the component under 4 conditions:
-1. In your web site, add a link to "http://www.bsalsa.com"
-2. In your application, add credits to "Embedded Web Browser"
-3. Mail me (bsalsa@bsalsa.com) any code change in the unit for the benefit
- of the other users.
-4. Please, consider donation in our web site!
-{*******************************************************************************}
-
-unit MimeFilter;
-{For more info about MimeFilter:
- http://www.bsalsa.com/mime_filter.html
- http://msdn2.microsoft.com/en-us/library/aa767743.aspx
- http://msdn2.microsoft.com/en-us/library/Aa767916.aspx
- }
-
-{$DEFINE USE_DebugString}
-{ $DEFINE USE_TimeOut}
-
-interface
-
-uses
- Classes, ActiveX, ComObj, Windows, UrlMon, Forms;
-
-const
-{$IFDEF USE_TimeOut}
- TimeOut = 5000;
-{$ENDIF}
- Class_StrMimeFilter: TGUID = '{0EB00690-8FA1-11D3-96C7-829E3EA50C29}';
-// Create your own GUID (in Delphi IDE use Ctrl-Shift-G)
-
-type
- TStrMimeFilter = class(TComObject,
- IInternetProtocol, //http://msdn2.microsoft.com/en-us/library/aa767883.aspx
- IInternetProtocolRoot, //http://msdn2.microsoft.com/en-us/library/aa767859.aspx
- IInternetProtocolSink) //http://msdn2.microsoft.com/en-us/library/aa767768.aspx
- private
- CacheFileName: string;
- Url: PWideChar;
- DataStream: IStream;
- UrlMonProtocol: IInternetProtocol;
- UrlMonProtocolSink: IInternetProtocolSink;
- Written, TotalSize: Integer;
-{$IFDEF USE_TimeOut}
- StartedTime: DWORD;
-{$ENDIF}
- protected
- { IInternetProtocolSink Methods }
- function Switch(const ProtocolData: TProtocolData): HResult; stdcall;
- function ReportProgress(ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall;
- function ReportData(grfBSCF: DWORD; ulProgress, ulProgressMax: ULONG): HResult; stdcall;
- function ReportResult(hrResult: HResult; dwError: DWORD; szResult: LPCWSTR): HResult; stdcall;
- { IInternetProtocolRoot Interface}
- function Start(szUrl: PWideChar; OIProtSink: IInternetProtocolSink;
- OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HResult; stdcall;
- function Continue(const ProtocolData: TProtocolData): HResult; stdcall;
- function Abort(hrReason: HResult; dwOptions: DWORD): HResult; stdcall;
- function Terminate(dwOptions: DWORD): HResult; stdcall;
- function Suspend: HResult; stdcall;
- function Resume: HResult; stdcall;
- { IInternetProtocol Methods}
- function Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult; stdcall;
- function Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD;
- out libNewPosition: ULARGE_INTEGER): HResult; stdcall;
- function LockRequest(dwOptions: DWORD): HResult; stdcall;
- function UnlockRequest: HResult; stdcall;
- end;
-
-var
- StrIn: string;
- StrOut: string;
- OutUrl: PWideChar;
-
-implementation
-
-uses
- AxCtrls, WinInet, SysUtils, ComServ;
-
- { IInternetProtocol Methods}
-
-function TStrMimeFilter.Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult;
-var
- hr: HResult;
-begin
-(* All data is avaiable, so we just keep reading while Written S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(hr, 0); //An error was found so we should stop the com server.
- end;
- Inc(Written, cbRead);
- if (Written = TotalSize) then
- Result := S_FALSE
- else
- begin
- Result := S_OK;
- Abort(hr, 0);
- end;
-end;
-
-function TStrMimeFilter.Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD;
- out libNewPosition: ULARGE_INTEGER): HResult;
-begin
- Result := UrlMonProtocol.Seek(dlibMove, dwOrigin, libNewPosition);
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
-end;
-
-function TStrMimeFilter.LockRequest(dwOptions: DWORD): HResult;
-begin
- Result := UrlMonProtocol.LockRequest(dwOptions);
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
-end;
-
-function TStrMimeFilter.UnlockRequest: HResult;
-begin
- Result := UrlMonProtocol.UnlockRequest;
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
-end;
-
- { IInternetProtocolSink Methods }
-
-function TStrMimeFilter.ReportData(grfBSCF: DWORD; ulProgress,
- ulProgressMax: ULONG): HResult;
-var
- TS: TStringStream;
- Dummy: Int64;
- hr: HResult;
- ReadTotal: ULONG;
- S: string;
- Fname: array[0..512] of Char;
- p: array[0..1000] of Char;
-{$IFDEF USE_TimeOut}
- CurrentTime: DWORD;
- DiffTime: DWORD;
-{$ENDIF}
-begin
- (* This method is must likely called long before the file is downloaded, so
- ulProgressMax will be zero and ulProgress not tell anything reliable about
- the amount of data available. Instead you can use the outcoming Result of
- call to UrlMonProtocol.Read:
-
- S_OK : The read was successful, but there is still additional data available.
- S_FALSE : All the data has been completely downloaded.
-
- so we just repeat reading until we receive S_FALSE or an error:
- INET_E_DATA_NOT_AVAILABLE or INET_E_DOWNLOAD_FAILURE. *)
-
- Ts := TStringStream.Create('');
- repeat
- hr := UrlMonProtocol.Read(@P, SizeOf(p), ReadTotal);
- Ts.Write(P, ReadTotal);
- Application.ProcessMessages;
-{$IFDEF USE_TimeOut}
- CurrentTime := GetTickCount; //I created a TimeOut but it's stupid
- DiffTime := CurrentTime - StartedTime;
- if (DiffTime >= TimeOut) then
- hr := S_FALSE;
-{$ENDIF}
- Application.Processmessages;
- until (hr = S_FALSE) or (hr = INET_E_DOWNLOAD_FAILURE) or
- (hr = INET_E_DATA_NOT_AVAILABLE);
-
- if hr = S_FALSE then
- begin
-(* Some pages like www.msn.com are not Written to cache, so we make a temporary
-entry and call ReportProgress with CACHEFILENAMEAVAILABLE. *)
- if CacheFilename = '' then
- begin
- if not CreateUrlCacheEntry(@url, ts.Size, Pchar('htm'), FName, 0) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- end;
- TMemoryStream(ts).SaveToFile(Fname);
- StringToWideChar(StrPas(FName), @FName, SizeOf(FName));
- if Failed(ReportProgress(BINDSTATUS_CACHEFILENAMEAVAILABLE, @FName)) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(E_FAIL, 0);
- end;
- end;
-///************************************
-///* FILTER DATA HERE:
- S := StringReplace(Ts.DataString, StrIn, StrOut, [rfReplaceAll, rfIgnoreCase]);
- ts.Size := 0;
- ts.WriteString(S);
-///************************************
-
-////***** Debug only ******************
- // ts.Seek(0, 0);
- // form1.Memo1.Lines.LoadFromStream(TS);
-///************************************
-
- TotalSize := Ts.Size;
- ts.Seek(0, 0);
- if Failed(CreateStreamOnHGlobal(0, True, DataStream)) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(E_FAIL, 0);
- end;
-
- TOleStream.Create(DataStream).CopyFrom(ts, ts.Size);
- ts.Free;
- DataStream.Seek(0, STREAM_SEEK_SET, Dummy);
-(* Inform Transaction handler that all data is ready for the browser: *)
- if Failed(UrlMonProtocolSink.ReportData(BSCF_FIRSTDATANOTIFICATION or
- BSCF_LASTDATANOTIFICATION or BSCF_DATAFULLYAVAILABLE, TotalSize, Totalsize)) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(E_FAIL, 0);
- end;
- (* Here transaction handler call our Read Method -> *)
- if Failed(UrlMonProtocolSink.ReportResult(S_OK, S_OK, nil)) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(E_FAIL, 0);
- end;
-(* Report Result OK after sending all data to browser *)
- end
- else
- begin
- Abort(hr, 0); //On Error: INET_E_DOWNLOAD_FAILURE or INET_E_DATA_NOT_AVAILABLE
- end;
- Result := S_OK;
-end;
-
-function TStrMimeFilter.ReportResult(hrResult: HResult; dwError: DWORD;
- szResult: LPCWSTR): HResult;
-begin
- Result := UrlMonProtocolSink.ReportResult(hrResult, dwError, szResult);
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- end;
-end;
-
-function TStrMimeFilter.ReportProgress(ulStatusCode: ULONG;
- szStatusText: LPCWSTR): HResult;
-begin
- if ulStatusCode = BINDSTATUS_CACHEFILENAMEAVAILABLE then
- CacheFileName := SzStatusText;
-(* szStatusText contains the name of the cache-file where the downloaded
-data will be stored. *)
- Result := UrlMonProtocolSink.ReportProgress(ulStatusCode, szStatusText);
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
-(* We pass all information on. *)
-(* The transaction handler now call our ReportData -> *)
-end;
-
-function TStrMimeFilter.Switch(const ProtocolData: TProtocolData): HResult;
-begin
- Result := UrlMonProtocolSink.Switch(ProtocolData);
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
-end;
-
-{ IInternetProtocolRoot Interface}
-
-function TStrMimeFilter.Abort(hrReason: HResult; dwOptions: DWORD): HResult;
-begin
- Result := UrlMonProtocol.Abort(hrReason, dwOptions);
-{$WARNINGS OFF}
- if (Result = E_PENDING) then
- Exit;
-{$WARNINGS ON}
- if (Result <> S_OK) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- end;
-end;
-
-function TStrMimeFilter.Continue(const ProtocolData: TProtocolData): HResult;
-begin
- Result := UrlMonProtocol.Continue(ProtocolData);
-{$WARNINGS OFF}
- if (Result = E_PENDING) then
- Exit;
-{$WARNINGS ON}
- if (Result <> S_OK) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
-end;
-
-function TStrMimeFilter.Resume: HResult;
-begin
- Result := E_NOTIMPL; //Not Implemented by MS
-end;
-
-function TStrMimeFilter.Start(szUrl: PWideChar; OIProtSink: IInternetProtocolSink;
- OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HResult;
-var
- Fetched: Cardinal;
-begin
- CacheFileName := '';
- TotalSize := 0;
- Written := 0;
-{$IFDEF USE_TimeOut}
- StartedTime := GetTickCount;
-{$ENDIF}
-(* Get an interface to transaction handlers IInternetProtocol and IInternetProtocolSink.
- I prefer the easy delphi-way: *)
- UrlMonProtocol := OIProtSink as IInternetProtocol;
- UrlMonProtocolSink := OIProtSink as IInternetProtocolSink;
-(* If the page is not Written to cache, our ReportProgress is not
- called with CACHEFILENAMEAVAILABLE. We grab the url here so
- we later can create a proper temporary cachefile. Since we are
- in a mimefilter szURl don't have the url, so we use GetBindString. *)
-
- Result := OIBindinfo.GetBindString(BINDSTRING_URL, @Url, 1, Fetched);
- OutUrl := Url;
- if Result <> S_OK then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- end;
- Result := S_OK;
-(* The transaction handler now call our ReportProgress -> *)
-end;
-
-function TStrMimeFilter.Suspend: HResult;
-begin
- Result := E_NOTIMPL; //Not Implemented by MS
-end;
-
-function TStrMimeFilter.Terminate(dwOptions: DWORD): HResult;
-begin
- if DataStream <> nil then
- DataStream._Release;
- if UrlMonProtocolSink <> nil then
- UrlMonProtocolSink._Release;
- Result := UrlmonProtocol.Terminate(dwOptions);
- if (Result <> S_OK) then
- begin
-{$IFDEF USE_DebugString}
- OutputDebugString(PChar(SysErrorMessage(GetLastError)));
-{$ENDIF}
- Abort(Result, 0);
- end;
- ComServer.UIInteractive := False; // If you still have Active Com objects then We will hide the UI
-end;
-
-initialization
- TComObjectFactory.Create(ComServer, TStrMimeFilter, Class_StrMimeFilter,
- 'StrMimeFilter', 'StrMimeFilter', ciMultiInstance, tmApartment);
-
-finalization
-
-end.
-
diff --git a/windows/src/ext/embeddedwb/Tools/XPThemedBand.zip b/windows/src/ext/embeddedwb/Tools/XPThemedBand.zip
deleted file mode 100644
index a8fe3f56a59d2efd3b72c8e7ef4e79c5162bae00..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Tools/XPThemedBand.zip and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Tools/delphiband102.zip b/windows/src/ext/embeddedwb/Tools/delphiband102.zip
deleted file mode 100644
index c43dd78e06820c76c9fed8c20ca9cce0c026d285..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Tools/delphiband102.zip and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Tools/iehelper.zip b/windows/src/ext/embeddedwb/Tools/iehelper.zip
deleted file mode 100644
index ea074c65e7e545ab33a9f50471c109baaeb63488..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Tools/iehelper.zip and /dev/null differ
diff --git a/windows/src/ext/embeddedwb/Tools/urlsearchhook.zip b/windows/src/ext/embeddedwb/Tools/urlsearchhook.zip
deleted file mode 100644
index d877f13c36234c595919fcdd76a6f87e1abf226d..0000000000000000000000000000000000000000
Binary files a/windows/src/ext/embeddedwb/Tools/urlsearchhook.zip and /dev/null differ
diff --git a/windows/src/global/delphi/chromium/Keyman.System.CEFManager.pas b/windows/src/global/delphi/chromium/Keyman.System.CEFManager.pas
new file mode 100644
index 0000000000000000000000000000000000000000..ad1e3f516217dee50c0c889832ac11f140e85e64
--- /dev/null
+++ b/windows/src/global/delphi/chromium/Keyman.System.CEFManager.pas
@@ -0,0 +1,249 @@
+unit Keyman.System.CEFManager;
+
+interface
+
+uses
+ System.Classes,
+ System.Generics.Collections,
+ uCEFApplication;
+
+//
+// We wrap the TCefApplication so we can configure it
+// outside the .dpr source and keep the .dpr source
+// cleaner
+//
+type
+ IKeymanCEFHost = interface;
+
+ TShutdownCompletionHandlerEvent = procedure(Sender: IKeymanCEFHost) of object;
+
+ IKeymanCEFHost = interface
+ ['{DFABC8BF-803E-45E6-B7DC-522C7FEB08EB}']
+ procedure StartShutdown(CompletionHandler: TShutdownCompletionHandlerEvent);
+ end;
+
+ TCEFManager = class
+ private
+ FWindows: TList;
+ FShutdownCompletionHandler: TNotifyEvent;
+ procedure CompletionHandler(Sender: IKeymanCEFHost);
+ public
+ const ProcessMessage_GetWindowSize = 'ProcessMessage_ResizeByContent';
+ public
+ constructor Create;
+ destructor Destroy; override;
+ function Start: Boolean;
+ function StartSubProcess: Boolean; // Use for browser sub process only
+
+ procedure RegisterWindow(cef: IKeymanCEFHost);
+ procedure UnregisterWindow(cef: IKeymanCEFHost);
+ function StartShutdown(CompletionHandler: TNotifyEvent): Boolean;
+ end;
+
+var
+ FInitializeCEF: TCEFManager = nil;
+
+implementation
+
+uses
+ System.SysUtils,
+ Winapi.ShlObj,
+ Winapi.Windows,
+
+ ExternalExceptionHandler,
+ KeymanPaths,
+ KeymanVersion,
+// RedistFiles,
+ RegistryKeys,
+ VersionInfo,
+ uCEFConstants,
+ uCEFDOMVisitor,
+ uCEFInterfaces,
+ uCEFMiscFunctions,
+ uCEFProcessMessage,
+ uCEFTypes;
+// UTikeDebugMode;
+
+procedure GlobalCEFApp_ProcessMessageReceived(const browser : ICefBrowser;
+ sourceProcess : TCefProcessId;
+ const message : ICefProcessMessage;
+ var aHandled : boolean); forward;
+
+procedure GlobalCEFApp_UncaughtException(const browser : ICefBrowser;
+ const frame : ICefFrame;
+ const context : ICefv8Context;
+ const e : ICefV8Exception;
+ const stackTrace : ICefV8StackTrace); forward;
+{ TInitializeCEF }
+
+procedure TCEFManager.CompletionHandler(Sender: IKeymanCEFHost);
+begin
+// OutputDebugString(PChar('TCEFManager.CompletionHandler'));
+ FWindows.Remove(Sender);
+ if FWindows.Count = 0 then
+ begin
+ Assert(@FShutdownCompletionHandler <> nil);
+ FShutdownCompletionHandler(Self);
+ FShutdownCompletionHandler := nil;
+ end;
+end;
+
+constructor TCEFManager.Create;
+begin
+ FWindows := TList.Create;
+ // You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause
+ // with the Application initialization inside the begin..end.
+ // Read this https://www.briskbard.com/index.php?lang=en&pageid=cef
+ GlobalCEFApp := TCefApplication.Create;
+
+ GlobalCEFApp.CheckCEFFiles := False;
+
+ GlobalCEFApp.LogSeverity := LOGSEVERITY_ERROR;
+
+ // We run in debug mode when TIKE debug mode flag is set, so that we can
+ // debug the CEF interactions more easily
+// GlobalCEFApp.SingleProcess := TikeDebugMode;
+
+ GlobalCEFApp.BrowserSubprocessPath := TKeymanPaths.CEFSubprocessPath;
+
+ // In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
+ // If you don't set a cache directory the browser will use in-memory cache.
+ GlobalCEFApp.FrameworkDirPath := TKeymanPaths.CEFPath;
+ GlobalCEFApp.ResourcesDirPath := GlobalCEFApp.FrameworkDirPath;
+ GlobalCEFApp.LocalesDirPath := GlobalCEFApp.FrameworkDirPath + '\locales';
+ GlobalCEFApp.EnableGPU := True; // Enable hardware acceleration
+ GlobalCEFApp.cache := TKeymanPaths.CEFDataPath('cache');
+ GlobalCEFApp.cookies := TKeymanPaths.CEFDataPath('cookies');
+ GlobalCEFApp.UserDataPath := TKeymanPaths.CEFDataPath('userdata');
+ GlobalCEFApp.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.79 Safari/537.36 (TIKE/'+SKeymanVersion+')';
+
+ GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_ProcessMessageReceived;
+ GlobalCEFApp.OnUncaughtException := GlobalCEFApp_UncaughtException;
+ GlobalCEFApp.UncaughtExceptionStackSize := 64;
+end;
+
+destructor TCEFManager.Destroy;
+begin
+ Assert(FWindows.Count = 0);
+ FreeAndNil(FWindows);
+ GlobalCEFApp.Free;
+ GlobalCEFApp := nil;
+ FInitializeCEF := nil;
+ inherited Destroy;
+end;
+
+procedure TCEFManager.RegisterWindow(cef: IKeymanCEFHost);
+begin
+ FWindows.Add(cef);
+end;
+
+function TCEFManager.Start: Boolean;
+begin
+ Result := GlobalCEFApp.StartMainProcess;
+end;
+
+function TCEFManager.StartSubProcess: Boolean;
+begin
+ Result := GlobalCEFApp.StartSubProcess;
+end;
+
+function TCEFManager.StartShutdown(CompletionHandler: TNotifyEvent): Boolean;
+var
+ i: Integer;
+begin
+// OutputDebugString(PChar('TCEFManager.StartShutdown'));
+ if FWindows.Count = 0 then
+ Exit(True); // Can shutdown immediately
+ FShutdownCompletionHandler := CompletionHandler;
+ for i := 0 to FWindows.Count - 1 do
+ FWindows[i].StartShutdown(Self.CompletionHandler);
+ Result := False; // wait for completion handler
+end;
+
+procedure TCEFManager.UnregisterWindow(cef: IKeymanCEFHost);
+begin
+// OutputDebugString(PChar('TCEFManager.UnregisterWindow'));
+ FWindows.Remove(cef);
+end;
+
+procedure DOMVisitor_GetWindowSize(const browser: ICefBrowser; const document: ICefDomDocument);
+const
+ NODE_ID = 'size';
+var
+ msg: ICefProcessMessage;
+ node : ICefDomNode;
+begin
+ // This function is called from a CEF thread
+ // document is only valid inside this function.
+
+ if document <> nil then
+ begin
+ node := document.GetElementById(NODE_ID);
+ if node <> nil then
+ begin
+ // Send back node dimensions to the browser process
+ msg := TCefProcessMessageRef.New(TCEFManager.ProcessMessage_GetWindowSize);
+ msg.ArgumentList.SetInt(0, node.ElementBounds.width);
+ msg.ArgumentList.SetInt(1, node.ElementBounds.height);
+ CefLog('CEFManager', 1, CEF_LOG_SEVERITY_ERROR, 'Sending message '+msg.Name+', '+IntToStr(node.ElementBounds.width)+', '+IntToStr(node.ElementBounds.height));
+ browser.SendProcessMessage(PID_BROWSER, msg);
+ end;
+ end;
+end;
+
+procedure GlobalCEFApp_ProcessMessageReceived(const browser : ICefBrowser;
+ sourceProcess : TCefProcessId;
+ const message : ICefProcessMessage;
+ var aHandled : boolean);
+var
+ TempFrame : ICefFrame;
+ TempVisitor : TCefFastDomVisitor2;
+begin
+ aHandled := False;
+
+ CefLog('CEFManager', 1, CEF_LOG_SEVERITY_ERROR, 'message received '+message.Name);
+
+ if browser <> nil then
+ begin
+ if message.name = TCEFManager.ProcessMessage_GetWindowSize then
+ begin
+ TempFrame := browser.MainFrame;
+
+ if (TempFrame <> nil) then
+ begin
+ TempVisitor := TCefFastDomVisitor2.Create(browser, DOMVisitor_GetWindowSize);
+ TempFrame.VisitDom(TempVisitor);
+ end;
+
+ aHandled := True;
+ end;
+ end;
+end;
+
+
+procedure GlobalCEFApp_UncaughtException(const browser : ICefBrowser;
+ const frame : ICefFrame;
+ const context : ICefv8Context;
+ const e : ICefV8Exception;
+ const stackTrace : ICefV8StackTrace);
+var
+ log, id: string;
+ I: Integer;
+begin
+ id := LowerCase(ExtractFileName(ParamStr(0)))+'_'+GetVersionString+'_script_unknown';
+ I := string(frame.Url).LastDelimiter('/');
+ id := id + '_' + string(frame.Url).SubString(I + 1) + '_' + IntToStr(e.LineNumber);
+
+ log := 'Stack Trace:'#13#10;
+
+ for i := 0 to stackTrace.FrameCount - 1 do
+ begin
+ log := log + ' ' + stackTrace.Frame[i].FunctionName + ' ('+stackTrace.Frame[i].ScriptNameOrSourceUrl+':'+IntToStr(stackTrace.Frame[i].LineNumber)+')'#13#10;
+ end;
+
+ CefLog('CEFManager', 1, CEF_LOG_SEVERITY_ERROR, 'Error '+id+', '+e.Message+' in '+frame.Url);
+ LogExceptionToExternalHandler(id, 'Error occurred at line '+IntToStr(e.LineNumber)+' of '+e.ScriptResourceName,
+ e.Message, log);
+end;
+
+end.
diff --git a/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.dfm b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm
similarity index 70%
rename from windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.dfm
rename to windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm
index b326cf9e21022eae4b47461d54f56e35c6c0b22d..16cb7bc7b43595c3b1f6749a894cc0a6936de277 100644
--- a/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.dfm
+++ b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.dfm
@@ -1,16 +1,21 @@
-inherited frameCEFHost: TframeCEFHost
+object frameCEFHost: TframeCEFHost
Left = 193
Top = 131
Align = alClient
BorderIcons = []
BorderStyle = bsNone
- Caption = ''
ClientHeight = 645
ClientWidth = 878
- OldCreateOrder = True
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ OnCreate = FormCreate
OnDestroy = FormDestroy
- ExplicitWidth = 878
- ExplicitHeight = 645
+ OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cefwp: TCEFWindowParent
@@ -34,11 +39,13 @@ inherited frameCEFHost: TframeCEFHost
Top = 208
end
object cef: TChromium
+ OnWidgetCompMsg = cefWidgetCompMsg
+ OnProcessMessageReceived = cefProcessMessageReceived
OnLoadEnd = cefLoadEnd
OnSetFocus = cefSetFocus
OnRunContextMenu = cefRunContextMenu
OnPreKeyEvent = cefPreKeyEvent
- OnConsoleMessage = cefConsoleMessage
+ OnTitleChange = cefTitleChange
OnBeforePopup = cefBeforePopup
OnAfterCreated = cefAfterCreated
OnBeforeClose = cefBeforeClose
diff --git a/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas
similarity index 74%
rename from windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas
rename to windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas
index 63d0138cfb4ce6b437a1567eb8de23320533cc89..1c60648d6c30c9fe78caccdbbcc8f96d164cee7d 100644
--- a/windows/src/developer/TIKE/main/Keyman.Developer.UI.UframeCEFHost.pas
+++ b/windows/src/global/delphi/chromium/Keyman.UI.UframeCEFHost.pas
@@ -1,4 +1,4 @@
-unit Keyman.Developer.UI.UframeCEFHost;
+unit Keyman.UI.UframeCEFHost;
interface
@@ -24,10 +24,9 @@ uses
uCEFTypes,
uCEFWindowParent,
- Keyman.Developer.System.CEFManager,
- KeymanDeveloperUtils,
+ Keyman.System.CEFManager,
UserMessages,
- UfrmTIKE;
+ utilexecute;
const
CEF_DESTROY = WM_USER + 300;
@@ -37,7 +36,10 @@ const
CEF_LOADEND = WM_USER + 304;
CEF_KEYEVENT = WM_USER + 306;
CEF_BEFOREBROWSE = WM_USER + 307;
- CEF_CONSOLEMESSAGE = WM_USER + 308;
+ CEF_TITLECHANGE = WM_USER + 309;
+ CEF_COMMAND = WM_USER + 310;
+ CEF_RESIZEFROMDOCUMENT = WM_USER + 311;
+ CEF_SETFOCUS = WM_USER + 312;
type
TCEFHostKeyEventData = record
@@ -57,13 +59,23 @@ type
PCEFConsoleMessageEventData = ^TCEFConsoleMessageEventData;
+ TCEFTitleChangeEventData = record
+ browserid: Integer;
+ title: string;
+ end;
+
+ PCEFTitleChangeEventData = ^TCEFTitleChangeEventData;
+
TCEFHostBeforeBrowseSyncEvent = procedure(Sender: TObject; const Url: string; out Handled: Boolean) of object;
- TCEFHostBeforeBrowseEvent = procedure(Sender: TObject; const Url: string; params: TStringList; wasHandled: Boolean) of object;
+ TCEFHostBeforeBrowseEvent = procedure(Sender: TObject; const Url: string; wasHandled: Boolean) of object;
+ TCEFCommandEvent = procedure(Sender: TObject; const command: string; params: TStringList) of object;
TCEFHostPreKeySyncEvent = procedure(Sender: TObject; e: TCEFHostKeyEventData; out isShortcut, Handled: Boolean) of object;
TCEFHostKeyEvent = procedure(Sender: TObject; e: TCEFHostKeyEventData; wasShortcut, wasHandled: Boolean) of object;
+ TCEFHostTitleChangeEvent = procedure(Sender: TObject; const title: string) of object;
+ TCEFHostResizeFromDocumentEvent = procedure(Sender: TObject; width, height: Integer) of object;
- TframeCEFHost = class(TTikeForm, IKeymanCEFHost)
+ TframeCEFHost = class(TForm, IKeymanCEFHost)
tmrRefresh: TTimer;
tmrCreateBrowser: TTimer;
cefwp: TCEFWindowParent;
@@ -78,10 +90,7 @@ type
out Result: Boolean);
procedure cefPreKeyEvent(Sender: TObject; const browser: ICefBrowser;
const event: PCefKeyEvent; osEvent: PMsg; out isKeyboardShortcut,
- Result: Boolean);
- procedure cefConsoleMessage(Sender: TObject; const browser: ICefBrowser;
- level: Cardinal; const message, source: ustring; line: Integer;
- out Result: Boolean); // I2986
+ Result: Boolean); // I2986
procedure cefLoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
procedure cefBeforeBrowse(Sender: TObject; const browser: ICefBrowser;
@@ -107,6 +116,12 @@ type
var Result: Boolean);
procedure cefSetFocus(Sender: TObject; const browser: ICefBrowser;
source: TCefFocusSource; out Result: Boolean);
+ procedure cefTitleChange(Sender: TObject; const browser: ICefBrowser;
+ const title: ustring);
+ procedure cefProcessMessageReceived(Sender: TObject;
+ const browser: ICefBrowser; sourceProcess: TCefProcessId;
+ const message: ICefProcessMessage; out Result: Boolean);
+ procedure cefWidgetCompMsg(var aMessage: TMessage; var aHandled: Boolean);
private
FApplicationHandle: THandle;
FNextURL: string;
@@ -116,11 +131,16 @@ type
FShutdownCompletionHandler: TShutdownCompletionHandlerEvent;
FIsClosing: Boolean;
FShouldShowContextMenu: Boolean;
+ FShouldOpenRemoteUrlsInBrowser: Boolean;
FCallbackWnd: THandle;
FOnPreKeySyncEvent: TCEFHostPreKeySyncEvent;
FOnKeyEvent: TCEFHostKeyEvent;
FOnBeforeBrowse: TCEFHostBeforeBrowseEvent;
+ FOnTitleChange: TCEFHostTitleChangeEvent;
+ FOnCommand: TCEFCommandEvent;
+ FOnResizeFromDocument: TCEFHostResizeFromDocumentEvent;
+ FOnHelpTopic: TNotifyEvent;
procedure CallbackWndProc(var Message: TMessage);
@@ -134,7 +154,10 @@ type
procedure Handle_CEF_LOADEND(var message: TMessage);
procedure Handle_CEF_KEYEVENT(var message: TMessage);
procedure Handle_CEF_BEFOREBROWSE(var message: TMessage);
- procedure Handle_CEF_CONSOLEMESSAGE(var message: TMessage);
+ procedure Handle_CEF_TITLECHANGE(var message: TMessage);
+ procedure Handle_CEF_COMMAND(var message: TMessage);
+ procedure Handle_CEF_RESIZEFROMDOCUMENT(var message: TMessage);
+ procedure Handle_CEF_SETFOCUS(var message: TMessage);
// CEF: You have to handle this two messages to call NotifyMoveOrResizeStarted or some page elements will be misaligned.
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
@@ -147,18 +170,23 @@ type
procedure Navigate; overload;
procedure DoBeforeBrowse(const url: string; out Handled: Boolean; ShouldOpenUrlIfNotHandled: Boolean);
public
+ procedure DoResizeByContent;
procedure SetFocus; override;
procedure StartClose;
procedure Navigate(const url: string); overload;
function HasFocus: Boolean;
property ShouldShowContextMenu: Boolean read FShouldShowContextMenu write FShouldShowContextMenu;
+ property ShouldOpenRemoteUrlsInBrowser: Boolean read FShouldOpenRemoteUrlsInBrowser write FShouldOpenRemoteUrlsInBrowser;
property OnAfterCreated: TNotifyEvent read FOnAfterCreated write FOnAfterCreated;
property OnBeforeBrowseSync: TCEFHostBeforeBrowseSyncEvent read FOnBeforeBrowseSync write FOnBeforeBrowseSync;
+ property OnCommand: TCEFCommandEvent read FOnCommand write FOnCommand;
property OnBeforeBrowse: TCEFHostBeforeBrowseEvent read FOnBeforeBrowse write FOnBeforeBrowse;
+ property OnHelpTopic: TNotifyEvent read FOnHelpTopic write FOnHelpTopic;
property OnLoadEnd: TNotifyEvent read FOnLoadEnd write FOnLoadEnd;
-
+ property OnTitleChange: TCEFHostTitleChangeEvent read FOnTitleChange write FOnTitleChange;
property OnPreKeySyncEvent: TCEFHostPreKeySyncEvent read FOnPreKeySyncEvent write FOnPreKeySyncEvent;
property OnKeyEvent: TCEFHostKeyEvent read FOnKeyEvent write FOnKeyEvent;
+ property OnResizeFromDocument: TCEFHostResizeFromDocumentEvent read FOnResizeFromDocument write FOnResizeFromDocument;
end;
// Helpers to make sure we don't accidentally code
@@ -172,13 +200,12 @@ uses
System.StrUtils,
Winapi.ShellApi,
- Keyman.Developer.System.HelpTopics,
-// typinfo,
ErrorControlledRegistry,
ExternalExceptionHandler,
- UfrmMain,
utilhttp,
uCEFApplication,
+ uCEFConstants,
+ uCEFProcessMessage,
VersionInfo;
{$R *.DFM}
@@ -265,6 +292,27 @@ begin
CreateBrowser;
end;
+procedure TframeCEFHost.Handle_CEF_TITLECHANGE(var message: TMessage);
+var
+ p: PCEFTitleChangeEventData;
+begin
+ AssertVclThread;
+ p := PCEFTitleChangeEventData(message.LParam);
+
+ if Assigned(FOnTitleChange) then
+ FOnTitleChange(Self, p.title);
+
+ FreeMem(p);
+end;
+
+procedure TframeCEFHost.cefWidgetCompMsg(var aMessage: TMessage;
+ var aHandled: Boolean);
+begin
+ AssertCefThread;
+ if aMessage.Msg = WM_SETFOCUS then
+ PostMessage(FCallbackWnd, CEF_SETFOCUS, 0, 0);
+end;
+
procedure TframeCEFHost.CreateBrowser;
begin
AssertVclThread;
@@ -315,7 +363,10 @@ begin
CEF_LOADEND: Handle_CEF_LOADEND(Message);
CEF_KEYEVENT: Handle_CEF_KEYEVENT(Message);
CEF_BEFOREBROWSE: Handle_CEF_BEFOREBROWSE(Message);
- CEF_CONSOLEMESSAGE: Handle_CEF_CONSOLEMESSAGE(Message);
+ CEF_TITLECHANGE: Handle_CEF_TITLECHANGE(Message);
+ CEF_COMMAND: Handle_CEF_COMMAND(Message);
+ CEF_RESIZEFROMDOCUMENT: Handle_CEF_RESIZEFROMDOCUMENT(Message);
+ CEF_SETFOCUS: Handle_CEF_SETFOCUS(Message);
end;
if Self <> nil then
@@ -347,6 +398,11 @@ begin
end;
end;
+function IsLocalURL(URL: WideString): Boolean;
+begin
+ Result := (Copy(URL, 1, 5) = 'file:') or (Copy(URL, 1, 1) = '/');
+end;
+
procedure TframeCEFHost.Handle_CEF_BEFOREBROWSE(var message: TMessage);
var
params: TStringList;
@@ -365,7 +421,14 @@ begin
if wasHandled then
begin
if Assigned(FOnBeforeBrowse) then
- FOnBeforeBrowse(Self, url, params, Boolean(message.WParam));
+ begin
+ FOnBeforeBrowse(Self, url, Boolean(message.WParam));
+ end;
+
+ if FShouldOpenRemoteUrlsInBrowser and (params.Count = 0) and not IsLocalURL(URL) then
+ {$MESSAGE HINT 'Refactor how remote URLs are handled'}
+ // TODO: refactor links
+ TUtilExecute.URL(url);
end
else if shouldOpenUrlIfNotHandled then
cef.LoadURL(url);
@@ -373,26 +436,23 @@ begin
params.Free;
end;
-procedure TframeCEFHost.Handle_CEF_CONSOLEMESSAGE(var message: TMessage);
+procedure TframeCEFHost.Handle_CEF_COMMAND(var message: TMessage);
var
- I: Integer;
- id: string;
- p: PCEFConsoleMessageEventData;
+ params: TStringList;
+ command: string;
begin
AssertVclThread;
- p := PCEFConsoleMessageEventData(message.LParam);
-
- id := LowerCase(ExtractFileName(ParamStr(0)))+'_'+GetVersionString+'_script_';
- if Assigned(Owner)
- then id := id + Owner.ClassName
- else id := id + 'unknown';
-
- I := string(p.source).LastDelimiter('/');
- id := id + '_' + string(p.source).SubString(I + 1) + '_' + IntToStr(p.line);
+ params := TStringList(message.LParam);
- LogExceptionToExternalHandler(id, 'Error occurred at line '+IntToStr(p.line)+' of '+p.source, p.message, '');
+ if Assigned(FOnCommand) then
+ begin
+ params.Delete(0); // url; not really used currently
+ command := params[0];
+ params.Delete(0);
+ FOnCommand(Self, command, params);
+ end;
- FreeMem(p);
+ params.Free;
end;
procedure TframeCEFHost.cefBeforeBrowse(Sender: TObject;
@@ -412,21 +472,44 @@ begin
AssertCefThread;
Handled := False;
+
if Assigned(FOnBeforeBrowseSync) then
begin
FOnBeforeBrowseSync(Self, url, Handled);
end;
- params := nil;
+ if not Handled and GetParamsFromURL(Url, params) then
+ begin
+ Handled := True;
+ // Use OnCommand for keyman: URLs
+ params.Insert(0, Url);
+ PostMessage(FCallbackWnd, CEF_COMMAND, 0, LPARAM(params));
+ end
+ else
+ begin
+ // Use OnBeforeBrowse for other URLs
+ if not Handled and FShouldOpenRemoteUrlsInBrowser and not IsLocalURL(URL) then
+ Handled := True;
+
+ params := TStringList.Create;
+ params.Insert(0, Url);
+ PostMessage(FCallbackWnd, CEF_BEFOREBROWSE, MAKELONG(WORD(Handled), WORD(ShouldOpenUrlIfNotHandled)), LPARAM(params));
+ end;
+
+ {params := nil;
+
if not Handled then
Handled := GetParamsFromURL(Url, params);
+ if not Handled and FShouldOpenRemoteUrlsInBrowser and not IsLocalURL(URL) then
+ Handled := True;
+
if not Assigned(params) then
params := TStringList.Create;
params.Insert(0, Url);
- PostMessage(FCallbackWnd, CEF_BEFOREBROWSE, MAKELONG(WORD(Handled), WORD(ShouldOpenUrlIfNotHandled)), LPARAM(params));
+ PostMessage(FCallbackWnd, CEF_BEFOREBROWSE, MAKELONG(WORD(Handled), WORD(ShouldOpenUrlIfNotHandled)), LPARAM(params));}
end;
procedure TframeCEFHost.cefBeforeClose(Sender: TObject; const browser: ICefBrowser);
@@ -443,26 +526,6 @@ begin
Result := True;
end;
-procedure TframeCEFHost.cefConsoleMessage(Sender: TObject;
- const browser: ICefBrowser; level: Cardinal; const message, source: ustring;
- line: Integer; out Result: Boolean);
-var
- p: PCEFConsoleMessageEventData;
-begin
- AssertCefThread;
-
- p := AllocMem(SizeOf(TCEFConsoleMessageEventData));
- p.browserid := browser.Identifier;
- p.level := level;
- p.message := message;
- p.source := source;
- p.line := line;
-
- Result := True;
-
- PostMessage(FCallbackWnd, CEF_CONSOLEMESSAGE, WORD(Result), LPARAM(p));
-end;
-
procedure TframeCEFHost.Handle_CEF_DESTROY(var Message: TMessage);
begin
AssertVclThread;
@@ -494,7 +557,7 @@ begin
if p.event.windows_key_code = VK_F1 then
begin
- frmKeymanDeveloper.HelpTopic(Self)
+ if Assigned(FOnHelpTopic) then FOnHelpTopic(Self); // TODO: frmKeymanDeveloper.HelpTopic(Self)
end
else if p.event.windows_key_code = VK_F12 then
begin
@@ -524,6 +587,20 @@ begin
FOnLoadEnd(Self);
end;
+procedure TframeCEFHost.Handle_CEF_RESIZEFROMDOCUMENT(var message: TMessage);
+begin
+ AssertVclThread;
+ if Assigned(FOnResizeFromDocument) then
+ FOnResizeFromDocument(Self, message.WParam, message.LParam);
+end;
+
+procedure TframeCEFHost.Handle_CEF_SETFOCUS(var message: TMessage);
+begin
+ AssertVclThread;
+ if Assigned(cefwp) and cefwp.Visible and cefwp.CanFocus then
+ GetParentForm(cefwp).ActiveControl := cefwp;
+end;
+
procedure TframeCEFHost.cefPreKeyEvent(Sender: TObject;
const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg;
out isKeyboardShortcut, Result: Boolean);
@@ -570,9 +647,9 @@ begin
PostMessage(FCallbackWnd, CEF_KEYEVENT, MAKELONG(WORD(Result), WORD(isKeyboardShortcut)), LPARAM(p));
end;
-
end;
+
procedure TframeCEFHost.cefBeforePopup(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
@@ -600,6 +677,20 @@ begin
Result := source = FOCUS_SOURCE_NAVIGATION;
end;
+procedure TframeCEFHost.cefTitleChange(Sender: TObject;
+ const browser: ICefBrowser; const title: ustring);
+var
+ p: PCEFTitleChangeEventData;
+begin
+ AssertCefThread;
+
+ p := AllocMem(SizeOf(TCEFTitleChangeEventData));
+ p.browserid := browser.Identifier;
+ p.title := title;
+
+ PostMessage(FCallbackWnd, CEF_TITLECHANGE, 0, LPARAM(p));
+end;
+
procedure TframeCEFHost.WMEnterMenuLoop(var aMessage: TMessage);
begin
AssertVclThread;
@@ -628,4 +719,21 @@ begin
if cef <> nil then cef.NotifyMoveOrResizeStarted;
end;
+procedure TframeCEFHost.DoResizeByContent;
+var
+ msg : ICefProcessMessage;
+begin
+ // Use the ArgumentList property if you need to pass some parameters.
+ msg := TCefProcessMessageRef.New(TCEFManager.ProcessMessage_GetWindowSize); // Same name than TCefCustomRenderProcessHandler.MessageName
+ cef.SendProcessMessage(PID_RENDERER, msg);
+end;
+
+procedure TframeCEFHost.cefProcessMessageReceived(Sender: TObject;
+ const browser: ICefBrowser; sourceProcess: TCefProcessId;
+ const message: ICefProcessMessage; out Result: Boolean);
+begin
+ if message.Name = TCEFManager.ProcessMessage_GetWindowSize then
+ PostMessage(FCallbackWnd, CEF_RESIZEFROMDOCUMENT, message.ArgumentList.GetInt(0), message.ArgumentList.GetInt(1));
+end;
+
end.
diff --git a/windows/src/global/delphi/comp/KeymanEmbeddedWB.pas b/windows/src/global/delphi/comp/KeymanEmbeddedWB.pas
deleted file mode 100644
index 045702c8294fd63d8dee5cc9f88218630375fb16..0000000000000000000000000000000000000000
--- a/windows/src/global/delphi/comp/KeymanEmbeddedWB.pas
+++ /dev/null
@@ -1,81 +0,0 @@
-(*
- Name: KeymanEmbeddedWB
- Copyright: Copyright (C) 2003-2017 SIL International.
- Documentation:
- Description:
- Create Date: 18 Feb 2011
-
- Modified Date: 8 Jul 2011
- Authors: mcdurdin
- Related Files:
- Dependencies:
-
- Bugs:
- Todo:
- Notes:
- History: 18 Feb 2011 - mcdurdin - I2721 - Override Javascript-disabled security for web controls
- 18 Mar 2011 - mcdurdin - I2784 - Integrated browser has leak of IInternetSecurityManager
- 08 Jul 2011 - mcdurdin - I2984 - Disable floating point exceptions to avoid throwing fp errors from mshtml.dll
-*)
-unit KeymanEmbeddedWB; // I2721
-
-interface
-
-uses
- Classes,
- EmbeddedWB,
- SecurityManager,
- URLMon;
-
-type
- TKeymanEmbeddedWB = class(TEmbeddedWB)
- private
- FSecurityManager: TSecurityManager; // I2784
- protected
- function DoQueryService(const rsid, iid: TGUID; var Obj): Boolean; override;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override; // I2784
- end;
-
-procedure Register;
-
-implementation
-
-uses
- SysUtils;
-
-procedure Register;
-begin
- RegisterComponents('Keyman', [TKeymanEmbeddedWB]);
-end;
-
-{ TKeymanEmbeddedWB }
-
-constructor TKeymanEmbeddedWB.Create(AOwner: TComponent);
-begin
- FSecurityManager := TSecurityManager.Create(nil);
- inherited Create(AOwner);
- DisableErrors.fpExceptions := False; // I2984
-end;
-
-destructor TKeymanEmbeddedWB.Destroy;
-begin
- FreeAndNil(FSecurityManager); // I2784
- inherited Destroy;
-end;
-
-function TKeymanEmbeddedWB.DoQueryService(const rsid, iid: TGUID;
- var Obj): Boolean;
-begin
- if Assigned(FSecurityManager) and IsEqualGuid(rsid, IID_IInternetSecurityManager) then // I2784
- begin
- Result := FSecurityManager.QueryInterface(iid, Obj) = S_OK;
- end
- else
- Result := inherited DoQueryService(rsid, iid, Obj);
-end;
-
-initialization
- RegisterClasses([TEmbeddedWB]);
-end.
diff --git a/windows/src/global/delphi/comp/WebBrowserFocusMonitor.dcr b/windows/src/global/delphi/comp/WebBrowserFocusMonitor.dcr
deleted file mode 100644
index 23d6f536decb21b654fb246c8c77ddcb4802e4ba..0000000000000000000000000000000000000000
Binary files a/windows/src/global/delphi/comp/WebBrowserFocusMonitor.dcr and /dev/null differ
diff --git a/windows/src/global/delphi/comp/WebBrowserFocusMonitor.pas b/windows/src/global/delphi/comp/WebBrowserFocusMonitor.pas
deleted file mode 100644
index 4dc721f2c25c35ab25e0cf141d4cbe828d321480..0000000000000000000000000000000000000000
--- a/windows/src/global/delphi/comp/WebBrowserFocusMonitor.pas
+++ /dev/null
@@ -1,168 +0,0 @@
-(*
- Name: WebBrowserFocusMonitor
- Copyright: Copyright (C) SIL International.
- Documentation:
- Description:
- Create Date: 23 Aug 2006
-
- Modified Date: 17 Dec 2010
- Authors: mcdurdin
- Related Files:
- Dependencies:
-
- Bugs:
- Todo:
- Notes:
- History: 23 Aug 2006 - mcdurdin - Initial version
- 30 Aug 2006 - mcdurdin - Only set focus if the web browser is visible
- 17 Dec 2010 - mcdurdin - I2570 - Use new EmbeddedWB
-*)
-unit WebBrowserFocusMonitor;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- MSHTML_TLB, shdocvw, ActiveX;
-
-type
- TWebBrowserFocusMonitor = class(TComponent)
- private
- FWB: TWebBrowser;
- FDefInetExplorerServerProc: Pointer;
- FDefShellObjViewProc: Pointer;
- FShellDocObjViewHandle: THandle;
- FInetExplorerServerHandle: THandle;
- FShellDocObjInstance: Pointer;
- FInetExplorerServerInstance: Pointer;
- FHooksSet: Boolean;
- protected
- procedure InetExplorerServerWndProc(var Message: TMessage);
- procedure ShellDocObjWndProc(var Message: TMessage);
- public
- constructor Create(AOwner: TComponent); override;
- procedure UnHookChildWindows;
- procedure HookChildWindows;
- function IsHooked: Boolean;
- published
- property WebBrowser: TWebBrowser read FWB write FWB;
- end;
-
-procedure Register;
-procedure LoadDocFromString(WB: TWebBrowser; const HTMLString: string);
-
-implementation
-
-uses
- Variants;
-
-procedure LoadDocFromString(WB: TWebBrowser; const HTMLString: string);
-var
- v: OleVariant;
- HTMLDocument: IHTMLDocument2;
-begin
- HTMLDocument := WB.Document as IHTMLDocument2;
- v := VarArrayCreate([0, 0], varVariant);
- v[0] := HTMLString;
- HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
- HTMLDocument.Close;
-end;
-
-procedure Register;
-begin
- RegisterComponents('Eze', [TWebBrowserFocusMonitor]);
-end;
-
-constructor TWebBrowserFocusMonitor.Create(AOwner: TComponent);
-begin
- inherited;
- FWB := nil;
- FDefInetExplorerServerProc := nil;
- FDefShellObjViewProc := nil;
- FShellDocObjViewHandle := 0;
- FInetExplorerServerHandle := 0;
- FShellDocObjInstance := nil;
- FInetExplorerServerInstance := nil;
- FHooksSet := False;
-end;
-
-procedure TWebBrowserFocusMonitor.HookChildWindows;
-begin
- if csDesigning in ComponentState then exit;
-
- if FWB = nil then Exit;
-
- //hHookProc := SetWindowsHookEx(WH_CALLWNDPROCRET, HookProc, 0, GetCurrentThreadId);
-
- // Hook child windows to catch destroywnd messages when docking the editor window
- if (FShellDocObjViewHandle <> 0) or (FInetExplorerServerHandle <> 0) then
- raise Exception.Create('Child already hooked');
- FShellDocObjViewHandle := Windows.GetWindow(FWB.Handle, GW_CHILD);
- if (FShellDocObjViewHandle <> 0) and not FHooksSet then
- begin
- FInetExplorerServerInstance := Classes.MakeObjectInstance(InetExplorerServerWndProc);
- FShellDocObjInstance := Classes.MakeObjectInstance(ShellDocObjWndProc);
- FHooksSet := True;
- FInetExplorerServerHandle := Windows.GetWindow(FShellDocObjViewHandle, GW_CHILD);
- FDefShellObjViewProc := Pointer(GetWindowLong(FShellDocObjViewHandle, GWL_WNDPROC));
- SetWindowLong(FShellDocObjViewHandle, GWL_WNDPROC, Longint(FShellDocObjInstance));
- FDefInetExplorerServerProc := Pointer(GetWindowLong(FInetExplorerServerHandle, GWL_WNDPROC));
- SetWindowLong(FInetExplorerServerHandle, GWL_WNDPROC, Longint(FInetExplorerServerInstance));
- end;
-end;
-
-procedure TWebBrowserFocusMonitor.InetExplorerServerWndProc(var Message: TMessage);
-begin
- Message.Result := CallWindowProc(FDefInetExplorerServerProc, FInetExplorerServerHandle, Message.Msg, Message.WParam, Message.LParam);
- case Message.Msg of
- WM_SETFOCUS:
- begin
- // Catching this message allows us to set the Active control to the
- // WebBrowser itself which keeps VCL in sync with the real active control
- // which makes things like tabbing work correctly.
- if FWB.Showing and FWB.CanFocus then
- GetParentForm(FWB).ActiveControl := FWB
- else if Assigned(GetParentForm(FWB).ActiveControl) then
- // ignore the wm_setfocus because it came at an inappropriate time
- GetParentForm(FWB).ActiveControl.SetFocus;
- end;
- WM_DESTROY: UnHookChildWindows;
- end;
-end;
-
-function TWebBrowserFocusMonitor.IsHooked: Boolean;
-begin
- Result := (FShellDocObjViewHandle <> 0) or (FInetExplorerServerHandle <> 0);
-end;
-
-procedure TWebBrowserFocusMonitor.ShellDocObjWndProc(var Message: TMessage);
-begin
- Message.Result := CallWindowProc(FDefShellObjViewProc, FShellDocObjViewHandle,
- Message.Msg, Message.WParam, Message.LParam);
- case Message.Msg of
- WM_DESTROY: UnHookChildWindows;
- end;
-end;
-
-procedure TWebBrowserFocusMonitor.UnHookChildWindows;
-begin
- if FShellDocObjViewHandle <> 0 then
- begin
- if GetWindowLong(FShellDocObjViewHandle, GWL_WNDPROC) = Longint(FShellDocObjInstance) then // I2570
- SetWindowLong(FShellDocObjViewHandle, GWL_WNDPROC, Integer(FDefShellObjViewProc));
- Classes.FreeObjectInstance(FShellDocObjInstance);
- FShellDocObjViewHandle := 0;
- FShellDocObjInstance := nil;
- end;
-
- if FInetExplorerServerHandle <> 0 then
- begin
- if GetWindowLong(FShellDocObjViewHandle, GWL_WNDPROC) = Integer(FInetExplorerServerInstance) then // I2570
- SetWindowLong(FInetExplorerServerHandle, GWL_WNDPROC, Integer(FDefInetExplorerServerProc));
- Classes.FreeObjectInstance(FInetExplorerServerInstance);
- FInetExplorerServerHandle := 0;
- FInetExplorerServerInstance := nil;
- end;
-end;
-
-end.
diff --git a/windows/src/global/delphi/comp/WebBrowserManager.pas b/windows/src/global/delphi/comp/WebBrowserManager.pas
index e9177442b5fb79dbcb76dc62ca5880542c76cf4c..e2f423daf949dcaff4b6882a21f9b04afea45340 100644
--- a/windows/src/global/delphi/comp/WebBrowserManager.pas
+++ b/windows/src/global/delphi/comp/WebBrowserManager.pas
@@ -15,7 +15,7 @@
Notes:
History: 27 Mar 2008 - mcdurdin - Initial version
29 Mar 2010 - mcdurdin - I2199 - Shift+click new window support
- 17 Dec 2010 - mcdurdin - I2570 - Use new EmbeddedWB
+ 17 Dec 2010 - mcdurdin - I2570 - Use new E-mbeddedWB
19 Jul 2011 - mcdurdin - I2984 - Floating point in Internet Explorer fix
18 May 2012 - mcdurdin - I3306 - V9.0 - Remove TntControls + Win9x support
01 May 2014 - mcdurdin - I4181 - V9.0 - Stop using DeleteFileAlways, MOVEFILE_DELAY_UNTIL_REBOOT
@@ -25,8 +25,9 @@ unit WebBrowserManager; // I3306
interface
uses
- Windows, Messages, Types, Classes, EmbeddedWB, MSHTML_TLB,
- XMLRenderer, keymanapi_TLB, UserMessages, EwbCore,
+ Windows, Messages, Types, Classes,
+ XMLRenderer, keymanapi_TLB, UserMessages,
+ Keyman.UI.UframeCEFHost,
TempFileManager;
type
@@ -37,9 +38,11 @@ type
TWebBrowserManager_ResizeEvent = procedure(Sender: TObject; X, Y: Integer) of object;
+ TWebBrowserManager_ScriptErrorEvent = TNotifyEvent;
+
TWebBrowserManager = class(TComponent)
private
- web: TEmbeddedWB;
+ cef: TframeCEFHost;
FSafeWndHandle: Cardinal;
FXMLFileName: TTempFile; // I4181
FXMLRenderers: TXMLRenderers;
@@ -47,29 +50,10 @@ type
FDialogName: WideString;
FOnResize: TWebBrowserManager_ResizeEvent;
FOnSetTitle: TWebBrowserManager_SetTitleEvent;
- FOnScriptError: TScriptErrorEvent;
+ FOnScriptError: TWebBrowserManager_ScriptErrorEvent;
FRenderTemplate: WideString;
- procedure webShowContextMenu(Sender: TCustomEmbeddedWB;
- const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IInterface;
- const Context: IDispatch; var Result: HRESULT);
- procedure webKeyDown(Sender: TObject; var Key: Word; ScanCode: Word;
- Shift: TShiftState);
- procedure webScriptError(Sender: TObject; ErrorLine, ErrorCharacter,
- ErrorCode, ErrorMessage, ErrorUrl: string; var ScriptErrorAction: TScriptErrorAction);
- function webShowHelpRequest(Sender: TObject; HWND: NativeUInt;
- pszHelpFile: PWideChar; uCommand, dwData: Integer; ptMouse: TPoint;
- var pDispatchObjectHit: IDispatch): HRESULT;
- procedure webDocumentComplete(ASender: TObject; const pDisp: IDispatch;
- var URL: OleVariant);
- procedure webBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
- var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
- var Cancel: WordBool);
- procedure webNewWindow3(ASender: TObject; var ppDisp: IDispatch;
- var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
- bstrUrl: WideString);
-
- procedure SetWebBrowser(const Value: TEmbeddedWB);
+ procedure SetWebBrowser(const Value: TframeCEFHost);
procedure AddWebHooks;
procedure RemoveWebHooks;
@@ -77,6 +61,12 @@ type
procedure DeleteXMLFiles;
procedure SetRenderTemplate(const Value: WideString);
+ procedure cefCommand(Sender: TObject; const command: string; params: TStringList);
+ procedure cefLoadEnd(Sender: TObject);
+ procedure cefPreKeySyncEvent(Sender: TObject; e: TCEFHostKeyEventData; out isShortcut, Handled: Boolean);
+ procedure cefKeyEvent(Sender: TObject; e: TCEFHostKeyEventData; wasShortcut, wasHandled: Boolean);
+ procedure cefTitleChange(Sender: TObject; const title: string);
+ procedure cefResizeFromDocument(Sender: TObject; awidth, aheight: Integer);
protected
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
@@ -92,8 +82,8 @@ type
property OnFireCommand: TWebBrowserManager_FireCommandEvent read FOnFireCommand write FOnFireCommand;
property OnSetTitle: TWebBrowserManager_SetTitleEvent read FOnSetTitle write FOnSetTitle;
property OnResize: TWebBrowserManager_ResizeEvent read FOnResize write FOnResize;
- property OnScriptError: TScriptErrorEvent read FOnScriptError write FOnScriptError;
- property WebBrowser: TEmbeddedWB read web write SetWebBrowser;
+ property OnScriptError: TWebBrowserManager_ScriptErrorEvent read FOnScriptError write FOnScriptError;
+ property WebBrowser: TframeCEFHost read cef write SetWebBrowser;
property RenderTemplate: WideString read FRenderTemplate write SetRenderTemplate;
end;
@@ -101,17 +91,16 @@ implementation
uses
Forms,
- SHDocVw,
SysUtils,
+ uCEFConstants,
+ uCEFTypes,
utilhttp,
- utilsystem,
- WebSoundControl;
+ utilsystem;
{ TWebBrowserManager }
constructor TWebBrowserManager.Create(AOwner: TComponent);
begin
- Set8087CW($133F); // I2984
inherited Create(AOwner);
FSafeWndHandle := Classes.AllocateHWnd(SafeWndProc);
FXMLRenderers := TXMLRenderers.Create;
@@ -121,7 +110,7 @@ end;
destructor TWebBrowserManager.Destroy;
begin
Classes.DeallocateHWnd(FSafeWndHandle);
- if web <> nil then web.RemoveFreeNotification(Self);
+ if cef <> nil then cef.RemoveFreeNotification(Self);
DeleteXMLFiles;
FreeAndNil(FXMLRenderers);
inherited Destroy;
@@ -137,29 +126,18 @@ end;
procedure TWebBrowserManager.Notification(AComponent: TComponent;
Operation: TOperation);
begin
- if (AComponent = web) and (Operation = opRemove) then
+ if (AComponent = cef) and (Operation = opRemove) then
begin
RemoveWebHooks;
- web := nil;
+ cef := nil;
end;
inherited;
end;
procedure TWebBrowserManager.SafeWndProc(var Message: TMessage);
-var
- command: WideString;
- params: TStringList;
begin
with Message do
case Msg of
- WM_USER_FireCommand:
- begin
- params := TStringList(Message.LParam);
- command := params[0];
- params.Delete(0);
- FireCommand(command, params);
- params.Free;
- end;
WM_USER_ContentRender:
Content_Render;
else
@@ -174,17 +152,17 @@ begin
FXMLRenderers.RenderTemplate := FRenderTemplate;
end;
-procedure TWebBrowserManager.SetWebBrowser(const Value: TEmbeddedWB);
+procedure TWebBrowserManager.SetWebBrowser(const Value: TframeCEFHost);
begin
- if web <> nil then
+ if cef <> nil then
begin
RemoveWebHooks;
- web.RemoveFreeNotification(Self);
+ cef.RemoveFreeNotification(Self);
end;
- web := Value;
- if web <> nil then
+ cef := Value;
+ if cef <> nil then
begin
- web.FreeNotification(Self);
+ cef.FreeNotification(Self);
AddWebHooks;
end;
end;
@@ -196,138 +174,104 @@ end;
procedure TWebBrowserManager.AddWebHooks;
begin
- if web <> nil then
+ if cef <> nil then
begin
- web.OnShowContextMenu := webShowContextMenu;
- web.OnKeyDown := webKeyDown;
- web.OnScriptError := webScriptError;
- web.OnShowHelpRequest := webShowHelpRequest;
- web.OnDocumentComplete := webDocumentComplete;
- web.OnBeforeNavigate2 := webBeforeNavigate2;
- web.OnNewWindow3 := webNewWindow3;
+ cef.OnCommand := cefCommand;
+ cef.OnLoadEnd := cefLoadEnd;
+ cef.OnKeyEvent := cefKeyEvent;
+ cef.OnPreKeySyncEvent := cefPreKeySyncEvent;
+ cef.OnTitleChange := cefTitleChange;
+ cef.OnResizeFromDocument := cefResizeFromDocument;
end;
+ {$MESSAGE HINT 'TODO: Support OnShowContextMenu'}
+ {if web <> nil then
+ begin
+ web.OnShowContextMenu := webShowContextMenu;
+ end;}
end;
procedure TWebBrowserManager.RemoveWebHooks;
begin
- if web <> nil then
+ if cef <> nil then
+ begin
+ cef.OnCommand := nil;
+ cef.OnLoadEnd := nil;
+ cef.OnKeyEvent := nil;
+ cef.OnPreKeySyncEvent := nil;
+ cef.OnTitleChange := nil;
+ end;
+ {if web <> nil then
begin
web.OnShowContextMenu := nil;
- web.OnKeyDown := nil;
web.OnScriptError := nil;
- web.OnShowHelpRequest := nil;
- web.OnDocumentComplete := nil;
- web.OnBeforeNavigate2 := nil;
- web.OnNewWindow3 := nil;
- end;
+ end;}
end;
-procedure TWebBrowserManager.webBeforeNavigate2(ASender: TObject;
- const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
- Headers: OleVariant; var Cancel: WordBool);
-var
- params: TStringList;
+{procedure TWebBrowserManager.webScriptError(Sender: TObject; ErrorLine,
+ ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string; var ScriptErrorAction: TScriptErrorAction);
begin
- if GetParamsFromURL(URL, params) then
- begin
- PostMessage(FSafeWndHandle, WM_USER_FireCommand, 0, Integer(params));
- Cancel := True;
- end;
-end;
+ if Assigned(FOnScriptError) then
+ FOnScriptError(Self, ErrorLine, ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl, ScriptErrorAction);
+end;}
-procedure TWebBrowserManager.webDocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
-var
- doc2: IHTMLDocument2;
- doc3: IHTMLDocument3;
- elem: IHTMLElement;
+
+{procedure TWebBrowserManager.webShowContextMenu(Sender: TCustomEmbeddedWB;
+ const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IInterface;
+ const Context: IDispatch; var Result: HRESULT);
begin
- try
- if Assigned(web.Document) then
- begin
- doc2 := (web.Document as IHTMLDocument2);
- doc3 := (web.Document as IHTMLDocument3);
-
- if Assigned(FOnSetTitle) then
- FOnSetTitle(Self, doc2.title);
-
- if Assigned(FOnResize) then
- begin
- elem := doc3.getElementById('size');
- if Assigned(elem) then
- FOnResize(Self, elem.offsetWidth, elem.offsetHeight);
- end;
-
-{ if True then
-
- ClientWidth := elem.offsetWidth;
- ClientHeight := elem.offsetHeight;
-
- Left := (Screen.Width - Width) div 2;
- Top := (Screen.Height - Height) div 2;
- end;}
-
- elem := doc3.documentElement;
- if Assigned(elem) then
- elem.insertAdjacentHTML('afterBegin', ' ');
- // NOTE: The , or some other visible HTML, is required. Internet Explorer will not
- // parse and recognize the script block without some visual HTML to
- // accompany it.
- end;
- except
- Exit;
- end;
- DeleteXMLFiles; // I4181
-end;
+ PostMessage(web.ParentWindow, WM_CONTEXTMENU, web.Handle, MAKELONG(ppt.X, ppt.Y));
+ Result := S_OK;
+end;}
-procedure TWebBrowserManager.webNewWindow3(ASender: TObject;
- var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
- const bstrUrlContext, bstrUrl: WideString);
-var
- params: TStringList;
+procedure TWebBrowserManager.cefCommand(Sender: TObject; const command: string; params: TStringList);
begin
- Cancel := True;
- if GetParamsFromURL(bstrURL, params)
- then PostMessage(FSafeWndHandle, WM_USER_FireCommand, 0, Integer(params))
- else web.Go(bstrURL);
+ FireCommand(command, params);
end;
-procedure TWebBrowserManager.webKeyDown(Sender: TObject; var Key: Word;
- ScanCode: Word; Shift: TShiftState);
+procedure TWebBrowserManager.cefKeyEvent(Sender: TObject;
+ e: TCEFHostKeyEventData; wasShortcut, wasHandled: Boolean);
begin
- if (Key = VK_F5) and (ssCtrl in Shift) then
+ // VCL Thread
+ if e.event.kind in [KEYEVENT_RAWKEYDOWN, KEYEVENT_KEYDOWN] then
begin
- Key := 0;
- PostMessage(FSafeWndHandle, WM_USER_ContentRender, 0, 0);
+ if (e.event.windows_key_code = VK_F5) and ((e.event.modifiers and EVENTFLAG_CONTROL_DOWN) = EVENTFLAG_CONTROL_DOWN) then
+ PostMessage(FSafeWndHandle, WM_USER_ContentRender, 0, 0)
+ else if e.event.windows_key_code = VK_F1 then
+ Application.HelpJump('context_'+lowercase(FDialogName));
end;
end;
-procedure TWebBrowserManager.webScriptError(Sender: TObject; ErrorLine,
- ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string; var ScriptErrorAction: TScriptErrorAction);
+procedure TWebBrowserManager.cefPreKeySyncEvent(Sender: TObject;
+ e: TCEFHostKeyEventData; out isShortcut, Handled: Boolean);
begin
- if Assigned(FOnScriptError) then
- FOnScriptError(Self, ErrorLine, ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl, ScriptErrorAction);
+ // CEF thread
+ Handled := False;
+
+ if e.event.kind in [KEYEVENT_RAWKEYDOWN, KEYEVENT_KEYDOWN] then
+ if (e.event.windows_key_code = VK_F5) and ((e.event.modifiers and EVENTFLAG_CONTROL_DOWN) = EVENTFLAG_CONTROL_DOWN) then
+ Handled := True
+ else if e.event.windows_key_code = VK_F1 then
+ Handled := True;
end;
-procedure TWebBrowserManager.webShowContextMenu(Sender: TCustomEmbeddedWB;
- const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IInterface;
- const Context: IDispatch; var Result: HRESULT);
+procedure TWebBrowserManager.cefTitleChange(Sender: TObject;
+ const title: string);
begin
- PostMessage(web.ParentWindow, WM_CONTEXTMENU, web.Handle, MAKELONG(ppt.X, ppt.Y));
- Result := S_OK;
+ if Assigned(FOnSetTitle) then
+ FOnSetTitle(Self, title);
end;
-function TWebBrowserManager.webShowHelpRequest(Sender: TObject; HWND: NativeUInt;
- pszHelpFile: PWideChar; uCommand, dwData: Integer; ptMouse: TPoint;
- var pDispatchObjectHit: IDispatch): HRESULT;
+procedure TWebBrowserManager.cefLoadEnd(Sender: TObject);
begin
- Application.HelpJump('context_'+lowercase(FDialogName));
- Result := S_OK;
+ DeleteXMLFiles;
+end;
+
+procedure TWebBrowserManager.cefResizeFromDocument(Sender: TObject; awidth, aheight: Integer);
+begin
+ FOnResize(Self, awidth, aheight);
end;
procedure TWebBrowserManager.Content_Render(FRefreshKeyman: Boolean; const AdditionalData: WideString);
-var
- v: OleVariant;
begin
DeleteXMLFiles;
@@ -335,8 +279,7 @@ begin
FDialogName := ChangeFileExt(ExtractFileName(FXMLRenderers.RenderTemplate), '');
- v := navNoHistory or navNoReadFromCache or navNoWriteToCache;
- web.Navigate(FXMLFileName.Name, v); // I4181
+ cef.Navigate(FXMLFileName.Name); // I4181
end;
procedure TWebBrowserManager.DeleteXMLFiles;
diff --git a/windows/src/global/delphi/general/KeymanControlMessages.pas b/windows/src/global/delphi/general/KeymanControlMessages.pas
index f1447384775d359608e08b49c177f9ccc80e55df..000f998d9b88fcac409a542237e8a9d02ae65543 100644
--- a/windows/src/global/delphi/general/KeymanControlMessages.pas
+++ b/windows/src/global/delphi/general/KeymanControlMessages.pas
@@ -52,6 +52,8 @@ const
KMC_PROFILECHANGED = 18; // 9.0.426.0 // I3933
+ KMC_HINTRESPONSE = 19; // 14.0 HIWORD(wParam) = ModalResult, lParam = hint enum
+
PC_UPDATE = 0;
PC_UPDATE_LANGUAGESWITCH = 1;
PC_HOTKEYCHANGE = 2;
diff --git a/windows/src/global/delphi/general/KeymanPaths.pas b/windows/src/global/delphi/general/KeymanPaths.pas
index c7902386939bee026034c23d8bcc45b51f8beefb..06025cc68f62e3f633f37b5a253589f416611692 100644
--- a/windows/src/global/delphi/general/KeymanPaths.pas
+++ b/windows/src/global/delphi/general/KeymanPaths.pas
@@ -9,6 +9,11 @@ type
EKeymanPath = class(Exception);
TKeymanPaths = class
+ private
+ const S_CEF_DebugPath = 'Debug_CEFPath';
+ const S_CEF_EnvVar = 'KEYMAN_CEF4DELPHI_ROOT';
+ const S_CEF_SubFolder = 'cef\';
+ const S_CEF_SubProcess = 'kmbrowserhost.exe';
public
const S_KMShell = 'kmshell.exe';
const S_Xml_LocaleDef = 'xml\localedef.dtd';
@@ -26,8 +31,13 @@ type
class function KeymanEngineInstallDir: string; static;
class function KeyboardsInstallPath(const filename: string = ''): string; static;
class function KeyboardsInstallDir: string; static;
+ class function CEFPath: string; static; // Chromium Embedded Framework
+ class function CEFDataPath(const mode: string): string; static;
+ class function CEFSubprocessPath: string; static;
end;
+function GetFolderPath(csidl: Integer): string;
+
implementation
uses
@@ -207,6 +217,44 @@ begin
Result := IncludeTrailingPathDelimiter(Result) + filename;
end;
+class function TKeymanPaths.CEFPath: string;
+begin
+ Result := GetDebugPath(S_CEF_DebugPath, '');
+ if Result = '' then
+ begin
+ Result := GetEnvironmentVariable(S_CEF_EnvVar);
+ if Result = ''
+ then Result := KeymanDesktopInstallPath+S_CEF_SubFolder
+ else Result := IncludeTrailingPathDelimiter(Result);
+ end;
+end;
+
+class function TKeymanPaths.CEFSubprocessPath: string;
+begin
+ // Normal install location - in Keyman Desktop install folder
+ Result := KeymanDesktopInstallPath(S_CEF_SubProcess);
+ if FileExists(Result) then Exit;
+
+ // Same folder as executable
+ Result := ExtractFilePath(ParamStr(0)) + S_CEF_SubProcess;
+ if FileExists(Result) then Exit;
+
+ // Source repo, bin folder
+ Result := ExtractFilePath(ParamStr(0)) + '..\desktop\' + S_CEF_SubProcess;
+ if FileExists(Result) then Exit;
+
+ // Source repo, source folder
+ Result := ExtractFilePath(ParamStr(0)) + '..\..\desktop\kmbrowserhost\win32\debug\' + S_CEF_SubProcess;
+ if FileExists(Result) then Exit;
+
+ Result := ExtractFilePath(ParamStr(0)) + '..\..\desktop\kmbrowserhost\win32\release\' + S_CEF_SubProcess;
+end;
+
+class function TKeymanPaths.CEFDataPath(const mode: string): string;
+begin
+ Result := GetFolderPath(CSIDL_APPDATA) + SFolderCEFBrowserData + '\' + mode;
+end;
+
class function TKeymanPaths.KeyboardsInstallDir: string;
begin
Result := ExcludeTrailingPathDelimiter(KeyboardsInstallPath);
diff --git a/windows/src/global/delphi/general/RegistryKeys.pas b/windows/src/global/delphi/general/RegistryKeys.pas
index 84b767e546c3100f31c8e4ce33bf0710a11e5126..6d775b8fe07ba96e9552695aa2e76e5844ec3389 100644
--- a/windows/src/global/delphi/general/RegistryKeys.pas
+++ b/windows/src/global/delphi/general/RegistryKeys.pas
@@ -445,6 +445,7 @@ const
SFolderKeymanRoot = 'Keyman';
SFolderKeymanEngine = SFolderKeymanRoot + '\Keyman Engine';
SFolderKeymanKeyboard = SFolderKeymanEngine + '\Keyboard';
+ SFolderCEFBrowserData = SFolderKeymanEngine + '\CEF';
SFolderShared = SFolderKeymanRoot + '\Shared Data';
SFolderSharedDatabases = SFolderShared + '\Databases';
SFolderKeymanDeveloper = SFolderKeymanRoot + '\Keyman Developer';
diff --git a/windows/src/global/delphi/general/UserMessages.pas b/windows/src/global/delphi/general/UserMessages.pas
index 14987304cedaef817abe1dcc3d62584526a2a440..d9b40e65a5c9003604242a61d802b3bafb816c07 100644
--- a/windows/src/global/delphi/general/UserMessages.pas
+++ b/windows/src/global/delphi/general/UserMessages.pas
@@ -68,9 +68,6 @@ const
// UfrmOSKFontHelper
WM_USER_FontChange = WM_USER + 150; // I3390 // I3519
-const
- WM_USER_ResetWebFocus = WM_USER + 160;
-
const
// UframeTextEditor
WM_USER_TextEditor_Command = WM_USER + 170;
diff --git a/windows/src/global/delphi/general/WebSoundControl.pas b/windows/src/global/delphi/general/WebSoundControl.pas
deleted file mode 100644
index 3ddda2e0aad9e3e97f8ce3cf480c22912403a333..0000000000000000000000000000000000000000
--- a/windows/src/global/delphi/general/WebSoundControl.pas
+++ /dev/null
@@ -1,54 +0,0 @@
-(*
- Name: WebSoundControl
- Copyright: Copyright (C) SIL International.
- Documentation:
- Description:
- Create Date: 29 Mar 2010
-
- Modified Date: 29 Mar 2010
- Authors: mcdurdin
- Related Files:
- Dependencies:
-
- Bugs:
- Todo:
- Notes:
- History: 29 Mar 2010 - mcdurdin - I2268 - Disable click sound in web browser
-*)
-unit WebSoundControl;
-
-interface
-
-implementation
-
-uses Windows;
-
-procedure DisableInternetSounds;
-type
- TCoInternetSetFeatureEnabled = function(FeatureEntry: DWORD; Flags: DWORD; fEnable: BOOL): HRESULT; stdcall;
-const
- FEATURE_DISABLE_NAVIGATION_SOUNDS = 21;
- SET_FEATURE_ON_THREAD = $00000001;
- SET_FEATURE_ON_PROCESS = $00000002;
- SET_FEATURE_IN_REGISTRY = $00000004;
- SET_FEATURE_ON_THREAD_LOCALMACHINE = $00000008;
- SET_FEATURE_ON_THREAD_INTRANET = $00000010;
- SET_FEATURE_ON_THREAD_TRUSTED = $00000020;
- SET_FEATURE_ON_THREAD_INTERNET = $00000040;
- SET_FEATURE_ON_THREAD_RESTRICTED = $00000080;
-var
- FCoInternetSetFeatureEnabled: TCoInternetSetFeatureEnabled;
- FUrlMon: THandle;
-begin
- FUrlMon := LoadLibrary('urlmon.dll');
- if FUrlMon <> 0 then
- begin
- FCoInternetSetFeatureEnabled := GetProcAddress(FUrlMon, 'CoInternetSetFeatureEnabled');
- if Assigned(FCoInternetSetFeatureEnabled) then
- FCoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, TRUE);
- end;
-end;
-
-initialization
- DisableInternetSounds;
-end.
diff --git a/windows/src/global/delphi/hints/HintConsts.pas b/windows/src/global/delphi/hints/HintConsts.pas
index 30c9f4c44276805a36694cf44deb7b49e1e192c3..d202906ad1aed41142cef2b4ced64cfceebaef91 100644
--- a/windows/src/global/delphi/hints/HintConsts.pas
+++ b/windows/src/global/delphi/hints/HintConsts.pas
@@ -29,6 +29,21 @@ type
KH_OSKHINTBAR
);
+ TKeymanHintData = record
+ IsQuestion: Boolean; // True = OK+Cancel buttons; False = OK button only
+ end;
+
+const
+ KeymanHintData: array[TKeymanHint] of TKeymanHintData = (
+ (IsQuestion: False),
+ (IsQuestion: False),
+ (IsQuestion: True),
+ (IsQuestion: False),
+ (IsQuestion: False),
+ (IsQuestion: False)
+ );
+
implementation
+
end.
diff --git a/windows/src/global/delphi/hints/Hints.pas b/windows/src/global/delphi/hints/Hints.pas
index c6f7f17d8cd58115d1515900ced5e945cfc06126..86ca962ad8aacbf96937a3b9d079159c3ce1c699 100644
--- a/windows/src/global/delphi/hints/Hints.pas
+++ b/windows/src/global/delphi/hints/Hints.pas
@@ -33,6 +33,7 @@ procedure EnableAllHints;
procedure ResetAllHints;
function GetHintName(const Hint: TKeymanHint): string;
+function GetHintFromName(const Name: string): TKeymanHint;
implementation
@@ -44,6 +45,17 @@ begin
Result := GetEnumName(TypeInfo(TKeymanHint), Ord(Hint));
end;
+function GetHintFromName(const Name: string): TKeymanHint;
+var
+ v: Integer;
+begin
+ v := GetEnumValue(TypeInfo(TKeymanHint), Name);
+ if v < 0 then
+ Result := KH_NULL
+ else
+ Result := TKeymanHint(v);
+end;
+
function IsHintEnabled(Hint: TKeymanHint): Boolean;
var
HintName: string;
diff --git a/windows/src/global/delphi/hints/UfrmHint.dfm b/windows/src/global/delphi/hints/UfrmHint.dfm
index f6358c1f8a79b402fd6746175e95846fd3fca288..6768057ca37c910242892c29f3a56a7e9a657af8 100644
--- a/windows/src/global/delphi/hints/UfrmHint.dfm
+++ b/windows/src/global/delphi/hints/UfrmHint.dfm
@@ -8,16 +8,4 @@ inherited frmHint: TfrmHint
ExplicitHeight = 379
PixelsPerInch = 96
TextHeight = 13
- inherited web: TKeymanEmbeddedWB
- Width = 645
- Height = 350
- ExplicitWidth = 643
- ExplicitHeight = 348
- ControlData = {
- 4C00000078330000482100000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
end
diff --git a/windows/src/global/delphi/hints/UfrmHint.pas b/windows/src/global/delphi/hints/UfrmHint.pas
index 64da2bee137f34adea2ba36c3aa8cda07aca5113..7b8a41602c36d18d5ef678f0a97e5f9e58104c1f 100644
--- a/windows/src/global/delphi/hints/UfrmHint.pas
+++ b/windows/src/global/delphi/hints/UfrmHint.pas
@@ -24,8 +24,7 @@ interface
uses
System.Contnrs,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, UfrmWebContainer, OleCtrls, SHDocVw, EmbeddedWB, HintConsts,
- SHDocVw_EWB, EwbCore, KeymanEmbeddedWB, UserMessages;
+ Dialogs, UfrmWebContainer, HintConsts, UserMessages;
type
TfrmHint = class(TfrmWebContainer)
diff --git a/windows/src/global/delphi/keyman_components.dpk b/windows/src/global/delphi/keyman_components.dpk
index 490b2634fc59614099a6886350b8392c03e17de4..7a3129185ac527d81174970cfb0a7ede4d1a550f 100644
--- a/windows/src/global/delphi/keyman_components.dpk
+++ b/windows/src/global/delphi/keyman_components.dpk
@@ -1,7 +1,6 @@
package keyman_components;
{$R *.res}
-{$R 'comp\WebBrowserFocusMonitor.dcr'}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
@@ -39,8 +38,7 @@ requires
dbrtl,
dclact,
dclstd,
- xmlrtl,
- EmbeddedWebBrowser_XE;
+ xmlrtl;
contains
extshiftstate in 'comp\extshiftstate.pas',
@@ -59,10 +57,8 @@ contains
PanelOverlapped in 'comp\PanelOverlapped.pas',
StringGridEditControlled in 'comp\StringGridEditControlled.pas',
BitmapEditor in 'comp\BitmapEditor.pas',
- MSHTML_TLB in 'tlb\MSHTML_TLB.pas',
FixedTrackbar in 'comp\FixedTrackbar.pas',
KMDActions in 'comp\KMDActions.pas',
- WebBrowserFocusMonitor in 'comp\WebBrowserFocusMonitor.pas',
CleartypeDrawCharacter in 'general\CleartypeDrawCharacter.pas',
OnScreenKeyboard in 'comp\OnScreenKeyboard.pas',
KMDActionInterfaces in '..\..\developer\TIKE\actions\KMDActionInterfaces.pas',
@@ -70,7 +66,6 @@ contains
exImageList in 'comp\exImageList.pas',
KeymanTextEditorRichEdit in 'comp\KeymanTextEditorRichEdit.pas',
usp10 in 'general\usp10.pas',
- KeymanEmbeddedWB in 'comp\KeymanEmbeddedWB.pas',
ErrorControlledRegistry in 'vcl\ErrorControlledRegistry.pas',
CaptionPanel in 'comp\CaptionPanel.pas',
OnScreenKeyboardData in 'visualkeyboard\OnScreenKeyboardData.pas',
diff --git a/windows/src/global/delphi/keyman_components.dproj b/windows/src/global/delphi/keyman_components.dproj
index 689c85dfc008ccfe79240fd6d0874df83be8d5c0..63bb82dddd1d7411d6c9883ee0759dbd7e928eeb 100644
--- a/windows/src/global/delphi/keyman_components.dproj
+++ b/windows/src/global/delphi/keyman_components.dproj
@@ -79,7 +79,6 @@
RELEASE;$(DCC_Define)