XP¤Ê¤É¤ÎAero¤ËÂбþ¤·¤Æ¤¤¤Ê¤¤¤È¤¤ä¡¢Aero¤òɽ¼¨¤µ¤»¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¤¤ë»þ¤Î
¼èÆÀÊýË¡¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£
¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
#module//¥â¥¸¥å¡¼¥ë»Ï¤á #uselib "dwmapi.dll" #func DwmExtendFrameIntoClientArea "DwmExtendFrameIntoClientArea" int, var #uselib "user32.dll" #func SetLayeredWindowAttributes "SetLayeredWindowAttributes" int,int,int,int #cfunc GetWindowLong "GetWindowLongA" int,int #func SetWindowLong "SetWindowLongA" int,int,int //SetExtendFrameClientArea Aero¥¨¥ê¥¢¤ò¹¤²¤ë // //SetExtendFrameClientArea hnd,px,py,sx,sy,bc // hnd = ¥Ï¥ó¥É¥ë // px~sy = ¹¤²¤ë¥µ¥¤¥º // bc = ¥°¥é¥¹¤Ë¤¹¤ë¿§(BBGGRR) //SetLayeredWindow ¥ì¥¤¥ä¡¼¥¦¥£¥ó¥É¥¦¤Ë¤¹¤ë // //SetLayeredWindow hnd,phnd,bc // hnd = »Ò¥Ï¥ó¥É¥ë // phnd = ¿Æ¥Ï¥ó¥É¥ë // bc = Æ©ÌÀ¤Ë¤¹¤ë¿§(BBGGRR) #deffunc SetExtendFrameClientArea int hnd,int px,int py,int sx,int sy,int bc margins = px, py, sx, sy DwmExtendFrameIntoClientArea hnd,margins return #deffunc SetLayeredWindow int hnd , int phnd , int bc SetWindowLong hnd, (-8), phnd SetWindowLong hnd,-20, GetWindowLong(hnd,-20) |0x80000 SetLayeredWindowAttributes hnd,bc,255,3 return #global//¥â¥¸¥å¡¼¥ë½ª¤ï¤ê #if 0//1¤Ë¤¹¤ë¤È¥µ¥ó¥×¥ë¼Â¹Ô //¥µ¥ó¥×¥ë //¥¿¥¤¥È¥ë¥Ð¡¼¤Ë¥Ü¥¿¥ó #include "user32.as" buffer 3 color 245,245,0:boxf color 255,255,200:line 0,0,91,0 font "Meiryo UI",12 pos 25,3:color 0,0,0:mes "Menu ¢§" color 255,255,255 pset 0,19:pset 90,19 screen 1,480,400 hWindow=hwnd color 0,0,0:boxf 0,0,480,2 title "" SetExtendFrameClientArea hwnd,0,0,3,0,0 oncmd gosub *OnMoveing,0x0216 oncmd gosub *OnSize,0x0005 bgscr 2,91,20,,ginfo(4)+28,ginfo(5)+7//¥ì¥¤¥ä¡¼¥É¥¦¥£¥ó¥É¥¦(¥Ü¥¿¥óɽ¼¨ÍÑ) hWButton=hwnd cls 0 SetLayeredWindow hwnd,hWindow,0xFFFFFF objimage 3 objsize 91,20:button gosub "",*Menu:hButton=objinfo(stat,2) dim RECT,4 CreatePopupMenu:hMenu= stat AppendMenu hMenu ,0x000,0,"New(&N) Ctrl+N" AppendMenu hMenu ,0x000,0,"Open...(&O) Ctrl+O" AppendMenu hMenu ,0x000,0,"Save(&S) Ctrl+S" AppendMenu hMenu ,0x000,0,"SaveAs..(&A)" AppendMenu hMenu ,0x800,0,0 AppendMenu hMenu ,0x000,0,"Exit(&E) Alt+F4" //Aero»þ·× screen 0,480,80 title "" cls 4 SetExtendFrameClientArea hwnd,-1,0,0,0,0 color 255,255,255 font "Meiryo UI",40,1 repeat gsel 0 redraw 0 pos 0,0 color 0,0,0:boxf color 255,255,255 mes ""+gettime(0)+"/"+gettime(1)+"/"+gettime(3)+" "+strf("%02d", gettime(4) )+":"+strf("%02d", gettime(5) )+":"+strf("%02d", gettime(6) ) redraw 1 wait 1 loop stop *Menu gsel 1,1 dim RECT,4 GetWindowRect hButton, varptr(RECT) TrackPopupMenuEx hMenu, 0,RECT(0),RECT(3), hwnd, 0 return *OnMoveing dupptr rect,lparam,16 MoveWindow hWButton ,rect(0)+28,rect(1)+7,91,20,1 return *OnSize gsel 1 MoveWindow hWButton,ginfo(4)+28,ginfo(5)+7,91,20,1 return