anchor.diff:      Canvas.TextRect(Rect, Rect.Left, Rect.Top, LStr, Canvas.TextStyle);
       Handled := true;
       exit;
  -  end else PASC(Sender, ACol, ARow, Canvas, Rect, State, CellData, RowData, Handled);
  +  end;
  +  PASC(Sender, ACol, ARow, Canvas, Rect, State, CellData, RowData, Handled);
   end;
   
   class procedure TCellRenderers.PASC (Sender: TObject; ACol, ARow: Longint; Canvas: TCanvas; Rect: TRect; State: TGridDrawState; const CellData, RowData: Variant; var Handled: boolean);
  
positive.code:     Canvas.TextRect(Rect, Rect.Left, Rect.Top, 'ALL BALANCE', Canvas.TextStyle);
      Handled := true;
      exit;
    end else PASC(Sender, ACol, ARow, Canvas, Rect, State, CellData, RowData, Handled);
  end;
  
  class procedure TCellRenderers.PASC_CheckPendingBalance (Sender: TObject; ACol, ARow: Longint; Canvas: TCanvas; Rect: TRect; State: TGridDrawState; const CellData, RowData: Variant; var Handled: boolean);
  
negative.code:     exit;
    LValue := CellData;
    LRowData := TDataRowData(RowData);
    Canvas.Font.Color := IIF (LValue < 0, CT_PASCBALANCE_NEG_COL, IIF(LValue > 0, CT_PASCBALANCE_POS_COL, CT_PASCBALANCE_NEU_COL));
    LStr := TAccountComp.FormatMoney(LValue);
    Canvas.TextRect(Rect, Rect.Left, Rect.Top, LStr, Canvas.TextStyle);
    Handled := true;
  end;
  