;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±
; 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
*@