Hello,
Using Lazarus 2.0.10
Migrating from C# for a few weeks
I try to paste a picture to a BGRABitmap
procedure TFloodFillForm.EditPastePictureClick(Sender: TObject);
var
Pict: TPicture;
TempBit: TBitmap;
Picture:= TBGRABitmap
begin
if Clipboard.HasPictureFormat then
begin
Pict := TPicture.Create;
Clipboard.AssignTo(Pict);
TempBit := TBitmap.Create;
try
TempBit.PixelFormat := pf24bit;
TempBit.Width := Pict.Width;
TempBit.Height := Pict.Height;
finally
end;
Tempbit.Canvas.Draw(0, 0, Pict.Graphic); // O.K. Clipboard copied in TempBit (verified)
Tempbit.Canvas.Changed;
Picture:= TBGRABitmap.Create(Tempbit.Width, Tempbit.Height);
Picture.draw(Tempbit.Canvas, 0,0,true); // Picture if always Black...
end;
end;
As always, Lazarus, is great, but it lack of documentation...
If somebody can help....
Thank you.