Form Icon nach Farben Zeichnen, D5

[DeddyH]

Oder (nur schnell dahergetippt)

Delphi-Quellcode:

var tmpBMP: TBitmap;
begin
  tmpBMP := TBitmap.Create;
  try
    tmpBMP.Width := Icon.Width;
    tmpBMP.Height := Icon.Height;
    tmpBMP.Canvas.Brush.Color := clRed;
    tmpBMP.Canvas.FillRect(Rect(0,0,tmpBMP.Width,tmpBMP.Height));
    with TImageList.CreateSize(tmpBMP.Width, tmpBMP.Height) do
      try
        Add(tmpBMP,nil);
        GetIcon(0,Icon);
     finally
        Free;
      end;
  finally
    tmpBMP.Free;
  end;
end;