![]() |
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Zoom an icon
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