From 6e38c6564c8e61234c3f72d3c725025b8cd3d808 Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Wed, 24 May 2023 17:10:20 +0200
Subject: [PATCH] * Allow compilation with fpc trunk

---
 components/IdeInspector/maininspector.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/IdeInspector/maininspector.pas b/components/IdeInspector/maininspector.pas
index 3322ba9d37..7dcf7d16fa 100644
--- a/components/IdeInspector/maininspector.pas
+++ b/components/IdeInspector/maininspector.pas
@@ -149,7 +149,9 @@ const
      'ssLeft', 'ssRight', 'ssMiddle', 'ssDouble',
     // Extra additions
     'ssMeta', 'ssSuper', 'ssHyper', 'ssAltGr', 'ssCaps', 'ssNum',
-    'ssScroll', 'ssTriple', 'ssQuad', 'ssExtra1', 'ssExtra2');
+    'ssScroll', 'ssTriple', 'ssQuad', 'ssExtra1', 'ssExtra2'
+    {$IF (FPC_FULLVERSION>=30301)},'Touch', 'Pen', 'Horizontal' {$endif}
+    );
 
 var
   OriginalBackTraceStrFunc: TBackTraceStrFunc;