Object Model Reference : Classes : F : Fill : Methods : Fill.ApplyFountainFill |
Function ApplyFountainFill([StartColor As Color], [EndColor As Color], [Type As cdrFountainFillType = cdrLinearFountainFill], [Angle As Double], [Steps As Long], [EdgePad As Long], [MidPoint As Long = 50], [BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend], [CenterOffsetX As Double], [CenterOffsetY As Double]) As FountainFill
Member of Fill
The ApplyFountainFill method applies a fountain fill to an object.
Parameter
|
Description
|
StartColor
|
Specifies the starting color of the fountain fill. This parameter is optional, and its default value is Nothing.
|
EndColor
|
Specifies the ending color of the fountain fill effect. This parameter is optional, and its default value is Nothing.
|
Type
|
Specifies the type of the fountain fill through a value of cdrFountainFillType. This parameter is optional, and its default value is cdrLinearFountainFill (1).
|
Angle
|
Specifies the angle in linear, conical, or square fountain fills. Positive values rotate the fill counterclockwise; negative values rotate it clockwise. This parameter is optional, and its default value is 0.
|
Steps
|
Specifies the number of steps in the fountain fill. This parameter is optional, and its default value is 0.
|
EdgePad
|
Specifies the length of the edge pad of linear, radial, and square fountain fills. This parameter is optional, and its default value is 0.
|
MidPoint
|
Specifies the point at which two colors in a fountain fill converge. This value is expressed as a percentage. This parameter is optional, and its default value is 50.
|
BlendType
|
Specifies the type of fountain-fill blend. This parameter is optional, and its default value is cdrDirectFountainFillBlend (0).
|
CenterOffsetX
|
Specifies a horizontal offset for the center of the fountain fill. This parameter is optional, and its default value is 0.
|
CenterOffsetY
|
Specifies a vertical offset for the center of the fountain fill. This parameter is optional, and its default value is 0.
|
The following VBA example creates a rectangle and applies a fountain fill that blends from red to yellow:
Sub Test() |
Dim s As Shape |
Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) |
s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0) |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.