habs hinbekommen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ImageList: TImageList;
PNG: TPngImage;
Bitmap: TBitmap;
begin
Imagelist := TImageList.Create(Self);
ImageList.ColorDepth := cd32bit;
PNG := TPngImage.Create;
try
PNG.LoadFromFile('C:\Users\ZMI GmbH\Desktop\Imagelist umwandeln\png\exit16.png');
Bitmap := TBitmap.Create;
try
Bitmap.Assign(PNG);
Bitmap.PixelFormat := pf32bit;
ImageList.Add(Bitmap, nil);
finally
Bitmap.Free;
end;
finally
PNG.Free;
end;
TestToolbar1.Images := ImageList;
btnNeu1.ImageIndex := 0;
end;
so mal schaun, ob ich den Rest (Buttons die PNG's zuweisen) auch hinbekomme