Attr-DashIndx2NameIndx

From Vectorlab
Jump to: navigation, search


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

{ Orso ***************************** }
{ Converts a dash list index into a name index }
{ dashIndx must be negative }
FUNCTION A_DashIndx2NameIndx(dashIndx : INTEGER): LONGINT;
	BEGIN
		PushAttrs;
			PenPat(dashIndx); { old routine }
			A_DashIndx2NameIndx := FPenPatN; { new routine }
		PopAttrs;
	END;