> For the complete documentation index, see [llms.txt](https://docs.calwincloud.com/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://docs.calwincloud.com/calwin-script/system-script-events/onsettranmulldividerspos.md).

# OnSetTranMullDividersPos

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

### Example and syntax

```objectpascal
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;
```