SpeedButton Glyph Transparent machen...

[FriFra]

Ich weise meinen SpeedButtons zur Laufzeit Glyphen aus einer Imagelist zu, aber diese haben leider einen Weißen (clWindows) Hintergrund...

Delphi-Quellcode:

  Bmp := TBitmap.Create;
  try
    FMainMenu.Images.GetBitmap(8, Bmp);
    SpeedButton2.Glyph.Assign(Bmp);
    SpeedButton2.NumGlyphs := 1;
  finally
    Bmp.Free;
  end;

Es bringt auch nichts, dem Glyphen (der ja eigentlich ein normales Bitmap ist) eine Transparenzfarbe zuzuweisen...
Dieser Code bringt mir auch nur Glyphen mit weißem Hintergrund:

Delphi-Quellcode:

  Bmp := TBitmap.Create;
  try
    FMainMenu.Images.GetBitmap(8, Bmp);
    SpeedButton2.Glyph.Assign(Bmp);
    SpeedButton2.Glyph.TransparentColor := SpeedButton2.Glyph.Canvas.Pixels[0,
      15];
    SpeedButton2.Glyph.Transparent := true;
    SpeedButton2.NumGlyphs := 1;
  finally
    Bmp.Free;
  end;

Es bringt übrigens auch nichts der ImageList vor dem Auslesen der Images BkColor=clNone zuzuweisen...

[jfheins]

Imho definiert der Pixel unten links die Transparenzfarbe, probiers mal aus

[FriFra]

Zitat von jfheins:

Imho definiert der Pixel unten links die Transparenzfarbe, probiers mal aus

Wie Du an meinem Code sehen kannst versuche ich genau das "gewaltsam" zu erzwingen, aber leider auch ohne Erfolg...
Ich hab mal einen Screenshot davon gemacht, wie die Glyphen auf die Speedbuttons gezeichnet werden und entspr. vergrößert:
http://www.frifra.de/Temp/myglyph.JPG
Wie Du sehen kannst, ist selbst der Bildpunkt unten links weiß, obwohl der Button Grau ist... wäre der Glyph wirklich Transparent, wäre ja min. dieser Punkt grau... ist er aber nicht

[Matze]

Bei mir funktioniert das standardmäßig ohne Probleme (ob es oben oder unten links ist, weiß ich nicht, dürfte in deinem Fall aber ja keine Rolle spielen).


Nachtrag: Bei mir wird zur Laufzeit die Pixelfarbe berücksichtigt, doch wird diese immer weiß dargestellt, egal welche Farbe sie hat .

[FriFra]

Aha, dann hast Du ja das gleiche Problem... Also wenn Dein Bild als Hintergrund z.B. clFuchsia hat wird der Hintergrund weiß?

[Matze]

Ja genau, also irgendwie berücksichtigt das die Transparenz schon, nur wird es immer weiß dargestellt, seltsam.

[FriFra]

immernoch keiner eine Idee?

[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;

[DBR]

Quatsch, geht viel einfacher, ich hab wieder nicht richtig nachgedacht.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
    SpeedButton2.NumGlyphs := 1;
    FMainMenu.Images.GetBitmap(1, SpeedButton2.Glyph);
end;

Gruß DBR

[FriFra]

Der letzte Vorschlag, mit dem direkten zuweisen hat funktioniert

Die erste Version, mit dem Einfärben des Hintergrundes hatte ich selbst schon probiert... bringt aber nichts, da der SpeedButton beim Zuweisen des Bitmap zum Glyphen wieder alles weiß macht, k.A. warum, ist aber so... Ich hatte das "Zwischenergebnis" gespeichert und es war ok, nur nacvh der Zuweisung war wieder alles beim alten.