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.645 by h677, Thu Aug 23 16:27:19 2007 UTC revision 1.646 by h677, Sun Aug 26 10:45:07 2007 UTC
# Line 1960  begin Line 1960  begin
1960      if FResPopupBrowser <> nil then begin      if FResPopupBrowser <> nil then begin
1961          if not(Sender is TResPopupBrowser) then begin          if not(Sender is TResPopupBrowser) then begin
1962              if (FResPopupBrowser.Visible) then begin              if (FResPopupBrowser.Visible) then begin
1963                  ResPopupClearTimer.Enabled := True;                  if ResPopupClearTimer.Interval > 0 then begin
1964                  ResPopupClearTimer.Tag := 0;                      ResPopupClearTimer.Enabled := True;
1965                        ResPopupClearTimer.Tag := 0;
1966                    end else begin
1967                        FResPopupBrowser.Clear;
1968                    end;
1969              end;              end;
1970          end else begin          end else begin
1971              ResPopupClearTimer.Enabled := True;              if ResPopupClearTimer.Interval > 0 then begin
1972              ResPopupClearTimer.Tag := 1;                  ResPopupClearTimer.Enabled := True;
1973                    ResPopupClearTimer.Tag := 1;
1974                end else begin
1975                    TResPopupBrowser(Sender).ChildClear;
1976                end;
1977          end;          end;
1978      end;      end;
1979      cResPopup := nil;      cResPopup := nil;

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

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