TcxGetDefaultColorEvent = procedure(Sender: TObject; var AColor: TColor) of object;