Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ResPopupBrowser.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by h677, Wed Aug 22 15:04:23 2007 UTC revision 1.5 by h677, Sun Aug 26 13:00:41 2007 UTC
# Line 29  type Line 29  type
29          function GetTitle(OnlyTitle: Boolean): string;          function GetTitle(OnlyTitle: Boolean): string;
30                  function CalcRect(WorkArea: TRect; Scroll: Boolean): TRect;                  function CalcRect(WorkArea: TRect; Scroll: Boolean): TRect;
31          function ResPopupBrowserClick(Sender: TObject): WordBool;          function ResPopupBrowserClick(Sender: TObject): WordBool;
32            function ResPopupBrowserDbClick(Sender: TObject): WordBool;
33          function GetThread: TThreadItem;          function GetThread: TThreadItem;
34          protected          protected
35                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
# Line 185  begin Line 186  begin
186          FDispHtmlDocument := Idispatch(OleVariant(Self.ControlInterface).Document) as DispHTMLDocument;          FDispHtmlDocument := Idispatch(OleVariant(Self.ControlInterface).Document) as DispHTMLDocument;
187          FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2);          FEvent := THTMLDocumentEventSink.Create(Self, FDispHtmlDocument, HTMLDocumentEvents2);
188          FEvent.OnClick := ResPopupBrowserClick;          FEvent.OnClick := ResPopupBrowserClick;
189            FEvent.OnDoubleClick := ResPopupBrowserDbClick;
190          Self.Visible := True;          Self.Visible := True;
191          SetWindowPos(Self.Handle, HWND_TOPMOST,          SetWindowPos(Self.Handle, HWND_TOPMOST,
192              ARect.Left, ARect.Top,              ARect.Left, ARect.Top,
# Line 443  begin Line 444  begin
444      FOleInPlaceActiveObject := Self.ControlInterface as IOleInPlaceActiveObject;      FOleInPlaceActiveObject := Self.ControlInterface as IOleInPlaceActiveObject;
445      FOleInPlaceActiveObject.OnFrameWindowActivate(False);      FOleInPlaceActiveObject.OnFrameWindowActivate(False);
446  end;  end;
447    function TResPopupBrowser.ResPopupBrowserDbClick(Sender: TObject): WordBool;
448    begin
449        // ギコナビのフォーカスを奪ってるのでフォームに無理やり返す
450        Blur;
451        // 自分で自分は消せないので、メッセージ経由で消してもらう
452        PostMessage( GikoForm.Handle , USER_RESPOPUPCLEAR, Integer( Self ), 0 );
453        Result := True;
454    end;
455  initialization  initialization
456      OleInitialize(nil);      OleInitialize(nil);
457    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26