Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1760 |
end; |
end; |
| 1761 |
except |
except |
| 1762 |
end; |
end; |
| 1763 |
|
|
| 1764 |
|
|
| 1765 |
end; |
end; |
| 1766 |
|
|
| 1767 |
procedure TGikoForm.FormDestroy(Sender: TObject); |
procedure TGikoForm.FormDestroy(Sender: TObject); |
| 3045 |
end;} |
end;} |
| 3046 |
|
|
| 3047 |
procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True); |
procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True); |
| 3048 |
|
|
| 3049 |
var |
var |
| 3050 |
i: Integer; |
i: Integer; |
| 3051 |
// OldIndex: Integer; |
// OldIndex: Integer; |
| 3187 |
BrowserMovement('new'); |
BrowserMovement('new'); |
| 3188 |
except |
except |
| 3189 |
end; |
end; |
| 3190 |
//Sleep(10); |
Sleep(10); |
| 3191 |
Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3192 |
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
| 3193 |
//i := 0; |
//i := 0; |
| 3194 |
try |
try |
| 3859 |
nm: OleVariant; |
nm: OleVariant; |
| 3860 |
begin |
begin |
| 3861 |
// OleVariant(Browser.Document).parentWindow.location.hash := AName; |
// OleVariant(Browser.Document).parentWindow.location.hash := AName; |
| 3862 |
|
{ |
| 3863 |
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
while (Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 3864 |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3865 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3866 |
end; |
end; |
| 3867 |
|
} |
| 3868 |
try |
try |
| 3869 |
top := 0; |
top := 0; |
| 3870 |
nm := AName; |
nm := AName; |
|
|
Legend:
| Removed from v.1.192 |
|
| changed lines |
| |
Added in v.1.193 |
|
|
|