1. zairkz

    zairkz

  • Похожий контент

    • От SIARHEI RAHOUSKI
      Как в самой форме созданной в Delphi XE3 открыть word документ?
    • От SIARHEI RAHOUSKI
      Как стилизовать Border окна ? 
    • От Euvene
      Добрый день! Подскажите пожалуйста, возможно ли средствами fmx сворачивать форму в трей?
    • От 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 в рантайме менять у формы прозрачность и бордер не вываливаясь в исключения, или нормально обрабатывать переход в полноэкранный режим у прозарчной (или без стандартного заголовка) формы
      Спасибо
    • От VirusZ2D
      форма прозрачная и без рамки как заставить ее растягиваться только по высоте есть компонент TSizeGrip но он растягивает во все стороны а мне нужно по высоте
       
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу