ďťż

Ładny brzuch

Jak w komponencie RichEdit1 wyłączyć / włączyć formatowanie ?
Przykładowo wklejam tekst zawierający formatowanie skopiowany np. z strony www i chciał bym aby w RichEdit1 pojawił się jako zwykły tekst tam jak w Memo1.
A następnie żeby można było włączyć formatowanie tekstu w RichEdit1 ?

Myślałem że RichEdit1->PlainText = true/false; ale niestety to nie jest to :(

Pozdrawiam



zaznaczasz caly tekst
ustawiasz dla niego domyslne parametry formatowania
odznaczasz caly tekst
:)

A jak się usuwa programowo formatowanie z zaznaczonego tekstu ?


A jak się usuwa programowo formatowanie z zaznaczonego tekstu ?
juz mowilem - po prostu wszystkie atrybuty (czcionka, wyrownywanie itp) ustaw na domyslne



To rozumiem, ale jakim atrybutem mam ustawić na domyślne:
Form1->RichEdit1->SelStart = 0; Form1->RichEdit1->SelLength = 200; Form1->RichEdit1->SelAttributes->Color = clRed; Form1->RichEdit1->SelAttributes->Style = Form1->RichEdit1->SelAttributes->Style << fsBold;
Zamienia na bold 200 znaków a jak z powrotem na domyślne ?
Użytkownik Darek_c++ edytował ten post 04 maj 2007, 09:58
No to wtedy chyba analogicznie:
Form1->RichEdit1->SelAttributes->Style = Form1->RichEdit1->SelAttributes->Style >> fsBold; //bez bolda Form1->RichEdit1->SelAttributes->Style = Form1->RichEdit1->SelAttributes->Style << fsBold; //z boldem

No niby tak, ale myślałem, że jest jakaś inna komenda usuwająca / czyszcząca formatowanie...

procedure TForm1.Button1Click(Sender: TObject); var ttattr: TTextAttributes; begin ttattr := TTextAttributes.Create(RichEdit1, atDefaultText); //wazne to atDefaultText - atSelected nie dziala ttattr.Color := clGreen; zamien_formatowanie(ttattr); end; procedure TForm1.zamien_formatowanie(ttattr: TTextAttributes); begin RichEdit1.SelectAll; RichEdit1.SelAttributes := ttattr; RichEdit1.SelLength := 0; end;

Przerobisz po swojemu na C++ :)
Użytkownik pbnan edytował ten post 04 maj 2007, 10:55
Dziękuję za pomoc....

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •