Креш при изменение в RunTime у формы BorderStyle/Transperency [OSX]

[Ilya.Z]

Столкнулся с такой проблемой, (Delphi Seattle, OSX+ WIndows 10) делаю форму со своим заголовком, при установленных свойствах Transperency := True  или BorderStyle := None,
переход в режим FullScreen не отрабатывается корректно (форма не изменяет размер на максимальный),  решил перед переходом в полноэкранный режим устанавливать   Transperency := False  и BorderStyle отличный от None, но программа вылетает, иногда сразу иногда на 2-3 раз смены параметров, причем независимо от того что меняю прозрачность или бордер.  если запускать через отладчик то вываливается на такое -

в System.Internal.ExcUtils;
{   RaiseSignalException is called from SignalConverter, once we've made things look   like there's a legitimate stack frame above us.  Now we will just create   an exception object, and raise it via a software raise. } procedure RaiseSignalException(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode: LongWord);
begin  
  raise GetExceptionObject(ExceptionEIP, FaultAddr, ErrorCode);
end;

под Windows все работает нормально, без всяких выкрутасов

для проверки можно сделать пустую форму, две кнопки , и скажем панель за которую перетаскивать форму
и три обработчика-

procedure TForm1.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Single);
begin
 if (Button = TMouseButton.mbLeft) and (y < 25) then StartWindowDrag;
end;
procedure TForm1.sbExpandClick(Sender: TObject);
begin
  i f BorderStyle = TFmxFormBorderStyle.None then  
            BorderStyle := TFmxFormBorderStyle.Single  
   else  BorderStyle := TFmxFormBorderStyle.None;
end;
procedure TForm17.sbFullClick(Sender: TObject);
begin  
  FullScreen := not FullScreen;
end;

Может кто то сталкивался, как под OSX в рантайме менять у формы прозрачность и бордер не вываливаясь в исключения, или нормально обрабатывать переход в полноэкранный режим у прозарчной (или без стандартного заголовка) формы

Спасибо

Изменено 9 апреля, 2016 пользователем Ilya.Z