TMsgItem [Solved]

[Enrico Maria Giordano]

In the following sample, the message "CHECKLIST" is not centered in its item space:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd

    SET MESSAGE OF oWnd 2007

    DEFINE MSGITEM OF oWnd:oMsgBar;
           SIZE 70;
           COLOR CLR_BLACK, CLR_HRED;
           PROMPT "CHECKLIST"

    oWnd:oMsgBar:KeybOn()
    oWnd:oMsgBar:DateOn()
    oWnd:oMsgBar:ClockOn()

    ACTIVATE WINDOW oWnd

    RETURN NIL

EMG

[Silvio]

I already ask it to Linares from december version

[Enrico Maria Giordano]

Any news?

EMG

[Silvio]

no..sorry i use a mine tmsgitem and mine tmsgbar with errors

[Enrico Maria Giordano]

Silvio, I'm reporting the error to Antonio.

EMG

[Antonio Linares]

Fixed, and included in FWH 8.07:

Code: Select all  Expand view  RUN

      ::oMsgBar:Say( ::oMsgBar:nHeight / 4 - 2,;
             nLeft - 1 + ( ::nWidth / 2 ) - ( GetTextWidth( hDC, AllTrim( ::cMsg ), ::oMsgBar:oFont:hFont ) / 2 ),;
             AllTrim( ::cMsg ), If( ::lActive, ::nClrText, ::nClrDisabled ),;
             ::nClrPane, ::oFont, .T., .T. )


[Enrico Maria Giordano]

Great! Thank you!

EMG