func init()
  include("init_win_ctrl")
  
  fvar(old)
  old = block.select(BLK_BODY)
  //---------------------- CREATE ----------------------------------------------
  fvar(fl)
  if(isndef(Password))
    fl = 'eoPassword'
  end
  if(isndef(ReadOnly))
    fl &= 'eoReadonly' 
  end
  println(ctrl, ' := NewEditbox(' + PARENT_CTRL + ', [', fl ? _arr.join(fl, ',') : '', ']);')

  //---------------------- PROPERTYS -------------------------------------------
  include("property_win_ctrl")
  if(isndef(Text))
    println(ctrl + '.Text := ', Text, ';')
  end
  if(isdef(Color) and not lng.isfpc())
    println(ctrl, '.Color := ', Color, ';')
  end

  //---------------------- EVENTS ----------------------------------------------
  if(linked(onChange))
    lng.begin_proc(ctrl + '_OnChange(obj:PObj)')
      event(onChange, ctrl + '.Text')
    lng.end_proc(BLK_MTD_HEAD)
    
    println(ctrl, '.OnChange := ' + ctrl + '_OnChange;')
  end
  block.select(old)
end

func doText(_data)
  println(ctrl + '.Text := ', String, ';')
end

func Text()
  return(ctrl + '.Text')
end

include("methods_win_ctrl")