Ken 0 Posted December 18, 2004 Procedure ChangeAttr; VAR h :HANDLE; BEGIN h:=FINGROUP(FSACTLAYER); WHILE h<>NIL DO BEGIN SetFillBack(h,0,0,0); SetLS(h,2); SetFPat(h,0); SetPenFore(h,189); SetLW(h,14); SetClass(h,'None'); h:=NEXTOBJ(h); END; ReDraw; SetPref(10,false); SetPref(11,false); END; RUN(ChangeAttr); [ 12-18-2004, 01:54 PM: Message edited by: Archken ] Quote Share this post Link to post