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

Tumaso

Пользователи
  • Постов

    352
  • Зарегистрирован

  • Посещение

  • Победитель дней

    41

Сообщения, опубликованные Tumaso

  1. Скрин ошибки подразумевает скрин экрана того устройства, на котором она возникла.
    На телефоне? Значит скрин с телефона.
    Вытягивать инфу с тебя никто не будет, потому что это надо тебе. У нас все работает (с)
    На этом пока пока. 

  2. Хендлер делается несложно, создаешь его и вешаешь свой обработчик сообщений

    type
      TMyForm = class(TForm)
      private
      {$IFDEF MSWINDOWS}
        // Сохраненный обработчик сообщений окна
        FPrevWndProc: TFNWndProc;
    
        // Установленный обработчик сообщений окна
        FWndProc: Pointer;
    
        // Обработчик сообщений окна
        procedure FormWndProc(var AMsg: Winapi.Messages.TMessage);
      {$ENDIF}
      protected
      {$IFDEF MSWINDOWS}
        procedure CreateHandle; override;
      {$ENDIF} 
      end;
    
    {$IFDEF MSWINDOWS}
    
    procedure TMyForm.FormWndProc(var AMsg: Winapi.Messages.TMessage);
    begin
      case AMsg.Msg of
        WM_SETTINGCHANGE:
        begin
          // смотрим наличие ImmersiveColorSet в сообщении и включаем нужную тему из нужного StyleBook на форме
        end;
      end;
    
      AMsg.Result := CallWindowProc(FPrevWndProc, FormToHWND(Self), AMsg.Msg, AMsg.WParam, AMsg.LParam);
    end;
    
    procedure TMyForm.CreateHandle;
    begin
      inherited;
    
      var LHandle: HWND := FormToHWND(Self);
      FPrevWndProc := TFNWndProc(GetWindowLong(LHandle, GWL_WNDPROC));
      FWndProc := MakeObjectInstance(FormWndProc);
      SetWindowLong(LHandle, GWL_WNDPROC, NativeInt(FWndProc));
    end;
    
    {$ENDIF}

     

  3. 6 часов назад, Олег Киреев сказал:

    Здравствуйте. СпасиБО за замечание. На вкус и цвет товарищей нет.

    Товарищей конечно нет, но неужели было нельзя использовать современный интерфейс, а не интерфейс в стиле win95?
    Ведь в VCL, который вы используете (судя по содержимому exe-файла), тоже поддерживает стили 
     

  4. Всем привет.

    А есть ли в природе компоненты, чтобы использовать полноценный Docking в FMX? 
    Максимум что нашел, так это FireDocking, но эта библиотека производителем заброшена, увы

    Рассматриваю даже платные, главное решить задачу

  5. У OXML на сайте написано дословно: vendor for Delphi's XmlIntf.TXMLDocument

    Цитата

    sOXmlDOMVendor (OXmlDOMVendor.pas): fastest DOM vendor for Delphi's own TXMLDocument.
    Use TXMLDocument(MyXmlDoc).DOMVendor := GetDOMVendor(sOXmlDOMVendor) if you want to use Delphi's default TXMLDocument with the fastest and cross-platform vendor.

     

  6. Прошло почти 5 лет с момента начала этой темы, а проблема всё та же 🙂

    Сейчас использую Delphi 12 с 1 патчем, но работать с FMX.Graphics в консольном приложении на linux-машине без установленной графической оболочки так и не получается (компилируется, но при попытках использования работы с графикой валятся эксепшены и валится само приложение).
    При этом FMXLinux установлен, рекомендуемые либы gtk на линуксе также установлены.
    Использование внешнего приложения понятно, но задача - использовать исключительно внутренний код.

    Может есть у кого успешное решение аналогичной задачи?

  7. Вообще и Берлин, Rio и даже Alexandria уже неактуальны. Ты проверял работу на Delphi 12?

    И интересно, почему ты сравниваешь файлы из папок, в которых системные компоненты не хранятся? А хранятся проекты пользователей. Т.е. ты накидал каких то файлов, и пытаешься выдать нам за сравнение системных либ

  8. 6 часов назад, antigrav сказал:

    Правильно ли я понимаю, что номер, который печатался в опубликованном фрагменте кода - это номер главного потока?

    Сама суть Synchronize в том, чтобы выполнить код в главном потоке

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