| 19 |
HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager, |
HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager, |
| 20 |
ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection, |
ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection, |
| 21 |
IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem, |
IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem, |
| 22 |
ShellAPI,Preview, HistoryList; |
ShellAPI,Preview, HistoryList, ResPopupBrowser; |
| 23 |
|
|
| 24 |
const |
const |
| 25 |
NGWORDNAME_PANEL = 3; |
NGWORDNAME_PANEL = 3; |
| 604 |
FOrigenCaption: String; //お気に入りツリーのアイテム編集時の編集前の文字列 |
FOrigenCaption: String; //お気に入りツリーのアイテム編集時の編集前の文字列 |
| 605 |
FPreviewBrowserRect: TRect; ///< プレビューの表示位置を記憶する |
FPreviewBrowserRect: TRect; ///< プレビューの表示位置を記憶する |
| 606 |
FActionListGroupIndexes: array of Integer; ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列 |
FActionListGroupIndexes: array of Integer; ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列 |
| 607 |
|
FResPopupBrowser: TResPopupBrowser; |
| 608 |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
| 609 |
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
| 610 |
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
| 910 |
//これ以後Set〜で再設定するまで、ActionのCheckedをいじるときは注意! |
//これ以後Set〜で再設定するまで、ActionのCheckedをいじるときは注意! |
| 911 |
GetGroupIndex(GikoDM.GikoFormActionList); |
GetGroupIndex(GikoDM.GikoFormActionList); |
| 912 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 913 |
|
FResPopupBrowser := nil; |
| 914 |
CreateBrowsers(BROWSER_COUNT); |
CreateBrowsers(BROWSER_COUNT); |
| 915 |
FIconData.uID := 0; |
FIconData.uID := 0; |
| 916 |
|
|
| 917 |
//メニューフォント |
//メニューフォント |
| 918 |
SetMenuFont; |
SetMenuFont; |
| 919 |
|
|
| 1904 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 1905 |
Writeln('Status Text is not changed!'); |
Writeln('Status Text is not changed!'); |
| 1906 |
{$ENDIF} |
{$ENDIF} |
| 1907 |
|
if Text2 = '' then begin |
| 1908 |
|
if FResPopupBrowser <> nil then begin |
| 1909 |
|
if not(Sender is TResPopupBrowser) then |
| 1910 |
|
FResPopupBrowser.Clear |
| 1911 |
|
else begin |
| 1912 |
|
TResPopupBrowser(Sender).ChildClear; |
| 1913 |
|
end; |
| 1914 |
|
end; |
| 1915 |
|
end; |
| 1916 |
Exit; |
Exit; |
| 1917 |
end; |
end; |
| 1918 |
StatusBar.Panels[1].Text := Text2; |
StatusBar.Panels[1].Text := Text2; |
| 1919 |
|
|
| 1920 |
if FHint <> nil then begin |
if FHint <> nil then begin |
| 1921 |
FHint.ReleaseHandle; |
FHint.ReleaseHandle; |
| 1922 |
FHint.ClearAllRes; |
FHint.ClearAllRes; |
| 1923 |
end; |
end; |
| 1924 |
|
|
| 1925 |
if FPreviewBrowser <> nil then |
if FPreviewBrowser <> nil then |
| 1926 |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
| 1927 |
|
|
| 1928 |
|
if FResPopupBrowser <> nil then begin |
| 1929 |
|
if not(Sender is TResPopupBrowser) then |
| 1930 |
|
FResPopupBrowser.Clear |
| 1931 |
|
else begin |
| 1932 |
|
TResPopupBrowser(Sender).ChildClear; |
| 1933 |
|
end; |
| 1934 |
|
end; |
| 1935 |
|
|
| 1936 |
if not GikoSys.Setting.UnActivePopup then |
if not GikoSys.Setting.UnActivePopup then |
| 1937 |
if not GikoForm.Active then |
if not GikoForm.Active then |
| 1938 |
Exit; |
Exit; |
| 1971 |
wkIntTo := StrToInt64(tmp2); |
wkIntTo := StrToInt64(tmp2); |
| 1972 |
//s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False); |
//s := GetThreadText(wkBBS, wkKey, wkIntSt, wkIntTo, False, False); |
| 1973 |
FHint.PopupType := gptThread; |
FHint.PopupType := gptThread; |
| 1974 |
HTMLCreater.SetResPopupText(FHint, GetActiveContent, wkIntSt, wkIntTo, False, False); |
if (FResPopupBrowser = nil) then begin |
| 1975 |
|
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
| 1976 |
|
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
| 1977 |
|
end; |
| 1978 |
|
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, GetActiveContent, wkIntSt, wkIntTo, False, False); |
| 1979 |
end else begin |
end else begin |
| 1980 |
FHint.PopupType := gptRaw; |
FHint.PopupType := gptRaw; |
| 1981 |
FHint.Caption := s; |
FHint.Caption := s; |
| 2035 |
wkIntTo := 1; |
wkIntTo := 1; |
| 2036 |
end; |
end; |
| 2037 |
FHint.PopupType := gptThread; |
FHint.PopupType := gptThread; |
| 2038 |
HTMLCreater.SetResPopupText(FHint, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
if (FResPopupBrowser = nil) then begin |
| 2039 |
|
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
| 2040 |
|
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
| 2041 |
|
end; |
| 2042 |
|
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
| 2043 |
end; |
end; |
| 2044 |
end; |
end; |
| 2045 |
end; |
end; |
| 4786 |
var |
var |
| 4787 |
Pos : TPoint; |
Pos : TPoint; |
| 4788 |
begin |
begin |
| 4789 |
|
if (FHint <> nil) and (IsWindowVisible(FHint.Handle)) then begin |
| 4790 |
|
FHint.ReleaseHandle; |
| 4791 |
|
FHint.ClearAllRes; |
| 4792 |
|
end; |
| 4793 |
if PreviewTimer.Enabled then |
if PreviewTimer.Enabled then |
| 4794 |
PreviewTimer.Enabled := False; |
PreviewTimer.Enabled := False; |
| 4795 |
if (FHint <> nil) and (IsWindowVisible(FHint.Handle)) then begin |
if (FResPopupBrowser <> nil) and (IsWindowVisible(FResPopupBrowser.Handle)) then begin |
| 4796 |
FHint.ReleaseHandle; |
FResPopupBrowser.Clear; |
|
FHint.ClearAllRes; |
|
| 4797 |
end; |
end; |
| 4798 |
|
|
| 4799 |
if (FPreviewBrowser <> nil) |
if (FPreviewBrowser <> nil) |
| 4839 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 4840 |
if ThreadItem <> nil then begin |
if ThreadItem <> nil then begin |
| 4841 |
Num := StrToInt64(s); |
Num := StrToInt64(s); |
| 4842 |
FHint.PopupType := gptThread; |
//FHint.PopupType := gptThread; |
| 4843 |
HTMLCreater.SetResPopupText(FHint, ThreadItem, Num, Num, False, False); |
if (FResPopupBrowser = nil) then begin |
| 4844 |
if FHint.ResCount <> 0 then |
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
| 4845 |
ShowTextPopup; |
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
| 4846 |
|
end; |
| 4847 |
|
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, ThreadItem, Num, Num, False, False); |
| 4848 |
|
//if FHint.ResCount <> 0 then |
| 4849 |
|
// ShowTextPopup; |
| 4850 |
Result := False; |
Result := False; |
| 4851 |
end else |
end else |
| 4852 |
Result := True; |
Result := True; |
| 7334 |
BrowserNullTab := TBrowserRecord.Create; |
BrowserNullTab := TBrowserRecord.Create; |
| 7335 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
| 7336 |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
| 7337 |
|
|
| 7338 |
FBrowsers := TList.Create; |
FBrowsers := TList.Create; |
| 7339 |
for i := 0 to count -1 do begin |
for i := 0 to count -1 do begin |
| 7340 |
FBrowsers.Add(TWebBrowser.Create(BrowserPanel)); |
FBrowsers.Add(TWebBrowser.Create(BrowserPanel)); |
| 7354 |
end; |
end; |
| 7355 |
BrowserNullTab.Browser.BringToFront; |
BrowserNullTab.Browser.BringToFront; |
| 7356 |
ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW); |
ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW); |
| 7357 |
|
|
| 7358 |
//起動時にタブ自動復元を入れていると、空ページ用のBrowserの |
//起動時にタブ自動復元を入れていると、空ページ用のBrowserの |
| 7359 |
//描画が終わっていなくて、クリックイベントの設定等に突入するので |
//描画が終わっていなくて、クリックイベントの設定等に突入するので |
| 7360 |
//ここで終わらせておく |
//ここで終わらせておく |