|
|
Usage:
edit( )
edit(Arg1, ... , ArgN)
Creates an edit control.
Put inside the brackets only these arguments which you need. All other arguments will be set by default. The arguments may be any of the following (the order is not important).
| handle(Handle) | handle to this edit control. |
| parent(Parent) | handle to the parent window. |
| class(Edit_func) | predicate which will receive the messages from this edit control. |
| text(Text) | the text which is set at the beginning |
| pos(X,Y) | coordinates of upper left corner |
| size(Width, Height) | size of the edit control |
| border | flag (default on) |
| multiline | flag (default off) |
| readonly | flag (default off) |
Example:
?-window( title("Edit control demo"), size(200, 200)).
win_func(init):-
window_brush(_, rgb(0, 0, 255)), % blue
edit( class(edit_func), text("Start Value"), pos(10, 10), size(100, 100), multiline).
edit_func(init) :-
color_text(_, rgb(0, 255, 0)), % green
color_text_back(_, rgb(255, 0, 0)). % red
See also:
