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

dnekrasov

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

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

  • Посещение

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

    51

dnekrasov стал победителем дня 15 ноября 2020

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

Информация о dnekrasov

  • День рождения 21.02.1974

Информация

  • Пол
    Мужчина
  • Город
    Минск

Контакты

  • Skype
    nekrasovdb

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

8 222 просмотра профиля
  1. dnekrasov

    macOS Big Sur & Delphi

    У меня работает, правда тормозит безбожно
  2. dnekrasov

    macOS Big Sur & Delphi

    Лично я столкнулся с двумя проблемами - Отображение иконки в трее (MenuBar) и отображение уведомлений. Может что-то ещё есть, пока не знаю
  3. Пробовал я и TMS Web Core и UniGUI, но как по мне - лучше чем Thinfinity VirtualUI нет. И да, реально на всех получаются неплохие веб-приложения на Delphi без знания всех этих новомодных фреймворков.
  4. как-то так uses System.RegularExpressions; ... const AHREF = '<a href="([^"]*)"[^>]*>([^<]*)</a>'; var Match: TMatch; s: String; begin Match := TRegEx.Match(ваша HTML строка, AHREF); while Match.Success do begin // здесь что-то делаем //<a href"...>...</a> в Match.Value //Match.Groups[1] - адрес ссылки //Match.Groups[2] - отображаемый текст ссылки Match := Match.NextMatch; end; end
  5. Сложно что-то ответить не имея стиля и проекта. Если скинете стиль и какой-либо тестовый проект с одной этой формой - можно будет продолжить беседу...
  6. Да, она только у TCommonCustomForm. До неё можно добраться так: function GetOwnerForm: TCommonCustomForm; var ctrl: TComponent; begin Result := nil; ctrl := Self.Owner; while Assigned(ctrl) and not (ctrl is TCommonCustomForm) do ctrl := ctrl.Owner; if Assigned(ctrl) and (ctrl is TCommonCustomForm) then Result := ctrl as TCommonCustomForm; end;
  7. Ну как я могу ответить на этот вопрос? Я не знаю ни что Ваша программа делает, ни что Вы хотите добить ся этим потоком, что такое Reopen, Add, как вы работаете с базой и т.д... Кстати, насчет базы. Когда-то я сталкивался с такой ситуацией (правда это было ADO и под винду): если ADOConnection был создан в главном потоке, то UI зависал всегда (даже когда запрос выполнялся в отдельном)
  8. В Synchronize надо заключать КАЖДОЕ обращение к визуальной части. Вы же этого не сделали (если я правильно понял код), или сделали частично. К тому же у Вас столько строк надо синхронно делать, что я просто не вижу смысла в таком потоке. Мой Вам совет - меняйте логику.
  9. Лучше TPaintBox или TShape вообще лучше не делать - размер холста задаётся автоматом в зависимости от размеров контрола переопределите функцию GetDefaultSize: TSizeF Вы контрол рисуете полностью сами, значит inherited тут не надо А вообще - посмотрите исходники TCircle-TEllipse-TShape - всё станет намного понятнее.
  10. dnekrasov

    [MacOS] Меню "Share"

    Может кто подскажет, как в MacOS Catalina добавить пункт в меню "Share", с ссылкой на моё приложение?
  11. dnekrasov

    TSpinBox

    От себя добавлю - для сравнения есть чудесная функция System.Math.CompareValue Ещё гляньте System.Math.Vectors.TEpsilon - там есть полезные константы
  12. dnekrasov

    Запись видео с экрана

    Собственно сабж - есть ли в MacOS аналог avifil32.dll b и её функций? А вообще - нужно записать видео с экрана
×
×
  • Создать...