На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > RichEdit: верхние/нижние индексы
      RichEdit поддерживает верхние/нижние индексы;
      Вот как это делается:


      Uses RichEdit;

      procedure TForm1.Button1Click(Sender: TObject);
      var
      CF:TCharFormat;
      begin
      cf.cbSize := sizeof(cf);
      cf.dwMask := CFM_OFFSET;
      cf.yOffset := 70; // смещение по y; положительное/отрицательное для смещение верх/вниз

      RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, integer(@cf));
      end;

      SCF_ALL применить ко всему тексту
      SCF_SELECTION применить к веделенному тексту
      SCF_WORD | SCF_SELECTION применить к выделенным словам

      Взято из MSDN. Проверено на Delphi7. Это работает. Попробый сделать сам, чтобы верхние/нижние индексы имели меньший размер.


      Тем более это работает в rxRichEdit.

      Вот, взято из http://forum.vingrad.ru/index.php?act=ST&f=2&t=15446
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0129 ]   [ 16 queries used ]   [ Generated: 28.03.24, 19:29 GMT ]