Delphi-PRAXiS

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/)
-   -   ImageList_Draw im Modus DPIAware per monitor v2 (https://www.delphipraxis.net/211492-imagelist_draw-im-modus-dpiaware-per-monitor-v2.html)

Harry Stahl 22. Sep 2022 18:34


ImageList_Draw im Modus DPIAware per monitor v2
 
Wenn ich folgenden Code verwende:

Delphi-Quellcode:
syshandle := SHGetFileInfo(PChar(PF.FullName), FILE_ATTRIBUTE_NORMAL, SFI, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES);                  ImageList_Draw(syshandle,sfi.iIcon,lb.canvas.handle,rect.left+2,rect.top+ round (PicPlus), ILD_TRANSPARENT);


funktioniert das nicht, wenn ich mehrere Monitore mit unterschiedlichen Auflösungen habe (HighDPI).

Das Image ist i.d.R. viel zu Groß, vermute es wird immer die höchste im System verwendete Skalierung verwendet.

Gibt es eine Möglichkeit, hier die richtige Größe ausgegeben zu bekommen?

himitsu 22. Sep 2022 21:22

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Ein Canvas hat ein DPI, egal wo es ist ... hier muß also jemand die DPI / Größe des Canvas anpassen, wenn es auf einen anderen Monitor verschoben wird.


Unaware : Anwendung malt mit fester DPI und Windows skaliert das Fenster du mußt garnichts beachten()

System : Anwendung nimmt die DPI vom primären Monitor, zum Programmstart / Windowslogin (und vielleicht skaliert Windows das Fenster, auf den anderen Monitoren)

Per-Monitor / Per-Monitor V2 : Die Anwendung nimmt die DPI von dem Monitor, auf der das Fenster zu über 50% (width&height) drauf ist
und Windows macht garnichts, weil Anwendung sagte ja es macht das selber ... macht es das nicht (richtig), dann Pech.

Zitat:

Most UI frameworks used by desktop applications (Windows common controls (comctl32), Windows Forms, Windows Presentation Framework, etc.) do not support automatic DPI scaling, requiring developers to resize and reposition the contents of their windows themselves.
Jemand muß also auf WM_DPICHANGED hören und dann die DPI und Größe/Position der Fenster/DC/Canvas selber anpassen.
Von den VCL-Standardcontrols erwarte erhoffe ich mir zwar von Delphi, dass es die DPI anpasst und ein Repaint des Canvas auslöst, aber gerade bei selbstgemaltem Zeugs mußt du natürlich aufpassen, denn wann hatte mal was funktioniert, was von Delphi kommt? :zwinker:


Frage: Wird WM_DPICHANGED durhc Windows auch gesendet, wenn das Fenster den Monitor wechselt, oder muß man darauf auch selber reagieren?

Uwe Raabe 22. Sep 2022 21:57

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Das SHGetFileInfo gibt ein Handle auf eine System-ImageList zurück. Die hat eine bestimmte Größe. An der Stelle gibt es aber noch keinen DeviceContext, der mit einem DPI-Wert dienen könnte. Auch kann das SHGetFileInfo nicht wissen, wo das Icon denn später gemalt werden soll.
Ich vermute mal, die Größe der Icons in der ImageList wird anhand der Skalierung des Primary Monitor ermittelt. Solange keine alternative SHGetFileInfoForDPI verfügbar ist, wird das wohl nichts mit dem auf Monitor DPI Anpassen.

Die Schwester-Funktion SHGetImageList ist auch nur Process DPI aware, also auch nichts mit per Monitor.

himitsu 22. Sep 2022 22:05

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Hmmm, stimmt, woher soll das SHGetFileInfo wissen wo es gemalt wird,
aber es weiß das ja eigentlich, denn es bekommt den Ziel-DeviceCcontext ja als Handle rein.

Aber hast Recht, ob es selber skaliert oder ob der Entwickler es machen muß ... hmmmm ...
Ich würde auch denken es malt mit der Pixel-Größe, wie eingestellt ist, und DPI sind ihm egal :gruebel:

[add]
Also mit SHGetImageList und SHIL_JUMBO ohne DPI-Zeugs rausholen
und dann von 256 selber runterskalieren?

Uwe Raabe 22. Sep 2022 22:20

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Zitat:

Zitat von himitsu (Beitrag 1512309)
Hmmm, stimmt, woher soll das SHGetFileInfo wissen wo es gemalt wird,
aber es weiß das ja eigentlich, denn es bekommt den Ziel-DeviceCcontext ja als Handle rein.

Wo kannst du das denn sehen? Ich formatiere mal besser:
Delphi-Quellcode:
syshandle := SHGetFileInfo(PChar(PF.FullName), FILE_ATTRIBUTE_NORMAL, SFI, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES);

ImageList_Draw(syshandle,sfi.iIcon,lb.canvas.handle,rect.left+2,rect.top+ round (PicPlus), ILD_TRANSPARENT);

Harry Stahl 22. Sep 2022 22:42

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Anscheinend gibt die Funktion das Icon immer mit dem Faktor des größten Skalierungswertes wieder.

Ich habe es jetzt so gelöst, dass ich ein Bitmap in der entsprechend berechneten Größe anlege, das Icon lese und dann es selber auf dem jeweiligen Monitor auf die benötigte Größe skaliert zeichne.

himitsu 23. Sep 2022 00:49

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
@Uwe: stimmt, das SHGetFileInfo kann es natürlich nicht wissen
aber ImageList_Draw weiß es dann schon und könnte demnach doch eigentlich passend skalieren. :angle:

Zitat:

Anscheinend gibt die Funktion das Icon immer mit dem Faktor des größten Skalierungswertes wieder.
zumindestens dort wird was zur Größe gesagt.
Zitat:

Modify SHGFI_ICON, causing the function to retrieve a Shell-sized icon. If this flag is not specified the function sizes the icon according to the system metric values.
Dagegen bezüglich MSDN-Library durchsuchenSHGetImageList
Zitat:

SHIL_SMALL, SHIL_LARGE, and SHIL_EXTRALARGE scale with dots per inch (dpi) if the process is marked as dpi-aware. To set these types to be dpi-aware, call SetProcessDPIAware. SHIL_JUMBO is fixed at 256 pixels regardless of the dpi-aware setting.

Uwe Raabe 23. Sep 2022 08:28

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Zitat:

Zitat von himitsu (Beitrag 1512312)
aber ImageList_Draw weiß es dann schon und könnte demnach doch eigentlich passend skalieren. :angle:

Wenn dem so wäre, hätten wir den ganzen Kram mit skalierten ImageLists ja gar nicht gebraucht.

Aber das Problem kennen andere offenbar auch: Per monitor DPI aware Windows system image list

BerndS 23. Sep 2022 09:28

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Zitat:

Wenn dem so wäre, hätten wir den ganzen Kram mit skalierten ImageLists ja gar nicht gebraucht.
Man kann der Imagelist sagen, dass diese das Image skalieren soll. Dann muss man das Bild aber selber Zeichnen.
Man braucht dazum beim Zeichnen per ImageList_DrawEx nur dem Style ILD_DPISCALE hinzufügen.

Uwe Raabe 23. Sep 2022 09:45

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Dann wäre das ja vielleicht ein Lösungsansatz für Harry.

BerndS 23. Sep 2022 10:40

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Ich kann das nicht testen, aber Harry könnte es dann mal so versuchen:

Delphi-Quellcode:
ImageList_Draw(syshandle,sfi.iIcon,lb.canvas.handle,rect.left+2,rect.top+ round (PicPlus), ILD_TRANSPARENT OR ILD_DPISCALE);

Uwe Raabe 23. Sep 2022 12:15

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Sollte das dann nicht
Delphi-Quellcode:
ImageListDrawEx
heißen?

Harry Stahl 23. Sep 2022 18:56

AW: ImageList_Draw im Modus DPIAware per monitor v2
 
Beides funktioniert leider nicht. Der von Bernd vorgeschlagene Aufruf bringt nach wie vor ein zu großes Image, bei ImageList_DrawEx ist es nicht anders.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz