|
|
Usage:
ColorReturn is select_color(ParentWindow, ColorStart)
Invokes a standard select color dialog box using ParentWindow
for parent window and ColorStart for start color (selected in the
beginning). The new selected color is returned in ColorReturn .
| ColorReturn | variable to receive the selected color |
| ParentWindow | Parent window for the dialog box. Use _ for default. |
| ColorStart | integer containing a color, you can use rgb to create such integer. |
Example:
?-
Color is select_color(_,
0), % 0 is black, 0xffffff is white
brush(Color),
window(_, _, win_func(_),
"select_color demo", 100, 100, 200, 200).
win_func(paint) :- ellipse(50,50,150,150).
See also:
