;¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡±¡± ; 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¤òÌ᤹
|