paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Improve OverlayWindowProc. Patch from Maciej Izak.

Browse Source 
git-svn-id: trunk@48519 -
This commit is contained in:
juha 2015-03-27 09:14:44 +00:00
parent 59f17ee5c6
commit 094ca7530a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32callback.inc
View File

@ -2644,6 +2644,7 @@ var
Owner: TWinControl;
Control: TControl;
P: TPoint;
LRect: Windows.RECT;
begin
case Msg of
WM_ERASEBKGND:
@ -2689,6 +2690,15 @@ begin
DisposeWindowInfo(Window);
Result := 0;
end;
WM_MOVE:
begin
if (Int16(LoWord(LParam)) <> 0) or (Int16(HiWord(LParam)) <> 0) then
begin
Parent := Windows.GetParent(Window);
Windows.GetClientRect(Parent, LRect);
Windows.SetWindowPos(Window, HWND_TOP, 0, 0, LRect.Right, LRect.Bottom, 0);
end;
end;
else
if UnicodeEnabledOS
then Result := Windows.DefWindowProcW(Window, Msg, WParam, LParam)