Lazarus

Programming => Widgetset => GTK => Topic started by: benohb on March 04, 2014, 09:59:35 am

Title: Clipboard transparent bitmap
Post by: benohb on March 04, 2014, 09:59:35 am

Code: [Select]

Load from clipboard
uses
  Clipbrd, LCLIntf, LCLType, ...;
 
procedure LoadBitmapFromClipboard(Bitmap: TBitmap);
begin
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then
    Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then
    Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfBitmap));
end;
Save to clipboard
uses
  Clipbrd, ...;
 
procedure SaveBitmapToClipboard(Bitmap: TBitmap);
begin
  Clipboard.Assign(Bitmap);
end;
This tutorial is not work with transparent (Transparency = black)  :'(
Any ideas

Title: Re: Clipboard transparent bitmap
Post by: taazz on March 04, 2014, 10:10:14 am

use 32bit bitmaps with alpha channel set to transparent perhaps?

Title: Re: Clipboard transparent bitmap
Post by: benohb on March 05, 2014, 10:48:18 pm

Quote

use 32bit bitmaps with alpha channel set to transparent perhaps?

NO and YES  :-\ ...black areas and transparent areas both become transparent

Why bits of pixel  is 24bit ...!
I use "canvas.line(0,0,0,0)" to  convert it to 32bit...Is this a normal thing

+The alpha byte Always 0