From 397d9de5de31cc2911b57cddc7e00be34d6f5911 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 1 Jan 2020 18:38:19 +0000
Subject: [PATCH] jvcllaz: Fix TJvMarkupViewer "hiding" pages in a PageControl
 (https://forum.lazarus.freepascal.org/index.php/topic,47499.msg344725.html#msg344725)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvJans/jvmarkupviewer.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/jvcllaz/run/JvJans/jvmarkupviewer.pas b/components/jvcllaz/run/JvJans/jvmarkupviewer.pas
index dfae2ed22..fefe31855 100644
--- a/components/jvcllaz/run/JvJans/jvmarkupviewer.pas
+++ b/components/jvcllaz/run/JvJans/jvmarkupviewer.pas
@@ -149,9 +149,13 @@ var
 //  tm: TEXTMETRIC;
   s: string;
 begin
+  if csLoading in ComponentState then
+    exit;
+
   C := FElementStack.Count;
   if C = 0 then
     Exit;
+
   for I := 0 to C - 1 do
   begin
     Element := TJvHTMLElement(FElementStack.Items[I]);