From f8ba4b18bdb82c410dc622652c8535b6ed9cecd4 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Tue, 6 Dec 2011 12:29:08 +0000
Subject: [PATCH] customdrawn-windows: Adds form background drawing

git-svn-id: trunk@33992 -
---
 lcl/interfaces/customdrawn/wincallback.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/customdrawn/wincallback.inc b/lcl/interfaces/customdrawn/wincallback.inc
index 96f49b6eaf..0031d245e0 100644
--- a/lcl/interfaces/customdrawn/wincallback.inc
+++ b/lcl/interfaces/customdrawn/wincallback.inc
@@ -291,6 +291,9 @@ Var
       PaintMsg.PaintStruct := @PS;
       PaintMsg.DC := HDC(WindowInfo.Canvas);
 
+      // Draws the background of the form
+      DrawFormBackground(WindowInfo.Image, WindowInfo.Canvas);
+
       // send through message to allow message override, moreover use SendMessage
       // to allow subclass window proc override this message too
 {      Include(TWinControlAccess(lWinControl).FWinControlFlags, wcfEraseBackground);