Página 1 de 1
Cambio de TDbBrowse a TDbBrowseMod
Publicado: Sab Abr 10, 2021 1:06 pm
por mcastabaron
Buenos días,
Adjunto una imagen con una pequeña corrección.
Saludos.
Miguel.
Re: Cambio de TDbBrowse a TDbBrowseMod
Publicado: Lun Abr 12, 2021 11:27 am
por mcastabaron
Buenos días,
Por otro lado, cuando el dataset es una dbf no muestra los datos (imágen adjunta).
Sin embargo, si el datset es una sql si los muestra.
Saludos.
Miguel.
Re: Cambio de TDbBrowse a TDbBrowseMod
Publicado: Lun Abr 12, 2021 5:08 pm
por ignacio
Buenas tardes,
Ambos problemas corregidos. Estarán disponible en la próxima versión. Gracias por su colaboración.
Un saludo
Re: Cambio de TDbBrowse a TDbBrowseMod
Publicado: Vie Jun 11, 2021 9:24 am
por mcastabaron
Buenos días,
Veo que en TDbBrowseMod faltan algunas propiedades que están en TDbBrowse como lAutoOrder, lAutoSeek, nRowDividerStyle,...y que en las columnas de TDbBrowseMod están las propiedades pero no hay ningún evento.
¿Se incluirán más adelante?
Saludos.
Miguel C.
Re: Cambio de TDbBrowse a TDbBrowseMod
Publicado: Vie Jun 11, 2021 10:39 am
por ignacio
Buenos días,
lAutoOrder
lAllowSort
lAutoSeek
Es automático cuando una columna está ordenada y lFastEdit es .F.
nRowDividerStyle
Me temo que esto no se va a hacer. Entendemos que es un diseño que ya se usa muy poco y además lo puede hacer usted mismo fácilmente.
Código: Seleccionar todo
METHOD BrowseMod1DrawCell( oSender, oCol, nIndex, xValue, cValue, nImage, nClrText, nClrPane, nState, hDC, aRect ) CLASS TForm1
LOCAL hPen
hPen := CreatePen( PS_SOLID, 1, clRed )
MoveTo( hDC, aRect[ rtLEFT ], aRect[ rtBOTTOM ] -1)
LineTo( hDC, aRect[ rtRIGHT ], aRect[ rtBOTTOM] -1, hPen)
DeleteObject( hPen )
RETURN NIL
y que en las columnas de TDbBrowseMod están las propiedades pero no hay ningún evento.
Ahora todos los eventos se rutan UNICAMENTE sobre el Browse. Las ventajas son evidentes, como puede observar de su pregunta anterior.
Un saludo
Re: Cambio de TDbBrowse a TDbBrowseMod
Publicado: Vie Jun 11, 2021 11:22 am
por mcastabaron
Gracias Ignacio por las aclaraciones.
Al poner lAllowSort:=.t. en mi proyecto, que utiliza dbfs, no hace la ordenación si aparece la flecha en el header.
En el ejemplo que incorpora Xailer, que utiliza sql, funciona correctamente.
Miguel.