freepascal.ru

Код: Выделить всё

unit rxdbgrid; 
...
procedure TRxDBGrid.CalcStatTotals;
var
  P:TBookmark;
  DS:TDataSet;
  i:integer;
//  J:integer;
begin
  if (not ((rdgFooterRows in OptionsRx) and DatalinkActive))
    or (Columns.Count = 0)
    //or (TRxColumn(Columns).Footer.ValueType = fvtStaticText) // попытался воткнуть проверку, дабы отменить лишнее не нужное вхождение в процедуру, но, понятное дело, не работает. Не знаю как правильно воткнуть - не я автор юнита
      then Exit;
  inc(FInProcessCalc);
  DS:=DataSource.DataSet;;
...
и т.д.

Код: Выделить всё

unit rxdbgrid; 
...
procedure TRxDBGrid.CalcStatTotals;
var
  P:TBookmark;
  DS:TDataSet;
  i:integer;
//  J:integer;
begin

exit; // все равно футер у меня статиктекст - ничего подсчитывать не надо - лишний пробег по источнику данных отменен

  if (not ((rdgFooterRows in OptionsRx) and DatalinkActive)) or (Columns.Count = 0)
      then Exit;
  inc(FInProcessCalc);
  DS:=DataSource.DataSet;;
...
и т.д.

Код: Выделить всё

unit rxdbgrid; 
...
procedure TRxDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
var
  FTmpReadOnly:boolean;
begin 
...
    ord('T'):begin
               if ssCtrl in Shift {(СЮДА ФЛАГ in FOptionsRx)} then
               begin
                 OnFilterBy(Self);
                 exit;
               end;
             end;
    ord('E'):begin
               if (ssCtrl in Shift) and (rdgAllowQuickFilter in FOptionsRx) then 
               begin
                 OnFilter(Self);
                 exit;
               end;
             end;
    ord('Q'):begin
               if ssCtrl in Shift {(СЮДА ФЛАГ in FOptionsRx)} then
               begin
                 OnFilterClose(Self);
                 exit;
               end;
             end;
    ord('C'):begin
               if ssCtrl in Shift {(СЮДА ФЛАГ in FOptionsRx)} then
               begin                
...