This is a multi-part message in MIME format.
------=_NextPart_000_0009_01C51F5F.6B38DCD0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000A_01C51F5F.6B38DCD0"
------=_NextPart_001_000A_01C51F5F.6B38DCD0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Carlos,=20
Espero haber comprendido exactamente lo que desea hacer. En caso =
contrario le ruego que me mande un proyecto con exactamente lo que desea =
hacer e indicando que es lo que no le funciona exactamente.
Un Saludo
"Ignacio Ortiz de Z=FA=F1iga" <
InvalidAccount@ozs.com> escribi=F3 en =
el mensaje news:4224c17e$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
Carlos,=20
No entiendo a que se refiere cuando dice que activa un Browse en el =
mismo formulario:
=BFEsta oculto y lo muestra?
=BFO simplemente le pasa el foco?
=BFO le cambia el tama=F1o?
=BFO realmente est=E1 lanzando un nuevo formulario con el Brw como le =
comente yo en mi anterior mensaje?
A que se refiere cuando dice que le limpie o quite el brow:
=BFA ocultarlo?
=BFO realmente quiere sencillamente cerrar el nuevo formulario que se =
ha abierto con el Brw?
Para ejecutar cualquier c=F3digo cuando se pulsa el bot=F3n derecho =
del rat=F3n en un control deber=E1 capturar el evento OnContextMenu, =
OnRButtonDown, o OnRButtonUp, siendo el primero el m=E1s apropiado si =
piensa mostrar un men=FA contextual.
Saludos
"Carlos Cede=F1o Vera" <
carlos@labodegadeclimas.com> escribi=F3 en el =
mensaje news:[email=
42249f6b@ozsrv2.ozlan.local...]
42249f6b@ozsrv2.ozlan.local...[/email]
> Mira,, tengo que en el mismo formulario, yo tengo un oEditUser y al =
lado un
> boton del ToolBar, cuando yo doy click en el boton, activo un objeto =
brow
> dentro del mismo formulario, quiero ahora, que me retorne el Valor =
escogido
> en el brow y me lo deposite en el oEditUser, ademas de que me limpie =
o me
> quite el brow al regresarme el valor,, eso tambien quiero hacerlo =
cuando
> teclee el click derecho sobre el oEditUser.
>=20
> El ejemplo del Browse, lo envie en el mensaje anterior
>=20
> Gracias
> "Ignacio Ortiz de Z=FA=F1iga" <
InvalidAccount@ozs.com> escribi=F3 en =
el mensaje
> news:422464e3$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> No se si entiendo que es lo que quiere hacer. En principio parece =
que
> tiene
>> un formulario con un TEdit y un bot=F3n. En la acci=F3n de dicho =
bot=F3n muestra
>> un segundo formulario con un Browse, y supongo que a la salida del =
segundo
>> formulario desea que el actual valor de alguna columna del browse =
se
>> incruste en el campo TEdit del primer formulario.
>>
>> =BFEs correcto?
>>
>> Gracias
>>
>> "Carlos Cede=F1o Vera" <
carlos@labodegadeclimas.com> escribi=F3 en =
el mensaje
>> news:4223b028$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>> > Tengo un oEditUser, donde tecleo la clave de Usuario
>> > Pero tambien tengo un boton que me abre un objecto TdbfBrow, como =
le
> hago
>> > para que del :oBfUSer que es mi objecto tdbfbrowse me returne el =
Valor
> al
>> > oEditUser???
>> >
>> > Tengo esto
>> >
>> > WITH OBJECT ::oBrUser :=3D TDbfBrowse():New(Self)
>> > :nMarqueeStyle :=3D bmHIGHLROWMS
>> > :SetBounds( 80, 92, 230, 120 )
>> > WITH OBJECT TBrwRecSel():New( ::oBrUser )
>> > :nWidth :=3D 24
>> > :Create()
>> > END
>> > :nRowHeight :=3D 18
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader :=3D "ID"
>> > :nWidth :=3D 57
>> > :cFieldName :=3D "IDUSUARIO"
>> > :Create()
>> > :OnGetData :=3D { |o, c, n| c :=3D ::oDbfDS2:IDUSUARIO }
>> > END
>> >
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader :=3D "NOMBRE"
>> > :nWidth :=3D 129
>> > :cFieldName :=3D "NOMBRE"
>> > :Create()
>> > :OnGetData :=3D { |o, c, n| c :=3D ::oDbfDS2:Nombre }
>> > END
>> > WITH OBJECT :oImageList
>> > :nWidth :=3D 16
>> > :nHeight :=3D 16
>> > :Add( "Usuario" )
>> > END
>> > :cAlias :=3D"Usuarios"
>> > :SetDbf("Usuarios")
>> > :Create()
>> > End WITH
>> >
>> > Gracias de antemanos
>> >
>> >
>>
>>
>=20
>
------=_NextPart_001_000A_01C51F5F.6B38DCD0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2604" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Carlos, </FONT></DIV>
<DIV><FONT size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2>Espero haber comprendido exactamente lo que desea =
hacer. En=20
caso contrario le ruego que me mande un proyecto con exactamente lo que =
desea=20
hacer e indicando que es lo que no le funciona exactamente.</FONT></DIV>
<DIV><FONT size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2>Un Saludo</FONT></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:
InvalidAccount@ozs.com">
InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:4224c17e$
1@ozsrv2.ozlan.local">news:4224c17e$[email=
1@ozsrv2.ozlan.]
1@ozsrv2.ozlan.[/email]=
local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Carlos, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No entiendo a que se refiere cuando =
dice que=20
activa un Browse <STRONG><FONT color=3D#ff0000>en el mismo=20
formulario</FONT></STRONG>:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFEsta oculto y lo =
muestra?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFO simplemente le pasa el =
foco?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFO le cambia el =
tama=F1o?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>=BFO realmente est=E1 =
lanzando un nuevo=20
formulario con el Brw como le comente yo en mi anterior=20
mensaje?</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>A que se refiere cuando dice que le =
limpie o=20
quite el brow:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFA ocultarlo?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>=BFO realmente quiere =
sencillamente cerrar=20
el nuevo formulario que se ha abierto con el =
Brw?</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Para ejecutar cualquier c=F3digo =
cuando se pulsa el=20
bot=F3n derecho del rat=F3n en un control deber=E1 capturar el evento =
OnContextMenu,=20
OnRButtonDown, o OnRButtonUp, siendo el primero el m=E1s apropiado si =
piensa=20
mostrar un men=FA contextual.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Carlos Cede=F1o Vera" <</FONT><A=20
href=3D"mailto:
carlos@labodegadeclimas.com"><FONT face=3DArial=20
size=3D2>
carlos@labodegadeclimas.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje </FONT><A =
href=3D"news:
42249f6b@ozsrv2.ozlan.local"><FONT=20
face=3DArial size=3D2>news:
42249f6b@ozsrv2.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> Mira,, tengo =
que en el=20
mismo formulario, yo tengo un oEditUser y al lado un<BR>> boton del =
ToolBar, cuando yo doy click en el boton, activo un objeto =
brow<BR>> dentro=20
del mismo formulario, quiero ahora, que me retorne el Valor =
escogido<BR>>=20
en el brow y me lo deposite en el oEditUser, ademas de que me limpie o =
me<BR>> quite el brow al regresarme el valor,, eso tambien quiero =
hacerlo=20
cuando<BR>> teclee el click derecho sobre el oEditUser.<BR>> =
<BR>> El=20
ejemplo del Browse, lo envie en el mensaje anterior<BR>> <BR>>=20
Gracias<BR>> "Ignacio Ortiz de Z=FA=F1iga" <</FONT><A=20
href=3D"mailto:
InvalidAccount@ozs.com"><FONT face=3DArial=20
size=3D2>
InvalidAccount@ozs.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje<BR>> </FONT><A=20
href=3D"news:422464e3$
1@ozsrv2.ozlan.local"><FONT face=3DArial=20
size=3D2>news:422464e3$
1@ozsrv2.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> Carlos,<BR>>><BR>>> No se =
si entiendo=20
que es lo que quiere hacer. En principio parece que<BR>> =
tiene<BR>>>=20
un formulario con un TEdit y un bot=F3n. En la acci=F3n de dicho =
bot=F3n=20
muestra<BR>>> un segundo formulario con un Browse, y supongo que =
a la=20
salida del segundo<BR>>> formulario desea que el actual valor de =
alguna=20
columna del browse se<BR>>> incruste en el campo TEdit del =
primer=20
formulario.<BR>>><BR>>> =BFEs =
correcto?<BR>>><BR>>>=20
Gracias<BR>>><BR>>> "Carlos Cede=F1o Vera" <</FONT><A=20
href=3D"mailto:
carlos@labodegadeclimas.com"><FONT face=3DArial=20
size=3D2>
carlos@labodegadeclimas.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje<BR>>> </FONT><A=20
href=3D"news:4223b028$
1@ozsrv2.ozlan.local"><FONT face=3DArial=20
size=3D2>news:4223b028$
1@ozsrv2.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> > Tengo un oEditUser, donde tecleo la =
clave de=20
Usuario<BR>>> > Pero tambien tengo un boton que me abre un =
objecto=20
TdbfBrow, como le<BR>> hago<BR>>> > para que del :oBfUSer =
que es=20
mi objecto tdbfbrowse me returne el Valor<BR>> al<BR>>> >=20
oEditUser???<BR>>> ><BR>>> > Tengo esto<BR>>>=20
><BR>>> > WITH OBJECT ::oBrUser :=3D=20
TDbfBrowse():New(Self)<BR>>> >ÂÂÂÂÂ=2 0
:nMarqueeStyle :=3D bmHIGHLROWMS<BR>>> =
>ÂÂÂÂÂ=2 0
:SetBounds( 80, 92, 230, 120 )<BR>>> =
>ÂÂÂÂÂ=2 0
WITH OBJECT TBrwRecSel():New( ::oBrUser )<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :nWidth :=3D =
24<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:Create()<BR>>>=20
>ÂÂÂÂÂ END<BR>>>=20
>ÂÂÂÂÂ :nRowHeight :=3D 18<BR>>>=20
>ÂÂÂÂÂ WITH OBJECT TDbfBrwColumn():New( =
::oBrUser=20
)<BR>>> >ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:cHeader :=3D=20
"ID"<BR>>> >ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:nWidth=20
:=3D 57<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:cFieldName :=3D "IDUSUARIO"<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:Create()<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :OnGetData :=3D { =
|o, c, n|=20
c :=3D ::oDbfDS2:IDUSUARIO }<BR>>> =
>ÂÂÂÂÂ=2 0
END<BR>>> ><BR>>> >ÂÂÂÂÂ =
WITH=20
OBJECT TDbfBrwColumn():New( ::oBrUser )<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :cHeader :=3D=20
"NOMBRE"<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:nWidth :=3D 129<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :cFieldName :=3D=20
"NOMBRE"<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:Create()<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:OnGetData :=3D { |o, c, n| c :=3D ::oDbfDS2:Nombre }<BR>>>=20
>ÂÂÂÂÂ END<BR>>>=20
>ÂÂÂÂÂ WITH OBJECT :oImageList<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :nWidth :=3D =
16<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :nHeight :=3D=20
16<BR>>> >ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:Add(=20
"Usuario" )<BR>>> >ÂÂÂÂÂ =
END<BR>>>=20
>ÂÂÂÂÂ :cAliasÂÂ=20
:=3D"Usuarios"<BR>>> >ÂÂÂÂÂ=2 0
:SetDbf("Usuarios")<BR>>> >ÂÂÂÂÂ=2 0
:Create()<BR>>> >Â End WITH<BR>>> ><BR>>> =
>=20
Gracias de antemanos<BR>>> ><BR>>>=20
><BR>>><BR>>><BR>> <BR>></FONT> =
</BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000A_01C51F5F.6B38DCD0--
------=_NextPart_000_0009_01C51F5F.6B38DCD0
Content-Type: application/octet-stream;
name="carlos.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="carlos.zip"
UEsDBBQAAgAIAAyVSDJubZVOdQEAAFICAAAKAAAAY2FybG9zLnhwal1SwU7D MAy9V+o/7ANQxbjn
AOsmilY6tRUgEIcs9UpYmkROMjH+misnnHZDiFPes19s5zkvm7q6Wy7a1zRp jxYYfECa5OAESuul
0UxwVMalSRW8Df5Es1G2MIOVCpB93HLcmoBpUnKpS9MFBWyFw2ISW+wpE5SX VkGhnedagGNZm6XJ
06bkWu7A+YkXgnqmyYYjH8ADOiLVsmTZipIPxONM8+wyTWpQwB0wgjdBqi6C OBHXR1ahl5+zDmbP
31+y5xezJltnMW2PtezfPBVtkXdQctzHDnRvAO0jfKk2bVHdN2TIdfBm4F6K EoYDxxyEorFGV8Zx
ctiGvtA7M9EmWIvg3FpquA/DFjDmcPhz4yxp3gx6EbyXup8yjxy1JraGAyg2 J78MQjWuIE5Vcrsi
qyftgmJGAfl8CkQtdd2TPr4gL2raaFUXy/iKhhYjIJfIJkQea6FCN4ZOMLrp fnVnTM5v32OADiq7
KtZjwfn5E4x7vfq/6B9QSwMEFAACAAgAwJtiMj6hNDDHAAAAGwEAABEAAABT b3VyY2UvY2FybG9z
LnByZ12OvYrCQBDH+0DeYcg1SQoTBUEWrhDEzuPwLGyXyWAG9nbCuIv43L7A ZfcsxGZgfvy/urYs
oIVvlTthEJO/PeNIKgbQqpPrYtJL5ju6ovKE/PAGDo8hOoGBgHxQO1iw4OYz OUabJNmyjUH0mUo4
WgP9putX3arv14l2ZVEWH+zRxTmpOlt2pAscq8TnVUhDVIKDZV83iQHAdsod gcUbPHFwBOYTqv+x
VZac9qK/y7oxX3SrXw3QmJ9RbinrLekYnw1HClHn9X9QSwMEFAACAAgAmZxi MhbIMsiUAQAAjwQA
ABQAAABTb3VyY2UvRnJtQ2FybG9zLnByZ71TTU/CQBC9k/AfJngBgi1gTMwm HqAfepCWAKLXZbvI
6tIl222UGH61f8DuUrXlI3pQt5eZN7Mz+95M7Wa1Ak0YSrGmRAkEBEsuEgP6 jCyozDBfLh0DWyv5
YEIuTYhkK8LeYmSAXqqE3Jo+JQuMoH1ht7t2t90+16hdrVQrJywmPI0o1O4x 41RaZFHTuHPTG49h
4gu57IA/CgdbW4cAwAkHwzDwggkIL2Kqswv2U6VEvAf3pMTrvhTPCe3oSiY+ 8CbXoQuOpFhR3aPe
KOLFO9ucOogxjSMqoZSY93Q4I09HUoq13BnfT61WvMA11MvafKn9Ml8afX7y OiiKmLPlgmAO2MUK
54ixAV3Ca/bV0ljUWtCBTUt7kUgyr5t7SlLtnsEGNvnlvBcaU2WeUs/LGS4j b3I7CiBgXHu2ffqr
p6DCEekP8b9jagHh7DHbbEBoZyPAHMSnLGEzTrUolrI+8YykL0ia5AvixZEp 969Uv1mhQ5QzmuYn
QVPMU0PqY2pXVBmsng28UZpnSYK5Va5T1OHvqb8DUEsDBBQAAgAIAJmcYjKy jIGPqQEAAOIEAAAU
AAAAU291cmNlL0ZybUNhcmxvcy54Zm2tk89ugkAQxu8mvsOEEybEAIJakh4E MbRptQGqZ5S1kiLb
LBDbx+4bdHf5tzZNaxMvZJkZvvnNt8OjG3qrOTgERQVaYHKUB+A8zIIAQvam 9Xv9HgAE5RsilljF
w5YVoMLGZRbnMowmUwX0kaaAYaoKjFQVmqpdiN4LsG5BeopIBE5EUpyDg2L0 iaW6Bi9wxmtCdpAH
dTcZpMcAgijLIUAk2UsK0DZU3xD0MydNUFZskrg4MAnD0M8zHkpeDlxdHzep Wn9Qj7i5Cz1Y2feu
EzIaN04KjeOwE8VZopNMEdJ93ZVpCNNTKG2swA0l01WhZB2lJeKjc0WpTXTt 6Zu7nP+MYZdFgbMK
pDr/jaKpDEanRjEYUyjq7qHW7XBWzKndq5jkgf8CzwiJPmyCTzmqqIXABeiU 2tTZ5dKHNjGEqnSd
5Mk25V4OF8MmLrYPbXJycFoeW5O+A7Vy3A0PRTEifOTqs84Pls/afTInYvzM iDMvrs2jX5/HRztq
/0U8XT/duLiflfn41P1u2lTcMP4hn0/sWoXFVZxv024bxdIm8ftW+m747C/5 mvV7X1BLAQIUABQA
AgAIAAyVSDJubZVOdQEAAFICAAAKAAAAAAAAAAAAIAC0gQAAAABjYXJsb3Mu eHBqUEsBAhQAFAAC
AAgAwJtiMj6hNDDHAAAAGwEAABEAAAAAAAAAAAAgALSBnQEAAFNvdXJjZS9j YXJsb3MucHJnUEsB
AhQAFAACAAgAmZxiMhbIMsiUAQAAjwQAABQAAAAAAAAAAAAgALSBkwIAAFNv dXJjZS9Gcm1DYXJs
b3MucHJnUEsBAhQAFAACAAgAmZxiMrKMgY+pAQAA4gQAABQAAAAAAAAAAAAg ALSBWQQAAFNvdXJj
ZS9Gcm1DYXJsb3MueGZtUEsFBgAAAAAEAAQA+wAAADQGAAAAAA==
------=_NextPart_000_0009_01C51F5F.6B38DCD0--
Attached files carlos.zip (1.8 KB)Â