I cannot show bmps on xbrowse
and I not Know How I can make
I saw many topics to show bitmaps but I not found the solution
this is the error
I made only this
- Code: Select all Expand view
oCol:= oApp():oGrid:AddCol()
oCol:AddResource("sort1")
oCol:AddResource("sort2")
oCol:AddResource( 'TREE_HARD')
oCol:AddResource( 'TREE_LAPTOP' )
oCol:AddResource( 'TREE_PRINTERS' )
oCol:AddResource( 'TREE_MONITOR' )
oCol:AddResource( 'TREE_KEYBOARD' )
oCol:AddResource( 'TREE_SWITCH' )
oCol:AddResource( 'TREE_MOUSE' )
oCol:AddResource( 'TREE_POCKET' )
oCol:AddResource( 'TREE_SCANNER' )
oCol:AddResource( 'TREE_PROJECT' )
oCol:AddResource( 'TREE_VCAM' )
oCol:AddResource( 'TREE_FCAM' )
oCol:AddResource( 'TREE_CAMERA' )
oCol:bBmpData := { || AScan( aItems, Trim( (oDHard)->type )) + 2 }
* oCol:bStrData := { || (oDHard)->type}
oCol:cHeader := "Tipo"
oCol:nWidth := 60
oCol:nHeadBmpNo := 2
oCol:nHeadBmpAlign := AL_RIGHT
oCol:oDataFont := oFontGrid
oCol:bLClickHeader :={ ||(Sel_Index(3,oDHard) , oApp():oTab:nOption:=3,oApp():oTab:refresh()) }
//EFFETTO WINDOWS SEVEN
WITH OBJECT oApp():oGrid
:bChange := { || (nRecSel := oApp():oGrid:BookMark,RefreshCont(oApp:oCont,oDHard)) }
:nRowDividerStyle := LINESTYLE_NOLINES
:nColDividerStyle := LINESTYLE_NOLINES
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nStretchCol = STRETCHCOL_LAST
:lRedrawFull = .T.
:SetBackGround(NIL,NIL)
END
AEval( oApp():oGrid:aCols, { |oCol| ;
oCol:bPaintText := { |oCol, hDC, cData, aRect | ;
PaintCol( oCol, hDC, cData, aRect, nRecSel ) } ;
} )
is there somene can help me please , I not have the last xbrowse I have fwh 9.10 also
