Следующая статья: Директивы компилятора, способные увеличить скорость.
Как изменить цвета строк в DBCtrlGrid?
Используйте событие PaintPanel:
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer); begin with DataModule2.Table1 do begin if FieldByName('INDUSTRY').AsInteger > 3600 then DBText2.Font.color:=clGreen else DBText2.Font.color:=clYellow; if FieldByName('CUR_PRICE').AsInteger > 50 then DBText3.Font.color:=clBlue else DBText3.Font.color:=clAqua; if (CompareStr(FieldByName('RCMNDATION').AsString,'BUY')=0) then DBText4.Font.color := clLime else if (CompareStr(FieldByName('RCMNDATION').AsString,'HOLD')=0) then DBText4.Font.color:=clRed else DBText4.Font.color:=clFuchsia;