| 1007 |
BLANK_HTML: string = 'about:blank'; |
BLANK_HTML: string = 'about:blank'; |
| 1008 |
SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索'; |
SELECTCOMBOBOX_NAME: string = ''; // 'スレッド絞込検索'; |
| 1009 |
SELECTCOMBOBOX_COLOR: TColor = clWindow; |
SELECTCOMBOBOX_COLOR: TColor = clWindow; |
| 1010 |
//D&D閾値 |
//D&D閾値 |
| 1011 |
DandD_THRESHOLD = 5; //D&Dの閾値(pixcel) |
DandD_THRESHOLD = 5; //D&Dの閾値(pixcel) |
| 1012 |
//ツリー・リストアイコン |
//ツリー・リストアイコン |
| 1013 |
ITEM_ICON_2CH1 = 0; //2chアイコン |
ITEM_ICON_2CH1 = 0; //2chアイコン |
| 1014 |
ITEM_ICON_2CH2 = 1; //2chアイコン |
ITEM_ICON_2CH2 = 1; //2chアイコン |
| 1015 |
ITEM_ICON_CATEGORY1 = 2; //カテゴリアイコン |
ITEM_ICON_CATEGORY1 = 2; //カテゴリアイコン |
| 1016 |
ITEM_ICON_CATEGORY2 = 3; //カテゴリアイコン |
ITEM_ICON_CATEGORY2 = 3; //カテゴリアイコン |
| 1017 |
|
ITEM_ICON_BOARD_NOSUBJECT = 3; //読み込まれていない板アイコン |
| 1018 |
ITEM_ICON_BOARD1 = 4; //板アイコン |
ITEM_ICON_BOARD1 = 4; //板アイコン |
| 1019 |
ITEM_ICON_BOARD2 = 5; //板アイコン |
ITEM_ICON_BOARD2 = 5; //板アイコン |
| 1020 |
ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり) |
ITEM_ICON_THREADLOG1 = 6; //スレアイコン(ログあり) |
| 1025 |
ITEM_ICON_THREADNEW2 = 11; //スレアイコン(新着) |
ITEM_ICON_THREADNEW2 = 11; //スレアイコン(新着) |
| 1026 |
ITEM_ICON_SORT1 = 12; //ソートアイコン |
ITEM_ICON_SORT1 = 12; //ソートアイコン |
| 1027 |
ITEM_ICON_SORT2 = 13; //ソートアイコン |
ITEM_ICON_SORT2 = 13; //ソートアイコン |
| 1028 |
|
ITEM_ICON_BOARD_LOG = 17; //スレログあり板アイコン |
| 1029 |
|
ITEM_ICON_BOARD_NEW = 18; //スレ新着板アイコン |
| 1030 |
|
|
| 1031 |
//ツールバーアイコン |
//ツールバーアイコン |
| 1032 |
TOOL_ICON_HEIGHT_MAX = 16; //高さ最大アイコン |
TOOL_ICON_HEIGHT_MAX = 16; //高さ最大アイコン |
| 1815 |
//ボードツリー設定 |
//ボードツリー設定 |
| 1816 |
procedure TGikoForm.SetBoardTreeNode; |
procedure TGikoForm.SetBoardTreeNode; |
| 1817 |
var |
var |
| 1818 |
i, j: integer; |
i, j, k: integer; |
| 1819 |
Root: TTreeNode; |
Root: TTreeNode; |
| 1820 |
CategoryNode: TTreeNode; |
CategoryNode: TTreeNode; |
| 1821 |
BoardNode: TTreeNode; |
BoardNode: TTreeNode; |
| 1853 |
Board.BeginUpdate; |
Board.BeginUpdate; |
| 1854 |
BoardNode := TreeView.Items.AddChild(CategoryNode, Board.Title); |
BoardNode := TreeView.Items.AddChild(CategoryNode, Board.Title); |
| 1855 |
BoardNode.Data := Board; |
BoardNode.Data := Board; |
| 1856 |
BoardNode.ImageIndex := ITEM_ICON_BOARD1; |
//if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then begin |
| 1857 |
BoardNode.SelectedIndex := ITEM_ICON_BOARD2; |
if not Board.IsLogFile then begin |
| 1858 |
|
BoardNode.ImageIndex := ITEM_ICON_BOARD_NOSUBJECT; |
| 1859 |
|
BoardNode.SelectedIndex := ITEM_ICON_BOARD_NOSUBJECT; |
| 1860 |
|
end else begin |
| 1861 |
|
BoardNode.ImageIndex := ITEM_ICON_BOARD1; |
| 1862 |
|
BoardNode.SelectedIndex := ITEM_ICON_BOARD2; |
| 1863 |
|
for k := 0 to Board.Count - 1 do begin |
| 1864 |
|
if Board.Items[ k ].IsLogFile then begin |
| 1865 |
|
BoardNode.ImageIndex := ITEM_ICON_BOARD_LOG; |
| 1866 |
|
BoardNode.SelectedIndex := ITEM_ICON_BOARD_LOG; |
| 1867 |
|
|
| 1868 |
|
Break; |
| 1869 |
|
end; |
| 1870 |
|
end; |
| 1871 |
|
end; |
| 1872 |
Board.LoadSettings; |
Board.LoadSettings; |
| 1873 |
Board.EndUpdate; |
Board.EndUpdate; |
| 1874 |
end; |
end; |