[トップ][編集][ノート][編集履歴][一覧][最近の更新][->English]

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

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