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