From c802efbd201fb52d1600c596322456f2e79f0b5a Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sun, 13 Jun 2010 14:27:28 +0000
Subject: [PATCH] lcl: default idButtonClose theme drawing

git-svn-id: trunk@26088 -
---
 lcl/themes.pas | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/lcl/themes.pas b/lcl/themes.pas
index cb338d6c76..3f6871158a 100644
--- a/lcl/themes.pas
+++ b/lcl/themes.pas
@@ -1884,8 +1884,31 @@ begin
 end;
 
 function TThemeServices.GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean;
+var
+  img : TBitmap;
 begin
-  Result := False;
+  case StockID of
+    idButtonClose:
+    begin
+      img:=TBitmap.Create;
+      img.SetSize(16, 16);
+      img.PixelFormat:=pf32bit;
+      img.Transparent:=True;
+      img.Canvas.Pen.Color:=clBlack;
+      img.Canvas.Pen.Width:=3;
+      img.Canvas.FillRect(Rect(0,0,img.Width,img.Height));
+      img.Canvas.MoveTo(4,4);
+      img.Canvas.LineTo(12,12);
+      img.Canvas.MoveTo(12,4);
+      img.Canvas.LineTo(4,12);
+      Image:=img.ReleaseHandle; 
+      Mask:=img.ReleaseMaskHandle;
+      img.Free;
+      Result:=True;
+    end;
+  else
+    Result := False;
+  end;
 end;
 
 function TThemeServices.GetOption(AOption: TThemeOption): Integer;