I´ve modified the source in CRGrid like that. May you implement in your next release.
CRGrid.pas Line 2475
Code: Select all
if dgeRecordCount in FOptionsEx
then begin
CellRect := FullRect;
InflateRect(CellRect, -2, -2);
//HAK 30.12.2004 This will paint the Field to the whole line
//CellRect.Right := RightBorder;
if DataLink.Active then
tmpText := IntToStr(DataLink.DataSet.RecNo) +
' / ' + IntToStr(DataLink.DataSet.RecordCount)
else
tmpText := '';//'Records count : INACTIVE';
//HAK 30.12.2004 This will paint the Field as needed
CellRect.Right := Canvas.TextWidth(tmpText);
WriteText(Canvas, CellRect, 0, 0, tmpText, taLeftJustify,True);
end;
Regards Harald
PS: have a happy new year, and thanks for your good work!!!
