編集履歴:差分

2010/10/30 17:43:51 JST以来の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