Icon to Bitmap: StrechDraw schneidet Bereiche ab

[Stanlay Hanks]

Entschuldigt bitte, aber ich habs grade hinbekommen
Ich bin sozusagen einen Umweg über ein zweites Bitmap gegangen: Ich hab das Icons zuerst in ein Bitmap geladen und dann dieses Bitmap mit StretchDraw vergrößert auf das Result Image gezeichnet. Hier mein funktionsfähiger Code.

Delphi-Quellcode:

function IconToBitmap(Icon: TIcon; NewHeight, NewWidth : Integer): TBitmap;
var bit : TBitmap;
begin
  bit := TBitmap.Create;   //Umweg über ein Bitmap
  Result := TBitmap.Create;
  Try
    Bit.Width := Icon.Width;
    Bit.Height := Icon.Height;
    Bit.Canvas.Draw(0,0,Icon);
    Result.Width := NewWidth;
    Result.Height := NewHeight;
    Result.Canvas.StretchDraw(Rect(0,0,NewWidth,NewHeight),Bit);
  Finally
    FreeAndNil(Bit);

Entschuldigt bitte den überflüssigen Thread...vielleicht kann ja wenigstens später noch wer was damit anfangen

Man liest sich, Stanlay