TRender

TPersistentChange
└── TRender
    └── TFormatRender
        ├── TTextRender
        │   ├── TVisibleTextRender
        │   │   ├── TCellRender
        │   │   └── THover
        │   ├── TBoxRender
        │   │   ├── TBooleanRender
        │   │   └── TExpanderRender
        │   └── TPasswordRender
        └── TProgressRender

procedure Paint(var AData: TRenderData); virtual;

var
  Render: TRender;
  Data: TRenderData;
begin
  Render := TTextRender.Create(nil);
  try
    Data.Bounds := RectF(0, 0, 100, 25);
    Data.Data := 'Hello World';
    Data.Painter := MyPainter;
    Data.Row := 0;
    
    Render.Paint(Data);
  finally
    Render.Free;
  end;
end;

function Hit(const R: TRectF; const X, Y: Single): Boolean; virtual;

type
  TRenderData = record
    Bounds: TRectF;      // Rectangle to paint within
    Data: String;        // Cell data (as string)
    Painter: TPainter;   // Painter instance for drawing
    Row: Integer;        // Row index
    
    function AsBoolean: Boolean;
    procedure ClearData;
    function IsEmpty: Boolean;
  end;

property Borders: TBorders read GetBorders write SetBorders;

Render.Borders.Left.Visible := True;
Render.Borders.Left.Color := clBlue;
Render.Borders.Left.Size := 2;

property Format: TTextFormat read GetFormat write SetFormat;

function HasFormat: Boolean;

function StrokeHeight: Single;

property Margins: TMargins read GetMargins write SetMargins;

Render.Margins.Left.Value := 4;
Render.Margins.Top.Value := 2;
Render.Margins.Right.Value := 4;
Render.Margins.Bottom.Value := 2;

property TextAlign: TTextAlign read FAlign write SetAlign;

Render.TextAlign.Horizontal := THorizontalAlign.Center;
Render.TextAlign.Vertical := TVerticalAlign.Center;

property Trimming: TTextTrimming read GetTrimming write SetTrimming;

Render.Trimming.Mode := TTrimmingMode.Character;
Render.Trimming.Ellipsi := True;

function CalcHeight(const APainter: TPainter): Single; overload;
function CalcHeight(const APainter: TPainter; const AText: String): Single; overload;

property Style: TBooleanRenderStyle read FStyle write SetStyle;

property CheckFormat: TFormat read FCheckFormat write SetCheckFormat;

var
  BoolRender: TBooleanRender;
begin
  BoolRender := TBooleanRender.Create(nil);
  BoolRender.Style := TBooleanRenderStyle.Check;
  BoolRender.CheckFormat.Stroke.Color := clGreen;
  BoolRender.CheckFormat.Stroke.Size := 2;
end;

property Style: TExpanderStyle read FStyle write SetStyle;

property AlwaysExpand: Boolean read FAlwaysExpand write FAlwaysExpand;

property ExpandFormat: TFormat read FExpandFormat write SetExpandFormat;

property ExpandLine: TStroke read FExpandLine write SetExpandLine;

property OnCanExpand: TExpanderEvent read FOnCanExpand write FOnCanExpand;

type
  TExpanderEvent = function(const Sender: TRender; const ARow: Integer): Boolean of object;

property OnExpand: TExpanderEvent read FOnExpand write FOnExpand;

property OnGetExpanded: TExpanderEvent read FOnGetExpanded write FOnGetExpanded;

function TForm1.ExpanderCanExpand(const Sender: TRender; const ARow: Integer): Boolean;
begin
  Result := HasChildren(ARow);
end;

function TForm1.ExpanderGetExpanded(const Sender: TRender; const ARow: Integer): Boolean;
begin
  Result := FExpandedRows.Contains(ARow);
end;

procedure TForm1.SetupExpander;
begin
  Expander.Style := TExpanderStyle.Triangle;
  Expander.OnCanExpand := ExpanderCanExpand;
  Expander.OnGetExpanded := ExpanderGetExpanded;
end;

procedure Expand(const ARow: Integer);

procedure PaintLines(var AData: TRenderData);

property Minimum: Single read FMin write SetMin;

property Maximum: Single read FMax write SetMax;

property Orientation: TOrientation read FOrientation write SetOrientation;

var
  ProgressRender: TProgressRender;
begin
  ProgressRender := TProgressRender.Create(nil);
  ProgressRender.Minimum := 0;
  ProgressRender.Maximum := 100;
  ProgressRender.Orientation := TOrientation.Horizontal;
  ProgressRender.Format.Brush.Color := clGreen;
end;

var
  PassRender: TPasswordRender;
begin
  PassRender := TPasswordRender.Create(nil);
  // Automatically masks text as '***'
end;

class procedure Check(const APainter: TPainter; const ARect: TRectF); static;

class procedure PlusMinus(const APainter: TPainter; const ARect: TRectF; const IsExpanded: Boolean); static;

class procedure TArrow.Down(const APainter: TPainter; const ARect: TRectF); static;
class procedure TArrow.Right(const APainter: TPainter; const ARect: TRectF); static;

class procedure TTriangle.LeftRight(const APainter: TPainter; const ARect: TRectF); static;
class procedure TTriangle.TopBottom(const APainter: TPainter; const ARect: TRectF); static;

type
  TMyCustomRender = class(TTextRender)
  public
    procedure Paint(var AData: TRenderData); override;
  end;

procedure TMyCustomRender.Paint(var AData: TRenderData);
begin
  // Custom painting logic
  inherited; // Call base class if needed
  
  // Additional custom drawing
  AData.Painter.SetBrush(Format.Brush);
  AData.Painter.FillEllipse(AData.Bounds);
end;