PNG und Canvas via BMP und anderes

[Redeemer]

Zitat von Michael II:

Zitat von Redeemer:

Also ich krieg TWICImage nicht dazu, BGRA-Bitmaps zu laden. Also laden schon, nur ohne Alpha. Egal ob per Bitfields oder implizit. Ich nutze daher PNG.

In den meisten Fällen wird man wohl eh als PNG speichern und von PNG laden wollen (File kleiner und Decodieren/Encodieren heute extrem schnell).

Ich kann aber mit WICImage (ohne irgendwas anzupassen) in Delphi 11.2 problemlos ARGB Bitmaps laden. Alphakanal ist mit dabei. Welche Delphi Version verwendest du?

11.3 Community. Es geht um die Darstellung in TImage.

[Michael II]

Zitat von Redeemer:

11.3 Community. Es geht um die Darstellung in TImage.

Ich wähle Datei > Neu > VCL, ergänze meine Form durch ein TImage und einen Button und schreibe diesen Code:

Delphi-Quellcode:

procedure LoadPicFromFile( pic : TGraphic; fn :string );
// lädt .bmp .png .tif .gif .jpg Bilddaten aus der Datei fn in pic
var wicpic : TWICImage; 
begin
  wicpic := TWICImage.Create;
 try
  wicpic.LoadFromFile( fn );
  pic.Assign( wicpic );
 finally
  wicpic.Free;
 end;
end;

procedure TForm117.Button1Click(Sender: TObject);
var bmp : TBitMap;
begin
   bmp := TBitMap.Create;
  try
   LoadPicFromFile( bmp, 'C:\Users\micha\Desktop\sf_MEL.bmp' );
   image1.Picture.Graphic := bmp;
  finally
   bmp.Free;
  end;
end;

Lädt bei mir in 11.2 eine Bitmap mit Alphakanal in ein Image - bei dir nicht?