Order and save right now!
20% off with the dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!
You can't use StretchDraw function for this, because this function will return icon with original size. But you may solve this problem by using DrawIconEx function.
procedure TForm1.Button1Click(Sender: TObject); begin DrawIconEx( Canvas.Handle, 5, 5, Application.Icon.Handle, 50, 50, 1, 0, DI_NORMAL); end;
More for developers