Andrea Lai

Hi,
sorry but I have a problem.
I have write this function :


procedure TForm1.MyNextGrid1CustomDrawCell(Sender: TObject; ACol,
ARow: Integer; CellRect: TRect; CellState: TCellState);
begin

with MyNextGrid1.Columns[ACol].Display do
begin
if (ACol = 1) then
begin
if MyNextGrid1.Cell[2, ARow].AsInteger = 2 then
begin
Canvas.Font.Size := 11;
Canvas.Font.Style := [fsBold];
Canvas.Font.Color := clRed;
end
else Canvas.Font.Size := 18;

AsFloat := MyNextGrid1.Cell[ACol, ARow].AsFloat;
if MyNextGrid1.SelectedRow = ARow then MyNextGrid1.CellByName[ACol, ARow].Color := clYellow
else MyNextGrid1.CellByName[ACol, ARow].Color := clWhite;
PaintBackground(MyNextGrid1.CellByName[ACol, ARow].Color, True);
Paint;
end;
end;

end;

The problem is that the column continues to flash annoyingly.

Thanks.

Hi,
is possible to set also the color of background if the cell is selected ?



Thanks

Hi,
If you write some lines of code as you would be very grateful.

Tanks.

Hi Boki,
when you think you can have it available ?
For me is very urgent !!!!!

Thanks.

Thanks