FountainColors.AddGrayLevel method - Developer Area

API Documentation > CorelDRAW > 2019.2 > FountainColors > IVGFountainColors

FountainColors.AddGrayLevel method

Adds a FountainColor with the Gray Level value to the FountainColors collection

Syntax:

Sub AddGrayLevel(ByVal GrayLevel As Long, ByVal Position As Long)

Parameters:

Name	Type	Description
GrayLevel	Long	Specifies the transparency level for the fountain transparency. The Index value can range from 0 to Count+1, where 0 is the starting color point and Count+1 is the ending color point in the fountain or transparency.
Position	Long	Specifies the location of gray level in the FountainColors collection. If a color is given the position of 2, it is actually the third color point in the fountain effect because the starting point holds an index of 0 and is not included as a collection point. Valid positions range from 1 to 99.

Remarks:

The AddGrayLevel method adds a new grayscale color point at a specified position. If there is a color point at the specified position, the new color point replaces the existing color point. Valid positions range from 1 to 99.

Examples:

The following VBA example creates an ellipse containing a fountain fill with a fountain transparency containing five interleaving transparency points:

Sub Test()
  Dim s As Shape
  Dim ff As FountainFill
  Dim n As Long
  Set s = ActiveLayer.CreateEllipse2(4, 5.5, 4)
  s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0), , 90
  Set ff = s.Transparency.ApplyFountainTransparency(100, 100)
  For n = 1 To 5
    ff.Colors.AddGrayLevel (n Mod 2) * 255, n * 100 / 6
  Next n
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25