Page 1 of 1
Problema para utilizar la clase tfolder
Posted: Tue Oct 14, 2008 1:12 am
by 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
Posted: Tue Oct 14, 2008 7:30 am
by 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...
Posted: Tue Oct 14, 2008 7:42 am
by Antonio Linares
Erick,
Comprueba que esten definidos como SysTabControl32 y no como TFolder, en el RC
Antonio como defino systabcontrol32
Posted: Tue Oct 14, 2008 12:31 pm
by Erick Almanza
Hola Antonio
Como defino este control ?
Utilizo Workshop
FWH 8.4
Saludos,
Erick
Posted: Tue Oct 14, 2008 12:59 pm
by 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.
Posted: Tue Oct 14, 2008 10:11 pm
by 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"
Posted: Tue Oct 14, 2008 10:14 pm
by 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"
{
}