paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied patch from Vincent Snijders

Browse Source 
git-svn-id: trunk@4434 -
This commit is contained in:
marc 2003-07-29 22:32:48 +00:00
parent 506bce9eba
commit ecb2e71b12
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/win32/win32winapi.inc
View File

@ -141,14 +141,20 @@ End;
Procedure TWin32Object.CallDefaultWndHandler(Sender: TObject; var Message);
var
Handle: HWND;
PrevWndProc: pointer;
begin
Handle := ObjectToHwnd(Sender);
case TLMessage(Message).Msg of
LM_PAINT:
CallWindowProc(GetProp(Handle, 'DefWndProc'), Handle, WM_PAINT,
TLMessage(Message).WParam, TLMessage(Message).LParam);
begin
PrevWndProc := GetProp(Handle, 'DefWndProc');
if PrevWndProc = nil then
DefWindowProc(Handle, WM_PAINT, TLMessage(Message).WParam, TLMessage(Message).LParam)
else
CallWindowProc(PrevWndProc, Handle, WM_PAINT,
TLMessage(Message).WParam, TLMessage(Message).LParam);
end;
end;
end;
@ -2385,6 +2391,9 @@ end;
{ =============================================================================
$Log$
Revision 1.48 2003/07/29 22:32:48 marc
* Applied patch from Vincent Snijders
Revision 1.47 2003/07/29 07:38:09 marc
+ Added GetCursorPos