Skip to content

SetFillColorByClass.md

Latest commit

 

History

History
68 lines (57 loc) · 1.69 KB

SetFillColorByClass.md

File metadata and controls

68 lines (57 loc) · 1.69 KB
Raw

SetFillColorByClass

Description

Procedure SetFillColorByClass sets the referenced object to use the class attribute fill colors.

PROCEDURE SetFillColorByClass(h : HANDLE);
def vs.SetFillColorByClass(h):
    return None

Parameters

Name Type Description
h HANDLE Handle to object.

Remarks

Sets so that the class fill colors are used for the object referenced by h. [sd 8/19/98]

Examples

IF attrNum [2] THEN SetFillColorByClass (objectH)
ELSE IF option = 2 THEN
BEGIN
	FFillFore (R, G, B);
	SetFillFore (objectH, R, G, B);
	FFillBack (R, G, B);
	SetFillBack (objectH, R, G, B);
END;

IF tmpStruct.NotesFormat.FPatByClass THEN SetFPatByClass( gnH )
	ELSE SetFPat( gnH, tmpStruct.NotesFormat.FillPat );
IF tmpStruct.NotesFormat.fColByClass THEN SetFillColorByClass( gnH )
	else BEGIN
		SetFillFore( gnH, tmpStruct.NotesFormat.FillFore.red, tmpStruct.NotesFormat.FillFore.green, tmpStruct.NotesFormat.FillFore.blue );
		SetFillBack( gnH, tmpStruct.NotesFormat.FillBack.red, tmpStruct.NotesFormat.FillBack.green, tmpStruct.NotesFormat.FillBack.blue );
	END;

BEGIN
{SetFPat(LNewObj,shadowFillStyle);}
SetClass(LNewObj, shadowFillName );
SetFPatByClass ( LNewObj );
SetFillColorByClass( LNewObj );
SetLW(LNewObj, 0);{ no pen drawn }
{SetPenColorByClass( LNewObj );}
END;
if vs.IsFillColorByClass(gObjHandle):
	vs.SetFillColorByClass(hTmpHand)

def SetAttrsByClass( objH, setLineWeight = True ):
	vs.SetFillColorByClass( objH )
	vs.SetFPatByClass( objH )
	vs.SetLSByClass( objH )
	if setLineWeight:
		vs.SetLWByClass( objH )

Version

Availability: from VectorWorks8.0

Category