TRichView.com

Posted: **Sun Sep 30, 2012 6:44 pm**

Hi!
I use TRichView and TGIFImage for smiles in a chat. Smilies are written in Dynamic arrays. Everything works fine until smilies are not repeated. Otherwise, when you close the form see the error. Help me, please.

Screenshot of the error:

Source: http://kkepit.if.ua/img/Smiles.rar

Code: Select all

var
  Form1: TForm1;
  GifList: array of TGIFImage;
  i: integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichView1 do
  begin
    for i:=0 to 2 do
        AddPictureExTag('Smile', GifList[i], 0, rvvaAbsMiddle, IntToStr(i));
    ReFormat;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  for i:=0 to 2 do
    begin
      SetLength(GifList, i+1);
      GifList[i]:=TGIFImage.Create;
      try
        GifList[i].LoadFromFile(IntToStr(i+1)+'.gif');
      except
      end;
    end;
  RichView1.StartAnimation;
end;

initialization
  RegisterClass(TGIFImage);
end.

Posted: **Sun Sep 30, 2012 6:51 pm**

The error appears when you close the form when the button Button1 worked more than once.

Posted: **Sun Sep 30, 2012 7:21 pm**

By default, TRichView frees all inserted images.
So if you insert the same gif multiple times, the same object is freed multiple times.

There are two solution:
1) creating a new TGifImage, assigning it from the array, and inserting it in TRichView, or
2) using shared images:

Code: Select all

 with RichView1 do 
  begin 
    for i:=0 to 2 do 
    begin
        AddPictureExTag('Smile', GifList[i], 0, rvvaAbsMiddle, IntToStr(i)); 
        SetItemExtraIntProperty(ItemCount-1, rvepShared, 1);
    end;
    Format; 
  end;

PS: after adding or deletion of items, Format must be used instead of Reformat.

Posted: **Mon Oct 01, 2012 12:24 pm**

Many thanks. The second solution I was perfectly fine. If anyone will read this, you need to add 'RVItem' in uses, if will give an error on undeclared variable 'rvepShared'.
In the beginning I did the first one, which had seen many times on the Internet, but it used a lot of memory.

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  Gif: TGIFImage;
begin
  with RichView1 do
  begin
    for i:=0 to 2 do
      begin
        Gif:=TGIFImage.Create;
        Gif.Assign(GifList[i]); // It used a lot of memory.
        AddPictureExTag('Smile', Gif, 0, rvvaAbsMiddle, IntToStr(i));
      end;
    Format;
  end;
end;

Thank you again.

Posted: **Mon Oct 01, 2012 12:29 pm**

Actually, copying using Assign should not use a lot of memory. Delphi graphic classes use copy-on-write mechanism, so the new gif must share the image data with the images from GifList[].
But of course, using shared images in TRichView is more efficient.

TRichView.com

TRichView, array of TGIFImage and errors on closing the form

TRichView, array of TGIFImage and errors on closing the form