mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
turbopower: Make sure that TIpHtmlFrame has valid layout when MakeAnchorVisible is called.
git-svn-id: trunk@49435 -
This commit is contained in:
parent
6b2412959f
commit
8ab80a7904
@ -13957,6 +13957,7 @@ begin
|
||||
E := FHtml.FindElement(URL);
|
||||
FCurAnchor := '';
|
||||
if E <> nil then begin
|
||||
HyperPanel.GetPageRect; // Make sure that layout is valid
|
||||
E.MakeVisible;
|
||||
FCurAnchor := '#'+URL;
|
||||
end else
|
||||
|
Loading…
Reference in New Issue
Block a user