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

*@
  • QDhWVWZudb -- mojvpio 2018-04-14 (ÅÚ) 02:49:35


¥È¥Ã¥×   ÊÔ½¸ Åà·ë º¹Ê¬ ¥Ð¥Ã¥¯¥¢¥Ã¥× źÉÕ Ê£À½ ̾Á°Êѹ¹ ¥ê¥í¡¼¥É   ¿·µ¬ °ìÍ÷ ¸¡º÷ ºÇ½ª¹¹¿·   ¥Ø¥ë¥×   ºÇ½ª¹¹¿·¤ÎRSS
Last-modified: 2018-04-14 (ÅÚ) 02:49:35