BorderGetRadius - ProGUI Reference Manual

Syntax

RadiusX.d = BorderGetRadius(Border, *TopLeftRx.Double=#Null, *TopLeftRy.Double=#Null, *TopRightRx.Double=#Null, *TopRightRy.Double=#Null, *BottomLeftRx.Double=#Null, *BottomLeftRy.Double=#Null, *BottomRightRx.Double=#Null, *BottomRightRy.Double=#Null)

Description

Retrieves the horizontal (Rx) and vertical (Ry) radii for the corners of a generated border object. This command is only applicable to borders created with CreateBorder().

Parameters

Border
The handle of the generated border object.

*TopLeftRx.Double (optional)
A pointer to a Double variable to receive the horizontal radius of the top-left corner.

*TopLeftRy.Double (optional)
A pointer to a Double variable to receive the vertical radius of the top-left corner.

*TopRightRx.Double (optional)
A pointer to a Double variable to receive the horizontal radius of the top-right corner.

*TopRightRy.Double (optional)
A pointer to a Double variable to receive the vertical radius of the top-right corner.

*BottomLeftRx.Double (optional)
A pointer to a Double variable to receive the horizontal radius of the bottom-left corner.

*BottomLeftRy.Double (optional)
A pointer to a Double variable to receive the vertical radius of the bottom-left corner.

*BottomRightRx.Double (optional)
A pointer to a Double variable to receive the horizontal radius of the bottom-right corner.

*BottomRightRy.Double (optional)
A pointer to a Double variable to receive the vertical radius of the bottom-right corner.

Return Value

Returns the horizontal radius (Double) of the top-left corner. Returns 0.0 or #False if the border handle is invalid or not a generated border.

Remarks

This function allows retrieving the individual corner radii (in DIPs) for a generated border.

Example

IncludeFile "ProGUI_PB.pbi"

StartProGUI()

MyBorder = CreateBorder(#PG_Border_Solid, 5, 10)
; Set only top-left and bottom-right radii
BorderSetRadius(MyBorder, 20, 20, 0, 0, 0, 0, 30, 30)

If MyBorder
  BorderGetRadius(MyBorder, @TLRx.d, @TLRy.d, @TRRx.d, @TRRy.d, @BLRx.d, @BLRy.d, @BRRx.d, @BRRy.d)
  Debug "Top-Left Radius: " + StrD(TLRx) + ", " + StrD(TLRy)
  Debug "Top-Right Radius: " + StrD(TRRx) + ", " + StrD(TRRy)
  Debug "Bottom-Left Radius: " + StrD(BLRx) + ", " + StrD(BLRy)
  Debug "Bottom-Right Radius: " + StrD(BRRx) + ", " + StrD(BRRy)

  FreeBorder(MyBorder)
EndIf

StopProGUI()

Supported OS

Windows, Linux