| 1908 |
end; |
end; |
| 1909 |
StatusBar.Panels[1].Text := Text2; |
StatusBar.Panels[1].Text := Text2; |
| 1910 |
|
|
| 1911 |
|
|
| 1912 |
if FPreviewBrowser <> nil then |
if FPreviewBrowser <> nil then |
| 1913 |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
ShowWindow(FPreviewBrowser.Handle, SW_HIDE); |
| 1914 |
|
|
| 1963 |
FResPopupBrowser.PopupType := gptThread; |
FResPopupBrowser.PopupType := gptThread; |
| 1964 |
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, GetActiveContent, wkIntSt, wkIntTo, False, False); |
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, GetActiveContent, wkIntSt, wkIntTo, False, False); |
| 1965 |
end else begin |
end else begin |
| 1966 |
FResPopupBrowser.PopupType := gptRaw; |
FResPopupBrowser.CreateNewBrowser.PopupType := gptRaw; |
| 1967 |
FResPopupBrowser.Title := s; |
FResPopupBrowser.CreateNewBrowser.Title := s; |
| 1968 |
end; |
end; |
| 1969 |
end; |
end; |
| 1970 |
end else begin |
end else begin |
| 2024 |
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
| 2025 |
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
| 2026 |
end; |
end; |
| 2027 |
FResPopupBrowser.PopupType := gptThread; |
FResPopupBrowser.CreateNewBrowser.PopupType := gptThread; |
| 2028 |
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
HTMLCreater.SetResPopupText(FResPopupBrowser.CreateNewBrowser, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst ); |
| 2029 |
end; |
end; |
| 2030 |
end; |
end; |
| 2033 |
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel); |
| 2034 |
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
ShowWindow(FResPopupBrowser.Handle, SW_HIDE); |
| 2035 |
end; |
end; |
| 2036 |
if FResPopupBrowser.PopupType = gptRaw then begin |
if FResPopupBrowser.CreateNewBrowser.PopupType = gptRaw then begin |
| 2037 |
if FResPopupBrowser.Title <> '' then |
if FResPopupBrowser.CreateNewBrowser.Title <> '' then begin |
| 2038 |
FResPopupBrowser.CreateNewBrowser.TitlePopup; |
FResPopupBrowser.CreateNewBrowser.TitlePopup; |
| 2039 |
end; |
end; |
| 2040 |
|
end else begin |
| 2041 |
|
if FResPopupBrowser.CreateNewBrowser.RawDocument <> '' then begin |
| 2042 |
|
FResPopupBrowser.CreateNewBrowser.Popup; |
| 2043 |
|
end else if FResPopupBrowser.CreateNewBrowser.Title <> '' then begin |
| 2044 |
|
FResPopupBrowser.CreateNewBrowser.TitlePopup; |
| 2045 |
|
end; |
| 2046 |
|
end; |
| 2047 |
end; |
end; |
| 2048 |
end; |
end; |
| 2049 |
|
|