From fe9d27d72c095b207838917863df39ce7f61ea4e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 25 May 2019 23:20:53 +0000
Subject: [PATCH] jvcllaz: Minor update to htmltest demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6949 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/examples/JvHTML/htmltestform.lfm | 4 ++--
 components/jvcllaz/examples/JvHTML/htmltestform.pas | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/jvcllaz/examples/JvHTML/htmltestform.lfm b/components/jvcllaz/examples/JvHTML/htmltestform.lfm
index 969c88c3a..62bde8632 100644
--- a/components/jvcllaz/examples/JvHTML/htmltestform.lfm
+++ b/components/jvcllaz/examples/JvHTML/htmltestform.lfm
@@ -13,9 +13,9 @@ object MainForm: TMainForm
     Height = 384
     Top = 0
     Width = 858
-    ActivePage = pgStringToHTML
+    ActivePage = pgStringsToHTML
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object pgStringToHTML: TTabSheet
       Caption = 'String to HTML'
diff --git a/components/jvcllaz/examples/JvHTML/htmltestform.pas b/components/jvcllaz/examples/JvHTML/htmltestform.pas
index 590f940d1..c8154df69 100644
--- a/components/jvcllaz/examples/JvHTML/htmltestform.pas
+++ b/components/jvcllaz/examples/JvHTML/htmltestform.pas
@@ -81,6 +81,7 @@ end;
 
 procedure TMainForm.edHTMLTitleChange(Sender: TObject);
 begin
+  JvStringListToHTML1.HTMLTitle := edHTMLTitle.Text;
   MemoChange(nil);
 end;