From d3f0f0ee869ce83b07db680129a05a1afe457dbd Mon Sep 17 00:00:00 2001
From: Abou Al Montacir <abou.almontacir@sfr.fr>
Date: Sat, 10 Feb 2024 19:51:58 +0100
Subject: [PATCH] GTK3: Fixed handling of scroll event.

Scrolling was not correctly handled due to error in the logic of
handling the scrolling event.

This fix is related to #21067.
---
 lcl/interfaces/gtk3/gtk3widgets.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas
index b872e74dd7..b5d8df229f 100644
--- a/lcl/interfaces/gtk3/gtk3widgets.pas
+++ b/lcl/interfaces/gtk3/gtk3widgets.pas
@@ -5104,6 +5104,7 @@ var
   Msg: TLMVScroll;
   MaxValue: gdouble;
   Widget: PGtkWidget;
+  StateFlags: TGtkStateFlags;
 begin
   Result := False;
 
@@ -5141,7 +5142,8 @@ begin
 
   if Msg.Scrollcode = SB_THUMBTRACK then
   begin
-    if Widget^.get_state_flags = GTK_STATE_FLAG_NORMAL then
+    StateFlags := Widget^.get_state_flags;
+    if not (GTK_STATE_FLAG_ACTIVE in StateFlags) then
     begin
       Msg.ScrollCode := SB_THUMBPOSITION;
       DeliverMessage(AData.LCLObject, Msg);