[Oleg]

1)Например, имеется текст, а в нем есть свои теги, типа разметки.
Например тег [centerS]text[/centerS] но без "S", а то на форуме текст ставится по центру . И что заключено в этот тег, то будет в отображении по центру.
Как можно сделать редактор такого текста на Delphi, чтобы не было видно этих тегов, но текст был именно по центру(например в Memo), а сохранялся он с тегом, но при загрузке его не было видно, только форматированный текст(т.е. этот текст по центру).
2)Например, имеется текст, а в нем есть свои теги, типа цвета.
Например тег [red]text[/red]. И что заключено в этот тег, то будет красным цветом. Как можно сделать редактор такого текста на Delphi, чтобы не было видно этих тегов, но текст был именно определенного цвета(например в Memo), а сохранялся он с тегом, но при загрузке его не было видно, только форматированный текст(т.е. этот текст цветной).
Подскажите как это реализовать, а то я никогда не таких примеров и не знаю с чего начать .
Подскажите пожалуйста, эксперты.

[Winny]

Можно сделать проще. Создаёшь RichEdit и WebBrowser. На событие OnChange у RichEdit пиши:

Код:

RichEdit1.Lines.SaveToFile('save.html');
WebBrowser1.Navigate('save.html');

[Oleg]

Сообщение от Winny

Можно сделать проще. Создаёшь RichEdit и WebBrowser. На событие OnChange у RichEdit пиши:

Код:

RichEdit1.Lines.SaveToFile('save.html');
WebBrowser1.Navigate('save.html');

Нет, мне нужно именно так, как сказано выше т.к. я работаю с XML форматом. Или всё-таки можно так ? Можно пример ?
Но всё-таки нужно как сказано выше ...

[Rosenkrantz]

Используйте RichEdit.

Отцентрировать текст:

Код:

ARichEdit.Paragraph.Alignment := taCenter;

Раскрасить текст:

Код:

ARichEditSelAttributes.Color := clRed;

Изменить шрифт:

Код:

ARichEdit.SelAttributes.Name  := 'Arial';

Paragraf здесь - либо выделенный кусок текста, либо абзац, на котором установлен курсор. Курсор позиционируется через SelStart.

SelAttributes - аттрибуты выделенного куска текста: цвет, фонт.

Чтобы выделить текст, например, с 1 по 10-й символ:

Код:

ARichEdit.SelStart := 0;
ARichEdit.SelLength := 10;

Естественно, придется самому заботиться о том, чтобы текст RichEdit форматировался в зависимости от тэгов. Ну и при сохранении в соответствии с форматированием обрамлять текст нужными тэгами тоже - самостоятельно.

[Oleg]

Компонент называется TDBReichEdit ? так. Если да, то почему ничего нельзя написать и если в него загрузить текст, то при первом нажатии он исчезает ??
Извините, всё нашел буду пробовать...

[Rokuell]

Компонент называется RichEdit вкладка Win32

[Winny]

TDBRichEdit - это к базам данных отностится, не то, что тебе нужно.

[Oleg]

Ну да, я нашел, я ведь написал.
Вопрос такой: как узнать текст, который пользователь выделил в ReichEdit ?

[Rosenkrantz]

как узнать текст, который пользователь выделил в ReichEdit ?

S := Copy(RichEdit1.Text, RichEdit1.SelStart, RichEdit1.SelLength);

[Oleg]

Спасибо, будем пробовать.
Если не заняты и вам не трудно: вы не могли бы показать на примере как мне отслеживвать теги и согласно тегам (не показывая их в ReichEdit) форматировать текст и сохранять его в файл.

[Oleg]

А как применить например цвет к одному слову в ReichEdit ? Выбрав его:

Код:

S := Copy(RichEdit1.Text, RichEdit1.SelStart, RichEdit1.SelLength);

Это возможно ?

[Rosenkrantz]

Вы же XML разбираете? Тут вот какая штука. XML - это в большей степени не язык разметки данных, а язык описания данных. Т.е. в XML будет скорее не <center>текст</center>, а что-то вроде

<p align="center">
текст
</p>

или

<p>
  <align>center</align>
  <text>текст</text>
</p>

Так вот я хотел спросить - у вас каким способом описаны данные?

[Rosenkrantz]

Сообщение от Oleg

А как применить например цвет к одному слову в ReichEdit ? Выбрав его:

Сообщение от Rosenkrantz

Чтобы выделить текст, например, с 1 по 10-й символ:

Код:

ARichEdit.SelStart := 0;
ARichEdit.SelLength := 10;

Установите SelStart и SelLength и текст будет выделен.

[Oleg]

Сообщение от Rosenkrantz

Вы же XML разбираете?
Так вот я хотел спросить - у вас каким способом описаны данные?

Да, но данные на XML не влияют, этот xml будет читаться другой программой, нужно просто сделать удобный редактор.
Пример в Xml'e:

Код:

<t id="1">[text]MyText\n
[centerS]testText[/centerS]\n
test[/text]

"\n" - переход на новую строку.
Получается, что это текст идет так:

Код:

MyText
    
testText
test

[Oleg]

Сообщение от Rosenkrantz

Установите SelStart и SelLength и текст будет выделен.

Что-то не совсем понятно, можно примерный код, если я выделил в ReichEdit текст и нажал такую-то кнопку => текст цветной+(оформлен тегом, например [red]text[/red]). (Я просто наверное не правильно задал вопрос)