4.6.2.7 SetHTML

SetHTML procedure

Prototype:	procedure SetHTML(const row,col :integer;const Value :string;const Format_ :string;const Borders_ :string;const BorderStyle_ :string);
Description:	Adds a new image to the active sheet.
Syntax:	xls.SetHTML(row, col,value,format,borders,borderstyle);
	Part	Description
	xls	Variable declared as an instance of the TExcelWrapper class
	Row, Col	Variables declared as integer that represent a cell
	Value	Variables declared as string that represent alignment of the image
	Format	Variable declared as string that represents the format name
	Borders	Variable declared as string that defines which parts of the borders will be applied.
	BorderStyle	Variable declared as string that represents border style.
Return value:	none

Example:

Var
  Row, Rows:integer;
  v:variant;
  xls :TExcelWrapper;
Begin
  {document preparation}
  //...
  {managing worksheets}
  //...  
  {set cell values examples}
  xls.SetValueAndMerge(Row,4,Row,5,'Species','ColCaption','','');
  inc(Row);
  xls.SetValue(Row,4,'Species ID','ColCaption','','');
  xls.SetValue(Row,5,'Species value','ColCaption','','');
  inc(Row);
  xls.SetValue(Row,4,ValueAsInteger['IDSpecies'],'DEC0','','');
  xls.SetValue(Row,5,ValueAsString['Species'],'TXT','','');
  xls.SetHTML(Row,20,'Volume, m<sup>3</sup>','Dec2','',''); 
  inc(Row)
  //...
  {get cell value example}
  v:=xls.GetCellValue(Row-1,5);
  
  xls.SetValue(Row, 4 , format('Number of trees per plot ID %d: ',[PlotID]), 'TXT','',''); 
  
  {set formula example}
  xls.SetFormula(Row, 5 ,format('=SUM(R[-%d]C:R[-1]C)',[Rows]),'DEC0','R1C1');
  
  {add image example}
  xls.AddImage(ProjectDir+'Pictures\LogoFirmy.png', 6,1,12,20);
  xls.AddImageExt(ProjectDir+'Misc\HlavickaFirmy.png',1,nCol-5,1,nCol,'RIGHT','CENTER',0.02,0.02,0.02,0.02);
  {document saving / previewing}
  //...
End.