FiveTech Support Forums

Hello,

I noticed a SAY painting problem and needed the following adjustment :

@ 26 * nFactor, 25 * nFactor SAY oDay PROMPT cDay OF oWnd FONT oFontDay PIXEL UPDATE
oDay:SetColor ( aVal[23], )
oDay:lTransparent := .T.
oDay:nLeft := ( oWnd:nWidth() - oDay:nWidth() ) / 2
oDay:nHeight += 5 // y display ( I think it will be the same with g and j
IF aVal[26] = .T. // Italic
oDay:nWidth += 8 // width itallic-font
ENDIF

The same result creating a sample

the black titles and frames I got after the last Window 10 - update ( 2 days ago )
All titles are black now word, exel ....
maybe possible to fix it
I did a monitor-reset but no luck still the same
The black text changed to white now and the systembuttons are still painted black



the normal view before the windows-update ( see the difference )
today I got another update but no change



FUNCTION MAIN()
LOCAL oWnd, oTime, oDate, oDay
LOCAL oFontTime, oFontDate, oFontDay

cTime := SUBSTR( Time(), 1, 6) + "00"
dDate := Date()
cDay := cDow( Date() )

DEFINE FONT oTempTime NAME "Alpine" SIZE 0, -20
DEFINE FONT oTempDay NAME "Alpine" SIZE 0, -30
DEFINE FONT oTempDate NAME "Alpine" SIZE 0, -40

oFontTime := oTempTime:Modify( -30, .T., .T. )
oFontDay := oTempTime:Modify( -40, .T., .T. )
oFontDate := oTempTime:Modify( -50, .T., .T. )

// top, left TO height, width
DEFINE WINDOW oWnd FROM 100, 100 TO 400, 400 PIXEL ;
TITLE "ALARM" COLOR 0, 16777215

@ 30, 30 SAY oTime PROMPT cTime OF oWnd FONT oFontTime PIXEL UPDATE
oTime:SetColor ( 255, )
oTime:lTransparent := .T.
oTime:nHeight += 5
oTime:nWidth += 5 // Italic
oTime:nLeft := ( oWnd:nWidth() - oTime:nWidth() ) / 2 - 5 // centered

@ 80, 30 SAY oDay PROMPT cDay OF oWnd FONT oFontDay PIXEL UPDATE
oDay:SetColor ( 255, )
oDay:lTransparent := .T.
oDay:nHeight += 5
oDay:nWidth += 5
oDay:nLeft := ( oWnd:nWidth() - oDay:nWidth() ) / 2 - 5

@ 140, 30 SAY oDate PROMPT dDate OF oWnd FONT oFontDate PIXEL UPDATE
oDate:SetColor ( 255, )
oDate:lTransparent := .T.
oDate:nHeight += 5
oDate:nWidth += 5
oDate:nLeft := ( oWnd:nWidth() - oDate:nWidth() ) / 2 - 5
ACTIVATE WINDOW oWnd

RELEASE FONT oFontTime, oFontDay, oFontDate

RETURN NIL

The same without

oFontTime := oTempTime:Modify( -30, .T., .T. )
oFontDay := oTempTime:Modify( -40, .T., .T. )
oFontDate := oTempTime:Modify( -50, .T., .T. )

using

DEFINE FONT oFontTime NAME "Alpine" SIZE 0, -30 ITALIC
DEFINE FONT oFontDay NAME "Alpine" SIZE 0, -40 ITALIC
DEFINE FONT oFontDate NAME "Alpine" SIZE 0, -50 ITALIC

:Modify( is needed to change fonts at runtime

regards
Uwe

Uwe, looks perfect. I did not find any errors. I did not understand.



Regards, saludos.

Did You delete the marked lines for the width and height correction
to make the problem visible ?
You will see the difference without these lines and value -5

oTime:nHeight += 5
oTime:nWidth += 5 // Italic
oTime:nLeft := ( oWnd:nWidth() - oTime:nWidth() ) / 2 - 5 // centered

oDay:nHeight += 5
oDay:nWidth += 5
oDay:nLeft := ( oWnd:nWidth() - oDay:nWidth() ) / 2 - 5

oDate:nHeight += 5
oDate:nWidth += 5
oDate:nLeft := ( oWnd:nWidth() - oDate:nWidth() ) / 2 - 5

regards
Uwe

In Class TSAY I added

Line 93
// DEFAULT nWidth := SAY_CHARPIX_W * Len( ::cCaption ) - 4
DEFAULT nWidth := GetTextWidth( 0, ::cCaption, If( oFont != nil, oFont:hFont,;
If( oWnd:oFont != nil, oWnd:hFont,) ) ) + 5

because NO textwidth and height is defined ( DEFAULT-values )

should be corrected for a undefined nHeight as well

Line 72
nHeight := If( oFont != nil, Abs( oFont:nHeight ), SAY_CHARPIX_H ) + 5,;

regards
Uwe