Ĺ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
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....