mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 14:29:36 +02:00
customdrawn-windows: Adds form background drawing
git-svn-id: trunk@33992 -
This commit is contained in:
parent
c51860c5a2
commit
f8ba4b18bd
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user