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.66 by yoffy, Sat Sep 27 06:35:19 2003 UTC revision 1.67 by yoffy, Sun Sep 28 05:32:39 2003 UTC
# Line 1057  begin Line 1057  begin
1057          EnabledCloseButton := True;          EnabledCloseButton := True;
1058          BoardGroup.BBS2ch.ReadBoardFile;                //ボードファイル読込          BoardGroup.BBS2ch.ReadBoardFile;                //ボードファイル読込
1059  //      SetBoardTreeNode;                                                                               //ツリーにボード追加  //      SetBoardTreeNode;                                                                               //ツリーにボード追加
         Show2chTree;  
1060    
1061          //リストスタイル          //リストスタイル
1062          ListView.ViewStyle := GikoSys.Setting.ListStyle;          ListView.ViewStyle := GikoSys.Setting.ListStyle;
# Line 1088  begin Line 1087  begin
1087    
1088          //フォント・色設定          //フォント・色設定
1089          TreeView.Items.BeginUpdate;          TreeView.Items.BeginUpdate;
1090      FavoriteTreeView.Items.BeginUpdate;
1091          ListView.Items.BeginUpdate;          ListView.Items.BeginUpdate;
1092          try          try
1093                  TreeView.Font.Name := GikoSys.Setting.CabinetFontName;                  TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
# Line 1095  begin Line 1095  begin
1095                  TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;                  TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1096                  TreeView.Color := GikoSys.Setting.CabinetBackColor;                  TreeView.Color := GikoSys.Setting.CabinetBackColor;
1097    
1098                    FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1099                    FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1100                    FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1101                    FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1102    
1103                  ListView.Font.Name := GikoSys.Setting.ListFontName;                  ListView.Font.Name := GikoSys.Setting.ListFontName;
1104                  ListView.Font.Size := GikoSys.Setting.ListFontSize;                  ListView.Font.Size := GikoSys.Setting.ListFontSize;
1105                  ListView.Font.Color := GikoSys.Setting.ListFontColor;                  ListView.Font.Color := GikoSys.Setting.ListFontColor;
1106                  ListView.Color := GikoSys.Setting.ListBackColor;                  ListView.Color := GikoSys.Setting.ListBackColor;
1107          finally          finally
1108                  TreeView.Items.EndUpdate;                  TreeView.Items.EndUpdate;
1109        FavoriteTreeView.Items.EndUpdate;
1110                  ListView.Items.EndUpdate;                  ListView.Items.EndUpdate;
1111          end;          end;
1112          //ViewNoButton.Down := GikoSys.Setting.ListViewNo;          //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
# Line 1340  begin Line 1346  begin
1346          //ResHint          //ResHint
1347          FHint := TResPopup.Create(Self);          FHint := TResPopup.Create(Self);
1348    
1349      // 最後に選択されたキャビネットの復元
1350      Case GikoSys.Setting.CabinetIndex of
1351      0: Cabinet2chAction.Execute;
1352      1: CabinetHistoryAction.Execute;
1353      2: CabinetFavoriteAction.Execute;
1354      end;
1355    
1356          //オートログイン          //オートログイン
1357          if GikoSys.Setting.AutoLogin then          if GikoSys.Setting.AutoLogin then
1358                  LoginAction.Execute;                  LoginAction.Execute;
# Line 2268  begin Line 2281  begin
2281                  end else begin                  end else begin
2282                          URL := Text;                          URL := Text;
2283    
2284                          // スキンを使用している場合はポップアップしない        if Pos('about:blank..', URL) = 1 then
       if Pos('about:blank..', URL) = 1 then begin  
         if GikoSys.Setting.UseCSS and  
           FileExists( GikoSys.GetSkinHeaderFileName ) and  
           (not GikoSys.Setting.SkinPopup) then  
             Exit;  
   
2285          URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);          URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []);
       end;  
2286    
2287                          PathRec := Gikosys.Parse2chURL2(URL);                          PathRec := Gikosys.Parse2chURL2(URL);
2288    
# Line 3297  procedure TGikoForm.Show2chTree; Line 3303  procedure TGikoForm.Show2chTree;
3303  var  var
3304          i: Integer;          i: Integer;
3305  begin  begin
3306            GikoSys.Setting.CabinetIndex := 0;
3307    
3308          FavoriteTreeView.Visible := False;          FavoriteTreeView.Visible := False;
3309    FavoriteToolBar.Hide;    FavoriteToolBar.Hide;
3310    TreeView.Visible := True;    TreeView.Visible := True;
3311    
3312      CabinetSelectToolButton.Caption := '2ちゃんねる';
3313    
3314    Cabinet2chAction.Checked := True;    Cabinet2chAction.Checked := True;
3315    CabinetHistoryAction.Checked := False;    CabinetHistoryAction.Checked := False;
3316    CabinetFavoriteAction.Checked := False;    CabinetFavoriteAction.Checked := False;
# Line 3311  begin Line 3321  begin
3321                  SetBoardTreeNode;                  SetBoardTreeNode;
3322                  TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く                  TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く
3323                  //TreeView.Selected := TreeView.Items[0];               //ツリーのトップ項目を選択する                  //TreeView.Selected := TreeView.Items[0];               //ツリーのトップ項目を選択する
                 CabinetSelectToolButton.Caption := '2ちゃんねる';  
3324                  if GetActiveList = nil then                  if GetActiveList = nil then
3325                          TreeView.Selected := TreeView.Items[0]                          TreeView.Selected := TreeView.Items[0]
3326                  else begin                  else begin
# Line 3325  end; Line 3334  end;
3334    
3335  procedure TGikoForm.ShowHistoryTree;  procedure TGikoForm.ShowHistoryTree;
3336  begin  begin
3337            GikoSys.Setting.CabinetIndex := 1;
3338    
3339          FavoriteTreeView.Visible := False;          FavoriteTreeView.Visible := False;
3340    TreeView.Visible := True;    TreeView.Visible := True;
3341    
# Line 7355  end; Line 7366  end;
7366  procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject);  procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject);
7367  begin  begin
7368    
7369            GikoSys.Setting.CabinetIndex := 2;
7370    
7371          // キャビネットツールバー及びキャビネットの表示切替          // キャビネットツールバー及びキャビネットの表示切替
7372          HistoryToolBar.Hide;          HistoryToolBar.Hide;
7373    FavoriteToolBar.Show;    FavoriteToolBar.Show;

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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