| 1090 |
//アドレス履歴読み込み |
//アドレス履歴読み込み |
| 1091 |
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
| 1092 |
|
|
| 1093 |
|
// 外部板プラグインをロード(ReadBoardFile より先に行うこと) |
| 1094 |
|
InitializeBoardPlugIns; |
| 1095 |
|
|
| 1096 |
EnabledCloseButton := True; |
EnabledCloseButton := True; |
| 1097 |
BoardGroup.BBS2ch.ReadBoardFile; //ボードファイル読込 |
BoardGroup.BBS2ch.ReadBoardFile; //ボードファイル読込 |
| 1098 |
// SetBoardTreeNode; //ツリーにボード追加 |
// SetBoardTreeNode; //ツリーにボード追加 |
| 1413 |
StatusBar.Panels[2].Text := s; |
StatusBar.Panels[2].Text := s; |
| 1414 |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
| 1415 |
StatusBarResize(Sender); |
StatusBarResize(Sender); |
|
|
|
|
// 外部板プラグインをロード |
|
|
InitializeBoardPlugIns; |
|
| 1416 |
end; |
end; |
| 1417 |
|
|
| 1418 |
// |
// |
| 5915 |
i, bound : Integer; |
i, bound : Integer; |
| 5916 |
begin |
begin |
| 5917 |
|
|
| 5918 |
|
//===== プラグイン |
| 5919 |
try |
try |
| 5920 |
bound := High( BoardPlugIns ); |
bound := High( BoardPlugIns ); |
| 5921 |
for i := Low( BoardPlugIns ) to bound do begin |
for i := Low( BoardPlugIns ) to bound do begin |
| 5925 |
Board := TBoard.Create; |
Board := TBoard.Create; |
| 5926 |
Board.Insert( 0, ThreadItem ); |
Board.Insert( 0, ThreadItem ); |
| 5927 |
InsertBrowserTab( ThreadItem ); |
InsertBrowserTab( ThreadItem ); |
| 5928 |
DownloadContent( ThreadItem ); |
if not ThreadItem.IsLogFile then |
| 5929 |
|
DownloadContent( ThreadItem ); |
| 5930 |
|
|
| 5931 |
Exit; |
Exit; |
| 5932 |
end; |
end; |
| 7561 |
msg : String; |
msg : String; |
| 7562 |
CurItem : TTreeNode; |
CurItem : TTreeNode; |
| 7563 |
next : boolean; |
next : boolean; |
|
position : Integer; |
|
| 7564 |
begin |
begin |
| 7565 |
if InputQuery('板名検索','板名の入力',s) then begin |
if InputQuery('板名検索','板名の入力',s) then begin |
| 7566 |
next := true; |
next := true; |
| 7669 |
Node.ImageIndex := 15; |
Node.ImageIndex := 15; |
| 7670 |
Node.SelectedIndex := 15; |
Node.SelectedIndex := 15; |
| 7671 |
end else if Source is TFavoriteBoardItem then begin |
end else if Source is TFavoriteBoardItem then begin |
| 7672 |
|
FavoBoardItem := TFavoriteBoardItem( Source ); |
| 7673 |
|
Board := BBS2ch.FindBBSID( FavoBoardItem.BBSID ); |
| 7674 |
|
if Board <> nil then |
| 7675 |
|
if not Board.IsThreadDatRead then |
| 7676 |
|
GikoSys.ReadSubjectFile(Board); |
| 7677 |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source); |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source); |
| 7678 |
Node.ImageIndex := 15; |
Node.ImageIndex := 15; |
| 7679 |
Node.SelectedIndex := 15; |
Node.SelectedIndex := 15; |
| 7687 |
Node.ImageIndex := 16; |
Node.ImageIndex := 16; |
| 7688 |
Node.SelectedIndex := 16; |
Node.SelectedIndex := 16; |
| 7689 |
end else if Source is TFavoriteThreadItem then begin |
end else if Source is TFavoriteThreadItem then begin |
| 7690 |
|
FavoThreadItem := TFavoriteThreadItem( Source ); |
| 7691 |
|
Board := BBS2ch.FindBBSID( FavoThreadItem.BBSID ); |
| 7692 |
|
if Board <> nil then |
| 7693 |
|
if not Board.IsThreadDatRead then |
| 7694 |
|
GikoSys.ReadSubjectFile(Board); |
| 7695 |
|
ThreadItem := BBS2ch.FindThreadItem( FavoThreadItem.BBSID, FavoThreadItem.ThreadID ); |
| 7696 |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source); |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source); |
| 7697 |
Node.ImageIndex := 16; |
Node.ImageIndex := 16; |
| 7698 |
Node.SelectedIndex := 16; |
Node.SelectedIndex := 16; |
| 7998 |
end; |
end; |
| 7999 |
|
|
| 8000 |
procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject); |
|
var |
|
|
ThreadItem: TThreadItem; |
|
|
FavThread: TFavoriteThreadItem; |
|
|
Board: TBoard; |
|
|
APoint: TPoint; |
|
|
HitTest: THitTests; |
|
| 8001 |
begin |
begin |
| 8002 |
|
|
| 8003 |
FClickNode := FavoriteTreeView.Selected; |
FClickNode := FavoriteTreeView.Selected; |