FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Desaparecen controles en Folder - SOLUCIONADO
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Desaparecen controles en Folder - SOLUCIONADO
Posted: Thu Jul 06, 2023 08:34 PM
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
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Thu Jul 06, 2023 08:36 PM
ya qure no me deja postear todo el código fuente acá dejo un link para bajarlo.
disculpen
https://mega.nz/file/Ufgg3AoZ#JcApz763mruyIttdPjCBwmmqia9E_1p8bl8tcd3B7Pc

Abrazos a todo
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 12:56 PM
Como haces? Asi?
Code (fw): Select all Collapse
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 (fw): Select all Collapse
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 (fw): Select all Collapse
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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 01:00 PM
Mira también:
Code (fw): Select all Collapse
   SYSTABCONTROL32
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 01:17 PM
Hola Karinha
Gracias por reponder.
Te adjunto el rc
Code (fw): Select all Collapse
/ 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"
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 01:20 PM

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

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 01:30 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 06:02 PM

recien llego a casa, ahora me fijo.

saludos

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Fri Jul 07, 2023 07:00 PM

Karinha me fije y solo hace referencia a SYSTABCONTROL32

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Sat Jul 08, 2023 03:36 PM

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

Gracias.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Sun Jul 09, 2023 09:12 AM

Prueba con este ejemplo de FWH:

FWH64\samples\buildh64.bat testfld2

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Mon Jul 10, 2023 04:03 PM
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 (fw): Select all Collapse
   //----------------------------------------------------------------------------//
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.
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Mon Jul 10, 2023 04:12 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 11, 2023 01:48 AM
karinha wrote: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
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 11, 2023 11:56 PM
Antonio
Code (fw): Select all Collapse
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
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC