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

fix cacl footer row in rxDBGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2422 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-05-08 14:14:10 +00:00
parent 315e2d4437
commit d2615e526b
2 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/rx/rxdbgrid.pas
View File

@ -409,6 +409,7 @@ type
FAfterQuickSearch: TRxQuickSearchNotifyEvent; FAfterQuickSearch: TRxQuickSearchNotifyEvent;
FBeforeQuickSearch: TRxQuickSearchNotifyEvent; FBeforeQuickSearch: TRxQuickSearchNotifyEvent;
FQuickUTF8Search: string; FQuickUTF8Search: string;
FOldDataSetState:TDataSetState;
procedure DoCreateJMenu; procedure DoCreateJMenu;
function GetColumns: TRxDbGridColumns; function GetColumns: TRxDbGridColumns;
@ -2820,7 +2821,7 @@ begin
if FInProcessCalc < 0 then if FInProcessCalc < 0 then
begin begin
FInProcessCalc := 0; FInProcessCalc := 0;
CalcStatTotals; UpdateFooterRowOnUpdateActive;
end end
else else
if Assigned(FFooterOptions) and FFooterOptions.Active and (FFooterOptions.RowCount > 0) and if Assigned(FFooterOptions) and FFooterOptions.Active and (FFooterOptions.RowCount > 0) and
@ -3306,7 +3307,17 @@ end;
procedure TRxDBGrid.UpdateFooterRowOnUpdateActive; procedure TRxDBGrid.UpdateFooterRowOnUpdateActive;
begin begin
// if Assigned(DataSource) then
begin
if DataSource.State <> FOldDataSetState then
begin
if (FOldDataSetState in dsEditModes) and (DataSource.State = dsBrowse) then
CalcStatTotals;
FOldDataSetState:=DataSource.State;
end;
end
else
FOldDataSetState:=dsInactive;
end; end;
procedure TRxDBGrid.GetOnCreateLookup; procedure TRxDBGrid.GetOnCreateLookup;

2
components/rx/rxnew.lpk
View File

@ -26,7 +26,7 @@ Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2012 translate to Lazarus by alexs in 2005 - 2012
"/> "/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="2" Minor="2" Release="1" Build="109"/> <Version Major="2" Minor="2" Release="2" Build="111"/>
<Files Count="64"> <Files Count="64">
<Item1> <Item1>
<Filename Value="autopanel.pas"/> <Filename Value="autopanel.pas"/>