Ajuda com xbrowse

Ajuda com xbrowse

Postby Wanderson » Thu Jul 21, 2016 12:50 pm

Olá no me funciona xbrowse com bitmaps. O que está errado?

// Definição do xbrowse

oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:CreateFromResource( 4047 )
oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS
oBrw:lColDividerComplete := .T.
oBrw:nHeaderHeight :=30
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:bClrRowFocus := { || { CLR_BLACK, RGB( 150,231,70 ) } }
oBrw:bChange := { || Muda(), oBrw:Refresh() }

oCol := oBrw:AddCol()
oCol:AddResource("CHECKON")
oCol:AddResource("CHECKOFF")
oCol:cHeader := ""
oCol:nArrayCol := 1
oCol:nWidth := 20
oCol:bStrData := nil

oCol := oBrw:AddCol()
oCol:cHeader := "Nº BOLETO"
oCol:nArrayCol := 2
oCol:nWidth := 100

oBrw:l2007:=.t.
oBrw:bClrSel:={ || { CLR_BLACK, RGB(185,220,255) } }

...

// Load Array

VetBol :={}
For x = 1 to 5
AAdd(VetBol,{".f.",oArqBol:BOLETO})
Next x

oBrw:SetArray( VetBol )
oCol:bBmpData := {|| IIF( oBrw:aArrayData[ oBrw:nArrayAt ][1], 1, 2) }
oBrw:Refresh()

Gracias
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 53 guests