type
  TacGradientDirection = (gdVertical, gdHorizontal);