pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

in RxDBGrid remove unnecessary recalculation of statistics

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2389 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-04-15 21:22:58 +00:00
parent c0c7572f82
commit bac149645a
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/rxdbgrid.pas
View File

@ -505,6 +505,7 @@ type
procedure OnSortBy(Sender: TObject);
procedure OnChooseVisibleFields(Sender: TObject);
procedure Loaded; override;
procedure UpdateFooterRowOnUpdateActive;
public
procedure FilterRec(DataSet: TDataSet; var Accept: boolean);
@ -2824,7 +2825,8 @@ begin
else
if Assigned(FFooterOptions) and FFooterOptions.Active and (FFooterOptions.RowCount > 0) and
DatalinkActive and (DataSource.DataSet.State = dsBrowse) then
CalcStatTotals;
UpdateFooterRowOnUpdateActive;
// CalcStatTotals;
end;
procedure TRxDBGrid.UpdateData;
@ -3301,6 +3303,11 @@ begin
UpdateJMenuKeys;
end;
procedure TRxDBGrid.UpdateFooterRowOnUpdateActive;
begin
//
end;
procedure TRxDBGrid.GetOnCreateLookup;
begin
if Assigned(F_CreateLookup) then