dnekrasov

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

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

  • Посещение

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

    17

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

  1. dnekrasov

    Изменить шрифт заголовка

    Поиграйтесь со стилем "headeritemstyle"
  2. dnekrasov

    HueTrackBar

    System.UIConsts.RGBtoHSL(RGB: TAlphaColor; out H, S, L: Single). Параметр H и есть hue.
  3. Зачем это делать? Вам же выше ответили как поменять - просто создайте свой стиль для айтема листбокса
  4. dnekrasov

    Обрезается размер у Form

    Если Вам не нужно масштабирование - просто в свойствах проекта снимите птичку "Enable High-DPI"
  5. Вместо TTask.Run можно использовать TThread.CreateAnonymousThread в связке с TThread.OnTerminate
  6. dnekrasov

    Вопрос по среде Delphi

    Или Alt+F12 в Design режиме, после чего форму можно редактировать в текстовом режиме. Ну или просто выделить все контролы на форме - Ctrl+A или Shift+Click - а затем, как обычно - Ctrl+X->выбратьTabItem1->Ctrl+V
  7. dnekrasov

    Вертикальное смещение юникодных шрифтов

    Ну как же? В первом параметре идет прямоугольник в который выводится текст. Ему и сделать Offset(-PD.GetBounds.Left, -PD.GetBounds.Top) Всё просто: PD.Translate(-PD.GetBounds.Left + DestRect.Left + (DestRect.Width - PD.GetBounds.Width) / 2, -PD.GetBounds.Top + DestRect.Top + (DestRect.Height - PD.GetBounds.Height) / 2)
  8. dnekrasov

    Вертикальное смещение юникодных шрифтов

    А еще можно попробовать FillText со смещением -PD.GetBounds.Left, -PD.GetBounds.Top
  9. dnekrasov

    Вертикальное смещение юникодных шрифтов

    Перед FillPath попробуйте вставить PD.Translate(-PD.GetBounds.Left, -PD.GetBounds.Top);
  10. dnekrasov

    Отредактировать png файлы в .fsf

    В ObjectInspector выбираете св-во MultiResBitmap ну и дальше по документации
  11. dnekrasov

    Отредактировать png файлы в .fsf

    Справа вверху страницы есть кнопка
  12. dnekrasov

    Отредактировать png файлы в .fsf

    В StyleDesigner-е находим стиль, объект которого типа TImage и называется, обычно, "[имя файла стиля без расширения]style.png" , и работаем с ним как с обычным TImage. Вот пример из стандартного стиля iOSBlack.fsf
  13. Не, ну если Вас не заботит то, что Ваше приложение будет выдавать ошибку под виндой - то конечно, пусть сами разбираются
  14. Похоже на то. Нет, это видно из исходников, и не больше одного элемента а размерности параметров APrompts и AValues должны совпадать. От размерности APrompts зависит количество полей ввода в диалоге.
  15. Хоть в хелпе и написано под виндой размерности массивов должны совпадать. Посмотрите FMX.DialogHelper.TDialogBuilder.InputQuery
  16. dnekrasov

    Select listbox

    Стилем: ListBoxItemStyle->ActiveStyleObject
  17. Лет 15 назад меня заставили написать один сборный контрол (как я ни старался убедить что фрейм лучше - не прокатило) - до сих пор - как вспомню, так вздрогну Чё тут думать - ТРЯСТИ НАДО :)
  18. Не легче ли использовать фреймы?
  19. Вот только все они наследованы не от TStyledControl. Очень редко можно встретить в стиле что-то заранее стилизованное. Не подходит StyleData - кто Вам мешает работать с FindStyleResource Сделать можно все что угодно - вот только насколько оно будет обосновано и стоит ли оно затраченного времени - решать Вам
  20. О как! Вы решили создать стиль для всего ОКНА! Стили для этого не предназначены. Ну так Вы же сами себе и ответили. Отсюда следует, что механизм работы со стилями просто для этого не подходит.
  21. Чёт я вообще ничего не понял... Что такое "скрол" и куда он "бросается". Что означает "намертво съедает чаилдов". StylesData чего и куда не может добраться? На каком этапе Вы выполняете указанный вами код? Из чего состоит "MessageBoxStyle". Что означает "ну не загрузился еще стиль" - вы не подгрузили его в проекте или предполагаете, то он еще не применился к контролу?
  22. По-моему вообще некорректно. Внешне-то будет выглядеть как надо, а вот логики работы не будет вообще. Ведь стиль - это только описание того, как контрол должен выглядеть, а не как работать. Кстати, копию стиля легче получить так MainControl := FindStyleResource('ScreenFogStyle', True);
  23. Механизм, который позволяет использовать иконку символьного шрифта вместо картинки на кнопках. Уж очень мне не нравится стандартный механизм добавления картинки на кнопку, поэтому, пару лет назад, начал искать альтернативу и остановился на символьных шрифтах (таких как FontAwesome). Вот что из этого получилось: IconicFontGlyph.zip Под Windows работает без проблем - на других системах не пробовал. Как это работает Добавляем в проект модуль UIExt.IconicFont.pas Добавляем в проект модули описания шрифтов, которые будут использоваться (см. ниже) Описываем символ, который будет использоваться в качестве иконки (см. ниже) В обработчике события OnApplyStyleLookup кнопки пишем одну строчку - TIconicFont.ApplyButtonStyle(TCustomButton(Sender)); Модули описания шрифтов UIExt.IconicFont.FA.pas - Font Awesome UIExt.IconicFont.IM.pas - IcoMoon UIExt.IconicFont.IML.pas - IcoMoon Lindua UIExt.IconicFont.IMLN.pas - IcoMoon Linear UIExt.IconicFont.MDI.pas - Material Design Icons UIExt.IconicFont.WHHG.pas - WebHostingHub Glyphs Описание символа Для описания символа используется свойство StyleName (не знаю как остальные - лично я его нигде не использую). Само описание - это строка в определённом формате: [Короткое имя шрифта];[код символа];[размер шрифта];[цвет] 2 первых поля - обязательны. Короткое имя шрифта можно увидеть в его модуле описания (TIconicFont.Short) Примеры можно увидеть на скриншотах выше (текст над кнопками). Ну и напоследок - небольшая демка IconicFontDemo.zip
  24. Из этого следует вывод, что шрифты надо регистрировать до применения стиля (если через TStyleManager) или до создания формы (если StyleBook). В общем лучше делать сразу после Application.Initialize - думаю это правильнее всего.
  25. Единственное моё предположение из-за чего это может быть - это момент регистрации шрифтов. Т.к. у меня это воспроизвести не получается - то у меня большая просьба к @wamaco отредактируйте, плз, файл проекта и попробуйте запустить ... begin TIconicFont.FontsReg; try Application.Initialize; TStyleManager.TrySetStyleFromResource('STYLE_Dark'); Application.CreateForm(TMainForm, MainForm); Application.Run; finally TIconicFont.FontsUnreg; end; end. Ну и если запустится нормально, то еще 2 варианта (чтоб точно знать когда надо регистрировать шрифты) 1: ... begin Application.Initialize; TIconicFont.FontsReg; try TStyleManager.TrySetStyleFromResource('STYLE_Dark'); Application.CreateForm(TMainForm, MainForm); Application.Run; finally TIconicFont.FontsUnreg; end; end. 2: ... begin Application.Initialize; TStyleManager.TrySetStyleFromResource('STYLE_Dark'); TIconicFont.FontsReg; try Application.CreateForm(TMainForm, MainForm); Application.Run; finally TIconicFont.FontsUnreg; end; end.