OnCalcSashLeadWeight
Example and syntax
function OnCalcSashLeadWeight(aSash:TCustomSashWrapper):double;
begin
Result := 0;
if aSash.VariantItem.S1 = 'UPPER' then
Result := (aSash.WeightExcludingFittings/2) + 0.8 //Upper
else
Result := (aSash.WeightExcludingFittings/2) - 0.8 //Lower
end;Last updated