[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]

Сообщение от 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;

[poli-smen]

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

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

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

[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 и в которой уже используется настоящие верхние/нижние индексы, а не их имитация.

[saw_vitali]

poli-smen.....
Можно посмеяться, но скачал проект, откомпилировал его и .... он не работает....

Кинул на форму кнопки через обе процедуры первая работает а вторая нет....
Может у меня что то со средой?

Пользуюсь Delphi XE5 Up2

[poli-smen]

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

poli-smen.....
Можно посмеяться, но скачал проект, откомпилировал его и .... он не работает....

Кинул на форму кнопки через обе процедуры первая работает а вторая нет....
Может у меня что то со средой?

Пользуюсь Delphi XE5 Up2

Попробуй заменить в примере тип String, на AnsiString. У меня в XE2 так заработало.

[saw_vitali]

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

Попробуй заменить в примере тип String, на AnsiString. У меня в XE2 так заработало.

Заработало

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

Ну и до кучи добавлю еще сюда вариант с rtf:

Код:

Var
  Stream: TStringStream;
begin
 Stream := TStringStream.Create;
 Stream.WriteString('{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\froman\fcharset204 Times New Roman Cyr;}}\viewkind4\uc1\pard\lang1033\fs32 '+
                    'Результаты расчета: \u948\''3f\sub 1 \nosupersub = 250 Мпа и \u948 \''3f\sub 2 \nosupersub = 210 МПа}');
 Stream.Position := 0;
 RichEdit1.Lines.LoadFromStream(Stream);
 Stream.Free;
end;