paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changes the type to make sure erase background is only sent to TWinControl

Browse Source 
git-svn-id: trunk@36154 -
This commit is contained in:
sekelsenmat 2012-03-18 21:10:38 +00:00
parent 397bb45af5
commit 67188bf7b7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lclmessageglue.pas
View File

@ -67,7 +67,7 @@ function LCLSendCopyToClipboardMsg(const Target: TControl): PtrInt;
function LCLSendPasteFromClipboardMsg(const Target: TControl): PtrInt;
function LCLSendConfigureEventMsg(const Target: TControl): PtrInt;
function LCLSendPaintMsg(const Target: TControl;const DC: HDC; const PaintStruct: PPaintStruct): PtrInt;
function LCLSendEraseBackgroundMsg(const Target: TControl;const DC: HDC): PtrInt;
function LCLSendEraseBackgroundMsg(const Target: TWinControl;const DC: HDC): PtrInt;
function LCLSendKeyDownEvent(const Target: TControl; var CharCode: Word; KeyData: PtrInt; BeforeEvent, IsSysKey: Boolean): PtrInt;
function LCLSendKeyUpEvent(const Target: TControl; var CharCode: Word; KeyData: PtrInt; BeforeEvent, IsSysKey: Boolean): PtrInt;
function LCLSendCharEvent(const Target: TControl; var CharCode: Word; KeyData: PtrInt; BeforeEvent, IsSysKey, ANotifyUserInput: Boolean): PtrInt;
@ -796,7 +796,7 @@ begin
Result := DeliverMessage(Target, Mess);
end;
function LCLSendEraseBackgroundMsg(const Target: TControl; const DC: HDC): PtrInt;
function LCLSendEraseBackgroundMsg(const Target: TWinControl; const DC: HDC): PtrInt;
var
Mess: TLMEraseBkgnd;
begin