Shape.CreateContour method - Developer Area

API Documentation > CorelDRAW > X7.6 > Shape > IVGShape

Shape.CreateContour method

Creates a contour effect

Syntax:

Function CreateContour(Optional ByVal Direction As cdrContourDirection = cdrContourOutside, Optional ByVal Offset As Double = 0, Optional ByVal Steps As Long = 1, Optional ByVal BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend, Optional ByVal OutlineColor As Color = Nothing, Optional ByVal FillColor As Color = Nothing, Optional ByVal FillColor2 As Color = Nothing, Optional ByVal SpacingAccel As Long = 0, Optional ByVal ColorAccel As Long = 0, Optional ByVal EndCapType As cdrContourEndCapType = cdrContourSquareCap, Optional ByVal CornerType As cdrContourCornerType = cdrContourCornerMiteredOffsetBevel, Optional ByVal MiterLimit As Double = 0) As Effect

Parameters:

Name	Type	Description
Direction	cdrContourDirection	Specifies the direction of the contour, and returns cdrContourDirection.
Offset	Double	Specifies the offset distance, in document units, between contour lines, automatically adjusting the number of contour steps.
Steps	Long	Specifies the number of steps, which is linked to the number of lines that appear in the effect.
BlendType	cdrFountainFillBlendType	Specifies the color-blend type, and returns cdrFountainFillBlendType.
OutlineColor	Color	Specifies the contour's outline color.
FillColor	Color	Specifies the contour's fill color.
FillColor2	Color	Specifies the EffectContour.FillColorTo color.
SpacingAccel	Long	Specifies the change in step size.
ColorAccel	Long	Specifies the acceleration of the color change.
EndCapType	cdrContourEndCapType
CornerType	cdrContourCornerType
MiterLimit	Double

Remarks:

The CreateContour method applies a contour to a shape, returning an Effect object that represents contour properties.

Examples:

The following VBA example creates a text string and applies a contour effect to it, resulting in blurred look.

Sub Test()
  Dim sText As Shape
  Set sText = ActiveLayer.CreateArtisticText(4, 5, "Blurred Text")
  sText.Fill.UniformColor.RGBAssign 0, 0, 0
  With sText.Text.FontProperties
    .Name = "Arial"
    .Size = 90
    .Style = cdrBoldFontStyle
  End With
  sText.Text.AlignProperties.Alignment = cdrCenterAlignment
  sText.CreateContour cdrContourOutside, 0.01, 10, , , CreateRGBColor(255, 255, 255)
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