OnSetTranMullDividersPos

This event can be used to set the transom/mullion positions

Example and syntax

procedure OnSetTranMullDividersPos(aFrame:TFrameWrapper);
var
  i:integer;
  vAdjust : Double;
  vItem:TVariantItemWrapper;
begin
  if aFrame.Product.Code = 'ZUSD' then //sliding door with "false mullion"
  begin
    for i:=0 to aFrame.Product.Variants.ItemCount - 1 do
    begin
      vItem := aFrame.Product.Variants.Items[i];
      if (vItem.VariantType = HingeDirVar) and (vItem.Level = levOne) then
      begin
        if vItem.Selcode = 'RIGHT' then 
          vAdjust := -16
        else if vItem.Selcode = 'LEFT' then 
          vAdjust := 16;
      end;
    end;
    
    //Position of "false mullion"
    aFrame.Mullions[0].Position := ((aFrame.Product.Width - (aFrame.LeftElement.Width - aFrame.RightElement.Width)) + vAdjust)/2 - aFrame.LeftElement.Width;
  end;    
end;