func init()
  lng.include('htmlctrl')
  
  include("init_win_ctrl")
  
  fvar(old)  
  old = block.select(BLK_BODY)
  //---------------------- CREATE ----------------------------------------------
  
  println('InitHTMLControl(hinstance);')
  println(ctrl, ' := _NewControl(' + PARENT_CTRL + ', WC_HTML, WS_VISIBLE or WS_CHILD, False, nil);')

  //---------------------- PROPERTYS -------------------------------------------
  include("property_win_ctrl")
//  if(isndef(URL))
//  file://\windows\default_0419.htm
  if(URL <> '')
    println(ctrl + '.Perform(DTM_NAVIGATE, 0, LPARAM(PWideChar(', URL, ')));')
  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 doNavigate(_data)
  println(ctrl + '.Perform(DTM_NAVIGATE, 0, LPARAM(PWideChar(', e_str(_Data), ')));')
end

func doRefresh(_data)
  //ToDo
end

func doClear(_data)
  println(ctrl + '.Perform(DTM_CLEAR, 0, 0);')
end

func doBack(_data)
  //ToDo
end

func doForward(_data)
  //ToDo
end

func doFromText(_data)
  //ToDo
end

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

func Page()
  //return(ctrl + '.Count')
end

include("methods_win_ctrl")