DBLCLICK dentro do XBROWSE não funciona

[jufer]

Desde que alterei o meu sistema operativo para Windows 10 que a função DbClick dentro do XBROWSE que deixou de funcionar.

REDEFINE XBROWSE oLbx FIELDS Padc(IF( ( cAlias )->Concilia,"S","N"), 7), ;

DTOC( ( cAlias )->Datam ), ;

( cAlias )->Descricao, ;

Num2Str( ( cAlias )->Receita, 12, 2 ), ;

Num2Str( ( cAlias )->Despesa, 12, 2 ), ;

( cAlias )->Plano, ;

( cAlias )->cheque, ;

dtoc(( cAlias )->datac) ;

HEADERS "Conc", Padc("Data", 10) , Padc("Descrição", 100), ;

"Receitas", "Despesas" , ;

Padc("Referência (Plano)", 100) , ;

"Cheque", "Data Ch." ;

FIELDSIZES 40, 70, 360, 80, 80, 380, 70, 70 ;

CELL LINES NOBORDER ;

JUSTIFY AL_CENTER, AL_CENTER, .F., .T., .T., .F., .T., AL_CENTER ;

COLOR CLR_BLACK, CLR_WHITE ;

ID 101 ;

OF oDlg CURSOR oHand ;

ON DBLCLICK ( MarcaCon( cAlias, oLbx, 2 ), oLbx:Refresh() )

Não sei qual a deficiência.

Alguém me pode ajudar?

Uso FWH 14.12, BCC582, xHarbour123 e xDevStudio V0.70

[JUDSON ROSA]

eu uso assim:

DEFINE DIALOG oDlg01 RESOURCE "BROW_GERAL" ICON oIco01 ;

title "Cadastro de Grupos"

oDlg01:lHelpIcon := .F.

oBro01 := TXBrowse():New( oDlg01 )

oBro01:nMarqueeStyle := MARQSTYLE_HIGHLROW

oBro01:nColDividerStyle := LINESTYLE_LIGHTGRAY

oBro01:nRowDividerStyle := LINESTYLE_LIGHTGRAY

oBro01:l2007 := .T.

oBro01:bClrHeader := {|| {CLR_BLACK,CLR_LGREEN} }

oBro01:bClrSelFocus := {|| {CLR_WHITE,CLR_LGREEN2} }

oBro01:bClrSel := {|| {CLR_BLACK,CLR_LGREEN} }

oBro01:bSeek := {|c| DbSeek( Upper( c ) ) }

oCol := oBro01:AddCol()

oCol:cHeader := "Código"

oCol:bStrData := { || grup->cdgr }

oCol:nDataStrAlign := AL_LEFT

oCol:nHeadStrAlign := AL_LEFT

oCol:nWidth := 100

oCol:bLClickHeader := {|| Checa_Indices(1,1,oBro01,"GRUP") }

oCol:AddBmpFile( "BMP\BLANK.BMP", .T. )

oCol:AddBmpFile( "BMP\CLIP.BMP", .T. )

oCol:nHeadBmpNo := 1

oCol := oBro01:AddCol()

oCol:cHeader := "Descrição"

oCol:bStrData := { || if(ltipo_banco = "MySQL",grup->descr,grup->desc) }

oCol:nDataStrAlign := AL_LEFT

oCol:nHeadStrAlign := AL_LEFT

oCol:nWidth := 500

oCol:bLClickHeader := {|| Checa_Indices(2,2,oBro01,"GRUP") } // , oDlg01:refresh() ,oBro01:refresh() }

oCol:AddBmpFile( "BMP\BLANK.BMP", .T. )

oCol:AddBmpFile( "BMP\CLIP.BMP", .T. )

oCol:nHeadBmpNo := 2

oBro01:SetRDD()

oBro01:CreateFromResource( 111 )

aEval( oBro01:aCols, { |oCol| oCol:bLDClickData := { || ( Click(), F_Sii1102( 1, "A") ) } } )

// Editar o tipo Com os teclas ENTER , INSERT , DEL

oBro01:bKeyDown := { | nKey | IF( nKey = VK_RETURN .or. nkey = VK_INSERT .or. nkey = VK_DELETE, ;

( Click(), F_sii1102( 1, if(nkey=VK_RETURN,"A",if(nkey=VK_INSERT,"I","E")) ), oBro01:refresh() , oBro01:SetFocus() ), ) }

oBro01:bClrStd := { ||{CLR_BLACK, IIF( ( oBro01:cAlias )->( OrdKeyNo() ) %2 == 0, ;

CLR_LGRAY , CLR_WHITE ) }}

oBro01:bChange := {|| oBro01:refresh() }

ACTIVATE DIALOG oDlg01 CENTER ON INIT ( Bar_Sii1102() )

[jufer]

Meu caro Judson,

Quer dizer que já não se pode usar mais DBLCLICK?

Quando consulto o arquivo TCBROWSE.CH está claro que a função está disponível. Será porque é incompatível com Windows 10?

Abraços

[JUDSON ROSA]

Nao sei explicar o porque , mas dessa forma eu uso e da certinho.

[sistem]

Jufer

uso da mesma maneira sua

aqui trabalha normal.. pode ser por causa da versao do FW ...minha versao eh 1512

talvez seja melhor atualizar a versao com o Gilmer

[kapiaba]

Veja:

c:\fwh..\samples\xbrowed.prg

[sistem]

opa, desculpa, uso assim:

  @ 0,0 XBROWSE oLbxAgen FIELDS Agen->Cod_Agen,;
                                Agen->Nom_Agen,;
                                Agen->Usu_Agen,;
                                Agen->Tim_Agen;
                        HEADERS "Cód.",;
                                "Agente Cobrador",;
                                "Usuário",;
                                "Data/Hora";
                        JUSTIFY .f., .f., .f., .f.;
                     FONT oFont ALIAS "AGEN" OF oWndAgen AUTOSORT LINES CELL

   oLbxAgen:nMarqueeStyle       := MARQSTYLE_HIGHLROW
   oLbxAgen:nColDividerStyle    := LINESTYLE_BLACK
   oLbxAgen:nRowDividerStyle    := LINESTYLE_BLACK
   oLbxAgen:lColDividerComplete := .t.
   oLbxAgen:lFooter             := .t.
   oLbxAgen:nFreeze             := 0
   oLbxAgen:bLDblClick          := { || EditAgen(oLbxAgen, .f.) }
   oLbxAgen:bClrSelFocus        := {|| { CLR_BLACK, CLR_FOCO } }
   oLbxAgen:bClrStd             := {|| { CLR_WHITE, If((Agen->(ORDKEYNO()))%2==0, CLR_BRW1, CLR_BRW2) } }
   oLbxAgen:bKeyDown            := {|nKey| BrwKeyAgen(nkey, oLbxAgen, oPesqComboAgen) }
   oLbxAgen:bRClicked           := { | nRow, nCol | BrwPopAgen(nRow, nCol, oWndAgen, oLbxAgen ) }

[jufer]

Boa tarde meus amigos,

Fiz a revisão toda depois de consultar os exemplos e os arquivos que me aconselharam e continua sem funcionar.

Um abraço

Jufer

[Marca]

Remova isso do final do seu redefine

ON DBLCLICK ( MarcaCon( cAlias, oLbx, 2 ), oLbx:Refresh() )

REDEFINE XBROWSE oLbx FIELDS Padc(IF( ( cAlias )->Concilia,"S","N"), 7), ;
DTOC( ( cAlias )->Datam ), ;
( cAlias )->Descricao, ;
Num2Str( ( cAlias )->Receita, 12, 2 ), ;
Num2Str( ( cAlias )->Despesa, 12, 2 ), ;
( cAlias )->Plano, ;
( cAlias )->cheque, ;
dtoc(( cAlias )->datac) ;
HEADERS "Conc", Padc("Data", 10) , Padc("Descrição", 100), ;
"Receitas", "Despesas" , ;
Padc("Referência (Plano)", 100) , ;
"Cheque", "Data Ch." ;
FIELDSIZES 40, 70, 360, 80, 80, 380, 70, 70 ;
CELL LINES NOBORDER ;
JUSTIFY AL_CENTER, AL_CENTER, .F., .T., .T., .F., .T., AL_CENTER ;
COLOR CLR_BLACK, CLR_WHITE ;
ID 101 ;
OF oDlg CURSOR oHand

oLbx:blDblClick := { | nRow, nCol, nFlags | MarcaCon( cAlias, oLbx, 2 ), oLbx:Refresh() }

Meu Five é 14.04 exatamente como o seu e funciona perfeitamente

[jufer]

Meus amigos,

Afinal o erro parece que foi meu porque pensei que na área do RESOURCE podia usar CALENDAR e afinal tenho que usar CUSTOM CONTROL.

Mas parece-me estranho que com CALENDAR não funcione.

Fiz a alteração do RESOURCE de CALENDAR para CUSTOM CONTROL e já funciona na perfeição.

Muito obrigado pela vossa prestação.

Um grande abraço para todos

JuFer