TSBrowse 8: Problema al redimensionar columnas
Posted: Thu Jun 19, 2008 3: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.
Un saludo,
Carlos.
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.
