No hurry..
I think it has still something to do with:
IncludeSheet "puzzle",1,1,32,32
I'm not sure about the 32,32
My sheet has a resolution of 128x128 and on the sheet there are 16 titles (32x32)
I tried also IncludeSheet "puzzle",1,1,64,64 but same results
The full code:
Global Message
Global Position1%,Position2%,Position3%,Position4%,Position5%,Position6%,Position7%
Global Position8%,Position9%,Position10%,Position11%,Position12%,Position13%
Global Position14%,Position15%,Position16%
Global X_Position1%,Y_Position1%
Global X_Position2%,Y_Position2%
Global X_Position3%,Y_Position3%
Global X_Position4%,Y_Position4%
Global X_Position5%,Y_Position5%
Global X_Position6%,Y_Position6%
Global X_Position7%,Y_Position7%
Global X_Position8%,Y_Position8%
Global X_Position9%,Y_Position9%
Global X_Position10%,Y_Position10%
Global X_Position11%,Y_Position11%
Global X_Position12%,Y_Position12%
Global X_Position13%,Y_Position13%
Global X_Position14%,Y_Position14%
Global X_Position15%,Y_Position15%
Global X_Position16%,Y_Position16%
Global OpenLocation%
Global sht
IncludeSheet "puzzle",1,1,32,32
;**** Code called on Opening Window Form1
FUNCTION Form1_Open
;Set defaults
X_Position1= 1
Y_Position1= 1
X_Position2= 32
Y_Position2= 1
X_Position3= 64
Y_Position3= 1
X_Position4= 96
Y_Position4= 1
X_Position5= 1
Y_Position5= 32
X_Position6= 32
Y_Position6= 32
X_Position7= 64
Y_Position7= 32
X_Position8= 96
Y_Position8= 32
X_Position9= 1
Y_Position9= 64
X_Position10= 32
Y_Position10= 64
X_Position11= 64
Y_Position11= 64
X_Position12= 96
Y_Position12= 64
X_Position13= 1
Y_Position13= 96
X_Position14= 32
Y_Position14= 96
X_Position15= 64
Y_Position15= 96
X_Position16= 96
Y_Position16= 96
sht = LoadSheet("b:\puzzle.gsh")
SetObjGraphic ( Imagebox1_id , sht , 0)
SetObjGraphic ( Imagebox2_id , sht , 1)
SetObjGraphic ( Imagebox3_id , sht , 2)
SetObjGraphic ( Imagebox4_id , sht , 3)
SetObjGraphic ( Imagebox5_id , sht , 4)
SetObjGraphic ( Imagebox6_id , sht , 5)
SetObjGraphic ( Imagebox7_id , sht , 6)
SetObjGraphic ( Imagebox8_id , sht , 7)
SetObjGraphic ( Imagebox9_id , sht , 8)
SetObjGraphic ( Imagebox10_id , sht , 9)
SetObjGraphic ( Imagebox11_id , sht , 10)
SetObjGraphic ( Imagebox12_id , sht , 11)
SetObjGraphic ( Imagebox13_id , sht , 12)
SetObjGraphic ( Imagebox14_id , sht , 13)
SetObjGraphic ( Imagebox15_id , sht , 14)
SetObjGraphic ( Imagebox16_id , sht , 15)
SetObjPos(Imagebox1_ID,X_Position1,Y_Position1)
SetObjPos(Imagebox2_ID,X_Position2,Y_Position2)
SetObjPos(Imagebox3_ID,X_Position3,Y_Position3)
SetObjPos(Imagebox4_ID,X_Position4,Y_Position4)
SetObjPos(Imagebox5_ID,X_Position5,Y_Position5)
SetObjPos(Imagebox6_ID,X_Position6,Y_Position6)
SetObjPos(Imagebox7_ID,X_Position7,Y_Position7)
SetObjPos(Imagebox8_ID,X_Position8,Y_Position8)
SetObjPos(Imagebox9_ID,X_Position9,Y_Position9)
SetObjPos(Imagebox10_ID,X_Position10,Y_Position10)
SetObjPos(Imagebox11_ID,X_Position11,Y_Position11)
SetObjPos(Imagebox12_ID,X_Position12,Y_Position12)
SetObjPos(Imagebox13_ID,X_Position13,Y_Position13)
SetObjPos(Imagebox14_ID,X_Position14,Y_Position14)
SetObjPos(Imagebox15_ID,X_Position15,Y_Position15)
SetObjPos(Imagebox16_ID,X_Position16,Y_Position16)
Position1%= 1
Position2%= 2
Position3%= 3
Position4%= 4
Position5%= 5
Position6%= 6
Position7%= 7
Position8%= 8
Position9%= 9
Position10%= 10
Position11%= 11
Position12%= 12
Position13%= 13
Position14%= 14
Position15%= 15
Position16%= 16
Openlocation = 16
RefreshObj ImageBox1_ID
RefreshObj ImageBox2_ID
RefreshObj ImageBox3_ID
RefreshObj ImageBox4_ID
RefreshObj ImageBox5_ID
RefreshObj ImageBox6_ID
RefreshObj ImageBox7_ID
RefreshObj ImageBox8_ID
RefreshObj ImageBox9_ID
RefreshObj ImageBox10_ID
RefreshObj ImageBox11_ID
RefreshObj ImageBox12_ID
RefreshObj ImageBox13_ID
RefreshObj ImageBox14_ID
RefreshObj ImageBox15_ID
RefreshObj ImageBox16_ID
RefreshObj Form1
EndF
;**** Main loop of Form Form1
FUNCTION Form1_Main
EndF
;**** Code called on event occuring on ImageBox1
FUNCTION ImageBox1_Event
EndF
;**** Code called on event occuring on ImageBox2
FUNCTION ImageBox2_Event
EndF
;**** Code called on event occuring on ImageBox3
FUNCTION ImageBox3_Event
EndF
;**** Code called on event occuring on ImageBox4
FUNCTION ImageBox4_Event
EndF
;**** Code called on event occuring on ImageBox5
FUNCTION ImageBox5_Event
EndF
;**** Code called on event occuring on ImageBox6
FUNCTION ImageBox6_Event
EndF
;**** Code called on event occuring on ImageBox7
FUNCTION ImageBox7_Event
EndF
;**** Code called on event occuring on ImageBox8
FUNCTION ImageBox8_Event
EndF
;**** Code called on event occuring on ImageBox9
FUNCTION ImageBox9_Event
EndF
;**** Code called on event occuring on ImageBox10
FUNCTION ImageBox10_Event
EndF
;**** Code called on event occuring on ImageBox11
FUNCTION ImageBox11_Event
EndF
;**** Code called on event occuring on ImageBox12
FUNCTION ImageBox12_Event
EndF
;**** Code called on event occuring on ImageBox13
FUNCTION ImageBox13_Event
EndF
;**** Code called on event occuring on ImageBox14
FUNCTION ImageBox14_Event
EndF
;**** Code called on event occuring on ImageBox15
FUNCTION ImageBox15_Event
EndF
;**** Code called on event occuring on ImageBox16
FUNCTION ImageBox16_Event
EndF
;**** Code called on event occuring on Button1
FUNCTION Button1_Event
EndF
I did look and there's something a bit strange going on that I didnt have time to look into fully
Yes the Sheet tiles should have been 32x32 not 64x64. Also on the Sheet page where you import the images. The original 128x128 is processed at 128 height (correct) but 128 byte width (Should really be 64). Thats because 16 color graphics= 2 pixels per byte so 128 pixels = 64 bytes. Doesnt mean its wrong but means the original image is processed at double width.
I will look to get this working, but as I said it crashed for me too... not sure why
I Just removed some unnecessary spaces and some %cin the source code. But that was not the problem.
This is what I get:
Something else. I noticed that when you start the picture project in symbos and stop the application (via the exit button) it's away from display but it seems that it is still active in the taskmanger in Symbos.
And the funny way is.. if you click for example on an apply button in some other application (like the display control manger application) you got a message box (Thank you for play slide) (huh ?) So it seems applications have some weird interacting..
if you click for example on an apply button in some other application (like the display control manger application) you got a message box (Thank you for play slide) (huh ?) So it seems applications have some weird interacting..
Ops, that sounds really strange
I currently try to get the actual status of the 2.1 working on MSX, after this I should have some time for these things.
Cool! But I run 2.1-701007 ? Maybe this is because I'm running the pre-release
Yes, that's the old one (last pre-released one) from 2007, but this shouldn't have anything to do with this funny behaviour. The version I am trying to get running is the "new" one (only one year old
) with the multiline-textinput-control etc. (Notepad...) Last night I already made some progress, so I am optimistic at the moment, that there will be something to see soon.
I found the problem!!!
If I use titles it is not working! .. only Sheets seems to be working!
See below, I have a graphic output on the screen!
Yes, that's the old one (last pre-released one) from 2007, but this shouldn't have anything to do with this funny behaviour. The version I am trying to get running is the "new" one (only one year old
) with the multiline-textinput-control etc. (Notepad...) Last night I already made some progress, so I am optimistic at the moment, that there will be something to see soon.
Sounds really cool! .. I wonder .. I'm also working at night on symstudio projects
