paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:49:12 +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); Procedure TWin32Object.CallDefaultWndHandler(Sender: TObject; var Message);
var var
Handle: HWND; Handle: HWND;
PrevWndProc: pointer;
begin begin
Handle := ObjectToHwnd(Sender); Handle := ObjectToHwnd(Sender);
case TLMessage(Message).Msg of case TLMessage(Message).Msg of
LM_PAINT: LM_PAINT:
CallWindowProc(GetProp(Handle, 'DefWndProc'), Handle, WM_PAINT, begin
TLMessage(Message).WParam, TLMessage(Message).LParam); 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;
end; end;
@ -2385,6 +2391,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.47 2003/07/29 07:38:09 marc
+ Added GetCursorPos + Added GetCursorPos