Hello,
Thanks for suggestion.
I can include in the future, these events:
OnCellFormating(Sender: TObject; ACol, ARow: Integer; var TextColor: TColor; var FontStyle: TFontStyles; CellState: TCellState);
OnCellColoring(Sender: TObject; ACol, ARow: Integer; var CellColor, GridColor: TColor; CellState: TCellState);
In beta version 1.44
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0
you can use event OnChange for coloring cells, Example:
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[3,i] = 'Yes' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'No' then Form1.TableGrid1.Cell[3,i].Color := clGreen;
end;
end;
Here you can download example project:
http://myvisualdatabase.com/forum/misc. … download=1
Dmitry.