WMF in FMX benutzen

[Rainer Wolff]

Ich habe auch davon jetzt verschiedene Varianten durchprobiert, png sind ok, wmf nicht.

Code:

procedure TForm11.FormCreate(Sender: TObject);
var
  surf: TBitmapsurface;
  bmp: TBitmap;
  mr: TFixedMultiResBitmap;
begin
  surf := TBitmapsurface.Create;
  TBitmapCodecManager.LoadFromFile('E:\Media\knebelschalter_links.wmf', surf);
  // TBitmapCodecManager.LoadFromFile('E:\Media\logo.png',surf) ;

  Image1.Bitmap.assign(surf);

  if Image1.Multiresbitmap.Items[Image1.Multiresbitmap.Count - 1].Bitmap.isempty = false then
    Image1.Multiresbitmap.Add;

  // Image1.MultiResBitmap.Items[Image1.MultiResBitmap.Count-1].Bitmap.loadfromfile ('E:\Media\motor_gruen.wmf');
  // Image1.MultiResBitmap.Items[Image1.MultiResBitmap.Count-1].Bitmap.assign (surf);
  mr := TFixedMultiResBitmap.Create(self);
  bmp := mr[0].CreateBitmap('E:\Media\logo.png');
  mr[0].Bitmap.assign(bmp);
  bmp := Image1.Multiresbitmap[0].CreateBitmap('E:\Media\knebelschalter_links.wmf');
  Image1.Multiresbitmap[0].Bitmap.assign(bmp);

end;