Extraño comportamiento en Xbrowse

[groiss]

Buenos días, hoy os doy un poco la lata, porque me está pasando algo que nunca me ha pasado y no acabo de verle el sentido, les pongo el código:

Code: Select all

redefine XBROWSE olbx id 1001 OF odlg ARRAY aplanilla COLUMNS 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38;
   HEADERS "Nombre",str(day(dinicio),2,0)+CRLF+"L",str(day(dinicio+1),2,0)+CRLF+"M",str(day(dinicio+2),2,0)+CRLF+"W",str(day(dinicio+3),2,0)+CRLF+"J",str(day(dinicio+4),2,0)+CRLF+"V",;
   str(day(dinicio+5),2,0)+CRLF+"S",str(day(dinicio+6),2,0)+CRLF+"D",str(day(dinicio+7),2,0)+CRLF+"L",str(day(dinicio+8),2,0)+CRLF+"M",str(day(dinicio+9),2,0)+CRLF+"W",str(day(dinicio+10),2,0)+CRLF+"J",;
   str(day(dinicio+11),2,0)+CRLF+"V",str(day(dinicio+12),2,0)+CRLF+"S",str(day(dinicio+13),2,0)+CRLF+"D",str(day(dinicio+14),2,0)+CRLF+"L",str(day(dinicio+15),2,0)+CRLF+"M",;
   str(day(dinicio+16),2,0)+CRLF+"W",str(day(dinicio+17),2,0)+CRLF+"J",str(day(dinicio+18),2,0)+CRLF+"V",str(day(dinicio+19),2,0)+CRLF+"S",str(day(dinicio+20),2,0)+CRLF+"D",;
   str(day(dinicio+21),2,0)+CRLF+"L",str(day(dinicio+22),2,0)+CRLF+"M",str(day(dinicio+23),2,0)+CRLF+"W",str(day(dinicio+24),2,0)+CRLF+"J",str(day(dinicio+25),2,0)+CRLF+"V",str(day(dinicio+26),2,0)+CRLF+"S",str(day(dinicio+27),2,0)+CRLF+"D",;
   str(day(dinicio+28),2,0)+CRLF+"L",str(day(dinicio+29),2,0)+CRLF+"M",str(day(dinicio+30),2,0)+CRLF+"M",str(day(dinicio+31),2,0)+CRLF+"J",str(day(dinicio+32),2,0)+CRLF+"V",str(day(dinicio+33),2,0)+CRLF+"S",str(day(dinicio+34),2,0)+CRLF+"D","Fes","Noc";
   COLSIZES 210,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30 LINES CELL font ofont1
   olbx:nMarqueeStyle   :=MARQSTYLE_HIGHLCELL
   olbx:nColDividerStyle:=4
   oLbx:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
   oLbx:bClrSel := {|| { CLR_WHITE, CLR_GRAY } } // para barra de linea selecc cuando el control no tiene el foco
   oLbx:bClrSelFocus := { || { CLR_WHITE,CLR_BLUE } } // para barra de linea selecc cuando el control tiene el foco
   olbx:lFastEdit:= .f.
   olbx:lKinetic:=.f.
   olbx:lvscroll:=.t.
   olbx:lHscroll:=.t.
   olbx:nmovetype:=5
   olbx:bldblclick := { | nRow, nCol, nFlags | ;
                        ( oMenu := MenuBegin( .T. ),;
                            MenuAddItem( "A excel",, .F.,,{|oMenuItem| olbx:toexcel() } ,,,,,,, .F., ),;
                            MenuAddItem( "Cerrar",, .F.,,{|oMenuItem| (gesunidel(olbx,dinicio),cambiaplan(olbx,cnombre)) } ,,,,,,, .F., ),;
                          MenuEnd(),;
                          oMenu:Activate( nRow, nCol, olbx )) }
   olbx:brclicked:={ |nrow,ncol| gesunidia(nrow, ncol, olbx,cnombre ),cambiaplan(olbx,cnombre)}
 

y esto es lo que me ocurre


Al finalizar el recorrido de celda en celda por una línea, el cursor salta al inicio de la primera línea no desplazando las cuadrículas hacia la izquiera.
Me pasa por igual en varias versiones de FWH.
¿En donde he metido la pata?
Gracias.
Un saludo
José Luis

[CARLOS ATUNCAR]

Tambien he notado ese comportamiento cuando tienes varias columnas y te vas al final con CTRL+Fecha Derecha y luego das flecha derecha y se refresca la pantalla

[groiss]

+up

[nageswaragunupudi]

May we know the version of FWH you are using?
We tested and did not notice any such behavior with any of the recent versions of FWH.

[groiss]

Mr. Rao
Esto no me había pasado nunca, por eso creo que algo se me está escapando, pues hago mucho usu de la clase Xbrowsw y hasta este en particular no me ocurre, tanto con FWH 1904 como con FWH 2012
Muchas gracias
Un saludo

[nageswaragunupudi]

In the COLSIZES clause, please make the width of the last column 100 (instead of 30) and try again.
Please let us know the result.

Like this:

Code: Select all

COLSIZES 210,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,100 LINES CELL font ofont1

[groiss]

In the COLSIZES clause, please make the width of the last column 100 (instead of 30) and try again.
Please let us know the result.

Like this:

Code: Select all

COLSIZES 210,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,100 LINES CELL font ofont1

Mr. Rao, el resultado es el mismo, cuando alcanzo el margen derecho del xbrowse en lugar de desplazar las columnas hacia la izquierda, salta el cursor al margen izquierdo del xbrowse, he probado modificando nfreeze tampoco actua correctamente.
Ocurre aplicando estos dos estilos a las líneas MARQSTYLE_SOLIDCELL y MARQSTYLE_HIGHLCELL .
Muc chas gracias
Un saludo

[nageswaragunupudi]

Please remove the line oLbx:nMoveType := 5.
Do not specify any movetype and test please.

[groiss]

Please remove the line oLbx:nMoveType := 5.
Do not specify any movetype and test please.

Mr. Rao, cuando llego al final de la última columna visible del xbrowse, en lugar de hacer el extraño efecto anterior aparentemente sigue desplazando el cursor por la zona oculta, sin hacer el scroll horizontal que permita ver al usuario las celdas por las que se mueve el cursor.
Muchas gracias.
Un saludo.

[groiss]

Mr. Rao,
Alguna solución?
Muchas gracias.

Saludos

[nageswaragunupudi]

We are looking into it.
This may take some time to fix.