diff --git a/lcl/interfaces/win32/win32wsimglist.pp b/lcl/interfaces/win32/win32wsimglist.pp
index 694ec9313b..c5387d4b41 100644
--- a/lcl/interfaces/win32/win32wsimglist.pp
+++ b/lcl/interfaces/win32/win32wsimglist.pp
@@ -327,6 +327,10 @@ begin
   end
   else
   begin
+    if ABounds.Right = 0 then
+      ABounds.Right := AList.Width;
+    if ABounds.Bottom = 0 then
+      ABounds.Bottom := AList.Height;
     // use RawImage_PerformEffect to perform drawing effect
     AList.GetRawImage(AIndex, RawImg);
     RawImg.PerformEffect(ADrawEffect, True);