anchor.diff:      exit;
     LValue := CellData;
     LRowData := TDataRowData(RowData);
  -  if LRowData.HasData('UnixTime')  AND (LRowData['UnixTime'] = 0) then begin
  -    Canvas.Font.Color := CT_PASCBALANCE_0CONF_COL;
  -    LStr := '('+TAccountComp.FormatMoney(LValue)+')';
  -  end else begin
  -    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);
  -  end;
  +  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;
  
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:     Canvas.TextRect(Rect, Rect.Left, Rect.Top, LStr, Canvas.TextStyle);
      Handled := true;
      exit;
    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);
  