Cor na wvwtools.
Enviado: 14 Fev 2008 11:20
Pessoal Bom dia.
Logo iniciar o sistema abro um browse para escolher a Filial.
Como a wvwtools ja por padrao ja abre uma tela então estou usando esta tela.
O problema é que como ainda nao atribui essa tela que a wvw cria por burrice que nao tem como tirar uma variavel e nem disse que a tela sera minha janela principal nao consigo atribui cor a ela então fia meu browse
com fundo cinza e quero fundo branco.
O Ideal seria essa tela que a wvwtools cria nao aparecer.
Só vi isso nessa tal de wvwtools isso é um burrice tamanha do cara que inventou essa wvw.
Logo iniciar o sistema abro um browse para escolher a Filial.
Como a wvwtools ja por padrao ja abre uma tela então estou usando esta tela.
Código: Selecionar todos
Setup( 10, 70 )
SetColor("N/W*.n/w,n/w*,n/w*")
browse := TBROWSEnew( 00,00,12,78 )
column := TBCOLUMNnew( NIL, {|| arr[ nChoice ]} )
browse:addCOLUMN( column )
//browse:colorspec := "B/G*"
browse:colorspec := "N/W*.n/w,n/w*,n/w*"
browse:SKIPblock := {|x| yARRAYskip(x, @nChoice, LEN( arr )) }
browse:goTOPblock := {|| nChoice := 1 }
browse:goBOTTOMblock := {|| nChoice := LEN( arr ) }
IF !yESTAVEL( browse, .F. )
RETURN .F.
ENDIF
browse:REFRESHall()
browse:goBOTTOM()
DO WHILE .T.
IF (yTecla := yBROWSEarr( browse, arr)) == K_ESC
nchoice:=0
exit
ELSEIF YTECLA == K_ENTER
exit
ENDIF
ENDDO
com fundo cinza e quero fundo branco.
O Ideal seria essa tela que a wvwtools cria nao aparecer.
Só vi isso nessa tal de wvwtools isso é um burrice tamanha do cara que inventou essa wvw.