Mit DrawIcon transparent zeichnen

[CalganX]

Hi,
da ich Probleme habe, über eine DLL eine TIcon-Referenz zu zeichnen, bin ich auf das entsprechende Handle vom Typ HICON umgestiegen. Um ein solches Icon zu zeichnen, gibt es die WinAPI-Funktion DrawIcon. Das Problem ist jedoch, dass das Icon dann zwar gezeichnet, aber der Hintergrund mit weiß aufgefüllt wird.

Delphi-Quellcode:

DrawIcon(Image1.Canvas.Handle, 15, 15, MeinIcon);

Ein Setzen von TImage.Transparent hat leider nicht geholfen. Gibt es da einen einfachereren Trick, als den Hintergrund nachträglich nochmal mit clBtnFace zu füllen?

Chris

[DGL-luke]

Hallo,

wahrscheinlich geht das mit DrawIconEx besser ;-)

Könnte aber auch schon reichen, ein entsprechendes Brush zu setzen.

[CalganX]

Hi,
nö, weder Brush noch DrawIconEx führen mich zum gewünschten Ergebnis. Sonst noch irgendwelche Vorschläge?

Chris

[chaosben]

Hi Chris!

Ich glaube dein Icon macht das Problem und weniger der DrawIcon-Aufruf.

Das...

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Ico : HICON;
begin
  Ico:=Application.Icon.Handle;
  DrawIcon(Canvas.Handle, x, y, Ico);
end;

... funktioniert wunderbar. :)

[CalganX]

Hi,
dummerweise hat mein Icon die gleiche Herkunft wie bei dir. *g*

Naja, ich lasse es jetzt erstmal so:

Delphi-Quellcode:

        imgAppIcon.Canvas.Brush.Color := clBtnFace;
        DrawIconEx(imgAppIcon.Canvas.Handle, 15, 15, fApplicationInfo.AppIcon,
          0, 0, 0, imgAppIcon.Canvas.Brush.Handle, DI_NORMAL);
        imgAppIcon.Canvas.FloodFill(0, 0, clWhite, fsSurface);

Funktionieren tut's ja.

Chris