From b08c12ff8ab31b63044bb03ef025dc3c175648a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 15 Sep 2021 11:18:12 +0200
Subject: [PATCH] * Make some properties public

---
 packages/fcl-web/src/base/custhttpapp.pp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/packages/fcl-web/src/base/custhttpapp.pp b/packages/fcl-web/src/base/custhttpapp.pp
index d51a9efff1..245568049e 100644
--- a/packages/fcl-web/src/base/custhttpapp.pp
+++ b/packages/fcl-web/src/base/custhttpapp.pp
@@ -35,10 +35,19 @@ Type
   protected
     Procedure InitRequest(ARequest : TFPHTTPConnectionRequest); override;
     Procedure InitResponse(AResponse : TFPHTTPConnectionResponse); override;
+  Public
     Property WebHandler : TFPHTTPServerHandler Read FWebHandler;
     Property Active;
     Property OnAcceptIdle;
     Property AcceptIdleTimeout;
+    Property Address;
+    property AdminMail;
+    property AdminName;
+    property ServerBanner;
+    Property LookupHostNames;
+    property HostName;
+    Property CertificateData;
+    Property UseSSL;
   end;
 
   { TFCgiHandler }