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


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0825
Garry050bgscr命令で、自作メモ帳を作成したのですが3解決


Garry050

リンク

2013/8/25(Sun) 20:02:39|NO.56642

bgscr命令で、自作メモ帳を作成したのですが(といっても元Cydia.hatenaなので過去ログから拾い直して、修正したものですが)
前回のデスクトップアイコン風のソースと組み合わせてみたのですが、少し不具合が...
画像なしで実行しても同じ症状が発生しました。
症状 メモ帳を起動したまま親ウィンドウをクリックしようとすると反応せず、親ウィンドウ内でドラッグすると、
メモ帳もドラッグされている

問題のソースコード
mes "test"
button "notepad",*notepad stop *Music dialog "未完成ですOrz",1,"エラー" stop *notepad bgscr 10,570,400 title "メモ帳" onclick gosub *move buffer 9 font "MS UI Gothic", 16, 1 value_color = $FF, $FF, $FF gosub *draw gsel 10 onclick gosub *move mx=5 : my=30 : px=3 : py=3 pos 5,29 sdim txt, 0 notesel buf mesbox txt, 560, 300 objmode 2 font "メイリオ",18 objsize 70,30 pos 150,350 button "保存...", *save pos 230,350 button "クリア", *clear pos 310,350 button "Load",*Load objimage 9, 0, 0, 0, 30, 0, 60 objsize 40,20 pos 525,1 :button "",*check *main redraw 0 color 0,0,0 : boxf 0,0,570,400 color 150,150,255 : boxf 1,1,568,398 color 0,0,0 : pos 5,5 : mes "メモ帳" pos 5,30 mes "" onexit *check redraw await 15 goto *main *move if wparam=1 : sendmsg hwnd,$00A1,2,0 return *owari end *draw color 255,0,0 boxf 0, 0, 100, 30 color 150,50,50 boxf 0, 30, 100, 60 color 255,50,50 boxf 0, 60, 100, 90 color value_color.0, value_color.1, value_color.2 pos 12, 3 mes "×" pos 12, 33 mes "×" pos 12, 63 mes "×" return *clear dialog "入力した内容がすべて消えます。\n残しておきたい場合は保存することをおすすめします。" ,3, "Garry050 OS" if stat = 6 { objprm 0, "" stop } if stat = 7 { stop } *save dialog "txt", 17, "保存する名前" if stat = 0 : stop fname = refstr exname=getpath(fname,2) ; ファイル名の拡張子を取得 if exname="" : fname+=".txt" notesel txt notesave fname mes "保存しました。" stop *Load dialog "",16,"" if stat = 0 { stop } if stat = 1 { notesel txt noteload refstr objprm 0, txt } *check dialog "入力した内容がすべて消え、プログラムを終了します。\n残しておきたい場合は保存することをおすすめします。" ,3, "Garry050 OS" if stat = 6 { objprm 0, "" end } if stat = 7 { stop }



この記事に返信する


葡萄色

リンク

2013/8/25(Sun) 21:57:19|NO.56643

ごめん・・・ソースコード見にくい・・・
あとbgscr命令で自作メモ帳を作りたいって言うのがわからない。
bgscr命令ってウィンドウを枠無しに初期化する命令だった気が・・・。



ht.

リンク

2013/8/25(Sun) 22:13:52|NO.56644

onclickの割り込みがメモ帳だけでなくメインウインドウでも発生しているのが原因です。

*move if ginfo_act ! 10 : return if wparam=1 : sendmsg hwnd,$00A1,2,0 return

もう一つ気になったのはonclickが一つ余分に記述されています。



Garry050

リンク

2013/8/26(Mon) 13:20:12|NO.56647

>>葡萄色さん
すみません、説明不足でした。bgscr命令などでで作成した自作ウィンドウにメモ帳を組み合わせたのですが
としておけばよかったですかね?

それとソースコードの事は、私の限界です。見づらかったかもしれませんがご了承をOrz

>>ht.さん

おお!ありがとうございます。解決しました!
そしてonclickが余分にありましたねw指摘ありがとうございます



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