topic-46135

Posts: 69

Joined: Wed Mar 29, 2006 10:54 PM

aspecto al migrar FW 8.09 a 25.09
Posted: Fri Nov 21, 2025 02:39 PM

hola saludos al foro,

estoy migrando mis aplicaciones de mi antigua version 8.09 y sin cambiar nada el aspecto de las ventanas utilizando recursos es muy diferente,

hice un pequeño prg para hacer pruebas con cada una de las versiones y este es el resultado (estoy utilizando THEMED.MAN en el RC, desconozco si estoy es la causa del problema)

Saludos

Alvaro Urdaneta

Fwh 25.09, xharbour1.3.1, bcc77, Brw45

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: aspecto al migrar FW 8.09 a 25.09
Posted: Fri Nov 21, 2025 03:04 PM

prueba.prg

Code: Select all Collapse

#include "Fivewin.ch"


FUNCTION PRUEBA()

local oWnd, oDlg, oFld

DEFINE DIALOG oDlg RESOURCE "MNTCTE" TRUEPIXEL

REDEFINE FOLDER oFld ID 801 OF oDlg ;
         PROMPT               "General-1",       ;
                                        "General-2",    ;
                                        "General-3",    ;
                                        "General-4",    ;
                                        "General-5"        ;
         DIALOGS    "MNTCTE1",  ;
                                        "MNTCTE2",      ;
                                        "MNTCTE3",      ;
                                        "MNTCTE4",      ;
                                        "MNTCTE5"                                                                  

ACTIVATE DIALOG oDlg CENTERED 

Return nil

prueba.rc

Code: Select all Collapse

#include "\fwh\include\winapi.ch"

 

#ifdef __FLAT__

1 24 "THEMED.MAN"

#endif

 

mntcte DIALOG 70, 43, 421, 258

STYLE DS_MODALFRAME | 0x4L | WS_OVERLAPPED | WS_CAPTION

FONT 8, "MS Sans Serif"

{

CONTROL "", 801, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 5, 412, 233

PUSHBUTTON "&Aceptar", 901, 290, 242, 60, 14

PUSHBUTTON "&Cancelar", 902, 354, 242, 60, 14

}

 

 

mntcte1 DIALOG 4, 24, 410, 222

STYLE 0x4L | WS_CHILD

FONT 8, "MS Sans Serif"

{

RTEXT "C├│digo:", 701, 12, 30, 46, 8

EDITTEXT 801, 60, 29, 38, 12, ES_RIGHT | ES_MULTILINE | WS_BORDER | WS_TABSTOP

RTEXT "Rif:", 702, 105, 30, 11, 8

EDITTEXT 8012, 118, 29, 62, 12

RTEXT "Nombre (1):", 703, 12, 56, 46, 8

EDITTEXT 802, 60, 55, 150, 12, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP

RTEXT "Nombre (2):", 704, 12, 70, 46, 8

EDITTEXT 803, 60, 69, 150, 12, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP

RTEXT "Razon Social:", 705, 12, 84, 46, 8

EDITTEXT 804, 60, 83, 150, 12, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP

RTEXT "Direcci├│n   Fiscal:", 706, 12, 97, 46, 16

EDITTEXT 805, 60, 97, 150, 44, ES_MULTILINE | ES_UPPERCASE | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

RTEXT "Estado:", 707, 12, 144, 46, 8

COMBOBOX 806, 60, 143, 150, 131, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Ciudad:", 708, 12, 159, 46, 8

COMBOBOX 807, 60, 158, 150, 121, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Zona:", 709, 12, 174, 46, 8

COMBOBOX 808, 60, 173, 150, 139, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Tel├®fonos:", 710, 217, 56, 34, 8

EDITTEXT 809, 253, 55, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 810, 275, 55, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 811, 253, 69, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 812, 275, 69, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 813, 253, 83, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 814, 275, 83, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 815, 253, 97, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 816, 275, 97, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

RTEXT "Fax:", 711, 318, 56, 14, 8

EDITTEXT 817, 334, 55, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 818, 356, 55, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 819, 334, 69, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 820, 356, 69, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

RTEXT "Cel:", 712, 318, 84, 14, 8

EDITTEXT 821, 334, 83, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 822, 356, 83, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

RTEXT "Rif:", 713, 217, 115, 34, 8

EDITTEXT 823, 253, 114, 62, 12

RTEXT "Nit:", 714, 319, 115, 14, 8

EDITTEXT 824, 336, 114, 60, 12

RTEXT "Contacto:", 715, 217, 129, 34, 8

EDITTEXT 825, 253, 128, 143, 12

RTEXT "Web:", 716, 217, 144, 34, 8

EDITTEXT 826, 253, 143, 143, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

RTEXT "e-mail:", 717, 217, 159, 34, 8

EDITTEXT 827, 253, 158, 143, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

RTEXT "Ruc:", 718, 217, 173, 34, 8

EDITTEXT 828, 253, 172, 143, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

GROUPBOX "", -1, 6, 3, 397, 211, BS_GROUPBOX

}

 

 

mntcte2 DIALOG 4, 24, 410, 222

STYLE 0x4L | WS_CHILD

FONT 8, "MS Sans Serif"

{

GROUPBOX "", 701, 6, 3, 397, 211, BS_GROUPBOX

RTEXT "Direcci├│n de   Entrega:", 702, 18, 36, 45, 16

EDITTEXT 801, 65, 36, 148, 43, ES_MULTILINE | ES_UPPERCASE | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP

RTEXT "Estado:", 703, 38, 82, 25, 8

COMBOBOX 802, 65, 81, 148, 149, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Ciudad:", 704, 39, 97, 24, 8

COMBOBOX 803, 65, 96, 148, 138, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Tel├®fonos:", 705, 217, 37, 34, 8

EDITTEXT 804, 253, 36, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 805, 275, 36, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 806, 253, 50, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 807, 275, 50, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 808, 253, 64, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 809, 275, 64, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 810, 253, 78, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 811, 275, 78, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

RTEXT "Fax:", 706, 318, 37, 14, 8

EDITTEXT 812, 334, 36, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 813, 356, 36, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 814, 334, 50, 21, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

EDITTEXT 815, 356, 50, 41, 12, ES_RIGHT | ES_MULTILINE | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP

CTEXT "Persona Encargada", 707, 70, 124, 93, 10

CTEXT "Dias", 708, 179, 124, 94, 10

CTEXT "Horario", 709, 288, 124, 93, 10

RTEXT "Compras:", 710, 32, 137, 32, 8

EDITTEXT 816, 66, 136, 105, 12

EDITTEXT 817, 175, 136, 105, 12

EDITTEXT 818, 284, 136, 105, 12

RTEXT "Rec/Mercancia:", 711, 13, 151, 51, 8

EDITTEXT 819, 66, 150, 105, 12

EDITTEXT 820, 175, 150, 105, 12

EDITTEXT 821, 284, 150, 105, 12

RTEXT "Caja:", 712, 42, 165, 22, 8

EDITTEXT 822, 66, 164, 105, 12

EDITTEXT 823, 175, 164, 105, 12

EDITTEXT 824, 284, 164, 105, 12

}

 

 

 

mntcte3 DIALOG 4, 24, 410, 222

STYLE 0x4L | WS_CHILD

FONT 8, "MS Sans Serif"

{

GROUPBOX "", 701, 6, 3, 397, 211, BS_GROUPBOX

RTEXT "Tipo de Cliente:", 702, 39, 16, 56, 8

COMBOBOX 801, 98, 15, 158, 18, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Condiciones:", 703, 53, 30, 42, 8

COMBOBOX 802, 98, 29, 158, 17, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "C├│digo de Precio:", 704, 35, 44, 60, 8

COMBOBOX 803, 98, 43, 158, 17, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Situaci├│n:", 705, 53, 58, 42, 8

COMBOBOX 804, 98, 57, 158, 17, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

RTEXT "Moneda:", 706, 62, 72, 33, 8

COMBOBOX 805, 98, 71, 158, 15, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP

CHECKBOX "Cliente Activo:", 806, 296, 15, 58, 12, BS_AUTOCHECKBOX | BS_LEFTTEXT | NOT WS_TABSTOP

CHECKBOX "Cliente Nacional:", 807, 288, 29, 66, 12, BS_AUTOCHECKBOX | BS_LEFTTEXT | NOT WS_TABSTOP

CHECKBOX "Exento de I.V.A.:", 808, 288, 43, 66, 12, BS_AUTOCHECKBOX | BS_LEFTTEXT | NOT WS_TABSTOP

CHECKBOX "Contribuyente Especial:", 809, 267, 57, 87, 12, BS_AUTOCHECKBOX | BS_LEFTTEXT | NOT WS_TABSTOP

CHECKBOX " 100%", 8092, 358, 57, 33, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP

RTEXT "Fecha Contribuyente:", 707, 269, 72, 73, 8

EDITTEXT 810, 345, 71, 44, 12, NOT WS_TABSTOP | WS_BORDER

RTEXT "Vendedor:", 708, 59, 90, 36, 8

EDITTEXT 811, 98, 89, 28, 12, ES_RIGHT | ES_MULTILINE | WS_BORDER | WS_TABSTOP

EDITTEXT 812, 128, 89, 243, 12

RTEXT "Cuenta x Cobrar:", 709, 39, 103, 56, 8

EDITTEXT 813, 98, 102, 68, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

EDITTEXT 814, 168, 102, 203, 12

RTEXT "Efectos x Cobrar:", 710, 40, 116, 55, 8

EDITTEXT 815, 98, 115, 68, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

EDITTEXT 816, 168, 115, 203, 12

RTEXT "Anticipos:", 711, 57, 129, 38, 8

EDITTEXT 817, 98, 128, 68, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

EDITTEXT 818, 168, 128, 203, 12

RTEXT "Ingresos:", 712, 57, 142, 38, 8

EDITTEXT 819, 98, 141, 68, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP

EDITTEXT 820, 168, 141, 203, 12

RTEXT "Centro de Costo:", 713, 40, 155, 55, 8

EDITTEXT 821, 98, 154, 41, 12

EDITTEXT 822, 141, 154, 230, 12

RTEXT "Almacen:", 714, 40, 168, 55, 8

EDITTEXT 823, 98, 167, 28, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP

EDITTEXT 824, 128, 167, 243, 12

RTEXT "Limite de Credito:", 715, 40, 181, 55, 8

EDITTEXT 825, 98, 180, 72, 12, ES_RIGHT | ES_MULTILINE | WS_BORDER | WS_TABSTOP

RTEXT "% Descuento:", 716, 48, 194, 47, 8

EDITTEXT 826, 98, 193, 26, 12, ES_RIGHT | ES_MULTILINE | WS_BORDER | WS_TABSTOP

RTEXT "% Retenci├│n Islr:", 717, 128, 194, 54, 8

EDITTEXT 827, 185, 193, 26, 12, ES_RIGHT | ES_MULTILINE | WS_BORDER | WS_TABSTOP

RTEXT "<= Dias de Vencimiento:", 719, 259, 192, 78, 8

GROUPBOX "Incluir en Reporte de Antiguedad:", 718, 254, 180, 117, 29, BS_GROUPBOX

EDITTEXT 828, 340, 191, 26, 12, ES_RIGHT | ES_MULTILINE | WS_BORDER | WS_TABSTOP

}

 

 

mntcte4 DIALOG 4, 24, 410, 222

STYLE 0x4L | WS_CHILD

FONT 8, "MS Sans Serif"

{

CONTROL "", 801, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 12, 13, 386, 195

GROUPBOX "", 701, 6, 3, 397, 211, BS_GROUPBOX

}

 

 

mntcte4a DIALOG 21, 55, 393, 191

STYLE 0x4L | WS_CHILD

FONT 8, "MS Sans Serif"

{

GROUPBOX "", 701, 5, 3, 371, 171, BS_GROUPBOX

EDITTEXT 801, 11, 14, 358, 152, ES_MULTILINE | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP

}

 

mntcte5 DIALOG 4, 24, 410, 192

STYLE 0x4L | WS_CHILD

FONT 8, "MS Sans Serif"

{

RTEXT "Fecha de Registro:", 701, 33, 33, 68, 8

EDITTEXT 801, 104, 32, 44, 12, ES_MULTILINE | WS_BORDER | WS_TABSTOP

GROUPBOX "Documentos Recibidos:", 702, 104, 56, 199, 104, BS_GROUPBOX

CHECKBOX " Registro", 802, 113, 68, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

CHECKBOX " Acta Constitutiva", 803, 113, 80, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

CHECKBOX " Planilla de Registro", 804, 113, 92, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

CHECKBOX " Actividad Comercial", 805, 113, 104, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

CHECKBOX " Referencia Comercial", 806, 113, 116, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

CHECKBOX " Referencia Bancaria", 807, 113, 128, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

CHECKBOX " Rif", 808, 113, 140, 85, 12, BS_AUTOCHECKBOX | WS_TABSTOP

RTEXT "Vencimiento:", 703, 205, 142, 41, 8

EDITTEXT 809, 249, 141, 44, 12, ES_MULTILINE | WS_BORDER | WS_TABSTOP

GROUPBOX "", 701, 6, 3, 397, 184, BS_GROUPBOX

}

THEMED.MAN

Code: Select all Collapse

<?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="FiveTech Software.FiveWin.32bits"
    type="win32"
/>
<description>Your application description here.</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="X86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: aspecto al migrar FW 8.09 a 25.09
Posted: Fri Nov 21, 2025 04:51 PM

Uso este MANIFEST:

https://learn.microsoft.com/pt-br/windows/win32/sysinfo/targeting-your-application-at-windows-8-1

Code: Select all Collapse

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
      <application> 
        <!--This Id value indicates the application supports Windows Vista functionality -->
          <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 

    <!--This Id value indicates the application supports Windows 7 functionality-->
      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>

    <!--This Id value indicates the application supports Windows 8 functionality-->
      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>

    <!--This Id value indicates the application supports Windows 8.1 functionality-->
      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>

    <!-- Windows 10 -->
    <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>

  </application> 
  </compatibility>

  <assemblyIdentity type="win32"/>
                    name="FiveTech Software.FiveWin.32bits"
                    version="6.0.0.0" 
                    processorArchitecture="x86" 
                    publicKeyToken="6595b64144ccf1df"
  />
  <dependency>
    <dependentAssembly>
      <assemblyIdentity type="win32"/>
                        name="Microsoft.Windows.Common-Controls"
                        version="6.0.0.0" 
                        processorArchitecture="X86" 
                        publicKeyToken="6595b64144ccf1df"
                        language="*"
      />
    </dependentAssembly>
  </dependency>
</assembly>

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Alvaro Urdaneta

Posts: 69

Joined: Wed Mar 29, 2006 10:54 PM

Re: aspecto al migrar FW 8.09 a 25.09
Posted: Fri Nov 21, 2025 05:12 PM

no abre el prg, lo estoy haciendo asi

#include "\fwh\include\winapi.ch"

#ifdef FLAT
1 24 "MANIFEST.MAN"
#endif

mntcte DIALOG 70, 43, 421, 258
STYLE DS_MODALFRAME | 0x4L | WS_OVERLAPPED | WS_CAPTION
FONT 7, "Ms Sans Serif"

Saludos

Alvaro Urdaneta

Fwh 25.09, xharbour1.3.1, bcc77, Brw45

FiveTech Support Forums

Continue the discussion