Ken Posted December 18, 2004 Share 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 Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.