Procedure GetPenBack returns the pen (pattern) background color of the referenced object. RGB values are in the range of 0~65535.
PROCEDURE GetPenBack(
h : HANDLE;
VAR red : LONGINT;
VAR green : LONGINT;
VAR blue : LONGINT);def vs.GetPenBack(h):
return (red, green, blue)| Name | Type | Description |
|---|---|---|
| h | HANDLE | Handle to object. |
| red | LONGINT | Returns RGB color component value. |
| green | LONGINT | Returns RGB color component value. |
| blue | LONGINT | Returns RGB color component value. |
PROCEDURE Example;
VAR
h :HANDLE;
r, g, b :LONGINT;
BEGIN
h := FSActLayer;
GetPenBack(h, r, g, b);
Message('r= ', r, ' g= ', g, ' b= ', b);
END;
RUN(Example);def example():
h = vs.FSActLayer()
r, g, b = vs.GetPenBack(h)
vs.Message('r= ', r, ' g= ', g, ' b= ', b)
example()VS Functions: RGBToColorIndex | ColorIndexToRGB | GetFillFore | GetFillBack | GetPenFore
Availability: from MiniCAD6.0