Moderador: Moderadores
HASA escreveu::))
OLÁ FAÇA O SEGUINTE:
LOCAL bColor := { || if ( (ordkeyno() /2) == int(ordkeyno() /2) , RGB(240,240,240), RGB(211,237,250) ) } && SERÃO AS CORES
NO FINAL GRID ACRESCENTE A LINHA:
DYNAMICBACKCOLOR { bColor, bColor, bColor } && IMAGINE QUE ESSE GRID TEM 3 COLUNAS OK
:xau
HONÓRIO
/*
Pesquisa Letra a Letra no Browse da MiniGUI
Para fazer o exemplo funcionar é necessário ter um arquivo
chamado Clientes com os campos Nome e Codigo... Só isso.
Stanis Luksys
*/
#include "minigui.ch"
#define MsgInfo( cTexto ) MsgInfo( cTexto, "Informação" )
/* Funçao principal... Cria os objetos */
Function main()
use clientes shared new
if ! file ( "i_nomecli.ntx" )
index on nome to i_nomecli
endif
set index to i_nomecli
// Janela Principal
DEFINE WINDOW Janela ;
AT 0, 0 ;
WIDTH 460 ;
HEIGHT 480 ;
TITLE "Stanis Luksys Software - www.luksyssoft.com.br" ;
MAIN ;
ON PAINT Janela_OnPaint()
// Browse
@ 20, 20 BROWSE oBrw ;
WIDTH Janela.Width - 44 ;
HEIGHT Janela.Height - 150 ;
WORKAREA clientes ;
WIDTHS { 80, 315 } ;
HEADERS { "CÓDIGO", "NOME" } ;
FIELDS { "CODIGO", "NOME" } ;
FONT "Tahoma" SIZE 9 ;
TOOLTIP "Clique duas vezes para selecionar um cliente." ;
ON CHANGE dbGoto( this.value ) ;
ON DBLCLICK MsgInfo( "CLIENTE CÓDIGO: " + codigo + chr(13)+ nome )
// Frame
@ Janela.Height - 110, 20 FRAME oFrame ;
WIDTH Janela.Width - 44 ;
HEIGHT 50 ;
FONT "Tahoma" SIZE 9 ;
CAPTION "Pesquisar pelo Nome"
// TextBox
@ Janela.Height - 90, 30 TEXTBOX oText ;
WIDTH Janela.Width - 69 ;
HEIGHT 20 ;
FONT "Tahoma" SIZE 9 ;
UPPERCASE ;
TOOLTIP "Informe o nome do cliente a ser procurado." ;
ON ENTER MsgInfo( "CLIENTE CÓDIGO: " + codigo + chr(13)+ nome ) ;
ON CHANGE oText_OnChange()
END WINDOW
Janela.oText.SetFocus()
Janela.Center()
Janela.Activate()
close clientes
Return ( NIL )
/* Evento on paint da Janela Principal */
Function Janela_OnPaint()
// Reajusta Browse
Janela.oBrw.Width := Janela.Width - 44
Janela.oBrw.Height := Janela.Height - 150
// Reajusta Frame
Janela.oFrame.Row := Janela.Height - 110
Janela.oFrame.Width := Janela.Width - 44
// Reajusta TextBox
Janela.oText.Row := Janela.Height - 90
Janela.oText.Width := Janela.Width - 69
Return ( NIL )
/* Evento on change do objeto oText. Responsável pela pesquisa letra a letra */
Function oText_OnChange()
local cPesq := AllTrim ( Janela.oText.value )
set softseek on
seek cPesq
set softseek off
Janela.oBrw.value := recno()
Return ( NIL )
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes