consulta sobre checkbox

[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

[wmormar]

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.

[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

[Antonio Linares]

Ramón,

Muéstranos como tienes definidos los checkboxes en el RC

[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

[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

[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" 

[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

[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..

[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

[Ramon Paredes]

Cesar,

Gracias por tu recomendacion, lo probe y funciona sin problemas,


Ramon Paredes
Managua, Nicaragua