vcl-dxrichedit-dot-nativeapi-833625f8.md
Exposes internal and external table borders in a document.
IdxRichEditTableBorders = interface(IInterface)
A table in a document allows you to hide or display internal and external borders as well as customize their appearance.
Tip
You can call a table’s Cell function to access individual cells and customize their borders.
The list below outlines key members of the IdxRichEditTableBorders interface. You can use these members to access and customize corresponding internal and external table borders.
Bottom | Left | Right | TopAllow you to customize the appearance of corresponding external table borders.InsideHorizontalBorder | InsideVerticalBorderAllow you to customize all internal horizontal and vertical table borders.
The following code example creates a table populated with three columns and rows at the current caret position and customizes the table’s borders and background:
uses
dxCoreGraphics; // Declares TdxAlphaColor and TdxAlphaColors types
// ...
var
ADocument: IdxRichEditDocument;
ATable: IdxRichEditTable;
I, J: Integer;
begin
ADocument := dxRichEditControl1.Document;
ADocument.BeginUpdate; // Initiates the following batch change
try
ATable := ADocument.Tables.Add(ADocument.CaretPosition, 3, 3);
for I := 0 to ATable.Rows.Count - 1 do
for J := 0 to ATable.Rows.Self[I].Cells.Count - 1 do
ADocument.InsertText(ATable.Cell(I, J).Range.Start, 'Lorem ipsum dolor sit amet');
ATable.Borders.InsideHorizontalBorder.LineStyle := TdxRichEditTableBorderLineStyle.DotDotDash;
ATable.Borders.InsideHorizontalBorder.LineColor := TdxAlphaColors.Firebrick;
ATable.Borders.InsideVerticalBorder.LineStyle := TdxRichEditTableBorderLineStyle.Dotted;
ATable.Borders.Bottom.LineStyle := TdxRichEditTableBorderLineStyle.ThinThickMediumGap;
ATable.Borders.Bottom.LineThickness := 1.5;
ATable.Borders.Bottom.LineColor := TdxAlphaColors.Red;
ATable.Borders.Left.LineStyle := TdxRichEditTableBorderLineStyle.ThinThickMediumGap;
ATable.Borders.Left.LineColor := TdxAlphaColors.Red;
ATable.Borders.Left.LineThickness := 1.5;
ATable.Borders.Right.LineStyle := TdxRichEditTableBorderLineStyle.ThinThickMediumGap;
ATable.Borders.Right.LineColor := TdxAlphaColors.Red;
ATable.Borders.Right.LineThickness := 1.5;
ATable.Borders.Top.LineStyle := TdxRichEditTableBorderLineStyle.ThinThickMediumGap;
ATable.Borders.Top.LineColor := TdxAlphaColors.Red;
ATable.Borders.Top.LineThickness := 1.5;
ATable.TableBackgroundColor := TdxAlphaColors.LightSalmon;
finally
ADocument.EndUpdate; // Calls EndUpdate regardless of the batch operation's success
end;
end;
#include "dxCoreGraphics.hpp" // Declares TdxAlphaColor and TdxAlphaColors types
// ...
_di_IdxRichEditDocument ADocument;
_di_IdxRichEditTable ATable;
// ...
ADocument = dxRichEditControl1->Document;
ADocument->BeginUpdate(); // Initiates the following batch change
try
{
ATable = ADocument->Tables->Add(ADocument->CaretPosition, 3, 3);
for(int i = 0; i < ATable->Rows->Count; i++)
for(int j = 0; j < ATable->Rows->Self[i]->Cells->Count; j++)
ADocument->InsertText(ATable->Cell(i, j)->Range->Start, "Lorem ipsum dolor sit amet");
ATable->Borders->InsideHorizontalBorder->LineStyle = TdxRichEditTableBorderLineStyle::DotDotDash;
ATable->Borders->InsideHorizontalBorder->LineColor = TdxAlphaColors::Firebrick;
ATable->Borders->InsideVerticalBorder->LineStyle = TdxRichEditTableBorderLineStyle::Dotted;
ATable->Borders->Bottom->LineStyle = TdxRichEditTableBorderLineStyle::ThinThickMediumGap;
ATable->Borders->Bottom->LineThickness = 1.5f;
ATable->Borders->Bottom->LineColor = TdxAlphaColors::Red;
ATable->Borders->Left->LineStyle = TdxRichEditTableBorderLineStyle::ThinThickMediumGap;
ATable->Borders->Left->LineColor = TdxAlphaColors::Red;
ATable->Borders->Left->LineThickness = 1.5f;
ATable->Borders->Right->LineStyle = TdxRichEditTableBorderLineStyle::ThinThickMediumGap;
ATable->Borders->Right->LineColor = TdxAlphaColors::Red;
ATable->Borders->Right->LineThickness = 1.5f;
ATable->Borders->Top->LineStyle = TdxRichEditTableBorderLineStyle::ThinThickMediumGap;
ATable->Borders->Top->LineColor = TdxAlphaColors::Red;
ATable->Borders->Top->LineThickness = 1.5f;
ATable->TableBackgroundColor = TdxAlphaColors::LightSalmon;
}
__finally
{
ADocument->EndUpdate(); // Calls EndUpdate regardless of the batch operation's success
}
The IdxRichEditTable.Borders property references the IdxRichEditTableBorders interface.
IInterface IdxRichEditTableBorders
See Also