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.636 by h677, Sun Jun 10 14:28:05 2007 UTC revision 1.637 by h677, Mon Jun 11 22:58:35 2007 UTC
# Line 1970  begin Line 1970  begin
1970                                          wkIntSt := StrToInt64(tmp2);                                          wkIntSt := StrToInt64(tmp2);
1971                                          wkIntTo := StrToInt64(tmp2);                                          wkIntTo := StrToInt64(tmp2);
1972                      cResPopup.PopupType := gptThread;                      cResPopup.PopupType := gptThread;
1973                                          HTMLCreater.SetResPopupText(cResPopup, GetActiveContent, wkIntSt, wkIntTo, False, False);                                          HTMLCreater.SetResPopupText(cResPopup, GetActiveContent(true), wkIntSt, wkIntTo, False, False);
1974                                  end else begin                                  end else begin
1975                      cResPopup.PopupType := gptRaw;                      cResPopup.PopupType := gptRaw;
1976                      cResPopup.Title := s;                      cResPopup.Title := s;
1977                                  end;                                  end;
1978                          end;                          end;
1979                  end else begin                  end else begin
1980                          threadItem := GetActiveContent;                          threadItem := GetActiveContent(true);
1981                          URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);                          URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);
1982                          PathRec := Gikosys.Parse2chURL2(URL);                          PathRec := Gikosys.Parse2chURL2(URL);
1983                          if (PathRec.FNoParam) then begin                          if (PathRec.FNoParam) then begin
# Line 3778  begin Line 3778  begin
3778                                  end;                                  end;
3779    
3780                                  if wkIntSt <> 0 then begin                                  if wkIntSt <> 0 then begin
                     if (Sender is TResPopupBrowser) then begin  
                         TResPopupBrowser(Sender).ChildClear  
                     end;  
3781                          FActiveContent.IDAnchorPopup('');                          FActiveContent.IDAnchorPopup('');
3782                      MoveHisotryManager.pushItem(FActiveContent);                      MoveHisotryManager.pushItem(FActiveContent);
3783                                          BrowserMovement(IntToStr(wkIntSt));                      if (Sender is TResPopupBrowser) then begin
3784                            TResPopupBrowser(Sender).ChildClear;
3785                            OpenThreadItem(
3786                                GetActiveContent(true),
3787                                GetActiveContent(true).URL + '&st=' +
3788                                     IntToStr(wkIntSt) + '&to=' + IntToStr(wkIntSt));
3789                        end else begin
3790                                            BrowserMovement(IntToStr(wkIntSt));
3791                        end;
3792                  end;                  end;
3793                          end;                          end;
3794                  end else begin                  end else begin
# Line 4849  begin Line 4854  begin
4854                  s := ZenToHan(Trim(s));                  s := ZenToHan(Trim(s));
4855                  if GikoSys.IsNumeric(s) then begin                  if GikoSys.IsNumeric(s) then begin
4856                          Num := StrToInt64(s);                          Num := StrToInt64(s);
4857                          ThreadItem := GetActiveContent;                          ThreadItem := GetActiveContent(true);
4858                          if (ThreadItem <> nil) and (Num <= ThreadItem.Count)                          if (ThreadItem <> nil) and (Num <= ThreadItem.Count)
4859                  and (Num > 0)then begin                  and (Num > 0)then begin
4860                  CreateResPopupBrowser;                  CreateResPopupBrowser;

Legend:
Removed from v.1.636  
changed lines
  Added in v.1.637

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