|
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;
- Related chapters
-
Others
- Related topics
-
Get frames of animated cursor
- For more
-
Win32 Programmer's Reference
- Download source
|