Mudar cor da linha atual no Browse

[rubens]

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

[Toledo]

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,

[rubens]

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

Rubens

[Toledo]

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

Abraços,

[asimoes]

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

[asimoes]

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