When I add new item to msgbar does not adjust the previous text, being overlapped.
Before add new item
http://rapidshare.com/files/91193350/Cl ... 1.jpg.html
After add new item
http://rapidshare.com/files/91193715/Cl ... 2.jpg.html
Code: Select all
#include "FiveWin.ch"
static oWnd
function Main()
local oBar, oPopup, oBtn
DEFINE WINDOW oWnd TITLE "FWH - Office 2007 look in your ButtonBars, MsgBar and Menus" ;
MENU BuildMenu()
DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007
DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ;
RESOURCE "people" PROMPT "Clients" GROUP ;
MENU oPopup TOOLTIP "Clients"
DEFINE BUTTON OF oBar ACTION Test() ;
RESOURCE "print" PROMPT "Add New" TOOLTIP "Add New Item"
SET MESSAGE OF oWnd TO "Testing the ButtonBar 2007 Office look" ;
CENTERED CLOCK KEYBOARD 2007
ACTIVATE WINDOW oWnd ;
VALID MsgYesNo( "Do you want to end?" )
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu 2007
MENUITEM "&DataBases"
MENU
MENUITEM "&Clients..." FILENAME "..\bitmaps\16x16\favorite.bmp"
MENUITEM "&Report..."
MENU
MENUITEM "&One..." DISABLED
MENUITEM "&Two..." CHECKED
MENUITEM "&Three..." WHEN .F.
ENDMENU
SEPARATOR
MENUITEM "&End" ACTION oWnd:End()
ENDMENU
MENUITEM "Edit" WHEN .F.
oMenu:AddHelp()
MENUITEM "Another item"
ENDMENU
return oMenu
function Test()
LOCAL oItem
oItem := TMsgItem():New( oWnd:oMsgBar,"Test New Item",oWnd:oMsgBar:GetWidth("Test New Item")*1.20,,,,.t.,,,, "Usuário Logado" )
oWnd:oMsgBar:Refresh()
return nil
