HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
1214
aetos初心者です。picload,dialogについて3解決


aetos

リンク

2013/12/14(Sat) 03:21:49|NO.58722

初質問です。

ボタンをクリックしpicloadで画像を表示させる事は出来るのです。

ですがそのボタンのクリック前に*openのdialogで画像を読み込むと
上記のpicloadのボタンをクリックしても画像がありませんとウィンドウが出て
画像が表示されません。
どうすればdialogでファイルを読み込んだ後、画像を表示させる事が出来るのでしょうか?
因みに画像はデスクトップでカレントディレクトリもデスクトップです。

サンプルや講座を見ても原因が分からなかった為、質問しました。

一応スクリプトを...

screen 0,800, 700
objmode 2
font "MS UI Gothic", 25, 1
pos 260,20
objsize 300,70
button "PUSH",*hata1
button "OPEN",*open
button "END",*hata2
stop
*hata1
exist "abc.jpg"
if strsize = -1 {
dialog "abc.jpg がありません。", 1, "エラー"
stop
}

picload "abc.jpg"
stop
*open
dialog "jpg", 16, "画像ファイル"

if stat = 0 {
mes "キャンセル"
stop
}

pos 0,
font "MS UI Gothic", 15, 1
mes ""+refstr
stop
*hata2
end

どうか回答をよろしくお願いします。



この記事に返信する


あり

リンク

2013/12/14(Sat) 08:45:29|NO.58724

ファイル選択ダイアログでファイルを選択すると
カレントディレクトリが選択したファイルのある場所に移動するので
(DebugウィンドゥをONにしてディレクトリの項目を見ると変化がわかります)
ファイルの読み込み後にchdirでカレントディレクトリを
元の場所に指定しなおせば希望通りの動作になるはずです。



あり

リンク

2013/12/14(Sat) 09:25:35|NO.58726

システム変数dir_curを使って
起動時のディレクトリを保存、復元させると
こんな感じのスクリプトになります。

screen 0,800, 700 objmode 2 ; font "MS UI Gothic", 25, 1 pos 260,20 objsize 300,70 button "PUSH",*hata1 button "OPEN",*open button "END",*hata2 start_dir = dir_cur ; 起動直後のカレントディレクトリを保存 pos 0, mes "最初のカレントディレクトリ= " + dir_cur stop *hata1 exist "abc.jpg" if strsize = -1 { dialog "abc.jpg がありません。", 1, "エラー" stop } picload "abc.jpg" title "最終的なカレントディレクトリ= " + dir_cur stop *open dialog "jpg", 16, "画像ファイル" if stat = 0 { mes "キャンセル" stop } pos 0, ; font "MS UI Gothic", 15, 1 mes ""+refstr mes "ファイ選択直後のカレントディレクトリ= " + dir_cur chdir start_dir ; カレントディレクトリを初期位置に移動 stop *hata2 end



aetos

リンク

2013/12/14(Sat) 14:44:14|NO.58729

無事に表示させる事ができました。
ありさん、ありがとうございます!



ONION software Copyright 1997-2021(c) All rights reserved.