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.197 by h677, Mon Jan 26 12:44:18 2004 UTC revision 1.198 by h677, Tue Mar 2 14:35:47 2004 UTC
# Line 2468  begin Line 2468  begin
2468                                  if PathRec.FToEnd then                                  if PathRec.FToEnd then
2469                                          wkIntTo := 9999;                                          wkIntTo := 9999;
2470    
2471                                  ATitle := ActiveFileName <> PathRec.FKey;                                  //ATitle := ActiveFileName <> PathRec.FKey;
2472                    if GetActiveContent.URL = URL then
2473                            ATitle := false
2474                    else
2475                            ATitle := true;
2476    
2477                                  threadItem := BBSsFindThreadFromURL( URL );                                  threadItem := BBSsFindThreadFromURL( URL );
2478    
# Line 2478  begin Line 2482  begin
2482                                                  threadItem := board.Find( PathRec.FKey + '.dat' );                                                  threadItem := board.Find( PathRec.FKey + '.dat' );
2483    
2484                                  end;                                  end;
2485                    
2486                                  if threadItem <> nil then begin                                  if threadItem <> nil then begin
2487                                          //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);                                          //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);
2488                                          FHint.PopupType := gptThread;                                          FHint.PopupType := gptThread;
# Line 2889  procedure TGikoForm.DownloadEnd(Sender: Line 2893  procedure TGikoForm.DownloadEnd(Sender:
2893  var  var
2894          ATitle: string;          ATitle: string;
2895          s: string;          s: string;
2896        boardPlugIn : TBoardPlugIn;
2897  begin  begin
2898          try          try
2899                  if Item.DownType = gdtBoard then                  if Item.DownType = gdtBoard then
# Line 2913  begin Line 2918  begin
2918                                  //スレ                                  //スレ
2919                                  Item.SaveItemFile;                                  Item.SaveItemFile;
2920                                  Item.ThreadItem.NewArrival := True;                                  Item.ThreadItem.NewArrival := True;
2921                    if (Item.ThreadItem.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin
2922                                    boardPlugIn             := Item.ThreadItem.BoardPlugIn;
2923                                    Item.ThreadItem.Title := GikoSys.DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 )).FTitle;
2924                        ATitle := Item.ThreadItem.Title;
2925                    end;
2926                                  if GetActiveContent = Item.ThreadItem then                                  if GetActiveContent = Item.ThreadItem then
2927                                          InsertBrowserTab(Item.ThreadItem)                                          InsertBrowserTab(Item.ThreadItem)
2928                                  else                                  else
# Line 6322  begin Line 6332  begin
6332                                                          InsertBrowserTab( ThreadItem );                                                          InsertBrowserTab( ThreadItem );
6333                                                          if not ThreadItem.IsLogFile then begin                                                          if not ThreadItem.IsLogFile then begin
6334                                                                  DownloadContent( ThreadItem );                                                                  DownloadContent( ThreadItem );
                                 Exit;  
6335                              end;                              end;
6336                                Exit;
6337                                                  end;                                                  end;
6338    
6339                                                  //Exit;                                                  //Exit;

Legend:
Removed from v.1.197  
changed lines
  Added in v.1.198

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