<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body>
<p>Hi,</p>
<p> </p>
<p>I'm drawing a bitmap to the canvas by using LoadFromRawImage in combination with a TImage. The OnPaint code below works just fine. When I move the scrollbar, the images are drawn to the canvas, however there is still a bit of flicker.</p>
<p> </p>
<p>procedure TForm1.Image1Paint(Sender: TObject);<br />begin<br /> Image1.Picture.Bitmap.LoadFromRawImage(bitmaplist[ScrollBar1.Position].RawImage, False);</p>
<p><br /> Application.ProcessMessages;<br />end;</p>
<p> </p>
<p>When I setup a timer, for automatic looping of the images, the flicker gets so bad, that the canvas turns blank and nothing is shown anymore.</p>
<p> </p>
<p>procedure TForm1.Timer1Timer(Sender: TObject);<br />var<br /> p: integer;<br />begin<br /> p := ScrollBar1.Position + 1;<br /> if p > ScrollBar1.Max then<br /> ScrollBar1.Position := 0<br /> else<br /> ScrollBar1.Position := p;<br />end;</p>
<p><br />I understand I must be doing something wrong here. So my question remains, Given a list of bitmaps, what would be the fastest way to draw them to the screen consequtively?</p>
<p> </p>
<p>Regards, Darius</p>
</body></html>