Mudar cor da linha atual no Browse

por **rubens** » 24 Abr 2014 15:22

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

@ 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

por **Toledo** » 25 Abr 2014 08:00

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,

por **rubens** » 25 Abr 2014 08:26

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

Rubens

por **Toledo** » 25 Abr 2014 11:01

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

Abraços,

por **asimoes** » 28 Abr 2014 20:20

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

por **asimoes** » 13 Mai 2014 19:31

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.

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