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
