| 1293 |
|
|
| 1294 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 1295 |
BrowserNullTab := TBrowserRecord.Create; |
BrowserNullTab := TBrowserRecord.Create; |
| 1296 |
|
Browser.ControlInterface.FullScreen := true; |
| 1297 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
| 1298 |
|
|
| 1299 |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
| 1300 |
FBrowsers := TList.Create; |
FBrowsers := TList.Create; |
| 1301 |
for i := 0 to BROWSER_COUNT -1 do begin |
for i := 0 to BROWSER_COUNT -1 do begin |
| 1306 |
TOleControl(newBrowser).Left := 0; |
TOleControl(newBrowser).Left := 0; |
| 1307 |
TOleControl(newBrowser).Top := 0; |
TOleControl(newBrowser).Top := 0; |
| 1308 |
newBrowser.ControlInterface.Silent := true; |
newBrowser.ControlInterface.Silent := true; |
| 1309 |
|
newBrowser.ControlInterface.FullScreen := true; |
| 1310 |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
newBrowser.OnDocumentComplete := BrowserDocumentComplete; |
| 1311 |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2; |
| 1312 |
newBrowser.OnEnter := BrowserEnter; |
newBrowser.OnEnter := BrowserEnter; |
| 3948 |
doc.Write(s); |
doc.Write(s); |
| 3949 |
doc.Close; |
doc.Close; |
| 3950 |
finally |
finally |
| 3951 |
|
ShowWindow(Thread.FBrowser.Handle, SW_SHOW); |
| 3952 |
end; |
end; |
| 3953 |
end else begin |
end else begin |
| 3954 |
Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']'; |
Self.Caption := CAPTION_NAME + ' - [' + ThreadTitle + ']'; |