paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 12:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* child window destruction fixed

Browse Source
This commit is contained in:
florian 2000-11-14 19:45:08 +00:00
parent 19b4130e98
commit 0f8c810da7
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win32/graph.pp
View File

@ -1547,9 +1547,16 @@ procedure CloseGraph;
exit
end;
if UseChildWindow then
PostMessage(ParentWindow,wm_destroy,0,0)
begin
{ if the child window isn't destroyed }
{ the main window can't be closed }
{ I don't know any other way (FK) }
PostMessage(GraphWindow,wm_destroy,0,0);
PostMessage(ParentWindow,wm_destroy,0,0)
end
else
PostMessage(GraphWindow,wm_destroy,0,0);
PostThreadMessage(MessageThreadHandle,wm_quit,0,0);
WaitForSingleObject(MessageThreadHandle,Infinite);
CloseHandle(MessageThreadHandle);
@ -2215,7 +2222,10 @@ begin
end.
{
$Log$
Revision 1.3 2000-10-21 18:20:17 florian
Revision 1.4 2000-11-14 19:45:08 florian
* child window destruction fixed
Revision 1.3 2000/10/21 18:20:17 florian
* a lot of small changes:
- setlength is internal
- win32 graph unit extended