[delphi] RichEdit - sformatowany tekst

[Max1414]

Wiecie jak pobrać sformatowany tekst z RichEdit? Tak, żeby po ustawieniu go było zachowane formatowanie?

 

Próbowałem już nawet z komunikatami i nic... Jedyne co tak działa to kopiowanie do schowka zaznaczonego tekstu, ale wolałbym to zrobić inaczej...

[lewymati]

Wiecie jak pobrać sformatowany tekst z RichEdit? Tak, żeby po ustawieniu go było zachowane formatowanie?

 

Próbowałem już nawet z komunikatami i nic... Jedyne co tak działa to kopiowanie do schowka zaznaczonego tekstu, ale wolałbym to zrobić inaczej...

 

Nie za bardzo Cię rozumiem - jak pobrać sformatowany tekst - skąd - dokąd???

[Max1414]

do zmiennej z RichEdita?

[krajew4]

RichEdit ma taka wlasciwosc PlainText. Ustaw ja na true to zobaczysz czysty tekst, nawet jezeli tekst bedzie sformatowany, a formatowanie bedzie zapisane jako komendy opisujace kolor, rozmiar czcionki itd. Skopiuj ten czysty tekst (ale jednak sformatowany) do zmiennej i potem wklej go do drugiego richedita z PlainText na false, powinno zadzialac. :]

[Max1414]

nom niestety PlainText nie powoduje wyświetlenia tagów w edytorze...

[krajew4]

Smiga:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils,X[XX[7G&267G&3GPDf&Ó6Ć72Df&&6VFCEĄ(%IĄQIĄ(%      ŃŃQ       ŃŃ(%        ŃŃTButton;
       Memo1: TMemo;
       procedure Button2Click(Sender: TObjX
NYH]PXĘ[X
N]]B^&fFRFV6Ć&F2V&Ć0V&Ć2FV6Ć&F2V()(Q()ąŃŃ()H()ocedure TForm1.Button2Click(Sender: TObject);
begin
richeditK[]X][NVN[YHLK]6Ć66VćFW#D&ŚV7Bf 3E7G&ću7G&VÓŚ&Vv&6VFAąQą)QMŃMŃ
Ń)edit1.Lines.SaveToStream(s);
memo1.text:=s.DataString;
riche]Z[^Y[NXY]^]T[YNVćCŚVćB

Na forme dwa buttony, dwa richedity i memo. :]

[Max1414]

kurcze...a takie proste to było przecież SaveToStream zapisuje to samo co do pliku, a w pliku jest formatowanie dzięki