Владимир Б.

Первая тестовая версия в виде компонента: https://github.com/ange007/TLogViewer

Изменения по сравнению с изначальной версией: 

• Параметры строки: сообщение, ссылка (для перехода при двойном клике), стиль, цвет
• Добавлено выделение "от и до" при помощи Shift мышкой
• Добавлена смена строк с клавиатуры (вверх, вниз)
• Добавление строк списком (правда пока без стилизации и ссылок)
• Ну и по мелочи в связи с переводом в компонент

Чего нет но надо-бы:

• Выделение через Ctrl (по одному)
• Выделение "от и до" при помощи Shift с клавиатуры
• Расширение функциональности меню
• Хранение в каком-то виде "удалённых" в связи с "заполнением буфера" пунктов, с дальнейшим повторным отображением при необходимости
• Многострочный текст

2 часа назад, qz5 сказал:

Супер!

А как он выглядит на мобильных устройствах?

А вот этого не знаю. Делал под десктопное приложение.

И то, сейчас столкнулся с багами которые вылезли на рабочем приложении (с расчётом положения контрола), сейчас исправляю.

UPD: Обновил

Собственно понадобился подобный компонент для 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/

Привет всем!

У кого-то получилось подружить данную библиотеку с Windows до 10 версии?

В 24.01.2019 в 18:55, vasilius сказал:

в вин10 работает,  в вин7 - нет

Собственно да.

У кого-то есть информация по поводу реализации загрузки шрифтов для 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;

Но что-то никак. Вроде везде всё ок, но программа шрифты не подтягивает.

Подготовил за пол часа реализацию с цветом и стилем строки.

Правда поменял форматирование кода под то которое мне удобней и понятней.

FastMemo.zip

В 04.01.2019 в 21:22, Nick Peterson сказал:

Спасибо @slav_z за идею, чуть допилил выделение и контекстное меню, еще бы прикрутить CTRL-C грамотно:) Впрочем уже и так отлично

FastMemo.zip

Огромное спасибо за реализацию.

Как-раз выискивал реализацию для цветного лога и решил было делать на основе TMemo, но думаю данный вариант подойдёт лучше всего.

Репозиторий на GitHub не создавался под эту реализацию?

Думаю можно было-бы туда залить свои правки.

11 часов назад, Slym сказал:

https://docs.microsoft.com/en-us/windows/desktop/api/wingdi/nf-wingdi-addfontresourcea
 

Minimum supported client	Windows 2000 Professional [desktop apps only]
Minimum supported server	Windows 2000 Server [desktop apps only]

 

Так я про Андроид спрашивал.

В 02.04.2016 в 16:37, Равиль Зарипов (ZuBy) сказал:

подключить к проекту измененные файлы FMX.FontGlyphs.Android.pas, FMX.FontGlyphs.pas

А знает кто-то варианты работы в Андроиде без подобных ухищрений? 

Без замены библиотек? Возможно "надстройка" над ними, или завязка на какие-то события из них?

В комплект к данному решению для Windows отлично подходит: https://github.com/TheOriginalBytePlayer/FireMonkey-Fonts , для загрузки шрифта из ресурсов.

Так как решения для iOS и Android этого хорошо, только вот у Windows не меньше проблем с загрузкой шрифтов (их нужно принудительно ставить в систему, что не очень то и хорошо).

Я почему-то было решил (исходя из написанного - "достаточно установить шрифт") - что RAD сам упакует использованные шрифты, но специально проверил - это не так. Начал искать решение, а оказывается у FMX есть свои нюансы по этому поводу.

Решил поделиться найденным, может кому будет полезно.