end;
end;
end else begin
+ CreateResPopupBrowser;
+
+ if not(Sender is TResPopupBrowser) then begin
+ if (FResPopupBrowser.Visible) then begin
+ FResPopupBrowser.Clear;
+ end;
+ end else begin
+ TResPopupBrowser(Sender).ChildClear;
+ end;
+
threadItem := GetActiveContent(true);
URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);
PathRec := Gikosys.Parse2chURL2(URL);
wkIntSt := 1;
wkIntTo := 1;
end;
- CreateResPopupBrowser;
-
- if not(Sender is TResPopupBrowser) then begin
- if (FResPopupBrowser.Visible) then begin
- FResPopupBrowser.Clear;
- end;
- end else begin
- TResPopupBrowser(Sender).ChildClear;
- end;
-
cResPopup := FResPopupBrowser.CreateNewBrowser;
cResPopup.PopupType := gptThread;
HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );