TcBrowse - () - O retorno

[AMBROSIO]

Ola caros Fivewiners!!!!

O que faria esta linha nao funcionar???

oBrowse:bKeyDown := { |nKey| IIF(nKey=VK_RETURN,Manut("2"), ) }

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

Editado por - ambrosio on 15/09/2010 11:40:31

Editado por - ambrosio on 17/09/2010 08:45:45

Editado por - ambrosio on 20/09/2010 10:15:00

[AMBROSIO]

Ola caros Fivewiners!!!!

O que faria esta linha nao funcionar???

oBrowse:bKeyDown := { |nKey| IIF(nKey=VK_RETURN,Manut("2"), ) }

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

Editado por - ambrosio on 15/09/2010 11:40:31

Editado por - ambrosio on 17/09/2010 08:45:45

Editado por - ambrosio on 20/09/2010 10:15:00

[Luisão]

Ambrosio, boa tarde!

Não é VK_RETURN, é só K_RETURN...

E se não der certo no bKeyDown, coloque no bKeyChar.

Eu sempre uso K_ENTER (que é o mesmo valor) no bloco bKeyChar.

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY + [Ghost/Java]Script

E-Mail: juninho.luisao@gmail.com

MSN: juninho_luisao@hotmail.com

Skype: luis.fernando.jr

[kapiaba]

Use o nFlags, como no exemplo abaixo:

oBrw:bLDblClick := { | nKey, nFlags | BROWFITA( nKey, ( DbFitas:cAlias ), ;

oBrw, oSay ) }

oBrw:bKeyDown := { | nKey, nFlags | Busca_Fitas( nKey, ( DbFitas:cAlias ), ;

oBrw, oSay ) }

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

oBrw:bLDblClick, mesma coisa que o VK_RETURN.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 14/09/2010 15:56:02

[AMBROSIO]

Colegas usei todas estas maneiras e nada...

eeeehhhh laiaaaaallllaaaa. Acho q vou tomar um cafezinnn e aproveitar pra ver a gata da telefonista....rss

oBrw:bKeyDown:={|nKey|IIF(nKey=K_RETURN,Manut("2"), ) }

oBrw:bKeyChar:={|nKey|IIF(nKey=K_RETURN,Manut("2"), ) }

oBrw:bKeyDown:={|nKey,nFlags| Manut("2") }

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

Editado por - ambrosio on 14/09/2010 16:00:14

[AMBROSIO]

A impressao que da eh que o ENTER desativa qdo crio oBrw.

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[AMBROSIO]

#include "topconn.ch"

#include "protheus.ch"

#include "rwmake.ch"

#include "vkey.ch"

//***********************

User Function Desemp_p()

Private aArea :=GetArea()

Private oFont1, oDlg1, cArq, cInd, oBrowse

//Cria_Temp()

//Use &cArq Alias SZE Shared New

dBselectArea("SZE")

SZE->(dbGoTop())

nKey:=0

oFont1 := TFont():New('Courier new',,-12,.T.)

@ 000,000 TO 600,1000 DIALOG oDlg1 TITLE "..: Consulta aos Parametros do Desempenho Diario de Producao :.."

oBrowse:=TcBrowse():New()(10,50,440,270,,,,oDlg1,,,,,{||},,oFont1,,,,,.F.,"SZE",.T.,,.F.,,,)

oBrowse:AddColumn(TCColumn():New("TITULO 1 " ,{||SZE->ZE_TIT01 } ,"!!!!!!!!!!!!!!!!!!!!",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("TITULO 2 " ,{||SZE->ZE_TIT02 } ,"!!!!!!!!!!!!!!!!!!!!",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("PRODUTO INI " ,{||SZE->ZE_CODINI } ,"!!!!!!!!!!!!!!!!!!!!",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("PRODUTO FIN " ,{||SZE->ZE_CODFIN } ,"!!!!!!!!!!!!!!!!!!!!",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("COLUNA " ,{||SZE->ZE_COLUNA } ,"9999",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("DIVISOR " ,{||SZE->ZE_DIVI } ,"9999",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("MULTIPLICADOR " ,{||SZE->ZE_MULT } ,"9999",,,"LEFT",60,.F.,.F.,,,,.F.,))

oBrowse:AddColumn(TCColumn():New("*" ,{||" " } ,"!",,,"LEFT",01,.F.,.F.,,,,.F.,))

oBrowse:bKeyDown := { | nKey, nFlags | Manut("2") }

@ 010,005 BUTTON " &Voltar " SIZE 40,12 ACTION Sair1()

@ 025,005 BUTTON " &Incluir " SIZE 40,12 ACTION(Manut("1"), oDlg1:Refresh(), oBrowse:Refresh(), oBrowse:SetFocus() )

@ 040,005 BUTTON " A&lterar " SIZE 40,12 ACTION(Manut("2"), oDlg1:Refresh(), oBrowse:Refresh(), oBrowse:SetFocus() )

@ 055,005 BUTTON " &Excluir " SIZE 40,12 ACTION(Manut("3"), oDlg1:Refresh(), oBrowse:Refresh(), oBrowse:SetFocus() )

ACTIVATE MSDIALOG oDlg1 CENTERED

SZE->(DbCloseArea())

//Ferase(cArq+".dbf")

//Ferase(cInd+".cdx")

RestArea(aArea) // restaura area anterior corrente

Return

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[kapiaba]

voce tem que desviar para uma funcao, e na funcao dizer:

IF nkey == VK_RETURN

DESVIO PARA ONDE EU QUE KRAY... KKKK

ENDIF

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

Exemplo completo

// Pesquisa Incremental 31/12/2002 Para os Cupons e Incorcam.prg

#include "FiveWin.ch"

#include "TCBrowse.ch"

#Define CLR_LGRAY RGB( 230, 230, 230 )

#Define CLR_LGREEN RGB( 190, 215, 190 )

#Define CLR_CHOCOLATE RGB( 238, 118, 33 )

#Define CLR_VERDEAGUA RGB( 0, 128, 128 )

#Define CLR_CREME nRGB( 255, 255, 235) // Cream color

//----------------------------------------------------------------------------//

MemVar cPesq

static oWnd

//----------------------------------------------------------------------------//

// Para Que a Tecla F8 NÆo Se Acione + de 1 vez

//Static lAtivo := .F. // By Ednaldo Rolim The Best... Muito Bom.

Function TCBFITAS( oGet, DbFitas )

Local oBrw, nI, aTestData, uVar, oBtn, oBtn2, oFont, oFnt, oIco

Local oWnd, oDlg, oBar, oMsg, nOldPos, oBrush, oBmpBrush

Local cName := "Testando...", oSay

Local nLinhaDialog := 5 // Linha Que Come‡a a Dialog

Local nColunaDialog := 5 // Coluna Que Come‡a a Dialog

Local nAlturaDialog := 390 // Altura da Dialog

Local nLarguraDialog := 745 // Largura da Dialog

Local nLinhaBrowse := 38 // Linha que Come‡a a Browse

Local nColunaBrowse := 10 // Coluna que Come‡a a Browse

Local cTitle := "Browse Para Pesquisa " + ;

"Incremental das Fitas(Produtora)"

Public cPesq

/*

// Para Que a Tecla F8 NÆo Se Acione + de 1 vez

If lAtivo // Se F8 J  estiver Acionado, Retornar Nulo.

Return Nil

Endif

*/

cPesq := ""

IF NetUse( "FITAS", .F. ) // Exclusive ‚ .F. Shared ‚ .T.

OrdListAdd( "FITAS", "MATRICULA", "CODIGO", "NOME_CLI" )

DATABASE DbFitas

DbFitas:Load() // Carrega as Fitas.dbf = Provisorio

DbFitas:SetBuffer( .T. )

ELSE

MsgStop( "Banco de Dados Bloqueado", "Cuidado!" )

RETURN NIL

ENDIF

SELECT ( DbFitas:cAlias )

GO TOP

SET ORDER TO 3

DBGOTOP()

// Define 'Tamanho'-(SIZE) da Fonte.

DEFINE FONT oFnt NAME "Arial" SIZE 0,12 BOLD // DIALOG

DEFINE FONT oFont NAME "Arial" SIZE 0,15 BOLD // LISTBOX

// Define Meu Brush na Dialog

DEFINE BITMAP oBmpBrush FILE "MARMORE.BMP"

DEFINE ICON OICO FILE ".\BRASIL__.BMP" // Um Öcone no Lado Esquerdo da Tela

DEFINE DIALOG oDlg FROM nLinhaDialog, nColunaDialog ;

TO nAlturaDialog, nLarguraDialog OF oWnd ;

TITLE cTitle ;

PIXEL ;

FONT oFnt ;

STYLE DS_MODALFRAME ;

ICON oIco

// Este Comando, Desliga Aquela ? Chata da Dialog que Pede o Help.

ODLG:LHELPICON := .F.

@ nLinhaBrowse, nColunaBrowse COLUMN BROWSE oBrw OF oDlg ;

SIZE 350, 135 ;

MESSAGE "Digite Nome Para Fazer a Pesquisa" ;

Alias ( DbFitas:cAlias ) ;

COLOR CLR_BLACK, CLR_HGRAY ;

PIXEL

//--- EDN - Duplo click sera o mesmo que VK_RETURN

//

// Vocˆ ‚ Um Show() Meu Caro Amigo Ednaldo...

//

oBrw:bLDblClick := { | nKey, nFlags | BROWFITA( nKey, ( DbFitas:cAlias ), ;

oBrw, oSay ) }

oBrw:bKeyDown := { | nKey, nFlags | Busca_Fitas( nKey, ( DbFitas:cAlias ), ;

oBrw, oSay ) }

// wmp // Muito Bom!!!

oBrw:nColOrder := 20

oBrw:cOrderType := "C"

oBrw:cSeek := ""

oBrw:nClrBackHead := CLR_LGREEN // Cor no fundo dos Headers - Cabe‡alhos

oBrw:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos

oBrw:aJustify := {.F., .F.} // Justifica os Cabe‡alhos Esq. .T. =Centro

oBrw:lLogicDrop := .t. // use crazy logic dropbox

oBrw:lNoHScroll := .F. // Scroll Bar, NÆo usar .t., Pois Aborta, se se clica na Barra

oBrw:nFreeze := 1 // Se Errar o Numero de Colunas, d  Array Access

oBrw:lMChange := .F. // Desabilta Mousemove

// Coluna dos Registros

ADD COLUMN TO BROWSE oBrw ; // O Browse

DATA Recno() ; // array element number

SIZE 100 ; // Tamanho da Fonte/DimensÆo

NOBAR ; // Sem barra luminosa(Cursor)

CENTER ; // Centraliza

COLOR CLR_BLACK, CLR_HGRAY ; // As Cores

HEADER OemToAnsi( "Registro" ) // O Cabe‡alho...

// Coluna das Matriculas dos Clientes

ADD COLUMN TO BROWSE oBrw ;

DATA ( DbFitas:cAlias )->Matricula ;

HEADER OemToAnsi( "Matricula " ) ;

SIZE 100 ;

COLOR CLR_BLACK, CLR_HRED ;

CENTER ;

NOBAR

// Coluna Com as Nome dos Clientes

ADD TO BROWSE oBrw ;

DATA PadR( Trim( ( DbFitas:cAlias )->Nome_Cli ), 26) ;

HEADER OemToAnsi( "Nome do Cliente" ) ;

COLOR CLR_HBLUE, CLR_LGREEN ;

EDIT MESSAGE "Nome do Produto no Banco de Dados" ;

SIZE 250

// Coluna Com as Codigo dos Produtos

ADD COLUMN TO oBrw ;

DATA ( DbFitas:cAlias )->Codigo ;

HEADER OemToAnsi( "C¢digo" ) ;

COLOR CLR_HRED, CLR_LGREEN ;

SIZE 250 ;

NOBAR

// Coluna Com as Descricao dos Produtos

ADD COLUMN TO oBrw ;

DATA ( DbFitas:cAlias )->Descricao ;

HEADER OemToAnsi( "Descri‡Æo" ) ;

COLOR CLR_HRED, CLR_LGREEN ;

SIZE 250 ;

NOBAR

// Coluna Com as Marcas dos Produtos

ADD COLUMN TO oBrw ;

DATA ( DbFitas:cAlias )->Marca ;

HEADER OemToAnsi( "Marca do Produto" ) ;

COLOR CLR_HRED, CLR_LGREEN ;

SIZE 250 ;

NOBAR

@ 0.2, 50 SAY "Digite Letras Iniciais Para Pesquisa " + ;

"Incremental do Nome do Produto Com No " + ;

"Maximo de 20 Digitos."+ CRLF + ;

" Duplo ou Para Editar, " + ;

" Para Abortar, " + ;

"Use BackSpace Para Apagar Letras." ;

OF oDlg SIZE 290,15 ;

FONT oFont ;

PIXEL ;

CENTER ;

COLOR CLR_CHOCOLATE, CLR_YELLOW

@ 03,343 BUTTON oBtn PROMPT "&Help" OF oDlg ;

SIZE 25,09 ;

MESSAGE "Ajuda da Pesquisa Incremental-By Karin" ;

PIXEL ;

ACTION {||MSGINFO( ;

OemToAnsi('OPیES Para Localizar:')+CRLF+CRLF+ ;

OemToAnsi('1§ ) - PESQUISA INCREMENTAL:')+CRLF+ ;

OemToAnsi('A Cada Letra Digitada, o Cursor, em Azul, Ir  Se') ;

+CRLF+ ;

OemToAnsi('Aproximando do Nome Procurado. ') ;

+CRLF+ ;

OemToAnsi('Em Geral, Bastam 3 ou 4 Letras, e o Nome Estar ') ;

+CRLF+ ;

OemToAnsi('Vis¡vel na Janela.') ;

+CRLF+ ;

OemToAnsi('Enquanto se Digita, o Texto Vai Sendo Visualizado') ;

+CRLF+ ;

OemToAnsi('na Etiqueta em Destaque. .') ;

+CRLF+ ;

OemToAnsi('Use Para Corrigir Erros ao Digitar.') ;

+CRLF+CRLF+ ;

OemToAnsi('2§ ) - SETAS ACIMA e ABAIXO, PageUp e PageDown.') ;

+CRLF+CRLF+ ;

OemToAnsi('3§ ) - Usando o Mouse Sobre a BARRA DE ROLAGEM') ;

+CRLF+ ;

OemToAnsi(' VERTICAL... Direita.')+CRLF+CRLF+ ;

OemToAnsi('Ap¢s Localizar o Nome, Pressione: ') ;

+CRLF+ ;

OemToAnsi('ou dˆ um Sobre o Nome Selecionado.') ;

+CRLF+CRLF+ ;

OemToAnsi('Se Desistir da Pesquisa, Pressione o BotÆo:') ;

+CRLF+ ;

OemToAnsi(' ou a Tecla ou . JoÆo'), ;

OemToAnsi('Help - Como Fazer a Pesquisar')), ;

oBrw:SetFocus() }

oBtn:ctooltip:=OemToAnsi( "Ajuda da" +CRLF+ ;

"Pesquisa" +CRLF+ ;

"Alt+H. " )

@ 03,002 BUTTON oBtn2 ;

PROMPT "&Cancela" OF oDlg ;

SIZE 34,10 ;

ACTION { || oDlg:End() } ;

MESSAGE "Cancelar a Pesquisa" ;

PIXEL

oBtn2:ctooltip:=OemToAnsi( "Cancelar a"+CRLF+ ;

"Pesquisa "+CRLF+ ;

"Alt+C" )

@ 20.2, 1 SAY "-Sair" ;

Size 40,08 OF oDlg ; //30,08

PIXEL ;

CENTER ;

COLOR CLR_HRED, CLR_YELLOW

@ 20, 50 SAY "Digite Nome: " Size 100,08 OF oDlg ;

PIXEL ;

COLOR CLR_HBLUE, CLR_CHOCOLATE

@ 20, 112 SAY oSay prompt cPesq Size 100,08 OF oDlg ;

PIXEL ;

CENTER ;

COLOR CLR_HRED, CLR_YELLOW

@ 20, 212 SAY OemToAnsi( " Suporta No M ximo 20 D¡gitos." ) ;

OF oDlg SIZE 100,08 ;

FONT oFont ;

PIXEL ;

CENTER ;

COLOR CLR_RED, CLR_CHOCOLATE

oBrw:bChange := {|| cPesq := "" , oSay:Refresh() }

SET FONT OF oBrw TO oFont // ListBox

SET FONT OF oDlg TO oFnt // Dialog

// Para Que a Tecla F8 NÆo Se Acione + de 1 vez

//lAtivo := .t. // Aqui F8 Se Reativa

ACTIVATE DIALOG oDlg CENTERED ;

ON PAINT MEUBRUSH( oDlg, oBmpBrush ) ;

ON INIT oBrw:DrawSelect() ;

/*

//--- EDN: By Ednaldo

if !GetAsyncKeyState( VK_ESCAPE ) // se nao teclou ESC para sair

oGet:Varput( (DbFitas:cAlias)->CODIGO ) // poe o codigo no get do produto

endif

*/

EndDialog()

ResAllFree()

oFont:End()

oFnt:End()

// Seta o Foco da quantidade e valor

//xFocuss(oGet)

// Para Que a Tecla F8 NÆo Se Acione + de 1 vez

//lAtivo := .F. // Aqui F8 Se desativa

DbFitas:Close()

return nil

//----------------------------------------------------------------------------//

Function Busca_Fitas( nKey, Alias, oBrw, oSay, oLbx )

Local nOldPos := (Alias)->(Recno())

Local oSay3, cPos

//--- EDN:

If nKey = VK_RETURN // se o Usuario teclou RETURN

BROWFITA( Alias, oBrw:Refresh(), oBrw:SetFocus() )

Endif

// Se Usuário Teclar , Aborta.

If nKey = VK_ESCAPE

oBrw:oWnd:End()

Endif

// Backspace Para Apagar Caracteres Digitados

If nKey==VK_BACK

If Len(cPesq) > 0

cPesq:=Left(cPesq,Len(cPesq)-1)

Else

Tone(500,1)

Return(.F.)

Endif

Endif

If (nKey>=32.and.nKey<=255).or. ;

nKey=VK_BACK

If nKey!=VK_BACK

cPesq+=UPPER(Chr(nKey))

Endif

If !(Alias)->(DbSeek(cPesq))

cPesq := Left(cPesq,Len(cPesq)-1)

MsgStop( "Atenção: Esta Combinação de Letras" + CRLF + ;

"Não Existe, Tente Outra." )

DbGoto(nOldPos)

Tone(500,1)

oBrw:Refresh()

Return(.F.)

Endif

oBrw:Refresh()

oBrw:SetFocus()

oBrw:DrawSelect()

Endif

If oSay!=Nil

oSay:cTitle(cPesq) // Mostra o que foi digitado

Endif

Return(.t.)

// FIM DO PROGRAMA

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AMBROSIO]

Vc diz assim , Kapi? Tbm nao deu certo...desculpa a "ing"

oBrowse:bKeyDown := { |nkey, nFlags| Manut("2", nKey) }

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[kapiaba]

Leia, veja onde eu disparo para:

Busca_Fitas( nKey, Alias, oBrw, oSay, oLbx )

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AMBROSIO]

heheheh,,kapi,,juro q eu to lendo!!!!

oBrowse:bKeyDown := { |nkey, nFlags| Manut("2", nKey) }

nao to entendendo...hoje eu estou mais loiro que o normal..rss

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[kapiaba]

Menino pelo amor de Deus, vc. tá cego?? kkkk

Veja:

//--- EDN - Duplo click sera o mesmo que VK_RETURN

//

// Vocˆ ‚ Um Show() Meu Caro Amigo Ednaldo...

//

oBrw:bLDblClick := { | nKey, nFlags | BROWFITA( nKey, ( DbFitas:cAlias ), ;

oBrw, oSay ) }

oBrw:bKeyDown := { | nKey, nFlags | Busca_Fitas( nKey, ( DbFitas:cAlias ), ;

oBrw, oSay ) }

Agora olhe na funcao o

IF NKEY = VK_RETURN

// FAÇA O QUE QUISER

ENDIF

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

Funcao:

Function Busca_Fitas( nKey, Alias, oBrw, oSay, oLbx )

Local nOldPos := (Alias)->(Recno())

Local oSay3, cPos

//--- EDN:

If nKey = VK_RETURN // se o Usuario teclou RETURN

BROWFITA( Alias, oBrw:Refresh(), oBrw:SetFocus() )

// faça o que quiser aqui

Endif

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AMBROSIO]

Vc eh adivinho Kapi... sou loiro e uso oculos kkkkkkk

Puxa vida...bastaria vc me dizer pra usar o bLDblClick e bKeydown em conjunto. heheh

Agora deu certo.

Ow, cego tbm nao tah... soh um pouco de vagar..rsrsrsr

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[kapiaba]

kkkkkkkkkkkkkkkk,

Abraços, vc. é um Show() Muleke!!

Sorte!!

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AMBROSIO]

Assim funciona...

oBrowse:bLDblClick := { |nkey, nFlags| Manut("2") }

oBrowse:bKeyDown := { |nkey, nFlags| IF(nKey=VK_RETURN,Manut("2"),) }

Assim nao funciona

//oBrowse:bLDblClick := { |nkey, nFlags| Manut("2") }

oBrowse:bKeyDown := { |nkey, nFlags| IF(nKey=VK_RETURN,Manut("2"),) }

Valeu "Professor"

Ah! Soh nao entendi ainda o pq do "nFlags" rsss

Tirei e funcionou tambem.. heheheh

Abraço

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

Editado por - ambrosio on 14/09/2010 16:59:58

Editado por - ambrosio on 14/09/2010 17:01:15

[kapiaba]

Putz, nem eu ´alembro´mais, mas eu acho, que quando se desvia para uma funcao, precisa dele para controlar não sei oque.... kkkkkk

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AMBROSIO]

Pegando uma carona !!!

Aproveito pra perguntar: Tem como criar duas linhas de cabeçalho com o TcBrowse?

ex:

"Codigo Descricao Unidade Preço "

"Produto Resumida de Medida Unitario "

------------------------------------------------

999999999 xxxxxxxxx xx 9999,99

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[AMBROSIO]

Quem procura acha!!!! heheheh

oBrw:AddColumn(TCColumn():New("TITULO1"+CRLFid=red>+"TITULO2" ,{||DESEMP->CABEC } ,"@!",,,"LEFT",60,.F.,.F.,,,,.F.,))

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[AMBROSIO]

Como eu faço pra deixar a barra Horizontal coluna a coluna e nao em toda a linha ? Ou pelo menos diferenciar a do cursor eqto movimento pelo Browse pra eu saber exatamente em que x,y (celula) eu estou...

Acreditem procurei em samples, no forum e nao achei, ACHO Q AMANHA VOU PRO OFTALMO sinto q meu oculos nao ta legal! rss

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL

isso funciona so pro TxBrowse?

aGRADEÇO

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

Editado por - ambrosio on 17/09/2010 09:10:58

Editado por - ambrosio on 17/09/2010 14:24:06

[kapiaba]

Olhe na classe.

Mostre uma imagem do que queres.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AMBROSIO]

Ja dei uma olhada na classe... putz, nao sei nem como mandar uma imagem por aqui.

Eu soh quero que o cursor do meu browse fique pequeno tipo EXCEL celula a celula... como eu posto imagem nisso aki essa eu pago em "brejas" pois nao tah no topico..rsss

Ehhhh o fim da gota mesmo!!! Hoje vai sobrar bicuda nas canelas dos meus adversarios no "futeba" se bobear faço ate um gol contra... TUDO PRA RELAXAR...rsss

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[kapiaba]

// tudo que tenho, testa ai

oLbx:nColOrder := 20

oLbx:cOrderType := "C"

oLbx:cSeek := ""

oLbx:nClrBackHead := CLR_LGREEN // Cor no fundo dos Headers - Cabe‡alhos

oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos

oLbx:nClrBackFocus := CLR_HRED // Cor do Cursor Em Cima do Ötem

oLbx:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa

oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos

oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse

oLbx:aJustify := {.F., .F.} // Justifica os Cabe‡alhos Esq. .T. =Centro

oLbx:lLogicDrop := .t. // use crazy logic dropbox

oLbx:lNoHScroll := .F. // Scroll Bar, NÆo usar .t., Pois Aborta, se se clica na Barra

oLbx:nFreeze := 1 // Se Errar o Numero de Colunas, d  Array Access

oLbx:lMChange := .F. // Desabilta Mousemove

oLbx:SetFocus() // Refocus on The Browse

oLbx:Refresh() // Estabiliza o Browse/Listbox

// ( Pinta os Dados Novamente )

oBrw:nColOrder := 20 // 30 ‚ muita coisa...

oBrw:cOrderType := "C"

oBrw:cSeek := ""

oBrw:nClrBackHead := CLR_LGREEN // Cor no fundo dos Headers - Cabe‡alhos

oBrw:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos

oBrw:aJustify := {.F., .F.} // Justifica os Cabe‡alhos Esq. .T. =Centro

// Mostra os Nomes na Browse com as linhas e colunas

oBrw:lLogicDrop := .t. // use crazy logic dropbox

oBrw:lNoHScroll := .F. // Scroll Bar, NÆo usar .t., Pois Aborta, se se clica na Barra

oBrw:nAdjColumn := 3 // expand this column to flush table right

oBrw:nFreeze := 1 // Se Errar o Numero de Colunas, d  Array Access

oBrw:lMChange := .F. // Desabilta Mousemove

/* Comments

//WMP // Eliminado

*oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) }

*oBrw:lNoLiteBar := .T. // NÆo Liga o Cursor(barra azul) em cima do nome

*oBrw:lNoGrayBar := .t. // get rid of that ugly gray bar on lost focus

*oBrw:lMChange := .t. // set false to prevent Mouse colm resize/drag

//WMP

*/

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe