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

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

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

#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

#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" 
{ 
}