FreePascal.ru

да нет, текст в элементе управления полностью переписывается - поле ВЫЧИСЛЯЕТСЯ заново по мере ввода... Поэтому Form1.Memo.Font.Color был бы очень кстати.
Ладно, неважно, раз иначе никак - придётся возиться. Скверно то, что вывод происходит не в одном месте - точек вывода десятка два, иначе всё ...

Просто я решил что это твоё детище, поэтому и написал сюда.
Первые строки из richmemo.pas:

{
richmemo.pp

Author: Dmitry 'skalogryz' Boyarintsev
...


SetTextAttributes я уже опробовал вчера. Геморно это... У меня содержимое этого элемента управления переписывается ...

Заработало! Ура!!! Спасибо!
Очень жаль, что эта компонента не включена в стандартную поставку Лазаруса...

Добавлено спустя 2 часа 13 минут 28 секунд:
Для изменения ВСЕГО цвета текста внутри TRichMemo хорошо бы использовать свойство Form1.Memo.Font.Color.
Сейчас оно присутствует в конструкторе ...

Файлы в win32 вернул.
lib удаляю каждый раз.
Теперь выдаёт
richmemofactory.pas(78,12) Fatal: Can't find unit RichMemoFactory used by richmemopackage
richmemofactory.pas лежит там же где и richmemopackage.lpk, в котором он тоже прописан как файл лежащий на этом уровне - в окошке установки пакета он ...

вот я балбес... нет бы прочитать что там написано...

Теперь вот такая картина:
"Compiling package richmemopackage 1.0" - действие завершено
Recompiling RichMemoFactory, checksum changed for Win32RichMemo
C:\lazarus\components\richmemo\richmemofactory.pas(78,12) Fatal: Can't find unit ...

Угу, понял, спасибо.

Добавлено спустя 12 минут 31 секунду:
неа, всё равно не собирается твой пакет...
теперь лазарус не смог найти win32richmemo.pas, который вложен в каталог win32. Куда прописать ещё один путь я так и не понял, поэтому просто вытащил win32richmemo.pas и win32richmemoproc.pas на ...

richmemo отказался устанавливаться... Ставил так:
Меню Пакет->открыть файл пакета (.lpk)->выбираю richmemopackage.lpk->OK->Установить
В редакторе на вкладке WSRichMemo при этом отмечена строка:
class procedure SetHideSelection(const ACustomEdit: TCustomEdit; AHideSelection: Boolean); override ...

Спасибо, вечером вернусь - посижу почитаю. Может этого и хватит...

Но всё-же - НЕ МОГУ НАЙТИ ЭЛЕМЕНТЫ УПРАВЛЕНИЯ lazrichview ! Как с этой штукой работать? Может надо как-то к проекту подключать, чтобы эти элементы управления увидеть???

Вот кусок дельфи-кода, но я за давностью лет не могу сходу сказать что я тут наколбасил...
Form1.Kiril - элемент TTntRichView из набора TNTUnicode

LowInd.cbSize:= sizeof(LowInd);

if Form1&#46;Kiril&#46;Font&#46;Name<>'Dilyana+' then
begin
LowInd&#46;dwMask&#58;= CFM_SIZE;
LowInd&#46 ...

Прошу прощения - плохо объяснил что нужно...
Посмотрел как я это в дельфи делал и понял, что нужен аналог RichEdit (нужно копировать из этого элемента, редактирование не нужно). Есть в Лазарусе такой? Если есть, то как называется и как в нём выше-ниже строки буквы расставлять?

Добавлено спустя 1 ...

Как написать букву ниже уровня строки?
Например чтобы химическая формула H2O была правильно написана?

(в Дельфи колдовал с помощью нескольких свойств LowInd. , но в Лазарусе это не прокатывает...)

Перенёс проект из Дельфи.
На форме вместо русских букв - одни знаки вопроса.
Попробовал в редакторе файла lfm изменить UTF8 на cp1251: правой кнопкой Параметры_файла->кодировка->cp1251->Изменить файл. Ничего не изменилось, вдобавок после перезапуска всё вернулось на место - опять в редакторе UTF8 ...

Спасибо за экзешник.

Фонт со значком 10140 выбрал.
В нижнем окне для знака 10140 вот это:
utf8: F0 A0 85 80
utf8 длина в байтах: 4
количество символов: 1

А в верхнем окне - две "пустоты", ни вопросов ни квадратиков, мышкой выделяются как два пробела.

Было предположение, что в системе не включено ...

скалогрыз, извини, у меня тут с лазарусом неприятности случились, точнее с виндой наверное - не могу вообще ничего скомпилировать, в том числе твой пример...
Пока разгребаюсь, можешь выслать скомпилированный экзешник?

Не выходит каменный цветок...
#$D840#$DD40 - тоже не срабатывает. Я уже и unocode чарсет поставил для контрола и шрифт принудительно назначил...
Через функции тоже пробовал:
function SurPair(code&#58; LongWord)&#58; WideString;
begin
SetLength(Result, 2);
Result&#91;1&#93;&#58;=WideChar($d800 or ...