4.6.2.6 AddImageExt

AddImageExt procedure

Prototype:	procedure AddImage(const Filename :string; const Row1,Col1,Row2,Col2 :integer; const HorizontalAlignment, HorizontalAlignment:string; const LeftMargin, RightMargin, BottomMargin, TopMargin:double);
Description:	Adds a new image to the active sheet.
Syntax:	xls.AddImage(Filename,Row1, Co11, Row2, Col2);
	Part	Description
	xls	Variable declared as an instance of the TExcelWrapper class
	Filename	Variable declared as string that specifies the image to insert
	Row1, Col1, Row2, Col2	Variables declared as integer that represent where you want to insert the picture in Excel
	HorizontalAlignment, VerticalAlignment	Variables declared as string that represent alignment of the image
	LeftMargin, RightMargin, BottomMargin, TopMargin,	Variables declared as double that represent image margins
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.