Field-Map Scripting

4.6.3.6 FormatCells

FormatCells procedure


Prototype:

procedure FormatCells( const row1,col1,row2,col2 :integer;

                          const FontSize :integer;

                          const FontStyle :string;

                          const DecimalPlaces :integer;

                          const Indent :boolean;

                          const HorizontalAlignment :string;

                          const VerticalAlignment :string);

Description:

Defines font of a range of cells.

Syntax:

xls.FormatCells(row1,col1,row2,col2, FontSize,FontStyle,DecimalPlaces,Indent,HorizontalAlignment,VerticalAlignment);

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

FontSize

Variable declared as integer that represents fornt size. Set -1 to keep the defaut font size.

FontStyle

Variable declared as string that represents font style. The value can be set to one of the following constants: BOLD, ITALIC, UNDRELINE

DecimalPlaces

Variable declared as integer that specifies the number of decimal places display numbers.


Indent

Variable declared as boolean. Set true to indent cell contents from any edge of the cell.

HorizontalAlignment

Variable declared as string that represents horizontal align on the cell. The value can be set to one of the following constants:

LEFT,RIGHT,CENTER

VerticalAlignment

Variable declared as string that represents vertical align on the cell. The value can be set to one of the following constants:

TOP, BOTTOM, CENTER

Return value:

none

See also:

MergeCells , SetTextOrientation , Align , DrawBorders , FormatCells , AddUserFormat , AutofitCol , AutofitRow , SetOptimalColWidth , SetColWidth ,SetDefaultColWidth,SetRowHeight, SetDefaultRowHeight , SetColWidth_mm , SetRowHeight_mm , GetTextWidth , GetTextHeight , GetCellWidth, Complex example


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.

© 2024 IFER-Monitoring and Mapping Solutions