Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

FUNCTION AppDesktopDPI()
LOCAL nHWnd := AppDesktop():GetHWnd()
LOCAL nHDC := DllCall("User32.DLL", DLL_STDCALL, "GetDC", nHWnd)
LOCAL nLogPix := 96 // default for Small Fonts
if nHDC > 0
	nLogPix := DllCall("GDI32.DLL", DLL_STDCALL, "GetDeviceCaps", nHDC, LOGPIXELSY )
	DllCall("User32.DLL", DLL_STDCALL, "ReleaseDC", nHWnd, nHDC)
endif
return (nLogPix)

Code: Alles auswählen

Hallo Herr Gentner,
Ich habe hier bei uns Code gefunden, mit dem die DPI Einstellungen abgefragt werden. Der Code arbeitet identisch mit dem was Sie mir geschickt haben:
  hWnd := oDesktop:getHWND()
  hDC := GetDC( hWnd )
  ? GetDeviceCaps( hDc, LOGPIXELSX )
  ReleaseDC( hWnd, hDC )
Wie sich nach Recherchen heraus stellte, funktioniert die Windows API
GetDeviceCaps() nur dann, wenn in den “Benutzer definierten DPI Einstellungen”
das Häkchen für "DPI Skalierung im Windows XP Stil” gesetzt ist.
Um auch ohne dieses Häkchen eine DPI Abfrage machen zu können, muss die
Anwendung “DPI aware” sein. Dies kann man erreichen, wenn man dies in der
Manifest Datei der Anwendung mitteilt.
Andreas Herdt
Alaska Technical Support

Code: Alles auswählen

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" >
  <asmv3:application>
    <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
      <dpiAware>true</dpiAware>
    </asmv3:windowsSettings>
  </asmv3:application>
</assembly>

Code: Alles auswählen

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    version="1.0.0.0"
    processorArchitecture="X86"
    name="My Programm"
    type="win32"
/>
<description>Xbase++ Form Designer</description>
<dependency>
    <dependentAssembly>
         <assemblyIdentity
             type="win32"
             name="Microsoft.Windows.Common-Controls"
             version="6.0.0.0"
             processorArchitecture="X86"
             publicKeyToken="6595b64144ccf1df"
             language="*"
        />
    </dependentAssembly>
</dependency>

<asmv3:application  xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" >
    <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
      <dpiAware>true</dpiAware>
    </asmv3:windowsSettings>
  </asmv3:application>
</assembly>

Code: Alles auswählen

#define MANIFEST_RESID 1
#define MANIFEST 24

USERDEF MANIFEST
  MANIFEST_RESID = FILE "Test.exe.manifest"

Code: Alles auswählen

ICON
1="c:\appxbase\G1\G1_1.ICO"
POINTER
101="c:\appxbase\Lib1\Cursor\lib1_101_smoothhand.cur"
#define MANIFEST_RESID 1
#define MANIFEST 24
USERDEF MANIFEST
MANIFEST_RESID = FILE "c:\appxbase\G1\gsg1.exe.manifest"

Code: Alles auswählen

[PROJECT]
    DEBUG         = yes
    PBUILD        = @test.txt
    MAKE          =
    VERSION       = 2.0 CTP
    OPENFILES     = test.prg
    PROJECT.XPJ
[PROJECT.XPJ]
    test.exe
[test.exe]
    COMPILE       = xpp
    COMPILE_FLAGS = /q
    DEBUG_SAVE    = yes
    GUI           = yes
    LINKER        = alink
    LINK_FLAGS    =
    RC_COMPILE    = arc
    RC_FLAGS      = /v
// $START-AUTODEPEND
    test.obj
// $STOP-AUTODEPEND
    test.prg