ab.com コミュニティ

件名のままなのですがウインドウ左上、タスクトレイに入れたアイコンが
つぶれてしまい正しく表示されないのです。

しかしメッセージボックスを出した時にタスクバーに表示されるアイコンは
潰れずに綺麗に表示されます。
エクスプローラーでも、一覧、縮小版、どの表示でも綺麗に表示されます。

32×32、16色だけではなく、16×16、16色も追加しても結果は同じです。

アイコン作成ソフトはWin32プログラミング講座 ～ Step13. アプリケーション アイコンを設定する ～
でも紹介されてるKH Image Editorです。
同ページにサンプルで置いてある、TextEditor.icoを使ってもやっぱりつぶれてしまいます。

これは仕方ない事なのでしょうか。
私が間違ったやり方をしているのでしょうか？（やり方はWin32プログラミング講座通りにやってます）
それとも解決法があるのでしょうか？
ご存知の方はどうか教えて下さい。

OS　XP HOME SP2
AB 4.10.02(最新バージョンだと今回の件とは関係ない部分で不具合が出るので)

プロジェクトエディタで該当するウィンドウを開き、ウィンドウプロパティのアイコンで指定可能です。
16x16アイコンを指定すると表示出来ます。

ところで、
>AB 4.10.02(最新バージョンだと今回の件とは関係ない部分で不具合が出るので)
の方がもっと気になるのですが･･･

16x16アイコンがあるようなので、それを指定した方が見栄えよくなりますが、
32x32アイコンしかない場合でも、それをきれいに縮小させる方法です。

ウィンドウプロパティでアイコンを指定するとRADにより WNDCLASSEX::hIconSm に、そのアイコンがセットされます。
このアイコンハンドルを無効にしてしまえばＯＫです。
具体的にはCreateイベントなどで、

	'小さいアイコンを変更
	SetClassLong(hMainWnd, GCL_HICONSM, NULL)

とします。こうすれば、TextEditor.icoもつぶれず表示できます。

マティさん、Tomorrowさん、返信ありがとうございます。

Tomorrowさんの教えてくれた方法でウインドウ左上のアイコンは綺麗に表示されるようになりました。
が、タスクトレイアイコンは潰れて汚いままです。

16x16アイコンだと確かにちゃんと表示されますが（それでもなぜかほんのちょっと汚くなる）
今度はエクスプローラーの縮小版で表示した時に拡大されるのでガタガタのアイコンになってしまうのです。
Win32プログラミング講座 ～ Step13ではアイコン2枚を組み合わせる事が書いてあるので、
32×32、16×16を組み合わせれば自動で選択、表示されるのかと思ったのですが、
そうではなく問題の解決には至りませんでした。

マティさん、すいません。私が説明不足でした。
アイコンが表示されてはいるのですが、私が描いた絵とは違う、潰れて
何がなんだか解らない絵になって表示されてしまうという事なのです。

不具合というのは、別プロジェクトで作ったソフトが、コードを何もいじってないのに
新バージョンでコンパイルすると上手く動作しなくなるのです。しかも何箇所も。
Ver4.11.01も2もそうなので様子見してるのです。まだバグ報告が出てるようなので3は試してません。

話し戻ってタスクトレイアイコンなのですが、NOTIFYICONDATA構造体等は以下の様になってます。

Dim TrayIcon As NOTIFYICONDATA  'トレイアイコンの情報を格納する構造体
Dim hIcon As DWord              'アイコンハンドル

	hIcon = LoadIcon(CreateStruct.hInstance,IDI_ICON1)	'トレイアイコンのハンドルを取得
	FillMemory(VarPtr(TrayIcon),Len(TrayIcon),0)		'NOTIFYICONDATA構造体の初期化
	With TrayIcon
		.cbSize = Len(TrayIcon)							'構造体のサイズ
		.hWnd = hMainWnd
		.uID = 1
		.uFlags = &H1 or &H2 or &H4
		.uCallbackMessage = MSG_TRAYICON
		.hIcon = hIcon
		.lstrcpy(.szTip,"TrayIcon Test")
	End With

で、この後、Shell_NotifyIconでタスクトレイアイコンを出したり消したりします。

SetClassLong(hMainWnd, GCL_HICONSM, NULL)の様に、SetClassLong(hIcon, GCL_HICONSM, NULL)にしたり、
.hIcon = GetClassLong(hMainWnd, GCL_HICON)にしたりすれば上手くいくかなと思ったのですがダメでした。
なので度々すいませんが、タスクトレイアイコンを綺麗に表示するにはどうすれば良いか教えてください。
長文失礼しました。

IDEを使っておられると思うのですが、リソースに16x16のアイコン登録して、
それを表示するようにしてはどうでしょうか？
投稿を読んでいて「32x32と16x16のサイズを持ったアイコン」を使用しておられるようですが、
経験として、Windowsは自動で適切なサイズを選んで表示してくれないようです。
潰れているというのは恐らく32x32のサイズのアイコンが縮小されて表示されているからだと思います。

上手く伝わってるかどうか不安ですが、恐らくこれで解決すると思います。

MSDNにはこんなことが書かれています。
http://msdn.microsoft.com/library/ja/jp ... adicon.asp 註：GetSystemMetrics 関数でSM_CXCURSORとSM_CYCURSORを指定すると大抵の環境では32を返すはずです。

というわけでLoadImageを使ってみてはどうでしょうか。
その際にはGetSystemMetrics関数にSM_CXSMICONとSM_CYSMICONを指定して，
小さいアイコンのサイズを取得することをお勧めします。

タスクトレイアイコンは使ったことが無いので思いつきですが、

.hIcon = NULL

としてみたらどうなりますか？

ゲストさん、イグトランスさん、Tomorrowさん返信ありがとうございます。

ゲストさんのやり方で上手く出来ました。
つまり、32×32のアイコンがIDI_ICON1（メイン）だけだったのを
16×16のアイコンをIDI_ICON2に追加して
私が前回書いたコードを以下のように変えたら上手く表示できました。

hIcon = LoadIcon(CreateStruct.hInstance,IDI_ICON2)    'トレイアイコンのハンドルを取得

こんな簡単な事で良かったんですね。全然思いつかなかった自分が情けないです。でも解決してよかったです。

ですのでイグトランスさんの方法は試してません。でも知恵を授けていただいてありがとうございます。

Tomorrowさんの言うとおり

.hIcon = NULL

にすると、タスクトレイにスペースは開きますが、アイコンは何も表示されなくなりました。

みなさん、本当にありがとうございました。

前の投稿でフラグの存在を見落としていました。
.uFlagsのNIF_ICON（&H2）を外すとどうなるのですか？もし可能でしたらご報告願います。

16x16のアイコンを持っていないアプリケーションでも、普通はタスクトレイアイコンがきれいに表示されるので、なぜ32x32アイコンがうまくいかないのか気になったのですが...
NOTIFYICONDATAをキーにして検索してみるといろいろな方法が出てきます。

ExtractIconExのphIconSmallを使う

Dim szModule[ELM(MAX_PATH)] As Byte
GetModuleFileName(NULL, szModule, MAX_PATH)
ExtractIconEx(szModule, 0, NULL, VarPtr(hIcon), 1)
'使用
DestroyIcon(hIcon)

IDI_APPLICATIONを使う

hIcon = LoadIcon(NULL, IDI_APPLICATION)

イグトランスさんの方法に相当

hIcon = LoadImage(CreateStruct.hInstance, IDI_ICON1, IMAGE_ICON, 16, 16, 0)

これらを試すと、どうなりますでしょうか？

Tomorrowさんへ
IDI_ICON2を削除して試してみました。

>.uFlagsのNIF_ICON（&H2）を外すとどうなるのですか？
タスクトレイにスペースは開きますが、アイコンは何も表示されなくなりました。

>ExtractIconExのphIconSmallを使う
綺麗に表示されました。

>IDI_APPLICATIONを使う
ウインドウズロゴ（標準）のアイコン（四角いウインドウの絵）が出ました。

>イグトランスさんの方法に相当。
これも綺麗に表示されます。こちらの方が記述が少ないし、
アイコンを二枚追加しないのでそのぶん容量もうくので
（ExtractIconExのphIconSmallを使うでもそうですが）、これを採用しました。
でも、この場合は、dwFlags パラメータに LR_SHAREDを入れるか
DestroyIcon関数でメモリから解放しないといけない様です。

Tomorrowさん、また1つ勉強になりました。ありがとうございました。
今、見返すとマティさんとゲストさんは同じ事を書いていたのですね。

ご報告ありがとうございます m(_ _)m
リファレンスを見ずに使ってしまいすみません。
ExtractIconExの例ではきちんと開放しているのですが..orz

これも思いつきですが、この方法でうまくいくなら

hIcon = GetClassLong(hMainWnd, GCL_HICONSM)

でもできるかも？

hIcon = GetClassLong(hMainWnd, GCL_HICONSM)

でやると、四角いウインドウの絵のアイコンが出ました。
う～ん、やればやるほど分からなくなってきますね。

ぼくも、アイコンがつぶれることがあります。
付属のアイコンエディダよりももっといい
アイコンエディダは、いくらでもありますよ。
（無料のものは少ない・・・）
まあ僕が言いたいのは、付属のものを使って
やろうとしないということですね(^ ^:;
他のやつでやると解決するかもしれませんよ・・・