Advertisement
Guest User

Untitled

a guest
May 30th, 2016
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.41 KB | None | 0 0
  1. unit ApplyCustomScriptedFilter;
  2.  
  3. function Filter(e: IInterface): Boolean;
  4. begin
  5. Result := ElementExists(e, 'Power Grid');
  6. end;
  7.  
  8. function Initialize: Integer;
  9. begin
  10. FilterConflictAll := False;
  11. FilterConflictThis := False;
  12. FilterByInjectStatus := False;
  13. FilterInjectStatus := False;
  14. FilterByNotReachableStatus := False;
  15. FilterNotReachableStatus := False;
  16. FilterByReferencesInjectedStatus := False;
  17. FilterReferencesInjectedStatus := False;
  18. FilterByEditorID := False;
  19. FilterEditorID := '';
  20. FilterByName := False;
  21. FilterName := '';
  22. FilterByBaseEditorID := False;
  23. FilterBaseEditorID := '';
  24. FilterByBaseName := False;
  25. FilterBaseName := '';
  26. FilterScaledActors := False;
  27. FilterByPersistent := False;
  28. FilterPersistent := False;
  29. FilterUnnecessaryPersistent := False;
  30. FilterMasterIsTemporary := False;
  31. FilterIsMaster := False;
  32. FilterPersistentPosChanged := False;
  33. FilterDeleted := False;
  34. FilterByVWD := False;
  35. FilterVWD := False;
  36. FilterByHasVWDMesh := False;
  37. FilterHasVWDMesh := False;
  38. FilterBySignature := False;
  39. FilterSignatures := '';
  40. FilterByBaseSignature := False;
  41. FilterBaseSignatures := '';
  42. FlattenBlocks := False;
  43. FlattenCellChilds := False;
  44. AssignPersWrldChild := False;
  45. InheritConflictByParent := True; // color conflicts
  46. FilterScripted := True; // use custom Filter() function
  47.  
  48. ApplyFilter;
  49.  
  50. Result := 1;
  51. end;
  52.  
  53. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement