pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix TJvMarkupViewer "hiding" pages in a PageControl (https://forum.lazarus.freepascal.org/index.php/topic,47499.msg344725.html#msg344725)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-01-01 18:38:19 +00:00
parent 339b9ef430
commit 397d9de5de
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/run/JvJans/jvmarkupviewer.pas
View File

@ -149,9 +149,13 @@ var
// tm: TEXTMETRIC; // tm: TEXTMETRIC;
s: string; s: string;
begin begin
if csLoading in ComponentState then
exit;
C := FElementStack.Count; C := FElementStack.Count;
if C = 0 then if C = 0 then
Exit; Exit;
for I := 0 to C - 1 do for I := 0 to C - 1 do
begin begin
Element := TJvHTMLElement(FElementStack.Items[I]); Element := TJvHTMLElement(FElementStack.Items[I]);