Перейти к содержанию
Fire Monkey от А до Я
  • 0

 Креш при изменение в 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 в рантайме менять у формы прозрачность и бордер не вываливаясь в исключения, или нормально обрабатывать переход в полноэкранный режим у прозарчной (или без стандартного заголовка) формы

Спасибо :)

Изменено пользователем Ilya.Z
Ссылка на комментарий

Рекомендуемые сообщения

Ответов пока нет

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...