Cores na HWGUI não funciona

[josenilson]

Prezados amigos,

Estou fazendo testes na HWGUI. No código abaixo, as cores não estão funcionando. O que estou fazendo de errado?

Att,

Josenilson

Código: Selecionar todos

#Include "hwgui.ch"

function teste
        oFonte1 := HFont():Add( "Arial"       ,0,-20,400)
        oFonte2 := HFont():Add( "Arial Narrow",0,-37,700)
        oFonte3 := HFont():Add( "Arial Narrow",0,-40,700)        
        oFonte4 := HFont():Add( 'Courier New' ,0,-13,700)
        nCor    := 16777215

        INIT DIALOG oWinPdv ;
             AT 0,0 ;
             STYLE WS_POPUP ;
             SIZE GetDesktopWidth(), GetDesktopHeight() 
        
        @ 063,81 SAY oLbCaixa CAPTION "AA" TRANSPARENT SIZE 28,23  STYLE DT_VCENTER FONT oFonte COLOR nCor
        @ 217,81 SAY oLbUser  CAPTION "" TRANSPARENT SIZE 141,23 STYLE DT_VCENTER FONT oFonte1 COLOR nCor   
        @ 416,81 SAY oLbData  CAPTION "" TRANSPARENT SIZE 129,23 STYLE DT_VCENTER FONT oFonte1 COLOR nCor   
        @ 629,81 SAY oLbCupom CAPTION "" TRANSPARENT SIZE 77,23  STYLE DT_VCENTER FONT oFonte1 COLOR nCor   
        @ 757,81 SAY oLbEcf   CAPTION "" TRANSPARENT SIZE 260,23 STYLE DT_VCENTER FONT oFonte1 COLOR nCor   
        
        @ 015,472 SAY oLbDescricao  CAPTION "" TRANSPARENT SIZE 985,53 STYLE DT_VCENTER FONT oFonte2 Color nCor
        @ 015,586 SAY oLbCodigo     CAPTION "" TRANSPARENT SIZE 232,53 STYLE DT_VCENTER FONT oFonte2 Color nCor
        @ 272,586 SAY oLbUnidade    CAPTION "" TRANSPARENT SIZE 83,53  STYLE DT_VCENTER FONT oFonte2 Color nCor
        @ 377,586 SAY oLbQuant      CAPTION "" TRANSPARENT SIZE 149,53 STYLE DT_VCENTER FONT oFonte2 Color nCor
        @ 563,586 SAY oLbPreco      CAPTION "" TRANSPARENT SIZE 189,53 STYLE DT_VCENTER FONT oFonte2 Color nCor
        @ 809,584 SAY oLbTotalItem  CAPTION "" TRANSPARENT SIZE 194,53 STYLE DT_VCENTER FONT oFonte3 Color nCor
        @ 378,677 SAY oLbItens      CAPTION "" TRANSPARENT SIZE 65,53  STYLE DT_VCENTER FONT oFonte3 Color nCor
        @ 810,676 SAY oLbTotalCupom CAPTION "" TRANSPARENT SIZE 194,53 STYLE DT_VCENTER FONT oFonte3 Color nCor

        @ 17,670  SAY "Lj:" TRANSPARENT SIZE 23,23 FONT oFonte4
        @ 17,694  SAY "Op:" TRANSPARENT SIZE 35,23 FONT oFonte4
        @ 17,719  SAY "Tb:" TRANSPARENT SIZE 25,23 FONT oFonte4

        @ 82,670  SAY oLbFatId CAPTION "Pré-venda:" TRANSPARENT SIZE 93,23  FONT oFonte4
        @ 82,694  SAY "     Modo:"                  TRANSPARENT SIZE 93,23  FONT oFonte4
        @ 60,719  SAY "Menu Fiscal:"                TRANSPARENT SIZE 115,23 FONT oFonte4

        @ 43,672 SAY oLbFil CAPTION "" TRANSPARENT SIZE 25,23 COLOR nCor FONT oFonte4 
        @ 43,695 SAY oLbOp  CAPTION "" TRANSPARENT SIZE 25,23 COLOR nCor FONT oFonte4 
        @ 43,719 SAY oLbTab CAPTION "" TRANSPARENT SIZE 25,23 COLOR nCor FONT oFonte4 

        @ 177,670 SAY oLbFatNum CAPTION "" TRANSPARENT SIZE 102,23 COLOR nCor FONT oFonte4
        @ 177,719 SAY "CTRL+F10"           TRANSPARENT SIZE 77,23  COLOR nCor FONT oFonte4
        @ 177,694 SAY oLbModo   CAPTION "" TRANSPARENT SIZE 84,23  COLOR nCor FONT oFonte4 
        
        ACTIVATE DIALOG oWinPdv
RETURN

[sygecom]

Josenilson,
O que não funciona ? olhei rapidamente e não vi nada de errado, coloque um print da tela que está ficando e o que gostaria que fizesse.
E nós diga qual versão da Hwgui e do xHarbour ou Harbour que está usando.