FiveTech Software tech support forums

... BTNBMP RESOURCE "Conecta"  SIZE 70,15 OF oDlg NOBORDER LEFT PROMPT "Rescatar Impresos" ACTION ( Rescata(aAlias,cini), oBrw1:SetFocus() )         @ 17, 10 Say oSay PROMPT titulopanta1 OF oDlg PIXEL SIZE 380,15 COLOR nRGb( 251, 151,  71 ...

Hola. usas un Get, yo lo uso asi

REDEFINE GET aGets[17] VAR codbarra ID 30 OF oDlg PICTURE "@!" UPDATE

aGets[17]:bKeyDown:={|nKey|If(nkey == VK_RETURN,BuscarProd( @codbarra,oBrw1,aPunto_A,oDlg,TotVal,aGets ), ) }

saludos

karinha wrote:

Code: Select all  Expand view

   oBrw1:Hide()
   y al hacer click() en el boton:
   oBrw1:Show()
 

Regards, saludos.

Hola João

Muchas gracias por responder.

Es lo que hago, , ahora encontre el error, un oBrw1:Open(), que tenia puesto que no correspondia.

Muchas gracias.

Saludos

Antonio

... coordinates to colorize https://i.postimg.cc/4d7Td1mk/hhh.png If I make For n= 1 to Len(aPos) nRow:= aPos[n][1] nCol:= aPos[n][2] oBrw1:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw1:nArrayAt=nRow, nColor1,CLR_WHITE) } } next it colorize only the last nRow , so I think it need ...

... DIALOG oDlg CENTERED ; ON INIT ( Refresh_data2(oDbf,oSay,oBrw2,nRadio),; //this call Crea_data2(oDbf,nRecord,oBrw2, nTipo ) Refresh_data1(oDbf,oBrw1,adataDbf),; // this call Crea_data1(adata,nRecord,oDbf,oBrw1) aGet[7]:nHeight:=21.2,; Eval(oDlg:bResized) ) If I change aData1 :={} aData2 :={} ...

Hola, En el browse oBrw1 utiliza el evento ::bChange para detectar los movimientos verticales. Cuando se produzca movimiento vertical entonces actualiza el oBrw2 oBrw1:bChange:= {|oBrw, lRow| If(lRow, Aqui_Actualizar_oBrw2, ...

Hola, En el browse oBrw1 utiliza el evento ::bChange para detectar los movimientos verticales. Cuando se produzca movimiento vertical entonces actualiza el oBrw2 oBrw1:bChange:= {|oBrw, lRow| If(lRow, Aqui_Actualizar_oBrw2, ...

Hola,

En el browse oBrw1 utiliza el evento ::bChange para detectar los movimientos verticales. Cuando se produzca movimiento vertical entonces actualiza el oBrw2

Code: Select all  Expand view

oBrw1:bChange:= {|oBrw, lRow| If(lRow, Aqui_Actualizar_oBrw2, NIL) }

Salu2

hay 2 Ejemplos: oBrw1:bLDblClick := { |nRow,nCol,nKeyFlags|(VerDisponibilidad(oBrw1),oBrw1:Refresh(),oDlg:End())} REDEFINE XBROWSE oLbx FIELDS cExi_Suca:ma_CodBar,cExi_SucA:ma_des1,Stock_PtoA(),PrecioA_1(); HEADERS "Cod.Barra","Descripcion","Stock","Pr.venta"; ...

... to change the list / array < aTextCol > to < AEval syntax > :?: http://www.service-fivewin.de/IMAGES/Textcol1.jpg oBrw1:bPainted  := < |hDC|       oBrw1:aCols[ 1 ]:bClrStd       := { || { aTextCol[ 1 ], CLR_BLACK } }      oBrw1:aCols[ ...

I would like to change the style at runtime from selection ( radio ) @ 10, 10 XBROWSE oBrw1 SIZE 850, 525 PIXEL OF oFld:aDialogs[ 1 ] ; COLSIZES 40, 110, 110, 200, 150, 70, 100, 100, 100, 80, 60, 120, 160 ; DATASOURCE oCustomer AUTOCOLS LINES NOBORDER FONT oFont2 ; ...

... on folderpage 1 the border-results selected on folderpage 2 are visible on pagechange as well like the background on folderpage 1 @ 10, 10 XBROWSE oBrw1 SIZE 850, 525 PIXEL OF oFld:aDialogs[ 1 ] ; COLSIZES 40, 110, 110, 200, 150, 70, 100, 100, 100, 80, 60, 120, 160 ; DATASOURCE oCustomer AUTOCOLS ...

trying to help #include "FiveWin.ch" #include "XBrowse.ch" function Main() local oDlg, oFld, oBrw1, oBrw2 local aDat1, aDat2 aDat1:={{"Row1-Col1","Row1-Col2","Row1-Col3"},; {"Row2-Col1","Row2-Col2","Row2-Col3"},; ...

amigos necesito de su ayuda.. tengo un xbrowse: oBrw1:aCols[1]:cHeader := "Codigo"+CRLF+'Barra' oBrw1:aCols[1]:cEditPicture := 'XXXXXXXXXXXXXXX' oBrw1:aCols[1]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,"",) } ...

... this image is displayed on record //selector in the place of the standard right arrow. //Advised to specify bitmap with size 16x16 or less . oBrw1:bClrSelFocus := { || { 0, 14540287 } } oBrw1:bClrSel := { || { 0, 15132365 } } oBrw1:nRecSelColor := 15512898 oBrw1:nRecSelWidth := 50 oBrw1:SetRecSelBmp( ...