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

Tumaso

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

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

  • Посещение

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

    41

Tumaso стал победителем дня 17 октября 2025

Tumaso имел наиболее популярный контент!

Посетители профиля

26 018 просмотров профиля
  1. В Личном Кабинете же лежит оффлайн инсталлятор?
  2. Типично для мошенников, никакой телефонной связи, только мессенджер. Самое удивительное, что по официальному телефону, официальный сотрудник НПЦ «ГеоТЭК»компании, наличие вакансий опровергает.
  3. При звонке по телефону говорят, что открытых вакансий нет ))
  4. Скрин ошибки подразумевает скрин экрана того устройства, на котором она возникла. На телефоне? Значит скрин с телефона. Вытягивать инфу с тебя никто не будет, потому что это надо тебе. У нас все работает (с) На этом пока пока.
  5. Я просил скрин ошибки. Где пишет про синтаксическую ошибку? Телепатов не завезли, если что
  6. Почему не обладает? Обладает, только хорошие темы платные Я покупал на делфистайлс, когда Крюков был еще живой
  7. В Delphi 13 для FMX компонент TMaskEdit теперь тоже есть
  8. стили, темы - это одно и тоже))
  9. Хендлер делается несложно, создаешь его и вешаешь свой обработчик сообщений 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}
  10. Товарищей конечно нет, но неужели было нельзя использовать современный интерфейс, а не интерфейс в стиле win95? Ведь в VCL, который вы используете (судя по содержимому exe-файла), тоже поддерживает стили
  11. А почему внешний вид такой ужасный? При этом приложение сделано на VCL, а не на FMX
×
×
  • Создать...