[saw_vitali]

Доброго времени суток!
Мне необходима помощь.
Необходимо вывести результаты расчета в RichEdit в формате, как на скрине (с нижними индексами).

[poli-smen]

Сообщение от saw_vitali

Необходимо вывести результаты расчета в RichEdit в формате, как на скрине (с нижними индексами).

Использовать SubScript или SuperScript в TRichEdit

[saw_vitali]

Сообщение от poli-smen

Использовать SubScript или SuperScript в TRichEdit

Спасибо.
Как я понимаю далее мне необходимо программно по символьно выводить строку и форматировать символы во время вывода?
На данный момент я вывожу результаты так:
FormResult.RichEdit1.Lines.Add('Результаты расчета: σ1='+Result1+' МПа и σ2= '+Result2+' МПа.' );

[Страдалецъ]

Можно и посимвольно сформировать строку, но мне кажется лучше ее сделать в формате rtf и уже этот текст загнать в RichEdit. Остается только посмотреть, как такой текст представляется в нужном формате.

[poli-smen]

Сообщение от Страдалецъ

Можно и посимвольно сформировать строку, но мне кажется лучше ее сделать в формате rtf и уже этот текст загнать в RichEdit. Остается только посмотреть, как такой текст представляется в нужном формате.

Если делать через rtf тогда вот эта ссылка должна помочь.

[poli-smen]

Сообщение от saw_vitali

Как я понимаю далее мне необходимо программно по символьно выводить строку и форматировать её во время вывода.

Можно и так. Но так как функция RE_SetCharFormat работает на выделении, то можно сразу поместить всю строку в RichEdit, а потом выделяя (SelStart-SelLength) нужные части применять эту функцию.

Кстати эта функция имитирует верхний/нижний индекс просто делая смещение текста вверх/вниз. Но у RichEdit есть и официальный способ сделать верхний/нижний индекс.

Вот исправленная версия этой функции, которая делает "настоящий" верхний/нижний индекс:

Код:

procedure RE_SetCharFormat2(aRichEdit: TRichEdit; CharacterFormat: TCharacterFormat);
var
  Format: TCharFormat2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := RichEdit.CFM_SUBSCRIPT;

    case CharacterFormat of
      CFM_Superscript: dwEffects := CFE_SUPERSCRIPT;
      CFM_Subscript: dwEffects := CFE_SUBSCRIPT;
      CFM_Normal: dwEffects := 0;
    end;

  end;
  aRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;

[saw_vitali]

Сообщение от poli-smen

Можно и так. Но так как функция RE_SetCharFormat работает на выделении, то можно сразу поместить всю строку в RichEdit, а потом выделяя (SelStart-SelLength) нужные части применять эту функцию.

Кстати эта функция имитирует верхний/нижний индекс просто делая смещение текста вверх/вниз. Но у RichEdit есть и официальный способ сделать верхний/нижний индекс.

Вот исправленная версия этой функции, которая делает "настоящий" верхний/нижний индекс:

Код:

procedure RE_SetCharFormat2(aRichEdit: TRichEdit; CharacterFormat: TCharacterFormat);
var
  Format: TCharFormat2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := RichEdit.CFM_SUBSCRIPT;

    case CharacterFormat of
      CFM_Superscript: dwEffects := CFE_SUPERSCRIPT;
      CFM_Subscript: dwEffects := CFE_SUBSCRIPT;
      CFM_Normal: dwEffects := 0;
    end;

  end;
  aRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;

У меня данный код не заработал.
Можно рабочий проект?

[Страдалецъ]

Похоже это неполная часть некоего кода, который на просторах инета что-то не виден.
Вот тут видимо базовая основа всей этой конструкции:

[poli-smen]

Сообщение от saw_vitali

У меня данный код не заработал.
Можно рабочий проект?

Вот здесь пример: http://yadi.sk/d/aQd-V3vDPwPtm
По нажатию кнопки Button1 загружает текст из Edit1 в RichEdit1 и делает все гласные (русские) буквы нижним индексом.

UPD

Сообщение от Страдалецъ

Похоже это неполная часть некоего кода, который на просторах инета что-то не виден.
Вот тут видимо базовая основа всей этой конструкции:

Верно. Ссылку на базовую основу я давал в первом сообщении. Там имитируется верхний/нижний индекс сдвигом текста на некоторое расстояние вверх/вниз.
А вторая функция, это моя переделка базовой основы, которая пришла ко мне по прочтению MSDN и в которой уже используется настоящие верхние/нижние индексы, а не их имитация.