RV.clear / free
Posted: Thu Feb 15, 2007 3:47 pm
hi... (sorry for my bad english)
i have the same problem like this: http://www.trichview.com/forums/viewtopic.php?t=1037
if ein clear/free the RV, i get an error. i add some gifs, the source from the gifs are a TList -> TJvGIFImage. so i share same GIFs with the same index of the TList.
so i use the same source if the same GIF are used. but if i clear/free the RV, the TList items will be destroyed and ERROR! how can i fix it ?
greez & thx, sky...
i have the same problem like this: http://www.trichview.com/forums/viewtopic.php?t=1037
if ein clear/free the RV, i get an error. i add some gifs, the source from the gifs are a TList -> TJvGIFImage. so i share same GIFs with the same index of the TList.
Code: Select all
//INSERT GIF
GIF := SmilieManager.GetSmilie(ord(sl[i][1]));
if not Gif.Empty then
begin
form1.RichView1.AddPictureEx('',GIF,-1,rvvaBaseline);
end;
//GetSmilie
function TSmilieManager.GetSmilie(index : byte) : TjvGIFImage;
begin
if (index < self.Count) AND (index > 0) then
begin
result := self[index];
end
else
result := self[0]; //ERROR Picture !!!
end;
greez & thx, sky...