More ... | 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 |