delphi7 dbgrideh符合条件的数据显示颜色后，符合条件数据显示红色 数据量大会很卡，怎么设置只在当前屏幕范围内的数据进行颜色显示，不对所有数据都进行判断和颜色设置，这样可以减少不必要的计算量。

你可以使用 `OnDrawColumnCell` 事件，该事件在绘制每个单元格时触发。你可以在该事件中进行条件判断，并为符合条件的单元格设置颜色。同时，你也可以通过判断当前行号是否在可见范围内，来控制只对可见范围内的单元格进行颜色设置，从而减少不必要的计算量。

下面是一个示例代码，演示了如何在 `OnDrawColumnCell` 事件中实现条件颜色显示，并控制只对可见范围内的单元格进行颜色设置：

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
  Grid: TDBGridEh;
begin
  Grid := Sender as TDBGridEh;

  if not (gdFixed in State) and (Column.FieldName = 'YourFieldName') then
  begin
    if Grid.DataSource.DataSet.FieldByName('YourFieldName').AsInteger > YourCondition then
    begin
      // 设置符合条件的单元格颜色为红色
      Grid.Canvas.Brush.Color := clRed;
      Grid.Canvas.FillRect(Rect);
      Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end
    else
    begin
      // 恢复默认颜色
      Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  end;
end;

注意，在使用 `OnDrawColumnCell` 事件时，需要将 `DBGridEh1.DefaultDrawing` 属性设置为 False，以避免默认的绘制行为。此外，如果你的数据量特别大，可能还需要进行一些优化，比如缓存颜色信息等。