Insert Gif in text
Insert Gif in text
Sorry, but I can't insert Gif animation between two words. I use RichView 1.9.8. Please help me with source
-
- Site Admin
- Posts: 17559
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
I write a chat and I need to insert animated smile
I use code
procedure InsertSmile;
var
Gif: TGifImage;
begin
Gif := TGifImage.Create;
Gif.LoadFromFile('1.gif');
RivhView1.AddPictureEx('', Gif, 0 , rvvBaseLine);
end;
Smile is inserted and animated, but it to be transferred a next line with all other text
I use code
procedure InsertSmile;
var
Gif: TGifImage;
begin
Gif := TGifImage.Create;
Gif.LoadFromFile('1.gif');
RivhView1.AddPictureEx('', Gif, 0 , rvvBaseLine);
end;
Smile is inserted and animated, but it to be transferred a next line with all other text
-
- Site Admin
- Posts: 17559
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
All the same it is impossible, when I use a code
var
Gif: TGifImage;
begin
Gif: = TGifImage. Create;
Gif. LoadFromFile (' Data \Smiles \censored.gif ');
RichView1. Add (' SomeText ', 0);
RichView1. AddPictureEx (", Gif, 1, rvvaMiddle);
RichView1. Add (' Other Text ', 1);
RichView1. Format;
end;
The following turns out
----------------------------------------------
SomeText
(smile)OtherText
----------------------------------------------
Use 1 only centers a picture
var
Gif: TGifImage;
begin
Gif: = TGifImage. Create;
Gif. LoadFromFile (' Data \Smiles \censored.gif ');
RichView1. Add (' SomeText ', 0);
RichView1. AddPictureEx (", Gif, 1, rvvaMiddle);
RichView1. Add (' Other Text ', 1);
RichView1. Format;
end;
The following turns out
----------------------------------------------
SomeText
(smile)OtherText
----------------------------------------------
Use 1 only centers a picture
-
- Site Admin
- Posts: 17559
- Joined: Sat Aug 27, 2005 10:28 am
- Contact: