bad property on stringgrid
Posted: Mon Jun 21, 2010 5:34 pm
There are an error with text property of stringgrid
(old version, fnxbasic03.zip)
See the program:
`stringgrid2_test by PaPi 28.02.2010
object myform as form
autosize=true
onactivate=main
object SG as stringgrid
colcount=4
rowcount=8
height=220
width=280
end object ` SG
end object ` myform
myform.ShowModal
`------------------------------------------------------
sub Main()
dim i as integer, j as integer
for i=0 to SG.colcount
for j=0 to SG.rowcount
SG.cell(i,j)=str$(i)+str$(j)
next j
next i
showmessage SG.text ` Bad result on the last row (when j=8)
end sub ` Main
Note:
17 not equal 18 :-)
best wishes
PaPi
(old version, fnxbasic03.zip)
See the program:
`stringgrid2_test by PaPi 28.02.2010
object myform as form
autosize=true
onactivate=main
object SG as stringgrid
colcount=4
rowcount=8
height=220
width=280
end object ` SG
end object ` myform
myform.ShowModal
`------------------------------------------------------
sub Main()
dim i as integer, j as integer
for i=0 to SG.colcount
for j=0 to SG.rowcount
SG.cell(i,j)=str$(i)+str$(j)
next j
next i
showmessage SG.text ` Bad result on the last row (when j=8)
end sub ` Main
Note:
17 not equal 18 :-)
best wishes
PaPi