by clauddiu » June 30th, 2010, 4:33 pm
Thank you for your answer, I manage to work around I made an aditional property to TPicShow like so:
TOnAnimate = procedure(Sender: TObject; Display: TBitmap) of object;
property OnAnimate: TOnAnimate read FOnAnimate write FOnAnimate;
and on updatedisplay procedure:
if Assigned(fOnAfterNewFrame) then
fOnAfterNewFrame(Self, Pic, Display);
if Assigned(FOnAnimate) then
begin
FOnAnimate(Self, Display);
end;
It seems i did what you already made, lol, let me try it. I dint notice your property... damit
Cheers,
Claudiu