| 725 |
procedure ShowBBSTree( inBBS : TBBS ); |
procedure ShowBBSTree( inBBS : TBBS ); |
| 726 |
procedure ShowBBSTreeOld( inBBS : TBBS ); |
procedure ShowBBSTreeOld( inBBS : TBBS ); |
| 727 |
procedure ShowHistoryTree; |
procedure ShowHistoryTree; |
|
procedure SetHistoryTreeNode; |
|
| 728 |
procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon); |
procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon); |
| 729 |
procedure SetBrowserTabState; |
procedure SetBrowserTabState; |
| 730 |
procedure SetToolBarPopup; |
procedure SetToolBarPopup; |
| 847 |
DandD_THRESHOLD = 5; //D&Dの閾値(pixcel) |
DandD_THRESHOLD = 5; //D&Dの閾値(pixcel) |
| 848 |
//プレビューファイル名 |
//プレビューファイル名 |
| 849 |
HTML_FILE_NAME = 'temp_preview.html'; |
HTML_FILE_NAME = 'temp_preview.html'; |
|
ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり) |
|
|
ITEM_ICON_THREADLOG2 = 7; //スレアイコン(ログあり) |
|
| 850 |
//メッセージID |
//メッセージID |
| 851 |
USER_TREECLICK = WM_USER + 2000; |
USER_TREECLICK = WM_USER + 2000; |
| 852 |
USER_RESIZED = WM_USER + 2001; |
USER_RESIZED = WM_USER + 2001; |
| 3179 |
FTreeType := gttHistory; |
FTreeType := gttHistory; |
| 3180 |
HistoryToolBar.Show; |
HistoryToolBar.Show; |
| 3181 |
FavoriteToolBar.Hide; |
FavoriteToolBar.Hide; |
| 3182 |
SetHistoryTreeNode; |
FHistoryList.SetTreeNode( TreeView ); |
| 3183 |
CabinetSelectToolButton.Caption := '履歴リスト'; |
CabinetSelectToolButton.Caption := '履歴リスト'; |
| 3184 |
end; |
end; |
| 3185 |
end; |
end; |
| 3186 |
|
|
|
procedure TGikoForm.SetHistoryTreeNode; |
|
|
var |
|
|
i: Integer; |
|
|
Node: TTreeNode; |
|
|
Item: TFavoriteThreadItem; |
|
|
begin |
|
|
TreeView.Items.BeginUpdate; |
|
|
try |
|
|
TreeView.Items.Clear; |
|
|
for i := 0 to FHistoryList.Count - 1 do begin |
|
|
Item := TFavoriteThreadItem(FHistoryList[i]); |
|
|
Node := TreeView.Items.Add(nil, Item.Title); |
|
|
{ |
|
|
if Item.Item.NewArrival then begin |
|
|
Node.ImageIndex := ITEM_ICON_THREADNEW1; |
|
|
Node.SelectedIndex := ITEM_ICON_THREADNEW2; |
|
|
end else begin |
|
|
Node.ImageIndex := ITEM_ICON_THREADLOG1; |
|
|
Node.SelectedIndex := ITEM_ICON_THREADLOG2; |
|
|
end; |
|
|
} |
|
|
// 負荷をかけたくないので NewArrival のチェックを行わない |
|
|
// ※Item.Item プロパティは dat の読み込みを必要とする |
|
|
Node.ImageIndex := ITEM_ICON_THREADLOG1; |
|
|
Node.SelectedIndex := ITEM_ICON_THREADLOG2; |
|
|
Node.Data := Item; |
|
|
end; |
|
|
finally |
|
|
TreeView.Items.EndUpdate; |
|
|
end; |
|
|
end; |
|
|
|
|
| 3187 |
procedure TGikoForm.SelectTreeNode(Item: TObject; CallEvent: Boolean); |
procedure TGikoForm.SelectTreeNode(Item: TObject; CallEvent: Boolean); |
| 3188 |
var |
var |
| 3189 |
ChangeEvent: TTVChangedEvent; |
ChangeEvent: TTVChangedEvent; |