Tabele w JvxRichEdit (Jedi)

0

Jak w temacie, baaardzo proszę o jakieś wskazówki. Chyba mnożna je tu rysować, tylko nie mam pojęcia jak

0

Mam takiego pomysła, aby przed umieszczeniem tabeli w konkretnym paragraphie zapisywać RichEdita w *rtf czytać jako *.txt, wtawiać w odpowiednim miejscu kod rtf, ponownie zapisać i odczytać RichEdit.Load...
Trochę to karkołomne, ale nigdzie nie mogę nic znaleźć. Jak zrobię, to wrzucę do FAQ. Alle może ktoś podpowie coś prostszego?

0

Tak będzie chyba dobrze:

  1. czytanie kodu rtf:
function RE_RtfText(RE:TJvxRichEdit):string;
var
   string_stream:TStringStream;
   tekst:string;
begin
   tekst:='';
   string_stream:=TStringStream.Create(tekst);
   try
      RE.PlainText:=False;
      RE.Lines.SaveToStream(string_stream);
      Result:=string_stream.DataString;
   finally
      string_stream.Free;
   end;
end;
  1. modyfikacja kodu rtf - w miejscu wstawiania tabeli np:

\trowd\trgaph180
\clbrdrt\brdrw15\brds
\clbrdrl\brdrw15\brds
\clbrdrb\brdrw15\brds
\clbrdrr\brdrw15\brds\cellx1440
\clbrdrt\brdrw15\brds
\clbrdrl\brdrw15\brds
\clbrdrb\brdrw15\brds
\clbrdrr\brdrw15\brds\cellx2880
\pard\intbl jaja\cell
\pard\intbl jak berety\cell
\row

  1. wyświetlanie kodu rtf w JvxRichEdit
procedure RtfText_RE(RE:TJvxRichEdit;rtf_tekst:string);
var
   string_stream:TStringStream;
begin
   string_stream:=TStringStream.Create(rtf_tekst);
   try
      RE.Lines.LoadFromStream(string_stream);
   finally
      string_stream.Free;
   end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1