Межстрочный интервал Richtext

отредактировано 16:43 Раздел: FastReport 3.0
Здравствуйте.
Подскажите, пожалуйста, как изменить межстрочный интервал для объекта RichText?

Комментарии

  • gpigpi
    отредактировано August 2015
    http://delphikingdom.com/asp/answer.asp?IDAnswer=72165
    procedure RELineSpace(REhwnd: THandle; LineSpace: Byte);
    var
    PF: PARAFORMAT2; //если будет ругаться "Undeclared identifier..." - добавьте в Uses модуль "RichEdit"
    begin
    ZeroMemory(@PF, SizeOf(PF));
    PF.cbSize:=SizeOf(PARAFORMAT2);
    PF.dwMask:=PFM_LINESPACING;
    PF.bLineSpacingRule:=LineSpace;
    
    SendMessage(REhwnd, EM_SETSEL, 0, -1);
    SendMessage(REhwnd, EM_SETPARAFORMAT, 0, LPARAM(@PF));
    SendMessage(REhwnd, EM_SETSEL, 0, 0);
    end;
    
    
    ...
    RichEdit1.Lines.LoadFromFile(fileName);
    //вставляете эту процедуру после открытия файла
    RELineSpace(RichEdit1.Handle, 1); // где "1" это будет величина интервала (указываются только целые числа)
    ...
    
  • gpigpi
    отредактировано 16:43
    uses frxRichEdit;
    procedure TForm1.PreviewBClick(Sender: TObject);
    var
      RE: TRxRichEdit;
    begin
      RE := TfrxRichView(frxReport1.FindObject('Rich1')).RichEdit;
      RE.SelectAll;
      RE.Paragraph.LineSpacingRule := TLineSpacingRule.lsMultiple;
      RE.Paragraph.LineSpacing := 2;
      frxReport1.ShowReport;
    end;
    

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.