TMsgItem [Solved]
Posted:
Sun Jun 08, 2008 6:39 pmby Enrico Maria Giordano
In the following sample, the message "CHECKLIST" is not centered in its item space:
- Code: Select all Expand view
#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
Posted:
Sun Jun 08, 2008 6:56 pmby Silvio
I already ask it to Linares from december version
Posted:
Sat Jul 26, 2008 10:55 amby Silvio
no..sorry i use a mine tmsgitem and mine tmsgbar with errors
Posted:
Sat Jul 26, 2008 10:58 amby Enrico Maria Giordano
Silvio, I'm reporting the error to Antonio.
EMG
Posted:
Sat Jul 26, 2008 5:20 pmby Antonio Linares
Fixed, and included in FWH 8.07:
- Code: Select all Expand view
::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. )
