#include "user32.as" scroll_min = 0 // 最小値 scroll_max = 100 // 最大値 scroll_size = 33 // バーの大きさ scroll_pos = 10 // バーの位置(最大値=scroll_max-scroll_size+1)
; KORGのnanoKEY2でしか動作確認していないのでそこんとこよろしく ; 別にこれ↓やっておく必要ないんだけど渡された数値表示するよりはわかりやすいかと sdim code,64,128 code(0x0) = "c ","c#","d ","d#","e ","f ","f#","g ","g#","a ","a#","b ","c ","c#","d ","d#" code(0x10) = "e ","f ","f#","g ","g#","a ","a#","b ","c ","c#","d ","d#","e ","f ","f#","g "
#define IID_IMFPMediaPlayer "{A714590A-58AF-430a-85BF-44F5EC838D85}" #usecom IMFPMediaPlayer IID_IMFPMediaPlayer "{}" #comfunc IMFPMediaPlayer_Play 3 #comfunc IMFPMediaPlayer_Pause 4 #comfunc IMFPMediaPlayer_Stop 5
#include "user32.as" #define GWL_WNDPROC -4 #define WM_CREATE 0x1 #define WM_DESTROY 0x2
#include "a2d.hsp" #module #uselib "user32" #func GetDC "GetDC" int
function GetSMParameter(song,prm) local st=song:GetAllSteps(); if #st<1 then return ""; end;
function GetJacketPath_a1(song) local f={}; local ret=""; f=FILEMAN:GetDirListing(song:GetSongDir()); for i=1,#f do