Funciona DragDrop en TBrowse

[jmartial]

Hola,
Estaba probando el drag&drop pero en un tbrowse, y el evento EndDrag nunca
salta ¿se puede hacer igual que en otros controles?
Un Saludo,
Joaquín

[jose.luis]

Joaquín,
>
> Estaba probando el drag&drop pero en un tbrowse, y el evento EndDrag nunca
> salta ¿se puede hacer igual que en otros controles?
>
Yo estoy usando drag&drop entre distintos controles y tambien dentro de un
tdbBrowse sin mayor problema. ¿Podemos ver como lo haces?
Saludos,
José Luis Capel

[jmartial]

Jose,
::oBrwSoftware:OnBeginDrag := { |oBrw| ::oLabel44:cText := "Comienza
drag" }
::oBrwSoftware:OnDragOver := { |oSender,oFrom| ::oLabel44:cText := "Sobre
drag" }
::oBrwSoftware:OnEndDrag := { |oSender,oBrw|
msginfo("Soltado"),::oLabel44:cText := "Fin drag" }
Esto funciona con otros controles, pero con TBrowse sólo pinta el
OnBeginDrag.
Aparte, ¿Cómo cambias el cursor?
Un Saludo,
Joaquín
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44f3f2c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Joaquín,
>
>>
>> Estaba probando el drag&drop pero en un tbrowse, y el evento EndDrag
>> nunca salta ¿se puede hacer igual que en otros controles?
>>
>
> Yo estoy usando drag&drop entre distintos controles y tambien dentro de un
> tdbBrowse sin mayor problema. ¿Podemos ver como lo haces?
>
> Saludos,
> José Luis Capel
>

[jose.luis]

Joaquín,
>
> ::oBrwSoftware:OnBeginDrag := { |oBrw| ::oLabel44:cText := "Comienza
> drag" }
> ::oBrwSoftware:OnDragOver := { |oSender,oFrom| ::oLabel44:cText := "Sobre
> drag" }
> ::oBrwSoftware:OnEndDrag := { |oSender,oBrw|
> msginfo("Soltado"),::oLabel44:cText := "Fin drag" }
Yo lo tengo hecho de la siguiente manera:
WITH OBJECT ::odbVista := TDBBrowse():New( ::oPanel2 )
:SetBounds( 0, 30, 769, 440 )
:nAlign := alCLIENT
WITH OBJECT :oImageList
:nWidth := 16
:nHeight := 16
:Add( "BTNMENSAJEVERDE16" )
:Add( "BTNMENSAJEROJO16" )
END
WITH OBJECT TBrwRecSel():New( ::odbVista )
:nWidth := 24
:Create()
END
:oDataSet := ::oClientesVista
:OnChange := "dbVistaChange"
:OnBeginDrag := "dbVistaBeginDrag"
:OnEndDrag := "dbVistaEndDrag"
:OnDragOver := "dbVistaDragOver"
:Create()
END
Y tengo los métodos dbVistaChange(oSender, oFrom), dbVistaBeginDrag,
dbVistaEndDrag como métodos del formulario. Este sistema hace que funcione
más deprisa y no se 'atrase' la ejecución. Por otra parte, para cambiar el
cursor, en el evento over del control que me interesa hago esto:
Screen:oCursorDropYes := ::oMiCursor. En el samplesDragDrop viene un
ejemplo de todo esto.
Saludos,
José Luis Capel
>
>
> Esto funciona con otros controles, pero con TBrowse sólo pinta el
> OnBeginDrag.
> Aparte, ¿Cómo cambias el cursor?
>
> Un Saludo,
> Joaquín
>
>
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:44f3f2c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Joaquín,
>>
>>>
>>> Estaba probando el drag&drop pero en un tbrowse, y el evento EndDrag
>>> nunca salta ¿se puede hacer igual que en otros controles?
>>>
>>
>> Yo estoy usando drag&drop entre distintos controles y tambien dentro de
>> un tdbBrowse sin mayor problema. ¿Podemos ver como lo haces?
>>
>> Saludos,
>> José Luis Capel
>>
>
>

[jmartial]

Jose,
Te vuelvo a comentar lo mismo, los eventos OnDragOver y OnEndDrag NUNCA
saltan, es un Datacontrol TDBrowse.
¿¿ Lo del cursor lo haces en el OnDragOver no en el OnBeginDrag ??
Un Saludo,
Joaquín
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=44f3fd95@news.xailer.com...]44f3fd95@news.xailer.com...[/email]
> Joaquín,
>
>>
>> ::oBrwSoftware:OnBeginDrag := { |oBrw| ::oLabel44:cText := "Comienza
>> drag" }
>> ::oBrwSoftware:OnDragOver := { |oSender,oFrom| ::oLabel44:cText :=
>> "Sobre drag" }
>> ::oBrwSoftware:OnEndDrag := { |oSender,oBrw|
>> msginfo("Soltado"),::oLabel44:cText := "Fin drag" }
>
>
> Yo lo tengo hecho de la siguiente manera:
>
> WITH OBJECT ::odbVista := TDBBrowse():New( ::oPanel2 )
> :SetBounds( 0, 30, 769, 440 )
> :nAlign := alCLIENT
> WITH OBJECT :oImageList
> :nWidth := 16
> :nHeight := 16
> :Add( "BTNMENSAJEVERDE16" )
> :Add( "BTNMENSAJEROJO16" )
> END
> WITH OBJECT TBrwRecSel():New( ::odbVista )
> :nWidth := 24
> :Create()
> END
>
> :oDataSet := ::oClientesVista
> :OnChange := "dbVistaChange"
> :OnBeginDrag := "dbVistaBeginDrag"
> :OnEndDrag := "dbVistaEndDrag"
> :OnDragOver := "dbVistaDragOver"
> :Create()
> END
>
> Y tengo los métodos dbVistaChange(oSender, oFrom), dbVistaBeginDrag,
> dbVistaEndDrag como métodos del formulario. Este sistema hace que
> funcione más deprisa y no se 'atrase' la ejecución. Por otra parte, para
> cambiar el cursor, en el evento over del control que me interesa hago
> esto: Screen:oCursorDropYes := ::oMiCursor. En el samplesDragDrop viene
> un ejemplo de todo esto.
>
> Saludos,
> José Luis Capel
>
>>
>>
>> Esto funciona con otros controles, pero con TBrowse sólo pinta el
>> OnBeginDrag.
>> Aparte, ¿Cómo cambias el cursor?
>>
>> Un Saludo,
>> Joaquín
>>
>>
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:44f3f2c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Joaquín,
>>>
>>>>
>>>> Estaba probando el drag&drop pero en un tbrowse, y el evento EndDrag
>>>> nunca salta ¿se puede hacer igual que en otros controles?
>>>>
>>>
>>> Yo estoy usando drag&drop entre distintos controles y tambien dentro de
>>> un tdbBrowse sin mayor problema. ¿Podemos ver como lo haces?
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>
>>
>
>

[jose.luis]

Joaquín,
>
> Te vuelvo a comentar lo mismo, los eventos OnDragOver y OnEndDrag NUNCA
> saltan, es un Datacontrol TDBrowse.
>
¿Puedes mandar un pequeño proyecto autocontenido donde se muestre ese
comportamiento? Es que en mis pruebas y en mi aplicación me está
funcionando perfectamente.
>
> ¿¿ Lo del cursor lo haces en el OnDragOver no en el OnBeginDrag ??
>
Si... en el dragover.
Saludos,
José Luis Capel

[ignacio]

Joaquin,
Como comenta José Luis, mandanos un pequeño ejemplo y podrmos ayudarte.
Acabo de incluir un browse al ejemplo de Drag&Drop y funciona perfectemente.
Gracias.
Saludos,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=44f41734@news.xailer.com...]44f41734@news.xailer.com...[/email]
> Joaquín,
>
>
>>
>> Te vuelvo a comentar lo mismo, los eventos OnDragOver y OnEndDrag NUNCA
>> saltan, es un Datacontrol TDBrowse.
>>
>
>
> ¿Puedes mandar un pequeño proyecto autocontenido donde se muestre ese
> comportamiento? Es que en mis pruebas y en mi aplicación me está
> funcionando perfectamente.
>
>>
>> ¿¿ Lo del cursor lo haces en el OnDragOver no en el OnBeginDrag ??
>>
> Si... en el dragover.
>
> Saludos,
> José Luis Capel
>
>

[jmartial]

Ignacio,
No se reproducir el error, es un TDBrowse dentro de un folder, es un
proyecto con muchas cosas.
No obstante, te agradecería si me pudieras enviar ese ejemplo que te
funciona y lo intento igual en el mío.
Un Saludo,
Joaquín
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:44f41fe3$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Joaquin,
>
> Como comenta José Luis, mandanos un pequeño ejemplo y podrmos ayudarte.
> Acabo de incluir un browse al ejemplo de Drag&Drop y funciona
> perfectemente. Gracias.
>
> Saludos,
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=44f41734@news.xailer.com...]44f41734@news.xailer.com...[/email]
>> Joaquín,
>>
>>
>>>
>>> Te vuelvo a comentar lo mismo, los eventos OnDragOver y OnEndDrag NUNCA
>>> saltan, es un Datacontrol TDBrowse.
>>>
>>
>>
>> ¿Puedes mandar un pequeño proyecto autocontenido donde se muestre ese
>> comportamiento? Es que en mis pruebas y en mi aplicación me está
>> funcionando perfectamente.
>>
>>>
>>> ¿¿ Lo del cursor lo haces en el OnDragOver no en el OnBeginDrag ??
>>>
>> Si... en el dragover.
>>
>> Saludos,
>> José Luis Capel
>>
>>
>
>

[ignacio]

Joaquin,
Lo único que hecho es incluir un Browse en el ejemplo de Drag & Drop y a
continuación sobrecargar los eventos de la misma manera que tiene el
listbox. Eso es todo.
Un saludo
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:44f4b79b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ignacio,
>
> No se reproducir el error, es un TDBrowse dentro de un folder, es un
> proyecto con muchas cosas.
>
> No obstante, te agradecería si me pudieras enviar ese ejemplo que te
> funciona y lo intento igual en el mío.
>
> Un Saludo,
> Joaquín
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:44f41fe3$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Joaquin,
>>
>> Como comenta José Luis, mandanos un pequeño ejemplo y podrmos ayudarte.
>> Acabo de incluir un browse al ejemplo de Drag&Drop y funciona
>> perfectemente. Gracias.
>>
>> Saludos,
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:[email=44f41734@news.xailer.com...]44f41734@news.xailer.com...[/email]
>>> Joaquín,
>>>
>>>
>>>>
>>>> Te vuelvo a comentar lo mismo, los eventos OnDragOver y OnEndDrag NUNCA
>>>> saltan, es un Datacontrol TDBrowse.
>>>>
>>>
>>>
>>> ¿Puedes mandar un pequeño proyecto autocontenido donde se muestre ese
>>> comportamiento? Es que en mis pruebas y en mi aplicación me está
>>> funcionando perfectamente.
>>>
>>>>
>>>> ¿¿ Lo del cursor lo haces en el OnDragOver no en el OnBeginDrag ??
>>>>
>>> Si... en el dragover.
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>>
>>
>>
>
>

[jfgimenez]

Joaquín,
> ::oBrwSoftware:OnBeginDrag := { |oBrw| ::oLabel44:cText := "Comienza
> drag" }
tienes que retornar .T. desde el evento para que se active la operación de
drag&drop. Cambialo así:
::oBrwSoftware:OnBeginDrag := { |oBrw| ::oLabel44:cText := "Comienza
drag", .T. }
--
Un saludo,
José F. Giménez
http://www.xailer.com