customdrawn-windows: Adds form background drawing

git-svn-id: trunk@33992 -
This commit is contained in:
sekelsenmat 2011-12-06 12:29:08 +00:00
parent c51860c5a2
commit f8ba4b18bd

View File

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