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.511.2.18 by h677, Sun Jun 5 13:10:45 2005 UTC revision 1.511.2.19 by h677, Sun Jun 5 14:14:25 2005 UTC
# Line 3059  begin Line 3059  begin
3059                                          ATitle := true;                                          ATitle := true;
3060    
3061                                  threadItem := BBSsFindThreadFromURL( URL );                                  threadItem := BBSsFindThreadFromURL( URL );
                                 if( wkIntSt = StrToInt64(ChangeFileExt(threadItem.FileName, '')) ) then begin  
                                         wkIntSt := 1;  
                                         wkIntTo := 1;  
                                 end;  
3062    
3063                                  if (threadItem = nil) and GikoSys.Is2chHost( Host ) then begin                                  if (threadItem = nil) and GikoSys.Is2chHost( Host ) then begin
3064                                          board := BBSs[ 0 ].FindBBSID( PathRec.FBBS );                                          board := BBSs[ 0 ].FindBBSID( PathRec.FBBS );
# Line 3075  begin Line 3071  begin
3071    
3072                                  if threadItem <> nil then begin                                  if threadItem <> nil then begin
3073                                          //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);                                          //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);
3074                                            //URLの最後に/が付いていないとき用
3075                                            if ( IntToStr(wkIntSt) = ChangeFileExt(threadItem.FileName, '') ) then begin
3076                                                    wkIntSt := 1;
3077                                                    wkIntTo := 1;
3078                                            end;
3079                                          FHint.PopupType := gptThread;                                          FHint.PopupType := gptThread;
3080                                          SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );                                          SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
3081                                  end;                                  end;

Legend:
Removed from v.1.511.2.18  
changed lines
  Added in v.1.511.2.19

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