paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 23:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

turbopower: Make sure that TIpHtmlFrame has valid layout when MakeAnchorVisible is called.

Browse Source 
git-svn-id: trunk@49435 -
This commit is contained in:
wp 2015-06-24 17:31:51 +00:00
parent 6b2412959f
commit 8ab80a7904
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/turbopower_ipro/iphtml.pas
View File

@ -13957,6 +13957,7 @@ begin
E := FHtml.FindElement(URL); E := FHtml.FindElement(URL);
FCurAnchor := ''; FCurAnchor := '';
if E <> nil then begin if E <> nil then begin
HyperPanel.GetPageRect; // Make sure that layout is valid
E.MakeVisible; E.MakeVisible;
FCurAnchor := '#'+URL; FCurAnchor := '#'+URL;
end else end else