From 4add4186ce38f11d9ae17d84f3600eb305edc153 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 12 Jun 2009 14:05:30 +0000
Subject: [PATCH] win32: fix imagelist drawing if passed cx, cy = 0 (it means
 draw without stretch)

git-svn-id: trunk@20595 -
---
 lcl/interfaces/win32/win32wsimglist.pp | 4 ++++
 1 file changed, 4 insertions(+)

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);