Shape.DrapeFill property - Developer Area

API Documentation > Corel DESIGNER > 2024-v25 > Shape > IVGShape

Shape.DrapeFill property

Returns or sets whether there is a DrapeFill

Syntax:

Property Get DrapeFill() As Boolean
Property Let DrapeFill(ByVal Value As Boolean)

Remarks:

The DrapeFill property returns or specifies whether to drape the fill of a group of objects in a vector extrusion.

Examples:

The following VBA example creates two ellipses, groups them together, and applies a two-color pattern fill that flows across both objects.

Sub Test()
  Dim s1 As Shape, s2 As Shape, grp As Shape
  Set s1 = ActiveLayer.CreateEllipse(1.003717, 9.103496, 3.012929, 7.580724, 90#, 90#, False)
  s1.Outline.Type = cdrNoOutline
  Set s2 = ActiveLayer.CreateEllipse(4.683748, 6.332898, 2.103496, 8.574756, 90#, 90#, False)
  s2.Outline.Type = cdrNoOutline
  s1.Selected = True
  Set grp = ActiveSelection.Group
  With grp.Fill.ApplyPatternFill(cdrTwoColorPattern, "%%['$'UH$[UH", 0, _
      CreateCMYKColor(0, 100, 100, 0), CreateCMYKColor(0, 0, 100, 0), False)
    .TransformWithShape = False
    .TileHeight = 1
    .TileWidth = 1
    .OriginX = 0
    .OriginY = 0
  End With
  grp.DrapeFill = True
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