Extraño comportamiento en Xbrowse
Posted: Fri Jan 15, 2021 7:58 am
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:
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
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)}
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