ANTONIO UNA MANO CON PROBLEMA CON FOLDER

[ozono1981]

Estimado Antonio.
Te cuento que tengo un problema hace días con unos folder que en FiveWin funcionaban bien y al pasarlos a xHarbour no funcionan.

la porción de código es

REDEFINE FOLDER oFld ID 350 OF oDlg PROMPT "Seccion1", "Seccion2", "Seccion3", "Seccion4";
DIALOGS "CARPETA1","CARPETA2","CARPETA3","CARPETA4"


y esta en un objeto TFOLDER en mi RC.

Karina me comento que es por mi versión que es FWH 2.7 de Noviembre 2005. pero me cuesta creer que sea eso.

Ojala me puedas orientar ya que necesito ocupar las folder en mas de una parte y estoy con un tremendo problema.

Agradecido.
Moisés Colihuinca

[Antonio Linares]

Moisés,

Puedes copiar aqui tu RC para ver como defines los folders ?

[ozono1981]

ANTONIO ESTE ES EL CODIGO QUE ME ENTREGA EL WORKSHOP DEL DIALOGO
LA ULTIMA LINEA ES DONDE DEFINE LA FOLDER

ODLG_MONOS DIALOG 36, 57, 565, 441
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU
FONT 8, "Helv"
{
CONTROL "", 100, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 3, 19, 189, 153
GROUPBOX "&Botones", 199, 198, -2, 256, 114, BS_GROUPBOX
GROUPBOX "&Detalle", 198, 198, 111, 256, 65, BS_GROUPBOX
LTEXT "FAMILIAS", 550, 6, 2, 102, 14
PUSHBUTTON "1", 201, 204, 7, 37, 24
PUSHBUTTON "7", 207, 204, 33, 37, 22
PUSHBUTTON "2", 202, 245, 7, 37, 24
PUSHBUTTON "8", 208, 245, 33, 37, 22
PUSHBUTTON "3", 203, 286, 7, 37, 23
PUSHBUTTON "9", 209, 286, 33, 37, 22
PUSHBUTTON "4", 204, 327, 7, 37, 23
PUSHBUTTON "10", 210, 327, 33, 37, 22
PUSHBUTTON "5", 205, 368, 7, 37, 23
PUSHBUTTON "11", 211, 368, 33, 37, 22
PUSHBUTTON "6", 206, 409, 7, 37, 23
PUSHBUTTON "12", 212, 409, 33, 37, 22
LTEXT "", 101, 240, 122, 18, 13, WS_BORDER | WS_GROUP
LTEXT "", 111, 240, 139, 111, 13, WS_BORDER | WS_GROUP
LTEXT "", 112, 240, 157, 18, 13, WS_BORDER | WS_GROUP
RTEXT "Boton", -1, 211, 158, 24, 9
PUSHBUTTON "&Aceptar", 301, 372, 128, 75, 38
PUSHBUTTON "&Salir", 302, 477, 374, 77, 35
RTEXT "Familia", -1, 213, 126, 22, 8
RTEXT "Icono", -1, 213, 140, 22, 8
PUSHBUTTON "13", 213, 204, 57, 37, 22
PUSHBUTTON "14", 214, 245, 57, 37, 22
PUSHBUTTON "15", 215, 286, 57, 37, 22
PUSHBUTTON "16", 216, 327, 57, 37, 22
PUSHBUTTON "17", 217, 368, 57, 37, 22
PUSHBUTTON "18", 218, 409, 57, 37, 22
PUSHBUTTON "19", 219, 204, 82, 37, 21
PUSHBUTTON "20", 220, 245, 82, 37, 21
PUSHBUTTON "21", 221, 286, 82, 37, 21
PUSHBUTTON "22", 222, 327, 82, 37, 21
PUSHBUTTON "23", 223, 368, 82, 37, 21
PUSHBUTTON "24", 224, 409, 82, 37, 21
LTEXT "", 102, 263, 122, 18, 13, WS_BORDER | WS_GROUP
LTEXT "", 103, 286, 122, 18, 13, WS_BORDER | WS_GROUP
LTEXT "", 104, 309, 122, 18, 13, WS_BORDER | WS_GROUP
LTEXT "", 105, 333, 122, 18, 13, WS_BORDER | WS_GROUP
GROUPBOX "&Nombres Familia", 114, 458, 269, 102, 98, BS_GROUPBOX
EDITTEXT 107, 464, 298, 90, 13
EDITTEXT 108, 464, 315, 90, 13
EDITTEXT 109, 464, 332, 90, 13
EDITTEXT 110, 464, 349, 90, 13
EDITTEXT 106, 464, 281, 90, 13
CONTROL "TFolder", 350, "TFolder", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 181, 445, 254
}

[Antonio Linares]

Para 32 bits tienes que modificar esta línea:

CONTROL "TFolder", 350, "TFolder", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 181, 445, 254

así:

CONTROL "SysTabControl32", 350, "TFolder", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 181, 445, 254

[ozono1981]

ESTIMADO ANTONIO.

GRACIAS POR TU AYUDA pero lo incluí y no logra mostrar ni siquiera los títulos de las FOLDER. que son 4.

como antecedentes te comento que estoy trabajando con el WorkShop y FWCTRLS.DLL instalada dentro de WORKSHOP ... desde ahí obtengo el elemento TFOLDER que cambie por que tu me comentaste... estoy haciendo algo mal??? debo ocupar otro editor de recursos? ocupo otro recurso para simular un FOLDER de verdad ya estoy algo complicado con este tema.

Agradecería me pudieses seguir ayudando.

MUCHAS GRACIAS!!!

[Antonio Linares]

Te funcionan bien otras cajas de diálogo que tengas en tu EXE ?

[karinha]

Code: Select all

ODLG_MONOS DIALOG 36, 22, 565, 441
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Familias"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 100, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 3, 19, 189, 153
 GROUPBOX "&Botones", 199, 198, -2, 256, 114, BS_GROUPBOX
 GROUPBOX "&Detalle", 198, 198, 111, 256, 65, BS_GROUPBOX
 LTEXT "FAMILIAS", 550, 6, 2, 102, 14
 PUSHBUTTON "1", 201, 204, 7, 37, 24
 PUSHBUTTON "7", 207, 204, 33, 37, 22
 PUSHBUTTON "2", 202, 245, 7, 37, 24
 PUSHBUTTON "8", 208, 245, 33, 37, 22
 PUSHBUTTON "3", 203, 286, 7, 37, 23
 PUSHBUTTON "9", 209, 286, 33, 37, 22
 PUSHBUTTON "4", 204, 327, 7, 37, 23
 PUSHBUTTON "10", 210, 327, 33, 37, 22
 PUSHBUTTON "5", 205, 368, 7, 37, 23
 PUSHBUTTON "11", 211, 368, 33, 37, 22
 PUSHBUTTON "6", 206, 409, 7, 37, 23
 PUSHBUTTON "12", 212, 409, 33, 37, 22
 LTEXT "", 101, 240, 122, 18, 13, WS_BORDER | WS_GROUP
 LTEXT "", 111, 240, 139, 111, 13, WS_BORDER | WS_GROUP
 LTEXT "", 112, 240, 157, 18, 13, WS_BORDER | WS_GROUP
 RTEXT "Boton", -1, 211, 158, 24, 9
 PUSHBUTTON "&Aceptar", 301, 372, 128, 75, 38
 PUSHBUTTON "&Salir", 302, 477, 374, 77, 35
 RTEXT "Familia", -1, 213, 126, 22, 8
 RTEXT "Icono", -1, 213, 140, 22, 8
 PUSHBUTTON "13", 213, 204, 57, 37, 22
 PUSHBUTTON "14", 214, 245, 57, 37, 22
 PUSHBUTTON "15", 215, 286, 57, 37, 22
 PUSHBUTTON "16", 216, 327, 57, 37, 22
 PUSHBUTTON "17", 217, 368, 57, 37, 22
 PUSHBUTTON "18", 218, 409, 57, 37, 22
 PUSHBUTTON "19", 219, 204, 82, 37, 21
 PUSHBUTTON "20", 220, 245, 82, 37, 21
 PUSHBUTTON "21", 221, 286, 82, 37, 21
 PUSHBUTTON "22", 222, 327, 82, 37, 21
 PUSHBUTTON "23", 223, 368, 82, 37, 21
 PUSHBUTTON "24", 224, 409, 82, 37, 21
 LTEXT "", 102, 263, 122, 18, 13, WS_BORDER | WS_GROUP
 LTEXT "", 103, 286, 122, 18, 13, WS_BORDER | WS_GROUP
 LTEXT "", 104, 309, 122, 18, 13, WS_BORDER | WS_GROUP
 LTEXT "", 105, 333, 122, 18, 13, WS_BORDER | WS_GROUP
 GROUPBOX "&Nombres Familia", 114, 458, 269, 102, 98, BS_GROUPBOX
 EDITTEXT 107, 464, 298, 90, 13
 EDITTEXT 108, 464, 315, 90, 13
 EDITTEXT 109, 464, 332, 90, 13
 EDITTEXT 110, 464, 349, 90, 13
 EDITTEXT 106, 464, 281, 90, 13
 CONTROL "SysTabControl32", 350, "TFOLDER", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 181, 445, 254
}
 

[ozono1981]

SI ANTONIO ME FUNCIONA TODO OK.

EL UNICO PROBLEMA ES EL FOLDER..

AGRADEZCO TU AYUDA POR QUE NUNCA ME HABÍA PASADO ALGO ASÍ.

[Antonio Linares]

Me confundí, hay que escribirlo asi:

CONTROL "", 350, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 181, 445, 254

[ozono1981]

ANTONIO...FUNCIONO!!!

UN GRAN ABRAZO... MUCHAS GRACIAS!!!

[Antonio Linares]

Me alegro