Procedure GetPenFore returns the pen foreground color components of the referenced object. RGB values are in the range of 0~65535.
PROCEDURE GetPenFore(
h : HANDLE;
VAR red : LONGINT;
VAR green : LONGINT;
VAR blue : LONGINT);def vs.GetPenFore(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. |
GetPenFore(handleToObject,redValue,greenValue,blueValue);red_value, green_value, blue_value = vs.GetPenFore(handleToObject)VS Functions: ColorIndexToRGB | RGBToColorIndex | GetPenBack | GetFillFore | GetFillBack
Availability: from MiniCAD6.0