Form-Icon wird invers angezeigt

[marcibaer]

Hallo zusammen!

Ich versuche, die Bitmaps, die auf meinen ToolButtons angezeigt werden, auch als Icon der zugehörigen Forms anzeigen zu lassen.

Im Netz hab ich dazu folgendes gefunden:

Delphi-Quellcode:

function CreateIconFromBitmap(Bitmap:TBitmap):TIcon;
begin
  with TImageList.CreateSize(Bitmap.Width, Bitmap.Height) do
  begin
    try
      AllocBy := 1;
     {$IFDEF VER90}
      with Bmp do
        AddMasked(Bitmap, Canvas.Pixels[Width-1, Height-1]);
     {$ELSE}
      AddMasked(Bitmap, Bitmap.TransparentColor);
     {$ENDIF}
      Result := TIcon.Create;
      try
        GetIcon(0, Result);
      except
        Result.Free;
        raise;
      end;
    finally
      Free;
    end;
  end;
end;

function GetIcon(Index:Word):TIcon;
var
  Image: TBitmap;
begin
  Image := TBitmap.Create;
  ImageList1.GetBitmap(Index,Image);
  Result := CreateIconFromBitmap(Image);
  Image.Free;
end;

Ich setze das Icon dann im FormCreate des Forms z.B. mit

Delphi-Quellcode:

  Ic := GetIcon(18);
  Icon.Handle := IC.Handle;
  IC.Free;

Angezeigt wird es auch - allerdings invers und farblos!

Wie kann ich das korrigieren!?

Danke für Eure Hilfe ...

[Bummi]

ich könnte folgendes anbieten

Delphi-Quellcode:

procedure Bitmap2Icon(BMP: TBitmap; Ico: TIcon);
var
    IconInfo : TIconInfo;
begin
        BMP.PixelFormat   := pf24bit;
        IconInfo.fIcon    := true;
        IconInfo.xHotspot := 0;
        IconInfo.yHotspot := 0;
        IconInfo.hbmMask  := BMP.Handle;
        IconInfo.hbmColor := BMP.Handle;
        Ico.Handle        := CreateIconIndirect(IconInfo);
end;



procedure TForm2.Button1Click(Sender: TObject);
begin
  Bitmap2Icon(Image1.Picture.Bitmap,Icon);
end;

[DeddyH]

Würde das hier nicht auch genügen?

Delphi-Quellcode:

procedure TForm1.IconFromList(Index: integer);
begin
  ImageList1.GetIcon(Index, self.Icon);
end;

[marcibaer]

@Bummi: Icon ist nun bunt, dafür ist der Hintergrund orange!

@DeddyH: Top - funktioniert einwandfrei. Manchmal ist es doch ganz einfach!

Danke, Euch beiden ...