WorkXXX

Procedure WorkLeft/WorkRight/WorkTop/WorkBottom

In these procedures all processings (work) on the left, right, top or bottom frame or sash should be added.

Example

//Simplified example of WorkTop for a vent option
procedure WorkTop(aWrapper: TWorkWrapper);
var
  vPosition,vTemp: Double;
begin
  vTemp := aWrapper.Element.Length / (aWrapper.Qty + 1);
  vPosition := aWrapper.Num * vTemp;
  aWrapper.Position := vPosition;
  aWrapper.AddWork(vPosition,0,0,'Vent');
end;

Note

Only the Work-procedures on the sides that are possible for the option needs to be present.

procedure WorkElements

In this procedure work can be added on all sides, and can therefore replace the separate WorkLeft/WorkRight/WorkTop/WorkBottom procedures.

aWrapper.Element needs to be set by the script before calling AddWork/AddAdjacentWork etc.

Example

// TODO Code Example

Note

For drainage hole scripts aWrapper.ElementList can be iterated in procedure WorkElements, and for each element in the list that should have drainageholes, aWrapper.Element should be set and then AddWork called. That way frame, sash, transom, mullion and muntin bar elements can all have drainage holes added.