require "phi"
form = Phi::Form.new
edit = Phi::RichEdit.new form

  atr = edit.sel_attributes
  atr.color = Phi::CL_RED
  atr.height += 5
  atr.style =  [Phi::FS_BOLD, Phi::FS_ITALIC]

##  edit.def_attributes.assign(atr)
    #=> ok デフォルトも変わる。

  edit.def_attributes.assign(edit)
    #=> TRichEdit を TTextAttributes に代入することはできません (Phi::DelphiError)

