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


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0508
黒子自分の環境だけ起こっている現象でしょうか?3解決


黒子

リンク

2012/5/8(Tue) 03:13:08|NO.46516

mesboxの文字に色を付けたくて

http://hsp.tv/play/pforum.php?mode=pastwch&num=33662

上記URLを参考にしているのですが
試しに書いてあった


;全てのオブジェクトの文字色を赤にする #uselib "GDI32.DLL" #func SetTextColor "SetTextColor" sptr,sptr oncmd gosub *ColorUpdate, $133 a = "文字列" input a, 200,20 mesbox a, 100,100 stop *ColorUpdate SetTextColor wparam, 255 return hBrush return

を実行した所、プログラム自体は問題なく動くのですが
mesbox上に別のウィンドウを持っていくとそのウィンドウの残像?が残ってしまいます。
HSP3.3の再インストールおよびHSP3.2でも試してみましたが結果は同じでした。
これは自分だけのPC環境で発生しているのでしょうか?
また何か回避策はあるのでしょうか?

使用環境
XPpro sp3
HSP 3.3



この記事に返信する


だいちょ

リンク

2012/5/8(Tue) 07:16:07|NO.46517

僕はなりません。
やっぱりPCに問題があるのではないでしょうか?

雑な返信ですいません。



fortunehill

リンク

2012/5/8(Tue) 08:50:56|NO.46519

hBrushのハンドルが空なので下記を#funcの下あたりに追加して試してみて下さい。

mref bmscr,67 color 255,255,255 hBrush = bmscr(37) ; とりあえずHSPが使用しているブラシを使う ; 又は CreateSolidBrush GetSysColorBrush 等でブラシを作成する。 ; DeleteObject で解放の必要性などはご確認ください。



黒子

リンク

2012/5/8(Tue) 20:21:19|NO.46534

お二人ともありがとうございます。
fortunehillさんのソースを追加したところ残像も出なくなりました!
これで解決とさせて頂きます。
ありがとうございました。



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