THotbutton: Bitmap wird nicht transparent gezeichnet

[guidok]

Hallo bepe,

ich habs probiert, aber leider hat es nicht funktioniert. Hab grad auch noch einmal geschaut, aber die Hintergrundfarbe meines Testbitmap ist definitiv schwarz. FGlyphList.DrawingStyle:=dsTransparent; haut leider auch nicht hin.

...

Soooo, hatte grade noch eine Idee und jetzt funktioniert es auch. Folgendes war die Lösung: Auf dem Testform habe ich ja auch eine Imagelist platziert, die das Bitmap enthält, welches zur Laufzeit dem Hotbutton zugewiesen wird.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Testbutton:=THotButton.Create(self);
  Testbutton.Parent:=self;
  Testbutton.Top:=10;
  Testbutton.Left:=10;
  Testbutton.ImageList:=ImageList1;
  Testbutton.ImageIndex:=0;
end;

Dieses Bitmap hatte ich ganz normal zur Entwurfszeit zur Liste hinzugefügt und als TransparentColor war clBlack angewählt. In dieser Imagelist wurde es auch transparent angezeigt (Entwurfzeit). Später im Button wurde es dann nicht mehr transparent, allerdings auch nicht mit schwarzem Hintergrund, wie das Originalbitmap, angezeigt. Jetzt habe ich bei Zufügen des Bitmap (Entwurfzeit) die TransparentColor auf clNone gesetzt, in der Liste wird das Bitmap mit schwarzem Hintergrund angezeigt und im Hotbutton ist es transparent.

Guido