a curious buffer error
BlitzPlus Forums/BlitzPlus Programming/a curious buffer error
| ||
Dear community, Can anybody tell me why I get a buffer error from this code? Dim result(32) Global target$="witchcraft" Global wordsize=10 Global xdesktop=GraphicsWidth() Global ydesktop=GraphicsHeight() Global xframe=512 Global yframe=600 Global xposition=(xdesktop/2)-(xframe/2) Global yposition=(ydesktop/2)-(yframe/2) Global window=CreateWindow("WordsGame",xposition,yposition,xframe,yframe,0,1) Global editorfont=LoadFont("courier new",30,0,0,0) Global resultfont=LoadFont("courier new",20,0,0,0) Global editor=CreateTextField(100,16,300,32,window) SetGadgetFont editor,editorfont SetGadgetText editor,"----------" For i=0 To 15 result(i)=CreateTextField(32,(64+i*26),200,22,window) SetGadgetFont result(i),resultfont SetGadgetText result(i),"------------" Next For i=16 To 31 result(i)=CreateTextField(270,(64+(i-16)*26),200,22,window) SetGadgetFont result(i),resultfont SetGadgetText result(i),"------------" Next ; this is where the error occurs "Invalid Blitz 2D Buffer handle" SetFont editorfont Global editorwidth=StringWidth(target$) SetGadgetShape editor,100,16,editorwidth,32 SetFont resultfont resultwidth=StringWidth(target$) SetGadgetShape result(1),100,16,resultwidth,32 Repeat If WaitEvent()=$803 End If KeyDown(1) End Forever |
| ||
You need a Graphics command somewhere. |
| ||
Hi Floyd :-) Since it is a text-only game, I was hoping to do it all in gadgets. Doing it all in graphics presents another set of problems such as not being able to detect vital key_presses. So, it seems B+ provides only parts of each mode - graphics and gadgets. :-/ like so much else in life. Ah, well ... |
| ||
replace this Global xdesktop=GraphicsWidth() Global ydesktop=GraphicsHeight() with this Global xdesktop=gadgetwidth(Desktop()) Global ydesktop=gadgetheight(Desktop()) |
| ||
Hi Matty, Thanks for the suggestion :-) I can't try it right now as I am about to install Windows7. If my computer survives that, I'll get right on it and tell you if it works :-) (^_^) |