Delphi-PRAXiS - Delphi StretchDraw & Icon geht nicht ?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi StretchDraw & Icon geht nicht ? (https://www.delphipraxis.net/73183-stretchdraw-icon-geht-nicht.html)

turboPASCAL

13. Jul 2006 11:19

StretchDraw & Icon geht nicht ?

Hi,

Mal 'ne Frage, ich möchte ein Applocation.Icon mit StretchDraw in einen best. Bereich darstellen.
Doch mit:

Delphi-Quellcode:

			//...

  Canvas.StretchDraw(RECT(0, 0, 16, 16), Application.Icon);

wird das Icon in voller Grösse (32x32) dargestellt.
Ich wollte es vermeiden das ich noch extra ein Bitmap für das Icon anlegen muss.
Ich möchte nur das kleine 16x16 Icon des Applications Icons.
ExtractIconEx ist ja nun och eine Variante aber muss das sein ?

Wer weis was ?

turboPASCAL

13. Jul 2006 16:01

Re: StretchDraw & Icon geht nicht ?

Delphi-Quellcode:

			DrawIconEx(Canvas.Handle, 0, 0, Application.Icon.Handle,

              16,16, 0, 0, DI_NORMAL);

Ist das was ich suchte.

Alle Zeitangaben in WEZ +1. Es ist jetzt 23:41 Uhr.