| 422 |
N82: TMenuItem; |
N82: TMenuItem; |
| 423 |
IDNG1: TMenuItem; |
IDNG1: TMenuItem; |
| 424 |
IDNG2: TMenuItem; |
IDNG2: TMenuItem; |
| 425 |
|
ResPopupClearTimer: TTimer; |
| 426 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 427 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 428 |
procedure BrowserStatusTextChange(Sender: TObject; |
procedure BrowserStatusTextChange(Sender: TObject; |
| 559 |
procedure GetResURLMenuClick(Sender: TObject); |
procedure GetResURLMenuClick(Sender: TObject); |
| 560 |
procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint; |
procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint; |
| 561 |
var Handled: Boolean); |
var Handled: Boolean); |
| 562 |
|
procedure ResPopupClearTimerTimer(Sender: TObject); |
| 563 |
private |
private |
| 564 |
{ Private 宣言 } |
{ Private 宣言 } |
| 565 |
FEnabledCloseButton: Boolean; |
FEnabledCloseButton: Boolean; |
| 1956 |
if FResPopupBrowser <> nil then begin |
if FResPopupBrowser <> nil then begin |
| 1957 |
if not(Sender is TResPopupBrowser) then begin |
if not(Sender is TResPopupBrowser) then begin |
| 1958 |
if (FResPopupBrowser.Visible) then begin |
if (FResPopupBrowser.Visible) then begin |
| 1959 |
FResPopupBrowser.Clear; |
ResPopupClearTimer.Enabled := True; |
| 1960 |
|
ResPopupClearTimer.Tag := 0; |
| 1961 |
end; |
end; |
| 1962 |
end else begin |
end else begin |
| 1963 |
TResPopupBrowser(Sender).ChildClear; |
ResPopupClearTimer.Enabled := True; |
| 1964 |
|
ResPopupClearTimer.Tag := 1; |
| 1965 |
end; |
end; |
| 1966 |
end; |
end; |
| 1967 |
cResPopup := nil; |
cResPopup := nil; |
| 1999 |
e := IHTMLDocument2(TWebBrowser(Sender).Document).elementFromPoint(p.x, p.y); |
e := IHTMLDocument2(TWebBrowser(Sender).Document).elementFromPoint(p.x, p.y); |
| 2000 |
if (Assigned(e)) then begin |
if (Assigned(e)) then begin |
| 2001 |
CreateResPopupBrowser; |
CreateResPopupBrowser; |
| 2002 |
|
|
| 2003 |
|
if not(Sender is TResPopupBrowser) then begin |
| 2004 |
|
if (FResPopupBrowser.Visible) then begin |
| 2005 |
|
FResPopupBrowser.Clear; |
| 2006 |
|
end; |
| 2007 |
|
end else begin |
| 2008 |
|
TResPopupBrowser(Sender).ChildClear; |
| 2009 |
|
end; |
| 2010 |
|
|
| 2011 |
cResPopup := FResPopupBrowser.CreateNewBrowser; |
cResPopup := FResPopupBrowser.CreateNewBrowser; |
| 2012 |
tmp2 := ZenToHan(e.Get_outerText); |
tmp2 := ZenToHan(e.Get_outerText); |
| 2013 |
if (GikoSys.IsNumeric(tmp2)) then begin |
if (GikoSys.IsNumeric(tmp2)) then begin |
| 2075 |
wkIntTo := 1; |
wkIntTo := 1; |
| 2076 |
end; |
end; |
| 2077 |
CreateResPopupBrowser; |
CreateResPopupBrowser; |
| 2078 |
|
|
| 2079 |
|
if not(Sender is TResPopupBrowser) then begin |
| 2080 |
|
if (FResPopupBrowser.Visible) then begin |
| 2081 |
|
FResPopupBrowser.Clear; |
| 2082 |
|
end; |
| 2083 |
|
end else begin |
| 2084 |
|
TResPopupBrowser(Sender).ChildClear; |
| 2085 |
|
end; |
| 2086 |
|
|
| 2087 |
cResPopup := FResPopupBrowser.CreateNewBrowser; |
cResPopup := FResPopupBrowser.CreateNewBrowser; |
| 2088 |
cResPopup.PopupType := gptThread; |
cResPopup.PopupType := gptThread; |
| 2089 |
HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
| 2091 |
end; |
end; |
| 2092 |
end; |
end; |
| 2093 |
if (cResPopup <> nil) then begin |
if (cResPopup <> nil) then begin |
| 2094 |
|
ResPopupClearTimer.Enabled := False; |
| 2095 |
|
|
| 2096 |
if cResPopup.PopupType = gptRaw then begin |
if cResPopup.PopupType = gptRaw then begin |
| 2097 |
if cResPopup.Title <> '' then begin |
if cResPopup.Title <> '' then begin |
| 2098 |
cResPopup.TitlePopup; |
cResPopup.TitlePopup; |
| 7776 |
end; |
end; |
| 7777 |
end; |
end; |
| 7778 |
|
|
| 7779 |
|
procedure TGikoForm.ResPopupClearTimerTimer(Sender: TObject); |
| 7780 |
|
begin |
| 7781 |
|
ResPopupClearTimer.Enabled := False; |
| 7782 |
|
if ResPopupClearTimer.Tag = 0 then begin |
| 7783 |
|
FResPopupBrowser.Clear; |
| 7784 |
|
end else begin |
| 7785 |
|
FResPopupBrowser.CurrentBrowser.ChildClear; |
| 7786 |
|
end; |
| 7787 |
|
end; |
| 7788 |
|
|
| 7789 |
initialization |
initialization |
| 7790 |
OleInitialize(nil); |
OleInitialize(nil); |
| 7791 |
finalization |
finalization |