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

destroy overlay window, when destroying the owner

Browse Source 
git-svn-id: trunk@6265 -
This commit is contained in:
vincents 2004-11-18 14:58:06 +00:00
parent 74bc6baac5
commit dde42bd1c3
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

@ -616,6 +616,8 @@ Begin
DestroySpinEditBuddy(TCustomSpinEdit(lWinControl));
if lWinControl is TCustomComboBox then
DisposeComboEditWindowInfo(TCustomComboBox(lWinControl));
if WindowInfo^.Overlay<>HWND(nil) then
Windows.DestroyWindow(WindowInfo^.Overlay);
EnumProps(Window, @PropEnumProc);
LMessage.Msg := LM_DESTROY;
PostQuitMessage(0);
@ -1321,6 +1323,11 @@ begin
// parent of overlay is the form
Windows.PostMessage(Windows.GetParent(Window), Msg, WParam, LParam);
end;
WM_NCDESTROY:
begin
// free our own data associated with window
DisposeWindowInfo(Window)
end;
else
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam);
end;
@ -1466,6 +1473,9 @@ end;
{
$Log$
Revision 1.166 2004/11/18 14:58:06 vincents
destroy overlay window, when destroying the owner
Revision 1.165 2004/11/17 23:06:29 vincents
centralized dispose windowinfo
removed debug info