*情報 作者名：はっぱ 引用元：[[なでしこプログラム掲示板「はっぱのサンプル集５７」>http://www.himanavi.net/cgi/nade-bbs/cbbs.cgi?mode=al2&namber=734&rev=&no=0]] *概要 色選択フォームユニット。 color_cc.png、rainbow_cc.pngを初回起動時に生成。 #image(無題.PNG) *解説 ***引数 現在色：初期状態の色 透明色対応有無：『透明色対応』or『透明色未対応』 ***返り値 選択した色 *サンプルプログラム //テスト テスト色とは整数 テスト色は緑色 //『透明色対応』or『透明色未対応』 //ダイアログ右上の四角クリックで、色、未定義色、透明色の切り替え テスト色から『透明色対応』でＨＳＶ色選択 //ＯＫを押さなければ元の色番号がそのまま戻る //未定義色は空、透明色は『transparent』が戻る テスト色は選択色収得 (『選択された色は"』&テスト色&『"です』)と言う //母艦の可視をオフにしているので忘れず閉じる 終わり *本体 色選択フォームとはフォーム そのサイズは『350,250,702,552』 そのスタイルは『ダイアログスタイル』 そのタイトルは『色の選択』 //組込データ //サイズ縮小のため、ＲＧＢごとに分解してある 文字化画像とは文字列 文字化画像は『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』に画像保存 //組込データ２ 文字化画像は『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へ『Ｈ』を文字表示 文字色は$000000 // Ｈエディタとはスピンエディタ その親部品は色選択フォーム そのサイズは『260,90,322,122』 // 文字色は$909090 色選択フォームの230,135へ『Ｓ』を文字表示 文字色は$000000 // Ｓエディタとはスピンエディタ その親部品は色選択フォーム そのサイズは『260,130,322,162』 // 文字色は$909090 色選択フォームの230,175へ『Ｖ』を文字表示 文字色は$000000 // Ｖエディタとはスピンエディタ その親部品は色選択フォーム そのサイズは『260,170,322,202』 // 色反映ボタンとはボタン その親部品は色選択フォーム そのサイズは『270,222,322,254』 そのテキストは『ＯＫ』 //状態記録用のグローバル変数 選択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 色相で彩度強度パネル表示 //以下の関数は３つで１セット //選択されているパレットの色から、状態を変更する ●部分色角度(最大値,中間値,最小値) もし最大値が最小値ならば それは0 戻る それは60*(最大値-中間値)/(最大値-最小値) ●彩度(最大値,最小値) もし最大値が最小値ならば それは0 戻る それは最小値/最大値 ●ＨＳＶ分解(色整数を) Ｒとは整数 Ｇとは整数 Ｂとは整数 Ｈとは整数 Ｓとは整数 Ｖとは整数 色タイプとは整数 //ＲＧＢに分解 ＲはFLOOR(色整数/65536) ＧはFLOOR((色整数%65536)/256) ＢはFLOOR(色整数%256) //６タイプに分ける 色タイプは0 もし、INT(Ｒ)がINT(Ｇ)以上ならば 色タイプは色タイプ+1 もしINT(Ｇ)がINT(Ｂ)以上ならば 色タイプは色タイプ+2 もしINT(Ｂ)がINT(Ｒ)以上ならば 色タイプは色タイプ+4 //ＨＳＶを計算 色タイプで条件分岐 1ならば Ｈは300+部分色角度(Ｒ,Ｂ,Ｇ) Ｓは彩度(Ｒ,Ｇ) ＶはＲ 2ならば Ｈは60+部分色角度(Ｇ,Ｒ,Ｂ) Ｓは彩度(Ｇ,Ｂ) ＶはＧ 3ならば Ｈは60-部分色角度(Ｒ,Ｇ,Ｂ) Ｓは彩度(Ｒ,Ｂ) ＶはＲ 4ならば Ｈは180+部分色角度(Ｂ,Ｇ,Ｒ) Ｓは彩度(Ｂ,Ｒ) ＶはＢ 5ならば Ｈは300-部分色角度(Ｂ,Ｒ,Ｇ) Ｓは彩度(Ｂ,Ｇ) ＶはＢ 6ならば Ｈは180-部分色角度(Ｇ,Ｂ,Ｒ) Ｓは彩度(Ｇ,Ｒ) ＶはＧ 7ならば Ｈは0 Ｓは1 ＶはＲ もしＨが360以上ならば Ｈは0 (Ｈ&『,』&Ｓ&『,』&Ｖ)で戻る //初期化関数 ●元色設定(色整数を) Ｈとは整数 Ｓとは整数 Ｖとは整数 //バックアップ 変更前色は色整数 もし色整数が空ならば 色整数は赤色 元色モードは『未定義』 新色モードは『未定義』 もし透明色対応が必要ならば もし色整数が『transparent』ならば 色整数は赤色 元色モードは『透明』 新色モードは『透明』 //計算したＨＳＶから状態をセット 色整数をＨＳＶ分解して『,』で区切る Ｈはそれ[0] Ｓはそれ[1] Ｖはそれ[2] 選択X座標は16+ROUND(Ｖ*185/255) 選択Y座標は16+ROUND(Ｓ*185) 色相X座標は16+FLOOR(Ｈ*186/360) //すべて表示 彩度強度カーソル表示 色相カーソル表示 彩度強度パネル更新 元色更新 新色更新 ＨＳＶ表示 現在色反映 //ＨＳＶの数値表示 ●ＨＳＶ表示 変更イベントはオフ ＨエディタのテキストはFLOOR((色相X座標-16)*360/186) ＳエディタのテキストはROUND((選択Y座標-16)*255/185) Ｖエディタのテキストは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座標 彩度強度カーソル表示 現在色反映 新色更新 ＨＳＶ表示 描画処理反映 戻る もしクリックY座標が12未満ならば 戻る //強度カーソルだけを移動する場合 もしクリックY座標が205以上ならば もしクリックY座標が215以上ならば 戻る もしクリックX座標が12未満ならば 戻る もしクリックX座標が205以上ならば 戻る もしクリックX座標が16未満ならば クリックX座標は16 もしクリックX座標が202以上ならば クリックX座標は201 選択X座標はクリックX座標 彩度強度カーソル表示 現在色反映 新色更新 ＨＳＶ表示 描画処理反映 戻る //選択用の画像のそばをクリックした場合 //近くの画像内に移動 もしクリックX座標が16未満ならば クリックX座標は16 もしクリックX座標が202以上ならば クリックX座標は201 もしクリックY座標が16未満ならば クリックY座標は16 もしクリックY座標が202以上ならば クリックY座標は201 //彩度強度カーソル両方移動 選択X座標はクリックX座標 選択Y座標はクリックY座標 彩度強度カーソル表示 現在色反映 新色モードは『定義』 新色更新 ＨＳＶ表示 描画処理反映 // 彩度強度パネルのマウス移動した時は～ 選択色とは整数 もし色収得可能(彩度強度パネルのマウス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 彩度強度パネル更新 色相カーソル表示 現在色反映 新色モードは『定義』 新色更新 ＨＳＶ表示 描画処理反映 // 色相パネルのマウス移動した時は～ 現在色反映 //元色のイベント 元色のクリックした時は～ 変更前色を元色設定 //元色のイベント 新色のクリックした時は～ もし新色モードが『未定義』ならば 新色モードは『定義』 新色更新 戻る もし透明色対応が必要ならば もし新色モードが『定義』ならば 新色モードは『透明』 新色更新 戻る もし新色モードが『透明』ならば 新色モードは『未定義』 新色更新 戻る もし新色モードが『定義』ならば 新色モードは『未定義』 新色更新 戻る //ＨＳＶエディタのイベント Ｈエディタの変更した時は～ Ｈ値とは整数 もし変更イベントがオンでなければ 戻る 変更イベントはオフ Ｈ値はINT(Ｈエディタのテキスト) もしＨ値が0未満ならば Ｈ値は空 もしＨ値が360以上ならば Ｈ値は359 もしＨエディタのテキストが空でなければ ＨエディタのテキストはＨ値 色相X座標は16+FLOOR(Ｈ値*186/360) 彩度強度パネル更新 色相カーソル表示 現在色反映 新色更新 変更イベントはオン Ｓエディタの変更した時は～ Ｓ値とは整数 もし変更イベントがオンでなければ 戻る 変更イベントはオフ Ｓ値はINT(Ｓエディタのテキスト) もしＳ値が0未満ならば Ｓ値は空 もしＳ値が255超ならば Ｓ値は255 もしＳエディタのテキストが空でなければ ＳエディタのテキストはＳ値 選択Y座標は16+ROUND(Ｓ値*185/255) 彩度強度カーソル表示 現在色反映 新色更新 変更イベントはオン Ｖエディタの変更した時は～ Ｖ値とは整数 もし変更イベントがオンでなければ 戻る 変更イベントはオフ Ｖ値はINT(Ｖエディタのテキスト) もしＶ値が0未満ならば Ｖ値は空 もしＶ値が255超ならば Ｖ値は255 もしＶエディタのテキストが空でなければ ＶエディタのテキストはＶ値 選択X座標は16+ROUND(Ｖ値*185/255) 彩度強度カーソル表示 現在色反映 新色更新 変更イベントはオン //インターフェース //色選択ＯＫボタン 色反映ボタンのクリックした時は～ 色選択キャンセルは、いいえ 色選択フォームを閉じる //色選択フォームのイベント 色選択フォームの表示した時は～ 色選択キャンセルは、はい 色選択フォームを中央移動 //ＨＳＶ色選択 ●ＨＳＶ色選択(現在色から透明色対応有無で) 色選択キャンセルははい もし透明色対応有無が『透明色未対応』ならば 透明色対応は不要 もし現在色が『transparent』ならば 現在色は空 現在色を元色設定 色選択フォームをモーダル表示 戻る もし透明色対応有無が『透明色対応』ならば 透明色対応は必要 現在色を元色設定 色選択フォームをモーダル表示 戻る //選択色収得 ●選択色収得 もし色選択キャンセルならば 新色モードは元色モード 現在新色は変更前色 もし新色モードが『未定義』ならば 空で戻る もし新色モードが『透明』ならば 『transparent』で戻る 現在新色で戻る ---- #comment() ----
下から選んでください:
