VPF::Вставка смайликов в RichViewEdit - Форум программистов

koder

Дата 28.3.2007, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 181
Регистрация: 30.4.2005
Где: Moscow

Репутация: нет
Всего: 2

Есть ImageList там находятся смайлики и ListView , как запихнуть смайлики из ImageList в ListView и выбранный смайлик вставить в RichViewEdit?

--------------------

THE TRUTH IS OUT THERE

Sunvas

Дата 28.3.2007, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Уже очень долго обсуждалось. И все пришли к выводу, что bmp смайл вставить можно, а gif никак не получается. Если хочешь продолжать тему - поиск в руки!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

VICTAR

Дата 28.3.2007, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Цитата(Sunvas @ 28.3.2007, 19:14

)

а gif никак не получается.

почему никак? smile

1) Устанавливаем TGifImage (есть на torry)
2) код

Код


uses GifImage,RVGifAnimate; //обязательно!!! 

...

procedure TForm1.Button1Click(Sender: TObject);
var gif : TGifImage;
begin
  RichViewEdit1.AnimationMode:= rvaniOnFormat;
  gif:=TGifImage.Create;
  gif.LoadFromFile('C:\Program Files\QIP\Skins\ICQ5\Smilies\Animated\ae.gif');
  RichViewEdit1.AddPictureEx(':p', gif, -1, rvvaBaseline);
  RichViewEdit1.Format;
end;

3) радуемся smile

А вот это по теме:

Код


procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var bmp   : TBitmap;
    Item  : TListItem;
begin
Item:=ListView1.GetItemAt(x,y);
if Item<>nil then
  begin
    bmp:=TBitmap.Create;
    ImageList1.GetBitmap(Item.ImageIndex, bmp);
    RichViewEdit1.AddPictureEx('', bmp, -1, rvvaBaseLine);
    RichViewEdit1.Format;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Item  : TListItem;
    i: integer;
begin
ListView1.LargeImages:=ImageList1;
ListView1.ViewStyle:=vsIcon;
for i:=0 to pred(ImageList1.Count) do
  with ListView1.Items.Add do ImageIndex:=i;
end;

Добавлено через 56 секунд
ЗЫ На оффсайте есть еще один вариант, без TGIfAnimate

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »