今画像ビューワーを作っているんですが、画像を開いた後に縮小ボタンを押すとシステムエラーが28行目(screen)で
起きてしまいます。F&Qとかにもシステムエラーは様々な要因があると書かれていたのでわかりません。
どうかご教授お願いします。
//以下コード
#include "hspext.as" ;外部ファイルを呼び出す(たぶんexeplor)
sdim folder,512;文字数分のメモリ確保
selfolder folder,"フォルダーを開いてください";フォルダーをダイアログで選択する
chdir folder;カレントフォルダ変更
*start
dirlist2h 1
dirlist2 gh,"*.jpg",1
sdim omega,gh
dirlist2r omega
pos 0,50;リストが何個もできないように座標指定し、重複させる
objsize 120,24;リストの大きさ指定
listbox a,120,omega;リストから一つ選択し、判定をaに代入する
pos 0,174;ボタンの位置調整
button "見る",*kill
stop
*kill
notesel omega;画像ロード用のメモリ(バッファ)
noteget death,a;listboxで選択した判定をテキスト化する
picload death
ginfo(2)=id;画像を表示したウインドウID取得
ginfo(12)=x;ウインドウの横幅取得
ginfo(13)=y;ウインドウの縦幅取得
button "縮小",*kio
button "リスト",*tinko
stop
*kio
screen 2,x*7/10,y*7/10;新規画面取得
gzoom x*7/10,y*7/10,id,0,0,x,y,1;x、y座標ともに十分の七
button "戻る",*tinko
gsel id,-1;縮小した際に元の画面を非表示
stop
*tinko
gsel id,1;戻るボタンを押した際に元のウインドウを表示
goto *start;リスト画面に戻る