func init()
  include("init_win_ctrl")
  
  fvar(old)
  old = block.select(BLK_BODY)
  //---------------------- CREATE ----------------------------------------------
  println(ctrl, ' := NewLabel(' + PARENT_CTRL + ', ', Caption, ');')

  //---------------------- PROPERTYS -------------------------------------------
  include("property_win_ctrl")
  if(isndef(Alignment))
    println(ctrl + '.TextAlign := ' + Alignment + ';')
  end
  if(isndef(AutoSize))
    println(ctrl + '.AutoSize(true);')
  end
  
  //---------------------- EVENTS ----------------------------------------------
  if(linked(onClick))
    println(ctrl, '.onClick := ' + ctrl + '_onClick;')
    lng.begin_proc(ctrl + '_onClick(obj:PObj)')
      event(onClick)
    lng.end_proc(BLK_MTD_HEAD)
  end
  block.select(old)
end

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

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

include("methods_win_ctrl")