PNG und Canvas via BMP und anderes

[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?