This commit was manufactured by cvs2svn to create tag 'v1_63_0_816'.

[gikonavigoeson/gikonavi.git] / HTMLDocumentEvent.pas

diff --git a/HTMLDocumentEvent.pas b/HTMLDocumentEvent.pas
index 596a33a..20f65fb 100644 (file)
--- a/HTMLDocumentEvent.pas
+++ b/HTMLDocumentEvent.pas
@@ -18,6 +18,7 @@ type
                FOnClick: TDocumentContextMenuEvent;
                FOnMouseMove: TDocumentContextMenuEvent;
                FOnMouseDown: TDocumentContextMenuEvent;
+               FOnDoubleClick: TDocumentContextMenuEvent;
        protected
                { IUnknown }
                function QueryInterface(const IID:TGUID; out Obj): HRESULT; stdcall;
@@ -37,6 +38,7 @@ type
                property OnClick: TDocumentContextMenuEvent read FOnClick write FOnClick;
                property OnMouseMove: TDocumentContextMenuEvent read FOnMouseMove write FOnMouseMove;
                property OnMouseDown: TDocumentContextMenuEvent read FOnMouseDown write FOnMouseDown;
+               property OnDoubleClick: TDocumentContextMenuEvent read FOnDoubleClick write FOnDoubleClick;
        end;
 
 implementation
@@ -100,6 +102,10 @@ begin
                if Assigned(FOnClick) then begin
                        PVariant(VarResult)^ := FOnClick(FOwner);
                end;
+       DISPID_DBLCLICK:
+               if Assigned(FOnDoubleClick) then begin
+                       PVariant(VarResult)^ := FOnDoubleClick(FOwner);
+               end;
        1023:
                if Assigned(FOnContextMenu) then begin
                        PVariant(VarResult)^ := FOnContextMenu(FOwner);