- 0
Креш при изменение в RunTime у формы BorderStyle/Transperency [OSX]
-
Похожий контент
-
- 24 ответа
- 957 просмотров
-
- 1 ответ
- 687 просмотров
-
- 5 ответов
- 2 059 просмотров
-
- 4 ответа
- 1 866 просмотров
-
- 1 ответ
- 1 409 просмотров
-
- 2 ответа
- 1 213 просмотра
-
- 12 ответов
- 2 804 просмотра
-
- 3 ответа
- 1 678 просмотров
-
- 1 ответ
- 3 522 просмотра
-
- 7 ответов
- 4 056 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
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Ссылка на комментарий
0 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.