module CalcWorksheet

# File Trail_Calc.rb, line 553
def [] y,x    #
  cell = self.getCellByPosition(x,y)
  if cell.Type == 2 #CellCollectionType::TEXT
    cell.String
  else
    cell.Value
  end
end

# File Trail_Calc.rb, line 569
def []= y,x,value   #
  cell = self.getCellByPosition(x,y)
  if value.class == String #CellCollectionType::TEXT
    cell.String = value
  else
    cell.Value= value
  end
end

# File Trail_Calc.rb, line 669
def box(y1,x1,y2,x2)
  r = self.getCellRangeByPosition(x1,y1,x2,y2)
  b = r.RightBorder
  b.InnerLineWidth = 10

  r.BottomBorder = b
  r.TopBorder = b
  r.LeftBorder = b
  r.RightBorder = b
end

# File Trail_Calc.rb, line 759
def center(y1,x1)
  self.horizontal(y1,x1,2)
end

# File Trail_Calc.rb, line 751
def centers(y1,x1,y2,x2)
  self.horizontals(y1,x1,y2,x2,2)
end

# File Trail_Calc.rb, line 505
def color(y,x)  #
    self.getCellByPosition(x,y).CellBackColor
end

# File Trail_Calc.rb, line 819
def copy(sy1,sx1,sy2,sx2,ty,tx)
  r = self.getCellRangeByPosition(sx1,sy1,sx2,sy2).getRangeAddress
  c = self.getCellByPosition(tx,ty).getCellAddress
  self.copyRange(c,r)
end

# File Trail_Calc.rb, line 771
def format_copy(sy,sx,ty1,tx1,ty2,tx2)
  s = self.getCellByPosition(sx,sy)
  sp = s.getPropertySetInfo.getProperties
  names = sp.each.map{|p| p.Name}
  ps = s.getPropertyValues(names)
  self.getCellRangeByPosition(tx1,ty1,tx2,ty2).setPropertyValues(names,ps)
end

# File Trail_Calc.rb, line 803
def format_copy1(sy,sx,ty,tx)
  s = self.getCellByPosition(sx,sy)
  sp = s.getPropertySetInfo.getProperties
  names = sp.each.map{|p| p.Name}
  ps = s.getPropertyValues(names)
  self.getCellByPosition(tx,ty).setPropertyValues(names,ps)
end

# File Trail_Calc.rb, line 790
def format_range_copy(sy,sx1,sx2,  ty,tx,n=1)
  return if n < 1
  (sx1..sx2).each do |x|
    self.format_copy(sy,x,  ty,tx+(x-sx1),ty+n-1,tx+(x-sx1))
  end
end

# File Trail_Calc.rb, line 488
def get_chartdoc(n=0)
  charts = self.getCharts
  if n.class == String
    chart = charts.getByName(n)
  else
    chart = charts.getByIndex(n)
  end
  chartDoc = chart.EmbeddedObject
  chartDoc.extend(CalcChartDoc)
end

# File Trail_Calc.rb, line 605
def get_formula( y,x)  #
  cell = self.getCellByPosition(x,y)
  cell.Formula
end

# File Trail_Calc.rb, line 535
def get_width(x)  #
    self.Columns.getByIndex(x).Width
end

# File Trail_Calc.rb, line 638
def group_column(x1,x2)
  r = self.getCellRangeByPosition(x1,0,x2,0).RangeAddress
  self.group(r,0)
end

# File Trail_Calc.rb, line 627
def group_row(y1,y2)
  r = self.getCellRangeByPosition(0,y1,0,y2).RangeAddress
  self.group(r,1)
end

# File Trail_Calc.rb, line 741
def horizontal(y1,x1,h=0)
  self.getCellByPosition(x1,y1).HoriJustify  = h
end

# File Trail_Calc.rb, line 731
def horizontals(y1,x1,y2,x2,h=0)
  self.getCellRangeByPosition(x1,y1,x2,y2).HoriJustify  = h
end

# File Trail_Calc.rb, line 831
def insert_rows(n,count=1)   #
  self.Rows.insertByIndex(n,count)
end

# File Trail_Calc.rb, line 649
def merge(y1,x1,y2,x2)
  self.getCellRangeByPosition(x1,y1,x2,y2).merge(true)
end

# File Trail_Calc.rb, line 659
def merge_off(y1,x1,y2,x2)
  self.getCellRangeByPosition(x1,y1,x2,y2).merge(false)
end

# File Trail_Calc.rb, line 586
def r_str(y,x)
  r = ''
  x -= 1
  if x > 26*26
    return "ZZ#{y}"
  else
    r = $a2z[((x/26)-1).to_i] if x > 25
    r += $a2z[(x%26).to_i]
    r += y.to_s
  end
  r
end

# File Trail_Calc.rb, line 840
def remove_rows(n,count=1)   #
  r = self.getCellRangeByPosition(0,n,0,n+count-1).getRangeAddress
  self.removerange(r,3)
end

# File Trail_Calc.rb, line 515
def set_color(y,x,color)  #
    self.getCellByPosition(x,y).CellBackColor = color
end

# File Trail_Calc.rb, line 616
def set_formula( y,x,f)  #
  cell = self.getCellByPosition(x,y)
  cell.Formula = f
end

# File Trail_Calc.rb, line 527
def set_range_color(y1,x1,y2,x2,color) #
  self.getCellRangeByPosition(x1,y1,x2,y2).CellBackColor = color
end

# File Trail_Calc.rb, line 543
def set_width(x,width)  #
    self.Columns.getByIndex(x).Width = width
end

# File Trail_Calc.rb, line 719
def v_top(y1,x1)
  self.vertical(y1,x1,1)
end

# File Trail_Calc.rb, line 715
def v_tops(y1,x1,y2,x2)
  self.verticals(y1,x1,y2,x2,1)
end

# File Trail_Calc.rb, line 703
def vertical(y1,x1,v=0)
  self.getCellByPosition(x1,y1).VertJustify  = v
end

# File Trail_Calc.rb, line 699
def verticals(y1,x1,y2,x2,v=0)
  self.getCellRangeByPosition(x1,y1,x2,y2).VertJustify  = v
end

# File Trail_Calc.rb, line 687
def wrap(y1,x1,y2,x2)
  self.getCellRangeByPosition(x1,y1,x2,y2).IsTextWrapped = true
end