Смайлы в чате full

[Dj_smart]

MasL -массив
hyperl - счетчик
При добавлении новой записи (ссылки):

RichView1.AddTextFormNewLine('['+TimeToStr(Now)+'] ',1,0);
RichView1.AddText(NickName,2,0);
// увеличиваем значение счетчика
inc(hyperl);
// и записываем имя
MasL[hyperl]:=NickName;
RichView1.AddText('> '+Test,3,0);
RichView1.Format;

Теперь, чтобы узнать:

procedure TPagesDlg.ViewMemoJump(Sender: TObject; id: Integer);
begin
  memo1.text:=MasL[id];
end;

И незабываем про волшебное слово)

[SergioneR]

Если тяжело с TWebBrowser, то уже ничего не поможет.

[BOBAH13]

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

Если тяжело с TWebBrowser, то уже ничего не поможет.

Неправда. Я бы к примеру свой компонент написал за пару дней спокойно возможно.

[Shouldercannon]

Dj_smart
И незабываем про волшебное слово)

само собой огромное спасибо

снова косячит

var
  hyperl: integer;
  MasL: array [0..100] of string; // Как поставить до бесконечности?
procedure TForm1.Button1Click(Sender: TObject);
begin
NickName:=Edit1.Text;
ChatMessage:=Memo1.Text;

RichView1.AddTextFromNewLine('['+TimeToStr(Now)+'] ',1);
RichView1.AddText(NickName,4);
// увеличиваем значение счетчика
inc(hyperl);
// и записываем имя
MasL[hyperl]:=NickName;
RichView1.AddText('> '+ChatMessage,3);
RichView1.Format;
end;

procedure TForm1.RichView1Jump(Sender: TObject; id: Integer);
begin
Memo1.Text:=MasL[id];
end;

Получаем
[18:45:19] Name0> 007
[18:45:21] Name1> 007
[18:45:23] Name2> 007
[18:45:25] Name3> 007
[18:45:27] Name4> 007
Добавление в мемо начинается только с [18:45:21] Name1> 007 и дальше на 1 уменьшается
шелкаем по [18:45:27] Name4> 007 получаем Name3

[Shouldercannon]

Помогите плиз разобраться, весь проект на этом встал.

[Dj_smart]

Если я правильно понял - ссылка не сразу реагирует?
Тогда скорее всего, массив ссылох начинаеться с нуля,а у нас единица.
Либо меняем местами опретаторы:

// и записываем имя
MasL[hyperl]:=NickName;
// увеличиваем значение счетчика
inc(hyperl);

Либо меняем обработчик:

Memo1.Text:=MasL[id-1];

[Shouldercannon]

Спасибо. Только надо оставить

Memo1.Text:=MasL[id];

Вот ещё по ссылкам. Как RichView распознает что в него помещена ссылка?

[Dj_smart]

А никак - будет это ссылка или нет, определяет стиль текста. Если не забыл - то ссылка - 4. RichView1.AddText(NickName,4); Если бы это было 2 - никакая ссылка бы не появилась. Сорри если не об этом спрашивали. А ссылки придеться разпознавать самому - поиском в тексте http и www и заменой стиля на 4.

[Квэнди]

флуд, разговор не имеет к теме никакого отношения. закрыто.