FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oFnt

    DEFINE FONT oFnt NAME GETSYSFONT() SIZE 0, -8 BOLD

    DEFINE WINDOW oWnd

    SET MESSAGE OF oWnd;
        TO "This is a status bar";
        TIME DATE NOINSET 2007

    DEFINE MSGITEM OF oWnd:oMsgBar;
           SIZE 80;
           PROMPT "CHECKLIST";
           FONT oFnt

    DEFINE MSGITEM OF oWnd:oMsgBar

    ACTIVATE WINDOW oWnd

    RELEASE FONT oFnt

    RETURN NIL

nLeft - 1 + ( ::nWidth / 2 ) - ( GetTextWidth( hDC, AllTrim( ::cMsg ), ::oMsgBar:oFont:hFont ) / 2 ),;

nLeft - 1 + ( ::nWidth / 2 ) - ( GetTextWidth( hDC, AllTrim( ::cMsg ), ::oFont:hFont ) / 2 ),;

METHOD Paint() CLASS TMsgItem
   ...
   if ::oMsgBar:l2007
      ::oMsgBar:Say( ::oMsgBar:nHeight / 4 - 2,;
             nLeft - 1 + ( ::nWidth / 2 ) - ( GetTextWidth( hDC, AllTrim( ::cMsg ), If( ::oFont != nil, ::oFont:hFont, ::oMsgBar:oFont:hFont ) ) / 2 ),;  // new !!!
      ...

::oFont   = If( oFont != nil, oFont, ::oMsgBar:oFont )

GetTextWidth( hDC, AllTrim( ::cMsg ), ::oFont:hFont )