...
const
COLSTOCK = 5; ...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
R: TRect;
v: Double;
begin
with TStringGrid(Sender) do
begin
if TryStrToFloat(Cells[ACol,ARow], v) then if (ACol = COLSTOCK) and (ARow >= FixedRows) then
begin
if (v = 0) then begin
Canvas.Brush.Color:= clRed;
Canvas.Font.Color:= clWhite;
end
else begin
Canvas.Brush.Color:= clLime;
Canvas.Font.Color:= clBlack;
end;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+1, Rect.Top+1, Cells[ACol,ARow]);
end;
end;
end;