components_Buttons_TextSizeTask.bs

sub init()
  m.top.functionName = "getTextSize"
end sub

sub getTextSize()

  reg = CreateObject("roFontRegistry")
  font = reg.GetDefaultFont(m.top.fontsize, false, false)

  res = []

  for each line in m.top.text
    res.push(font.GetOneLineWidth(line, m.top.maxWidth))
  end for

  m.top.height = font.GetOneLineHeight()


  m.top.width = res

end sub