Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.119 by yoffy, Fri Nov 21 03:15:25 2003 UTC revision 1.120 by yoffy, Fri Nov 21 04:41:19 2003 UTC
# Line 1007  const Line 1007  const
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;            //スレアイコン(ログあり)
# Line 1024  const Line 1025  const
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;           //高さ最大アイコン
# Line 1812  end; Line 1815  end;
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;
# Line 1850  begin Line 1853  begin
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;

Legend:
Removed from v.1.119  
changed lines
  Added in v.1.120

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26