TSBrowse 8: Problema al redimensionar columnas

[Carlos Mora]

Hola gente,

estoy probando la última versión de TSBrowse8, y me ha surgido un problema. Al redimensionar una columna en un browse parcialmente lleno, deja marcadas las guías del redimensionado, segun se vé en la imagen adjunta:



probablemente alguien ya solucionó el inconveniente, ya que se presenta efectuando una acción bastante común.

Code: Select all | Expand

   Select TipoIVA

   oFont = TFont():New( GetDefaultFontName(), 0, GetDefaultFontHeight(),, )

   DEFINE DIALOG oDlg RESOURCE "BROWSE" FONT oFont TITLE "Mantenimiento de Tipos de IVA" HELPID 0

      REDEFINE BROWSE oBrw ALIAS "TipoIVA" ID 101 OF oDlg FONT oFont

      ADD COLUMN TO oBrw ;
          HEADER "Tipo" ;
          DATA {|| TipoIVA->Tipo } ;
          ORDER "TIPO" ;
          ALIGN DT_RIGHT
      ADD COLUMN TO oBrw ;
          HEADER "Descripción" ;
          DATA {|| TipoIVA->Descrip } ;
          ORDER "DESCRIP" 
      ADD COLUMN TO oBrw ;
          HEADER "  % IVA  " ;
          DATA {|| TipoIVA->PorcIVA } ;
          ALIGN DT_RIGHT
      ADD COLUMN TO oBrw ;
          HEADER "% Recargo" ;
          DATA {|| TipoIVA->PorcRec } ;
          ALIGN DT_RIGHT

      REDEFINE GET oGet VAR oBrw:cSeek ID 102 WHEN .F. OF oDlg
      oBrw:nHeightCell += 6
      oBrw:nHeightHead += 6

      *BOTONES
      REDEFINE BUTTON ID 131 OF oDlg ACTION TipoIVAForm( .T., oBrw )
      REDEFINE BUTTON ID 132 OF oDlg ACTION TipoIVAForm( .F., oBrw )
      REDEFINE BUTTON ID 133 OF oDlg ACTION TipoIVABorra( oBrw )
      REDEFINE BUTTON ID 134 OF oDlg ACTION oBrw:Report() // ClientesImprime()
      REDEFINE BUTTON ID 140 OF oDlg ACTION (oDlg:End())

    ACTIVATE DIALOG oDlg CENTERED

Un saludo,

Carlos.

[Carlos Mora]

Bueno, por lo menos pude resolverlo solito

El problema se da porque al finalizar la captura del mouse no se desdibujan las líneas verticales que se usaron para marcar el redimensionado de la columna. Lo resolví haciendo que redibuje el browse completamente cambiando la línea 10400, en el método VertLine, ::Refesh( .F. ) por ::Refresh( .T. )

Un saludo,

Carlos.

[mmercado]

El problema se da porque al finalizar la captura del mouse no se desdibujan las líneas verticales que se usaron para marcar el redimensionado de la columna. Lo resolví haciendo que redibuje el browse completamente cambiando la línea 10400, en el método VertLine, ::Refesh( .F. ) por ::Refresh( .T. )

Hola Carlos:

Muchas gracias por compartir la solución.

Un abrazo.

Manuel Mercado

[jfafive]

Hola,

¿sabe alguien como puedo evitar que XBrowse me redimentione las columnas?
No quiero que la gente pueda redimensionar columnas

[wmormar]

Hola,

¿sabe alguien como puedo evitar que XBrowse me redimentione las columnas?
No quiero que la gente pueda redimensionar columnas

Code: Select all | Expand

oBrw:lAllowRowSizing   := .f.
 

[acuellar]

William

oBrw:lAllowRowSizing := .f. Es para el alto de la fila

Cómo es para el Ancho de la columna?

Gracias

Saludos

Adhemar