Menü mit Icon

[tuxic]

Delphi-Quellcode:

var
  aBmp:TBitmap;
  h:HINST;
  OpenFileBmp:Integer;
begin
  // standardicons von windows laden...
  aBmp := TBitmap.Create();
  h := LoadLibrary('comctl32.dll');
  if h <> 0 then
  try
    aBmp.LoadFromResourceID(h, 120);
    aBmp.Canvas.CopyRect(rect(0, 0, 15, 15), aBmp.Canvas, rect(96, 0, 112, 15));
    aBmp.Width := 16;
    aBmp.Height := 16;
    OpenFileBmp := imagelist1.Add(aBmp, nil);
  finally
    FreeLibrary(h);
  end;

funzt, nur eine Sache noch - der Hintergrund ist im alten Windows-Stil gehalten, wie kann man den Transparent machen?
aBmp.Transparent* hab ich schon probiert, klappt nicht...

auch als ich die BlendColor vom ImageList eingestellt hatte, funktionierte es nicht (DrawingStyle war auf dsTransparent

Danke an Luckie

Daniel