xBrowse

xBrowse

Postby colthop » Thu May 29, 2008 9:57 am

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
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby Biel EA6DD » Thu May 29, 2008 10:17 am

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  RUN
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.
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

Postby colthop » Thu May 29, 2008 10:28 am

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
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests