HSPTV!掲示板

どうも、今のLatest OSのロゴがダサいのでどうしようか迷っているKainです。
さて、特に大きな進化などはないですがLatest OS One Betaの最新版を公開しようと思います。

主な変更点 - ファイルの中のReadmeとReadme2を読んでね。

DL - http://xfs.jp/jERray

何か意見などがあったらどしどしどうぞ！
（ﾛｺﾞﾏｼﾞﾃﾞﾄﾞﾅｲｼﾖ）

システム設定で上4つのいずれかの項目を選択するとエラーが発生します。
早急に対処をお願いします。

「Latest OSの情報」「ユーザー」以外はまだ完成していないため、とりあえずBSODのテストとしてブルスクを
表示させるようになってます(´･ω･`)
普通にシステムエラーが発生した場合はエラーログを教えてもらうと幸いです

天気予報サービスの入力欄の「例）Tokyoなど」が
「入力された文字」として扱われてたのが気になっていました。
プレースホルダーというスタイルにすれば、灰色の文字になります。語彙力が...(^^;)
これ自分のOS開発キッドの中にあったので参考になれば幸いです。

#module

	#define EM_SETCUEBANNER 0x1501

	#deffunc setPlaceholder int objectID, str placeholder
		sdim UTF16, $200
		cnvstow UTF16, placeholder
		sendmsg objinfo( objectID, 2 ), EM_SETCUEBANNER, 1, varptr(UTF16)
		return

#global

	
	sdim weatherPlace
	font "メイリオ", 30
	objmode 2
	input weatherPlace, 300, 60
	setPlaceholder 0, "例）Tokyoなど"

・パスワード入力の文字色が黒になっています
・キー入力が非アクティブでも反応しています

壁紙変更できるようにならないかな...
｜ω・｀)ﾁﾗｯ

ついでにログイン画面の壁紙も変更できるように...
｜ω・｀)ﾁﾗｯ

𝙿𝚘𝚗𝚢𝚘さんへ
次回からプレースホルダーの方を導入してみようかと思います！
非アクティブでもキーが反応してしまう問題については、非アクティブ状態ではキーを押しても
反応しないようにするみたいな方法がわからなくて...
パスワード入力欄の文字色ですが、これに関してはどうもそのボタンやinputのテキストカラーを変更する必要が
あるらしく、例として白に変更するとボタン命令の時に文字色が白になり、ちょっと困るので現状黒のままです。
すみません...

対処法があれば教えていただけると幸いです。

Densyaさんへ
壁紙変更機能については現状悩んでます…
できなくはないのですが壁紙は元から用意した壁紙しか設定できないような仕様になりそうで...
どこかのパスにある好きな画像を設定するやつは、ちょっと難しそうです。

一応壁紙画像は既に準備してあるのですが、現状システム設定を完成させることを優先していたので
やってませんでした。
...近いうちに壁紙のやつはやります

#module

	// *** 必要となるAPIや定数の定義 *** //
	#uselib "user32.dll"
	#func  SetWindowLongA		"SetWindowLongA"		int, int, int
	#func  SetWindowPos			"SetWindowPos"			int, nullptr, nullptr, nullptr, nullptr, nullptr, int

	#uselib "gdi32.dll"
	#cfunc CreatePatternBrush	"CreatePatternBrush"	int
	#func  GetStockObject		"GetStockObject"		int
	#func  SetBkMode 			"SetBkMode"				int, int 
	#func  SetTextColor			"SetTextColor"			int, int

	// *** ウィンドウメッセージ *** //
	#define WM_CTLCOLOREDIT			0x0133

	// *** パスワード入力スタイル *** //
	#define EM_SETPASSWORDCHAR		$CC

	// *** 指定オブジェクトハンドルを透過されたパスワードスタイルにする *** //
	#deffunc UpdatePasswordInput int prm1
		hObject = prm1
		SetWindowLongA hObject, -20, $0
		SetWindowPos hObject, $27
		sendmsg hObject, EM_SETPASSWORDCHAR, '*'
		mref BMSCR, 67
		hBrush(ginfoSel) = CreatePatternBrush( BMSCR(7) )
		oncmd gosub *OnCtlColor, WM_CTLCOLOREDIT
		GetStockObject 0
		hTextBrush = stat
		return

	// *** ウィンドウメッセージ処理 *** //
*OnCtlColor
	if ( hObject == lparam ) {
		ginfoIntid = ginfo(24)
		SetBkMode wParam, 1
		SetTextColor wparam, $FFFFFF
		return hBrush(ginfoIntid)
	}
	return

#global

	password = "1811405119419"

	color 2, 0, 255
	boxf
	objsize 200, 100
	pos 20,20
	input password, 400, 30
	hInput = objinfo( stat, 2 )
	UpdatePasswordInput hInput
	stop

オブジェクトハンドルにスタイル追加すれば簡単ですよ〜(*'▽')

>次回からプレースホルダーの方を導入してみようかと思います！
ありがとうございます。ご参考になれば幸いです。

>非アクティブでもキーが反応してしまう問題については、非アクティブ状態ではキーを押しても
>反応しないようにするみたいな方法がわからなくて...
stick命令をHDLで確認してはどうでしょうか？
確か、非アクティブでも検出するフラグがあるので...

>パスワード入力欄の文字色ですが、これに関してはどうもそのボタンやinputのテキストカラーを変更する必要が
>あるらしく、例として白に変更するとボタン命令の時に文字色が白になり、ちょっと困るので現状黒のままです。
>すみません...
>
>対処法があれば教えていただけると幸いです。
オブジェクトハンドルを指定するだけなので、
他のオブジェクトに影響されない（と思います）です。
それでも他のオブジェクトに影響される場合は、
指定したオブジェクトハンドルが別のオブジェクトに適応しているかもしれません(*'▽')

ソースありがとうございます！
でも、これ実装したら背景が画像の場合透過がおかしくなります。
画像の謎の範囲をinputボックスの背景に描写しているようなんです。

これ、どうしたらよいでしょうか...？

ソースは以下よりDLできます（Ponyoさん以外の改造を禁止します）
http://xfs.jp/SbmPr7

SetWindowLongA hObject, -20, $0
SetWindowPos hObject, $27

これ外しても難しそうですか？

外しても直りませんでした...
逆に周りの枠が表示されるようになりました。
透過は普通に行われてるっぽいですがまだ画像の謎の範囲が描写されています

メッセージ
(0004)該当のファイルは削除されました。

すいません、もう一度アップロードよろしいでしょうか？(^^;)

分かりました！
（テスト期間真っただ中なので返信が遅れることがあるかもしれません...）
再upしました、アップロード期限は3日間となってますので、お早めにDLをお願いします(´・ω・`)

http://xfs.jp/jD2Lp

Ponyoさんのみソースの変更などを許可してます。
ほかの方もソースのDLは許可しますが基本的にソース内を変更したり勝手にソース内の奴を使用しないでください。

※使用したいソースがある場合はmsssoftware.cfの問い合わせよりお願いします。

𝙿𝚘𝚗𝚢𝚘さんへ
DLできましたか？（先ほどファイルが消去されたことを伝えるメールが届いたので...）

お知らせ
Latest OSに関するお知らせ（いくつかあります）
このOSもどきの名前を「Latest OS One」から「Latest OS Mi」に変更します。

ほかにもお知らせはありますが、詳しいことはここにかいてます

http://msssoftware.cf/2019/03/02/latest-os%E3%81%AB%E9%96%A2%E3%81%99%E3%82%8B%E9%87%8D%E8%A6%81%E3%81%AA%E3%81%8A%E7%9F%A5%E3%82%89%E3%81%9B%EF%BC%81%EF%BC%81/

遅くなり申し訳ございません。用事が連続であったもので...(^^;)
よく見たら、ソースコードにおかしな部分がありました。

	#deffunc UpdatePasswordInput int prm1
		ginfoIntid = ginfo(24)
		hObject = prm1
		SetWindowLongA hObject, -20, $0
		SetWindowPos hObject, $27
		sendmsg hObject, EM_SETPASSWORDCHAR, '*'
		mref BMSCR, 67
		hBrush(ginfoSel) = CreatePatternBrush( BMSCR(7) )
		oncmd gosub *OnCtlColor, WM_CTLCOLOREDIT
		GetStockObject 0
		hTextBrush = stat
		return

こちらでも直らなそうでしたら、すこし時間は掛かりますが直しはするので(*'▽')
よろしくお願いします。

...治りませんでした。
いつになるかわかりませんがLatest OS Miのソース付きフォルダをアップロードします

原因を一つ見つけました。
https://gyazo.com/888588672563390f4e1b69abe8999647
↑の画像では、上のオブジェクトの色が適応されていません。
この理由については、一画面に複数のオブジェクトが存在する可能性があります。

オブジェクトはあのパスワード入力欄のinputboxだけなのですが...一体何が...
ってえぇ！？Ponosって𝑷𝑶𝑵𝒀𝑶さんが作ってるんですか！？
この初期設定画面めっちゃいいじゃないですか！
...すごいなぁ(٭°̧̧̧ω°̧̧̧٭)

わざわざすいません(^^;)
とりあえず、Kainさんのスクリプトも徹底的に調べて、複数オブジェクト対応にさせていただきます。
申し訳ございませんが、気ままに待って下さると幸いです。

原因２としては、そもそもKainさんのスクリプトに問題があるかもしれません。
私の行数の少ないソースコードではKainさんのように細かく仕上げるスクリプトは書いてないので...(^^;)
うーん...試行錯誤を繰り返す必要があるかもしれませんね...

出来ました！
私のモジュールを以下に置き換えてください。

#module

	// *** 必要となるAPIや定数の定義 *** //
	#uselib "user32.dll"
	#func  _SetWindowLongA		"SetWindowLongA"		int, int, int
	#func  _SetWindowPos			"SetWindowPos"		int, nullptr, nullptr, nullptr, nullptr, nullptr, int

	#uselib "gdi32.dll"
	#cfunc _CreatePatternBrush	"CreatePatternBrush"	int
	#func  _GetStockObject		"GetStockObject"		int
	#func  _SetBkMode 			"SetBkMode"				int, int 
	#func  _SetTextColor		"SetTextColor"			int, int
	#func  _GetWindowRect		"GetWindowRect"			int, int
	#func  _MapWindowPoints		"MapWindowPoints"		int, int, int, int

	// *** ウィンドウメッセージ *** //
	#define WM_CTLCOLOREDIT			0x0133

	// *** パスワード入力スタイル *** //
	#define EM_SETPASSWORDCHAR		$CC

	// *** ウィンドウスタイルの定義 *** //
	#define GWL_STYLE		-16
	#define GWL_EXSTYLE		-20

	// *** 背景モードの定義 *** //
	#define OPAQUE			0
	#define TRANSPARENT		1

	// *** 指定オブジェクトハンドルを透過されたパスワードスタイルにする *** //
	#deffunc UpdatePasswordInput int prm1
		hObject = prm1
		newGinfoIntid = ginfo(24)
		sendmsg hObject, EM_SETPASSWORDCHAR, '*'
		_SetWindowLongA hObject, GWL_EXSTYLE, $0
		_SetWindowPos hObject, $27
		mref BMSCR, 67
		hBrush(newGinfoIntid) = _CreatePatternBrush( BMSCR(7) )
		oncmd gosub *OnCtlColor, WM_CTLCOLOREDIT
		return

	// *** ウィンドウメッセージ処理 *** //
*OnCtlColor
	if ( hObject(oldGinfoIntid) == lParam ) {
		dim rect, 4
		oldGinfoIntid = ginfo(24)
		SetBkMode wParam, TRANSPARENT
		GetWindowRect lParam, varptr(rect)
		MapWindowPoints 0, hwnd, varptr(rect), 2
		SetBrushOrgEx wParam, -( rect(0) ), -( rect(1) ), 0
		SetTextColor wParam, $FFFFFF
		return hBrush(oldGinfoIntid)
	}
	return

#global

これでもできない場合はスクリーンショットの提供をお願い致します(*'▽')

ほんとにすいません...いろいろと...
そういえば、Gmailで連絡ってできそうですか？

Kainさんの方もGmail可能なんですか？

うまくいきました！ありがとうございます！
Gmailできますよ！

mail : goto.kain@gmail.com

です

スクリーンショットを見てみましたが、
「パスワードは第三者が不正的に利用するものではありません」

「不正的」っていう言葉に違和感を感じたのですが...