TSBrowse 8: Problema al redimensionar columnas

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

TSBrowse 8: Problema al redimensionar columnas
Posted: Thu Jun 19, 2008 03:09 PM

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 Collapse

   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.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

TSBrowse 8: Problema al redimensionar columnas
Posted: Mon Jun 30, 2008 08:16 AM

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.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

TSBrowse 8: Problema al redimensionar columnas
Posted: Mon Jun 30, 2008 02:25 PM

Carlos Mora wrote: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

manuelmercado at prodigy dot net dot mx

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Re: TSBrowse 8: Problema al redimensionar columnas
Posted: Mon Nov 16, 2009 08:42 AM

Hola,

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

Javier,

FWH 8.04 2008

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: TSBrowse 8: Problema al redimensionar columnas
Posted: Tue Nov 17, 2009 01:34 PM

jfafive wrote:Hola,

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

Code (fw): Select all Collapse

oBrw:lAllowRowSizing   := .f.

William, Morales

Saludos

méxico.sureste

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: TSBrowse 8: Problema al redimensionar columnas
Posted: Tue Nov 17, 2009 10:21 PM

William

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

Cómo es para el Ancho de la columna?

Gracias

Saludos

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion