4.1.16.7 AddAttributeScript

AddAttributeScript procedure

Prototype:	procedure AddAttributeScript(const Caption_, LayerName_, AttributeName_, Note_ :string);
Description:	Adds an existing OnChange script to the organizer
Syntax:	AddAttributeScript(Caption, LayerName, AttributeName, Note);
	Part	Description
	Caption	Caption of the script in the script organizer
	LayerName	Name of the layer to which the script is bound
	AttributeName	Name of the attribute to which the script is bound
	Note	Note that is shown together with the script name
Return value:	none

Note: This procedure is available since version X7.

Example:

var i, j:integer;
  sco:TScriptOrganizer;
begin
  sco:=TScriptOrganizer.Create;
  try
    sco.RegistryNameForLastPosition := 'InventoryCheck_2020';  
  
    sco.Header:='Inventory';
    sco.Caption:='Check data routines';
    sco.AddGroup('Trees','Trees');   
      sco.AddAttributeScript( 'Check heights',
                              'Trees','CheckHeight',
                              'Check heights for all trees');
      sco.AddAttributeScript( 'Check DBH',
                              'Trees','CheckDBH',
                              'Check DBH for all trees');
                              
    sco.AddGroup('Regeneration','Regeneration');
        
      sco.AddAttributeScript( 'Check heights',
                              'Trees','CheckHeight',
                              'Check heights for all trees');
      sco.AddAttributeScript( 'Check DBH',
                              'Trees','CheckDBH',
                              'Check DBH for all trees');
    sco.Show;
    
  finally
    sco.Free;
  end;
end.