PC Toledo

Como mudar a cor da linha atual do Browse()

na figura abaixo a linha do produto 90036 está com a fonte preta e o fundo branco... Como faço para alterá-la?

Código da definição do Browse

Código: Selecionar todos

@ 0,0 BROWSE grid_pesquisa;
		WIDTH 1010;
		HEIGHT 545;
		HEADERS {'Código','Descrição','Pr Venda'};
		WIDTHS {220,620,150};
		WORKAREA pro;
		FIELDS {'pro->codbarra','pro->nompro_','pro->prvendal_'};
		font 'courier new' size 16 bold;
		nolines;
		justify {BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_RIGHT};
		DYNAMICBACKCOLOR {bColor,bColor,bColor} ;
 		DYNAMICFORECOLOR {fColor,fColor,fColor} ; 		
		on dblclick (_codprod := pro->codpro_,_retorno_prod := .T., mostra_produto(pro->codbarra,pro->nompro_,pro->und_,pro->prvendal_));

Obrigado
Rubens

Rubens com o Browse não consegui encontrar uma maneira de mudar a cor do cursor.

Se você estiver usando a MiniGui Extended, veja exemplos do TsBrowse (\SAMPLES\Advanced\TsBrowse) onde você pode usar a função SetColor() para definir as cores (CLR_FOCUSF e CLR_FOCUSB) da linha com foco (cursor).

Abraços,

Toledo mas aí vai ter que trocar o browse pelos tsbrowse ?

Rubens

Sim, se realmente for necessário definir as cores do cursor, acho que a única maneira é com o TsBrowse.

Abraços,

Rubens,

O problema é que quando o browse perde o foco para fazer a pesquisa você teria que ter o controle sobre o DYNAMICBACKCOLOR E DYNAMICFORECOLOR o objeto browse não permite isso.

Ele é somente definition

· DynamicBackColor "(D)"
· DynamicForeColor "(D)"

D: Available at control definition only

Rubens,

Achei este exemplo com grid faz o que você tá querendo.

Procura na pasta samples D:\Minigui\SAMPLES\BASIC\Grid_4

Esse é o pulo do gato.

Código: Selecionar todos

Procedure OnInitGrid()

   CellNavigationColor( _SELECTEDCELL_FORECOLOR, { 199 , 250 , 225 } )
   CellNavigationColor( _SELECTEDCELL_BACKCOLOR, { 7 , 71 , 41 } )

   CellNavigationColor( _SELECTEDROW_FORECOLOR, { 199 , 250 , 225 } )
   CellNavigationColor( _SELECTEDROW_BACKCOLOR, { 7 , 71 , 41 } )

   Form_2.Grid_2.SetFocus

Return

PC Toledo

Mudar cor da linha atual no Browse

Mudar cor da linha atual no Browse

Mudar cor da linha atual no Browse

Mudar cor da linha atual no Browse

Mudar cor da linha atual no Browse

Mudar cor da linha atual no Browse

Mudar cor da linha atual no Browse