MarqueeImageEvent

[surfer007]

Hi,

do you have a small example how to use the TMarqueeImageEvent?
I want to have a image in the scroller, but the image shall be loaded not from file, just assign it from a TImage.

At the moment i use <img src="favicon.ico" width="16" height="16" /> which works.
But sometimes the image is not shown so i think its maybe a path problem?

Trying with the Image Event like this is not working:

Code: Select all

procedure TForm1.RealTimeMarqueeImage(Sender: TObject;
  const URI: WideString; Image: TPicture);
begin
  Image := ImageStar.Picture;
end;

Thanks...

[Kambiz]

Try this code

Code: Select all

procedure TForm1.RealTimeMarqueeImage(Sender: TObject;
  const URI: WideString; Image: TPicture);
begin
  Image.Assign(ImageStar.Picture);
end;

[profh]

is it able to extrude one line upward, and stay 1 second, then the next line...
it looks cool.

thanks.

[Kambiz]

It's possible but you have to write your own controlling logic.