i chahged your component, because,
your component cell formating have 2 method for color and fontstyle
TNextGrid(FindComponent(_Grid)).Cell[kz, ik].Color
TNextGrid(FindComponent(_Grid)).Cell[kz, ik].fontstyle
and font.color not found method
i change
NxGrid.Pas
....
procedure TNextGrid.ApplyCellFormating(ACol, ARow: Integer;
Value: WideString; CellState: TCellState);
var
TextColor: TColor;
AFontStyle: TFontStyles;
begin
with Canvas do
begin
AFontStyle := Cell[ACol, ARow].FontStyle;
TextColor := Cell[ACol, ARow].FontColor; //Font.Color; //Burhan
if csBoldTextSelection in CellState then AFontStyle := AFontStyle + [fsBold];
DoCellFormating(ACol, ARow, TextColor, AFontStyle, CellState);
Font.Color := TextColor;
Font.Style := AFontStyle;
end;
end;
...
and i change nxCell.pas unit adding font.color method, please it is change add your component,
thanks.
Burhan Cakmak