Skip to content

IsUserColor.md

Latest commit

 

History

History
93 lines (80 loc) · 1.74 KB

IsUserColor.md

File metadata and controls

93 lines (80 loc) · 1.74 KB
Raw

IsUserColor

Description

Returns True if the color is a user color.

FUNCTION IsUserColor(
				ColorIDX      : INTEGER;
				VAR ColorName : DYNARRAY[] of CHAR): BOOLEAN;
def vs.IsUserColor(ColorIDX):
    return (BOOLEAN, ColorName)

Parameters

Name Type Description
ColorIDX INTEGER
ColorName DYNARRAY[] of CHAR

Remarks

ColorName returns the name of the color associated with the ColorIDX

Examples

VectorScript

PROCEDURE PaintTagWorking;
VAR
obHd : HANDLE;
x, y : REAL;
colorIDX :INTEGER;
colorName : DYNARRAY[] of CHAR;
ok : BOOLEAN;
red, green, blue : LONGINT;

BEGIN
obHd := LSActLayer;
Allocate ColorName[1..32767];
WHILE NOT(obHd=NIL) DO BEGIN
GetFillBack(obHd, red, green, blue);
RGBToColorIndex(red, green, blue, colorIDX);
ok := IsUserColor(colorIDX, colorName);
IF ok THEN BEGIN
HCenter(obHd, x, y);
TextOrigin(x, y);
CreateText(colorName);
END;
obHd := PrevSObj(obHd);
END;
END;
RUN(PaintTagWorking);

Python



BEGIN
	For cnt := 0 to gNumColors-1 DO
		IF IsUserColor(cnt,ColorName) THEN
			BEGIN
			NumUserColors := NumUserColors+1;
			colorIndex[NumUserColors] := cnt;
			END;

ColorNameLong := ColorName;
IF (IsUserColor(ColorChoiceNdx,ColorNameLong))&(ColorNameLong<>' ') THEN
	BEGIN
		bFlipTexture := SetLBItemInfo( dialog, kFrntMltColBrowser, Row, 1,Concat(ColorNameLong), 0 );
	END

BEGIN
ColorName := '';
IF IsUserColor(cnt,ColorName) THEN
	BEGIN
	UprString(ColorName);
	IF LightColor = ColorName THEN
		BEGIN
		ColorNameToIndex := cnt;
		Found := TRUE;


result = vs.IsUserColor(ColorIDX)


Version


Availability: from VectorWorks13.0


Category