Attr-NameIndx2DashIndx

From Vectorlab
Jump to: navigation, search


Converts a name index into a dash style index. By Orso B. Schmid


{ Orso ***************************** }
{ Converts a name index into a dash style index }
FUNCTION A_NameIndx2DashIndx(nameIndx : LONGINT): INTEGER;
	BEGIN
		PushAttrs;
			PenPatN(-nameIndx);
			A_NameIndx2DashIndx := FPenPat; { old routine }
			{ returns the dash style list index corresponding to the active dash style }
		PopAttrs;
	END;