Тюнинг TStringGrid

type
  TCellProperty = class
  private
    FCol: Integer;
    FRow: Integer;
    FColor: TColor;
    FFont: TFont;
    FWordWrap: Boolean;
    FAlignment: TAlignment;
  public
    constructor Create(ACol, ARow: Integer; AColor: TColor; AFont: TFont; AAlignment: TAlignment = taCenter; AWordWrap: Boolean = False);
    property Col: Integer read FCol write FCol;
    property Row: Integer read FRow write FRow;
    property Font: TFont read FFont write FFont;
    property Color: TColor read FColor write FColor;
    property WordWrap: Boolean read FWordWrap write FWordWrap;
    property Alignment: TAlignment read FAlignment write FAlignment;
  end;
 
  TStringGridHelper = class helper for TStringGrid
  private
    class var FCellProperties: TList;
    function GetCellProperty(ACol, ARow: Integer): TCellProperty;
  public
    procedure RandomData(AStartRange: Integer = 0; AFinishRange: Integer = 0); overload;
    property CellProperty[ACol, ARow: Integer]: TCellProperty read GetCellProperty;
  end;
 
  TForm1 = class(TForm)
    SG: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses System.Types;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 SG.RandomData(-50, 50);
 SG.Cells[1,1] := 'one row'#13'two row';
 with SG.CellProperty[1,1]
 do begin
    Color := clBlue;
    Font.Size := 8;
    Font.Name := 'Segue UI';
    Font.Color := clWhite;
    WordWrap := True;
    Alignment := taCenter;
    end;
 with SG.CellProperty[2,2]
 do begin
    Color := clRed;
    Font.Size := 14;
    Font.Name := 'Times New Roman';
    Font.Color := clYellow;
    end;
end;
 
procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Options: Cardinal;
begin
 SG.Canvas.Brush.Color := SG.CellProperty[ACol,ARow].Color;
 SG.Canvas.Font := SG.CellProperty[ACol,ARow].Font;
 SG.Canvas.FillRect(Rect);
 Options := DT_VCENTER;
 case SG.CellProperty[ACol,ARow].Alignment
 of taLeftJustify: Options := Options or DT_LEFT;
    taCenter: Options := Options or DT_CENTER;
    taRightJustify: Options := Options or DT_RIGHT;
 end;
 if SG.CellProperty[ACol,ARow].WordWrap
 then Options := Options or DT_WORDBREAK
 else Options := Options or DT_SINGLELINE;
 DrawText(SG.Canvas.Handle, SG.Cells[ACol,ARow], Length(SG.Cells[ACol,ARow]), Rect, Options);
end;
 
{ TStringGridHelper }
 
procedure TStringGridHelper.RandomData(AStartRange: Integer; AFinishRange: Integer);
var
  Row,Col: Integer;
begin
 for Row := FixedRows to RowCount-1
 do for Col := FixedCols to ColCount-1
    do Cells[Col,Row] := IntToStr(AStartRange + Random(AFinishRange - AStartRange));
end;
 
function TStringGridHelper.GetCellProperty(ACol, ARow: Integer): TCellProperty;
var
  i: Integer;
begin
 if not Assigned(FCellProperties) then FCellProperties := TList.Create;
 for i := 0 to FCellProperties.Count-1
 do with TCellProperty(FCellProperties[i])
    do if (FCol = ACol) and (FRow = ARow)
       then begin
            Result := FCellProperties[i];
            Exit;
            end;
 Result := FCellProperties[FCellProperties.Add(TCellProperty.Create(ACol, ARow, Color, Font))];
end;
 
{ TCellProperty }
 
constructor TCellProperty.Create(ACol, ARow: Integer; AColor: TColor; AFont: TFont; AAlignment: TAlignment; AWordWrap: Boolean);
begin
 FCol := ACol;
 FRow := ARow;
 FColor := AColor;
 FFont := TFont.Create;
 FFont.Assign(AFont);
 FAlignment := AAlignment;
 FWordWrap := AWordWrap;
end;
 
end.