Edit History:Diff

Changes of HSP3のFAQ:エラーメッセージの意味と対処法が分か since Epoch

• + added lines
• - deleted lines

Return to the edit history

+ cx=64
+ cy=24
+ px=0
+ py=0
+ r=255
+ g=255
+ b=255
+ prm="ok"
+ *sss
+ 
+ 
+ #include "hpi_exhspobj.hsp"
+ #include "hspda.as"
+ screen 1,320,400
+ mes {"
+ int cx          : 横方向の大きさ
+ int cy          : 縦方向の大きさ
+ int px          : x 座標値
+ int py          : y 座標値
+ color r
+ color g
+ color b
+ mes
+ "}
+    oncmd gosub *onwmcm, 0x0111
+ :gsel 1,1
+ objsize 320,24:gsel 1,1
+ 
+ sclbar cx,,0,640,1:gsel 1,1
+ 
+ sclbar cy,,0,480,1:gsel 1,1
+ sclbar px,,0,639:gsel 1,1
+ sclbar py,,0,479:gsel 1,1
+ sclbar r,,0,255,1:gsel 1,1
+ sclbar g,,0,255,1:gsel 1,1
+ sclbar b,,0,255,1:gsel 1,1
+ input prm,320,24,100
+ button "save",*s:gsel 1,1
+ button "load",*l
+ gsel 0,1
+ button "ok",*onwmcm
+ an=0
+ stop
+ *onwmcm
+ gsel 0,1
+ title ""+cx+","+cy+","+px+","+py+" "+r+","+g+","+b
+ color r,g,b
+ boxf 
+ ;
+ objwidth 0, cx,cy,px,py
+ return
+ 
+ *s
+ dialog "scl",17
+ 
+ 	if stat=1:vsave refstr
+ stop
+ *l
+ dialog "scl",16
+ 
+ 	if stat=1:vload refstr:an=1:goto *sss
+ stop