Clipboard to BGRABitmap
lazarus / 39-Graphics

----------------------------------------------------------------------
Dzandaa · 2021-08-04 15:18

Hello,
Using Lazarus 2.0.10
Migrating from C# for a few weeks

I try to paste a picture to a BGRABitmap

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TFloodFillForm.EditPastePictureClick(Sender: TObject);var  Pict:
TPicture;  TempBit: TBitmap;  Picture:= TBGRABitmapbegin     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.

----------------------------------------------------------------------
winni · 2021-08-04 17:20

Hi!

Use the search function of this forum: topright of the page.

Search for BGRAbitmap and clipboard.
We had this discussion some month ago.

Winni

----------------------------------------------------------------------
Dzandaa · 2021-08-05 13:20

Found it!!!

Thank you.