new TNotifyEvent TOnRxCalcFooterValues suggesstion
Original Reporter info from Mantis: freeman35
-
Reporter name:
Original Reporter info from Mantis: freeman35
- Reporter name:
Description:
Event type is:
TOnRxCalcFooterValues = procedure(Sender: TObject; Column: TRxColumn; var AValue : Variant) of object;
Programmer can add own Tquery or Colum's values with out calculate in grid. Because TRxDBGrid.CalcStatTotals; use this code
DHS.First;
while not DHS.EOF do
and if not defined "NoAutomatedBookmark" one more time for locate again selected row.
My Patch just add TNotifyEvent, if NOT assigned this event, rxgrid's code working
Additional information:
For using
procedure TFRM_.GRD_RxCalcFooterValues(Sender: TObject; Column: TRxColumn; var AValue: Variant);
begin
if Column.FieldName='DEBS'then begin
Self.Tag := Self.Tag +1;// Self is owner form, just for test howmany times triggered
AValue := 5;
end else AValue := null;
self.Caption := inttostr(Self.Tag) + ' ' + TRxDBGrid(Sender).Name;
end;
On Test form, has 2 Tquery and 2 rxdbgrid, first query has 6 colums, second query has 4 colums.After open query only one time, self.Caption is '10' Is this mean "TRxDBGrid.CalcStatTotals;" trigger for all grid's all colums same time ?
Mantis conversion info:
- Mantis ID: 26027
- OS: all
- OS Build: all
- Platform: all