consulta sobre checkbox

consulta sobre checkbox

Postby Ramon Paredes » Sun Jun 03, 2007 3:46 pm

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
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Re: consulta sobre checkbox

Postby wmormar » Sun Jun 03, 2007 3:54 pm

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.
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Lo uso desde Recursos

Postby Ramon Paredes » Sun Jun 03, 2007 4:54 pm

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
... Desde la Tierra de lagos y Volcanes......
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Postby Antonio Linares » Sun Jun 03, 2007 6:09 pm

Ramón,

Muéstranos como tienes definidos los checkboxes en el RC
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42151
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

asi esta en el rc

Postby Ramon Paredes » Mon Jun 04, 2007 2:59 am

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
... Desde la Tierra de lagos y Volcanes......
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

es aqui

Postby Ramon Paredes » Mon Jun 04, 2007 3:11 am

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
... Desde la Tierra de lagos y Volcanes......
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Postby Antonio Linares » Mon Jun 04, 2007 6:12 am

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  Expand view  RUN
   ...
   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"
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42151
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

si funciona

Postby Ramon Paredes » Mon Jun 04, 2007 1:19 pm

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
... Desde la Tierra de lagos y Volcanes......
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua

Postby sysctrl2 » Mon Jun 04, 2007 3:39 pm

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..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

Postby sysctrl2 » Mon Jun 04, 2007 3:40 pm

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
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

resuelto

Postby Ramon Paredes » Mon Jun 04, 2007 9:18 pm

Cesar,

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


Ramon Paredes
Managua, Nicaragua
... Desde la Tierra de lagos y Volcanes......
User avatar
Ramon Paredes
 
Posts: 215
Joined: Fri Feb 02, 2007 3:38 pm
Location: Managua, Nicaragua


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 41 guests