| Жека |
| Отправлено: 24.07.2003, 01:14 |
|
Не зарегистрирован
|
Есть RichEdit без форматирования текста но при вставке припустим
с wordpad жирнова текста с подчеркиванием атрибуты вставляются тоже, а ненадо, как с етим боротся.
Спасибо. |
|
| Gedeon |
| Отправлено: 24.07.2003, 10:30 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
RichEdit1->Alignment = taLeftJustify; // Выравнивание по левому краю
RichEdit1->Font->Style = TFontStyles(); /* Установка параметров шрифта (не Bold и не Underline)*/
}
//---------------------------------------------------------------------------
|
|
| Asher |
| Отправлено: 24.07.2003, 12:45 |
|
Мастер участка
Группа: Модератор
Сообщений: 550
|
Надо установить параметры шрифта вствляемого текста самому
| CODE |
RichEdit1->SelStart = RichEdit1->GetTextLen();//Получить позицию вставки
RichEdit1->SelAttributes->Assign(RichEdit1->Font);//Установить параметры шрифта вставки
AnsiString sResult = "Вставка";//Текст для вставки
RichEdit1->SelText = sResult; //Вставить текст |
|
|
| Жека |
 Отправлено: 06.08.2003, 01:32 |
|
Не зарегистрирован
|
Спасибо канешно за ответ но не катит. Поле RichEdit должно себя вести как Memo типа, откройте NotePad и Word, в Word'e напишите текст со шрифтом Impact 48 размера, подчеркнутий и жирный, копируем в буфер, вставляем в NotePad и аля-оп текст без форматирования тупо System там 8 размера
КАК ЕТО ЗДЕЛАТЬ, уже все перепробовал.
Наперед Пасибо.
|
|
| Gedeon |
| Отправлено: 06.08.2003, 12:48 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Попробуй так, у меня работает, если убрать первую строку то нет, почему так разоьраться нет времени
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
RichEdit1->Font->Style = TFontStyles()<
RichEdit1->Font->Size = 8;
RichEdit1->Font = this->Font;
RichEdit1->Alignment = taLeftJustify;
RichEdit1->Font->Style = TFontStyles();
}[CODE]
|
|
| Gedeon |
| Отправлено: 06.08.2003, 14:07 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Почему-то отображается не тот код который пишу
[CODE]
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
RichEdit1->Font->Style = TFontStyles()<
RichEdit1->Font->Size = 8;
RichEdit1->Font = this->Font;
RichEdit1->Alignment = taLeftJustify;
RichEdit1->Font->Style = TFontStyles();
}[\CODE]
|
|
| Gedeon |
| Отправлено: 06.08.2003, 14:09 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Все равно не то
| CODE |
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
RichEdit1->Font->Style = TFontStyles()<<fsBold;
RichEdit1->Font->Size = 8;
RichEdit1->Font = this->Font;
RichEdit1->Alignment = taLeftJustify;
RichEdit1->Font->Style = TFontStyles();
} |
|
|
| Gedeon |
| Отправлено: 06.08.2003, 14:12 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Вот теперь наконец-то получилось в предыдущем ответе, попробуй сделать так у меня работает.
И прошу прощения за то, что засрал тему, не мог понять как вставить код, впредь такой ху"ни обязуюсь не делать
|
|
| Жека |
| Отправлено: 11.08.2003, 00:57 |
|
Не зарегистрирован
|
Проверю завтра щас нет времени. а за беспокойство большое спасибо! |
|
