TRichEdit

[DeCoder]

Есть несколько вопросов по RichEdit'у.
1). Как осуществить форматирование текста данным способом: ['B']текст['/B'](только без " ' "). Т.е. как в большинстве форумов и других web-приложений.
2). Создавать гиперссылки. Т.е. например http://www.programmersforum.ru - чтоб при вводе 'http://' загружалась страница с данным адресом(естественно, при нажатии на данную ссылку).
3). Как вставлять картинки в стрику? например, так:

 RichEdit1.Lines.Add('текст'+image);

где "image"-картинка. Какой у неё тип данных? Как совместить TString с этим типом данных?

Пока всё. Скажу честно, искал везде: начиная с гугла, заканчивая яндексом. Есть интересный материал, но ответов на эти вопросы там нет:-(.

[_Dmitry]

А компонент WebBrowser с вкладки Internet вам не подойдет?
Размещаете его на форме и грузите в него HTML:

 WebBrowser1.Navigate('http://programmersclub.ru');

Или вы хотите написать свой интерпретатор HTML?

[BOBAH13]

DeCoder для ваших целей подойдет TRXRichEdit, а лучше TRichView. Да и вообще такие темы обсуждались столько раз, что уже тошно отвечать, и ненадо говорить что Вы искали и ничего ненашли...

[DeCoder]

Приведи пример(линк) роботы с гиперссылками в Риче. Если б я нащёл, то не спрашивал бы=\.

[BOBAH13]

На самом деле в демо проекта есть там про гиперссылки
Но всеравно вот вам пример

[NoName_emaNoN]

{....}
protected
   procedure WndProc(var Message: TMessage); override;
{....}

uses Richedit, ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
var
mask: Word;
begin
mask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, mask or ENM_LINK);
SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, Integer(True), 0);
//Some text in RichEdit
RichEdit1.Text := 'Scalabium Software'#13#10 +
   ' Site is located at www.scalabium.com. Welcome to our site.';
end;

procedure TForm1.WndProc(var Message: TMessage);
var
p: TENLink;
strURL: string;
begin
if (Message.Msg = WM_NOTIFY) then
begin
   if (PNMHDR(Message.lParam).code = EN_LINK) then
   begin
     p := TENLink(Pointer(TWMNotify(Message).NMHdr)^);
     if (p.Msg = WM_LBUTTONDOWN) then
     begin
       SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
       strURL := RichEdit1.SelText;
       ShellExecute(Handle, 'open', PChar(strURL), 0, 0, SW_SHOWNORMAL);
     end
   end
end;
 
inherited;
end;

Можно и так в любой рич едит. Взято из DRKB. Скачай себе, оч. хорошая весчь! Есть оч. много полезного! Но тут встаёт проблема винды: и при нажатии ссылка не открывается в стандартном браузере, и при sellexecute тож. я с этой проблемой так и не разобрался. Почему после определённого момента винда перестаёт реагировать на такие сообщения я не знаю, может кто сталкивался с такой проблемой?

[DeCoder]

В принципе, можно загрузчик-html страниццу со скриптом, чтоб открывал линк. при нажатии в риче не линк буит открваться страница html, которая в свою очередь осуществляет переход на
нужную страницу. Сам адрес линка можно скопировать в буф.обм. и вставлять на хтмл страницу; далее-переадресация га нужную страницу.

есть такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
l:=chatmemo.Lines.Count-1; //ChatMemo=TRichEdit
  sw:=form1.ChatMemo.Lines[l];
if (pos('<B>',sw)<>0)and(pos('</B>',sw)<>0) then
  begin
      m:=pos('<B>',sw);
      delete(sw,m,3);
      m2:=pos('</B>',sw);
      delete(sw,m2,4);
      Chatmemo.Lines[l]:=SW;
      setline(Chatmemo,l,m-1);
      Chatmemo.SelLength:=m2-m;
      CurrText.Style := CurrText.Style + [fsBold];
  end;
end;



//функция CurrTex:
function TForm1.CurrText: TTextAttributes;
begin
  if Chatmemo.SelLength > 0 then Result := Chatmemo.SelAttributes
  else Result := Chatmemo.DefAttributes;
end;

//процедура setline
Procedure setline(TextEdit:TRichedit;Linepos,charpos:integer);
Begin
  with TextEdit do
  begin
    selstart:=perform(EM_LineIndex,Linepos,0)+charpos;
    perform(EM_ScrollCaret,0,0);
  end;
end;

- как видно из этого, если в тексте встречаются <B> и </B>, то текст становится жирным. Но почему-то, если в тексте в 1ой строке есть несколько данных выделений(например '<B>text</B> text <B>text</B>'), то весь текст становится жирным(курсивным, цветным и т.п.). Как это исправить?

Есть предложение сделать так, чтобы когда встречается '<B>', то весь текст побуквенно становился жирным до тех пор, пока не встретится </B>. Только вот что-то до меня не доходит, как это сделать...
Т.е. примерно это так: если есть_подстрока('<B>',в_строке_sw), то
<Цикл>(какой, кстати?)
{происходит посимвольное применение параметра до тех пор, пока не встретится '</B>'}
{но вопрос: если перебор посимвольный, то как найти '</B>'? - там 4 символа...}

В общем, помогите с алгоритмом пожалуйста.

З.Ы. вместо "<>" - "[]"

Отображение анимации в TRichEdit - это возможно сделать?

О, придумал!))
Так'c что, если сделать процедуру, которая объединяет весь этот бред в одно, и при выводе текста в ChatMemo обрабатывает текст в соответствии с заданными параметрами(т.е. каждую новую строку)?
Вот только ещё несколько вопросов:
1). Если текст вставляется в несколько строк, то обрабатывается только последняя - это в принципе, понятно, но вот как сделать построчную обработку... Помогите пожалуйста!
2). Так и не разобрался с обработкой... почему-то весь тест становится таким, как выделенные форматированием слова(нарпимер, красный-жирный-курсив-подчеркнутый, когда в тексте определённые слова выделены определённым цветом/стилем)

*3). Где скатать модуль для работы с gif - картинками в Риче?
Если знаете, киньте в меня линком.))

[DeCoder]

Никто не знает что-ль? Не верю)).
Ну пожалуйста, помогите хотябы с кодом!
Очень прошу. Очень надо).