Duda con Twbrowse

Duda con Twbrowse

Postby JHON JAIRO VALENCIA DIAZ » Fri Oct 12, 2007 5:03 pm

:x
Señores

Tenemos duda en twbrowse, en el cual utilizamos un archivo llamado catastro que tiene Diez (10) Campos; donde solamente deseo mostrar dos (2) de ellos.

Lo he realizado como lo ven en el siguiente ejemplo, pero al compilarlo me muestra todos los campos, mas los dos que deseo que me muestre

Estoy utilizando FWH 7.01

Que debo hacer para que no muestre todos los campos?.



STATIC FUNCTION ChgColors

#define DIALOG_15 15

local oChild, oBrw,oDlg11,oCOL
select 1
USE CATASTRO
go top

DEFINE DIALOG oDlg11 RESOURCE DIALOG_15 of oWnd
oBrw := TXBrowse():New( oDlg11 )


oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:SetRDD()


oBrw:bClrStd := {|| {CLR_BLACK, iif( Field->color1, CLR_WHITE, CLR_HCYAN ) } }
oBrw:CreateFromResource( 101 )

oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->CODIP01}
oCol:cHeader := "Código Catastral"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 100


oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->NOMIP01}
oCol:cHeader := "Propietario"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 400

oDlg11:oClient := oBrw
activate window oDlg11

return nil
User avatar
JHON JAIRO VALENCIA DIAZ
 
Posts: 28
Joined: Wed Mar 07, 2007 11:34 pm
Location: COLOMBIA

Postby Antonio Linares » Fri Oct 12, 2007 7:33 pm

JHON,

El método SetRdd() por defecto añade las columnas correspondientes a los campos de la DBF en uso. Para poder evitarlo tienes que modificar este método así:
Code: Select all  Expand view  RUN
METHOD SetRDD( lAddColumns ) CLASS TXBrowse
...
   DEFAULT lAddColumns := .T.
...
   if lAddColumns
      if len( ::aCols ) == 0
         nFields := ( cAlias )->( FCount() )
         for nFor := 1 to nFields
            oCol := ::AddCol()
            oCol:cHeader  := ( cAlias )->( FieldName( nFor ) )
            oCol:bStrData := GenFieldBlock( cAlias, nFor )
         next
      endif
   endif   

Ahora en tu código sólo tienes que hacer:
oBrw:SetRdd( .F. )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Las puedes quitar asi....

Postby leandro » Fri Oct 12, 2007 10:56 pm

Las puedes quitar de la siguiente Manera:

Code: Select all  Expand view  RUN

STATIC FUNCTION ChgColors

#define DIALOG_15 15

local oChild, oBrw,oDlg11,oCOL
select 1
USE CATASTRO
go top

DEFINE DIALOG oDlg11 RESOURCE DIALOG_15 of oWnd
oBrw := TXBrowse():New( oDlg11 )


oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:SetRDD()


oBrw:bClrStd := {|| {CLR_BLACK, iif( Field->color1, CLR_WHITE, CLR_HCYAN ) } }
oBrw:CreateFromResource( 101 )

oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->CODIP01}
oCol:cHeader := "Código Catastral"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 100


oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->NOMIP01}
oCol:cHeader := "Propietario"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 400

oBrw:DelCol(3)
oBrw:DelCol(4)
oBrw:DelCol(5)
oBrw:DelCol(6)

oDlg11:oClient := oBrw
activate window oDlg11

return nil



Espero te sirva...
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1682
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby JHON JAIRO VALENCIA DIAZ » Tue Oct 16, 2007 7:32 pm

gracias, nos funcionó.



//////////////////////////////////

:?: Otra de Las dudas que tenemos; Es como hacer que dentro del mismo TXBROWSE dando doble clic sobre un registro, nos despliegue una ventana, para modificarlo.



Leandro, Necesito tu teléfono ó Celular Para Contactarnos.




Gracias;

Jhon Jairo Valencia Diaz Y Adolfredo Martinez
"Aracataca - Magdalena" Colombia
User avatar
JHON JAIRO VALENCIA DIAZ
 
Posts: 28
Joined: Wed Mar 07, 2007 11:34 pm
Location: COLOMBIA

Postby Armando » Tue Oct 16, 2007 7:39 pm

Jhon:

Con doble clic:
oLbx:blDblClick := { | nRow, nCol, nKey | TuFuncion()}

Y con ENTER:
oLbx:bKeyDown := { | nKey, nFlags | TuFuncion()}

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby JHON JAIRO VALENCIA DIAZ » Wed Oct 17, 2007 7:55 pm

:lol: Gracias, Armando.


Espera llamada en cualquier momento.


Si tienes ejemplos de manejo completo con TXBROWSE, te lo agradezco me lo envies al siguiente correo. jhonjvd@yahoo.es ó adolfredomartinez_1963@yahoo.com
User avatar
JHON JAIRO VALENCIA DIAZ
 
Posts: 28
Joined: Wed Mar 07, 2007 11:34 pm
Location: COLOMBIA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 40 guests