"ColorChooser"
GUIKit`
GUIKit`
"ColorChooser"
GUIKitで提供されていた機能は，組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった．
Widget["ColorChooser"]
さまざまな色モデルインターフェースからの色選択を可能にするパネルを提供する．
詳細
- Widget["ColorChooser"]を使用する際は，まずNeeds["GUIKit`"]を使って GUIKit をロードする必要がある．
- Widget["ColorChooser"]のインスタンスを任意のユーザインターフェース定義とともに置き，選択器の"selectionModel"にバインドして現行選択の色が変更された場合は常に通知があるようにすることができる．
- 使用可能なプロパティ：
-
"selectionModel" DefaultColorSelectionModel ユーザインターフェースとデータ間の選択操作を仲介するモデル "color" white 現在選択されている色 - "selectionModel"プロパティは，選択色が変化した場合の"change"イベントとのバインドを可能にする．
例題
すべて開く すべて閉じる例 (1)
Needs["GUIKit`"]ref = GUIRun[
Widget["ColorChooser"]
];GUIScreenShot[ ref]一般化と拡張 (1)
Needs["GUIKit`"]アクティブな選択色とバインドしてWolfram言語スタイルのカラープリミティブを得る：
GUIRunModal[
Widget["Panel", {
Widget["ColorChooser", {
PropertyValue[{"chooser", "selectionModel"}, Name -> "colorSelectionModel"], BindEvent[{"colorSelectionModel", "change"},
Script[updateColor[]]]
}, Name -> "chooser"],
{Widget["TextField", {"text" -> " ", "editable" -> False}, WidgetLayout -> {"Stretching" -> {None, None}}, Name -> "myColorWell"],
Widget["ComboBox", {
"items" -> {"RGBColor", "GrayLevel", "CMYKColor"}, BindEvent["action", Script[updateColor[]]]}, Name -> "myColorModel"],
Widget["TextField", {"text" -> ""}, Name -> "myTextField"]},
Script[
colorExpr = RGBColor[0, 0, 0];
updateColor[] := Module[{newColor},
newColor = PropertyValue[{"colorSelectionModel", "selectedColor"}];
SetPropertyValue[{"myColorWell", "background"}, newColor];
colorExpr = RGBColor[PropertyValue[{newColor, "red"}] / 255., PropertyValue[{newColor, "green"}] / 255., PropertyValue[{newColor, "blue"}] / 255.];
colorExpr = Chop[#, 10 ^ -5]& /@ ToColor[colorExpr, ToExpression[PropertyValue[{"myColorModel", "selectedItem"}]]];
SetPropertyValue[{"myTextField", "text"}, ToString[NumberForm[colorExpr, 5]]];
];
],
BindEvent["endModal", Script[colorExpr]]
}]
]関連リンク
-
▪
Widget