Editable


This class includes EditText (a single editable field) or MultiEditText (a mulit-line edit field - basically a mini editor). Be very careful if you trap any events destined for these controls as the resulting behaviour is likely to be highly esoteric. Please examine the control styles for this class in the Win32 API documentation for behavioural possibilities. Perversely, an EditText is always left-justified and can never be right or center justified even though the style constants ES_RIGHT & ES_CENTER exist and apparently work for MultiEditText controls. Text can be read/written using getText()& setText().

It is possible to change the background colour of these controls by including this code in the handler:

atom hBrush = c_func(xCreateSolidBrush, {Parchment})

procedure handler_EDIT(integer id, integer msg, atom wParam, object lParam)
    if msg=WM_CTLCOLOREDIT then
        void = c_func(xSetBkColor, {wParam, Parchment})
        return hBrush
    elsif msg=WM_DESTROY then
        void = deleteObject(hBrush)
    end if
end procedure