animated gif issue
Posted: Mon Dec 22, 2008 11:23 am
function getgraphicclass: TGraphicClass;
-> this function i used to return proper graphic class TGifImage is class uses for gif image
procedure InsertPicture(mstrmPhoto);
begin
gr := RV_CreateGraphics(TGraphicClass(getgraphicclass));
gr.LoadFromStream(mstrmPhoto);
InsertPicture(strTageContent, gr, PictureAlign);
end;
initialization
RegisterClasses([TGifImage]);
TPicture.RegisterFileFormat('gif', 'Gif Image', TGifImage);
RVGifAnimate2007 is already added to my project
but the gif is still not animate. anything i miss?
-> this function i used to return proper graphic class TGifImage is class uses for gif image
procedure InsertPicture(mstrmPhoto);
begin
gr := RV_CreateGraphics(TGraphicClass(getgraphicclass));
gr.LoadFromStream(mstrmPhoto);
InsertPicture(strTageContent, gr, PictureAlign);
end;
initialization
RegisterClasses([TGifImage]);
TPicture.RegisterFileFormat('gif', 'Gif Image', TGifImage);
RVGifAnimate2007 is already added to my project
but the gif is still not animate. anything i miss?