Order and save right now!
20% off with the 729824315 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
● Databases for Amazon Associates