16x16 Icons bei HighDPI bzw. Skalierung?

[MicMic]

Nachtrag: Vielleicht bin ich auch nur sehr empfindlich. Die Skalierung mit "DrawIconEx" ist eigentlich mit anderen Anwendungen vergleichbar. Aber vielleicht gibt's ja was besseres

[KodeZwerg]

Es wäre gut zu Wissen wo/wie/womit Du Icons darstellen möchtest.

[jaenicke]

Hast du im System eine Skalierung eingestellt? 200% vielleicht?

[KodeZwerg]

Delphi-Quellcode:

var
  h : HWND;
begin
  h := LoadImage(MainInstance, 'MAINICON', IMAGE_ICON, 64, 64, 0);
  Image1.Picture.Icon.Handle := h;
end;

Das obige würde ein 64x64 Icon laden was in der .exe als MAINICON definiert ist. 64x64 sollte in dieser Icon-Gruppe auch existieren.
Mit LoadImage() kann man Icons beliebiger Größe laden.

[MicMic]

Hier noch mal ein Beispiel-Code:

Code:

var
 SysIL : UInt;
 Result : HIMAGELIST;
 IList : TImageList;

const
 IID_IImageList: TGUID = '{46EB5926-582E-4017-9FDF-E8998DAA0950}'; // Das hab ich so im Internet gefunden

SysIL := SHGetImageList(SHIL_SMALL,IID_IImageList, Pointer(Result));
If SysIL = S_OK Then
Begin
 IList := TImageList.Create(self);
 IList.Handle := Result;
 IList.ShareImages := true;
End;
Label1.Caption := IntToStr(IList.Height);

Oder auch mit "SHGetFileInfo(... SHGFI_SYSICONINDEX or SHGFI_SMALLICON)". Ich bekomme mit der Option "Hochauflösung aktivieren" 32x32 Icons. Dabei spiel es keine Rolle, welche Skalierung und Auflösung ich nutze. Die 16x16 bekomme ich nur, wenn "Hochauflösung aktivieren" bei den Projektoptionen ausgeschaltet ist.

"LoadImage" ist wohl nicht für die System Icon Liste zu gebrauchen?

Michael

[KodeZwerg]

Ich muss eingestehen das was Du da machst habe ich keine Ahnung von. Wenn ich System Icons brauche, dann lade ich die, aber direkt von dll.
LoadImage() schau doch einfach mal in die Hilfe, theoretisch alles was ein Handle haben kann könnte damit aufgerufen werden, obs in Deinem Speziellen Fall genauso ist, einfach mal probieren.

[MicMic]

Zitat von KodeZwerg:

Ich muss eingestehen das was Du da machst habe ich keine Ahnung von. Wenn ich System Icons brauche, dann lade ich die, aber direkt von dll.
LoadImage() schau doch einfach mal in die Hilfe, theoretisch alles was ein Handle haben kann könnte damit aufgerufen werden, obs in Deinem Speziellen Fall genauso ist, einfach mal probieren.

Mit dem obigen Code wird nur die System Icon Liste zugewiesen (und halt keine 16x16er), später per Index wird dann ein Icon daraus geladen.

16x16/32x32 hin oder her... ich habe jetzt eine bessere Skalierungsfunktion.
Nicht mehr mit "DrawIconEx", sondern mit StretchBlt. So muss ich auch nicht mehr ".GetIcon" von TImageList nutzen (langsam). Also ".Draw" (schneller) von der TImageList in ein Bitmap-Canvas und mit "StretchBlt" zum Ziel-Canvas. Was mir gut gefällt ist der Wert "HALFTONE" für "SetStretchBltMode". Die Skalierung schaut um einiges besser aus. Der Wert berücksichtigt die Hintergrundfarbe des Ziel-Canvas und malt um das Icon dunklere Ränder, passend zur Hintergrundfarbe. HALFTONE nochmal halbiert wäre aber besser... die dunklen Ränder sind mir dann ein tick zu dunkel. Dies kann man wohl nicht beeinflussen.

Michael