I have a problem while releasing a CHILD window :
Code: Select all
/*
* HMG - Harbour Win32 GUI library Demo
*
* Copyright 2010 Roberto Lopez <mail.box.hmg@gmail.com>
* http://www.hmgforum.com//
*/
#include "hmg.ch"
PROC Main()
DEFINE WINDOW frmRelChTest;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'Release child window test';
MAIN
ON KEY ESCAPE ACTION ThisWindow.Release
@ 50, 50 BUTTON btnMake CAPTION "Make a child window" ACTION MakeAChild() WIDTH 200 HEIGHT 30
@ 50, 300 BUTTON btnTest CAPTION "Release child window" ACTION ReleaseChild() WIDTH 200 HEIGHT 30
END WINDOW
frmRelChTest.Center()
frmRelChTest.Activate()
RETU // Main()
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PROC MakeAChild()
DEFINE WINDOW frmChild AT 300, 300 ;
WIDTH 400 ;
HEIGHT 200 ;
CHILD ;
TITLE "This is a CHILD window"
END WINDOW
frmChild.Center
frmChild.Activate
RETU // MakeAChild()
*~~~~~~~~~~~~~~~~~~~~~~~~
PROC ReleaseChild()
IF IsWindowDefined( frmChild )
frmChild.Release
MsgInfo( "frmChild released." ) // never seen :(
ELSE
MsgStop( "frmChild not defined" )
ENDIF
RETU // ReleaseChild()
*~~~~~~~~~~~~~~~~~~~~~~~~
Any idea ?
Viva HMG