topic-20606

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Deshabilitar AVpag y RePag en xbrowse
Posted: Wed Jan 05, 2011 09:44 AM

Buenos dias

Cuando presiono en un xbrowse cualquiera de éstas dos teclas, me refresca el browse de mala manera, Que forma hay de deshabilitar éstas dos teclas?

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

Saludos

Jose Luis

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: Deshabilitar AVpag y RePag en xbrowse
Posted: Sat Jan 08, 2011 12:55 AM

Hola Jose Luis:

Publica como declaras el xBrowse, porque no tiene porque hacer ningun efecto extraño, yo los uso con cientos de miles de registros y funciona perfectamente.

Un saludo
JLL
MSN: fwh-jll@hotmail.es

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Re: Deshabilitar AVpag y RePag en xbrowse
Posted: Mon Jan 10, 2011 07:45 AM

Ahí va

Code (fw): Select all Collapse

   @ 0,0 XBROWSE oBrw ;
      HEADERS ahead;
      SIZE 260,320 PIXEL ;
      COLSIZES ,205,15,150,20,150,20,150,20,150,20,150,20,150,20,150,20 ;      
      JUSTIFY AL_CENTER;
      OF oDlg1 ARRAY aData FASTEDIT FOOTERS AUTOCOLS LINES CELL
      oBrw:bClrSelFocus    := { || { CLR_BLUE, nRGB( 230, 255, 230 ) } }
      oBrw:lColDividerComplete := .f.
      oBrw:lKineticBrw         := .f.
      oBrw:nTop    := oDlg1:nTop()
      oBrw:nBottom := oDlg1:nheight()
      oBrw:nRight  := oDlg1:nWidth()
      oBrw:Domingo:bClrStd          := { || { CLR_BLACK, nRgb(255,128,128) } }
      oBrw:Sabado:bClrStd          := { || { CLR_BLACK, nRgb(255,236,129) } }
      oBrw:nStretchCol := STRETCHCOL_LAST
      oBrw:Setfocus()
      AEval( oBrw:aCols, { |o| o:nEditType := 1 } )
      oBrw:Codigo:nEditType:=0
      oBrw:Nombre:nEditType:=0
      oBrw:T:nEditType:=0
      oBrw:nFreeze:=3
      for n:=4 to 17
      oBrw:aCols[n]:cEditPicture:="@!"
      next
      oBrw:Lunes:bClrStd      := { || Colores(oBrw,'Lunes')}
      oBrw:Martes:bClrStd     := { || Colores(oBrw,'Martes')}
      oBrw:Miercoles:bClrStd  := { || Colores(oBrw,'Miercoles')}
      oBrw:Jueves:bClrStd     := { || Colores(oBrw,'Jueves')}
      oBrw:Viernes:bClrStd    := { || Colores(oBrw,'Viernes')}
     WITH OBJECT oBrw
      // Make Groups
      :SetGroupHeader(s1, 4,  5, oBold )
      :SetGroupHeader(s2, 6,  7, oBold )
      :SetGroupHeader(s3, 8,  9, oBold )
      :SetGroupHeader(s4,10, 11, oBold )
      :SetGroupHeader(s5,12, 13, oBold )
      :SetGroupHeader(s6,14, 15, oBold )
      :SetGroupHeader(s7,16, 17, oBold )
      :lAllowColReGroup := .t.  // columns can be moved accross groups
      END
      oBrw:Codigo:lMergeVert   := .t.
      oBrw:Nombre:lMergeVert   := .t.
      oBrw:bKeyDown :={ | nKey | Teclas(nKey, oBrw,nret),oBrw:Refresh()}  
      oBrw:CreateFromCode()
      oBrw:Setfocus()
      titulo:=Titulo+s1+" AL "+s7
      barra1(oDlg1,oBrw,titulo)

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

Saludos

Jose Luis

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Deshabilitar AVpag y RePag en xbrowse
Posted: Tue Jan 11, 2011 06:59 AM

Please post a self contained sample code which we can compile at our end and test, so that we can give you a better solution.

Regards

G. N. Rao.

Hyderabad, India

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Re: Deshabilitar AVpag y RePag en xbrowse
Posted: Tue Jan 11, 2011 07:48 AM

Bueno, he delimitado el error.

Este error de repintado, ocurre sólo en las columnas que tengan la Data lmergevert:=.t., no obstante, al pasar el ratón por encima, se repintan correctamente.

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

Saludos

Jose Luis

FiveTech Support Forums

Continue the discussion