Script for all classes
hallo Zusammen, ich möchte mir ein Skript schreiben bei dem ich alle Klassen einblenden kann.
Allderdings möchte ich 2 bestimmte Klassen unsichtbar lassen.
Welche Prozeduren kann ich darfür nehmen?
Procedure ClassSet;
Var L1 :LongInt;
Begin
For L1:=1 to ClassNum do ShowClass(Classlist(L1)); {Shows all classes}
HideClass('MyClassName1');
HideClass('MyClassName2');
End;
Run(ClassSet);
Change the names of the classes you want hidden to something that exists in your file or delete those rows.
Or use the Saved View command to make a saved view that just changes the class visibilities.
HTH