■色選択フォーム

※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

情報


概要

色選択フォームユニット。
color_cc.png、rainbow_cc.pngを初回起動時に生成。

解説

引数

現在色:初期状態の色
透明色対応有無:『透明色対応』or『透明色未対応』

返り値

選択した色

本体

色選択フォームとはフォーム
そのサイズは『350,250,702,552』
そのスタイルは『ダイアログスタイル』
そのタイトルは『色の選択』
//組込データ
//サイズ縮小のため、RGBごとに分解してある
文字化画像とは文字列
文字化画像は『iVBORw0KGgoAAAANSUhEUgAAAi4AAAF0CAIAAACL1SWEAAAAB3RJTUUH1QgYDh8GBV2VLAAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdHTEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAArzElEQVR4nO3dibd+ZVXA8UMKCBIJgg1q
UUGo5DxlZs6Ks5iaY6KQ8wSaU2iKKJGoKEqaOGQDTmVamZpDGWqpoYkmamppWVlZrWo1rupd77ves857nr33s5/p3HsO39/af8HvftZ+9nTu7Tr+8Y9//OMf//hX698BRONY1L89/99cfCzq357/by4++DGmxLcsJa6QFXCBC1zgsn+57PnPcP/8JPN+CNXjim0CLnCB
C1z2C5fF/ORn/XMbxoGTxEH7OZPABS5wuZxw2f8c9vkPucVPr24cHAu4wAUucNkzLvvBxT75+e+TH3L0pxqNK2UFXOACF7jsAZfpdeyJhel/7BP/kFdxSEEcug24wAUucJmaywRGphExjYIJfuwlP2d/XFkPuMAFLnCZlEs7I+1oNOLQjkC7H7vxAw/jMHfABS5wgct0
XKozqU5jr0RUh1D9h+/8sX+rOw4fBFzgAhe4TMelFpNaQCrSqCViYgi1fv6HO+Lb9IALXOACl4m4lDOpYqScxjQoyi2UKygksImrxOKIvMQCF7jABS4ZXEqkFBppqqMpiqYcmio4wowjdwMucIELXKbgki2lkZFsHSU0WqBoxCEbwpFmXFUJuMAFLnCZgkt1KdWN5AHJ
oFEdRXUOeRY0CKs4So+j1wEXuMAFLlNwSZWSwSTDSEUdGTVJRRcZKCpysCGIcbXdgAtc4AKX5lxqSUllUstIEpBaNFJd1EJRhcPVlPh2JeACF7jApTmXJCxJUpKYlANJqkySdCTRSHJRXoEkidA4fIcU37kNuMAFLnBpzqVQip/JlEb8QPw6/DQKXfhRVBQxjO/aDbjA
BS5wac7FiaVESiGTukCq6yihUeKirohVXF2Ka+TlFrjABS5wSeJSUYqzXGltJBtIto66NLJdeESIKK4hxTW3ARe4wAUuzbnkYckrVzxMmhrxAMnT0ZRGngsPimsG8d1BwAUucIFLWy6TSanFJGpkMiAeHVVoTObie4I4Zh1wgQtc4NKWSxRLhpRouZLBpIWRKJCM4iSq
I6MmidKIughLEc1FH987CLjABS5wacslFUuqlGi5ksok2ienliipQKLFSWFZUp1GkotVfF8QcIELXODSlkth0ZIkpS6TpkaSipNoV5ykoy6NVBffvxvHrgMucIELXNpyKSlaKkppx8QwUhFIOx3taIgu+jhuEHCBC1zg0paLgaWWlFpM9puRWkCyddSicdxu/MBuHO/M
LXCBC1zgks0lr2ipIqUFkypG/CWKH4hRnLTQUUKjj2ttAy5wgQtc2nJxYjGKlnIpeUyMQsWY1OYZMUqUciB5OoyyxGiGPTQ2ce1BwAUucIFLWy4Z/XOGFKNtdk5tM5gYhUqGEaNEaQfEWZk4dRyv6xjSuM5unODJLXCBC1zgUsLFg8XZPHukGG1zIyYVjWRMZzUgxkKw
kQ6NxrUDGn384DbgAhe4wKUtlxIsJVL2CZMSI43qEw+QEh1RGqu47m7ABS5wgUtDLnOUksRkPxhpCqSFjusN4vrrgAtc4AKXhlyqYKkipQqTKoVKFSNVgFQpTvJ0bOIG24ALXOACl4ZckrBEi5YkKUnlSl0mSYVK1EhSiZJUn0SBJBUnSTpuOIgb5eUWuMAFLnBxcoli
EYuWaPOcJyVaruQ1zOWFSl6VEi1R8trjKJBoceLR0ceN1wEXuMAFLg25iFj8RUu0eS6UIpYrrZmIhUqhEX+HHG2P/UDE4uQGEpBQxypuMgi4wAUucGnIJQOLv3nOkOIvV8Se2WYidsv+QmUaI02BiMXJjSUgNx3EzUpyC1zgAhe4RLnYWOz+2W6ebSni+NaWYpcr9tTW
ZmIXKuKw1p7U2kbEGa1zOVgdyE0kIDfbxs23ARe4wAUuDbk4R7l2/2wPcVOl2G2zs2euy8QuVOoasUuUukBuagL5oW3cIswtcIELXOBSkUt2/+xsnrOlpJYrzqltdrfsbJXLjdjnKRWB3CwGZBM/vA64wAUucGnIpbx/TpJiT3CTyhVnz+xhYi8NPYVK6qTW0yTb5ynG
crAWkFXcchtwgQtc4NKQiwdLnhS7aKklpRYTe2SbV6gUGkkC4jSSBORHtnGrpNwCF7jABS6pXNphmYuUWRtpCmQTP7oOuMAFLnBpyCUDy2RSJitXpmcymZESIKu49TbgAhe4wKUhFw1LSdFSIqWkXMnrmcuZlBQqJUZKShQPkNts47bR3AIXuMAFLiVcRlj8/bO/aGkh
xV+u+O9X/Ez8hYq/Va5oxF+i2EA2cbt1wAUucIFLQy6pWLKLlnIp0ba5fHCrMYl2y9FCJdoqtzMSLVE0IKu4/TrukJ1b4AIXuMDFw8WJReuftaJFa56rS0ktVyZjohUqWqucaiS7SdZKlBGQjZFV3HEdcIELXODSkIs4yr1Cbv/sbJ6dm0RtfKu1zc5yRRvcOhvm1G7Z
Wahou0JnlZLaJBslytDInbYBF7jABS4NuSRhyStatOa5ipS8ckUb3FZh4pzXjgoV7VqlihGtSRZLlN7InbdxYl5ugQtc4AIXJxcRi90/5xUtJVKc49ukciWJidYw20ySChVnq2z3ybYRZ4kyNLKKu6wDLnCBC1wacinHklS0iEPcJCl225xUrtiD24mZ7BMjJ+4aues2
4AIXuMClIRcDS1L/LBYtHilH7ko5qlhKeblSziSpW85olcVdYbmRu+wauds27u7JLXCBC1zgks3lAP3ARcTiKVo8zXMtKZ622VOu2IPbukw881pPoSLuCj1GxCZ5ZOTu27jHOuACF7jApSGXKBZP/+wvWsQhbl0pYtssliuenlk8ovQzye6WxUJFbJXFXWF2lTIycs91
3MufW+ACF7jAJYNLHpbUosU/xBUvWgwp4vhWbJv95YrYM7djInbLRqEitsritUq5kVXcex1wgQtc4NKQS4hF3CqKo9xo0eJvnqtLEdtmY3Zr9MziJb+4Oowy8XfLeYWKeC9ZYmQVJ60DLnCBC1wacknCYvTP0aLFaJ7FoxanFGN8a7TNRrli9MziJX85E6NbNua10WGt
eK2SauQ+6/ixvNwCF7jABS5OLhoWY6sY7Z+jRUt0iFtLitE2O8sVo2eOrg6dTKLdcrRQMVrl8Folycgq7rsOuMAFLnBpyMXGEh3lDqWIWJKaZ+NLs2wp0bbZWa5EL/mzmRi3k855rbNVDo3cK2bkftuAC1zgApeGXDxYkvrnpKIletRiSzHOWTLa5uye2bk6LGTinNdq
RsRCRTPSM7n/On48KbfABS5wgUsql1QsSf2zR4rRPFeXknTIUji49TAx9oZ2t+yc13qMiIVKb2QVD1gHXOACF7g05FKCpXrRMrGU6uXKxEwqFiqakQeu40FVcgtc4AIXuGhc2mFpJ8U5wS2R0oJJdHVYi0ktIxsmq3jwBLkFLnCBy+WZyxyxzFHKvJj0RlbxkHXABS5w
gUsrLouXsngmrY08dB0/cTlJLHCBC1z2hMtkWCaTMnG5MhmTyQqVkZFVPGwdcIELXODSiksVLFWKlv0jpWK5sn+YZBQqPZOT1wEXuMAFLq24ZGCZpmiZUso05co0TCoWKhsjD1/HI7JzC1zgAhe4RLk4sST1z86ixdk8J01wnVKS2mZnueLsmZOmtk4mzm45qVDpjazi
lHXABS5wgUsrLlEstfrnaNESbZ7LpTjHt9G2OVquRHvmyZhEu2WjUNkwOXUdP+nMLXCBC1zgksHFwBId5Rr9s1G0lDTPhpToRUvJ+DavXIn2zMb9SgmTkm55WKj0TFbxyGhugQtc4AKXbC55WMT+Oa9oSW2ep5FitM155YrYM+cdUaYyMbplsVA5ZdfIKh61DrjABS5w
acVFxJK6VRT759SiRWyexSFuFSni+Da1bfaXK6nbQz8TY28oMhG7ZbFQ2TB59DoeY+QWuMAFLnAp5OLH4h/leooWf/MsDnGPlY5a6koR22Z/ueLvmcXBrf9+xcPE3y0PC5WeyWPXARe4wAUurbh4sHhGuZ4rS/8+0TPErSXFM771XPX7yxXP4HZKJmG3vDHSM3lc1z3e
n1vgAhe4wCWVywiL59Yyo3/OKFo8Q9zRUUu5lIy2OaNc8QxuT9rtmcuZeEa2j95l8rgtk1U8QcwtcIELXOBShYuNxR7lZvTPdtFiN897K8Vum+1yJaNnHg1u7SPKJCajka3YLY+YPHEdcIELXODSiktFLHlFS1LzbC8TeyknpEgZrRHt8a3dNpeUK3bPPD2TJwyYPKnr
nlw9t8AFLnCBS8/FiSVplFtYtNjNszbEnVKK3TZrs1v7ikXrmUcnLPYlfyGTx+8yedKWySpOS8otcIELXOCSxEXDoh242KNc50oxWrQ4m+fRMrGWFOf41tk2a+WKs2ceDW6jTE72MQn3hiKT09Zx+jrgAhe4wKUVlx7LFRQs2lYxtX/WihZtn6g1z9oQ94TdIW51Kdr4
VmubtUMWrVxJ7ZmrM3miwuQp63jqKLfABS5wgUtFLuVYov1zdtGiNc/RZWIv5fq5UrQ1oja+je4Qo+WKdsUSHdyGTE5JbJijTH5qHXCBC1zg0oqLH0t0lBv2z9pK0V+0+Ie4o6OWKlK0NaK/bfaXK/6eWdsetmPytK57empugQtc4AIXP5cQy4FuLBn9c1i0aCeWRvMc
HeLWlaKtEY22WdshGuVKRs8cMjlVueQvZLKKZ2i5BS5wgQtcyrkYWKIHLgaWsH82ihbtxNLTPHuk3Ei58E+SYrTNmpSwbfaUK9oVi9EzJzHRVocGk2euAy5wgQtcWnFJwmKMco3+2VO0aCeWRtFiDHH7ZeIEUjxtc1K54j+lNHrmfnv4uOCSP4PJs7rupzNyC1zgAhe4
OLnsOZa85nkxUowF4v5hsooz9klugQtc4LJILqlYWvTP7ZrnRlLatc0teuZyJs9eB1zgAhe4tOJiY0ndKmb3z9lFS9IysUSKZ404lJLdNqeWK57t4ZO3Uk7fSkli8pyu+xlPboELXOAClzwuIhbngYuzf/asFP1Fi90821JunijFec7ibJvtcuXBieWKs2cWmTx1y+Rp
PiareK6RW+ACF7jApZDLEIt99m+Pcu3+uaRosZtne4grSrlFDSn2+NZum+2rfrtcsXtme3ArMnmGg8nzuu7MMLfABS5wgUstLoVYxFGu3T/7i5aM5llcJopSbllbiji+tdtmcYcoliv2AlHsme3B7ZDJs2JMVvH8KrkFLnCBC1xELlEs4oGLf5Qr9s/hlWVS0eJvnofL
xEIp4jmLuEb037KIO0R/ueLvmcXB7ZDJGRKT522ZnLUOuMAFLnBpxUXD4j9wGY5y/f1zXtESbZ6jy8ShlFu5N4l5UsTxbXSHGJ3d+q9Yhj2zuD0cMnmOzuQFXfdCO7fABS5wgUsJl2ws0VHusH+OXlkOi5boPjHaPEeXiXWlDNeI0fFttG2OHrIMyxXximXYM0cHtxqT
5w+YrOLswtwCF7jABS4GFw+W4YFLdKuo9c9a0XJMrGhJap61Ia541HLrwW8irC5lOL6N3rIM2+boIYtWriT1zMPB7XMHg1uRyc+uAy5wgQtcWnEpwaKNcrX+uXrRojXP2hC3REr0vN8jRbtl0XaInnJFXCBqp5Ta4PbMQc/8gq2Unsk5Xfdz5bkFLnCBC1w0Lgfs/pHF
A5Uv0LStojbK1fpn7coytWjxNM/aEHe4TLztYJl4B+WL51HFop1VamtEbXyrtc3DHWJJuZLaMw8Ht2dvpWyYrOJFfW6BC1zgApfqXOpiSe2fhyvF0WmLZ5/obJ73pxRP2/xY5ap/NLvVFogZPbPI5Nyue3GL3AIXuMAFLhsufiyereIIi7N/dhYtGc2zZ5nYVIpzfOts
mzPKFWfPPBzcnrOVsmGykfKS1NwCF7jABS5+LjYW54GLMco1+ufyosVono0h7kjK7X1S7uGTop2z2ONbZ9tsHLIY5YrRM2uD2xcNypUVk5euAy5wgQtcWnFJwmJsFY1R7qh/NlaK/qLFaJ6NIa6xTLzTYJlYS4qxRjTGt6O2WdshJpUreT3zS7ZSzuu6l2XkFrjABS5w
cXIJsRzkxuIf5Y7659FKcVS0HK8XLaN9or95Hg1xbSl3cUsxzvtHUkZrRGN8a7fNxiGLXa6cqZcro575xYNyZcNkFS/Xcgtc4AIXuJRziWIZ3VqOtoqjUW52/3zcbv+cVLTYzfNoiDtaJo6OK/dEymh8a7fNox1iUrkyumIZ9czn7vbM522lrJicvw64wAUucGnFpRzL
aJSb1D+PVoolRUvYPNtD3NEy8cTdI/+77/4mwtGFf9g5j8777XOW0RpxNL4d3bLYbXNquTJaINo988u3Ul7Rda+slVvgAhe4wCXk4sEyurW0t4oZ/XNq0TLaJ0ab59EQ114mTiAlaXwb3SGOrvrLy5WXDcqVDZNVXODPLXCBC1zgkspFxHJwDIu9VQwPLcOD/3ClGC1a
RieW4T4x2jxHl4l32z2uvNfubyLMk/KImJTo+DbaNo+u+sNDlrBcEa9Yzttl8ootk5/vulcZuQUucIELXAq5OLEcFmAJt4r2KFfsn48Nriwzipbwk7OweY4Oce8aHPl7pDwgXUq4RoyObz1t8+iqPzxkCcuVcIE46pk3TDZSXp2UW+ACF7jAJYnLAdLf+z1Y+gItPHAJ
t4rhKDfsn8OV4ujK0lm0hPtET/McDnHDZeI9d5eJ9wl+A1RTKeH4NrxlEXeIeeXKeUG58srdcmXF5BfWARe4wAUurbgUYvGMcsPrFnGleK1dLFrR4tknis1zOMQNl4nhUUuJlFMCKeE5S7hGFMe3nrY53CGWlCuvGkh5TdddWCW3wAUucIGLyCUJi3jg4hzliv1zuFK8
zi4Wo2gJ94nhJ2di8ywOccNl4knBX6q6v/SbNwqliGvEcHz7zECK2DafJV31h4cs/nLlNVspr83ILXCBC1zg4uRiYDlEwhIeuBwl/XIo8dBS65/DlWJS0RLuE7XmWRzihsvEe0tH/uVSwrNKbY0ojm/FWxaxbT47aJu1cuV8qVx59W65smLyuq57fTS3wAUucIFLNhcb
S3j2Lx64iFvF1P45XCmmFi3iPlFrnsUhrnhceb/gL4Q8SPnSrJYU//hW2yGeE0jRDlk2TMJy5cJdKW/w5Ba4wAUucMnjkodFPHDRRrlJ/fMJwV8OiRYt4j5Ra57vLDXP2jLxvsFHz3WliOcsT5Nu+89QPjAz2mZxh2jMbrVy5Q3r+MWS3AIXuMAFLjaXAwa3liIW8exf
O3AxRrlG/yyuFK8nfQBtn1jeSvptUHbzrA1xxePKXsqDFSnhRUs/vhWliOcs2hrRGN8abfNLpLbZmN2G5cqKyRu77pdGuQUucIELXCpy8WARz/6NraIxyjX6Z+3KMlq0aPvE20lFy4n6nb+xTOylPGgSKdoa0RjfGm3zedInzv5yZSPll/25BS5wgQtcUrk4sWi3lsZW
sZcSYjlWP/jvpYRYPEWLtk807ivtIW4v5YG6lIdnSTldl/IsXYoxvrXb5vOlT5w95cqKya+sAy5wgQtcWnE5YPdjaAOLdmt5tP752bBoEbFEV4o3VD6Adu4T7ebZHuIaRy29lJNNKdoENyrFXiMa49to23zB7ifOnnJlxeRXu+6iMLfABS5wgUstLklYtFtL5yg32j8b
V5bOosXYJ0bvKz3LxF7Kw8qkPCUm5dmmFHt862mbR1f9RrmykfKmjNwCF7jABS5OLqlYtFtL/yjX0z/3UkQsSUWLfdfiHOLaR/6nOr40S5VinLM4x7eetrlnIkrpmby5696Sl1vgAhe4wMXDZYTlIAcW+8DFP8o9PvYNdF7Rcjv91D+UYjTPnqOWkZRH1ZNin7OMyhVD
ypCJ0TYPmYhS3irmFrjABS5wqcIlxHKwD4t94CIWLQYW/5VlKCVatCQ1z70UY4gbSnlkbSnPjZ2zJI1vk3aIIyYbKW/Tcgtc4AIXuJRzEbFcyY3FuVXM659HUjQseftE/52/IUU8aqkl5Uy3lJc6PjDTyhVbyobJr3Xdrxu5BS5wgQtcCrloWA5JxNJLcWIJpXj6Z1GK
v2jJaJ5TjyuzL1q0NWKSlCETj5SQiSbl7XZugQtc4AKXEi4GlkOzsFzd8Rs5/EWLB0v2qb9TimeZaEg5rUDKC5S/CuIc3756+8dAnFI0Jqv4jWhugQtc4AKXbC42livHPob2j3J7KUlYGhUteXf+SVJGzXO2lLOVvwqSNL7Nbps3TN7Rde/05Ba4wAUucMnj4sHiP/vP
7p+v6/gGOqNoGUnJKFqSpGhD3EIp5/i+dXZK8ewQQym/6c8tcIELXOCSyiUJS8mBS0b/XPG0Ja95rnLUUkvKkEkLKQaT3+q6387ILXCBC1zg4uRSgqXKzX9J/1xdSpXmubWUkMkEUt5VnlvgAhe4wEXj0g5LRSmTYZmjlCQm2VJ+p3VugQtc4HJ55jILLEhpNL51Mnl3
171nRrkFLnCBy+y4XM6xIMUp5b3kFrjABS7tuEyMZV9JaVG0LFXK7+5JboELXOByOeFSC8t+K1r2W/O836QkMXlf172/bm6BC1zgApchlwwsU/bPkxUtUzbPk0mpUq5spHwgO7fABS5wgUuUix9Li1Fui6KlRfPcYojbQkr1tvl9ayYf7LrfS80tcIELXODi5xLFUmWU
W6t/rlK0VGmeqywTq0ipNb7VypWNlN935ha4wAUucMngYmAp2SqW9M97VbTsyTKxRErJGtHZNvdSPhTNLXCBC1zgks1Fw5Jx4JI3ys3onzOKlozmOW+Im3HUkiEl45wlY3z7wS2TP+i6i+3cAhe4wAUuJVxELEkHLqmj3KT+uWnRktQ8Jw1xk44rm0pJGt+K5cpGyoeN
3AIXuMAFLoVcQiz+W0v/VrF6/+wvWvz7RGfz7B/i+o8rq0vxrxHttrmX8hEtt8AFLnCBSzmXPCzOraJnlFtxpegpWpz7xIpD3KiUc6tKqbVG/NCAyUe77g9Lcgtc4AIXuNhcRliiZ/9H1tgqevrn6EqxStESbZ49Q9zoMtGW8uJKUjznLEnj26GUPxJzC1zgAhe4VOGS
hCV64GKPcgv7Z7touWvxL4Sym+foENdeJhpSNkVLUynRNaLWNm+kfKzrPp6RW+ACF7jAxclliOUgE0vJgYsxyrX7Z3ulmF202PtEu3k2hrj2MtE+8s++rCw5q7THt5tyZSPlE2FugQtc4AKXWlycWIxbS2OraIxyjf45e6WYV7Tk3bUYQ1xjmWgc+VeXYpyz2GvEYdvc
S/njpNwCF7jABS5JXDxYMm4tM0a5Rv+srRQzipaMU/+MO39jmagdV2pSLqwqxb9G7KWsmFzSdZ/05xa4wAUucEnl0mM5UMGSemuZOsrV+mdtpZhatGgnlto+UWueU4e42jJRlHJ+PSmpZ5XaGrEvVzZSPjXKLXCBC1zgUpFLHhbtwCVplJt03aKtFMuLFm2fKDbP2n1l
0jJRO64Mpbw2cZOYJMVeI46kfLokt8AFLnCBi83FxpJ09i9uFf2jXP/Bv3hlmTTH9e8T/feVSctE8bgylPK6YiniWaW4RvxoML7dSPmTtZRLPbkFLnCBC1zyuKRi8R+4+Ee5zv5ZXCmGRctJ7qJF3Cf671qcQ1z/cWUo5fWTSBHXiJtypZfymbzcAhe4wAUuHi4GlsN8
WMQDl3Cr6Dy0dB78hytFZ9EinliG+0TnXYt4X+lZJorHlR4pFxVIEc8qQymXSFL+NJpb4AIXuMAlm0sSFs+tZbhVdI5yPf1zuFKsWLSE+0RP8+wc4nqOWl4TfGzWVIpxztJLWTH57FrK5zJyC1zgAhe4OLlssFzR8edEPLeWnq2i59By1D+HK8XwyjKvaPHsE6PNs2eI
6zlquTA48h9JeZPvsnIkJTzv/3Ag5ROBlEt3pVw2zC1wgQtc4FKXSzYWz4FLdJSb0T9HryyjRcvDHSeWGc1zdIg7WiaGx5Xhx2Z7IuXTgZTPd90XCnMLXOACF7gYXJxYjoid/Ue3itFRrt0/R1eKJwVXlnbREp5YRk/9U5vn6DIxeuQ/lPLmBlK0c5ZeymVbKV9Myi1w
gQtc4JLERcRyaCIWe6sYHeUm9c/RlWJS0RKeWD7RPPW3m+foENc+arGlvCX2G6BsKRcnSvncrpQvGbkFLnCBC1wKuXiwXMX8Au0a5i/lsEe5o0NLu3+2V4olRYu9T7Sb5zN3m2d7iGsftbxh96ilnZTReX94zjKU8mdrKV/25xa4wAUucEnlkorFvrW0t4rGKDepf7ZX
itlFi71PNJrn0X1l0hDXOK68aPfIfyjlHeYXzy2kfCUvt8AFLnCBi4dLiOUQ87cVGreWxlbRHuXm9c/2lWVe0WLvE/3NszHENZaJbzQ/NnNKeX+ulM/uSvnirpS/0HILXOACF7iUc0nCcpSOZXTgcpz++ZlxaOnsn42V4v13ryydRcvj9a+fn67/NiijeTaGuMYy0Tjy
H0p5Zw0pn9SlfGFXyp+vpXw1I7fABS5wgYuTi43lcB2L88BltFXURrmjQ0utfzZWilrR8tCsosXYJzqbZ+cQ13lc+fbdj816Ke82vzQrlPKVgZSveXILXOACF7jkcfFjuaoPi7ZVdI5yM/rn+ygfnj1E/wBaK1pO04uWM5TfBvVC333lBcp3z8Yy8a3KR8+alA80k/KX
XfdXqbkFLnCBC1z8XPKwaLeW2lZRG+Uah5ae/lm7svQULcZXZ559oqd51oa4zmXi25Qj/3cpfzExVcpngs/MDClfL8ktcIELXOBiczlg+0cWN1iupPziXO3sXztw0baK2ig3tX/WVorDK8uSosWzT0xtnj1DXO2oZXhc2VTKlwdSvjaQ8jd9boELXOACl+pcWmDRtoqe
Ue6PSr+3/c7Kwb/nyvJk6XdCaV+dPUX5+lnbJ4rN83nKr4LyDHH9Ut6r/6Wqj0hfmhVK+dt2uQUucIELXFKxaGf/x0hYtM/PxFFuUv/sWSnmFS1J+8Sk5lkb4orLRO248t2Doxa/lEtypfz1Vso38nILXOACF7h4uHiwHBHDEj1wGW4VxVGueGgZ7Z+jK0WxaHl0StEi
7hOjzbN2XykOccVlYvS48v2Dj80+JP2FEFHKpTEpX1Wk/L0/t8AFLnCBSyoXDcthEpajY2f/4oGLuFUUR7li/3ynWP8srhSHH54VFi3iPvFs6ZMzsXmODnHFZaJ41PIe6aNnUcrH6kn5u7WUf7BzC1zgAhe4lHApx2IfuIhbRXGUKx5a+vtn+8Mzf9EinliK+8RzpN8G
Zd9XikNccZkoHrWIR/7TSPlmrdwCF7jABS4hlyiWq0hY7FtL8cDFOcq9zWCU6+yfxZViWLQ80l20iCeWZ5qn/uJdi31fGS4T3+Y+avng4Kjl4u1RSyjlk5Wk/GPX/ZMzt8AFLnCBSwaXIZaDTSziF2jOA5dwlHtTaZQrHlqG/bN48G9fWaYWLeKJZbhPPFf65MxunsMh
7lukIa591BJK+aj0l3tDKZflSvnnMLfABS5wgUstLhlYnLeW4VbxhtJWMRzlOvtn50oxu2gJ94lnSftE511L6hA3PGoRjys9Uj5TQ8q/ZOcWuMAFLnCJchGxXNn8bYUhlmOCAxfnVjEc5Wb3z8aVZVi0PMFXtKTuE43mORziXmQOcY2jFvG48mPbo5ZLgr/cW0XKvxq5
BS5wgQtcCrk4sVw1+ALNvrUMsYRbRWOU6+mfU1eKjwn+ckhS0RLuEys2z+EQN1wmhkcteVK+ZF74a1L+LSm3wAUucIFLEpeKWIwDl3CraIxybx98Bu3pn42V4qOCvy9fWLQYp/5JzbNniOs5avl48NHzpcFf7i2U8u/Vcwtc4AIXuPRcCrEYBy7GVjFplBvtn8OV4mRF
S17znDfEDZeJU0r5jyq5BS5wgQtcRC4eLEcGH0MbZ/8jLFVGuUn9s7ZSLClaPPvEC4LfBjVqnqsMcS/Wjys/Ffzyjct2/3JviZT/9OcWuMAFLnBJ5WJgOdyNxX/g4h/lZvTP/itLf9Fyln5iOSpa/M1zxhDXf9SiSfly8JvZ/VL+q+v+O5pb4AIXuMAlm0uI5dAYlujZ
f3SrGB3lRvvn+8X651P1K0tn0RI9sTT2ic7mOTrEjS4Tw+PKz+5+bKZJ+XqilP/Rcgtc4AIXuJRz8WM5WsFyTOzARdsqaqPcOwaHls7+WVsphh+eFRYt2j4xu3nWhrjaMjF61PL57VHLl7bHlaKUb7il/G9qboELXOACFz+XHstBCpYjFCza2b924DLaKmqj3Dsoh5Za
/6wd/I9WiqOi5fTcokU7sRztE1ObZ22I61wmaseVIylfU6R8U5/g9lL+b5Rb4AIXuMClIhewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBew
gIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVg
IbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxz
wQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF
3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3
wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8EC
F7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwC
F7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AF
LnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4
wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4
wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5w
WSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAF
LjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCFpwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWSQXsICF3AIXuMCF
pwgsc8ECF7jABS48RWAht8AFLnBZJBewgIXcAhe4wIWnCCxzwQIXuMAFLjxFYCG3wAUucFkkF7CAhdwCF7jAhacILHPBAhe4wAUuPEVgIbfABS5wWRyX/wecUPKfgDFJaQAAAABJRU5ErkJggg==』

//画像初期化用:常に不可視
初期化画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,558,372』
圧縮画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,558,372』
作業画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』

//彩度強度パネル用:常に不可視
赤画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
黄画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
緑画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
空画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
青画像とはイメージ

その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』
紫画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,186』

//上の初期化
もし『color_cc.png』が存在ならば
 初期化画像の0,0へ『color_cc.png』を画像描画
 初期化画像の0,0,186,186を赤画像の0,0へ画像部分コピー
 初期化画像の186,0,186,186を黄画像の0,0へ画像部分コピー
 初期化画像の372,0,186,186を緑画像の0,0へ画像部分コピー
 初期化画像の0,186,186,186を空画像の0,0へ画像部分コピー
 初期化画像の186,186,186,186を青画像の0,0へ画像部分コピー
 初期化画像の372,186,186,186を紫画像の0,0へ画像部分コピー
違えば
 文字化画像は文字化画像の「{~}」を『』に置換
 文字化画像は文字化画像をBASE64デコード
 文字化画像を『tmp_cc.png』に保存
 圧縮画像の0,0へ『tmp_cc.png』を画像描画
 『tmp_cc.png』をファイル削除
 //
 圧縮画像の0,186,186,186を赤画像の0,0へ画像部分コピー
 圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
 作業画像を赤画像の0,0へ画像ORコピー
 圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
 作業画像を赤画像の0,0へ画像ORコピー
 //
 圧縮画像の0,186,186,186を黄画像の0,0へ画像部分コピー
 圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
 作業画像を黄画像の0,0へ画像ORコピー
 圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
 作業画像を黄画像の0,0へ画像ORコピー
 //
 圧縮画像の0,0,186,186を緑画像の0,0へ画像部分コピー
 圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
 作業画像を緑画像の0,0へ画像ORコピー
 圧縮画像の372,0,186,186を作業画像の0,0へ画像部分コピー
 作業画像を緑画像の0,0へ画像ORコピー
 //
 圧縮画像の0,0,186,186を空画像の0,0へ画像部分コピー
 圧縮画像の186,186,186,186を作業画像の0,0へ画像部分コピー
 作業画像を空画像の0,0へ画像ORコピー
 圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
 作業画像を空画像の0,0へ画像ORコピー
 //
 圧縮画像の0,0,186,186を青画像の0,0へ画像部分コピー
 圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
 作業画像を青画像の0,0へ画像ORコピー
 圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
 作業画像を青画像の0,0へ画像ORコピー
 //
 圧縮画像の0,186,186,186を紫画像の0,0へ画像部分コピー
 圧縮画像の186,0,186,186を作業画像の0,0へ画像部分コピー
 作業画像を紫画像の0,0へ画像ORコピー
 圧縮画像の372,186,186,186を作業画像の0,0へ画像部分コピー
 作業画像を紫画像の0,0へ画像ORコピー
 //
 赤画像を初期化画像の0,0へ画像コピー
 黄画像を初期化画像の186,0へ画像コピー
 緑画像を初期化画像の372,0へ画像コピー
 空画像を初期化画像の0,186へ画像コピー
 青画像を初期化画像の186,186へ画像コピー
 紫画像を初期化画像の372,186へ画像コピー
 初期化画像を『color_cc.png』に画像保存

//組込データ2
文字化画像は『iVBORw0KGgoAAAANSUhEUgAAALoAAAAYCAIAAADCuHBDAAAAB3RJTUUH1QgYDgcSnZzZCAAAABd0RVh0U29mdHdhcmUAR0xEUE5HIHZlciAzLjRxhaThAAAACHRwTkdHTEQzAAAAAEqAKR8AAAAEZ0FNQQAAsY8L/GEFAAAA+UlEQVR4nO3SobIBABQG4Y2iKoqiKoqi
qIqiqIqiqIqiKKqiKKqiuHfuQ5g5Z+Z/g52dD8EBDnGEY5zgFGc4xwUucYVr3OAWd7jHAx7xhGe84BVveMcHPvGFb/zgF+UrH3nLS57ykLvc5CoXOctJjnKQvexkKxtZy0qWspC5zGQqExnLSIYy+O9unP7L7h+mt37eOD1cwiVcSj9vnB4u4RIupZ83Tg+XcAmX0s8b
p4dLuIRL6eeN08MlXMKl9PPG6eESLuFS+nnj9HAJl3Ap/bxxeriES7iUft44PVzCJVxKP2+cHi7hEi6lnzdOD5dwCZfSzxunN+XyB+9fD19TgeJTAAAAAElFTkSuQmCC』

//色相選択用
虹画像とはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,186,24』
もし『rainbow_cc.png』が存在ならば
 虹画像の0,0へ『rainbow_cc.png』を画像描画
違えば
 文字化画像は文字化画像をBASE64デコード
 文字化画像を『rainbow_cc.png』に保存
 虹画像の0,0へ『rainbow_cc.png』を画像描画

//カーソル用
//大きめに作って縮小し、アンチエイリアスをかける
上カーソルとはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,27,27』
線スタイルは『透明』
塗り色は$909090
上カーソルに『13,0,0,27,27,27』で多角形
上カーソルを9,9で画像リサイズ
左カーソルとはイメージ
その親部品は色選択フォーム
その可視はオフ
そのサイズは『0,0,27,27』
線スタイルは『透明』
塗り色は$909090
左カーソルに『0,13,27,0,27,27』で多角形
左カーソルを9,9で画像リサイズ

//色選択フォームの部品
//彩度と強度の選択用
彩度強度パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『0,0,226,222』
//色相の選択用
色相パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『0,222,226,268』
虹画像を色相パネルの16,0へ画像コピー
//カーソルの下の色の拡大表示用
//兼、新規作成時パレット追加用
現在色パネルとはイメージ
その親部品は色選択フォーム
そのサイズは『230,222,262,254』
//色表示部品
元色とはイメージ
その親部品は色選択フォーム
そのサイズは『230,16,262,48』
//
文字サイズは16
文字色は$909090
色選択フォームの265,21へ『→』を文字描画
文字色は$000000
//
新色とはイメージ
その親部品は色選択フォーム
そのサイズは『290,16,322,48』
//
文字色は$909090
色選択フォームの230,95へ『H』を文字表示
文字色は$000000
//
Hエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,90,322,122』
//
文字色は$909090
色選択フォームの230,135へ『S』を文字表示
文字色は$000000
//
Sエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,130,322,162』
//
文字色は$909090
色選択フォームの230,175へ『V』を文字表示
文字色は$000000
//
Vエディタとはスピンエディタ
その親部品は色選択フォーム
そのサイズは『260,170,322,202』
//
色反映ボタンとはボタン
その親部品は色選択フォーム
そのサイズは『270,222,322,254』
そのテキストは『OK』


//状態記録用のグローバル変数
選択X座標とは整数
選択Y座標とは整数
色相X座標とは整数
変更前色とは整数
透明色対応とは整数
元色モードとは整数
新色モードとは整数
変更イベントとは整数
//
色選択キャンセルとは文字列
現在新色とは整数
//グローバル変数の初期化
選択X座標は201
選択Y座標は16
色相X座標は16
変更前色は0
透明色対応は必要
元色モードは『定義』
新色モードは『定義』
変更イベントはオン

//範囲チェック
●色収得可能(X座標,Y座標)
 もしX座標が16未満ならば
  それは0
  戻る
 もしX座標が202以上ならば
  それは0
  戻る
 もしY座標が16未満ならば
  それは0
  戻る
 もしY座標が202以上ならば
  それは0
  戻る
 それは1
 戻る

//現在色の表示
●現在色パネル表示(色名で)
 線太さは1
 線スタイルは『実線』
 線色は$909090
 塗り色は色名
 現在色パネルの0,0から32,32へ四角

//現在色をしらべて表示する
●現在色反映
 //念のため:選択X座標、選択Y座標のチェック
 選択色とは整数
 もし色収得可能(選択X座標,選択Y座標)でなければ
  戻る
 選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
 選択色で現在色パネル表示

//彩度強度カーソルの表示
●彩度強度カーソル表示
 //念のため:選択X座標、選択Y座標のチェック
 もし色収得可能(選択X座標,選択Y座標)でなければ
  戻る
 //古いカーソルを白色で塗りつぶす
 線太さは1
 線スタイルは『実線』
 線色は白色
 塗り色は白色
 彩度強度パネルの0,202から222,226へ四角
 彩度強度パネルの202,0から222,226へ四角
 #カーソル画像コピー
 上カーソルを彩度強度パネルの(選択X座標-4),202へ画像コピー
 左カーソルを彩度強度パネルの202,(選択Y座標-4)へ画像ANDコピー

//色相カーソルの表示
●色相カーソル表示
 //念のため:色相X座標のチェック
 もし色相X座標が16未満ならば
  戻る
 もし色相X座標が202以上ならば
  戻る
 //古いカーソルを白色で塗りつぶす
 線太さは1
 線スタイルは『実線』
 線色は白色
 塗り色は白色
 色相パネルの0,24から226,42へ四角
 //カーソル画像コピー
 上カーソルを色相パネルの(色相X座標-4),24へ画像コピー

//現在の状態をみて、元色を設定する
●元色更新
 選択色とは整数
 もし透明色対応が必要ならば
  もし元色モードが『透明』ならば
   線太さは1
   線スタイルは『実線』
   線色は$909090
   塗り色は白色
   元色の0,0から32,32へ四角
   線スタイルは『点線』
   元色の8,8から24,24へ四角
   線スタイルは『実線』
   戻る
 もし元色モードが『未定義』ならば
  線太さは1
  線スタイルは『実線』
  線色は$909090
  塗り色は白色
  元色の0,0から32,32へ四角
  元色の0,0から31,31へ線
  元色の0,31から31,0へ線
  戻る
 //選択X座標、選択Y座標が彩度強度に使用できる場所なのか確認
 もし色収得可能(選択X座標,選択Y座標)でなければ
  戻る
 //目的の色を取得する
 選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
 線太さは1
 線スタイルは『実線』
 線色は$909090
 塗り色は選択色
 元色の0,0から32,32へ四角
//現在の状態をみて、新色を設定する
●新色更新
 選択色とは整数
 もし透明色対応が必要ならば
  もし新色モードが『透明』ならば
   線太さは1
   線スタイルは『実線』
   線色は$909090
   塗り色は白色
   新色の0,0から32,32へ四角
   線スタイルは『点線』
   新色の8,8から24,24へ四角
   線スタイルは『実線』
   戻る
 もし新色モードが『未定義』ならば
  線太さは1
  線スタイルは『実線』
  線色は$909090
  塗り色は白色
  新色の0,0から32,32へ四角
  新色の0,0から31,31へ線
  新色の0,31から31,0へ線
  戻る
 //選択X座標、選択Y座標が彩度強度に使用できる場所なのか確認
 もし色収得可能(選択X座標,選択Y座標)でなければ
  戻る
 //目的の色を取得する
 選択色は彩度強度パネルの選択X座標,選択Y座標を画像色取得
 線太さは1
 線スタイルは『実線』
 線色は$909090
 塗り色は選択色
 現在新色は選択色//
 新色の0,0から32,32へ四角

//色角度に対応した画像を作成して、彩度強度パネルにコピーする
●彩度強度パネル表示(色角度で)
 透明度とは整数
 もし色角度が60以下ならば
  赤画像を作業画像の0,0へ画像コピー
  透明度は色角度*100/60
  黄画像を作業画像の0,0へ透明度で画像半透明コピー
  作業画像を彩度強度パネルの16,16へ画像コピー
  戻る
 もし色角度が120以下ならば
  黄画像を作業画像の0,0へ画像コピー
  透明度は(色角度-60)*100/60
  緑画像を作業画像の0,0へ透明度で画像半透明コピー
  作業画像を彩度強度パネルの16,16へ画像コピー
  戻る
 もし色角度が180以下ならば
  緑画像を作業画像の0,0へ画像コピー
  透明度は(色角度-120)*100/60
  空画像を作業画像の0,0へ透明度で画像半透明コピー
  作業画像を彩度強度パネルの16,16へ画像コピー
  戻る
 もし色角度が240以下ならば
  空画像を作業画像の0,0へ画像コピー
  透明度は(色角度-180)*100/60
  青画像を作業画像の0,0へ透明度で画像半透明コピー
  作業画像を彩度強度パネルの16,16へ画像コピー
  戻る
 もし色角度が300以下ならば
  青画像を作業画像の0,0へ画像コピー
  透明度は(色角度-240)*100/60
  紫画像を作業画像の0,0へ透明度で画像半透明コピー
  作業画像を彩度強度パネルの16,16へ画像コピー
  戻る
 もし色角度が360以下ならば
  紫画像を作業画像の0,0へ画像コピー
  透明度は(色角度-300)*100/60
  赤画像を作業画像の0,0へ透明度で画像半透明コピー
  作業画像を彩度強度パネルの16,16へ画像コピー
  戻る

//現在の状態をみて、彩度強度パネルをセットする
●彩度強度パネル更新
 色相とは整数
 色相は(色相X座標-16)*360/186
 色相で彩度強度パネル表示

//以下の関数は3つで1セット
//選択されているパレットの色から、状態を変更する
●部分色角度(最大値,中間値,最小値)
 もし最大値が最小値ならば
  それは0
  戻る
 それは60*(最大値-中間値)/(最大値-最小値)
●彩度(最大値,最小値)
 もし最大値が最小値ならば
  それは0
  戻る
 それは最小値/最大値
●HSV分解(色整数を)
 Rとは整数
 Gとは整数
 Bとは整数
 Hとは整数
 Sとは整数
 Vとは整数
 色タイプとは整数
 //RGBに分解
 RはFLOOR(色整数/65536)
 GはFLOOR((色整数%65536)/256)
 BはFLOOR(色整数%256)
 //6タイプに分ける
 色タイプは0
 もし、INT(R)がINT(G)以上ならば
  色タイプは色タイプ+1
 もしINT(G)がINT(B)以上ならば
  色タイプは色タイプ+2
 もしINT(B)がINT(R)以上ならば
  色タイプは色タイプ+4
 //HSVを計算
 色タイプで条件分岐
  1ならば
   Hは300+部分色角度(R,B,G)
   Sは彩度(R,G)
   VはR
  2ならば
   Hは60+部分色角度(G,R,B)
   Sは彩度(G,B)
   VはG
  3ならば
   Hは60-部分色角度(R,G,B)
   Sは彩度(R,B)
   VはR
  4ならば
   Hは180+部分色角度(B,G,R)
   Sは彩度(B,R)
   VはB
  5ならば
   Hは300-部分色角度(B,R,G)
   Sは彩度(B,G)
   VはB
  6ならば
   Hは180-部分色角度(G,B,R)
   Sは彩度(G,R)
   VはG
  7ならば
   Hは0
   Sは1
   VはR
 もしHが360以上ならば
  Hは0
 (H&『,』&S&『,』&V)で戻る

//初期化関数
●元色設定(色整数を)
 Hとは整数
 Sとは整数
 Vとは整数
 //バックアップ
 変更前色は色整数
 もし色整数が空ならば
  色整数は赤色
  元色モードは『未定義』
  新色モードは『未定義』
 もし透明色対応が必要ならば
  もし色整数が『transparent』ならば
   色整数は赤色
   元色モードは『透明』
   新色モードは『透明』
 //計算したHSVから状態をセット
 色整数をHSV分解して『,』で区切る
 Hはそれ[0]
 Sはそれ[1]
 Vはそれ[2]
 選択X座標は16+ROUND(V*185/255)
 選択Y座標は16+ROUND(S*185)
 色相X座標は16+FLOOR(H*186/360)
 //すべて表示
 彩度強度カーソル表示
 色相カーソル表示
 彩度強度パネル更新
 元色更新
 新色更新
 HSV表示
 現在色反映

//HSVの数値表示
●HSV表示
 変更イベントはオフ
 HエディタのテキストはFLOOR((色相X座標-16)*360/186)
 SエディタのテキストはROUND((選択Y座標-16)*255/185)
 VエディタのテキストはROUND((選択X座標-16)*255/185)
 変更イベントはオン

//彩度強度パネルのイベント
彩度強度パネルのマウス押した時は~
 クリックX座標とは整数
 クリックY座標とは整数
 クリックX座標は彩度強度パネルのマウスX
 クリックY座標は彩度強度パネルのマウスY
 もしクリックX座標が12未満ならば
  戻る
 //彩度カーソルだけを移動する場合
 もしクリックX座標が205以上ならば
  もしクリックX座標が215以上ならば
   戻る
  もしクリックY座標が12未満ならば
   戻る
  もしクリックY座標が205以上ならば
   戻る
  もしクリックY座標が16未満ならば
   クリックY座標は16
  もしクリックY座標が202以上ならば
   クリックY座標は201
  選択Y座標はクリックY座標
  彩度強度カーソル表示
  現在色反映
  新色更新
  HSV表示
  描画処理反映
  戻る
 もしクリックY座標が12未満ならば
  戻る
 //強度カーソルだけを移動する場合
 もしクリックY座標が205以上ならば
  もしクリックY座標が215以上ならば
   戻る
  もしクリックX座標が12未満ならば
   戻る
  もしクリックX座標が205以上ならば
   戻る
  もしクリックX座標が16未満ならば
   クリックX座標は16
  もしクリックX座標が202以上ならば
   クリックX座標は201
  選択X座標はクリックX座標
  彩度強度カーソル表示
  現在色反映
  新色更新
  HSV表示
  描画処理反映
  戻る
 //選択用の画像のそばをクリックした場合
 //近くの画像内に移動
 もしクリックX座標が16未満ならば
  クリックX座標は16
 もしクリックX座標が202以上ならば
  クリックX座標は201
 もしクリックY座標が16未満ならば
  クリックY座標は16
 もしクリックY座標が202以上ならば
  クリックY座標は201
 //彩度強度カーソル両方移動
 選択X座標はクリックX座標
 選択Y座標はクリックY座標
 彩度強度カーソル表示
 現在色反映
 新色モードは『定義』
 新色更新
 HSV表示
 描画処理反映
//
彩度強度パネルのマウス移動した時は~
 選択色とは整数
 もし色収得可能(彩度強度パネルのマウスX,彩度強度パネルのマウスY)ならば
  選択色は彩度強度パネルの(彩度強度パネルのマウスX),(彩度強度パネルのマウスY)を画像色取得
  選択色で現在色パネル表示
 違えば
  現在色反映

//色相パネルのイベント
色相パネルのマウス押した時は~
 クリックX座標とは整数
 クリックY座標とは整数
 色相とは整数
 クリックX座標は色相パネルのマウスX
 クリックY座標は色相パネルのマウスY
 もしクリックX座標が12未満ならば
  戻る
 もしクリックX座標が206以上ならば
  戻る
 もしクリックY座標が36以上ならば
  戻る
 色相X座標はクリックX座標
 もし色相X座標が16未満ならば
  色相X座標は16
 もし色相X座標が202以上ならば
  色相X座標は201
 彩度強度パネル更新
 色相カーソル表示
 現在色反映
 新色モードは『定義』
 新色更新
 HSV表示
 描画処理反映
//
色相パネルのマウス移動した時は~
 現在色反映

//元色のイベント
元色のクリックした時は~
 変更前色を元色設定

//元色のイベント
新色のクリックした時は~
 もし新色モードが『未定義』ならば
  新色モードは『定義』
  新色更新
  戻る
 もし透明色対応が必要ならば
  もし新色モードが『定義』ならば
   新色モードは『透明』
   新色更新
   戻る
  もし新色モードが『透明』ならば
   新色モードは『未定義』
   新色更新
   戻る
 もし新色モードが『定義』ならば
  新色モードは『未定義』
  新色更新
  戻る

//HSVエディタのイベント
Hエディタの変更した時は~
 H値とは整数
 もし変更イベントがオンでなければ
  戻る
 変更イベントはオフ
 H値はINT(Hエディタのテキスト)
 もしH値が0未満ならば
  H値は空
 もしH値が360以上ならば
  H値は359
 もしHエディタのテキストが空でなければ
  HエディタのテキストはH値
 色相X座標は16+FLOOR(H値*186/360)
 彩度強度パネル更新
 色相カーソル表示
 現在色反映
 新色更新
 変更イベントはオン
Sエディタの変更した時は~
 S値とは整数
 もし変更イベントがオンでなければ
  戻る
 変更イベントはオフ
 S値はINT(Sエディタのテキスト)
 もしS値が0未満ならば
  S値は空
 もしS値が255超ならば
  S値は255
 もしSエディタのテキストが空でなければ
  SエディタのテキストはS値
 選択Y座標は16+ROUND(S値*185/255)
 彩度強度カーソル表示
 現在色反映
 新色更新
 変更イベントはオン
Vエディタの変更した時は~
 V値とは整数
 もし変更イベントがオンでなければ
  戻る
 変更イベントはオフ
 V値はINT(Vエディタのテキスト)
 もしV値が0未満ならば
  V値は空
 もしV値が255超ならば
  V値は255
 もしVエディタのテキストが空でなければ
  VエディタのテキストはV値
 選択X座標は16+ROUND(V値*185/255)
 彩度強度カーソル表示
 現在色反映
 新色更新
 変更イベントはオン

//インターフェース

//色選択OKボタン
色反映ボタンのクリックした時は~
 色選択キャンセルは、いいえ
 色選択フォームを閉じる
//色選択フォームのイベント
色選択フォームの表示した時は~
 色選択キャンセルは、はい
 色選択フォームを中央移動

//HSV色選択
●HSV色選択(現在色から透明色対応有無で)
 色選択キャンセルははい
 もし透明色対応有無が『透明色未対応』ならば
  透明色対応は不要
  もし現在色が『transparent』ならば
   現在色は空
  現在色を元色設定
  色選択フォームをモーダル表示
  戻る
 もし透明色対応有無が『透明色対応』ならば
  透明色対応は必要
  現在色を元色設定
  色選択フォームをモーダル表示
  戻る
//選択色収得
●選択色収得
 もし色選択キャンセルならば
  新色モードは元色モード
  現在新色は変更前色
 もし新色モードが『未定義』ならば
  空で戻る
 もし新色モードが『透明』ならば
  『transparent』で戻る
 現在新色で戻る

//サンプルプログラム

//テスト
テスト色とは整数
テスト色は緑色
//『透明色対応』or『透明色未対応』
//ダイアログ右上の四角クリックで、色、未定義色、透明色の切り替え
テスト色から『透明色対応』でHSV色選択
//OKを押さなければ元の色番号がそのまま戻る
//未定義色は空、透明色は『transparent』が戻る
テスト色は選択色収得
(『選択された色は"』&テスト色&『"です』)と言う
//母艦の可視をオフにしているので忘れず閉じる
終わり


名前:
コメント:


ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。
添付ファイル