buz Posted July 11, 2002 Share Posted July 11, 2002 Does anyone know of a script that will turn all classes on? Useful for finding 'lost' objects. tfyh Buz Quote Link to comment
ruud van de meent Posted July 11, 2002 Share Posted July 11, 2002 Here you go Procedure ShowAllClasses;VAR numberofclasses,ClassIndex:LONGINT;ClassVisibility:INTEGER;ClassName:STRING; BEGINnumberofclasses:=ClassNum;ClassIndex:=0; FOR ClassIndex := 1 TO numberofclasses DOBEGINClassName:= ClassList( ClassIndex );ClassVisibility:= GetCVis( ClassName ); IF ClassVisibility = -1 THENBEGINShowClass( ClassName );END;END;END;RUN ( ShowAllClasses ); 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.