| 836 |
HTMLCreate, ListViewUtils, GikoDataModule; |
HTMLCreate, ListViewUtils, GikoDataModule; |
| 837 |
|
|
| 838 |
const |
const |
|
CAPTION_NAME: string = 'ギコナビ'; |
|
| 839 |
BLANK_HTML: string = 'about:blank'; |
BLANK_HTML: string = 'about:blank'; |
| 840 |
BROWSER_COUNT = 5; //ブラウザの数 |
BROWSER_COUNT = 5; //ブラウザの数 |
| 841 |
//D&D閾値 |
//D&D閾値 |
| 842 |
DandD_THRESHOLD = 5; //D&Dの閾値(pixcel) |
DandD_THRESHOLD = 5; //D&Dの閾値(pixcel) |
| 843 |
//プレビューファイル名 |
//プレビューファイル名 |
| 844 |
HTML_FILE_NAME = 'temp_preview.html'; |
HTML_FILE_NAME = 'temp_preview.html'; |
|
//スレッド絞込みボックス |
|
|
SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索'; |
|
|
SELECTCOMBOBOX_COLOR: TColor = clWindow; |
|
|
//ツールバーアイコン |
|
|
TOOL_ICON_HEIGHT_MAX = 16; //高さ最大アイコン |
|
|
TOOL_ICON_HEIGHT_MIN = 17; //高さ最小アイコン |
|
|
TOOL_ICON_HEIGHT_NORMAL = 18; //高さ標準アイコン |
|
|
TOOL_ICON_WIDTH_MAX = 19; //幅最大アイコン |
|
|
TOOL_ICON_WIDTH_MIN = 20; //幅最小アイコン |
|
|
TOOL_ICON_WIDTH_NORMAL = 21; //幅標準アイコン |
|
| 845 |
ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり) |
ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり) |
| 846 |
ITEM_ICON_THREADLOG2 = 7; //スレアイコン(ログあり) |
ITEM_ICON_THREADLOG2 = 7; //スレアイコン(ログあり) |
|
TOOL_ICON_FAV_FOLDER = 30; //お気に入りフォルダアイコン |
|
|
TOOL_ICON_FAV_BOARD = 31; //お気に入り板アイコン |
|
|
TOOL_ICON_FAV_THREAD = 32; //お気に入りスレアイコン |
|
| 847 |
//メッセージID |
//メッセージID |
| 848 |
USER_TREECLICK = WM_USER + 2000; |
USER_TREECLICK = WM_USER + 2000; |
| 849 |
USER_RESIZED = WM_USER + 2001; |
USER_RESIZED = WM_USER + 2001; |
| 1062 |
case GikoSys.Setting.ListWidthState of |
case GikoSys.Setting.ListWidthState of |
| 1063 |
glsMax: begin |
glsMax: begin |
| 1064 |
ViewPanel.Width := 1; |
ViewPanel.Width := 1; |
| 1065 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL; |
| 1066 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN; |
| 1067 |
end; |
end; |
| 1068 |
glsMin: begin |
glsMin: begin |
| 1069 |
ViewPanel.Width := GikoSys.Setting.ListWidth; |
ViewPanel.Width := GikoSys.Setting.ListWidth; |
| 1070 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX; |
| 1071 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL; |
| 1072 |
end; |
end; |
| 1073 |
else begin |
else begin |
| 1074 |
ViewPanel.Width := GikoSys.Setting.ListWidth; |
ViewPanel.Width := GikoSys.Setting.ListWidth; |
| 1075 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX; |
| 1076 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN; |
| 1077 |
end; |
end; |
| 1078 |
end; |
end; |
| 1079 |
end else begin |
end else begin |
| 1080 |
case GikoSys.Setting.ListHeightState of |
case GikoSys.Setting.ListHeightState of |
| 1081 |
glsMax: begin |
glsMax: begin |
| 1082 |
ViewPanel.Height := 1; |
ViewPanel.Height := 1; |
| 1083 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL; |
| 1084 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN; |
| 1085 |
end; |
end; |
| 1086 |
glsMin: begin |
glsMin: begin |
| 1087 |
ViewPanel.Height := GikoSys.Setting.ListHeight; |
ViewPanel.Height := GikoSys.Setting.ListHeight; |
| 1088 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX; |
| 1089 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL; |
| 1090 |
end; |
end; |
| 1091 |
else begin |
else begin |
| 1092 |
ViewPanel.Height := GikoSys.Setting.ListHeight; |
ViewPanel.Height := GikoSys.Setting.ListHeight; |
| 1093 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX; |
| 1094 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN; |
| 1095 |
end; |
end; |
| 1096 |
end; |
end; |
| 1097 |
end; |
end; |
| 2650 |
FActiveContent := Thread; |
FActiveContent := Thread; |
| 2651 |
|
|
| 2652 |
if not ThreadIsLog then begin |
if not ThreadIsLog then begin |
| 2653 |
Self.Caption := CAPTION_NAME ; |
Self.Caption := GikoDataModule.CAPTION_NAME ; |
| 2654 |
try |
try |
| 2655 |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
| 2656 |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 2661 |
finally |
finally |
| 2662 |
end; |
end; |
| 2663 |
end else begin |
end else begin |
| 2664 |
Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
| 2665 |
//Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき |
//Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき |
| 2666 |
//新規にThreadを開いたときに真になっている。 |
//新規にThreadを開いたときに真になっている。 |
| 2667 |
if Thread.Repaint then begin |
if Thread.Repaint then begin |
| 2742 |
// ListView.Columns.Clear; |
// ListView.Columns.Clear; |
| 2743 |
if (FActiveContent <> nil) and (FActiveContent.Thread <> nil) |
if (FActiveContent <> nil) and (FActiveContent.Thread <> nil) |
| 2744 |
and (FActiveContent.Thread.IsLogFile) then |
and (FActiveContent.Thread.IsLogFile) then |
| 2745 |
Self.Caption := CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']' |
Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']' |
| 2746 |
else |
else |
| 2747 |
Self.Caption := CAPTION_NAME; |
Self.Caption := GikoDataModule.CAPTION_NAME; |
| 2748 |
//Application.Title := CAPTION_NAME; |
//Application.Title := CAPTION_NAME; |
| 2749 |
|
|
| 2750 |
// ActiveListColumnSave; |
// ActiveListColumnSave; |
| 3806 |
idx: Integer; |
idx: Integer; |
| 3807 |
wkIntSt: Integer; |
wkIntSt: Integer; |
| 3808 |
wkIntTo: Integer; |
wkIntTo: Integer; |
|
document: IHTMLDocument2; |
|
| 3809 |
BNum, BRes: string; |
BNum, BRes: string; |
| 3810 |
threadItem: TThreadItem; |
threadItem: TThreadItem; |
| 3811 |
begin |
begin |
| 3893 |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 3894 |
if ViewPanel.Width < 2 then begin |
if ViewPanel.Width < 2 then begin |
| 3895 |
ViewPanel.Width := 1; |
ViewPanel.Width := 1; |
| 3896 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL; |
| 3897 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN; |
| 3898 |
GikoSys.Setting.ListWidthState := glsMax; |
GikoSys.Setting.ListWidthState := glsMax; |
| 3899 |
end else if ViewPanel.Width > (ThreadMainPanel.Width - 80) then begin |
end else if ViewPanel.Width > (ThreadMainPanel.Width - 80) then begin |
| 3900 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX; |
| 3901 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_NORMAL; |
| 3902 |
GikoSys.Setting.ListWidthState := glsMin; |
GikoSys.Setting.ListWidthState := glsMin; |
| 3903 |
end else begin |
end else begin |
| 3904 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MAX; |
| 3905 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_WIDTH_MIN; |
| 3906 |
GikoSys.Setting.ListWidthState := glsNormal; |
GikoSys.Setting.ListWidthState := glsNormal; |
| 3907 |
end; |
end; |
| 3908 |
end else begin |
end else begin |
| 3909 |
if ViewPanel.Height < 2 then begin |
if ViewPanel.Height < 2 then begin |
| 3910 |
ViewPanel.Height := 1; |
ViewPanel.Height := 1; |
| 3911 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL; |
| 3912 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN; |
| 3913 |
GikoSys.Setting.ListHeightState := glsMax; |
GikoSys.Setting.ListHeightState := glsMax; |
| 3914 |
end else if ViewPanel.Height > (ThreadMainPanel.Height - BrowserCoolBar.Height - 7) then begin |
end else if ViewPanel.Height > (ThreadMainPanel.Height - BrowserCoolBar.Height - 7) then begin |
| 3915 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX; |
| 3916 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_NORMAL; |
| 3917 |
GikoSys.Setting.ListHeightState := glsMin; |
GikoSys.Setting.ListHeightState := glsMin; |
| 3918 |
end else begin |
end else begin |
| 3919 |
GikoDM.BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX; |
GikoDM.BrowserMaxAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MAX; |
| 3920 |
GikoDM.BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN; |
GikoDM.BrowserMinAction.ImageIndex := GikoDataModule.TOOL_ICON_HEIGHT_MIN; |
| 3921 |
GikoSys.Setting.ListHeightState := glsNormal; |
GikoSys.Setting.ListHeightState := glsNormal; |
| 3922 |
end; |
end; |
| 3923 |
end; |
end; |
| 4356 |
MenuItem.Add(NewMenu); |
MenuItem.Add(NewMenu); |
| 4357 |
|
|
| 4358 |
if TObject(Node.Item[i].Data) is TFavoriteFolder then begin |
if TObject(Node.Item[i].Data) is TFavoriteFolder then begin |
| 4359 |
NewMenu.ImageIndex := TOOL_ICON_FAV_FOLDER; |
NewMenu.ImageIndex := GikoDataModule.TOOL_ICON_FAV_FOLDER; |
| 4360 |
CreateFavMenu(Node.Item[i], NewMenu); |
CreateFavMenu(Node.Item[i], NewMenu); |
| 4361 |
end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin |
end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin |
| 4362 |
NewMenu.ImageIndex := TOOL_ICON_FAV_BOARD; |
NewMenu.ImageIndex := GikoDataModule.TOOL_ICON_FAV_BOARD; |
| 4363 |
NewMenu.OnClick := FavoriteClick; |
NewMenu.OnClick := FavoriteClick; |
| 4364 |
end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin |
end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin |
| 4365 |
NewMenu.ImageIndex := TOOL_ICON_FAV_THREAD; |
NewMenu.ImageIndex := GikoDataModule.TOOL_ICON_FAV_THREAD; |
| 4366 |
NewMenu.OnClick := FavoriteClick; |
NewMenu.OnClick := FavoriteClick; |
| 4367 |
end; |
end; |
| 4368 |
end; |
end; |
| 5084 |
CreateFavMenu(FavoriteTreeView.Items[i].Item[j], MenuItem); |
CreateFavMenu(FavoriteTreeView.Items[i].Item[j], MenuItem); |
| 5085 |
LinkBarPopupMenu.Items.Add(MenuItem); |
LinkBarPopupMenu.Items.Add(MenuItem); |
| 5086 |
ToolButton.MenuItem := MenuItem; |
ToolButton.MenuItem := MenuItem; |
| 5087 |
ToolButton.ImageIndex := TOOL_ICON_FAV_FOLDER; |
ToolButton.ImageIndex := GikoDataModule.TOOL_ICON_FAV_FOLDER; |
| 5088 |
end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteBoardItem then begin |
end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteBoardItem then begin |
| 5089 |
ToolButton.ImageIndex := TOOL_ICON_FAV_BOARD; |
ToolButton.ImageIndex := GikoDataModule.TOOL_ICON_FAV_BOARD; |
| 5090 |
ToolButton.OnClick := FavoriteClick; |
ToolButton.OnClick := FavoriteClick; |
| 5091 |
end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteThreadItem then begin |
end else if TObject(FavoriteTreeView.Items[i].Item[j].Data) is TFavoriteThreadItem then begin |
| 5092 |
ToolButton.ImageIndex := TOOL_ICON_FAV_THREAD; |
ToolButton.ImageIndex := GikoDataModule.TOOL_ICON_FAV_THREAD; |
| 5093 |
ToolButton.OnClick := FavoriteClick; |
ToolButton.OnClick := FavoriteClick; |
| 5094 |
end; |
end; |
| 5095 |
ToolButton.Caption := FavoriteTreeView.Items[i].Item[j].Text; |
ToolButton.Caption := FavoriteTreeView.Items[i].Item[j].Text; |
| 5800 |
|
|
| 5801 |
if Length( SelectComboBox.Text ) = 0 then |
if Length( SelectComboBox.Text ) = 0 then |
| 5802 |
begin |
begin |
| 5803 |
SelectComboBox.Text := SELECTCOMBOBOX_NAME; |
SelectComboBox.Text := GikoDataModule.SELECTCOMBOBOX_NAME; |
| 5804 |
SelectComboBox.Color := SELECTCOMBOBOX_COLOR; |
SelectComboBox.Color := GikoDataModule.SELECTCOMBOBOX_COLOR; |
| 5805 |
end; |
end; |
| 5806 |
|
|
| 5807 |
end; |
end; |
| 5903 |
begin |
begin |
| 5904 |
|
|
| 5905 |
if (Length( SelectComboBox.Text ) = 0) or |
if (Length( SelectComboBox.Text ) = 0) or |
| 5906 |
(SelectComboBox.Text = SELECTCOMBOBOX_NAME) then |
(SelectComboBox.Text = GikoDataModule.SELECTCOMBOBOX_NAME) then |
| 5907 |
begin |
begin |
| 5908 |
SelectComboBox.Text := ''; |
SelectComboBox.Text := ''; |
| 5909 |
SelectComboBox.Color := clWindow; |
SelectComboBox.Color := clWindow; |