Create Footprint Window

{procedure ReadStringFromIniFile read settings from the ini-file.....................}
function ReadStringFromIniFile(Section,Name:String,FilePath:String,IfEmpty:String):String;
var
  IniFile     : TIniFile;
begin
     result := IfEmpty;
     if FileExists(FilePath) then
     begin
          try
             IniFile := TIniFile.Create(FilePath);

             Result := IniFile.ReadString(Section,Name,IfEmpty);

          finally
                 Inifile.Free;
          end;
     end;

 end;  {ReadFromIniFile end....................................................}

Procedure MechLayer;
Var
    Board       : IPCB_Board;
    MajorADVersion : Integer;

Begin

     Board := PCBServer.GetCurrentPCBBoard;

     //Check AD version for layer stack version
      MajorADVersion := StrToInt(Copy((ReadStringFromIniFile('Preference Location','Build',SpecialFolder_AltiumSystem+'\PrefFolder.ini','14')),0,2));


     if MajorADVersion >= 14 then
     begin
             Board.LayerStack_V7.LayerObject_V7(ILayer.MechanicalLayer(17)).SetState_MechLayerEnabled := true;
             Board.LayerStack_V7.LayerObject_V7(ILayer.MechanicalLayer(17)).IsDisplayed[Board] := true;
     end;

     if MajorADVersion < 14 then
     begin
             Board.LayerStack.LayerObject_V7(ILayer.MechanicalLayer(17)).SetState_MechLayerEnabled := true;
             Board.LayerStack.LayerObject_V7(ILayer.MechanicalLayer(17)).IsDisplayed[Board] := true;
     end;