diff --git a/lcl/interfaces/gtk/gtkthemes.pas b/lcl/interfaces/gtk/gtkthemes.pas
index 82581b7bf7..c7a0dc09f3 100644
--- a/lcl/interfaces/gtk/gtkthemes.pas
+++ b/lcl/interfaces/gtk/gtkthemes.pas
@@ -446,6 +446,8 @@ var
   StyleParams: TGtkStyleParams;
   i: integer;
 begin
+  if IsRectEmpty(R) then
+    Exit;
   for i := 0 to GetParamsCount(Details) - 1 do
   begin
     StyleParams := GetGtkStyleParams(DC, Details, i);