;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡± ; Header.hsp ; ; ¥Ä¡¼¥ë¥Ð¡¼ºîÀ®¡¢³ä¤ê¹þ¤ßÀßÄê¡¢¥á¥Ã¥»¡¼¥¸½èÍý ;¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡² // ¥Ä¡¼¥ë¥Ð¡¼ºîÀ® ////////////////////////////////////////////////////////////// ;¥Ä¡¼¥ë¥Ð¡¼ ¥¢¥¤¥³¥óID #define STD_CUT 0 #define STD_COPY 1 #define STD_PASTE 2 #define STD_UNDO 3 #define STD_REDOW 4 #define STD_DELETE 5 #define STD_FILENEW 6 #define STD_FILEOPEN 7 #define STD_FILESAVE 8 #define STD_PRINTPRE 9 #define STD_PROPERTIES 10 #define STD_HELP 11 #define STD_FIND 12 #define STD_REPLACE 13 #define STD_PRINT 14 ;¥Ä¡¼¥ë¥Ð¡¼ID #enum TB_ACTION = 0 #enum TB_SETTING #enum TB_dammy1 #enum TB_LISTVIEW #enum TB_dammy2 #enum TB_NEXT #enum TB_STOP #enum TB_dammy3 #enum TB_HELP #enum ToolbarMaxNum bnum=ToolbarMaxNum ;¼ÂÁõ¤¹¤ë¥Ü¥¿¥ó¤Î¿ô repeat bnum button gosub "",*toolcmd SetWindowLong objinfo(cnt,2),GWL_ID,0 tb_id(cnt) =stat ShowWindow objinfo(cnt,2),0 loop InitCommonControls ;ʸ»úÎóÅÐÏ¿ tbstr="" ;TBBUTTON¹½Â¤ÂΤÎÇÛÎó (idCommand¥á¥ó¥Ð¤Ë¥Ü¥¿¥ó¤ÎID¤òÀßÄê) tb(0) = STD_FILENEW, tb_id(TB_ACTION), 4, 0, length(tb)/5 :tbstr+="¼Â¹Ô\\" tb(length.tb) = STD_PASTE, tb_id(TB_SETTING), 4, 0, length(tb)/5 :tbstr+="ÀßÄê\\" tb(length.tb) = 0, 0, 1<<8, 0, length(tb)/5 :tbstr+="¥»¥Ñ¥ì¡¼¥¿\\" tb(length.tb) = STD_PROPERTIES, tb_id(TB_LISTVIEW), 4, 0, length(tb)/5 :tbstr+="[¥ê¥¹¥È]\\" tb(length.tb) = 0, 0, 1<<8, 0, length(tb)/5 :tbstr+="¥»¥Ñ¥ì¡¼¥¿\\" tb(length.tb) = STD_REDOW, tb_id(TB_NEXT), 4, 0, length(tb)/5 :tbstr+="¼¡¤Ø\\" tb(length.tb) = STD_DELETE, tb_id(TB_STOP), 4, 0, length(tb)/5 :tbstr+="Ãæ»ß\\" tb(length.tb) = 0, 0, 1<<8, 0, length(tb)/5 :tbstr+="¥»¥Ñ¥ì¡¼¥¿\\" tb(length.tb) = STD_HELP, tb_id(TB_HELP), 4, 0, length(tb)/5 :tbstr+="About\\" tbstr+="\\" ;¥Ä¡¼¥ë¥Ð¡¼ºîÀ® style=$50000341 : style+=TBSTYLE_FLAT ;¥¹¥¿¥¤¥ë¤Ë$800¤ò²Ã¤¨¤ë¤È¥Õ¥é¥Ã¥È¥¿¥¤¥× CreateToolbarEx hwnd,style, 0, 0, -1, 0,varptr(tb),bnum, 0, 0, 0, 0,20 tb_hWnd=stat ;ÅÐϿʸ»úÎó¤Ë\0ÀßÃÖ tbstr_len=strlen(tbstr) repeat strlen(tbstr) if wbyte(peek(tbstr,cnt))=1 :continue cnt+2 if peek(tbstr,cnt)='\\' :poke tbstr,cnt,0 loop SendMsg tb_hWnd, TB_ADDSTRING, 0, varptr.tbstr ;¥Ü¥¿¥ó¤ò»ÈÍÑÉԲĤˤ¹¤ë sendmsg tb_hWnd, TB_ENABLEBUTTON, tb_id(TB_NEXT), 0 sendmsg tb_hWnd, TB_ENABLEBUTTON, tb_id(TB_STOP), 0 ;¥Ä¡¼¥ë¥Ð¡¼¤ÎºÆÉÁ²è MoveWindow tb_hWnd,0,0,0,0,1 ;¥Ä¡¼¥ë¥Ð¡¼¤Î¹â¤µ¤ò¼èÆÀ dim rc,4 GetWindowRect tb_hWnd, varptr(rc) toolbar_height = rc(3)-rc(1) ListViewPos(1)+=toolbar_height ;+¥Ä¡¼¥ë¥Ð¡¼¤Î¹â¤µ // ¥Ä¡¼¥ë¥Ð¡¼¤Î¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼ ;¥Ä¡¼¥ë¥Ð¡¼¥Ý¥Ã¥×¥¢¥Ã¥×ID #enum TBP_NOCHECKDEL = 1 CreatePopupMenu toolbar_popup = stat AppendMenu toolbar_popup, 0, TBP_NOCHECKDEL, "¥Á¥§¥Ã¥¯¤·¤Æ¤Ê¤¤¹àÌܤòºï½ü" // ¥Ä¡¼¥ë¥Á¥Ã¥× //////////////////////////////////////////////////////////////// ;½é´ü²½ tipset_init // ³ä¤ê¹þ¤ßÀßÄê //////////////////////////////////////////////////////////////// //¥¦¥£¥ó¥É¥¦¥µ¥¤¥ºÊѹ¹ ³ä¤ê¹þ¤ß oncmd gosub *WINSIZE_CHANGE, WM_SIZE //¥Õ¥¡¥¤¥ëD&Dµö²Ä DragAcceptFiles hwnd,1 //¥Õ¥¡¥¤¥ëD&D ³ä¤ê¹þ¤ß oncmd gosub *ListViewDrop ,WM_DROPFILES //½ªÎ» ³ä¤ê¹þ¤ß onexit gosub *QUIT // ËöÈø¤Þ¤Ç½èÍý¤ò¥¸¥ã¥ó¥× ////////////////////////////////////////////////////// goto *@forward // ///////////////////////////////////////////////////////////////////////////// // ¥á¥Ã¥»¡¼¥¸ ////////////////////////////////////////////////////////////////// //¥á¥¤¥ó¥¦¥£¥ó¥É¥¦¥µ¥¤¥ºÊѹ¹ *WINSIZE_CHANGE ;¥ê¥¹¥È¥Ó¥å¡¼¤ÎºÆÉÁ²è MoveWindow hlist,0, ListViewPos(1),ginfo_winx,ginfo_winy-ListViewPos(1),1 ;¥Ä¡¼¥ë¥Ð¡¼¤ÎºÆÉÁ²è MoveWindow tb_hWnd,0,0,0,0,1 return // ¥Ä¡¼¥ë¥Ð¡¼¥Ü¥¿¥ó¤ÎȽÄê *toolcmd switch stat case TB_ACTION // ¼Â¹Ô ;¥ê¥¹¥È¤Î¥Á¥§¥Ã¥¯¹àÌܤζʤΥ¿¥¤¥à¥¿¥°²Î»ì¼èÆÀ gosub *GetTimetagLyrics swbreak case TB_SETTING // ÀßÄê ;ÀßÄꥦ¥£¥ó¥É¥¦³«¤¯ gi_sel = ginfo_sel gsel WindowID_Setting, 1 gsel gi_sel swbreak case TB_NEXT ;¥ê¥¹¥È¥Ó¥å¡¼¡§¼¡¤Ø LyricsMasterStep = -1 ;LyricsMster¸¡½Ð¥¹¥Æ¥Ã¥×¤Ø¡Ö¼¡¤Ø¡×³ä¤ê¹þ¤ß swbreak case TB_STOP ;¥ê¥¹¥È¥Ó¥å¡¼¡§Ãæ»ß LyricsMasterStep = -2 ;LyricsMster¸¡½Ð¥¹¥Æ¥Ã¥×¤Ø¡ÖÃæ»ß¡×³ä¤ê¹þ¤ß swbreak case TB_LISTVIEW ;¥ê¥¹¥È¥Ó¥å¡¼¥Ý¥Ã¥×¥¢¥Ã¥×¥á¥Ë¥å¡¼ dim rect,4 sendmsg tb_hWnd, TB_GETRECT, tb_id(TB_LISTVIEW), varptr(rect) ;¥Ä¡¼¥ë¥Ð¡¼¤Î¥Ü¥¿¥ó¤ÎºÂɸ¤ò¼èÆÀ ;¥¹¥¯¥ê¡¼¥óºÂɸ·Ï¤ËÊÑ´¹ point=rect.0, rect.3 ClientToScreen tb_hWnd, varptr(point) ;¥Ý¥Ã¥×¥¢¥Ã¥×ɽ¼¨ TrackPopupMenuEx toolbar_popup, $180, point.0,point.1, hWnd, 0 switch stat case TBP_NOCHECKDEL ;¥Á¥§¥Ã¥¯¤·¤Æ¤Ê¤¤¹àÌܤòºï½ü gosub *NOCHECKDEL swbreak swend swbreak case TB_HELP dialog ""+app_title+" "+app_version, 0, "About" swbreak swend return // ½ªÎ»»þ ³ä¤ê¹þ¤ß *QUIT ;ÀßÄꥦ¥£¥ó¥É¥¦ÊĤ¸ if wparam=WindowID_Setting :gosub *OptionCansel :return //¥¢¥×¥ê¥±¡¼¥·¥ç¥ó½ªÎ» end return *@
|