Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2009-01

Mac OS X : Fliping an Image using StretchDraw( broken?? )...

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Unknown author

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.

Reply by email

dmitry boyarintsev
to Unknown author
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...

hello Dominique

please report both bugs, i'll try to fix them by the end of the next week. I expect that Tom is busy right now.

Also, for the StretchDraw please attach the screenshot of the working delphi project and lazarus project.

Thanks,
Dmitry

Reply by email

Unknown author
to dmitry boyarintsev

Mantis now holds bug reports for all 3 issues..

0013059, 0013060 and 0013061.

Dominique.

dmitry boyarintsev wrote 18 lines
> 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... hello Dominique please report both bugs, i'll try to fix them by the end of the next week. I expect that Tom is busy right now. Also, for the StretchDraw please attach the screenshot of the working delphi project and lazarus project. Thanks, Dmitry _______________________________________________ Lazarus mailing list http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply by email