HI again, As previously mentioned I'm using and Intel MacBook running 10.4.11.
I have 2 TImages on a form. In Image1 I load up any old image at design time. I create an Image1Click event handler. Within the event handler I use the Image2.Canvas to flip the image as follows... procedure TForm1.Image1Click(Sender: TObject); begin Image2.Canvas.StretchDraw(Rect(Image2.Width-1,0,-1,Image2.Height),Image1.Picture.Bitmap); end; Unfortunately the only thing I get in Image2 is just black. This code works under Delphi, any ideas why this does not work with Laz/FPC? Dominique Louis. _______________________________________________ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
