>・ウィンドウの特定の色のみ半透明化する
UpdateLayeredWindow使ってビットマップオブジェクトでドット毎の
半透明の濃度を変えるのは出来るけど
目的の事が出来るかは分からない
>またmesboxの非編集モードでテキストの色を変える方法などはあるでしょうか？
ある
編集できるのと出来ないので飛んでくるメッセージナンバーが違うだけ
>カーソルを強制的に選択モードなどにするなどしてコピーや右クリックメニューを開けるようにする
かなり強引って言うか
Vista以降じゃ使えないかもしれない方法で目的は達成できた
マウスを受け付けないレイヤードウィンドウ作りそれを背景に
透明度1のmesboxを配置したメインウィンドウを作り
透明度を一時的に255にして背景にコピーして直ぐに1に戻すって方法
↓のモジュールを使う
http://hsp.tv/play/pforum.php?mode=pastwch&num=46392
#include "mod_d3d9vsync.hsp"
#uselib "user32.dll"
#cfunc GetWindowLong "GetWindowLongA" int , int
#func SetWindowLong "SetWindowLongA" int , int , int
#func SetLayeredWindowAttributes "SetLayeredWindowAttributes" int , int , int , int
#func SendMessageA "SendMessageA" int , int , int , int
#func PostMessageA "PostMessageA" int , int , int , int
#func SetWindowPos "SetWindowPos" int, int, int, int, int, int, int
#cfunc GetDC "GetDC" int
#uselib "gdi32.dll"
#cfunc CreateDC "CreateDCA" sptr,sptr,sptr,int
#func DeleteDC "DeleteDC" int
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
#func global GetStockObject "GetStockObject" int
#func global SetTextColor "SetTextColor" sptr,sptr
#func global SetBkColor "SetBkColor" sptr,sptr
#func global SetBkMode "SetBkMode" sptr,sptr
#func global DeleteObject "DeleteObject" sptr
#func global CreateSolidBrush "CreateSolidBrush" sptr
#define WM_LBUTTONDOWN 0x0201
#define WM_MOVING 0x0216
#define SWP_NOSIZE 0x0001
#define SWP_NOZORDER 0x0004
#define SWP_NOACTIVATE 0x0010
#define NULL 0
#define SRCCOPY 0x00CC0020
#define CAPTUREBLT 0x40000000
#const SWP_NOMOVE 0x02
#const SWP_NOREDRAW 0x08
#const SWP_FRAMECHANGED 0x020
#const SWP_SHOWWINDOW 0x040
#const SWP_HIDEWINDOW 0x080
#const SWP_NOCOPYBITS 0x0100
#const SWP_NOOWNERZORDER 0x0200
#const SWP_DRAWFRAME SWP_FRAMECHANGED
#const SWP_NOREPOSITION SWP_NOOWNERZORDER
#define WS_EX_TRANSPARENT $20
#define WS_EX_TOOLWINDOW $80
; 色指定用のRGBマクロ (0x00BBGGRR形式へ変換)
#define ctype RGB(%1,%2,%3) (%1 | %2 << 8 | %3 << 16)
#define WHITE_BRUSH 0
#define LTGRAY_BRUSH 1
#define GRAY_BRUSH 2
#define DKGRAY_BRUSH 3
#define BLACK_BRUSH 4
#define NULL_BRUSH 5
#define HOLLOW_BRUSH 5
//メインウィンドウ(見えないくらいの半透明)
wsx=400
wsy=300
mainid=0
bgscr mainid, wsx, wsy, 0, 300, 300
hwnds(mainid)=hwnd
hdcs(mainid)=hdc
objmode 0
pos 10, 10 : button goto "終了する", *exit
sdim txt,1024
txt={"メインウィンドウにmesboxを置き
見えない半透明にして
背景用ウィンドウを白透明で
一瞬不透明にしたメインウィンドウからコピー"}
mbsx=300
mbsy=200
mbx=50
mby=70
pos mbx,mby
mesbox txt,mbsx,mbsy,1
mid=stat
hMesbox(mid) = objinfo(stat, 2)
obj_hdc(mid)=GetDC(hMesbox(mid))
GetStockObject LTGRAY_BRUSH
hEDITbrush = stat
GetStockObject LTGRAY_BRUSH
hSTATICbrush = stat
//LTGRAY
#define COLORKEY $C0C0C0
#define brushCOLORKEY RGB(((COLORKEY>>16)&$ff),((COLORKEY>>8)&$ff),(COLORKEY&$ff))
//背景ウィンドウ(カラキー白を透明)
bkgdid=1
bgscr bkgdid, wsx, wsy,2 , 300, 300
color 192,192,192:boxf
objmode 0
hwnds(bkgdid) = hwnd
hdcs(bkgdid)=hdc
pos 10, 10 : button goto "終了する", *exit
color 50,50,200 :boxf 0,0, wsx,45
color 255,100,255:pos 80, 20 : mes "レイヤードウィンドウを使ったテスト"
color 250,250,250:boxf mbx,mby, mbsx+mbx,mby+mbsy
wait 1
#define GWL_EXSTYLE -20
#define GWL_STYLE -16
// STYLE(hwnd,追加STYLE,削除STYLE)
#define ctype STYLE(%1,%2,%3=0) %1,GWL_STYLE,((GetWindowLong(%1,GWL_STYLE) | (%2)) | (%3)) ^ (%3)
#define ctype EXSTYLE(%1,%2,%3=0) %1,GWL_EXSTYLE,((GetWindowLong(%1,GWL_EXSTYLE) | (%2)) | (%3)) ^ (%3)
//スタイルの追加
#define WS_EX_LAYERED 0x00080000
SetWindowLong EXSTYLE(hwnds(mainid),WS_EX_LAYERED)
SetWindowLong EXSTYLE(hwnds(bkgdid),WS_EX_LAYERED | WS_EX_TRANSPARENT | WS_EX_TOOLWINDOW)
#define LWA_COLORKEY 1
#define LWA_ALPHA 2
SetLayeredWindowAttributes hwnds(mainid), 0,255, LWA_ALPHA
SetLayeredWindowAttributes hwnds(bkgdid), COLORKEY, 0, LWA_COLORKEY
SetWindowPos hwnds(mainid),0 ,0,0 ,0,0 ,SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED | SWP_SHOWWINDOW
SetWindowPos hwnds(bkgdid),0 ,0,0 ,0,0 ,SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED | SWP_SHOWWINDOW
wait 10
gsel mainid,1
d3d9vsync_init
if stat < 0 {
if -5 ! stat {dialog "GetRasterStatusを使用できない環境です":end}
}
#define WM_CTLCOLORSTATIC $0138
#define WM_CTLCOLOREDIT $133
objenable mid,0
oncmd gosub *CTLCOLOREDIT, WM_CTLCOLOREDIT
oncmd gosub *CTLCOLORSTATIC, WM_CTLCOLORSTATIC
objenable mid,1 //色反映
oncmd gosub *LBUTTONDOWN , WM_LBUTTONDOWN
oncmd gosub *MOVING, WM_MOVING
onexit *exit
repeat
gsel (mainid)
repeat
_Sleep@mod_d3d9vsync 1
GetRasterStatus v,r //VBlankとラスター位置取得
if v{break} //VBlank中
loop
repeat
GetRasterStatus v,r //VBlankとラスター位置取得
//ラスターが実行ウィンドウより下なら抜ける
if r>(0.95*ginfo_wy2) or (ginfo_wy2 >= ginfo_dispy){break} //0.95はウィンドウの下部が画面の下のほうだとウィンドウの上のほうが点滅しやすくなるから調整
if (ginfo_wy2-r)>250 {_Sleep@mod_d3d9vsync 1} //目的の位置まで250以上有ったら1msスリープ
loop
SetLayeredWindowAttributes hwnds(mainid), 0, 255, LWA_ALPHA //ALPHAモードで不透明設定
//mesboxを見えるようにして背景にコピー
BitBlt hdcs(bkgdid), mbx+2,mby+2, mbsx,mbsy, obj_hdc(mid), 0, 0, SRCCOPY | CAPTUREBLT //XPの場合CAPTUREBLTは必須 Vista以降なら無くて良い
SetLayeredWindowAttributes hwnds(mainid), 0, 1, LWA_ALPHA //ALPHAモードで判定が残る透明に設定
gsel bkgdid
redraw 1
redraw 0
gsel (mainid)
if ginfo_act=mainid{
objsel -1
obj_bak(mainid)=stat
}
await 10
if ginfo_act<0{
noact++
}else{
if noact{
getkey clk,1
if clk=0{
noact=0
gsel bkgdid,1
gsel mainid,1
if obj_bak(mainid)>=0 {objsel obj_bak(mainid)}
}
}
}
loop
stop
*CTLCOLOREDIT
if hMesbox(mid) = lparam {
SetBkMode wparam,2
SetTextColor wparam, RGB($C0, $ff, $C0)
SetBkColor wparam, brushCOLORKEY
return hEDITbrush
}
return
*CTLCOLORSTATIC
if hMesbox(mid) = lparam {
SetBkMode wparam,1
SetTextColor wparam, RGB($00, $ff, $88)
return hSTATICbrush
}
return
*MOVING
dupptr rc, lparam, 16
SetWindowPos hwnds(bkgdid), 0,rc, rc(1), 0, 0, SWP_NOSIZE | SWP_NOZORDER | SWP_NOACTIVATE
SetWindowPos hwnds(mainid), 0,rc, rc(1), 0, 0, SWP_NOSIZE | SWP_NOZORDER
return
*LBUTTONDOWN
if (ginfo_act=mainid) and (obj_bak(mainid)<0){objsel -1:obj_bak(mainid)=stat}
PostMessageA hwnds(mainid), 0x0000A1, 0x0002, lparam
gsel bkgdid,1
gsel mainid,1
if (obj_bak(mainid)>=0) {objsel obj_bak(mainid)}
return
*exit
end
非編集モードにも対応しといた
XPでもたまにちらつくぐらいだからどこまで使えるか・・・
ウィンドウの透明化・半透明化について
