(:] Смайлы в Delphi 7 [:)

[Fezilk]

Здравствуйте, ПРОграммеры!

поиск юзал!

Пишу небольшую программу. Необходимо в RichViewEdit вставить картинку в текст. Картинка = смайл. Перерыл весь интернет, поиск по форуму юзал, читал все, не получается все равно. Смайл должен вставляться туда, куда захочет пользователь - как в ICQ. Я имею ввиду позицию картинки, а не вставку текста ":smile :" в Edit1. Так же картинка должна прокручиваться вместе с текстом. Смайлов будет несколько.

Желательно выложить примеры (исходники) или код.

Заранее благодарю.
С уважением,
Fezilk.

[TwiX]

Внизу есть "похожие темы"... Читаем и удивляемся...

такое обсуждалось не раз - я даже запомнил, что надо писать свой TEdit=)

[Fezilk]

Я знаю, что обсуждалось. Но нигде нет точного ответа, исходников. Большинство кодов не работает. я же писал:

поиск по форуму юзал, читал все, не получается все равно

вопрос: как вставить смайл в текст, как в ICQ (QIP, Mail, Skype) Т.е. чтобы он нормльно отображался и прокручивался вместе с текстом.

[Kotofff]

Внизу есть "похожие темы"... Читаем и удивляемся...

Все верно !
Если мало - вот посмотри http://www.trichview.com/forums/viewtopic.php?t=63
Это самая близкая подсказка тебе. Я когда писал свой чат отталкивался именно от этой идеи.

[Fezilk]

С горем пополам вставил смайлик
Спасибо!

Теперь надо вставить .gif смайл. На том форуме написано что-то, но я не понял.

[Fezilk]

(смайл должен быть анимированным)

[Kotofff]

1) Изучи как в RichView(RichViewEdit) вставлять котролы (Пока не изучишь дальше не читай).
2) Возьми, к примеру, из библиотеки RxLib есть там такой TRxGIFAnimator:

tempGif:= TRxGIFAnimator.Create(application.Owner);   //создаем контрол
tempGif.Image.LoadFromFile('Что-нибудь.gif');   // Что-нибудь грузим  в него
tempGif.Animate:= true;   // включаем анимацию
tempGif.AutoSize:= true;   // это просто чтобы было лучше всем ...
RichView.InsertControl('Любая строчка', tempGif, rvvaAbsMiddle);   // помещаем по абсолютной середине строки
RichView.Format;   // выводим

Все !

[Fezilk]

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

1) Изучи как в RichView(RichViewEdit) вставлять котролы (Пока не изучишь дальше не читай).

не могли бы вы подсказать ссылочку.. т.к. в гугле (и яндексе) ничего толкового не нашел.

И еще.. Kotofff, твоим способом смайл вставится туда, куда захочет пользователь? Или позиция смайла будет задаваться в коде?

Нужно, чтобы пользователь писал сообщение, ставил знак " ", нажимал "Отправить" - и в RichViiewEdit1 вместо " " должен быть смайл-картинка.
Автозамену на картинку я сам сделаю, интересует только код картинки.

[Kotofff]

С помощью InsertControl('Любая строчка', tempGif, rvvaAbsMiddle) - вставка произойдет в позицию курсора.
Чат пишешь ?

ЗЫ: на счет help`а - я сам пользовался и пользуюсь помощью с сайта http://www.trichview.com/support/
там конечно по-английски все, но у меня с этим проблем просто почти нет

[Fezilk]

Чат пишу спасибо, код работает, буду разбираться.. но..
При попытке скопировать смайл, когда уже нажимаю Ctrl+V, выскакивает ошибка.

Project Project1.exe raised exception class EClassNotFound with message 'Class TRxGIFAnimator Not found' Process stoped. Use Step or Run to continue.

После этой ошибки не работает копирование - пока не нажму Program Reset.

Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RxLogin, Animate, GIFCtrl, RVScroll, RichView, RVEdit,
AdvShapeButton, AdvAppStyler, AdvGlowButton, RVStyle;

type
TForm1 = class(TForm)
RichViewEdit1: TRichViewEdit;
RxGIFAnimator1: TRxGIFAnimator;
AdvGlowButton1: TAdvGlowButton;
RVStyle1: TRVStyle;
procedure AdvGlowButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AdvGlowButton1Click(Sender: TObject);
var
tempGif: TRxGIFAnimator;
begin
tempGif := TRxGIFAnimator.Create(application.O wner);
tempGif.Image.LoadFromFile('C:\0.gi f'); // изображение смайла
tempGif.Animate:= true;
tempGif.AutoSize:= true;
RichViewEdit1.InsertControl('Любая строчка', tempGif, rvvaAbsMiddle);
RichViewEdit1.Format;
end;

end.