HTML редактор (Delphi)

[DomiNick]

И еще, возможна ли пометка слов в Дельфи, чтобы при нажатии на него в Мемо в отдельном "фрейме" типа StringGrid или что-то типа этого, можно было бы делать настройки для него, при изменении настроек в тег этого слова вставлялись изменения

Можно сделать примерно как в окне редактирования сообщений этого форума: выделяешь слово и нажимаешь кнопку "B" и вокруг выделенного появляются нужные теги: [ B ] Текст [ /B ]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.SelText:='<b>'+Memo1.SelText+'</b>';
end;

Посмотрите ещё компонент TRichEdit (Вкладка "Win32") - почти такой же Memo, но можно форматировать текст (раскрашивать в разные цвета и менять размер любого отдельного символа)...
Как это делать - есть много информации на этом форуме...

[grom333]

Можно сделать примерно как в окне редактирования сообщений этого форума: выделяешь слово и нажимаешь кнопку "B" и вокруг выделенного появляются нужные теги: [ B ] Текст [ /B ]

Наверное ты не совсем понял, или я недопонял, но мне надо например если нажал в ТМемо на <table> то все настройки для него align, bgcolor, background, border, cellpassing и т.д.

Поставил TRichEdit вместо TMemo, и при просмотре в WebBrowser выдвет мне:

{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs16 \par \par \par \par \par \par \par \par \par }

[DomiNick]

Просто RichEdit сохраняет текст в WordPad'овском формате "Rtf"...

procedure TForm1.Button1Click(Sender: TObject);
var MyHtmlText: TStringList;
begin
MyHtmlText:=TStringList.Create;
MyHtmlText.Text:=RichEdit1.Text;
MyHtmlText.SaveToFile('C:\Temp\MyPreview.html');
WebBrowser1.Navigate('C:\Temp\MyPreview.html');
MyHtmlText.Free;
end;

[uberchel]

Зачем TStringList ??

Что-бы RichEdit сохранял обычно, поставе в PlainText:= True в его свойствах !

[grom333]

Как переименовать в PageControle TabSheet1, TabSheet2 и т.д. И в RichEdit установить курсор в указанное место?

[havok]

Как переименовать в PageControle TabSheet1, TabSheet2 и т.д

tabsheet1.Caption:='ваше название'

и так далее
а по RichEdit юзай cв-во CaretPos

[grom333]

что-то ничего не помогло, вернее не нашел свойство caretpos
и на счет этого кода, его на tabsheet писать?

tabsheet1.Caption:='ваше название'

на счет

tabsheet1.Caption:='ваше название'

получается, только при запуске проги не работает, если на другую вкладку нажмешь, только тогда начинает работать

[Пепел Феникса]

установить курсор ввода в РичЭдит это:

RichEdit1.SelStart:=<нужная позиция>;
RichEdit1.SelLength:=0;//навсякий

вы когда обьект TabSheet создаете сразу присваивайте заголовок...иль статически делается это?(не помню уже какого это)

[grom333]

ыы, а че он перепрыгивает на ту позицию? не дает печатать

[Пепел Феникса]

ну так если ты указываешь всега в конец ему то все нормально конечно(то есть так и должно быть)
сам же указываешь в конец