Eu queria mudar as cores do tbrowse, mas não as cores internas, as cores dos traços.
Existe essa possibilidade?
Moderador: Moderadores
nkey := 0
DO WHILE nkey == 0 .AND. ! oBrowse:Stable
oBrowse:Stabilize()
nkey := Inkey()
ENDDO
IF nKey == 0
oBrowse:RefreshCurrent()
DO WHILE ! oBrowse:Stabilize()
ENDDO
oBrowse:ColorRect( { oBrowse:RowPos, 1, oBrowse:RowPos, oBrowse:ColCount }, { 3, 3 } ) // linha está com o cursor
oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:ColPos, oBrowse:RowPos, oBrowse:ColPos }, { 2, 2 } ) // linha/coluna está com o cursor
nkey := Inkey(600)
IF nKey == 0
KEYBOARD Chr( K_ESC )
ENDIF
ENDIF
br_w:ColorRect( { br_w:rowPos, 1, br_w:rowPos, br_w:colCount }, { 3, 3 } ) // linha está com o cursor
br_w:ColorRect( { br_w:RowPos, br_w:ColPos, br_w:RowPos, br_w:ColPos }, { 2, 2 } ) // linha/coluna está com o cursor
br_w:ColorSpec := SetColorTbrowse()Bingo!!!
br_w:ColorSpec := "W+/N,N/W*,W+/N,W+/N"
br_w:ColorSpec := "W+/N,GR+/G+,W+/G+,W+/N"
JoséQuintas escreveu:Ficaria melhor em tela GUI?
Sim.
Se me disserem qual LIB GUI aceita browse em multithread abrindo e fechando janelas à vontade, em qualquer ordem, poderei testar.
E de preferência fazendo isso numa janela GTWVG, que é uma janela Windows quase normal... rs
#include "hwgui.ch"
STATIC Thisform
FUNCTION TESTE
LOCAL oDlg_MALA
INIT WINDOW oDlg_MALA MDICHILD VAR Thisform TITLE 'Envio de Mala direta por E-mail' ;
AT 0,0;
SIZE GETDESKTOPWIDTH(),GETDESKTOPHEIGHT()-180 ;
STYLE WS_CAPTION+DS_CENTER +WS_SYSMENU+WS_MINIMIZEBOX+WS_MAXIMIZEBOX+WS_CHILD
ACTIVATE WINDOW oDlg_MALA
RETURN NIL
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes