実践KSP
オンスクリーン・キーボードの色付け
on init{1}
set_key_color (60,$KEY_COLOR_RED)
{2}
declare $kc1
$kc1 := 0
while ($kc1 < 128)
$kc1 := 0
while ($kc1 < 128)
set_key_color ($kc1,$KEY_COLOR_WHITE)
inc ($kc1)
inc ($kc1)
end while
{3}
declare $kc2
$kc2 := 38
while ($kc2 < 82)
$kc2 := 38
while ($kc2 < 82)
set_key_color ($kc2,$KEY_COLOR_BLUE)
inc ($kc2)
inc ($kc2)
end while
end on
サンプルが存在すれば自動で青色になる。
{ note } 括弧はスクリプトの影響外なのでコメントなどに活用できる。全角不可。
(1) set_key_color で鍵盤の番号と色を指定する。
(2) すべての鍵盤を白くする。
(3) 38から81番を青くする。このような書式は良く使うのでしっかり理解しておく。
スクリプトは上から下へと更新されるので(1)は上書きされる。
黒鍵を白くするにはKEY_COLOR_BLACKを使う。