SetTextOrientation procedure
Prototype: |
procedure SetTextOrientation(const row1,col1,row2,col2 :integer;const Degrees :integer); |
|
Description: |
Sets text orientation of a range of cells. |
|
Syntax: |
xls.SetTextOrientation(row1,col1,row2,col2, Degrees); |
|
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 |
|
Degrees |
Variable declared as integer that represents text rotation in degrees. |
|
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