TTS_BALLOONツールチップ
HSP3.4rc2＋Win8.1です、長文失礼します。
TTS_BALLOONツールチップについて３点、質問があります。
１．バルーンツールチップの吹き出し方向とその位置関係を
意図的に決めて表示させたいのですが、どこまで指定可能なのでしょうか？
自動的に位置補正されてしまうみたいで、
画面右側までの距離に余裕がある場合（通常）は、右下方向にしか出すことができません。
ツールチップが画面右端から見切れてしまいそうな場合に、自動的にツールチップが左側に折れるような動きをします。
アスキーアートのようなことは不慣れですが少しでもイメージを伝えるために、書いてみました。
右下方向というのは、こんな感じです。（●は吹き出し表示の基準点です）
●
｜＼
「 −−−
｜ ｜
┗−−−−−」
ところで、マウスカーソル位置の表示であれば、吹き出し方向が通常は右上方向に出ます（画面右端であれば左側に折れてきます）。
また、タスクバーに出てくるバルーンツールチップを見ていると通常は右上方向に出るようです。
それで右下方向以外に指定して出す方法はあるように感じたのですが、
しかし特定位置に出したい場合（TTF_TRACKを使う場合）には、吹き出し方向が真下（TTF_CENTERTIP）or 右下方向にしか出す方法が分かりません。
例えば、バルーンツールチップの吹き出し方向を、ある点を基準にして常に真右（右横）方向に出したいと思っています。
こんな感じです。（●は吹き出し表示の基準点です）
「−−−
●＜ ｜
┗−−−」
どうしたらバルーンツールチップの吹き出し方向と表示位置を調整することができるのでしょうか。
「TTM_TRACKPOSITIONが吹き出し基準点の指定であり、TOOLINFO構造体のrectがツールチップ自体の表示位置の座標とサイズ指定」
ではないのか？と思ったのですが、どうもそれではうまくいかないようなのです。
ツールチップが画面からはみ出しそうかどうかに関係なく、左上や左下、右上方向＆位置を調整して表示できるといいのですが
とりあえず「基準点から右横方向」だけでも、できたらと思います。
TTF_CENTERTIPの右側版のようなものができるなら、TTF_ABSOLUTEでも構いません。
これはWindowsの仕様で自動的に行われるものであり、位置もサイズも制御できないものなのでしょうか。
そもそも、吹き出し基準点などは存在せず、基準点と表示位置との間隔や方向を設定することすらできないのでしょうか？
もし、意図的に表示できるなら自動的な位置調整が働かなくても構いません。
２．XPではTTM_SETTIPTEXTCOLORやTTM_SETTIPBKCOLORの設定色が
バルーンツールチップに反映されたのですが
Win8.1では設定しても色が反映されないように見えています。
これは何が原因なのでしょうか。Windowsの設定が問題なのでしょうか？
３．Win8.1で、バルーンツールチップの形状が「角丸四角形 or 四角形」のものを目にする
時があるのですが、この形状タイプを指定して使い分け表示させることはできるのでしょうか？
（なぜ形状が違うのか、変わるのかがよく分かっていません..
バルーンツールチップでなければ、四角形のものが多く、
バルーンツールチップであれば、角丸四角形のものが多いような気がしますが、
バルーンツールチップであっても、四角形で出ているものも目にします）
参考までに、こちらで色々やってみたサンプルです。
以上どれでも解決できればありがたいです、よろしくお願いします。
; #define TTM_ADDTOOL $00000404 #define TTM_ADDTOOLA $00000404 #define TTM_ADDTOOLW $00000432 #define TTM_NEWTOOLRECT $00000406 #define TTM_NEWTOOLRECTA $00000406 #define TTM_NEWTOOLRECTW $00000434 #define TTM_POP $0000041C #define TTM_SETTIPBKCOLOR $00000413 #define TTM_SETTIPTEXTCOLOR $00000414 #define TTM_SETTITLE $00000420 #define TTM_SETTITLEA $00000420 #define TTM_SETTITLEW $00000421 #define TTM_SETTOOLINFO $00000409 #define TTM_SETTOOLINFOA $00000409 #define TTM_SETTOOLINFOW $00000436 #define TTM_TRACKACTIVATE $00000411 #define TTM_TRACKPOSITION $00000412 #define TTM_UPDATE $0000041D #define TTM_UPDATETIPTEXT $0000040C #define TTM_UPDATETIPTEXTA $0000040C #define TTM_UPDATETIPTEXTW $00000439 ; #define TTS_ALWAYSTIP $00000001 #define TTS_BALLOON $00000040 #define TTS_NOANIMATE $00000010 #define TTS_NOFADE $00000020 #define TTS_NOPREFIX $00000002 ; #define TTF_ABSOLUTE $00000080 #define TTF_CENTERTIP $00000002 #define TTF_DI_SETITEM $00008000 #define TTF_IDISHWND $00000001 #define TTF_RTLREADING $00000004 #define TTF_SUBCLASS $00000010 #define TTF_TRACK $00000020 #define TTF_TRANSPARENT $00000100 ; #uselib "user32.dll" #func GetWindowRect "GetWindowRect" int,int ; #define ctype MAKELONG(%1,%2) (%1 & $FFFF | %2 << 16) #define ctype RGB(%1,%2,%3) (%3 << 16 | %2 << 8 | %1) ;バルーンツールチップ #define WS_POPUP $80000000 winobj "tooltips_class32", "ツールチップ１", 0, WS_POPUP|TTS_NOPREFIX|TTS_BALLOON|TTS_ALWAYSTIP HwndTooltip1 = objinfo_hwnd(stat) winobj "tooltips_class32", "ツールチップ２", 0, WS_POPUP|TTS_NOPREFIX|TTS_BALLOON|TTS_ALWAYSTIP HwndTooltip2 = objinfo_hwnd(stat) winobj "tooltips_class32", "ツールチップ３", 0, WS_POPUP|TTS_NOPREFIX|TTS_BALLOON|TTS_ALWAYSTIP HwndTooltip3 = objinfo_hwnd(stat) ;input pos 220, 45 objsize 100, 30 input0txt = "input0" input input0txt, 100, 30 HwndInput0 = objinfo_hwnd(stat) logmes strf("HwndInput0: %d", HwndInput0) ;inputの右側にツールチップを出してみる pos 220, 85 objsize 100, 30 input1txt = "input1" input input1txt, 100, 30 HwndInput1 = objinfo_hwnd(stat) logmes strf("HwndInput1: %d", HwndInput1) ; tooltxt1 = "特定位置に出すツールチップ" tooltxt2 = "マウス位置に出すツールチップ" tooltxt3 = "絶対座標に出すツールチップ" ;コントロールの右側からツールチップを出そうとしているつもり ToolTipAdd TTF_TRACK|TTF_SUBCLASS, HwndInput1, HwndTooltip1, tooltxt1 TooltipPosRight TTF_TRACK|TTF_IDISHWND|TTF_SUBCLASS, HwndInput1, HwndTooltip1, tooltxt1, 10, 10, 200, 40 ;色の変更 sendmsg HwndTooltip1, TTM_SETTIPTEXTCOLOR, RGB($FF,$00,$00), 0 sendmsg HwndTooltip1, TTM_SETTIPBKCOLOR, RGB($00,$00,$FF), 0 ; pos 320, 10 mes strf("rect(x1,y1)"); pos 320, 30 mes strf(" 「−−−−−−−−−−−−") pos 320, 50 mes strf("●＜ 本当は、こう出したい。 ｜") pos 320, 70 mes strf(" ┗−−−−−−−−−−−−」") pos 320, 90 mes strf(" rect(x2,y2)"); ;マウス座標から表示 ;TTF_TRACKを指定しなければマウス座標に出る ToolTipAdd TTF_SUBCLASS, hwnd, HwndTooltip2, tooltxt2 TooltipPos TTF_IDISHWND|TTF_SUBCLASS, hwnd, HwndTooltip2, tooltxt2, ginfo_mx, ginfo_my, 200, 40 ;色の変更 sendmsg HwndTooltip2, TTM_SETTIPTEXTCOLOR, RGB($FF,$FF,$FF), 0 sendmsg HwndTooltip2, TTM_SETTIPBKCOLOR, RGB($00,$00,$00), 0 ;;TTF_ABSOLUTEで座標を指定して表示させようとしているつもり balloon_x1 = 300 balloon_y1 = 100 balloon_x2 = 500 balloon_y2 = 140 ToolTipAddRect TTF_ABSOLUTE|TTF_TRACK|TTF_SUBCLASS, HwndInput, HwndTooltip3, tooltxt3, balloon_x1, balloon_y1, balloon_x2, balloon_y2 TooltipPos TTF_ABSOLUTE|TTF_TRACK|TTF_IDISHWND|TTF_SUBCLASS, HwndInput, HwndTooltip3, tooltxt3, balloon_x1, balloon_y1, balloon_x2, balloon_y2 stop ;; #deffunc TooltipPos int TTF, int objhwnd, int toolhwnd, var tooltext, int x1, int y1, int x2, int y2 logmes strf("TooltipPos(); objhwnd: %d", objhwnd) dim rect, 4 GetWindowRect objhwnd, varptr(rect) ;表示位置のrect指定 TOOLINFO = 40, TTF, objhwnd, 0, x1, y1, x2, y2, 0, varptr(tooltext) ;吹き出し基準点を調整 ;-20,+20で吹き出し基準点と表示位置との距離を取る sendmsg toolhwnd, TTM_TRACKPOSITION, 0, MAKELONG(x1-20, y1+20) ;表示ON sendmsg toolhwnd, TTM_TRACKACTIVATE, 1, varptr(TOOLINFO) return ;; #deffunc TooltipPosRight int TTF, int objhwnd, int toolhwnd, var tooltext, int toolx, int tooly, int toolw, int toolh dim rect, 4 GetWindowRect objhwnd, varptr(rect) ;表示位置のrect指定 ;少し基準点から距離をあける TOOLINFO = 40, TTF, objhwnd, 0, rect.2 + toolx, rect.1 - tooly, rect.0 + toolw, rect.1 + toolh, 0, varptr(tooltext) ;objhwndの右側の真ん中posから表示 == 吹き出しの基準点である座標を固定 balloon_x = rect.2 balloon_y = rect.1 + (rect.3 - rect.1)/2 sendmsg toolhwnd, TTM_TRACKPOSITION, 0, MAKELONG(balloon_x, balloon_y) ;表示ON sendmsg toolhwnd, TTM_TRACKACTIVATE, 1, varptr(TOOLINFO) return ;;ツールチップを作成 #deffunc ToolTipAdd int TTF, int objhwnd, int toolhwnd, var tooltext TOOLINFO = 40, TTF, objhwnd, 0, 0, 0, 0, 0, 0, varptr(tooltext) sendmsg toolhwnd, TTM_ADDTOOL, 0, varptr(TOOLINFO) return ;;ツールチップを作成＆位置とサイズ指定 #deffunc ToolTipAddRect int TTF, int objhwnd, int toolhwnd, var tooltext, int x1, int y1, int x2, int y2 TOOLINFO = 40, TTF, objhwnd, 0, x1, y1, x2, y2, 0, varptr(tooltext) sendmsg toolhwnd, TTM_ADDTOOL, 0, varptr(TOOLINFO) return
