Datagrid Titles

[gerha...@gmail.com]

I have been using Infopwer for many years with Delphi XE7

I have now upgraded to Delphi Sydney ad found

1. The navigation bars ignore my previous formatting option
2. Th Datagrid Title atributes  AFont.Color do not function anymore as they use to. In the example below no colour is displayed and where I spesified a white pont on a blue colour the tiles are blank

procedure TfrmReceiptsEmbed.gRecCalcTitleAttributes(Sender: TObject;

  AFieldName: String; AFont: TFont; ABrush: TBrush;

  var ATitleAlignment: TAlignment);

begin

  inherited;

  If (AFieldName = 'amount')

  or (Afieldname = 'tax')

  or (Afieldname = 'balance')

  or (AFieldName = 'tempamt2') then

    ATitleAlignment := taRightJustify;

  if (AFieldName = 'tempamt')

  or (AFieldName = 'sdiscamt') then

  begin

    ABrush.Color := clBlue;

    AFont.Style := [fsBold,fsUnderline];

    AFont.Color := clWhite;

    ATitleAlignment:=taRightJustify;

  end;

  if (AFieldName = 'Original Transaction')

  or (AFieldName = 'date')

  or (AFieldName = 'tranno')

  or (AFieldName = 'trandesc')

  or (AFieldName = 'amount')

  or (AFieldName = 'tax')

  or (AFieldName = 'balance') then

    ABrush.Color := clYellow;

end;