|
|
@@ -180,7 +180,7 @@ procedure TBillsGatherFrame.zgGclBillsCellGetColor(Sender: TObject;
|
|
|
var
|
|
|
bSimilarBills: Boolean;
|
|
|
begin
|
|
|
- if (ACoord.Y >= zgGclBills.FixedRowCount) then
|
|
|
+ if (ACoord.Y >= zgGclBills.FixedRowCount) and (ACoord.Y < zgGclBills.FixedRowCount + saGclBills.DataView.RecordCount) then
|
|
|
begin
|
|
|
if ACoord.Y = zgGclBills.FixedRowCount then
|
|
|
bSimilarBills := CheckSimilarBills(ACoord.Y, ACoord.Y + 1)
|
