TMsgBar / TMsgItem

Sources: source/classes/msgbar.prg, source/classes/tmsgitem.prg

TMsgBar inherits from TControl; TMsgItem is a helper class

TMsgBar is a themed status bar replacement that supports embedded interactive items (clock, date, keyboard indicators, and custom action buttons). It offers Office 2007/2010/2015 visual styles and centered text alignment. TMsgItem defines individual embeddable items within a TMsgBar.

TMsgBar Key DATA Members

DATA	Type	Description
`cMsgDef`	Character	Default message text
`aItems`	Array	Array of TMsgItem objects embedded in the bar
`l2007`	Logical	Office 2007 theme style
`l2010`	Logical	Office 2010 theme style
`l2015`	Logical	Office 2015 theme style
`lCentered`	Logical	Center the message text horizontally
`oClock`	Object	Embedded clock item (TMsgItem)
`oDate`	Object	Embedded date item (TMsgItem)
`oKeyCaps`	Object	Caps Lock indicator item
`oKeyNum`	Object	Num Lock indicator item

TMsgBar Methods

Method	Description
`New( oWnd, cPrompt, lCentered, lClock, lDate, lKbd )`	Create a themed message bar
`SetMsg( c )`	Set the main message text
`AddItem( oItem )`	Add a TMsgItem to the bar
`ClockOn()`	Show the embedded clock
`DateOn()`	Show the embedded date
`KeybOn()`	Show keyboard status indicators (Caps, Num)

TMsgItem Key DATA Members

DATA	Type	Description
`cMsg`	Character	Item caption text
`nWidth`	Numeric	Item width in pixels
`bAction`	Block	Code block executed on click
`hBitmap1`	Handle	Bitmap handle for the "on" state
`hBitmap2`	Handle	Bitmap handle for the "off" state
`lActive`	Logical	Current active/checked state

TMsgItem Methods

Method	Description
`New( oBar, cMsg, nW, oFont, nClrT, nClrB, lAdd, bAction )`	Create a new message bar item
`SetText( c )`	Update the item caption text
`SetBitmap( cOn, cOff )`	Set the on/off state bitmaps
`ShowPopup( oMenu )`	Show a popup menu when the item is clicked

Example: Message Bar with Clock and Custom Item

#include "FiveWin.ch"

function Main()

   local oWnd, oMsgBar, oItem

   DEFINE WINDOW oWnd TITLE "TMsgBar Demo" SIZE 600, 400

   DEFINE MSGBAR oMsgBar OF oWnd PROMPT "Ready" ;
      2010 CLOCK DATE KEYBOARD

   // Add a custom clickable item
   oItem := TMsgItem():New( oMsgBar, "Records: 0", 120 )
   oItem:bAction := {|| MsgInfo( "Status clicked!" ) }
   oMsgBar:AddItem( oItem )

   ACTIVATE WINDOW oWnd CENTERED

return nil

Notes

TMsgBar supports visual themes via l2007, l2010, and l2015 flags. Only one theme should be enabled at a time.
The CLOCK, DATE, and KEYBOARD clauses (or corresponding methods) add standard system indicators. Clock and date update automatically via an internal timer.
TMsgItem supports two-state bitmaps (hBitmap1 for "on", hBitmap2 for "off"), useful for toggle indicators. Set lActive to switch between them.
Use ShowPopup() to attach a popup menu to an item, enabling context-sensitive actions when the user clicks the item.
TMsgBar is typically used as oWnd:oMsgBar and replaces the traditional oWnd:oStatusBar in themed applications.