HSPTV!掲示板

text1=""
	width 500,300
#include "mod_menu.as" ;このファイルはhsp3フルセットに入っているはず
	#enum global NULL=0		; NULL
	#enum CMD_OPEN			; [開く]アイテムのID
	#enum CMD_SAVE			; [セーブ]	〃
	#enum CMD_QUIT			; [終了] 〃
	#enum CMD_HELP			; [ヘルプ] 〃
	
	newmenu file,1;ファイル(F)
	addmenu file,"開く(&O)",CMD_OPEN
	addmenu file,"保存(&S)",CMD_SAVE
	addmenu file,"", NULL, $800; セパレータ
	addmenu file,"終了(&Q)",CMD_QUIT

	newmenu help,1;ヘルプ(H)
	addmenu help,"バージョン情報",CMD_HELP
	
	newmenu menu,0;メニューバー
	addmenu menu,"ファイル(&F)",file,$10
	addmenu menu,"ヘルプ(&H)",help,$10

*main
	font "FixedSys",12
	objmode 2
	pos 0,0
	mesbox text1,500,280,5
	i=stat
	objmode 1
	oncmd goto*Com, WM_COMMAND
	applymenu menu
	stop
*Com
	if (wparam & 0xFFFF) = CMD_OPEN    : goto *open
	if (wparam & 0xFFFF) = CMD_SAVE    : goto *save
	if (wparam & 0xFFFF) = CMD_QUIT    : PostMessage hwnd, WM_CLOSE, 0, 0
	if (wparam & 0xFFFF) = CMD_HELP    : goto *helpA
	stop
*open
    notesel text3
    dialog "txt",16,"テキスト"
	if stat=0:stop
	noteload refstr
	noteunsel
	objprm i,text3
	stop
*save 
	notesel text1
    dialog "txt",17,"テキスト"
	if stat=0 :stop
	notesave refstr
	noteunsel
	stop
*helpA
	dialog "hot soup processor"
	stop

なぜか１回ロードしただけでは表示されません。
２回以降はＯＫです。
誰かアドバイスください。お願いします。

なぜか1回目のDialogを閉じたときだけ、*COMに飛ばされているようです。
HSP自体の問題なのかもしれません。

とりあえずの対処としては、

	oncmd goto*Com, WM_COMMAND
	applymenu menu
	stop
*Com

のあたりを

	applymenu menu
	oncmd goto*Com, WM_COMMAND
*Hiber
	oncmd 1
	stop
*Com
	oncmd 0

のようにして、上のstop以外を goto *Hiber で置き換えてみてください。

デバッグウィンドウ付きで起動して、text3の内容を確認してからだと、
1回目でも読めるみたい。

理由はぜんぜん分からないが。

mesboxがフォーカスを持ってるとEN_KILLFOCUSが来て
stopしてしまうみたいです。

oncmdをgosubにしてメニュー以外からのWM_COMMANDは
returnでHSPに処理を戻して下さい。

多分これ、バグトラック id139の症状ですよね。
(修正は保留中?)

・・・と思ったけど、

dialog
↓
フォーカスが失われる(EN_KILLFOCUS)
↓
stop
↓
結果dialogが閉じる前にstop状態になってる？

ってことで、別問題のような・・・？

どちらにしても、oncmdはgosubにした方が良いような気がします。

>フォーカスが失われる(EN_KILLFOCUS)
これが、stopやwaitが無くてもジャンプしてしまうのが問題みたい

button "",*label
a=""
mesbox a
oncmd *label,0x0111
objsel 0	;ここで*labelにジャンプしてしまう
repeat 1000
title str(cnt)
loop
*label
mes wparam
stop

実は、３ヶ月前から悩んでいたとか（ぁ

解決。
ありがとうございました。