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.515 by h677, Sat Jun 25 13:02:29 2005 UTC revision 1.515.2.6 by h677, Mon Jun 27 19:27:23 2005 UTC
# Line 1908  begin Line 1908  begin
1908                                          SelectComboBox.Visible := True;                                          SelectComboBox.Visible := True;
1909                                          // スレッド絞込用独自セパレータを挿入                                          // スレッド絞込用独自セパレータを挿入
1910                                          SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;                                          SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
                                         SelectComboBoxSplitter.Visible := True;  
1911                                          SelectComboBoxSplitter.Parent := ListToolBar;                                          SelectComboBoxSplitter.Parent := ListToolBar;
1912                                            SelectComboBoxSplitter.Visible := True;
1913                                            SelectComboBoxSplitter.BringToFront;
1914                                          break;                                          break;
1915                                  end;                                  end;
1916                          end;                          end;
# Line 1917  begin Line 1918  begin
1918                  end;                  end;
1919                  //重要 これがないとツールボタンの更新がおかしくなる                  //重要 これがないとツールボタンの更新がおかしくなる
1920                  ResetBandInfo( ListCoolBar, ListToolBar );                  ResetBandInfo( ListCoolBar, ListToolBar );
   
1921                  FIsIgnoreResize := rtNone;                  FIsIgnoreResize := rtNone;
1922    
1923                  //TabAutoLoad                  //TabAutoLoad
# Line 2114  begin Line 2114  begin
2114          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので          // TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので
2115          // BoardPluteIns の開放より先に行うこと          // BoardPluteIns の開放より先に行うこと
2116      for i := Length(BoardGroups) - 1 downto 0 do begin      for i := Length(BoardGroups) - 1 downto 0 do begin
2117          BoardGroups[i].Clear;                  //BoardGroups[i].Clear;
2118                    BoardGroups[i].Free;
2119      end;      end;
2120    
2121          try          try
# Line 2211  var Line 2212  var
2212          i                       : Integer;          i                       : Integer;
2213          tmpBool: Boolean;          tmpBool: Boolean;
2214  begin  begin
2215        LockWindowUpdate(Self.Handle);
2216    
2217          //タブクローズ          //タブクローズ
2218          tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;          tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2219          GikoSys.Setting.ShowDialogForAllTabClose := false;          GikoSys.Setting.ShowDialogForAllTabClose := false;
# Line 2233  begin Line 2236  begin
2236          end;          end;
2237    
2238          //履歴の保存と破棄          //履歴の保存と破棄
2239          SaveHistory;          try
2240          ClearHistory;                  SaveHistory;
2241                    ClearHistory;
2242            except
2243            end;
2244    
2245          //お気に入りの保存と破棄          //お気に入りの保存と破棄
2246          FavoriteDM.WriteFavorite;          try
2247          FavoriteDM.Clear;                  FavoriteDM.WriteFavorite;
2248                    FavoriteDM.Clear;
2249            except
2250            end;
2251    
2252            //板・スレ・PLUGINの破棄
2253            for i := Length(BoardGroups) - 1 downto 0 do begin
2254                    try
2255                            BoardGroups[i].Free;
2256                    except
2257                    end;
2258            end;
2259          //BBS破棄          //BBS破棄
2260          try          try
2261                  for i := Length( BBSs ) - 1 downto 0 do begin                  for i := Length( BBSs ) - 1 downto 0 do begin
# Line 2254  begin Line 2269  begin
2269          ActiveList := nil;          ActiveList := nil;
2270    
2271          FTreeType := gttNone;          FTreeType := gttNone;
2272          //GikoSys.FBoardURLList.Clear;  
2273          for i := Length(BoardGroups) - 1 downto 0 do begin          //============ここから下で、再生================================//
2274                  BoardGroups[i].Clear;  
2275          end;          // 外部板プラグインをロード(ReadBoardFile, LoadHistory より先に行うこと)
2276            InitializeBoardPlugIns;
2277    
2278          GikoSys.ListBoardFile;          //ボードファイル読込          GikoSys.ListBoardFile;          //ボードファイル読込
2279    
2280          // すべてのBBSを読み込んでおく          // すべてのBBSを読み込んでおく
# Line 2283  begin Line 2300  begin
2300          RoundList.LoadRoundBoardFile;          RoundList.LoadRoundBoardFile;
2301          RoundList.LoadRoundThreadFile;          RoundList.LoadRoundThreadFile;
2302    
2303            LockWindowUpdate(0);
2304          //          //
2305          TabsOpenAction.Execute;          TabsOpenAction.Execute;
2306  end;  end;
# Line 8235  begin Line 8253  begin
8253                          else                          else
8254                                  Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;                                  Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;
8255    
8256                          Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);                                                  Body := DeleteFontTag(Res.FBody);
8257                                                    Body := CustomStringReplace(Body, '<br> ', #10,true);
8258                          Body := CustomStringReplace(Body, '<br>', #10,true);                          Body := CustomStringReplace(Body, '<br>', #10,true);
8259                          Body := CustomStringReplace(Body, '</a>', '',true);                          Body := CustomStringReplace(Body, '</a>', '',true);
8260                          Body := GikoSys.DeleteLink(Body);                          Body := GikoSys.DeleteLink(Body);
# Line 10855  begin Line 10874  begin
10874          if FActiveContent <> nil then          if FActiveContent <> nil then
10875                  WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある                  WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある
10876          ListView.SetFocus;          ListView.SetFocus;
10877    
10878          if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then          if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then
10879                  ListView.Items.Item[0].Selected := true //選択アイテムが無いときは先頭のを選択する                  ListView.Items.Item[0].Selected := true; //選択アイテムが無いときは先頭のを選択する
10880          else if ListView.Items.Count > 0 then begin  
10881                  ListView.Scroll(-ListView.ClientWidth, -ListView.ClientHeight);          //スクロールさせる
10882                  rct := ListView.ItemFocused.DisplayRect(drBounds);          if (ListView.ItemFocused <> nil) then begin
10883                  ListView.Scroll(0, 2 * rct.Top - rct.Bottom);                  ListView.ItemFocused.MakeVisible(False);
                 if ListView.ViewStyle <> vsReport then begin  
                         ListView.Scroll(rct.Left, 0);  
                 end;  
10884          end;          end;
10885  end;  end;
10886    
# Line 11705  procedure TGikoForm.ListViewCustomDrawIt Line 11722  procedure TGikoForm.ListViewCustomDrawIt
11722  var  var
11723          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
11724  begin  begin
11725      DefaultDraw := true;          DefaultDraw := true;
11726          if TObject(Item.Data) is TThreadItem then begin          if TObject(Item.Data) is TThreadItem then begin
11727                  ThreadItem := TThreadItem(Item.Data);                  ThreadItem := TThreadItem(Item.Data);
11728                  if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin                  if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin
11729                          ListView.Canvas.Brush.Color := FOddColor;                          ListView.Canvas.Brush.Color := FOddColor;
11730                            //選択されているけど、フォーカスがないと、グレイになるので、太字に変更
11731                            if (Item.Selected) and (not (cdsFocused in State)) then begin
11732                                    ListView.Canvas.Font.Style := [fsBold];
11733                            end;
11734                  end else begin                  end else begin
11735                          ListView.Canvas.Brush.Color := FListViewBackGroundColor;                          ListView.Canvas.Brush.Color := FListViewBackGroundColor;
11736                  end;                  end;
11737  //              if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then  
11738                  if ThreadItem.UnRead then                  if ThreadItem.UnRead then
11739                          ListView.Canvas.Font.Style := [fsBold];                          ListView.Canvas.Font.Style := [fsBold];
11740          end;          end;

Legend:
Removed from v.1.515  
changed lines
  Added in v.1.515.2.6

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