paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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;
FBeforeQuickSearch: TRxQuickSearchNotifyEvent;
FQuickUTF8Search: string;
FOldDataSetState:TDataSetState;
procedure DoCreateJMenu;
function GetColumns: TRxDbGridColumns;
@ -2820,7 +2821,7 @@ begin
if FInProcessCalc < 0 then
begin
FInProcessCalc := 0;
CalcStatTotals;
UpdateFooterRowOnUpdateActive;
end
else
if Assigned(FFooterOptions) and FFooterOptions.Active and (FFooterOptions.RowCount > 0) and
@ -3306,7 +3307,17 @@ end;
procedure TRxDBGrid.UpdateFooterRowOnUpdateActive;
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;
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
"/>
<License Value="LGPL"/>
<Version Major="2" Minor="2" Release="1" Build="109"/>
<Version Major="2" Minor="2" Release="2" Build="111"/>
<Files Count="64">
<Item1>
<Filename Value="autopanel.pas"/>