SPINNER se vuelven invisibles en Windows 11.

[karinha]

Las flechas de arriba y abajo del control numérico (spinner) se vuelven invisibles en Windows 11. Porque?

Code: Select all | Expand

   REDEFINE GET DbEstoque:DTFINALPRO PICTURE "@KD 99/99/9999" SPINNER        ;
      ID 23 OF oDlg FONT oFont UPDATE COLOR CLR_BLACK, CLR_WHITE             ;
      VALID .NOT. EMPTY( DbEstoque:DTFINALPRO ) .AND.                        ;
      ATIVARBTN( lAppend, DbEstoque )                                        ;
      MESSAGE OemToAnsi( "Data da Validade da Promo‡Æo" )

Gracias, tks.

Regards, saludos.

[Antonio Linares]

Estimado Joao,

Estás usando un fichero manifest en los recursos ?

[karinha]

Si, master. Sigue:

Code: Select all | Expand

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
  <dependency optional="yes"> 
    <dependentAssembly> 
      <assemblyIdentity name="Microsoft.Windows.Common-Controls" 
        version="6.0.0.0" publicKeyToken="6595b64144ccf1df" 
        type="win32" processorArchitecture="*" language="*" /> 
    </dependentAssembly> 
  </dependency> 
  <application xmlns="urn:schemas-microsoft-com:asm.v3"> 
     <windowsSettings> <dpiAware      xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/PM</dpiAware>                     </windowsSettings> 
     <windowsSettings> <dpiAwareness  xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">PerMonitorV2,PerMonitor</dpiAwareness> </windowsSettings> 
     <windowsSettings> <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>                   </windowsSettings> 
     <windowsSettings> <heapType      xmlns="http://schemas.microsoft.com/SMI/2020/WindowsSettings">SegmentHeap</heapType>                 </windowsSettings> 
  </application> 
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"> 
    <security> 
      <requestedPrivileges> 
        <requestedExecutionLevel level="asInvoker" uiAccess="false" /> 
      </requestedPrivileges> 
    </security> 
  </trustInfo> 
  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
    <application> 
      <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" /> 
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" /> 
      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" /> 
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" /> 
      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" /> 
    </application> 
  </compatibility> 
</assembly> 

Regards, saludos.

[karinha]

Añadiendo:

Para asegurarse de que su aplicación se visualice correctamente con la interfaz de usuario actualizada y las esquinas redondeadas de Windows 11, puede añadir la etiqueta <windowsSettings> para habilitar el escalado de PPP (DPI) por monitor y la compatibilidad con rutas de archivo largas:

Code: Select all | Expand

<application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
        <dpiAwareness xmlns="http://microsoft.com">PerMonitorV2, PerMonitor</dpiAwareness>
        <dpiAware xmlns="http://microsoft.com">true</dpiAwareness>
        <longPathAware xmlns="http://microsoft.com">true</longPathAware>
    </windowsSettings>
</application>

Regards, saludos.

[karinha]

Eso no lo solucionó. Pero los bordes de los cuadros de diálogo quedaron perfectos.

Code: Select all | Expand

<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
    <assemblyIdentity
        type="win32"
        name="FiveTech Software.FiveWin.32bits"
        version="20.04.0.0"
        processorArchitecture="x86"
    />
    <description>FiveTech Software SL</description>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity
                type="win32"
                name="Microsoft.Windows.Common-Controls"
                version="6.0.0.0"
                processorArchitecture="X86"
                publicKeyToken="6595b64144ccf1df"
                language="*"
            />
        </dependentAssembly>
    </dependency>
    <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
        <application>
            <!-- Windows 10 -->
            <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
            <!-- Windows 8.1 -->
            <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
            <!-- Windows 8 -->
            <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
            <!-- Windows 7 -->
            <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
            <!-- Windows Vista -->
            <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 
        </application>
    </compatibility>
    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
        <security>
            <requestedPrivileges>
                <!--
                  UAC settings:
                  - app should run at same integrity level as calling process
                  - app does not need to manipulate windows belonging to
                    higher-integrity-level processes
                  -->
                <requestedExecutionLevel
                    level="asInvoker"
                    uiAccess="false"
                />   

            </requestedPrivileges>
        </security>
    </trustInfo>
    <application xmlns="urn:schemas-microsoft-com:asm.v3">
       <windowsSettings>
           <dpiAwareness xmlns="http://microsoft.com">PerMonitorV2, PerMonitor</dpiAwareness>
           <dpiAware xmlns="http://microsoft.com">true</dpiAwareness>
           <longPathAware xmlns="http://microsoft.com">true</longPathAware>
       </windowsSettings>
   </application>
</assembly>

Regards, saludos.

[karinha]

Master, cual és el mejor?

Code: Select all | Expand

<asmv3:application>
    <asmv3:windowsSettings>
      <!-- Suporte a DPI Alto (Evita que o app fique borrado em monitores 4K) -->
      <dpiAware xmlns="http://microsoft.com">true/PM</dpiAware>
      <asmv3:dpiAwareness xmlns="http://microsoft.com">PerMonitorV2, PerMonitor</asmv3:dpiAwareness>
      <!-- Habilita o tema escuro/claro e cantos arredondados do Windows 11 -->
      <asmv3:activeTheme xmlns="http://microsoft.com">true</asmv3:activeTheme>
    </asmv3:windowsSettings>
  </asmv3:application>

Gracias, regards, saludos.

[Antonio Linares]

Prueba con:

Code: Select all | Expand

<?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="TuEmpresa.TuApp"
        type="win32"
    />
    <description>Tu aplicación</description>

<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="X86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>

<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
    <application>
        <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />
        <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />
        <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />
        <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />
        <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />
    </application>
</compatibility>

<application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">
        <dpiAwareness>PerMonitorV2,PerMonitor</dpiAwareness>
        <longPathAware>true</longPathAware>
    </windowsSettings>
    <windowsSettings xmlns="http://schemas.microsoft.com/SMI/2020/WindowsSettings">
        <heapType>SegmentHeap</heapType>
    </windowsSettings>
</application>

<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
        <requestedPrivileges>
            <requestedExecutionLevel level="asInvoker" uiAccess="false" />
        </requestedPrivileges>
    </security>
</trustInfo>

</assembly>

[Antonio Linares]

Prueba también:

REDEFINE GET DbEstoque:DTFINALPRO ;
PICTURE "@KD 99/99/9999" ;
SPINNER BUTTONS "", "" ;
ID 23 OF oDlg FONT oFont UPDATE ;
COLOR CLR_BLACK, CLR_WHITE ;
...

[karinha]

Prueba también:

REDEFINE GET DbEstoque:DTFINALPRO ;
PICTURE "@KD 99/99/9999" ;
SPINNER BUTTONS "", "" ;
ID 23 OF oDlg FONT oFont UPDATE ;
COLOR CLR_BLACK, CLR_WHITE ;
...

Querido maestro, tal como está ahora se ve fatal y poco profesional. Además, el SPINNER original deja de funcionar. Verás, el SPINNER original solo aparece cuando paso el ratón por encima; en Windows 7, no necesitaba pasar el ratón sobre el SPINNER. ¿Me explico?

https://imgur.com/i28wtpr

Gracias, tks.

Regards, saludos

[karinha]

Maestro, El dialogo está correcto?

Code: Select all | Expand

DLG_PORPRECO_PROMOCAO DIALOG 167, 73, 320, 120
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Atualizar o Preço de Venda do Produto em Promoção"
FONT 10, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 EDITTEXT 20, 121, 25, 100, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_GROUP | WS_TABSTOP
 EDITTEXT 21, 121, 40, 180, 12, ES_MULTILINE | WS_BORDER | WS_GROUP | WS_TABSTOP
 EDITTEXT 22, 121, 55, 80, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_GROUP | WS_TABSTOP
 EDITTEXT 23, 121, 70, 80, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
 PUSHBUTTON "&Gravar Preço", 301, 94, 100, 70, 14
 PUSHBUTTON "&Saida ", 302, 166, 100, 60, 14
 RTEXT "Código do Produto:", 401, 18, 25, 100, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Nome do Produto:", 402, 18, 40, 100, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Preço Para Promoção:", 403, 18, 55, 100, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Data Final da Promoção:", 404, 18, 70, 100, 12, SS_RIGHT | NOT WS_GROUP
 GROUPBOX "Atualizar o Preço de Venda do Produto em Promoção", 501, 10, 5, 300, 86, BS_GROUPBOX
}

Regards, saludos.

[karinha]

Maestro, con el Nuevo Manifest:

https://imgur.com/Y9UsFKJ

Gracias, tks.

Regards, saludos.

[karinha]

Maestro, mire donde dice "Data da compra" -> "Fecha de Compra": cuando paso el ratón por encima del selector numérico, este aparece. Mire el lado derecho de la pantalla: los selectores no se ven, pero si paso el ratón sobre ellos, se "activan". ¿Me explico?

https://imgur.com/UOTyT9P

Gracias, tks.

Regards, saludos.

[karinha]

Code: Select all | Expand

C:\FWH2603\samples

testgetd.prg

Regards, saludos.

[Antonio Linares]

Thats the usual Windows 11 behavior

Arrows are not visible until you interact with them