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

dnekrasov

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

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

  • Посещение

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

    52

Весь контент dnekrasov

  1. @Сергей Рыжков , @CyberStorm Почитайте про новое в Delphi 10.3 Rio - статей и видео на эту тему куча.
  2. Попробуйте в файле проекта поставить SetProcessDpiAwareness(0) (Enable High-DPI должен быть выключен)
  3. Выключите опцию Enable High-DPI
  4. Суда по Вашим скринам - не тянется картинка стиля - проверьте buttonstyle.background.NormalLink
  5. Проверьте настройки проекта "Application->Enable High-DPI" После смены масштаба желательно перелогиниться в винде (особенно Win7)
  6. Для того, чтобы это работало нужна FireDACOracleDriver25(6)0.bpl. Не факт что она идёт вместе с Trial (в Community её точно нет).
  7. @Tumaso Я так и понял. Просто многие забывают, что пользуются Community, а в ней есть ограничения, поэтому она и бесплатная
  8. В Community Edition его и не будет (как и многих других). Это одно из ограничений этой редакции студии. Выход - или купить Professional... или всем известный способ
  9. Вы используете LyContent.AddObject а этот метод добавляет только в LyContent.Children. Для того, чтобы добавить в LyContent.Components надо создавать фрейм с AOwner = LyContent или использовать LyContent.InsertComponent. А вообще - не надо заморачиваться с Components. Управляйте отображением фреймов с помощью Parent, а за временем жизни пусть следит Ваш TFramesFactory
  10. dnekrasov

    TImageList  в  TImage

    ImageList1.Bitmap(Size, Index). Для уточнения - читайте Help. Не знаете английский - изучайте или словарём пользуйтесь (заодно и учитесь Help-ом пользоваться). Ещё раз повторюсь - здесь не кружок "юный Delphi-программист"
  11. dnekrasov

    TImageList  в  TImage

    Так оно и будет. Почитайте про ресурсы...
  12. dnekrasov

    TImageList  в  TImage

    Это уже не смешно - здесь не кружок "юный Delphi-программист" и программированию не обучают. А по сути вопроса - зачем Вам вообще ImageList если нужны png-файлы. Используйте ресурсы (Project->Resources and Images), а загрузить в TBitmap можно так: function LoadBitmapFromResourceName(const AResName: string; AResType: PChar = RT_RCDATA): TBitmap; var RS: TResourceStream; begin RS := TResourceStream.Create(hInstance, AResName, AResType); try Result := TBitmap.CreateFromStream(RS); finally FreeAndNil(RS); end; end;
  13. dnekrasov

    TImageList  в  TImage

    Хм... Я смотрю Help совсем популярностью у Вас не пользуется... TImageList.Bitmap(...) TImageList.BitmapExists(...) TImageList.BitmapItemByName(...)
  14. Это уже вопрос к разработчикам
  15. Он показывает только Title, SubTitle и Description - увидеть это можно посмотрев исходники.
  16. Не надо никак менять этот модуль. Скомпилился сразу и без ошибок (только варнинги). Насчет Ваших ошибок - похоже Вы просто uSMBIOS и System.TypInfo в uses забыли подключить.
  17. Я имел ввиду FMX-стиль (тот, который в StyleBook загружается). Привыкайте, что если хотите изменить внешний вид контрола, то надо менять его в стиле. Начёт MetropolisUIListBoxItem. За Title и Description отвечает элемент стиля с названием griditemtitlelabel. За SubTitle - griditemsubtitlelabel. Открываете Style Designer и меняете TextSettings для этих элементов.
  18. Какой стиль используете? А лучше скиньте исходники тестового проекта
  19. dnekrasov

    TImageList  в  TImage

    Не совсем понятна задача. Поподробнее опишите.
  20. Сначала указываем точку, из которой будем начинать рисовать (MoveTo) - затем указываем точку (или несколько), которые описывают рисуемую фигуру (для LineTo это точка в которою надо провести линию)
  21. Просто надо привыкнуть к новому подходу к некоторым вещам. Зато возможностей побольше, чем в VCL. Да и удобнее, когда привыкнешь. ИМХО
  22. Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Style]; Label1.TextSettings.Font.Style := Label1.TextSettings.Font.Style + [TFontStyle.fsUnderline]
  23. StyledSettings показывает какие настройки шрифта брать из стиля. Те, что не указаны в них берутся из TextSettings
  24. немного ошибся Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Style]
×
×
  • Создать...