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 // ItalicoTime: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 += 5oDay: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 += 5oDate: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