Error con la nueva pre3a

[jmartial]

Hola,
He reconstruído con la pre3a un proyecto que funcionaba y ahora da un error
muy poco descriptivo y no sé como buscarlo, adjunto error.log a ver si me
podéis decir de donde puede provenir.
Un Saludo,
Joaquín


Attached files Error.log (896 B)Â

[ignacio]

Joaquin,
El evento ONCLICK ha sido eliminado de muchos controles ya que no tenía
sentido su presencia, siendo preferible utilizar los eventos OnLButtonDown y
similares.
Parece que tenías sobrecargado el envento OnClick en el propio formulario.
¿Es posible?
Si lo es sencillamente mueve el código al evento OnLButtonDown
Un saludo,
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:4291b34b$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> He reconstruído con la pre3a un proyecto que funcionaba y ahora da un
> error
> muy poco descriptivo y no sé como buscarlo, adjunto error.log a ver si me
> podéis decir de donde puede provenir.
>
> Un Saludo,
> Joaquín
>
>
>

[jmartial]

Ignacio,
No he sobrecargado ese evento, lo que sí he hecho es en un control gráfica
que he construído derivado de "XWinControl" y donde defino OnClick´s sobre
controles BtnBmp. ¿ Ha cambiado algo por ahí?
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:[email=4291b40d@ozsrvnegro.ozlan.local...]4291b40d@ozsrvnegro.ozlan.local...[/email]
> Joaquin,
>
> El evento ONCLICK ha sido eliminado de muchos controles ya que no tenía
> sentido su presencia, siendo preferible utilizar los eventos OnLButtonDown
y
> similares.
>
> Parece que tenías sobrecargado el envento OnClick en el propio formulario.
> ¿Es posible?
>
> Si lo es sencillamente mueve el código al evento OnLButtonDown
>
> Un saludo,
>
>
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:4291b34b$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Hola,
> >
> > He reconstruído con la pre3a un proyecto que funcionaba y ahora da un
> > error
> > muy poco descriptivo y no sé como buscarlo, adjunto error.log a ver si
me
> > podéis decir de donde puede provenir.
> >
> > Un Saludo,
> > Joaquín
> >
> >
> >
>
>

[jmartial]

Ignacio,
He repasado todo el código y en los únicos controles que se llama al click
son TButtons y TbtnBmp, de la siguiente manera:
WITH OBJECT ::oSaveEmfDisk := TBtnBmp():New( Self )
:SetBounds( nLeftBtn , nTopBtn , nWidthBtn , nHeightBtn )
:cText := ""
:cTooltip:= "Guarda EMF en un fichero"
:SetBitmaps( {"Floppy"} )
:nAnchors := akTOPLEFTBOTTOM
:OnClick := { |oSender| oSender:oParent:CopyEmfToDisk() }
:Create()
nBotonVisibles++
nLeftBtn := nPxSepara+(nWidthBtn+nPxSepara)*nBotonVisibles
END
Y basicamente así lo uso, quitando los TButtons que los uso como métodos
clickeados desde el IDE. Así:
METHOD Button2Click( oSender ) CLASS TForm1
::lStop := .T.
RETURN Nil
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:[email=4291b40d@ozsrvnegro.ozlan.local...]4291b40d@ozsrvnegro.ozlan.local...[/email]
> Joaquin,
>
> El evento ONCLICK ha sido eliminado de muchos controles ya que no tenía
> sentido su presencia, siendo preferible utilizar los eventos OnLButtonDown
y
> similares.
>
> Parece que tenías sobrecargado el envento OnClick en el propio formulario.
> ¿Es posible?
>
> Si lo es sencillamente mueve el código al evento OnLButtonDown
>
> Un saludo,
>
>
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:4291b34b$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Hola,
> >
> > He reconstruído con la pre3a un proyecto que funcionaba y ahora da un
> > error
> > muy poco descriptivo y no sé como buscarlo, adjunto error.log a ver si
me
> > podéis decir de donde puede provenir.
> >
> > Un Saludo,
> > Joaquín
> >
> >
> >
>
>

[jfgimenez]

Joaquín,
abre el fichero .xfm con algún editor de texto y mira la línea 50. Esa es la
línea que tendrías que eliminar, ya que tiene que corresponder a la
asignación de un evento OnClick de uno de los controles donde se ha
eliminado. Si crees que el control en cuestión debería tener ese evento,
dínoslo.
--
Un saludo,
José F. Giménez

[jmartial]

Jose,
Esto es lo que hay en el .XFM
WITH OBJECT ::oButton1 := TButton():New( Self )
:SetBounds( 277, 605, 98, 50 )
:cText := "&Procesar"
:OnClick := "Button1Click" <----------------- Esta es la
línea 50
:Create()
END
Creo que os habéis pasado si habéis quitado el click en el TButton. Ahora si
es por otro motivo, cuentameló .
Un Saludo,
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:4291c3fc$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Joaquín,
>
> abre el fichero .xfm con algún editor de texto y mira la línea 50. Esa es
la
> línea que tendrías que eliminar, ya que tiene que corresponder a la
> asignación de un evento OnClick de uno de los controles donde se ha
> eliminado. Si crees que el control en cuestión debería tener ese evento,
> dínoslo.
>
> --
> Un saludo,
>
> José F. Giménez
>
>

[ignacio]

Joaquín,
> Creo que os habéis pasado si habéis quitado el click en el TButton.
;-)) Te aseguro que al TButton no se lo hemos quitado. Por favor comprueba
que ves el evento OnClick en el inspector.
Me he quedado de piedra con tu error. No se que puede estar pasando.
Sería posible que nos enviaron un proyecto que reprodujese el error. Gracias
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:4291f554$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Jose,
>
> Esto es lo que hay en el .XFM
>
> WITH OBJECT ::oButton1 := TButton():New( Self )
> :SetBounds( 277, 605, 98, 50 )
> :cText := "&Procesar"
> :OnClick := "Button1Click" <----------------- Esta es la
> línea 50
> :Create()
> END
>
>
> Creo que os habéis pasado si habéis quitado el click en el TButton. Ahora
> si
> es por otro motivo, cuentameló .
>
> Un Saludo,
> Joaquín
>
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:4291c3fc$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Joaquín,
>>
>> abre el fichero .xfm con algún editor de texto y mira la línea 50. Esa es
> la
>> línea que tendrías que eliminar, ya que tiene que corresponder a la
>> asignación de un evento OnClick de uno de los controles donde se ha
>> eliminado. Si crees que el control en cuestión debería tener ese evento,
>> dínoslo.
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>>
>>
>
>

[jmartial]

Hola,
Solucionado!!!
El problema era que antes de la pre3 fuisteis dejando Tbutton.obj, y otros
OBJ´s en las news para arreglar los fallos que iban surgiendo, estaba
linkando estos obj´s con el nuevo xailer, cuando le he dicho que no los
linke todo ha vuelto a la normalidad.
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42920203$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Joaquín,
>
> > Creo que os habéis pasado si habéis quitado el click en el TButton.
>
> ) Te aseguro que al TButton no se lo hemos quitado. Por favor comprueba
> que ves el evento OnClick en el inspector.
>
> Me he quedado de piedra con tu error. No se que puede estar pasando.
>
> Sería posible que nos enviaron un proyecto que reprodujese el error.
Gracias
>
>
> "Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
> news:4291f554$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Jose,
> >
> > Esto es lo que hay en el .XFM
> >
> > WITH OBJECT ::oButton1 := TButton():New( Self )
> > :SetBounds( 277, 605, 98, 50 )
> > :cText := "&Procesar"
> > :OnClick := "Button1Click" <----------------- Esta es
la
> > línea 50
> > :Create()
> > END
> >
> >
> > Creo que os habéis pasado si habéis quitado el click en el TButton.
Ahora
> > si
> > es por otro motivo, cuentameló .
> >
> > Un Saludo,
> > Joaquín
> >
> >
> > "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
mensaje
> > news:4291c3fc$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> >> Joaquín,
> >>
> >> abre el fichero .xfm con algún editor de texto y mira la línea 50. Esa
es
> > la
> >> línea que tendrías que eliminar, ya que tiene que corresponder a la
> >> asignación de un evento OnClick de uno de los controles donde se ha
> >> eliminado. Si crees que el control en cuestión debería tener ese
evento,
> >> dínoslo.
> >>
> >> --
> >> Un saludo,
> >>
> >> José F. Giménez
> >>
> >>
> >
> >
>
>