SpeedButton Glyph Transparent machen...

[DBR]

Delphi-Quellcode:

procedure farbe(bm: TBitmap);
var
  x, y: integer;
  f: TColor;
begin
  f := bm.canvas.pixels[0, 0]; // links oben;
  for x := 0 to bm.width - 1 do
    for y := 0 to bm.height - 1 do begin
      if bm.canvas.pixels[x, y] = f then bm.canvas.pixels[x, y] := clBtnFace;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    FMainMenu.Images.GetBitmap(1, Bmp);
    farbe(Bmp);
    SpeedButton2.Glyph.assign(Bmp);
    SpeedButton2.NumGlyphs := 1;
  finally
    Bmp.Free;
  end;
end;