Thanks for the answer Dimitri.
You also caught error No 2 with the 2nd solution:
$alblTime.Resize(100)
FOR iD = 0 TO rsThesi.Count - 1
$alblTime[iD] = NEW Label(ME)
$alblTime[iD].Background = Color.Red
NEXT
MODMain.$Con.Commit()
END
The form wit
Just to be sure about a possible error:
With this method, you *create* new labels that have nothing to do with any
existing label on your form.
So, in your FOR...NEXT loop, you have to write .X, .Y, .Widht and .Height
information of each label, otherwise you'll never
see the new labels.
Did yo
Vassili,
I'm glad we caught 1 of the two errors now let's go for the next one :)
$alblTime[iD] = NEW Label(ME)
FOR iD = 1 TO rsThesi.Count - 1
$alblTime[iD].Background = Color.Red
NEXT
ok this has to be
FOR iD = 1 TO rsThesi.Count - 1
$alblTime[iD
Here is the new routine with all the testings that I tried:
PRIVATE $alblTime AS NEW Object[]
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
DIM iD AS Long
ME.Title = "Σχέδιο θέσεων Camping"
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where el
The "Out of bounds" error occurs when you haven't told Gambas how many items
the array should hold.
Just add a
$alblTime.Resize(100)
before you actually use the array.
"100" means how many labels you have. Could be also a variable, like counting
files...
Regards
Matti
Vassilis K schrieb:
> I c
Vassili,
It's not going to work
#1 cause you're defining a dynamic array with no apparent bounds
#2 it's going to create a synchronization problem that way
because if rsThesi!AA is an autoincrement field (unless I'm
guessing wrong) and if you delete and add a row then things
tend to get a bit mes
Is it possible to use an image as a background of a TabStrip? Are the masks
usable for that?
How can I attach a mask to an object? I would like to have an example.
Thanks!
--
Come build with us! The BlackBerry(R) Developer
Vassilis K wrote:
> I changed it as you said :
>
> PRIVATE $alblTime AS NEW Object[]
>
> PUBLIC SUB Form_Open()
> DIM i AS Integer
> DIM rsThesi AS Result
> DIM iD AS Long
>
> MODMain.Connect()
> rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax =
> 0")
>F
I changed it as you said :
PRIVATE $alblTime AS NEW Object[]
PUBLIC SUB Form_Open()
DIM i AS Integer
DIM rsThesi AS Result
DIM iD AS Long
MODMain.Connect()
rsThesi = MODMain.$Con.exec("select * from egrafes where elenchosAnax =
0")
FOR iD = 0 TO rsThesi!AA
i = r