Page 1 of 1
consulta sobre checkbox
Posted: Sun Jun 03, 2007 3:46 pm
by Ramon Paredes
Saludes a Todos en el Foro,
Tengo una aplicacion que he migrado a 32 bits FWH+xHarbour 0.99.71 la compilacion y enlazado no hubo problemas, el hecho es que al correrla todos los dialogos que tiene checkbox me generan error y los folders no me los presenta, estos recursos los hice en Workshop de borland,
Que puedo hacer, cualquier recomendacion es valida
Gracias y felicidades antonio por el nivel de actividad de fivetechsoft.com
Ramon Paredes
Managua, Nicaragua
Re: consulta sobre checkbox
Posted: Sun Jun 03, 2007 3:54 pm
by wmormar
Ramon Paredes wrote:Saludes a Todos en el Foro,
Tengo una aplicacion que he migrado a 32 bits FWH+xHarbour 0.99.71 la compilacion y enlazado no hubo problemas, el hecho es que al correrla todos los dialogos que tiene checkbox me generan error y los folders no me los presenta, estos recursos los hice en Workshop de borland,
Que puedo hacer, cualquier recomendacion es valida
Gracias y felicidades antonio por el nivel de actividad de fivetechsoft.com
Ramon Paredes
Managua, Nicaragua
Ramón,
seria necesario ver como redefines los checkbox o el codigo de como creas el dialogo.
Lo uso desde Recursos
Posted: Sun Jun 03, 2007 4:54 pm
by Ramon Paredes
William,
Lo uso desde recursos del broland, y en el programa lo defino asi
local oCk1,mCk1,oDlg,oNumero,mNumero
mCk1 = .f.
mNumero = space(5)
DEFINE DIALOG oDlg RESOURCE 20
REDEFINE GET oNumero Var mNumero ID 109 of oDlg
REDEFINE CHECKBOX oCk1 Var mCk1 ID 110 of oDlg
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
asi cada uno de ellos
Posted: Sun Jun 03, 2007 6:09 pm
by Antonio Linares
Ramón,
Muéstranos como tienes definidos los checkboxes en el RC
asi esta en el rc
Posted: Mon Jun 04, 2007 2:59 am
by Ramon Paredes
Antonio ,
En el RC esta definido asi :
DIALOG_21 DIALOG 64, 89, 305, 175
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Grabación del Catalogo de Cuentas"
FONT 8, "Microsoft Sans Serif"
{
EDITTEXT IDC_EDIT70, 77, 25, 60, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT32, 77, 41, 196, 12, WS_BORDER | WS_TABSTOP
COMBOBOX IDC_COMBOBOX2, 77, 56, 81, 22, CBS_DROPDOWNLIST | WS_TABSTOP
COMBOBOX IDC_COMBOBOX5, 77, 73, 193, 26, CBS_DROPDOWNLIST | WS_TABSTOP
CONTROL "Codigo:", -1, "BorStatic", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 26, 39, 11
CONTROL "Nombre:", -1, "BorStatic", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 42, 36, 11
CONTROL "Naturaleza:", -1, "BorStatic", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 57, 42, 12
CONTROL "Rubro", -1, "BorStatic", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 76, 36, 10
PUSHBUTTON "&Aceptar", IDC_PUSHBUTTON23, 96, 137, 51, 15
PUSHBUTTON "&Cancelar", IDC_PUSHBUTTON24, 169, 137, 51, 15
CHECKBOX " Afectar Via Comprobante", IDC_CHECKBOX2, 33, 105, 105, 12, BS_AUTOCHECKBOX | WS_TABSTOP
}
tengo cerca de 60 recursos en el RC, algunos como este usan Checkbox y en algunos uso los controles de FwControl ( la lib ), lo raro es que la compilacion y el enlazado no dan problemas, el problema que me da es de error de excepcion de harbour
Lo mismo sucede con los folders no me los presenta
Agradeciendote,
Ramon Paredes
Managua, Nicaragua
es aqui
Posted: Mon Jun 04, 2007 3:11 am
by Ramon Paredes
Antonio,
Revisando, es exactamente donde activo el dialogo (Activate dialog) donde se ubica el error de excepcion de harbour y no crea ningun log ni nada con el error.
Gracias de nuevo
Ramon Paredes
Posted: Mon Jun 04, 2007 6:12 am
by Antonio Linares
Estás usando controles de Borland en tu RC, tienes que usar este código en tu programa, y usar la BWCC32.DLL:
Code: Select all
...
local hBorland := LoadLibrary( "BWCC32.DLL" )
BWCCRegister( GetResources() )
... (código de tu aplicación)
FreeLibrary( hBorland )
return nil
DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"
si funciona
Posted: Mon Jun 04, 2007 1:19 pm
by Ramon Paredes
Antonio,
Gracias por tu ayuda, se soluciono el problema de los checkbox como indicaste, me podrias orientar como hago con los folder que no me los presenta, (aun con la modificacion que me indicaste) el rc donde tengo folder es :
DIALOG_38 DIALOG 17, 56, 375, 204
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Tablas y Catalogos de Contabilidad"
FONT 8, "MS Sans Serif"
{
CONTROL "TFolder", 121, "TFolder", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 8, 9, 362, 188
}
y desde el programa lo invoco normal :
DEFINE DIALOG oDlg RESOURCE 38 FONT oFont1
REDEFINE FOLDER oFolder ID 121 OF oDlg ;
PROMPTS "Catalogo","Cuentas","Documentos","Tasa/Cambio","Tabla EEFF","Firmas Aut." DIALOGS 25, 25, 25, 25, 25,25
SELECT CATALOGO
REDEFINE BROWSE oBrw ID 120 of oFolder:aDialogs[1]
ADD COLUMN TO BROWSE oBrw ;
DATA CATALOGO->CODIGO ;
HEAD "Codigo" ;
OEM WIDTH 120 ;
COLOR CLR_GREEN;
PICTURE "@R 999-99-99999999"
ADD COLUMN TO BROWSE oBrw ;
DATA OemToAnsi(CATALOGO->NOMBRE) ;
HEAD "Descripcion " ;
OEM WIDTH 300 ;
COLOR CLR_RED
ADD COLUMN TO BROWSE oBrw ;
DATA CATALOGO->NATURAL ;
HEAD "Naturaleza " ;
OEM WIDTH 100 ;
COLOR CLR_BLUE
ADD COLUMN TO BROWSE oBrw ;
DATA CATALOGO->EEFF ;
HEAD "EEFF" ;
OEM WIDTH 100 ;
COLOR CLR_RED
REDEFINE BUTTON ID 102 of oFolder:aDialogs[1] ACTION EditC1(.T.)
REDEFINE BUTTON ID 103 of oFolder:aDialogs[1] ACTION EditC1(.F.)
REDEFINE BUTTON ID 104 of oFolder:aDialogs[1] ACTION BorraC1()
REDEFINE BUTTON ID 105 of oFolder:aDialogs[1] ACTION Busca1()
REDEFINE BUTTON ID 106 of oFolder:aDialogs[1] ACTION oDlg:End() CANCEL
tengo seis pestañas que de inicio presentan un browse, y despues con los botones de la derecha ( Agregar, Modificar etc.) invoca sus dialogos respectivos, el folder no se ve y no hay errores en la compilacion y enlazado
Saludes, y nuevamente gracias
Ramon Paredes
Managua, Nicaragua
Posted: Mon Jun 04, 2007 3:39 pm
by sysctrl2
Ramon,
modificar el control, en tu rc, en lugar de tfolder utiliza
"SYSTABCONTROL32"
estoy hay que hacerlo en todos tus dialogos donde usar el control
tfolder
saludos..
Posted: Mon Jun 04, 2007 3:40 pm
by sysctrl2
CONTROL "", 110, "SYSTABCONTROL32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 4, 480, 235
USERBUTTON "&Guardar", 201, 237, 245, 81, 24
USERBUTTON "&Cancelar", 202, 321, 245, 83, 24
resuelto
Posted: Mon Jun 04, 2007 9:18 pm
by Ramon Paredes
Cesar,
Gracias por tu recomendacion, lo probe y funciona sin problemas,
Ramon Paredes
Managua, Nicaragua