| 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; |
| 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, |
| 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 |
|
|