paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 13:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn-windows: Adds form background drawing

Browse Source 
git-svn-id: trunk@33992 -
This commit is contained in:
sekelsenmat 2011-12-06 12:29:08 +00:00
parent c51860c5a2
commit f8ba4b18bd
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/customdrawn/wincallback.inc
View File

@ -291,6 +291,9 @@ Var
PaintMsg.PaintStruct := @PS; PaintMsg.PaintStruct := @PS;
PaintMsg.DC := HDC(WindowInfo.Canvas); 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 // send through message to allow message override, moreover use SendMessage
// to allow subclass window proc override this message too // to allow subclass window proc override this message too
{ Include(TWinControlAccess(lWinControl).FWinControlFlags, wcfEraseBackground); { Include(TWinControlAccess(lWinControl).FWinControlFlags, wcfEraseBackground);