Page 1 of 1
TMsgItem [Solved]
Posted: Sun Jun 08, 2008 6:39 pm
by Enrico Maria Giordano
In the following sample, the message "CHECKLIST" is not centered in its item space:
Code: Select all
#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 pm
by Silvio
I already ask it to Linares from december version
Re: Bug in TMsgItem
Posted: Sat Jul 26, 2008 10:48 am
by Enrico Maria Giordano
Any news?
EMG
Posted: Sat Jul 26, 2008 10:55 am
by Silvio
no..sorry i use a mine tmsgitem and mine tmsgbar with errors
Posted: Sat Jul 26, 2008 10:58 am
by Enrico Maria Giordano
Silvio, I'm reporting the error to Antonio.
EMG
Posted: Sat Jul 26, 2008 5:20 pm
by Antonio Linares
Fixed, and included in FWH 8.07:
Code: Select all
::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. )
Posted: Sat Jul 26, 2008 5:50 pm
by Enrico Maria Giordano
Great! Thank you!
EMG