Кривяков Виталий

Пользователи
  • Публикации

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

  • Посещение

  • Days Won

    9

Кривяков Виталий last won the day on 3 февраля

Кривяков Виталий had the most liked content!

О Кривяков Виталий

  • Звание
    Продвинутый пользователь
  • День рождения

Информация

  • Пол
    Мужчина
  • Город
    Москва
  • Интересы
    Компьютеры, технологии, фитнес

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

336 просмотров профиля
  1. Добрый день! Есть приложение под iOS. Если запускать из Delphi (Berlin), то все нормально. Как можно получить, или где найти ipa файл? В сертификат(developer) прописаны два устройства, как запустить приложение на другом айпаде, без его подключения к компу?
  2. Посмотрите тут TUITabControl
  3. Добрый день! 1. TListBox в 2 колонки. Высоту итемов рассчитывать на ходу. 2. TGridPanellayout - 2 колонки, 4 ряда 3. 8 TLayout-ов - расчет размеров и положения на лету.
  4. Добрый день! Столкнулся с проблемой вывода текста разного размера по одной линии. Не получается использовать BaseLine доступную для Firemonkey. Baseline - воображаемая прямая линия, проходящая по нижнему краю прямых знаков без учёта свисаний и нижних выносных элементов. В строке символы текста стоят на базовой линии, а нижние выносные элементы текста «свисают» с неё. Из описанного выше ясно, что выводимые символы должны лежать на это линии, но в реале как то все некорректно выводится. Сделал два примера VCL (черный фонт) и FireMonkey(черный полупрозрачный фонт), оказалось, что вывод текста осуществляется по разному, при одном и том же значении размера шрифта. Базовая линия в обоих примерах 356. Совмещаем отображение символов: GlyphsEqual.png Символы совпали, но базовая линия смещена. Совмещаем базовую линию: PosEqual.png Базовая линия совпала, как и верхний край контролов, а вот текст (серый) значительно ниже. А теперь собственно вопрос вопрос, где ошибка? Как рассчитать базовую линию для FMX? P.S. Про attributes у TTextLayout знаю. BaseLine.rar
  5. Вот набор библиотек для работы с JWT, к сожалению у Delphi там ограниченная поддержка. Может что-то удастся вытащить? https://jwt.io/
  6. Добрый день! Картинки правильно грузить в отдельном потоке в TBitmapSurface, так как последний, в отличии от TBitmap, корректно работает в потоках. Как скачаете, то можно сохранить в файл, для дальнейшего показа и отобразить на экране. Секция отображения на экране должна быть обязательно засинхронизирована с основным потоком. Общая схема такая.
  7. Добрый день! Было такое. Боюсь, что деталей не вспомню, но: На одном планшете при подключении сканера вылезло предупреждение, в котором смог сказать, что основную клавиатуру нужно показывать, на другом долго копался в настройках клавиатуры и что-то включил. К сожалению, сейчас нет сканера под рукой, не могу посмотреть, но то что лечится проблема - это точно.
  8. function GetDefaultFilePath(const FileName: string): string; begin {$IFDEF Android} Result := TPath.Combine(TPath.GetSharedDocumentsPath, FileName); {$ENDIF} {$IFDEF IOS} Result := TPath.Combine(TPath.GetDocumentsPath, FileName); {$ENDIF} {$IFDEF MSWindows} Result := TPath.Combine(TPath.GetDocumentsPath, FileName); {$ENDIF} ForceDirectories(ExtractFilePath(Result)); end; procedure TForm.ShowPDF; var {$IFDEF Android} Intent: JIntent; {$ENDIF} FilePath, tmpStr: string; begin FilePath := GetDefaultFilePath(Filename); {$IFDEF Android } try Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_VIEW); Intent.setDataAndType(StrToJURI('file:' + FilePath), StringToJString('application/pdf')); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NO_HISTORY); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); SharedActivity.startActivity(Intent); except on E: Exception do ShowToast(E.Message); end; {$ENDIF} {$IFDEF IOS} wbViewPDF.Visible := True; wbViewPDF.URL := 'file:/' + FilePath; {$ENDIF} end; Приблизительно так...
  9. Вся проблем в катастрофически не быстрой графике. Все попытки сделать живой интерфейс обречены. Приходится осознано отказываться от морфинга и трансформаций, так приложение целостнее выглядит.
  10. Добрый день! Возникла необходимость отправлять уведомления в стороннюю программу. Да не абы как через сертификаты, о чем много тут статей, а через токены. Немного руководства от яблока. Нашел библиотеку для работы с JWT https://github.com/paolo-rossi/delphi-jose-jwt Но вот как подписывать токен алгоритмом ECDSA и какие сертификаты использовать не могу понять. Кто занимался похожем вопросом? Поделитесь знаниями. Спасибо
  11. Привет! Сделайте копию проекта и постепенно удаляйте все с формы. Попробуйте определить, что приводит к такому эффекту. если есть возможность, выложите демо проект, который приводит к таким эффектам.
  12. Если битмап не секретный, то выложите его сюда.
  13. Добрый день! Image1.Bitmap Скорее всего он у вас имеет нулевые размеры, попробуйте перед Image1.Bitmap.Canvas.BeginScene; указать Image1.Bitmap.SetSize(X,Y);
  14. Маленький пример. DragAndDrop.zip
  15. Добрый день! Не получается отправить файлы из приложения в проводник Windows средствами firemonkey. Код: procedure DragAndDropFiles; var DDService : IFMXDragDropService; D : TDragObject; ABitmap : TBitmap; begin ... D.Files := []; D.Source := self; ABitmap := CreateMyBitmap; gvIcons.DisableScroll; AddFiles(D.Files); if TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, DDService) then DDService.BeginDragDrop(Self, D, ABitmap); FreeAndNil(ABitmap); end; Файлы в списке есть, картинка перемещается с курсором, но над проводником знак запрета и drop не срабатывает. P.S. Как сделать под VCL знаю, интересует, возможно ли это в FMX.