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 by h677, Sat Apr 2 03:08:05 2005 UTC revision 1.512 by h677, Sun Jun 5 13:22:50 2005 UTC
# Line 3044  begin Line 3044  begin
3044    
3045                                  if threadItem <> nil then begin                                  if threadItem <> nil then begin
3046                                          //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);                                          //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);
3047                                            //URLの最後に/が付いていないとき用
3048                                            if ( IntToStr(wkIntSt) = ChangeFileExt(threadItem.FileName, '') ) then begin
3049                                                    wkIntSt := 1;
3050                                                    wkIntTo := 1;
3051                                            end;
3052                                          FHint.PopupType := gptThread;                                          FHint.PopupType := gptThread;
3053                                          SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );                                          SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
3054                                  end;                                  end;

Legend:
Removed from v.1.511  
changed lines
  Added in v.1.512

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