Problema para utilizar la clase tfolder

[Erick Almanza]

Amigos del foro

Tengo problemas al utilizar folder definidos en .rc
aparecen des habilitados.
Queria saber si alguien ha tenido problemas usandolos
Si los creo sin utilizar .rc me funcionan bien

Espero que entiendan mi dudas

gracias

Saludos,
erick almanza

[joseluisysturiz]

Que editor de recursos estas usando.... en algunos debes hacer un cambio de SYSTABCONTROLO32 o algo asi... yo uso Pelles C y no le hice inigun tipo de cambio y funcionan super...

[Antonio Linares]

Erick,

Comprueba que esten definidos como SysTabControl32 y no como TFolder, en el RC

[Erick Almanza]

Hola Antonio


Como defino este control ?



Utilizo Workshop
FWH 8.4


Saludos,
Erick

[jrestojeda]

Hola Erick.
Para eso debes editar el archivo RC en modo texto y solo cambiar TFolder por SystabControl32. Luego compilas el RC nuevamente y listo.

Asi es como debes tener ahora:

Code: Select all  Expand view  RUN

FOLDERS DIALOG DISCARDABLE -19, 36, 432, 361
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Sans Serif"
BEGIN
  CONTROL "", 1000, "TFolder", WS_TABSTOP, 3, 2, 426, 318
  CONTROL "", 200, "TBtnBmp", 0x00000000, 111, 332, 51, 23
  CONTROL "", 201, "TBtnBmp", 0x00000000, 269, 332, 51, 23
END


Debes cambiarlo de este modo:

Code: Select all  Expand view  RUN

FOLDERS DIALOG DISCARDABLE -19, 36, 432, 361
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Sans Serif"
BEGIN
  CONTROL "", 1000, "SysTabControl32", WS_TABSTOP, 3, 2, 426, 318
  CONTROL "", 200, "TBtnBmp", 0x00000000, 111, 332, 51, 23
  CONTROL "", 201, "TBtnBmp", 0x00000000, 269, 332, 51, 23
END


Espero te sirva.
Saludos. Desde Argentina, Esteban.

[Antonio Linares]

Erick,

Le das al botón que tiene una "llave" (custom control) igual que haces para TWBrowse, etc.

Y escribes como nombre "SysTabControl32"

[Antonio Linares]

Eric,

Aqui tienes un ejemplo:

test.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, oFld
   
   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE FOLDER oFld ;
      PROMPTS "One", "Two", "three" ;
      DIALOGS "One", "Two", "Three" ;
      ID 100 OF oDlg
     
   ACTIVATE DIALOG oDlg CENTERED

return nil


test.rc

Code: Select all  Expand view  RUN

#ifdef __FLAT__
   1 24 "WindowsXP.Manifest"
#endif

test DIALOG 17, 36, 185, 147
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 6, 175, 117
DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14
}

one DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
}

two DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
}

three DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
}