|
From: <ss...@ma...> - 2012-07-18 23:54:12
|
Hi~~
I had found a bug about tooltip of OWNERBUTTON,
It is can't to show tooltip message.
test.prg
//---------------------------------------------
#include "hbclass.ch"
#include "guilib.ch"
#include "windows.ch"
Func Main()
Local oWnd, oMenu, oBmp, oPanel
oBmp := HBitmap():AddFile( 'hwgui.bmp' )
INIT WINDOW oWnd MDI AT 0,0 SIZE 800, 600;
TITLE "Test MDI Windows";
ON PAINT {|o,w| PaintWindow(o,w, oWnd) }
MENU OF oWnd
MENU TITLE "[&A]Test"
MENUITEM "[&A]MDI Child Window" ACTION NIL
ENDMENU
ENDMENU
@ 0,0 PANEL oPanel SIZE oWnd:nWidth, 36 OF oWnd;
ON SIZE {|o,x,y|MoveWindow(o:handle, 0, 0, x, o:nHeight)}
@ 2, 2 OWNERBUTTON OF oPanel ON CLICK {|| msgInfo('Exit')} ;
SIZE 40, 32;
TEXT "Exit";
TOOLTIP "Exit Application..."
@ 42, 2 OWNERBUTTON OF oPanel ON CLICK {|| msgInfo('Printer Config')} ;
SIZE 40, 32;
TEXT "Print";
TOOLTIP "Printer Config..."
ACTIVATE WINDOW oWnd MAXIMIZED
Return NIL
//---------------------------------------------
The OWNERBUTTON have tooltip but can't to show.
|