Einzelnen Beitrag anzeigen

Metallicwar

Registriert seit: 5. Feb 2010
Ort: Bad Kissingen
293 Beiträge
 
Delphi XE Architect
 
#28

AW: Eigene Komponente (Toolbar) programmieren

  Alt 10. Mär 2011, 10:14
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
  Mit Zitat antworten Zitat