|
From: <ss...@ma...> - 2012-06-20 09:22:30
|
Hi All!
I found a bug about MDICHILD WINDOW,
When I use mouse to move MDICHILD WINDOW and background image have not
repaint.
//---------------------------------------------------------------------
#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 );
ON PAINT {|o,w| PaintWindow(o,w) }
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
//---------------------------------------------------------------------
Image1(MAIN MDI Window):
http://img266.imageshack.us/img266/9954/image21t.jpg
Image2(Open MDICHILD Window):
http://img593.imageshack.us/img593/3594/image22hh.jpg
Image3(Use Mouse to Move MDICHILD and background have not repaint):
http://img163.imageshack.us/img163/15/image23q.jpg
ps. ONLY 'MDICHILD Window' not repaint, DIALOG/DIALOG NOMODAL/WINDOW
CHILD have repaint.
XP SP2/Chinese
harbour 3.0
HWGUI last svn -DUNICODE
borland C++ 5.5.1
|