Rectangle.EqualCorners property - Developer Area

API Documentation > Corel DESIGNER > 2023-v24.3 > Rectangle > IVGRectangle

Rectangle.EqualCorners property

Gets if the corners are equal

Syntax:

Property Get EqualCorners() As Boolean

Remarks:

The EqualCorners property returns True if all four corners of a rectangle have the same corner radius (if any at all).

Examples:

The following VBA example checks whether each rectangle on the current page has equal corners. The radius of the smallest corner is applied to each rectangle with unequal corners.

Sub Test()
  Dim s As Shape
  Dim r As Rectangle
  Dim d As Long
  For Each s In ActivePage.FindShapes(Type:=cdrRectangleShape)
    Set r = s.Rectangle
    If Not r.EqualCorners Then
      d = r.CornerLowerLeft
      If d > r.CornerLowerRight Then d = r.CornerLowerRight
        If d > r.CornerUpperLeft Then d = r.CornerUpperLeft
          If d > r.CornerUpperRight Then d = r.CornerUpperRight
            r.SetRoundness d
          End If
        Next s
      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