Occasionally I get an exception error with this statement.
Allegro format is:
My declaration is as follows:Blit(*Source, *Dest, Source X, Source Y, Dest X, Dest Y, Width, Height)
Code: Select all
Dim As Any Ptr IpOn,IpOff,OpOn,OpOff
Type LED
bmp(1 To 112) As Any Ptr
Nbr(1 To 112) As Integer
Show(1 To 112) As Integer
Req(1 To 112) As Integer
Direction(1 To 112) As Integer
Button(1 To 112) As Integer
StartTime As UInteger
Name(1 To 112) As ZString * 7
End Type
For Xq = 1 To 112
Led.bmp(Xq) = create_bitmap(15,15)
Lock_BitMap(Led.Bmp(Xq))
Led.Name(Xq) = "Led" + Str(Xq) 'give it a unique name
Tabs.Tryit = RegisterImage(Led.bmp(Xq),Led.Name(Xq),Cgui_IMAGE_BMP, Led.Button(Xq))
If Tabs.Tryit = 0 Then .Level = 2
Next
Code: Select all
Blit(ipOff,Led.Bmp(Xq),0,0,0,0,15,15)
Having spent a lot of time in the past finding the reason for this, (and of course forgetting it) I want to convert this to a FB statement. But no amount of trying the Put statement, can't seem to get the format right.
I thought this should do it, after reading the wiki.
Code: Select all
Put (Led.Bmp(Xq)),0,0,ipOff,0,0,0,0,15,15,PSet
Anyone have any suggestions.
Regards