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.644 by h677, Wed Aug 22 15:04:23 2007 UTC revision 1.645 by h677, Thu Aug 23 16:27:19 2007 UTC
# Line 2026  begin Line 2026  begin
2026                                  end;                                  end;
2027                          end;                          end;
2028                  end else begin                  end else begin
2029                CreateResPopupBrowser;
2030    
2031                if not(Sender is TResPopupBrowser) then begin
2032                    if (FResPopupBrowser.Visible) then begin
2033                        FResPopupBrowser.Clear;
2034                    end;
2035                end else begin
2036                    TResPopupBrowser(Sender).ChildClear;
2037                end;
2038    
2039                          threadItem := GetActiveContent(true);                          threadItem := GetActiveContent(true);
2040                          URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);                          URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);
2041                          PathRec := Gikosys.Parse2chURL2(URL);                          PathRec := Gikosys.Parse2chURL2(URL);
# Line 2078  begin Line 2088  begin
2088                                                  wkIntSt := 1;                                                  wkIntSt := 1;
2089                                                  wkIntTo := 1;                                                  wkIntTo := 1;
2090                                          end;                                          end;
                     CreateResPopupBrowser;  
   
                     if not(Sender is TResPopupBrowser) then begin  
                         if (FResPopupBrowser.Visible) then begin  
                             FResPopupBrowser.Clear;  
                         end;  
                     end else begin  
                         TResPopupBrowser(Sender).ChildClear;  
                     end;  
   
2091                      cResPopup := FResPopupBrowser.CreateNewBrowser;                      cResPopup := FResPopupBrowser.CreateNewBrowser;
2092                      cResPopup.PopupType := gptThread;                      cResPopup.PopupType := gptThread;
2093                                          HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );                                          HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );

Legend:
Removed from v.1.644  
changed lines
  Added in v.1.645

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