From 50631842571c35eca5c2e33b8a819e14ab9401b0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 5 Mar 2024 15:53:15 +0100
Subject: [PATCH] lclextensions: less hints

---
 components/lclextensions/include/gtk2/delphicompat.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/lclextensions/include/gtk2/delphicompat.inc b/components/lclextensions/include/gtk2/delphicompat.inc
index 244a77edb9..b9e40606aa 100644
--- a/components/lclextensions/include/gtk2/delphicompat.inc
+++ b/components/lclextensions/include/gtk2/delphicompat.inc
@@ -312,7 +312,7 @@ end;
 
 procedure TTimerList.Delete(hWnd: TLCLHandle; nIDEvent: UINT_PTR);
 var
-  TimerID: TTimerID;
+  {%H-}TimerID: TTimerID;
 begin
   TimerID.hWnd := hWnd;
   TimerID.nIDEvent := nIDEvent;
@@ -321,7 +321,7 @@ end;
 
 function TTimerList.Get(hWnd: TLCLHandle; nIDEvent: UINT_PTR; NotifyFunc: TTimerNotify): TGtk2Timer;
 var
-  TimerID: TTimerID;
+  {%H-}TimerID: TTimerID;
 begin
   TimerID.hWnd := hWnd;
   TimerID.nIDEvent := nIDEvent;
@@ -350,7 +350,7 @@ end;
 function TTimerList.Find(hWnd: TLCLHandle; nIDEvent: UINT_PTR): TGtk2Timer;
 var
   DataPtr: ^TGtk2Timer;
-  TimerID: TTimerID;
+  {%H-}TimerID: TTimerID;
 begin
   Result := nil;
   TimerID.hWnd := hWnd;