FiveTech Software tech support forums

i HAVE A FIELD TEXT CALLED TYPE WHERE
I WANT SHOW A BITMAP FOR THIS FIELD

THIS FIELD CAN BE ONLY ONE OF THIS ITEMS

local aItems := { 'COMPUTER',;
'PORTATILE',;
'STAMPANTE',;
'MONITOR', ;
'TASTIERA', ;
'SWITCH', ;
'MOUSE',;
'POCKET',;
'SCANNER', ;
'PROIETTORE' , ;
'VIDEOCAMERA' , ;
'FILMCAMERA' , ;
'FOTOCAMERA' }



ON DIALOG I CREATE A XBROWSE


oApp():oGrid := TXBrowse():New( oApp():oDlg )
oApp():oGrid:nTop := 00
oApp():oGrid:nLeft := nSplit+2
oApp():oGrid:nBottom := 400
oApp():oGrid:nRight := 300


AND i WANT INSERT A COL WITH THIS FIELD
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:cHeader := "Tipo"
oCol:nWidth := 50
oCol:nHeadBmpNo := 2
oCol:nHeadBmpAlign := AL_RIGHT
oCol:oDataFont := oFontGrid



WHY IT MAKE ERROR ON oCol:bBmpData := { || AScan( aItems, Trim( (oDHard)->type ) + 2 ,) } ?

Silvio...

Silvio wrote:WHY IT MAKE ERROR ON oCol:bBmpData := { || AScan( aItems, Trim( (oDHard)->type ) + 2 ,) } ?

what error?
please show the error... thanks

Application
===========
Path and name: C:\work\PRG\gut\main.Exe (32 bits)
Size: 3,019,776 bytes
Time from start: 0 hours 0 mins 10 secs
Error occurred at: 18-02-2010, 15:26:36
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = C STAMPANTE
[ 2] = N 2

Stack Calls
===========
Called from: source\GUT210.PRG => (b)GUT210(124)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(8422)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1333)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(990)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1439)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10158)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(343)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: source\GUT210.PRG => (b)GUT210(124)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(8422)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1333)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(990)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1439)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10158)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => SYSREFRESH(0)
Called from: source\MainLib.prg => PERFORM(445)
Called from: source\main.prg => (b)TAPPLICATION:BUILDBTNBAR(505)
Called from: Lib\TRBtn .prg => TRBTN:CLICK(363)
Called from: Lib\TRBtn .prg => TRBTN:LBUTTONUP(539)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1469)
Called from: Lib\TRBtn .prg => TRBTN:HANDLEEVENT(1206)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(966)
Called from: source\main.prg => TAPPLICATION:ACTIVATE(372)
Called from: source\main.prg => MAIN(62)

System

Silvio...

Trim( (oDHard)->type ) is a Type CHAR

Trim( (oDHard)->type ) + 2 is wrong ( char + num )

maybe is AScan( aItems, Trim( (oDHard)->type ) ) + 2

Thank 's a lot : I resolved ")"