Desaparecen controles en Folder - SOLUCIONADO

[El Loco]

Buenas buenas esperando que todos esten excelente gracias a Dios.
A ver si pueden ayudarme ya que mi cabeza se prendio varias veces fuego y no encuentro
la solución y sobre todo el porqué.
El tema es que un utilitario que ya hice hace más de un año y estaba funcionando perfectamente bien,
tuve la necesidad de agregar un dbf (BT002.dbf) de muy pocos registros para cargar dinamicamente una tabla.
Todo bien haciendo lo que se pensaba tenía que hacer, pero de después de generar el archivo de salida tengo esto:
[img][img]https://i.postimg.cc/8F1kfc2h/Pta-01.jpg[/img]
[/img]
paso a a esto:
[img][img]https://i.postimg.cc/bG3yx8P4/Pta-02.jpg[/img]
[/img]
...y la frutilla del postre... dejo todo como antes, cuando funcionaba y aclaro, tengo la costubre de hacer una copia del prg
o los prg que voy a modificar, así que solo reestablecí la anterior versión y sucede lo mismo desaparecen los controles....
después de dos veces de darle ctrol+tab vuelven a aperecer

Les dejo los dos prg que utiliza más .bat ,.mak y .rc que utilizo.
Si alguno lo puede ver mil gracias. Como dojo el celebre filosofo Cristobal Navarro..."cuatro ojos ven más que dos"
Dede ya muchisimas gracias
Abrazo a todos

[El Loco]

ya qure no me deja postear todo el código fuente acá dejo un link para bajarlo.
disculpen
https://mega.nz/file/Ufgg3AoZ#JcApz763m ... l8tcd3B7Pc

Abrazos a todo

[karinha]

Como haces? Asi?

Code: Select all  Expand view  RUN

FOLDER_REMOCAO_PODAS_1024_768 DIALOG 5, 3, 680, 344
STYLE WS_CHILD | WS_BORDER
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "660", 101, "TFolderex", 0 | WS_CHILD | WS_VISIBLE, 10, 3, 660, 320
 PUSHBUTTON "&Gravar", 301, 179, 323, 60, 16
 PUSHBUTTON "&Imprimir", 302, 242, 323, 70, 16
 PUSHBUTTON "&Obs.", 304, 314, 323, 60, 16
 PUSHBUTTON "&Excluir", 306, 377, 323, 60, 16
 PUSHBUTTON "&Saida", 305, 440, 323, 60, 16
 

ó:

Code: Select all  Expand view  RUN

FOLDER_REMOCAO_PODAS_1024_768 DIALOG 5, 3, 680, 344
STYLE WS_CHILD | WS_BORDER
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "660", 101, "TFolder", 0 | WS_CHILD | WS_VISIBLE, 10, 3, 660, 320
 PUSHBUTTON "&Gravar", 301, 179, 323, 60, 16
 PUSHBUTTON "&Imprimir", 302, 242, 323, 70, 16
 PUSHBUTTON "&Obs.", 304, 314, 323, 60, 16
 PUSHBUTTON "&Excluir", 306, 377, 323, 60, 16
 PUSHBUTTON "&Saida", 305, 440, 323, 60, 16
 

ó:

Code: Select all  Expand view  RUN

DLGTEST DIALOG 6, 15, 244, 155
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Dialog de prueba - posibles bugs"
FONT 8, "MS Sans Serif"
{
 LTEXT "Código :", -1, 9, 4, 38, 12
 EDITTEXT 101, 41, 3, 52, 12
 CONTROL FOLDER32, 102, FOLDER32, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 21, 236, 108
 PUSHBUTTON "&Aceptar", 201, 153, 135, 40, 14
 PUSHBUTTON "&Cancelar", 202, 197, 135, 40, 14
}
 

Regards, saludos.

[karinha]

Mira también:

Code: Select all  Expand view  RUN

   SYSTABCONTROL32
 

Regards, saludos.

[El Loco]

Hola Karinha
Gracias por reponder.
Te adjunto el rc

Code: Select all  Expand view  RUN

/ RESOURCE SCRIPT generated by "Pelles C for Windows, version 10.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_ARGENTINA

8005 BITMAP "res1.bmp"

8001 BITMAP "res2.bmp"

[b]DLG00 DIALOGEX DISCARDABLE 6, 18, 410, 236[/b]
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_VISIBLE
EXSTYLE WS_EX_APPWINDOW|WS_EX_CONTROLPARENT
FONT 9, "Arial", 0, 0, 1
{
  CONTROL "&Salir", IDCANCEL, "Button", BS_FLAT, 352, 220, 50, 12
  CONTROL "", 4007, "msctls_progress32", PBS_SMOOTH, 108, 204, 300, 6
  CONTROL "Diseño Registro DBF", 4005, "Button", BS_FLAT, 4, 28, 96, 14
  CONTROL "Diseño Registro TXT", 4008, "Button", BS_FLAT, 4, 48, 96, 14
  CONTROL "This is a label:", 101, "Static", SS_CENTERIMAGE|WS_GROUP, 0, 0, 460, 22
  [b]CONTROL "", 4002, "SysTabControl32", TCS_FIXEDWIDTH|TCS_FLATBUTTONS|WS_TABSTOP, 108, 24, 300, 176
}[/b]

DBLP DIALOGEX DISCARDABLE 6, 18, 620, 292
STYLE DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
EXSTYLE WS_EX_TOOLWINDOW
FONT 8, "Arial", 0, 0, 1
{
  CONTROL "&Salir", IDCANCEL, "Button", BS_FLAT, 560, 272, 50, 12
  CONTROL "Custom control", 4003, "TxBrowse", 0x00b00000, 0, 17, 620, 250
  CONTROL " Doble click selecciona   /    Esc. sale", 4001, "Static", SS_CENTERIMAGE|WS_GROUP, 3, 268, 128, 8
  CONTROL "&Exporta a Excel", 4004, "Button", BS_FLAT, 400, 272, 70, 12
  CONTROL "", 4016, "msctls_progress32", NOT WS_VISIBLE, 3, 282, 248, 6
  CONTROL "&Visualiza Planilla", 4005, "Button", NOT WS_VISIBLE|BS_FLAT, 471, 272, 70, 12
  CONTROL "This is a label:", 4002, "Static", SS_CENTERIMAGE|WS_GROUP, 0, 0, 620, 16
}

DBCP DIALOGEX DISCARDABLE 6, 18, 625, 292
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
EXSTYLE WS_EX_TOOLWINDOW
FONT 8, "Arial", 0, 0, 1
{
  CONTROL "Custom control", 4004, "TxBrowse", 0x00a00000, 0, 17, 624, 250
  CONTROL "&Salir", IDCANCEL, "Button", BS_FLAT, 560, 272, 50, 13
  CONTROL " Doble click selecciona       Esc. sale", 4001, "Static", SS_CENTERIMAGE|WS_GROUP, 3, 268, 128, 12
  CONTROL "This is a label:", 4002, "Static", SS_CENTERIMAGE|WS_GROUP, 0, 0, 624, 16
  CONTROL "&Exporta a Excel", 4003, "Button", BS_FLAT, 400, 272, 70, 12
  CONTROL "", 4016, "msctls_progress32", NOT WS_VISIBLE, 4, 280, 248, 6
  CONTROL "&Visualiza Planilla", 4005, "Button", NOT WS_VISIBLE|BS_FLAT, 472, 272, 70, 12
}

8002 BITMAP "res3.bmp"

BUSCA_16 BITMAP "res4.bmp"

BUSCA_32 BITMAP "res5.bmp"

DIS_REG DIALOGEX DISCARDABLE 6, 18, 522, 360
STYLE DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
EXSTYLE WS_EX_TOOLWINDOW
FONT 8, "Arial", 0, 0, 1
{
  CONTROL "Custom control", 4003, "TxBrowse", 0x00a00000, 0, 16, 520, 324
  CONTROL "&Salir", IDCANCEL, "Button", BS_FLAT, 460, 344, 50, 12
  CONTROL "This is a label:", 4002, "Static", SS_CENTERIMAGE|WS_GROUP, 0, 0, 520, 16
}

8004 ICON "res1.ico"

8003 ICON "res2.ico"

8006 ICON "res3.ico"

8007 ICON "res4.ico"

8008 ICON "res5.ico"

8009 ICON "res6.ico"

DCPOSTAL DIALOGEX DISCARDABLE 6, 18, 300, 170
STYLE WS_CHILD|WS_VISIBLE
FONT 9, "Arial", 0, 0, 1
{
  CONTROL "", 4001, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 92, 4, 136, 125
  CONTROL "Editbox", 4002, "Edit", ES_RIGHT|ES_NUMBER|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 92, 20, 52, 10
  CONTROL "", 4003, "TBtnBmp", WS_TABSTOP, 144, 20, 10, 10
  CONTROL "DBase (.dbf)", 4012, "Button", BS_RADIOBUTTON|WS_GROUP|WS_TABSTOP, 92, 44, 64, 10
  CONTROL "Texto (.txt)", 4013, "Button", BS_RADIOBUTTON|WS_GROUP|WS_TABSTOP, 92, 60, 64, 10
  CONTROL "Excel (.xls)", 4014, "Button", BS_RADIOBUTTON|WS_GROUP|WS_TABSTOP, 92, 76, 64, 10
  CONTROL "Editbox", 4015, "Edit", WS_BORDER|WS_TABSTOP, 100, 100, 156, 10
  CONTROL "", 4008, "TBtnBmp", 0x00000000, 256, 100, 10, 10
  CONTROL "&Ejecutar", IDOK, "Button", BS_FLAT, 188, 120, 80, 11
  CONTROL "Ingrese Disponible (desde)  ", 4029, "Static", NOT WS_VISIBLE|WS_GROUP, 4, 140, 188, 8
  CONTROL "", 4016, "msctls_progress32", NOT WS_VISIBLE, 8, 156, 280, 5
  CONTROL "Ingrese Codigo Postal  ", 101, "Static", SS_CENTERIMAGE|WS_GROUP, 12, 20, 80, 11
  CONTROL "Seleccione Provincia  ", 107, "Static", SS_CENTERIMAGE|WS_GROUP, 12, 4, 80, 12
  CONTROL " Tipo Archivo de Salida ", 4004, "Static", WS_GROUP, 8, 44, 76, 8
  CONTROL " Nombre Archivo de Salida ", 4005, "Static", WS_GROUP, 8, 100, 96, 8
}

DLPAGO DIALOGEX DISCARDABLE 6, 18, 300, 170
STYLE WS_CHILD|WS_VISIBLE
FONT 9, "Arial", 0, 0, 1
{
  CONTROL "", 4001, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 84, 4, 204, 125
  CONTROL "Editbox", 4002, "Edit", ES_RIGHT|ES_NUMBER|ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 84, 20, 58, 10
  CONTROL "DBase (.dbf)", 4012, "Button", BS_RADIOBUTTON|WS_GROUP|WS_TABSTOP, 92, 44, 64, 10
  CONTROL "Texto (.txt)", 4013, "Button", BS_RADIOBUTTON|WS_GROUP|WS_TABSTOP, 92, 60, 64, 10
  CONTROL "Excel (.xls)", 4014, "Button", BS_RADIOBUTTON|WS_GROUP|WS_TABSTOP, 92, 76, 64, 10
  CONTROL "Editbox", 4015, "Edit", WS_BORDER|WS_TABSTOP, 100, 100, 156, 10
  CONTROL "&Ejecutar", IDOK, "Button", BS_FLAT, 188, 120, 80, 11
  CONTROL "", 4003, "TBtnBmp", 0x00000000, 144, 20, 10, 10
  CONTROL "Ingrese Disponible (desde)  ", 4029, "Static", NOT WS_VISIBLE|WS_GROUP, 4, 140, 188, 8
  CONTROL "", 4016, "msctls_progress32", NOT WS_VISIBLE, 8, 156, 280, 5
  CONTROL "Ingrese Nro. Sucursal", 101, "Static", SS_CENTERIMAGE|WS_GROUP, 12, 20, 80, 11
  CONTROL "Seleccione Banco  ", 107, "Static", SS_CENTERIMAGE|WS_GROUP, 12, 4, 64, 12
  CONTROL "", 4008, "TBtnBmp", 0x00000000, 256, 100, 10, 10
  CONTROL " Tipo Archivo de Salida ", 4004, "Static", WS_GROUP, 8, 44, 76, 8
  CONTROL " Nombre Archivo de Salida ", 4005, "Static", WS_GROUP, 8, 100, 92, 8
}

1 MANIFEST "Windowsxp.manifest64"

 

[El Loco]

Karinha trate de resaltar el dialogo donde esta el folder y salio mal
El dialogo en cuestion es el DLG00 y si el folder esta definido como SysTabControl32
Saludos

[karinha]

Mira en la classe C:\FWH\SOURCE\CLASSES\FOLDER.PRG de tu version de 64 bits cual és el control correcto.

TFOLDER32 ó TFOLDER64? comprendes? No tengo FWH de 64 bits lo siento.

Regards, saludos.

[El Loco]

recien llego a casa, ahora me fijo.
saludos

[El Loco]

Karinha me fije y solo hace referencia a SYSTABCONTROL32

[karinha]

¿Alguien tiene un ejemplo de FOLDER para FWH64 bits usando PELLESC.exe? No uso PELLESC.exe y ni FWH64.

Gracias.

Regards, saludos.

[Antonio Linares]

Prueba con este ejemplo de FWH:

FWH64\samples\buildh64.bat testfld2

[JoseAlvarez]

Hola amigo,

Hace tiempo tuve un problema similiar, solo que fue usando FOLDEREX.

Algunos controles se desaparecian, me costo mucho, pero buscando y buscando en el foro, encontré la solución y fue colocando esta funcion en mi sistema (en cualquier PRG, yo lo puse en el MAIN.PRG al final)

Code: Select all  Expand view  RUN

  //----------------------------------------------------------------------------//
Function IsAppThemed()
                         // esta funcion es para evitar que si tengo dos radio buttons pegados en la misma fila de un formulario
                         // no se desaparezca el de la derecha al hacer un refresh() del primero
                         // investigado en el foro
Return .F.
//----------------------------------------------------------------------------//


 

No tengo idea que hace esa funcion, pero solucionó el problema de mis controles "desaparecidos"

Puedes probar...

PD: Uso FW19.06 , Harbour, Borland 7.4 y Pelles C como editor de recursos.

[karinha]

José, teste este ejemplo marabilloso:

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=34055&p=202719&hilit=samples1#p202719

Aqui también:

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=19161

Regards, saludos.

[JoseAlvarez]

José, teste este ejemplo marabilloso:

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=34055&p=202719&hilit=samples1#p202719

Aqui también:

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=19161

Regards, saludos.

Gracias joao ! Le daré un vistazo

[El Loco]

Antonio

Code: Select all  Expand view  RUN

Prueba con este ejemplo de FWH:

FWH64\samples\buildh64.bat testfld2

sigue haciendo lo mismo y adem'as ahora no me muestra las pestanas del folder