FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

Desaparecen controles en Folder - SOLUCIONADO

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43426

Page 1 of 5

Desaparecen controles en Folder - SOLUCIONADO

PostPosted: Thu Jul 06, 2023 8:34 pm
by 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

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Thu Jul 06, 2023 8:36 pm
by 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

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 12:56 pm
by karinha
Como haces? Asi?

Code: Select all  Expand view

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

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

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.

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 1:00 pm
by karinha
Mira también:

Code: Select all  Expand view

   SYSTABCONTROL32
 


Regards, saludos.

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 1:17 pm
by El Loco
Hola Karinha
Gracias por reponder.
Te adjunto el rc
Code: Select all  Expand view
/ 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"

 

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 1:20 pm
by 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

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 1:30 pm
by 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.

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 6:02 pm
by El Loco
recien llego a casa, ahora me fijo.
saludos

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Fri Jul 07, 2023 7:00 pm
by El Loco
Karinha me fije y solo hace referencia a SYSTABCONTROL32

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Sat Jul 08, 2023 3:36 pm
by karinha
¿Alguien tiene un ejemplo de FOLDER para FWH64 bits usando PELLESC.exe? No uso PELLESC.exe y ni FWH64.

Gracias.

Regards, saludos.

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Sun Jul 09, 2023 9:12 am
by Antonio Linares
Prueba con este ejemplo de FWH:

FWH64\samples\buildh64.bat testfld2

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Mon Jul 10, 2023 4:03 pm
by 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
  //----------------------------------------------------------------------------//
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.

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Mon Jul 10, 2023 4:12 pm
by 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.

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Tue Jul 11, 2023 1:48 am
by JoseAlvarez


Gracias joao ! Le daré un vistazo

Re: Desaparecen controles en Folder - Ayuda por favor

PostPosted: Tue Jul 11, 2023 11:56 pm
by El Loco
Antonio
Code: Select all  Expand view
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
All times are UTC
Page 1 of 5
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/