Browse Source

* child window destruction fixed

florian 25 years ago
parent
commit
0f8c810da7
1 changed files with 12 additions and 2 deletions
  1. 12 2
      rtl/win32/graph.pp

+ 12 - 2
rtl/win32/graph.pp

@@ -1547,9 +1547,16 @@ procedure CloseGraph;
          exit
          exit
        end;
        end;
      if UseChildWindow then
      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
      else
        PostMessage(GraphWindow,wm_destroy,0,0);
        PostMessage(GraphWindow,wm_destroy,0,0);
+
      PostThreadMessage(MessageThreadHandle,wm_quit,0,0);
      PostThreadMessage(MessageThreadHandle,wm_quit,0,0);
      WaitForSingleObject(MessageThreadHandle,Infinite);
      WaitForSingleObject(MessageThreadHandle,Infinite);
      CloseHandle(MessageThreadHandle);
      CloseHandle(MessageThreadHandle);
@@ -2215,7 +2222,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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:
     * a lot of small changes:
        - setlength is internal
        - setlength is internal
        - win32 graph unit extended
        - win32 graph unit extended