Procedure FFillFore returns the current fill foreground color. RGB values are in the range of 0~65535.
PROCEDURE FFillFore(
VAR red : LONGINT;
VAR green : LONGINT;
VAR blue : LONGINT);def vs.FFillFore():
return (red, green, blue)| Name | Type | Description |
|---|---|---|
| red | LONGINT | Returns RGB color component value. |
| green | LONGINT | Returns RGB color component value. |
| blue | LONGINT | Returns RGB color component value. |
FFillFore(redValue,greenValue,blueValue);redValue,greenValue,blueValue = vs.FFillFore()BEGIN
FFillFore (R, G, B);
SetFillFore (objectH, R, G, B);
FFillBack (R, G, B);
SetFillBack (objectH, R, G, B);
END;
FFillFore (red, green, blue);
RGBToColorIndex (red, green, blue, color);
TmpClassInfo.FillFore := color;
{get attributes}
cpp := FPenPatN;
cfp := FFillPat;
cps := FPenSize;
FFillFore(rff,gff,bff);
FFillBack(rfb,gfb,bfb);
FPenFore(rpf,gpf,bpf);
FPenBack(rpb,gpb,bpb);import vs
# Procedure FFillFore returns the current fill foreground color.
red, green, blue = vs.FFillFore()
vs.Message('FFillFore returned: ' + str((red, green, blue)))VS Functions: RGBToColorIndex | ColorIndexToRGB
Availability: from All Versions