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.642 by h677, Sun Aug 19 07:18:39 2007 UTC revision 1.643 by h677, Tue Aug 21 15:12:36 2007 UTC
# Line 422  type Line 422  type
422      N82: TMenuItem;      N82: TMenuItem;
423      IDNG1: TMenuItem;      IDNG1: TMenuItem;
424      IDNG2: TMenuItem;      IDNG2: TMenuItem;
425        ResPopupClearTimer: TTimer;
426                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
427                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
428                  procedure BrowserStatusTextChange(Sender: TObject;                  procedure BrowserStatusTextChange(Sender: TObject;
# Line 558  type Line 559  type
559      procedure GetResURLMenuClick(Sender: TObject);      procedure GetResURLMenuClick(Sender: TObject);
560      procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;      procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
561        var Handled: Boolean);        var Handled: Boolean);
562        procedure ResPopupClearTimerTimer(Sender: TObject);
563          private          private
564                  { Private 宣言 }                  { Private 宣言 }
565                  FEnabledCloseButton: Boolean;                  FEnabledCloseButton: Boolean;
# Line 1954  begin Line 1956  begin
1956      if FResPopupBrowser <> nil then begin      if FResPopupBrowser <> nil then begin
1957          if not(Sender is TResPopupBrowser) then begin          if not(Sender is TResPopupBrowser) then begin
1958              if (FResPopupBrowser.Visible) then begin              if (FResPopupBrowser.Visible) then begin
1959                  FResPopupBrowser.Clear;                  ResPopupClearTimer.Enabled := True;
1960                    ResPopupClearTimer.Tag := 0;
1961              end;              end;
1962          end else begin          end else begin
1963              TResPopupBrowser(Sender).ChildClear;              ResPopupClearTimer.Enabled := True;
1964                ResPopupClearTimer.Tag := 1;
1965          end;          end;
1966      end;      end;
1967      cResPopup := nil;      cResPopup := nil;
# Line 1995  begin Line 1999  begin
1999                          e := IHTMLDocument2(TWebBrowser(Sender).Document).elementFromPoint(p.x, p.y);                          e := IHTMLDocument2(TWebBrowser(Sender).Document).elementFromPoint(p.x, p.y);
2000                          if (Assigned(e)) then begin                          if (Assigned(e)) then begin
2001                  CreateResPopupBrowser;                  CreateResPopupBrowser;
2002    
2003                    if not(Sender is TResPopupBrowser) then begin
2004                        if (FResPopupBrowser.Visible) then begin
2005                            FResPopupBrowser.Clear;
2006                        end;
2007                    end else begin
2008                        TResPopupBrowser(Sender).ChildClear;
2009                    end;
2010    
2011                  cResPopup := FResPopupBrowser.CreateNewBrowser;                  cResPopup := FResPopupBrowser.CreateNewBrowser;
2012                                  tmp2 := ZenToHan(e.Get_outerText);                                  tmp2 := ZenToHan(e.Get_outerText);
2013                                  if (GikoSys.IsNumeric(tmp2)) then begin                                  if (GikoSys.IsNumeric(tmp2)) then begin
# Line 2062  begin Line 2075  begin
2075                                                  wkIntTo := 1;                                                  wkIntTo := 1;
2076                                          end;                                          end;
2077                      CreateResPopupBrowser;                      CreateResPopupBrowser;
2078    
2079                        if not(Sender is TResPopupBrowser) then begin
2080                            if (FResPopupBrowser.Visible) then begin
2081                                FResPopupBrowser.Clear;
2082                            end;
2083                        end else begin
2084                            TResPopupBrowser(Sender).ChildClear;
2085                        end;
2086    
2087                      cResPopup := FResPopupBrowser.CreateNewBrowser;                      cResPopup := FResPopupBrowser.CreateNewBrowser;
2088                      cResPopup.PopupType := gptThread;                      cResPopup.PopupType := gptThread;
2089                                          HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );                                          HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
# Line 2069  begin Line 2091  begin
2091                          end;                          end;
2092                  end;                  end;
2093          if (cResPopup <> nil) then begin          if (cResPopup <> nil) then begin
2094                ResPopupClearTimer.Enabled := False;
2095    
2096              if cResPopup.PopupType = gptRaw then begin              if cResPopup.PopupType = gptRaw then begin
2097                  if cResPopup.Title <> '' then begin                  if cResPopup.Title <> '' then begin
2098                      cResPopup.TitlePopup;                      cResPopup.TitlePopup;
# Line 7752  begin Line 7776  begin
7776      end;      end;
7777  end;  end;
7778    
7779    procedure TGikoForm.ResPopupClearTimerTimer(Sender: TObject);
7780    begin
7781        ResPopupClearTimer.Enabled := False;
7782        if ResPopupClearTimer.Tag = 0 then begin
7783            FResPopupBrowser.Clear;
7784        end else begin
7785            FResPopupBrowser.CurrentBrowser.ChildClear;
7786        end;
7787    end;
7788    
7789  initialization  initialization
7790                                  OleInitialize(nil);                                  OleInitialize(nil);
7791  finalization  finalization

Legend:
Removed from v.1.642  
changed lines
  Added in v.1.643

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