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

Владимир Б.

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

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

  • Посещение

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

    5

Владимир Б. стал победителем дня 10 мая 2020

Владимир Б. имел наиболее популярный контент!

Информация

  • Пол
    Мужчина

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

Блок последних пользователей отключён и не показывается другим пользователям.

Достижения Владимир Б.

  1. Первая тестовая версия в виде компонента: https://github.com/ange007/TLogViewer Изменения по сравнению с изначальной версией: Параметры строки: сообщение, ссылка (для перехода при двойном клике), стиль, цвет Добавлено выделение "от и до" при помощи Shift мышкой Добавлена смена строк с клавиатуры (вверх, вниз) Добавление строк списком (правда пока без стилизации и ссылок) Ну и по мелочи в связи с переводом в компонент Чего нет но надо-бы: Выделение через Ctrl (по одному) Выделение "от и до" при помощи Shift с клавиатуры Расширение функциональности меню Хранение в каком-то виде "удалённых" в связи с "заполнением буфера" пунктов, с дальнейшим повторным отображением при необходимости Многострочный текст
  2. А вот этого не знаю. Делал под десктопное приложение. И то, сейчас столкнулся с багами которые вылезли на рабочем приложении (с расчётом положения контрола), сейчас исправляю. UPD: Обновил
  3. Собственно понадобился подобный компонент для FMX, но готового решения найти не смог - пришлось ваять свой. Использовать проще простого: var scenaries: TDictionary<TFmxObject, string>; begin scenaries := TDictionary<TFmxObject, string>.Create; scenaries.Add(btn_1, '1 Button'); scenaries.Add(btn_2, '2 Button'); scenaries.Add(btn_3, '3 Button'); scenaries.Add(rctngl, 'Rectangle'#13#10'Rectangle'#13#10'Rectangle'#13#10'Rectangle'#13#10'Rectangle'#13#10'Rectangle'#13#10'Rectangle'); scenaries.Add(pnl_1, 'Panel Panel Panel Panel Panel Panel Panel Panel Panel Panel'#13#10'Panel'); scenaries.Add(nil, 'Msg without target control!'); try instructor.LoadSteps(scenaries); finally FreeAndNil(scenaries); end; Репозиторий GitHub: https://github.com/ange007/TInstructor/
  4. Привет всем! У кого-то получилось подружить данную библиотеку с Windows до 10 версии?
  5. Собственно да. У кого-то есть информация по поводу реализации загрузки шрифтов для Windows7? А то пробую что-то сваять наподобие этого (солянка из интернета): fontsCount := 0; if AddFontMemResourceEx(resStream.Memory, resStream.Size, nil , @fontsCount) <> 0 then begin fontHandle := CreateFont(0, 0, 0, 0, FW_NORMAL, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, PChar(fileName)); if fontHandle <> 0 then begin Result := True; SelectObject(GetWindowDC(ApplicationHWnd), fontHandle); end; end; Но что-то никак. Вроде везде всё ок, но программа шрифты не подтягивает.
  6. Подготовил за пол часа реализацию с цветом и стилем строки. Правда поменял форматирование кода под то которое мне удобней и понятней. FastMemo.zip
  7. Огромное спасибо за реализацию. Как-раз выискивал реализацию для цветного лога и решил было делать на основе TMemo, но думаю данный вариант подойдёт лучше всего. Репозиторий на GitHub не создавался под эту реализацию? Думаю можно было-бы туда залить свои правки.
  8. А знает кто-то варианты работы в Андроиде без подобных ухищрений? Без замены библиотек? Возможно "надстройка" над ними, или завязка на какие-то события из них?
  9. В комплект к данному решению для Windows отлично подходит: https://github.com/TheOriginalBytePlayer/FireMonkey-Fonts , для загрузки шрифта из ресурсов. Так как решения для iOS и Android этого хорошо, только вот у Windows не меньше проблем с загрузкой шрифтов (их нужно принудительно ставить в систему, что не очень то и хорошо). Я почему-то было решил (исходя из написанного - "достаточно установить шрифт") - что RAD сам упакует использованные шрифты, но специально проверил - это не так. Начал искать решение, а оказывается у FMX есть свои нюансы по этому поводу. Решил поделиться найденным, может кому будет полезно.
×
×
  • Создать...