4.6.3.2 MergeCells

MergeCells procedure

Prototype:	procedure MergeCells(const row1,col1,row2,col2 :integer);
Description:	Merges a number of cells into one.
Syntax:	xls.MergeCells(row1,col1,row2,col2);
	Part	Description
	xls	Variable declared as an instance of the TExcelWrapper class
	row1	Variable declared as integer that represents row number of the first cell in the range
	col1	Variable declared as integer that represents column number of the first cell in the range
	row2	Variable declared as integer that represents row number of the last cell in the range
	col2	Variable declared as integer that represents column number of the last cell in the range
Return value:	none

Example:

Var
  Row, Rows, Cols:integer;
  xls :TExcelWrapper;
Begin
  {document preparation}
  //...
  {managing worksheets}
  //...
  
  {------------------Formats-------------------}
  xls.AddUserFormat('Title_h1',14,'BOLD','0,0,0',0,0,'CENTER','CENTER',false);       
  xls.AddUserFormat('Title_h2',12,'','0,0,0',0,0,'CENTER','CENTER',false);
  
  {setting default cloumn width abd height}
  xls.SetDefaultColWidth(3500);
  xls.SetDefaultRowHeight(15);
  
  {setting cell values}
  //...  
  
  {formatting cells examples}
  xls.MergeCells(Row,1,Row,Cols);
  xls.DrawBorders(Row,1,Row,Cols,'BOTTOM','THIN');
  xls.SetTextOrientation(Row,1,Row,Cols,45);
  xls.FillColor(Row,1,Row,Cols,clOceanGreen); 
     
  xls.FormatCells(Row+1,1,Row+1,Cols,'BOLD',2,true,'RIGHT','CENTER');
  
  xls.Align(Row+3,1,Row+3,Cols,'LEFT','CENTER');

  {document saving / previewing}
  //...
End.