PC Toledo

esta tela consulta letra a letra por ID, NOME CLIENTE, CPF/CNPJ, FONE e ele esta sempre classificada por NOME CLIENTE

pesquisando por MARCE , já traz todos os nomes que tem MARCE em qualquer posição

mesma tela pesquisando pelo telefone continua classificado pelo nome mas a pesquisa é automática por outro campo

boa noite itamar .. blz ?? tu pode compartilhar o codigo de como tu vez o zebrado e as cores ? ficou bem legal .. gostaria de por no meu browse ...

Abraço!!

Deivid

Olá!
Então, começa : @ nColuna, nLinha browse ... etc
Depois as colunas, -> Add Column ... etc
E depois as cores e a ordem quando clicar no head do browse.

Código: Selecionar todos

   For n:=1 to 16
      oBrw:aColumns[n]:bHeadClick := {|oBj,nCol| OrdEstoque(oBj,nCol,oBrw,cBrwModelo,oDlg) }
   Next
   
   For n := 1 to 15
     oBrw:aColumns[n]:bColorBlock := {|| CoresEstoque(oBrw) }
   Next

Dai na FUNÇÃO CoresEstoque vc coloca o ARRAY de CORES. São 3 X 3 e não 2 x 2 como tem exemplo por ai.

Código: Selecionar todos

***************************
Function CoresEstoque(oBrw)
***************************
*
LOCAL aCor:= IF(MOD(oBrw:nPaintRow, 2) = 0, {hwg_BLACK, hwg_ALICEBLUE,0, hwg_ALICEBLUE, hwg_WHITE, hwg_GREEN}, + ;
                                            {hwg_BLACK, hwg_WHITE , 0, hwg_WHITE, hwg_WHITE, hwg_GREEN }) 

if eq->quantidade < 0   //Vermelho
   aCor := if(mod(oBrw:nPaintRow,2)=0, {hwg_RED, hwg_ALICEBLUE,0, hwg_CYAN,hwg_WHITE, hwg_DARKBLUE}, + ;
                                       {hwg_RED, hwg_WHITE,0, hwg_WHITE, hwg_WHITE, hwg_DARKBLUE })
   RETURN aCor
endif
Return aCor

Vc pode por, cores diferentes para as situações ai.
No arquivo nome_do_exe.ch ou no própio PRG. Pq vc chama para os diversos .prg se precisar.

Código: Selecionar todos

#define hwg_ALICEBLUE  16775408
#define hwg_BANANA      5754851
#define hwg_BISQUE_1   12903679
#define hwg_BLACK             0
#define hwg_BLUE       16711680
#define hwg_BROWN       2763429
#define hwg_CYAN       16776960
#define hwg_DARKBLUE   10027008
#define hwg_GREEN         32768
#DEFINE hwg_GREEN_4       35584
#define hwg_GRAY        8421504
#define hwg_SILVER_1   0x787878
#DEFINE hwg_MINT       13237437
#define hwg_ORANGE        42495
#define hwg_RED             255
#define hwg_YELLOW        65535
#define hwg_WHITE      16777215
#define hwg_light_goldenrod_1 	9170175

E as bolinhas é assim:
Na primeira coluna do browse vc coloca só essa linha ai de baixo.

Código: Selecionar todos

      Add Column {||" "} to oBrw  Header ' ' Type 'C' Length 2 Justify Line DT_RIGHT Justify Head DT_CENTER

E no final no mesmo lugar dos comandos para ZEBRAR e ORDENAR.

Código: Selecionar todos

   oBrw:aColumns[1]:aBitmaps := ;
	{ { {|| SinalPreto() }, oBitPreto }, { {|| SinalAmarelo() }, oBitAmarelo }, { {|| SinalVermelho() }, oBitVermelho },{ {|| SinalAzul() }, oBitAzul }, { {|| SinalVerde() }, oBitVerde } }

E a função mais abaixo com as situações.

Código: Selecionar todos

Static Function SinalPreto
Local lRet := .f.
if eq->(deleted())
	lRet := .t.
endif
return lRet

Conforme for! Então vc tem os recursos das cores e dos BITMAPS para melhorar os recursos do sistema.

Saudações,
Itamar M. LIns Jr.

Olá!
Vc pode zebrar uma coluna, duas... toda a linha do browse. conforme vc viu nos códigos.

Depende do FOR NEXT, inclusive PULAR. coluna 1, 3, 8

Saudações,
Itamar M. Lins Jr.

Olá!
Sim já ia me esquecendo, no inicio do PRG a chamada dos BITMAPS.

Código: Selecionar todos

 
local obitAzul     := hbitmap():AddResource( 'BolaAzul' )
local obitVermelho := hbitmap():AddResource( 'BolaVermelha' )
local obitBranco   := hbitmap():AddResource( 'BolaBranca' )
local obitAmarelo  := hbitmap():AddResource( 'BolaAmarela' )
local obitVerde    := hbitmap():AddResource( 'BolaVerde' ) 
local obitPreto    := hbitmap():AddResource( 'BolaPreta' )
local obitCinza    := hbitmap():AddResource( 'BolaCinza' )

Saudações,
Itamar M. Lins Jr.

A apresentação deste browse do Fernando queiroz está muito boa, simples e fácil de visualizar, gostei do exemplo

PC Toledo

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.

Browse da Hwgui que acho simples de fazer.