VPF::TfrxRichView - Форум программистов

DarkProg

Дата 10.8.2011, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19

Создаю отчёт полностью динамически.
Основной компонент - это TfrxRichView, мне туда надо поместить переменные и форматирование.
С переменными всё просто, а вот отформатировать текст не получается, ну как бы форматируется, но только последний добавленный текст

Собственно говоря код вот

Код


         OldLength:=RichView.RichEdit.GetTextLen;// это в последствии будет selstart
         if DMShablons.GetGroupParam(tree_element_prog_name.Values[ANode], GroupArray).razmeshenie=0 then
            RichView.RichEdit.Text:=RichView.RichEdit.Text+'[<'+tree_element_user_name.Values[node]+'>]'+#13
           else
            RichView.RichEdit.Text:=RichView.RichEdit.Text+'[<'+tree_element_user_name.Values[node]+'>]'+' ';
         RichView.RichEdit.SelStart:=OldLength;
         RichView.RichEdit.SelLength:=length('[<'+tree_element_user_name.Values[node]+'>]'+' ');
         RichView.RichEdit.SelAttributes.Assign(DMShablons.GetElementParam(tree_element_prog_name.Values[node], ElementArray).Font);

Интересный момент заключается в том, что в отладчике при просмотре SelText, SelAttributes.Name, всё присваивается корректно, но после отображения отчёта у меня форматированным остаётся только лишь последний добавленный текст.

Есть предложения, что я делаю не так?

Ах да, вот так я создаю RichVeiw

Код


procedure TfrmMyForm.CreateReportForm();
Var   Rep_Var:TfrxVariable;
      RichView: TfrxRichView;
      Page: TfrxReportPage;
      i:integer;
      RootNode:TcxTreeListNode;
begin
  PreviewReport.Clear;
  For i:=0 to length(ElementArray)-1 do
  begin
    Rep_Var:=PreviewReport.Variables.Add;
    Rep_Var.Name:=ElementArray[i].user_name;
    Rep_Var.Value:=''''+ElementArray[i].user_name+'''';
  end;
  Page:=TfrxReportPage.Create(PreviewReport);
  Page.Name:=Name.Text;
  RichView:=TfrxRichView.Create(Page);
  RichView.Name:='RichReport';
  RichView.Align:=baClient;
  RichView.RichEdit.Paragraph.LeftIndent:=15;
  RichView.RichEdit.Paragraph.RightIndent:=15;
  RichView.RichEdit.Paragraph.FirstIndent:=30;
  RichView.RichEdit.Paragraph.Alignment:=paJustify;

end;

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile