Hola Denys
Espero te sirva los guiente:
1. Abre tu Bloc de Notas y pega los siguiente:
$PBExportHeader$v_drag.srw
forward
global type v_drag from window
end type
type sle_2 from singlelineedit within v_drag
end type
type sle_1 from singlelineedit within v_drag
end type
end forward
global type v_drag from window
integer width = 2533
integer height = 1408
boolean titlebar = true
string title = "d"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
sle_2 sle_2
sle_1 sle_1
end type
global v_drag v_drag
on v_drag.create
this.sle_2=create sle_2
this.sle_1=create sle_1
this.Control[]={this.sle_2,&
this.sle_1}
end on
on v_drag.destroy
destroy(this.sle_2)
destroy(this.sle_1)
end on
type sle_2 from singlelineedit within v_drag
integer x = 1303
integer y = 440
integer width = 402
integer height = 112
integer taborder = 40
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type
event dragdrop;dragobject ldo_control
ldo_control = draggedobject()
if ldo_control = sle_1 then
sle_2.text = sle_1.text
end if
end event
event dragwithin;sle_2.drag(end!)
end event
type sle_1 from singlelineedit within v_drag
event clicked pbm_lbuttonup
integer x = 1266
integer y = 232
integer width = 402
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type
event clicked;if sle_1.text <> "" then
// this.displayonly = true
this.taborder = 0
drag(begin!)
end if
end event
2. Guarda el archivo como v_drag.srw
3. Luego importa es archivo dentro de tu aplicacion.
Saludos
