|
From: 網緹資訊•廖文勝(WenSheng) <ss...@ma...> - 2012-06-19 23:49:36
|
Hi !!
I found a bug about MDI WINDOW, when I click 'mininized' button of
window and MDICHILD WINDOW can't be to view.
demo.prg
//---------------------------------------------------
#include "hbclass.ch"
#include "guilib.ch"
#include "windows.ch"
Func Main()
Local oWnd, oMenu
INIT WINDOW oWnd MAIN MDI AT 0,0 SIZE 800, 600;
COLOR HBrush():Add(16744703):handle;
TITLE "Test MDI Windows";
STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_VISIBLE )
MENU OF oWnd
MENU TITLE "[&A]Test"
MENUITEM "[&A]MDI Child Window" ACTION Test2(oWnd)
ENDMENU
ENDMENU
ACTIVATE WINDOW oWnd MAXIMIZED
Return NIL
Func Test2(oWnd)
Local oChild
INIT WINDOW oChild MDICHILD OF oWnd TITLE 'MDICHILD Window';
AT 200,0 SIZE 500,400;
STYLE WS_VISIBLE + WS_OVERLAPPEDWINDOW
ACTIVATE WINDOW oChild
RETURN NIL
//---------------------------------------------------
Click 'minimized' of 'MDICHILD Window'.
Step1 Image:
http://img811.imageshack.us/img811/9541/image1lj.jpg
Step2 Image:
http://img15.imageshack.us/img15/3704/image2lxs.jpg
Step3 Image:
http://img171.imageshack.us/img171/7699/image3di.jpg
Windows XP SP2 (Chinese)
HWGUI last svn / -DUNICODE
Harbour 3.0 16951
Borland C++ 5.5.1
|