Interface CommonGrid::setColumnStyle

rem ' gridedit.txt
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(50,50,500,300,"Grid Editing",$00090003$)
window!.setCallback(window!.ON_CLOSE, "eoj")
grid! = window!.addGrid(101,10,10,480,280,$8060$,10,6)
grid!.setEditable(1)
grid!.setHasColumnHeader(1)
grid!.setColumnHeaderCellText(0,"Line")
grid!.setColumnWidth(0,50)
grid!.setColumnStyle(0,grid!.GRID_STYLE_INPUTN)
grid!.setColumnMask(0,"##0")
grid!.setColumnHeaderCellText(1,"Part")
grid!.setColumnWidth(1,80)
grid!.setColumnStyle(1,grid!.GRID_STYLE_INPUTE)
grid!.setColumnHeaderCellText(2,"Description")
grid!.setColumnStyle(2,grid!.GRID_STYLE_TEXT)
grid!.setColumnEditable(2,0)
grid!.setColumnWidth(2,100)
grid!.setColumnHeaderCellText(3,"Qty")
grid!.setColumnWidth(3,60)
grid!.setColumnStyle(3,grid!.GRID_STYLE_INPUTN)
grid!.setColumnMask(3,"###,##0-")
grid!.setColumnHeaderCellText(4,"Price")
grid!.setColumnWidth(4,80)
grid!.setColumnStyle(4,grid!.GRID_STYLE_INPUTN)
grid!.setColumnMask(4,"$###,###.00-")
grid!.setColumnHeaderCellText(5,"Ext")
grid!.setColumnWidth(5,100)
grid!.setColumnStyle(5,grid!.GRID_STYLE_INPUTN)
grid!.setColumnMask(5,"$###,###.00-")
grid!.setRowHeight(20)
grid!.setTabAction(grid!.GRID_NAVIGATE_GRID)
grid!.setCallback(grid!.ON_GRID_SELECT_COLUMN,"col")
edit! = window!.addEditBox(201,0,0,0,0,$$,$$)
cedit! = window!.addCEdit(202,0,0,160,160,"",$8116$)
cedit!.setCallback(cedit!.ON_LOST_FOCUS,"focus")
edit! = window!.addEditBox(203,0,0,0,0,$$,$$)
grid!.focus()
grid!.startEdit(0,0)
process_events
eoj:
  release
row:
  event! = sysgui!.getLastEvent()
  row = event!.getRow()
  print "row",row
return
col:
  event! = sysgui!.getLastEvent()
  row = event!.getRow()
  col = event!.getColumn()
  print "col",col
  if col<>2 then return
  text$ = grid!.getCellText(row,col)
  rect! = event!.getCellBounds()
  cedit!.setText(text$)
  cedit!.setLocation(grid!.getX()++rect!.x,grid!.getY()+grid!.getColumnHeaderHeight()++rect!.y)
  cedit!.setVisible(1)
  cedit!.focus()
return
focus:
  event! = sysgui!.getLastEvent()
  text$ = cedit!.getText()
  grid!.setCellText(row,col,text$)
  cedit!.setVisible(0)
  switch window!.getFocusedControlID()
    case 201; grid!.startEdit(row,1); break
    case 203; grid!.startEdit(row,3); break
  swend
return