SHARE
TWEET

Gio PEt

a guest Jun 29th, 2010 119 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Hide Object Layer_Tool to Hide the layer of the selected object.
  2. Copyright (C) 2010  Giovanni Petrolito}
  3.  
  4.  
  5. PROCEDURE HideObjectLayer;
  6. VAR
  7.         h,g  :HANDLE;
  8.         Active_Layer,current_Layer : STRING;
  9.         x, y :REAL;
  10.  
  11. BEGIN
  12.        
  13.         current_Layer:=GetLName(ActLayer);
  14.        
  15.         GetPt(x, y);
  16.         h := PickObject(x, y);
  17.  
  18.         g := GetLayer(h);
  19.                
  20.                 IF h<>NIL THEN BEGIN
  21.  
  22.                         Active_Layer:= GetLName(g);
  23.        
  24.                         LAyer(Active_Layer);
  25.                         HideLayer;
  26.                         SetTool(-240);
  27.                         Layer(current_Layer);
  28.         END;
  29.        
  30. END;
  31. Run(HideObjectLayer);
  32.  
  33.  
  34.  
  35.  
  36. {This program is free software: you can redistribute it and/or modify
  37.     it under the terms of the GNU General Public License as published by
  38.     the Free Software Foundation, either version 3 of the License, or
  39.     (at your option) any later version.
  40.  
  41.     This program is distributed in the hope that it will be useful,
  42.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  43.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  44.     GNU General Public License for more details.
  45.  
  46.     You should have received a copy of the GNU General Public License
  47.     along with this program.  If not, see <http://www.gnu.org/licenses/>.}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top