xBrowse

[colthop]

Hola Amigos:

Estoy poniendo los xBrowse en vez de los ListBox y he creado este sencillo ejemplo:

oBrw := TxBrowse():New( oDlgw )
oBrw:nHeaderLines := 1
oBrw:lAllowColSwapping :=.F.
oBrw:nColSel := 1
oBrw:nRowHeight := 18
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:lHScroll := .f.
oBrw:lFooter := .t.

oBrw:nHeight = 260
oBrw:nWidth = 800

oBrw:bClrStd := { ||{RGB ( 0, 0, 0), IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0,RGB (205,205,255),RGB (255,255,255) ) }}

oCol := oBrw:AddCol()
oCol:cHeader := "Número"
oCol:bStrData := { || str(trabajad->n_libro,7,0) }
oCol:nWidth := 98
oCol:nDataStrAlign:= AL_RIGHT
oCol:nHeadStrAlign:= AL_RIGHT
oCol:lAllowSizing :=.F.

oCol := oBrw:AddCol()
oCol:cHeader := "Nombre"
oCol:bStrData := { || trabajad->nombre }
oCol:nWidth := 300
oCol:nDataStrAlign:= AL_LEFT
oCol:nHeadStrAlign:= AL_LEFT
oCol:lAllowSizing :=.F.

oCol := oBrw:AddCol()
oCol:cHeader := "N.I.F."
oCol:bStrData := { || trabajad->nif }
oCol:nWidth := 120
oCol:nDataStrAlign:= AL_LEFT
oCol:nHeadStrAlign:= AL_LEFT
oCol:lAllowSizing :=.F.

oCol := oBrw:AddCol()
oCol:cHeader := "Dirección"
oCol:bStrData := { || trabajad->sigla + " " + trim(trabajad->via_pub) + " " + trim(trabajad->numero) }
oCol:nWidth := 300
oCol:nDataStrAlign:= AL_LEFT
oCol:nHeadStrAlign:= AL_LEFT
oCol:lAllowSizing :=.F.

oCol := oBrw:AddCol()
oCol:cHeader := "Teléfono"
oCol:bStrData := { || trabajad->telefono }
oCol:nWidth := 96
oCol:nDataStrAlign:= AL_LEFT
oCol:nHeadStrAlign:= AL_LEFT
oCol:lAllowSizing :=.F.

oBrw:SetRdd()
oBrw:CreateFromCode ( )

Tengo el problema de no saber como dimensionar el xBrowse ya que aunque le pongo :

oBrw:nHeight = 260
oBrw:nWidth = 800

Noo me hace caso y siempre me pone un cuadrado , y siempre en la fila y columna 0, tambien me gustaria ponerlo en otro sitip del dialogo en cuestion.

Un saludo

Carlos

[Biel EA6DD]

Puedes pintarlo en el dialogo con el tamaño y posicion que desees. Debes usar el Custom Control en el editor de recursos.
.RC

Code: Select all  Expand view

CONTROL "txBrowse", 701, "txBrowse", WS_TABSTOP|0x00300000, 193, 47, 345, 255

y usar oBrw:CreateFromResource(701), en lugar de CreateFromCode.

De todas formas con nTop y nLeft, debieras poderlo posicionar en el lugar que quieras y con nWidth y nHeight definir el tamño.

[colthop]

Gracias Biel:

ya he conseguido ponerlo donde quiero y con el tamaño que quiero con nTop, nLeft y con nRight y nBottom.

Un saludo y gracias