Jak w temacie, baaardzo proszę o jakieś wskazówki. Chyba mnożna je tu rysować, tylko nie mam pojęcia jak
0
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:
- 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;
- 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
- 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;