FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Desaparecen controles en Folder - SOLUCIONADO
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Sat Jul 15, 2023 06:37 PM

Ya lo hice Karinha, es mas, es parte del ejemplo que me recomendo Antonio

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Sat Jul 15, 2023 06:43 PM
Amigo, no has probado con el PellesC de 64 bits ? por si aun tienes el de 32.
Si Jose utilizo la version de 64bits.
Hace un rato baje e instale la ultima version la 12.00.2
...y el problema persiste
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
JESUS MARIN
Posts: 199
Joined: Wed Jan 02, 2019 08:36 AM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 05:53 AM

Buenos dias

Tal vez es una tontería, pero una vez me pasó.

( por si te puede ayudar a localizar el origen del error)

En mi caso el problema fué al definir el tamaño del folder.

Al definir el folder, como no sabía el tamaño definitivo que debería tener, lo definía con un tamaño pequeño.

Luego durante el pintado de la ventana o dialogo, lo ajustaba al tamaño definitivo.

Los controles que se quedaban fuera del tamaño original no se pintaban.

Me costó mucho entender que no siempre el folder actualizaba nWidth y nHeight, aunque si actualizaba nRight y nBottom.

Cambié el tamaño original ( a un tamaó muy grande 2000 x 2000 ) y entonces SI se "pintaban" los controles.

Lo dicho, tal vez sea una estupidez. Pero por si acaso

Saludos

Jesús

Jesús Marín
deumare@gmail.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 02:51 PM

Jesús, no creo. El más probable sea el PELLESC.exe No me gusta de ninguna forma este editor de recursos.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 03:28 PM
El Loco wrote:
Amigo, no has probado con el PellesC de 64 bits ? por si aun tienes el de 32.
Si Jose utilizo la version de 64bits.
Hace un rato baje e instale la ultima version la 12.00.2
...y el problema persiste
Enviame el RC por favor.

jalvarez AT neurosistema DOT online
"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.
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 04:29 PM
JoseAlvarez wrote:
Amigo, no has probado con el PellesC de 64 bits ? por si aun tienes el de 32.
Si Jose utilizo la version de 64bits.
Hace un rato baje e instale la ultima version la 12.00.2
...y el problema persiste
Enviame el RC por favor.

jalvarez AT neurosistema DOT online Buenos dias Jose, ya lo habia enviado, ahi te lo envio nuevamente
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"

DLG00 DIALOGEX DISCARDABLE 6, 18, 410, 236
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_VISIBLE
EXSTYLE WS_EX_APPWINDOW|WS_EX_CONTROLPARENT
FONT 9, "Arial", 0, 0, 1
{
  CONTROL "", 4002, "SysTabControl32", 0x00000000, 108, 24, 296, 188, 0x00000108, 188
  CONTROL "&Salir", IDCANCEL, "Button", BS_FLAT, 352, 220, 50, 12
  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, 0, 0, 460, 22
}

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  o  ENTER SELECCIONA   /    ESC. SALE", 4001, "Static", SS_CENTERIMAGE|WS_GROUP, 3, 268, 205, 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_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  o  ENTER SELECCIONA   /    ESC. SALE", 4001, "Static", SS_CENTERIMAGE|WS_GROUP, 3, 268, 201, 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_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|WS_TABSTOP, 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
  CONTROL "DEBE SELECCIONAR UN CODIGO POSTAL", 4006, "Static", 0x00000000, 160, 20, 132, 20
}

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|WS_TABSTOP, 188, 120, 80, 11
  CONTROL "", 4003, "TBtnBmp", WS_TABSTOP, 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"
Abrazo
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 04:37 PM

Elloco, ¿estos BITMAPS están todos en perfecto estado (no corruptos)? ¿Los revisó uno por uno con el BITMAP EDITOR IRFANVIEW.exe? - ¿Ninguno es del tamaño incorrecto?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 04:44 PM

Estimado Miguel Angel,

Podrias proporcionar tu EXE ó una versión demo de él ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 05:49 PM
Me ha sido imposible construir el ejemplo que has puesto en mega
No tiene Main, variables sin definir y las bases de datos
En cualquier caso, te doy un consejo: crea los dialogos y controles en el on init del dialog, prueba y nos vas contando como va
Code (fw): Select all Collapse
   DEFINE DIALOG oDlg RESOURCE "test"

   REDEFINE FOLDEREX oFld ID 110 OF oDlg ;
      DIALOGS "dlg1", "dlg2" PROMPTS "One", "Two"

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT AddDialog( oFld )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 06:19 PM
Antonio Linares wrote:Estimado Miguel Angel,

Podrias proporcionar tu EXE ó una versión demo de él ?
Antonio hoy cuando vuelva a casa veo como proporcionar un demo, ya que que las bases son enormes y para que funcione tienen que estar. Veo como achicarlas un poco.
Abrazo
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 06:21 PM
cnavarro wrote:Me ha sido imposible construir el ejemplo que has puesto en mega
No tiene Main, variables sin definir y las bases de datos
En cualquier caso, te doy un consejo: crea los dialogos y controles en el on init del dialog, prueba y nos vas contando como va
Code (fw): Select all Collapse
   DEFINE DIALOG oDlg RESOURCE "test"

   REDEFINE FOLDEREX oFld ID 110 OF oDlg ;
      DIALOGS "dlg1", "dlg2" PROMPTS "One", "Two"

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT AddDialog( oFld )
Hola Cristobal , en mega tambien proporcione el exe
Abrazo
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Tue Jul 18, 2023 07:55 PM

No has probado poniendo un BRUSH al dialogo?

"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.
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Wed Jul 19, 2023 03:26 PM
Antonio Linares wrote:Estimado Miguel Angel,

Podrias proporcionar tu EXE ó una versión demo de él ?
Antonio mil disculpas pero ayer llegué a casa 23.30hs y no lo puede hacer.
En el link te envío una copia funcional con la bases , además te envío los prg, .rc
y mi configuración de Fivewin.
Espero que te sirva
Abrazo
https://mega.nz/file/5WwTRSDR#nsncwHE8RlqxtcD9X4-nyr4MmlToVVj-gPipGwEmSEs
FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Wed Jul 19, 2023 04:45 PM
Parece estar todo bien:

Que versión de Windows usas ? Probado en Windows 11

regards, saludos

Antonio Linares
www.fivetechsoft.com
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Desaparecen controles en Folder - Ayuda por favor
Posted: Wed Jul 19, 2023 06:11 PM

Antonio esta probado en Windows 7 y 10.

Y compilado tanto en windows 7 y en el 10

Abrazo

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
Static archive · New replies & topics via GitHub Discussions