Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|