4.1.16.8 AddOnDemandScript

AddOnDemandScript procedure

Prototype:	procedure AddOnDemandScript(const Caption_, ScriptName_, Note_ :string);
Description:	Adds an existing OnDemand script to the organizer
Syntax:	AddOnDemandScript(Caption, ScriptName, Note);
	Part	Description
	Caption	Caption of the script in the script organizer
	ScriptName	Name of the on-demand script
	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.