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.146 by yoffy, Tue Nov 25 16:03:40 2003 UTC revision 1.147 by yoffy, Wed Nov 26 03:49:38 2003 UTC
# Line 1858  end; Line 1858  end;
1858  procedure TGikoForm.ReloadBBS;  procedure TGikoForm.ReloadBBS;
1859  var  var
1860          i                       : Integer;          i                       : Integer;
         item    : TBBSMenuItem;  
1861  begin  begin
1862          //タブクローズ          //タブクローズ
1863          NotSelectTabCloseAction.Execute;          NotSelectTabCloseAction.Execute;
# Line 1960  begin Line 1959  begin
1959                                                  end;                                                  end;
1960                                          end;                                          end;
1961                                  end;                                  end;
                                 Board.LoadSettings;  
1962                                  Board.EndUpdate;                                  Board.EndUpdate;
1963                          end;                          end;
1964    
# Line 3456  begin Line 3454  begin
3454  //              Exit;  //              Exit;
3455    
3456          Result := True;          Result := True;
         item := nil;  
3457          for i := 0 to FHistoryList.Count - 1 do begin          for i := 0 to FHistoryList.Count - 1 do begin
3458                  if TObject(FHistoryList[i]) is TFavoriteThreadItem then begin                  if TObject(FHistoryList[i]) is TFavoriteThreadItem then begin
3459                          Item := TFavoriteThreadItem(FHistoryList[i]);                          Item := TFavoriteThreadItem(FHistoryList[i]);
# Line 3478  begin Line 3475  begin
3475    
3476          if FTreeType = gttHistory then begin          if FTreeType = gttHistory then begin
3477                  Node := TreeView.Items.Add( nil, favItem.Title );                  Node := TreeView.Items.Add( nil, favItem.Title );
3478                  if TreeView.Items.Count > 1 then                  Node.MoveTo( TreeView.TopItem, naInsert );
                         TreeView.Items[ i ].MoveTo( TreeView.TopItem, naInsert );  
3479                  {                  {
3480                  if favItem.NewArrival then begin                  if favItem.NewArrival then begin
3481                          Node.ImageIndex := ITEM_ICON_THREADNEW1;                          Node.ImageIndex := ITEM_ICON_THREADNEW1;
# Line 6216  begin Line 6212  begin
6212                                                                  boardNode.Data                                                  := Board;                                                                  boardNode.Data                                                  := Board;
6213                                                                  boardNode.ImageIndex                            := ITEM_ICON_BOARD1;                                                                  boardNode.ImageIndex                            := ITEM_ICON_BOARD1;
6214                                                                  boardNode.SelectedIndex                 := ITEM_ICON_BOARD2;                                                                  boardNode.SelectedIndex                 := ITEM_ICON_BOARD2;
                                                                 Board.LoadSettings;  
6215                                                                  Board.EndUpdate;                                                                  Board.EndUpdate;
6216                                                          end;                                                          end;
6217                                                  end else begin                                                  end else begin

Legend:
Removed from v.1.146  
changed lines
  Added in v.1.147

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