A Little fix for the Real Time Marquee

[dvio]

Hi, I am just starting to use TRealTimeMarquee v2.2, and I found it to be a great component.

But I found a little bug while I try to use it in my application. The <img> tag didn't work as expected, when I try to add a "not squared" image (e.g. 96x48) the image was drawn the wrong way. So I decided to take a peek on the source, and I found that the problem was in the RealTimeMarquee.pas at line 1660 and 1661.

It was written this way:

Rect.Top := (Rect.Top + Rect.Bottom - W) div 2;
Rect.Bottom := Rect.Top + W;

which is wrong (I think), while the right one should be like this:

Rect.Top := (Rect.Top + Rect.Bottom - H) div 2;
Rect.Bottom := Rect.Top + H;

Well, I hope it would help others with the same problem.

And I would like to thank you for your great components. Keep up the good work.

Regards,
De Vio

PS: Pls excuse my bad English

[Kambiz]

Thank you so much for the fix.