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.635.2.5 by h677, Sat May 12 02:46:10 2007 UTC revision 1.635.2.6 by h677, Sun May 13 14:49:06 2007 UTC
# Line 1908  begin Line 1908  begin
1908      end;      end;
1909          StatusBar.Panels[1].Text := Text2;          StatusBar.Panels[1].Text := Text2;
1910    
1911    
1912          if FPreviewBrowser <> nil then          if FPreviewBrowser <> nil then
1913                  ShowWindow(FPreviewBrowser.Handle, SW_HIDE);                  ShowWindow(FPreviewBrowser.Handle, SW_HIDE);
1914    
# Line 1962  begin Line 1963  begin
1963                      FResPopupBrowser.PopupType := gptThread;                      FResPopupBrowser.PopupType := gptThread;
1964                                          HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, GetActiveContent, wkIntSt, wkIntTo, False, False);                                          HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, GetActiveContent, wkIntSt, wkIntTo, False, False);
1965                                  end else begin                                  end else begin
1966                      FResPopupBrowser.PopupType := gptRaw;                      FResPopupBrowser.CreateNewBrowser.PopupType := gptRaw;
1967                      FResPopupBrowser.Title := s;                      FResPopupBrowser.CreateNewBrowser.Title := s;
1968                                  end;                                  end;
1969                          end;                          end;
1970                  end else begin                  end else begin
# Line 2023  begin Line 2024  begin
2024                          FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);                          FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
2025                          ShowWindow(FResPopupBrowser.Handle, SW_HIDE);                          ShowWindow(FResPopupBrowser.Handle, SW_HIDE);
2026                      end;                      end;
2027                      FResPopupBrowser.PopupType := gptThread;                      FResPopupBrowser.CreateNewBrowser.PopupType := gptThread;
2028                                          HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );                                          HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
2029                                  end;                                  end;
2030                          end;                          end;
# Line 2032  begin Line 2033  begin
2033              FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);              FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
2034              ShowWindow(FResPopupBrowser.Handle, SW_HIDE);              ShowWindow(FResPopupBrowser.Handle, SW_HIDE);
2035          end;          end;
2036          if FResPopupBrowser.PopupType = gptRaw then begin          if FResPopupBrowser.CreateNewBrowser.PopupType = gptRaw then begin
2037              if FResPopupBrowser.Title <> '' then              if FResPopupBrowser.CreateNewBrowser.Title <> '' then begin
2038                  FResPopupBrowser.CreateNewBrowser.TitlePopup;                  FResPopupBrowser.CreateNewBrowser.TitlePopup;
2039                  end;              end;
2040                    end else begin
2041                if FResPopupBrowser.CreateNewBrowser.RawDocument <> '' then begin
2042                    FResPopupBrowser.CreateNewBrowser.Popup;
2043                end else if FResPopupBrowser.CreateNewBrowser.Title <> '' then begin
2044                    FResPopupBrowser.CreateNewBrowser.TitlePopup;
2045                end;
2046            end;
2047          end;          end;
2048  end;  end;
2049    

Legend:
Removed from v.1.635.2.5  
changed lines
  Added in v.1.635.2.6

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