;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±
; Option.hsp
;
; ÀßÄꥦ¥£¥ó¥É¥¦ºîÀ®¡¦½èÍý¡¢LyricsMaster¸¡º÷Ãæ¤Î¾ÜºÙɽ¼¨Áë ºîÀ®
;¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²
;// ÀßÄꥦ¥£¥ó¥É¥¦ºîÀ® /////////////////////////////////////////////////////////
inipass = dir_exe+"\\setting.ini" ;ÀßÄê¥Õ¥¡¥¤¥ë¥Ñ¥¹
;ÀßÄêÆɤ߹þ¤ß
gosub *iniLoad
gi_sel = ginfo_sel ;¤¢¤È¤ÇÉÁ²èID¤òÌ᤹
//ÀßÄꥦ¥£¥ó¥É¥¦ºîÀ®
screen WindowID_Setting, 350,235,8+2
title "ÀßÄê"
syscolor 15 :boxf
color
sysfont 17
objsize 100,22, 24
pos 10,12
mes "¥Õ¥¡¥¤¥ëÊݸÀ衧"
pos , ginfo_cy+5
mes "LyricsMaster¥Õ¥©¥ë¥À¡§"
pos , ginfo_cy+5
mes "¶Ê½ü³°¥Õ¥£¥ë¥¿¡§"
pos , ginfo_cy+10
g_cy=ginfo_cy
mes "¥Á¥§¥Ã¥¯´ð½à¡§"
pos 180,g_cy
mes "¥¿¥¤¥È¥ë½Å¤ß¡§"
mes "¥¢¡¼¥Æ¥£¥¹¥È½Å¤ß¡§"
mes "¥¢¥ë¥Ð¥à½Å¤ß¡§"
mes "ºÆÀ¸»þ´Ö½Å¤ß¡§"
pos 130,8
g_cx=ginfo_cx
g_cy=ginfo_cy
objsize 170,22, 24
input FileSavePos ,,,0 :ID_FileSavePos=stat :tipset stat,"¥Ç¥Õ¥©¥ë¥È¡§¶Ê¤ÈƱ¤¸¥Õ¥©¥ë¥À¤ËÊݸ\n¥Õ¥©¥ë¥À̾¡§¶Ê¤Î²¼ÁØ¥Õ¥©¥ë¥À¤òºî¤Ã¤ÆÊݸ\nÀäÂХѥ¹¡§»ØÄê¥Õ¥©¥ë¥À¤ËÊݸ"
pos g_cx+175,g_cy
objsize 35,22, 24
input FileSaveExt ,,,0 :ID_FileSaveExt=stat :tipset stat,"³ÈÄ¥»Ò"
pos g_cx, ginfo_cy+5
g_cy=ginfo_cy
objsize 170,22, 24
input LyricsMasterPass ,,,0 :ID_LyricsMasterPass=stat :tipset stat,"LyricsMaster¤¬ÃÖ¤¤¤Æ¤¢¤ë¥Õ¥©¥ë¥À¤Î¥Ñ¥¹"
pos g_cx+175,g_cy
objsize 35,22, 24
button gosub "»²¾È", *Label_LyricsMasterFolder :tipset stat,"¥Õ¥©¥ë¥À»²¾È"
pos g_cx, ginfo_cy+5
g_cy=ginfo_cy
objsize 170,22, 24
input FileNameFilter ,,,0 :ID_FileNameFilter=stat :tipset stat,"¶ÊÅÐÏ¿»þ¤Ë»ØÄêʸ»úÎ󤬴ޤޤ줿¾ì¹ç½ü³°¤¹¤ë\n|¤Ç¶èÀڤ뤳¤È¤ÇÊ£¿ô»ØÄê¤Ç¤¤ë"
pos g_cx+175,g_cy
objsize 35,22, 24
chkbox "˵", FIleNameFilterRegExpCheck
:ID_FIleNameFilterRegExpCheck=stat :tipset stat,"¥Õ¥£¥ë¥¿¤ËÀµµ¬É½¸½¤ò»È¤¨¤ë¤è¤¦¤Ë¤¹¤ë"
pos g_cx, ginfo_cy+10
g_cy=ginfo_cy
objsize 50,22, 24
pos 90,
input Option_CheckerPoint ,,,0 :ID_Option_CheckerPoint=stat :tipset stat,"¥ê¥¹¥È¤Ë¥Õ¥¡¥¤¥ë¤òÅÐÏ¿¤·¤¿¤È¤ÅÀ¿ô¤¬¤³¤Î¿ôÃͰʾå¤Ê¤é¥Á¥§¥Ã¥¯\n´û¤Ë¥¿¥¤¥à¥¿¥°ÉÕ¤²Î»ì¤¬Êݸ¤µ¤ì¤Æ¤¤¤ì¤Ð¥Á¥§¥Ã¥¯¤·¤Ê¤¤"
pos 285,g_cy
input Option_WeightTitle ,,,0 :ID_Option_WeightTitle=stat :tipset stat,"Áí¹çÅÀ¿ô¤ò»»½Ð¤¹¤ëºÝ¤Î¥¿¥¤¥È¥ë¤ÎÈæΨ"
input Option_WeightArtsit ,,,0 :ID_Option_WeightArtsit=stat :tipset stat,"Áí¹çÅÀ¿ô¤ò»»½Ð¤¹¤ëºÝ¤Î¥¢¡¼¥Æ¥£¥¹¥È¤ÎÈæΨ"
input Option_WeightAlbum ,,,0 :ID_Option_WeightAlbum=stat :tipset stat,"Áí¹çÅÀ¿ô¤ò»»½Ð¤¹¤ëºÝ¤Î¥¢¥ë¥Ð¥à¤ÎÈæΨ"
input Option_WeightTime ,,,0 :ID_Option_WeightTime=stat :tipset stat,"Áí¹çÅÀ¿ô¤ò»»½Ð¤¹¤ëºÝ¤ÎºÆÀ¸»þ´Ö¤ÎÈæΨ"
//OK¥Ü¥¿¥ó¡¢¥¥ã¥ó¥»¥ë¥Ü¥¿¥ó¤òÇÛÃÖ
objsize 90, 22
pos 70, ginfo_sy-30
button gosub "OK", *OptionOK
pos 180, ginfo_sy-30
button gosub "¥¥ã¥ó¥»¥ë", *OptionCansel
gsel gi_sel ;ÉÁ²èID¤òÌ᤹
// ÀßÄê·Ï½èÍý¥¹¥¯¥ê¥×¥È¤ÎËöÈø¤Þ¤Ç¥¸¥ã¥ó¥× //////////////////////////////////////
goto *@forward
// /////////////////////////////////////////////////////////////////////////////
*Label_LyricsMasterFolder
;LyricsMaster¥Ñ¥¹¼èÆÀ¡Ö»²¾È¡×
foldlg "",LyricsMasterPass,0 ;¥Õ¥©¥ë¥ÀÁªÂò¥À¥¤¥¢¥í¥°
if stat=0 : LyricsMasterPass=refstr
//ÀßÄꥦ¥£¥ó¥É¥¦¤¬¥á¥¤¥ó¥¦¥£¥ó¥É¥¦¤Ë±£¤ì¤Æ¤·¤Þ¤¦¤Î¤Ç¥¢¥¯¥Æ¥£¥Ö¤Ë¤¹¤ë
gi_sel=ginfo_sel
gsel WindowID_Setting,1
objprm ID_LyricsMasterPass, LyricsMasterPass
gsel gi_sel
return
*OptionOK
;ÀßÄê¤òÊݸ
gosub *iniSave
gi_sel = ginfo_sel
;ÀßÄêLyricsMaster¥Õ¥©¥ë¥ÀËöÈø¤Ë\¤¬¤Ä¤¤¤Æ¤¿¤éÇÓ½ü
if strmid(LyricsMasterPass,-1,1)="\\" {
LyricsMasterPass = strmid(LyricsMasterPass,0,strlen(LyricsMasterPass)-1)
gsel WindowID_Setting
objprm ID_LyricsMasterPass, LyricsMasterPass
}
gsel WindowID_Setting, -1 ;¥¦¥£¥ó¥É¥¦¤ò±£¤¹
gsel gi_sel
;¥Ç¡¼¥¿¥Ù¡¼¥¹¤ÎÅÀ¿ôÉÕ¤±¤Î½Å¤ß³ä¤ê¿¶¤êÀßÄê
PointInMusicList_option_set Option_WeightTitle, Option_WeightArtsit, Option_WeightAlbum, Option_WeightTime
return
*OptionCansel
;ÀßÄê¤òÆɤ߹þ¤ß
gosub *iniLoad
gi_sel = ginfo_sel
;¥ª¥Ö¥¸¥§¥¯¥È¤ËÈ¿±Ç
gsel WindowID_Setting
objprm ID_FileSavePos, FileSavePos
objprm ID_FileSaveExt, FileSaveExt
objprm ID_LyricsMasterPass, LyricsMasterPass
objprm ID_FileNameFilter, FileNameFilter
objprm ID_FIleNameFilterRegExpCheck, FIleNameFilterRegExpCheck
objprm ID_Option_CheckerPoint, Option_CheckerPoint
objprm ID_Option_WeightTitle, Option_WeightTitle
objprm ID_Option_WeightArtsit, Option_WeightArtsit
objprm ID_Option_WeightAlbum, Option_WeightAlbum
objprm ID_Option_WeightTime, Option_WeightTime
gsel WindowID_Setting, -1 ;¥¦¥£¥ó¥É¥¦¤ò±£¤¹
gsel gi_sel
return
;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±
; ini´Ø·¸ ´Ø¿ô²½
;¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²
#module
#defcfunc _GetPrivateProfileInt str p1, str p2, int p3, str p4
GetPrivateProfileInt p1,p2,p3,p4
return stat
#defcfunc _GetPrivateProfileString str p1, str p2, str p3, str p4
sdim data, 1024
GetPrivateProfileString p1,p2,p3,varptr(data),1024,p4
return data
#global
;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±
; ÀßÄê¤òÆɤ߹þ¤ß
;¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²
*iniLoad
exist inipass ;¥Õ¥¡¥¤¥ë¸ºß³Îǧ
if strsize=-1 {
;¤Ê¤¤¾ì¹ç¤Ïini¥Õ¥¡¥¤¥ë¤òºî¤ë(½é²óµ¯Æ°»þ)
gosub *iniSave
return
}
//ini¥Õ¥¡¥¤¥ë¤«¤éÀßÄê¤òÆɤ߹þ¤ß
FileSavePos = _GetPrivateProfileString("data", "FileSavePos", "", inipass)
FileSaveExt = _GetPrivateProfileString("data", "FileSaveExt", "", inipass)
LyricsMasterPass = _GetPrivateProfileString("data", "LyricsMasterPass", "", inipass)
FileNameFilter = _GetPrivateProfileString("data", "FileNameFilter", "", inipass)
FIleNameFilterRegExpCheck = _GetPrivateProfileInt("data", "FIleNameFilterRegExpCheck", 0, inipass)
Option_CheckerPoint = _GetPrivateProfileInt("data", "CheckerPoint", 0, inipass)
Option_WeightTitle = _GetPrivateProfileInt("data", "WeightTitle", 0, inipass)
Option_WeightArtsit = _GetPrivateProfileInt("data", "WeightArtsit", 0, inipass)
Option_WeightAlbum = _GetPrivateProfileInt("data", "WeightAlbum", 0, inipass)
Option_WeightTime = _GetPrivateProfileInt("data", "WeightTime", 0, inipass)
return
;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±
; ÀßÄê¤òÊݸ
;¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²
*iniSave
//ini¥Õ¥¡¥¤¥ë¤Ø¥Ç¡¼¥¿¤òÊݸ
;ÀßÄê¤òÊݸ
WritePrivateProfileString "data", "FileSavePos", FileSavePos, inipass
WritePrivateProfileString "data", "FileSaveExt", FileSaveExt, inipass
WritePrivateProfileString "data", "LyricsMasterPass", LyricsMasterPass, inipass
WritePrivateProfileString "data", "FileNameFilter", FileNameFilter, inipass
WritePrivateProfileString "data", "FIleNameFilterRegExpCheck", str(FIleNameFilterRegExpCheck), inipass
WritePrivateProfileString "data", "CheckerPoint", str(Option_CheckerPoint), inipass
WritePrivateProfileString "data", "WeightTitle", str(Option_WeightTitle), inipass
WritePrivateProfileString "data", "WeightArtsit", str(Option_WeightArtsit), inipass
WritePrivateProfileString "data", "WeightAlbum", str(Option_WeightAlbum), inipass
WritePrivateProfileString "data", "WeightTime", str(Option_WeightTime), inipass
return
// /////////////////////////////////////////////////////////////////////////////
*@
;// LyricsMaster¸¡º÷Ãæ¡¢¾ÜºÙ¤òɽ¼¨¤¹¤ëÁë ºîÀ® //////////////////////////////////
gi_sel = ginfo_sel ;¤¢¤È¤ÇÉÁ²èID¤òÌ᤹
;//LyricsMaster¤Ç¸¡º÷Ãæ¡¢¤É¤Î¥µ¥¤¥È¤«¤é²Î»ì¤ò½¦¤¨¤ÐÎɤ¤¤«¤òɽ¼¨¤¹¤ëÁë¤òºîÀ®
bgscr WindowID_ShowSite, ginfo_dispx,50, 2, 0,0
color 0,0,0 :boxf :color 255,255,255
// ³ÈÄ¥¥¦¥£¥ó¥É¥¦¥¹¥¿¥¤¥ë¤Ë WS_EX_LAYERED | WS_EX_TRANSPARENT ¤òÄɲÃŬÍÑ
GetWindowLong hwnd, GWL_EXSTYLE
SetWindowLong hwnd, GWL_EXSTYLE, stat | $80000/*WS_EX_LAYERED*/ | WS_EX_TRANSPARENT
// Âè3¥Ñ¥é¤ËÆ©ÌÀÅÙ (¥¢¥ë¥Õ¥¡ÃͤÎÈÏ°Ï 0¡Á255)
bAlpha = 255 * 75 / 100 ;Æ©ÌÀÅÙ75%
SetLayeredWindowAttributes hwnd, 0, bAlpha, 2/*ULW_ALPHA*/
;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±
; LyricsMaster¸¡º÷Ãæ¡¢¾ÜºÙɽ¼¨Áë¤Ë½ñ¤¹þ¤à¥Þ¥¯¥í
;¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²¡²
#define global mes_ShowSiteWindow(%1) gi_sel = ginfo_sel :gsel WindowID_ShowSite :color :boxf :color 255,255,255 :pos 5,5 :mes %1 :gsel gi_sel
gsel gi_sel ;ÉÁ²èID¤òÌ᤹