Page 1 of 1
scroll en wbrowse 1.7 de Hernán
Posted:
Mon Feb 18, 2008 2:58 pm
by surGom
Hola a todos, porque cuando me posiciono sobre la flechita del scroll vertical de browse, cuando llego al tope o al fin de la vista no me refresca el browse y va cambiando solo la línea. Estuve buscando en los mensajes viejos del foro pero no pude encontrar nada al respecto.
Utilizo fwh26 Xharbour 0.99.61 y el Browse de Hernán
Gracias
Posted:
Mon Feb 18, 2008 6:05 pm
by ADBLANCO
Puedes poner el codigo donde se te comporta así
Posted:
Tue Feb 19, 2008 10:36 am
by surGom
Se reproduce el error en todos los casos que utilizo el wbrowse sea con campos como con vectores, hace como dos años que utilizan el sistema y nunca me había percatado del error, el sistema funcionaba antes con fw 16 bits y no había problemas, el wbrowse es la publicada en el foro
Gracias
REDEFINE LISTBOX oLbx FIELDS (oProex:calias)->proveedor, transform((oProex:calias)->forigen,"@d"),;
(oProex:calias)->factura ,transform((oProex:calias)->importe,"@e 999,999.99"),;
transform((oProex:calias)->valordol,"@e 999,999.99"),(oProex:calias)->remito,;
transform((oProex:cAlias)->fecha_f,"@d"),(oProex:calias)->cobranza,(oProex:calias)->despacho;
id 108 ON DBLCLICK cambio(oLbx,.f.,oProex) of odlg
oLbx:aheaders:= {"Proveedor","F. Factura","Factura","Importe","u$s","Remito","Fecha","Cobranza","Despacho"}
oLbx:aJustify := {HA_LEFT,HA_RIGHT,HA_LEFT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT}
oLbx:aHJustify :={HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER}
oLbx:aColSizes := {170,80,85,80,85,110,92,85,130 }
oLbx:bSkip = { | nRecs | oProex:Skipper( nRecs ) }
oLbx:nLineStyle := 3
oLbx:lAdjlastcol:= .T.
oLbx:nClrBackFocus := CLR_CYAN
oLbx:nClrForeFocus := CLR_WHITE
oLbx:nClrPane := { || iif(!empty(oProex:dolar),rgb(175,221,245),rgb(255,255,255)) }
Posted:
Tue Feb 19, 2008 5:17 pm
by ADBLANCO
prueba definiendo:
oLbx:cAlias:=oProex:calias
Posted:
Wed Feb 20, 2008 10:18 am
by surGom
No así tampoco. este código es la copia de otro hecho en 16 bits y funciona correctamente, en wbrowse de Hernán dice estar reparado este bug, pero...
fwh2.6, xharbour .99.61, workshop, verce.
Gracias
Posted:
Wed Feb 20, 2008 1:02 pm
by ADBLANCO
A mi se presento ese problema y era que desconocía la tabla, (en mysql)
y logré corregirla con
oLbx2:cAlias := "ARRAY"
Pero no creo que sea tu caso
Posted:
Thu Feb 21, 2008 5:50 pm
by Francisco Horta
surgom,
a mi no me pasa eso, y lo uso asi:
REDEFINE LISTBOX oBTmp ;
FIELDS Rg_Bmp(cBmp),;
(oDTmp)->TMP_DESCRI,;
Rg2_Bmp(cBmp2),;
Tran((oDTmp)->TMP_CANTID,"999,999.999"),;
Tran((oDTmp)->TMP_PREUNI,"9999,999.99"),;
Tran((oDTmp)->TMP_IMPORT,"9999,999.99") ;
HEADERS "","D E S C R I P C I O N","","CANT","PRECIO","IMPORTE" ;
SIZES 16,262,17,64,77,82 ;
ON DBLCLICK ( IF(oBTmp:nAtCol(nCol)==1,BorraPartidas(),) ) ;
WHEN (!DbEmpty(oDTmp) .AND. !lPago) ID 108 OF oDlg
oBTmp:cAlias := oDTmp
oBTmp:SetFont(oFnt[2])
oBTmp:bLogicLen := { || (oDTmp)->(OrdKeyCount()) }
oBTmp:aHJustify := { 2,2,2,2,2,2 }
oBTmp:aJustify := { 2,0,2,1,1,1 }
oBTmp:lAdjLastCol := .F.
oBTmp:lDrawFocusRect:= .T.
oBTmp:nHeaderHeight := 32
Posted:
Thu Feb 21, 2008 7:47 pm
by surGom
Antes que nada, les pido disculpas a todos los que se interesaron en el problema que me surgió. El error radicaba en que mi compilación (en la oficina) había agregado hace un tiempo wbrowse en el script, ya que estaba haciendo unas pruebas... y me olvidé. Como también trabajo en mi casa y en la empresa que usa el software, no me percataba del error ya que en la empresa llevo en un pendrive las fuentes y los compiladores en los cuales no hacía la llamada al wbrowse y sólo utilizaba la librería que contiene enlazados los prg del wbrowse.
Les pido mil disculpas por mi distracción
Luis
Posted:
Fri Feb 22, 2008 12:59 pm
by ADBLANCO
No te preocupes, eso ocurre hasta en las mejores Familias!