TcxNamingConventionEvent = procedure(Sender: TObject; const AColor: TColor; var AColorDescription: string) of object;