(cache)反対色を作る～カラーパレット（リストボックス）の文字色を見やすくする

ロケッこがゆく

反対色を作る～カラーパレット（リストボックス）の文字色を見やすくする

calendar

search this site.

よく使う、検索される投稿

アマゾン

楽天

selected entries

recent trackback

profile

others

mobile

2011.10.13 Thursday
18:07

カラーリスト（パレット　色見本）のような物をリストボックスを使って、作ろうと考える。

リストボックスの描画は、おなじみDOBON.NETにあるので、
これをリストの背景を該当の塗りつぶして、色名称（色の名前）を表示する感じに応用する。

問題は、表示する色名称、文字列の色。
同じ色では見えないし、適当な固定色をあてたとしても、
色によっては、見える見えないが発生してしまう。

なので、単純に考えて、パレット色に対して見やすい（反対の）色にするのがいいというのが、今回の話題。

探していたら、「背景色から文字色を算出したい」という内容の投稿があった。

要するに、明度差を求めて、結果が125以上（上のソースでは127.5）で
黒か白かを分ける感じである。

VB2008に翻訳すると、

Public Function ToBackColor(ByVal Source As Color) As Color

‌

Dim bColor As Single = CSng(Source.R * 299I + Source.G * 587I + Source.B * 114I) / 1000.0F

‌

If bColor > 127.5F Then

Return Color.Black

Else

Return Color.White

End If

‌

End Function

という感じである。

リストボックスに適用してみると

反対色

白黒以外を計算で求めることもできるのだが、
見た目にも白黒が一番はっきりしている感じだ。

追記
たまに、このページが検索されるのだが、
この記事は、反対と言うよりも、背景色から適当な色を割り出すと行った感じの記事なので、
反対色で調べた方はちょっと内容が違うと思われたに違いない。

反対色、いわゆる補色の計算式についてさらに調べると、次のページを見つけた。

補色のRGB値を計算する

こちらの式はイラストレータで使われている補色式のようです。

VBでざっくり書くと

Dim nR As Int32 = Source.R

Dim nG As Int32 = Source.G

Dim nB As Int32 = Source.B

‌

Dim nX As Int32 = Math.Max(Math.Max(nR, nG), nB)

Dim nY As Int32 = Math.Min(Math.Min(nR, nG), nB)

Dim nZ As Int32 = nX + nY

‌

Dim nClr As Color = Color.FromArgb(nZ - nR, nZ - nG, nZ - nB)

ってところでしょうか。
ついでに、反転は

Dim nR As Int32 = &HFF - Source.R

Dim nG As Int32 = &HFF - Source.G

Dim nB As Int32 = &HFF - Source.B

‌

Dim nClr As Color = Color.FromArgb(nR, nG, nB)

という感じ。

実行結果
反対色

参考
ListBoxの項目を自分で描画する
 背景色から文字色を算出したい
 文字色と背景のコントラスト

 補色のRGB値を計算する
 カラーの反転色または補色への変更

コメントする

この記事のトラックバックURL

トラックバック

このページの先頭へ▲

■科学・ロケット
月の大きさ
 ロケット打ち上げ延期率
 種子島へ行こう　船

■その他
三角ネジのドライバー
 ミラーレンズ 800mmの実力
 過去のハッピーセット一覧
 ハッピーセットトミカ2015

反対色を作る～カラーパレット（リストボックス）の文字色を見やすくする (10/13)

Windows 2008 Server R2 で NTPサーバ（タイムサーバ）を構築してみる
⇒ awgs Foundry (10/01)
Windows7（クライアント）から windows 2008 R2 serverの NTPサーバ（タイムサーバ）を取得（同期）してみる
⇒ awgs Foundry (10/01)
Windows7（クライアント）から windows 2008 R2 serverの NTPサーバ（タイムサーバ）を取得（同期）してみる
⇒ パソコン鳥のブログ (02/02)
アップルゴーヤ炸裂～グリーンカーテン2013
⇒ 年間トレンドまとめと最新ニュースチャンネル (07/26)
アップルゴーヤ炸裂～グリーンカーテン2013
⇒ 年間トレンドまとめと最新ニュースチャンネル (01/12)
XPサポート終了まであと1年
⇒ 【2chまとめ】ニュース速報嫌儲版 (04/07)
三角ネジのドライバー
⇒ northak.com (09/28)
SoftBank X06HTのADBドライバ
⇒ 日々是炎上 (01/23)
ぴちょんくん～クリアフォース
⇒ 見つけました (11/21)
八女茶ソフト
⇒ ベストアンサー (09/17)

rockecco

※当ブログはリンクフリーですが、取材や雑誌等で掲載される場合は、事前にお知らせください。

<< February 2019 >>