Alterar a cor somente do header da coluna no TBrowse

[Antenor Trufelli Filho]

Será que é possível controlar a cor do header de uma coluna no Tbrowse semelhante ao que a gente consegue fazer com uma célula dentro dele ?

Obrigado

Antenor

[Pablo César]

Colega Antenor,

Ja tentou usar a LIB do CA-TOOLS (CT.LIB) a função COLORWIN.
Eu consigo mudar as cores da seguinte for, após do estabilize()

while (lMore)
if ( b:colPos <= b:freeze )
b:colPos := b:freeze + 1
endif
while ( !b:stabilize() )
nKey := InKey()
if ( nKey != 0 )
exit // aborta se pressionarem uma tecla
endif
enddo
if ( b:stable )
if ( b:hitTop .or. b:hitBottom )
Tone(125, 0)
endif
COLORWIN(02,01,04,78,"R+/W")
nKey := InKey(0)
endif
.../ e assim por diante

Espero que consiga, mas com certeza irá dar certo.

Um clip-abraço :)Pos

[Antenor Trufelli Filho]

Caro Pablo

Eu tentei utilizar a CT.lib mas está dando um erro que não estou conseguindo resolver.
Eu utilizo o exospace assim :

EXOSPACE @<meulnk> LIB CT.LIB LIB IMPBAR.LIB LIB SIX2.LIB OUT <meuexe>

O erro é : General Protection Fault in <meuexe>.EXE at ... etc

Como eu deveria compilar ?

Obrigado

[Pablo César]

Caro Antenor,

Eu não utilizo o EXOSPACE, mas posso te dizer que o parametro das LIBs você deveria faze-lo dentro do teu arquivo .LNK
Eu talvez faria:

FILE clientes
FILE __wait
FILE help

LIB ctp,iolib,com_lpt

OUT CLIENTES

Mas veja também que para o EXOSPACE tem uma LIB própria, eu utilizo o RTLINK. Veja este tópico para sobre o CTP.LIB:

https://pctoledo.org/forum/viewto ... 5799629216

Espero que consiga com o EXOSPACE, porque eu sempre tenho dificuldades com ele e as minhas LIBs.

Um clip-abraço
:)Pos