rem ' BBjStandardGrid::getSortInfo
sysgui! = bbjapi().openSysGui("X0")
window! = sysgui!.addWindow(50,50,800,600,"getSortInfo",$00090083$)
window!.setCallback(window!.ON_CLOSE,"eoj")
window!.setCallback(window!.ON_RESIZE,"resize")
status! = window!.addStatusBar(99)
grid! = window!.addGrid(101,25,25,750,500,$81ce$,0,3)
grid!.setRowHeight(25)
grid!.setLineColor(BBjColor.LIGHT_GRAY)
grid!.setSortByMultipleColumns(1)
grid!.setColumnUserSortable(0,1)
grid!.setColumnUserSortable(1,1)
grid!.setColumnUserSortable(2,1)
grid!.setHasColumnHeader(1)
restore
while 1
dread ownerName$, petType$, petName$,end=*break
currentRow = grid!.getNumRows()
grid!.insertRow(currentRow)
grid!.setCellText(currentRow,0,ownerName$)
grid!.setCellText(currentRow,1,petType$)
grid!.setCellText(currentRow,2,petName$)
wend
info! = window!.addButton(1,25,550,100,25,"getSortInfo",$$)
info!.setCallback(info!.ON_BUTTON_PUSH,"info")
unsort! = window!.addButton(2,150,550,100,25,"unsort",$$)
unsort!.setCallback(unsort!.ON_BUTTON_PUSH,"unsort")
process_events
eoj:
release
resize:
event! = sysgui!.getLastEvent()
width = event!.getWidth()
height = event!.getHeight()
grid!.setSize(width-50,height-100)
info!.setLocation(25,height-50)
unsort!.setLocation(150,height-50)
return
info:
vector! = grid!.getSortInfo()
info$ = "getSortInfo:"
if vector!.size() then
for i = 0 to vector!.size()-1
item! = vector!.get(i)
print item!
info$ = info$+" column:"+str(item!.getColumn())
info$ = info$+",direction:"+str(item!.getDirection())
info$ = info$+",related:"+Boolean.toString(item!.getRelated())
next i
else
info$ = info$ + "(unsorted)"
endif
status!.setText(info$)
return
unsort:
grid!.unsort()
status!.setText("unsort")
return
DATA "Harold","parrot","Pete","Jane","cat","Matilda","George","ferret","Herbie","Mark","lizard","Tilton","John","snake","Spot"
DATA "Sally","dog","Wilson","Albert","fox","Whimbly","Karen","hamster","Huey","George","ferret","Anathasia","Karen","snake","Don't Eat Huey!"
DATA "Harold","macaw","Beakman","Albert","fox","Wiley","Harold","hamster","Mortimer","George","goldfish","Lincoln","Karen","rock","Bumpy"
DATA "Albert","macaw","Lorrie","Jane","cat","Fluffy","John","mouse","Squeaky","Taylor","penguin","Dapper","Laura","rabbit","Cloudberry"
|
Version History