How to show selected color text in colorpicker cell

VCL TMS VCL UI Pack
2

Implement the event OnColorSelected with code:

procedure TForm2.AdvStringGrid1ColorSelected(Sender: TObject; ACol,
  ARow: Integer; var Color: TColor; var Value: string);
begin
  AdvStringGrid1.OriginalCellValue := Value;
  AdvStringGrid1.Cells[ACol,ARow] := Value;
end;