Hola,
Ya estoy con el tema de impresión/visualización.
¿Sé podría implementar en el Preview, que con el Mouse pulsado, apareciera
el Cursor Hand, y se desplazara el documento segun se arrastrara con el
Mouse???
¿Es posible? ¿Muy complicado???
Y otra...
¿Podría ponerse una propiedad para hacer que se cierre el Preview si se
pulsa ESC ???
::lCloseOnESC
Un Saludo,
Xevi.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Sugerencia TPreview
Sugerencia TPreview
Xevi,
> ¿Sé podría implementar en el Preview, que con el Mouse pulsado, apareciera
> el Cursor Hand, y se desplazara el documento segun se arrastrara con el
> Mouse???
> ¿Es posible?
Sí.
> ¿Muy complicado???
Ni mucho ni poco. Simplemente hay que hacerlo
> Y otra...
> ¿Podría ponerse una propiedad para hacer que se cierre el Preview si se
> pulsa ESC ???
> ::lCloseOnESC
En lo que te he enviado esta mañana añade el método siguiente:
METHOD WMKeyDown( nKey, nFlags ) CLASS TPreviewControl
IF nKey == VK_ESCAPE
::Close()
RETURN 0
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
> ¿Sé podría implementar en el Preview, que con el Mouse pulsado, apareciera
> el Cursor Hand, y se desplazara el documento segun se arrastrara con el
> Mouse???
> ¿Es posible?
Sí.
> ¿Muy complicado???
Ni mucho ni poco. Simplemente hay que hacerlo
> Y otra...
> ¿Podría ponerse una propiedad para hacer que se cierre el Preview si se
> pulsa ESC ???
> ::lCloseOnESC
En lo que te he enviado esta mañana añade el método siguiente:
METHOD WMKeyDown( nKey, nFlags ) CLASS TPreviewControl
IF nKey == VK_ESCAPE
::Close()
RETURN 0
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
Sugerencia TPreview
Jose,
>> ¿Muy complicado???
>
> Ni mucho ni poco. Simplemente hay que hacerlo
Bien, se que en cuanto podais lo implementareis, de ahí lo de "sugerencia".
> En lo que te he enviado esta mañana añade el método siguiente:
He añadido el método, por cierto, nombre de la Clase XPreviewControl, ¿cierto?
Pero me falta declararlo como PUBLISHED al crear la Classe,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLISHED:
....
METHOD WMKeyDown( nKey, nFlags ) //¿Que parámetros se envían en WMKeyDown??
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4325dac8$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> ¿Sé podría implementar en el Preview, que con el Mouse pulsado, apareciera
>> el Cursor Hand, y se desplazara el documento segun se arrastrara con el
>> Mouse???
>> ¿Es posible?
>
> Sí.
>
>> ¿Muy complicado???
>
> Ni mucho ni poco. Simplemente hay que hacerlo
>
>
>> Y otra...
>> ¿Podría ponerse una propiedad para hacer que se cierre el Preview si se
>> pulsa ESC ???
>> ::lCloseOnESC
>
> En lo que te he enviado esta mañana añade el método siguiente:
>
> METHOD WMKeyDown( nKey, nFlags ) CLASS TPreviewControl
>
> IF nKey == VK_ESCAPE
> ::Close()
> RETURN 0
> ENDIF
>
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
>
>
>
--
>> ¿Muy complicado???
>
> Ni mucho ni poco. Simplemente hay que hacerlo
Bien, se que en cuanto podais lo implementareis, de ahí lo de "sugerencia".
> En lo que te he enviado esta mañana añade el método siguiente:
He añadido el método, por cierto, nombre de la Clase XPreviewControl, ¿cierto?
Pero me falta declararlo como PUBLISHED al crear la Classe,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLISHED:
....
METHOD WMKeyDown( nKey, nFlags ) //¿Que parámetros se envían en WMKeyDown??
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4325dac8$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> ¿Sé podría implementar en el Preview, que con el Mouse pulsado, apareciera
>> el Cursor Hand, y se desplazara el documento segun se arrastrara con el
>> Mouse???
>> ¿Es posible?
>
> Sí.
>
>> ¿Muy complicado???
>
> Ni mucho ni poco. Simplemente hay que hacerlo
>
>
>> Y otra...
>> ¿Podría ponerse una propiedad para hacer que se cierre el Preview si se
>> pulsa ESC ???
>> ::lCloseOnESC
>
> En lo que te he enviado esta mañana añade el método siguiente:
>
> METHOD WMKeyDown( nKey, nFlags ) CLASS TPreviewControl
>
> IF nKey == VK_ESCAPE
> ::Close()
> RETURN 0
> ENDIF
>
> RETURN Nil
>
> --
> Un saludo,
>
> José F. Giménez
>
>
>
--
Sugerencia TPreview
Xevi,
> Ni mucho ni poco. Simplemente hay que hacerlo
Bien, se que en cuanto podais lo implementareis, de ahí lo de "sugerencia".
Ya está anotado
> En lo que te he enviado esta mañana añade el método siguiente:
He añadido el método, por cierto, nombre de la Clase XPreviewControl, ¿cierto?
Cierto.
Pero me falta declararlo como PUBLISHED al crear la Classe,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLISHED:
...
METHOD WMKeyDown( nKey, nFlags ) //¿Que parámetros se envían en WMKeyDown??
Como está esta bien. Pero no hace falta que esté en PUBLISHED; lo normal es que esté en PUBLIC.
--
Un saludo,
José F. Giménez
--
> Ni mucho ni poco. Simplemente hay que hacerlo
Bien, se que en cuanto podais lo implementareis, de ahí lo de "sugerencia".
Ya está anotado
> En lo que te he enviado esta mañana añade el método siguiente:
He añadido el método, por cierto, nombre de la Clase XPreviewControl, ¿cierto?
Cierto.
Pero me falta declararlo como PUBLISHED al crear la Classe,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLISHED:
...
METHOD WMKeyDown( nKey, nFlags ) //¿Que parámetros se envían en WMKeyDown??
Como está esta bien. Pero no hace falta que esté en PUBLISHED; lo normal es que esté en PUBLIC.
--
Un saludo,
José F. Giménez
--
Sugerencia TPreview
Jose,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLIC:
....
METHOD WMKeyDown( nKey, nFlags )
....
METHOD WMKeyDown( nKey, nFlags ) CLASS XPreviewControl
MsgInfo( Str(nKey) )
IF nKey == VK_ESCAPE
::Close()
RETURN 0
ENDIF
RETURN Nil
Esto no funciona, pulsando cualquier tecla, no se lanza el evento NUNCA.
¿Tengo que poner este Prg en algún lugar en concreto???
¿en el Form Principal???
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:432684bb$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
> Ni mucho ni poco. Simplemente hay que hacerlo
Bien, se que en cuanto podais lo implementareis, de ahí lo de "sugerencia".
Ya está anotado
> En lo que te he enviado esta mañana añade el método siguiente:
He añadido el método, por cierto, nombre de la Clase XPreviewControl, ¿cierto?
Cierto.
Pero me falta declararlo como PUBLISHED al crear la Classe,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLISHED:
...
METHOD WMKeyDown( nKey, nFlags ) //¿Que parámetros se envían en WMKeyDown??
Como está esta bien. Pero no hace falta que esté en PUBLISHED; lo normal es que esté en PUBLIC.
--
Un saludo,
José F. Giménez
--
CLASS XPreviewControl FROM TScrollingWinControl
PUBLIC:
....
METHOD WMKeyDown( nKey, nFlags )
....
METHOD WMKeyDown( nKey, nFlags ) CLASS XPreviewControl
MsgInfo( Str(nKey) )
IF nKey == VK_ESCAPE
::Close()
RETURN 0
ENDIF
RETURN Nil
Esto no funciona, pulsando cualquier tecla, no se lanza el evento NUNCA.
¿Tengo que poner este Prg en algún lugar en concreto???
¿en el Form Principal???
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:432684bb$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
> Ni mucho ni poco. Simplemente hay que hacerlo
Bien, se que en cuanto podais lo implementareis, de ahí lo de "sugerencia".
Ya está anotado
> En lo que te he enviado esta mañana añade el método siguiente:
He añadido el método, por cierto, nombre de la Clase XPreviewControl, ¿cierto?
Cierto.
Pero me falta declararlo como PUBLISHED al crear la Classe,
CLASS XPreviewControl FROM TScrollingWinControl
PUBLISHED:
...
METHOD WMKeyDown( nKey, nFlags ) //¿Que parámetros se envían en WMKeyDown??
Como está esta bien. Pero no hace falta que esté en PUBLISHED; lo normal es que esté en PUBLIC.
--
Un saludo,
José F. Giménez
--
Sugerencia TPreview
This is a multi-part message in MIME format.
------=_NextPart_000_0036_01C5BD0E.E7965CB0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0037_01C5BD0E.E7965CB0"
------=_NextPart_001_0037_01C5BD0E.E7965CB0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,
Esto no funciona, pulsando cualquier tecla, no se lanza el evento =
NUNCA.
Tienes raz=F3n; hab=EDa un peque=F1o fallo en TPreviewControl. Aqu=ED lo =
tienes corregido; a=F1=E1delo a tu proyecto y ya te funcionar=E1.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_0037_01C5BD0E.E7965CB0
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.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2>Esto no funciona, pulsando cualquier =
tecla, no se=20
lanza el evento NUNCA.</FONT></DIV></BLOCKQUOTE>
<DIV dir=3Dltr>
<DIV><FONT face=3DArial size=3D2>Tienes raz=F3n; hab=EDa un peque=F1o =
fallo en=20
TPreviewControl. Aqu=ED lo tienes corregido; a=F1=E1delo a tu proyecto y =
ya te=20
funcionar=E1.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><BR>-- <BR>Un saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 F. =
Gim=E9nez</DIV></DIV></FONT></BODY></HTML>
------=_NextPart_001_0037_01C5BD0E.E7965CB0--
------=_NextPart_000_0036_01C5BD0E.E7965CB0
Content-Type: application/x-zip-compressed;
name="PreviewPage.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="PreviewPage.zip"
UEsDBBQAAAAIAKpcMzPZNxRXaRAAAOUpAAAPAAAAUHJldmlld1BhZ2Uub2Jq jVoLbBtHep5dkSIl
UW/JlmRKliLHkS3HWdvxI01yZ4pciltTXIa7oiQffWtZpF5ZkypFxZZ6CIyk Xhi9NnXfTgsfgl56
SC/A9QH00OIK9K4J0CvaK4yij6DPtCApH3BtDyhaXNFr038ey12OKEe+XPb/ /v+f/zHzzz9DZ+50
ovZkMffaWu5WcnEld3oJ3etHCHVPFYrmYj47Gp6cHD1/+vzpM+jeIYQec8pf zZw7h+41IfRd9EuX
kNfQ5XndE1YjMtCRkB7y4H81R6ZT6mzSY0xpWhP8v9lQEopu+PG/sRw98KHf +EVBEBGhHo95vJRC
yOcnlNKMWloR+pVm1PxJ0yci+qkPhU4jNmVEZxPGfCgcD2ka6rUZhhGOa0Yy lArNoO46ppLQdNRh
s5JhdTahox4bwydERmmozeYl1JRjeFrWtQUtrMaBGay5T6bktCLPJUPTsjE3 kwwpYLPdlsozSX0B
1WLVw7MpzT1a18IpNR5XEtNzSiKsJnRAzmiYtUTECWYmNO9ESy3NhRRXRnF1 Tk1FnICpTiiVUudQ
oKYUSkTqcroiL2h6SJedydJkO9A+lx5lJVUNdTkRXZHjamLaCSGmkBD6jNUb xms3k8XCUm5zU9u+
eaNgbkJihCvfzi1tlXII3T+CkFBzobtmcgDxUvc8SyB9521BQGjdt/rRGHxu rwILqhP+vPlh1wf3
1xFhrN7x1biBD+7fr/E9/sb8f+1ozH+qszG/t6sx/4V9+D3djflfPtyYf2Kg Mf9r+/D/Zh/+wmBj
/t0jjfl/vg9/PNiY/4qbjx5+B5WbdLHcqovvdqYPl48APQr00+mB8jmgLwH9 MtBXgE4CPQv0EtCr
QN8E+seBvgP0XaB/HugHQD8E+n2gfwvo3wX6A6C/DfR3gP47oD8GugL0fwD9 A6D/Nz1QadPFSpcu
/no/0ONATwD9LNAvAn0ZaBloDeh5oK8B/SrQG0BvAf0m0PeA/un0AHrH44He NAc5QmNCuDah9FAW
8LeQ82c1SPn2nw0Of4HTf5PDP8np/wKHf5XTf5+Tf51hicX3Aaf/iNP/S07+ MSf/Hif/bw77hutx
L4ePcPgYYBHvaxbfJU4+xeQxJtcYvs7wCsO3Gd5m+D2Gf47hbzL8FYY/Yvgb w/X5PeL8/y3T/z7T
/zeG/QLFvhGKRxkeYfgSw+cYTjKcYHiV4bWRen9FDn9hpD6+Nzj5Fzn8gMNf 5vDvcPgPOfxnHP4r
zv8/cPJdDv+Qw56j9bidwz0cHuDwUQ5PcvgChy9z+AqHFzi8zOGbHN7msMVh 9HBNKCNoL35dKHfR
llaeSAtlCbe0tFi+TNtZ+TpuZemmMrSS8u20B7ey8n3cxtLe8jvwfQ/GQxsr fxO3sHRz+RFtX+XH
aV/5+9B2EG1bFbBfkWirqsR0oQK2K2C7sgo02K7chu8d0qaECtivPIAv2K+A /QrYr/wefMFH5dtp
fwV8VMBH5THwsI8f6EIV/FQhlyr4qg7AF/xVJ+ALPquX4At+q+CzCj6rq+mW Kvisgr8q+KqCnyr4
qIL9Ktiugu3q43RrFWzvgt1df7ptF+zugs1dsLcLtnbB1i7Y2gU7u2BnF+zs gp1dsLMLdnbBzi7Y
2QUbtOV63uKW4G0O/xqHv8bhr3P4Wxz+Uw7/NYc/5vB3OfyfR+u3zP9wct8o 1yI5PMLhSQ5fHK23
/yInj3E4zeEch7c4/AaH3+LwAw6/y+Hf5vA3OPzHHH7E4X/k8GMO/zuH/4vD P+Swf6x+vno5PMTh
4xye5PBFDofG6v0pnDzNyW9weJ3T3+TkOxx+g8NvcfhtDr/L4d/k8O9z+I+4 eP5kjF5v7jBmu/hJ
6RZ6XRTQioCy/mBUEpApZgNovV13/Q5EZlN2vX3ezQkIG2JKQJIHj9xAiuSl xC8PimZz1kYBISmY
PrC33Rnsl/yYaQhmCzA2xLxvUEQPu2nLtdstbrXuNrtBb4qkvZLWmg7UWqvd Vu2W6k+372mrdkvF
7RS3UtxGcQvF7RO3Trttgg3SLnGrxG2StMh0B2mRsXQnaZPz6S7WKrtJq7yd 7iHt8l66t9Yy30v3
1bXNj9L9pHXabXO/lrmaPkTaJrR82hr9hpD3uZZHhOUZfr/ZWZ95fn36dW2p WDDNtfzK3Fo+XMiX
ANF1EsGGH90dQlIbsXTtlAD/gBdDXA8sJotr+VKumMptIo+AWlo2mhVLYJot oNFmxhfzWW1pcSPn
KIhMYQcU2vOhzY3cUim1WForOCpNTGUbVPx5+eayXthwpB6XtAVL47nlkiP2 usStWDy3li2tOvJm
l7wNy2O5tZVVlwGfSyFAFArFnTOS5Gj4eY10rliq02ipi1FdXt7MleYdcWsD 8YIjbquzz0bX2Q80
0Fio0+h4XfQgq5PpmYFsRtwJiEQ9bC7CL+/StulalS6mmMURFcJbxc1C8awj 7nldFJHVK7VjpXVf
ns5pBqu3ZPGfjVbF6mNif55NKSfvt+XmVKGYzRXR7TrxISZuMfXFG1oJlrxe ftiWQwLF5GIeircj
m2kLCExrvSUpG+GCWSgioj/A9AP5q4XCzejiUgkkLKSFk+QCLnVCV9neEBSp CwhDxFQ3ULgt9ZBv
M3M+yIy15aNrJSVP9s42NTXmmHqShSNSLw1fJfEoebyH/AUtl8dTsdGkWEGm 0Uo11K3SHpVhptJB
VcKri/mVXBardTC1U3naBgJYTsaMsDEBFWIvbpZI7Lzho0ypTc3j9tBQZ9TR SeRuN7Yz5ujEF/fx
NY77knWMzai3ABsI0WUx+zrYbB2vq0fWaJx6nJD6yWBPIncLmYc6YPCGR7FO MLYvXMwtlqBADtuS
k0zijRZzwB+w+afsEVquhOOACJjkWSYJUEm4UChuInPQFp+2B7LFNIdsyXNM 4rcX0TxiiyRbNDeT
XISUkBm0RWeYqAtEONuwuZbLlyZOuFTOSsNEpX1uRi4ubuamXl3JZ9FCCzmo d5qZ1jk7sLkZbW0H
ch2xxz9vZwSSXInucWQetcXnmbh1buZKbjtSuAVJjdrCC07kIJzdQOaYLbrI RB1zM/GprVKpkKdj
n7IVLjkKKbfCOFPAVwHRvgqIdVcBsdFVQKy/CpDzThCXk013r4IkKwc7pGPI aILNJyiDogW7kvCe
xjyR8pqMJnxIkkG5Aw8yj2elZ4CBY4oEZ+EkmgAknUCMC/8T8AF00mEkPXDg TGIjnh0hcz107f9Q
D1bySacIMyO6uOCjVXoWm/Qg8zQ+rDvmQ/jvao2rqjqjJMA8HtsmPefW6XTp qLM6U2qnbaAL1OBY
oMEoVifJW0DLSeHuDpLOIOksaVJYJkrniCqBWEtYTop330CQtSEEhGAnnO3P w2bGQojUI50HQOYL
Ur4AtHSRDJYukc84TfMFMiI4DIfmj+zRIUkfgaSJiPKYBpmldulFLHiJcGCe pJeJtR2BSDukz2Dp
ZzkpTCkRd+FGLOLMunErJlRvFhJrIsv+JSRdJvOy7R0eEC2xhVSBTyELH4UK EaQQkZ+Rpug3KVge
8Bdm3AjjipC+TGiy2FFKemGKWqRpAJkRHE2rFKvRATwroBSUIUMFSPNHs9IV wpLi5BPKZHu2AyLN
coZpUMtSgnyYeDAMedoK6j4mumtO5AYm4NzGYZrJbGYE67xCdajqmYyI1ahi P8mhppiiitG9iocl
DVcoNXHnJbItBiQd86Ju3pB70od/BsEhOUs24RQbGzI8PbVloIGBnxgeG5TS ZG9OMZMhw9tTW5tU
neowW0FoIJ1wHGIX23S7jbJVJJIxYpFKBsWhMY/1NCuRHe9wtwhnEl224X9B 1jOupZ0gC8DCu/Ph
J5h3ovGUh9iUn7QXM2UP6gxetybJIIeHNU89cfnhlPqUtaNtoI+tDKT83AEX ceifEBxKTtGebRDc
ucbB2Vk+byf/ijvL8w2m68KTK/TiAWOG9F44aDG/hO982GXGdhpiG8j2+rK7 ijHjM+4SxlPkFa3L
rEQyonf4n5E15aqLcINEZXvrj1vRJ5bI4JgVe/KkXDnobox/aqYzfKaJvZt1 aECwknayTd7hFsFK
ucpDa1Aes06y6Sd3sTFr/sml9LmDLmvmoLNy7VNn5fMNupjBlQBU3JI0xyKf p84W+P6bla4yjc/t
o7GcrV1HWgUpY58mouHJ+oMn4AcxHXHtkW88OABHLw6d8TJiiHasDjhtu8il AltswT9ISDODo6cb
0TYwgHsrnIQivkT0kOH4NLrmWCMnjhPMiCB9vj6YiVowmdbOvbH0HCCWgwdB b3VnBcmwLzH2SJHY
wSM92zXFlwQ4tK8Tvj+4DteVRXTjBlxmgm2WaC5l+9CgBpc4/JsiIOzIwPWY Ocx92fKay1lzJZvp
CgjX7qCAGDxsNZurWTCGL0jk8tQnDPZbfsZcc5iiFcChekgECYEZ6maGYN4g 20yXP3gRvK1nr3vR
9WbUh+8Mr+KEabSSCZ9rP4G2zZtZw2s0Q1E0QZZDfyFYzTD6VT+cTj4pTzMe +gPB8gP3Jua2SAXG
/YpgtQL3uB9uFW3kJGNnm+EJNmeyg55MX4xePlxHXrvryLM67dUYuipYXWBr wh+chMtDQ1tnsK2e
2ogJweqFEU9j733khGVnLue9330UH3IfxQM1W3+PrEGw9Qz2PtTYFvF+pDbi q8gKwogxf/C0Ncyt
QLADjvwNqjgYgBP/x9igLWQ9BYOe8geftcb3DjomFWuDjkubjL5sTcCYY35Q OFGzOmmdBOY4Zk7W
Rh2Cs7lUX7Z5nyU5F1D4jUEK44Il4MLwIKgNKAxx38LwGF5WGDBdXmd//Kwg bbHNgMsPrHoggyBY
wrXB6t18DX9oGwgK2MYQ7N08r4Alls+x/SWX7b3miHYTaG/dQiLyud9poIQ8 h+wXOO6HN+GUjJ+U
xFwS8vqGPboJqwBSs2FdTYVD8Thyvb1xP/RAoUhkZjauK+SZEH6MA4xkSk3K KX0Bud/jGNFEVNGV
BBkFAP9MioawfaTJujwTDatqSkMpOZqStRg2I6dlCKTu+Q7VJE5lPaZG6qUk VTeD5VjHA/NyI6PU
fZ2A/drbw8O/7hq+KoK4lERcSci8WFOu7uXV3vBwgivyQkSdSzRgzyZ5Znxq VtfVRCP9lEtkqLB2
eDaBSEGkcgrRh081CKtLKZh9WARNjc/qippAydiCpkAFqNEoBIyMBCXIX4Pa gPyNp6GybOysbMZZ
1PANVUSG+lIhAluLLExUxetrsE8cP4XSwqEklPHMjBaTlemYTsg5JaLHkEtu JEJaUg7rqRCEDQjG
x9TUVRxZgiq7EyTyNNQokdt2nfrE4rgcBV44rsC8URqYupq0eYQEFrVOHFI7 Rm20YQ8xXGL6ZowE
gN75niCiUTsO15YwXJbdibnzwq/NWCxMk4JaGGklpc+G4lRYgzWxKzXDlVNt iZF7raP10bGFR+4K
UBNsw1AiHAslpuUIQ3jPsH0A/EhcRlC62gKsSjIO9UVqzfVijj2Uc7+PI8/i 3K/hnA1kl17dGzj3
DtPkRGRGm0a153AsUjsyFdY+pelk7dUE3keMhOZocxPyPCWdHQoOouBbQ+xR 3QR5N4mjU8LaCeR+
iLlRXIHLXyvyIISy5D/dPfSisqgL6Iv4r63/H1BLAQIWCxQAAAAIAKpcMzPZ NxRXaRAAAOUpAAAP
AAAAAAAAAAAAIACAgQAAAABQcmV2aWV3UGFnZS5vYmpQSwUGAAAAAAEAAQA9 AAAAlhAAAAAA
------=_NextPart_000_0036_01C5BD0E.E7965CB0--
Attached files PreviewPage.zip (4.2 KB)Â
------=_NextPart_000_0036_01C5BD0E.E7965CB0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0037_01C5BD0E.E7965CB0"
------=_NextPart_001_0037_01C5BD0E.E7965CB0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,
Esto no funciona, pulsando cualquier tecla, no se lanza el evento =
NUNCA.
Tienes raz=F3n; hab=EDa un peque=F1o fallo en TPreviewControl. Aqu=ED lo =
tienes corregido; a=F1=E1delo a tu proyecto y ya te funcionar=E1.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_0037_01C5BD0E.E7965CB0
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.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2>Esto no funciona, pulsando cualquier =
tecla, no se=20
lanza el evento NUNCA.</FONT></DIV></BLOCKQUOTE>
<DIV dir=3Dltr>
<DIV><FONT face=3DArial size=3D2>Tienes raz=F3n; hab=EDa un peque=F1o =
fallo en=20
TPreviewControl. Aqu=ED lo tienes corregido; a=F1=E1delo a tu proyecto y =
ya te=20
funcionar=E1.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><BR>-- <BR>Un saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 F. =
Gim=E9nez</DIV></DIV></FONT></BODY></HTML>
------=_NextPart_001_0037_01C5BD0E.E7965CB0--
------=_NextPart_000_0036_01C5BD0E.E7965CB0
Content-Type: application/x-zip-compressed;
name="PreviewPage.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="PreviewPage.zip"
UEsDBBQAAAAIAKpcMzPZNxRXaRAAAOUpAAAPAAAAUHJldmlld1BhZ2Uub2Jq jVoLbBtHep5dkSIl
UW/JlmRKliLHkS3HWdvxI01yZ4pciltTXIa7oiQffWtZpF5ZkypFxZZ6CIyk Xhi9NnXfTgsfgl56
SC/A9QH00OIK9K4J0CvaK4yij6DPtCApH3BtDyhaXNFr038ey12OKEe+XPb/ /v+f/zHzzz9DZ+50
ovZkMffaWu5WcnEld3oJ3etHCHVPFYrmYj47Gp6cHD1/+vzpM+jeIYQec8pf zZw7h+41IfRd9EuX
kNfQ5XndE1YjMtCRkB7y4H81R6ZT6mzSY0xpWhP8v9lQEopu+PG/sRw98KHf +EVBEBGhHo95vJRC
yOcnlNKMWloR+pVm1PxJ0yci+qkPhU4jNmVEZxPGfCgcD2ka6rUZhhGOa0Yy lArNoO46ppLQdNRh
s5JhdTahox4bwydERmmozeYl1JRjeFrWtQUtrMaBGay5T6bktCLPJUPTsjE3 kwwpYLPdlsozSX0B
1WLVw7MpzT1a18IpNR5XEtNzSiKsJnRAzmiYtUTECWYmNO9ESy3NhRRXRnF1 Tk1FnICpTiiVUudQ
oKYUSkTqcroiL2h6SJedydJkO9A+lx5lJVUNdTkRXZHjamLaCSGmkBD6jNUb xms3k8XCUm5zU9u+
eaNgbkJihCvfzi1tlXII3T+CkFBzobtmcgDxUvc8SyB9521BQGjdt/rRGHxu rwILqhP+vPlh1wf3
1xFhrN7x1biBD+7fr/E9/sb8f+1ozH+qszG/t6sx/4V9+D3djflfPtyYf2Kg Mf9r+/D/Zh/+wmBj
/t0jjfl/vg9/PNiY/4qbjx5+B5WbdLHcqovvdqYPl48APQr00+mB8jmgLwH9 MtBXgE4CPQv0EtCr
QN8E+seBvgP0XaB/HugHQD8E+n2gfwvo3wX6A6C/DfR3gP47oD8GugL0fwD9 A6D/Nz1QadPFSpcu
/no/0ONATwD9LNAvAn0ZaBloDeh5oK8B/SrQG0BvAf0m0PeA/un0AHrH44He NAc5QmNCuDah9FAW
8LeQ82c1SPn2nw0Of4HTf5PDP8np/wKHf5XTf5+Tf51hicX3Aaf/iNP/S07+ MSf/Hif/bw77hutx
L4ePcPgYYBHvaxbfJU4+xeQxJtcYvs7wCsO3Gd5m+D2Gf47hbzL8FYY/Yvgb w/X5PeL8/y3T/z7T
/zeG/QLFvhGKRxkeYfgSw+cYTjKcYHiV4bWRen9FDn9hpD6+Nzj5Fzn8gMNf 5vDvcPgPOfxnHP4r
zv8/cPJdDv+Qw56j9bidwz0cHuDwUQ5PcvgChy9z+AqHFzi8zOGbHN7msMVh 9HBNKCNoL35dKHfR
llaeSAtlCbe0tFi+TNtZ+TpuZemmMrSS8u20B7ey8n3cxtLe8jvwfQ/GQxsr fxO3sHRz+RFtX+XH
aV/5+9B2EG1bFbBfkWirqsR0oQK2K2C7sgo02K7chu8d0qaECtivPIAv2K+A /QrYr/wefMFH5dtp
fwV8VMBH5THwsI8f6EIV/FQhlyr4qg7AF/xVJ+ALPquX4At+q+CzCj6rq+mW Kvisgr8q+KqCnyr4
qIL9Ktiugu3q43RrFWzvgt1df7ptF+zugs1dsLcLtnbB1i7Y2gU7u2BnF+zs gp1dsLMLdnbBzi7Y
2QUbtOV63uKW4G0O/xqHv8bhr3P4Wxz+Uw7/NYc/5vB3OfyfR+u3zP9wct8o 1yI5PMLhSQ5fHK23
/yInj3E4zeEch7c4/AaH3+LwAw6/y+Hf5vA3OPzHHH7E4X/k8GMO/zuH/4vD P+Swf6x+vno5PMTh
4xye5PBFDofG6v0pnDzNyW9weJ3T3+TkOxx+g8NvcfhtDr/L4d/k8O9z+I+4 eP5kjF5v7jBmu/hJ
6RZ6XRTQioCy/mBUEpApZgNovV13/Q5EZlN2vX3ezQkIG2JKQJIHj9xAiuSl xC8PimZz1kYBISmY
PrC33Rnsl/yYaQhmCzA2xLxvUEQPu2nLtdstbrXuNrtBb4qkvZLWmg7UWqvd Vu2W6k+372mrdkvF
7RS3UtxGcQvF7RO3Trttgg3SLnGrxG2StMh0B2mRsXQnaZPz6S7WKrtJq7yd 7iHt8l66t9Yy30v3
1bXNj9L9pHXabXO/lrmaPkTaJrR82hr9hpD3uZZHhOUZfr/ZWZ95fn36dW2p WDDNtfzK3Fo+XMiX
ANF1EsGGH90dQlIbsXTtlAD/gBdDXA8sJotr+VKumMptIo+AWlo2mhVLYJot oNFmxhfzWW1pcSPn
KIhMYQcU2vOhzY3cUim1WForOCpNTGUbVPx5+eayXthwpB6XtAVL47nlkiP2 usStWDy3li2tOvJm
l7wNy2O5tZVVlwGfSyFAFArFnTOS5Gj4eY10rliq02ipi1FdXt7MleYdcWsD 8YIjbquzz0bX2Q80
0Fio0+h4XfQgq5PpmYFsRtwJiEQ9bC7CL+/StulalS6mmMURFcJbxc1C8awj 7nldFJHVK7VjpXVf
ns5pBqu3ZPGfjVbF6mNif55NKSfvt+XmVKGYzRXR7TrxISZuMfXFG1oJlrxe ftiWQwLF5GIeircj
m2kLCExrvSUpG+GCWSgioj/A9AP5q4XCzejiUgkkLKSFk+QCLnVCV9neEBSp CwhDxFQ3ULgt9ZBv
M3M+yIy15aNrJSVP9s42NTXmmHqShSNSLw1fJfEoebyH/AUtl8dTsdGkWEGm 0Uo11K3SHpVhptJB
VcKri/mVXBardTC1U3naBgJYTsaMsDEBFWIvbpZI7Lzho0ypTc3j9tBQZ9TR SeRuN7Yz5ujEF/fx
NY77knWMzai3ABsI0WUx+zrYbB2vq0fWaJx6nJD6yWBPIncLmYc6YPCGR7FO MLYvXMwtlqBADtuS
k0zijRZzwB+w+afsEVquhOOACJjkWSYJUEm4UChuInPQFp+2B7LFNIdsyXNM 4rcX0TxiiyRbNDeT
XISUkBm0RWeYqAtEONuwuZbLlyZOuFTOSsNEpX1uRi4ubuamXl3JZ9FCCzmo d5qZ1jk7sLkZbW0H
ch2xxz9vZwSSXInucWQetcXnmbh1buZKbjtSuAVJjdrCC07kIJzdQOaYLbrI RB1zM/GprVKpkKdj
n7IVLjkKKbfCOFPAVwHRvgqIdVcBsdFVQKy/CpDzThCXk013r4IkKwc7pGPI aILNJyiDogW7kvCe
xjyR8pqMJnxIkkG5Aw8yj2elZ4CBY4oEZ+EkmgAknUCMC/8T8AF00mEkPXDg TGIjnh0hcz107f9Q
D1bySacIMyO6uOCjVXoWm/Qg8zQ+rDvmQ/jvao2rqjqjJMA8HtsmPefW6XTp qLM6U2qnbaAL1OBY
oMEoVifJW0DLSeHuDpLOIOksaVJYJkrniCqBWEtYTop330CQtSEEhGAnnO3P w2bGQojUI50HQOYL
Ur4AtHSRDJYukc84TfMFMiI4DIfmj+zRIUkfgaSJiPKYBpmldulFLHiJcGCe pJeJtR2BSDukz2Dp
ZzkpTCkRd+FGLOLMunErJlRvFhJrIsv+JSRdJvOy7R0eEC2xhVSBTyELH4UK EaQQkZ+Rpug3KVge
8Bdm3AjjipC+TGiy2FFKemGKWqRpAJkRHE2rFKvRATwroBSUIUMFSPNHs9IV wpLi5BPKZHu2AyLN
coZpUMtSgnyYeDAMedoK6j4mumtO5AYm4NzGYZrJbGYE67xCdajqmYyI1ahi P8mhppiiitG9iocl
DVcoNXHnJbItBiQd86Ju3pB70od/BsEhOUs24RQbGzI8PbVloIGBnxgeG5TS ZG9OMZMhw9tTW5tU
neowW0FoIJ1wHGIX23S7jbJVJJIxYpFKBsWhMY/1NCuRHe9wtwhnEl224X9B 1jOupZ0gC8DCu/Ph
J5h3ovGUh9iUn7QXM2UP6gxetybJIIeHNU89cfnhlPqUtaNtoI+tDKT83AEX ceifEBxKTtGebRDc
ucbB2Vk+byf/ijvL8w2m68KTK/TiAWOG9F44aDG/hO982GXGdhpiG8j2+rK7 ijHjM+4SxlPkFa3L
rEQyonf4n5E15aqLcINEZXvrj1vRJ5bI4JgVe/KkXDnobox/aqYzfKaJvZt1 aECwknayTd7hFsFK
ucpDa1Aes06y6Sd3sTFr/sml9LmDLmvmoLNy7VNn5fMNupjBlQBU3JI0xyKf p84W+P6bla4yjc/t
o7GcrV1HWgUpY58mouHJ+oMn4AcxHXHtkW88OABHLw6d8TJiiHasDjhtu8il AltswT9ISDODo6cb
0TYwgHsrnIQivkT0kOH4NLrmWCMnjhPMiCB9vj6YiVowmdbOvbH0HCCWgwdB b3VnBcmwLzH2SJHY
wSM92zXFlwQ4tK8Tvj+4DteVRXTjBlxmgm2WaC5l+9CgBpc4/JsiIOzIwPWY Ocx92fKay1lzJZvp
CgjX7qCAGDxsNZurWTCGL0jk8tQnDPZbfsZcc5iiFcChekgECYEZ6maGYN4g 20yXP3gRvK1nr3vR
9WbUh+8Mr+KEabSSCZ9rP4G2zZtZw2s0Q1E0QZZDfyFYzTD6VT+cTj4pTzMe +gPB8gP3Jua2SAXG
/YpgtQL3uB9uFW3kJGNnm+EJNmeyg55MX4xePlxHXrvryLM67dUYuipYXWBr wh+chMtDQ1tnsK2e
2ogJweqFEU9j733khGVnLue9330UH3IfxQM1W3+PrEGw9Qz2PtTYFvF+pDbi q8gKwogxf/C0Ncyt
QLADjvwNqjgYgBP/x9igLWQ9BYOe8geftcb3DjomFWuDjkubjL5sTcCYY35Q OFGzOmmdBOY4Zk7W
Rh2Cs7lUX7Z5nyU5F1D4jUEK44Il4MLwIKgNKAxx38LwGF5WGDBdXmd//Kwg bbHNgMsPrHoggyBY
wrXB6t18DX9oGwgK2MYQ7N08r4Alls+x/SWX7b3miHYTaG/dQiLyud9poIQ8 h+wXOO6HN+GUjJ+U
xFwS8vqGPboJqwBSs2FdTYVD8Thyvb1xP/RAoUhkZjauK+SZEH6MA4xkSk3K KX0Bud/jGNFEVNGV
BBkFAP9MioawfaTJujwTDatqSkMpOZqStRg2I6dlCKTu+Q7VJE5lPaZG6qUk VTeD5VjHA/NyI6PU
fZ2A/drbw8O/7hq+KoK4lERcSci8WFOu7uXV3vBwgivyQkSdSzRgzyZ5Znxq VtfVRCP9lEtkqLB2
eDaBSEGkcgrRh081CKtLKZh9WARNjc/qippAydiCpkAFqNEoBIyMBCXIX4Pa gPyNp6GybOysbMZZ
1PANVUSG+lIhAluLLExUxetrsE8cP4XSwqEklPHMjBaTlemYTsg5JaLHkEtu JEJaUg7rqRCEDQjG
x9TUVRxZgiq7EyTyNNQokdt2nfrE4rgcBV44rsC8URqYupq0eYQEFrVOHFI7 Rm20YQ8xXGL6ZowE
gN75niCiUTsO15YwXJbdibnzwq/NWCxMk4JaGGklpc+G4lRYgzWxKzXDlVNt iZF7raP10bGFR+4K
UBNsw1AiHAslpuUIQ3jPsH0A/EhcRlC62gKsSjIO9UVqzfVijj2Uc7+PI8/i 3K/hnA1kl17dGzj3
DtPkRGRGm0a153AsUjsyFdY+pelk7dUE3keMhOZocxPyPCWdHQoOouBbQ+xR 3QR5N4mjU8LaCeR+
iLlRXIHLXyvyIISy5D/dPfSisqgL6Iv4r63/H1BLAQIWCxQAAAAIAKpcMzPZ NxRXaRAAAOUpAAAP
AAAAAAAAAAAAIACAgQAAAABQcmV2aWV3UGFnZS5vYmpQSwUGAAAAAAEAAQA9 AAAAlhAAAAAA
------=_NextPart_000_0036_01C5BD0E.E7965CB0--
Attached files PreviewPage.zip (4.2 KB)Â
Sugerencia TPreview
Jose,
Ahora si entra en el evento OnKeyDown...
METHOD WMKeyDown( nKey, nFlags ) CLASS XPreviewControl
IF nKey == VK_ESCAPE
::Close()
RETURN 0
ENDIF
RETURN Nil
pero SALTA UN ERROR...
TPREVIEWCONTROL:WMKEYDOWN(351)
Error BASE/1004 Message not found: TPREVIEWCONTROL:CLOSE
He tenido que substituir ::Close por ::oParent:Close(), pues no hay que cerrar el Preview, sino la ventana del Preview ¿es así???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:432e870d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Esto no funciona, pulsando cualquier tecla, no se lanza el evento NUNCA.
Tienes razón; había un pequeño fallo en TPreviewControl. Aquí lo tienes corregido; añádelo a tu proyecto y ya te funcionará.
--
Un saludo,
José F. Giménez
--
Ahora si entra en el evento OnKeyDown...
METHOD WMKeyDown( nKey, nFlags ) CLASS XPreviewControl
IF nKey == VK_ESCAPE
::Close()
RETURN 0
ENDIF
RETURN Nil
pero SALTA UN ERROR...
TPREVIEWCONTROL:WMKEYDOWN(351)
Error BASE/1004 Message not found: TPREVIEWCONTROL:CLOSE
He tenido que substituir ::Close por ::oParent:Close(), pues no hay que cerrar el Preview, sino la ventana del Preview ¿es así???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:432e870d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Esto no funciona, pulsando cualquier tecla, no se lanza el evento NUNCA.
Tienes razón; había un pequeño fallo en TPreviewControl. Aquí lo tienes corregido; añádelo a tu proyecto y ya te funcionará.
--
Un saludo,
José F. Giménez
--
Sugerencia TPreview
Xevi,
He tenido que substituir ::Close por ::oParent:Close(), pues no hay que cerrar el Preview, sino la ventana del Preview ¿es así???
Tienes razón, y has hecho lo correcto.
Por cierto, además de oParent, que es el control o formulario padre de cualquier control, es decir, quien lo contiene, también existe la propiedad oForm, que es el formulario donde está el control, independientemente de si el control está directamente sobre el formulario o sobre otro contenedor. P.ej., supongamos los siguientes controles:
Form
Panel1
Boton1
Panel2
Boton2
En este caso:
Control oParent oForm
---------- --------- ------
Panel1 Form Form
Boton1 Panel1 Form
Panel2 Form Form
Boton2 Panel2 Form
Lo que quiero decir con todo esto es que dado cualquier control, si pones :oForm:Close() se cerrará el formulario, mientras que con :oParent:Close(), si el control no está directamente en el formulario, dará un error.
--
Un saludo,
José F. Giménez
--
He tenido que substituir ::Close por ::oParent:Close(), pues no hay que cerrar el Preview, sino la ventana del Preview ¿es así???
Tienes razón, y has hecho lo correcto.
Por cierto, además de oParent, que es el control o formulario padre de cualquier control, es decir, quien lo contiene, también existe la propiedad oForm, que es el formulario donde está el control, independientemente de si el control está directamente sobre el formulario o sobre otro contenedor. P.ej., supongamos los siguientes controles:
Form
Panel1
Boton1
Panel2
Boton2
En este caso:
Control oParent oForm
---------- --------- ------
Panel1 Form Form
Boton1 Panel1 Form
Panel2 Form Form
Boton2 Panel2 Form
Lo que quiero decir con todo esto es que dado cualquier control, si pones :oForm:Close() se cerrará el formulario, mientras que con :oParent:Close(), si el control no está directamente en el formulario, dará un error.
--
Un saludo,
José F. Giménez
--
Sugerencia TPreview
Jose,
En alguna ocasión, me ha hecho falta acceder directamente al Form, y lo que hacía era ::oParent:oParent:oParent, y así hasta llegar al Form, que en realidad es donde quería llegar, por lo que voy a retocar mi código.
Gracias por la aclaración.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:432fdaff$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
He tenido que substituir ::Close por ::oParent:Close(), pues no hay que cerrar el Preview, sino la ventana del Preview ¿es así???
Tienes razón, y has hecho lo correcto.
Por cierto, además de oParent, que es el control o formulario padre de cualquier control, es decir, quien lo contiene, también existe la propiedad oForm, que es el formulario donde está el control, independientemente de si el control está directamente sobre el formulario o sobre otro contenedor. P.ej., supongamos los siguientes controles:
Form
Panel1
Boton1
Panel2
Boton2
En este caso:
Control oParent oForm
---------- --------- ------
Panel1 Form Form
Boton1 Panel1 Form
Panel2 Form Form
Boton2 Panel2 Form
Lo que quiero decir con todo esto es que dado cualquier control, si pones :oForm:Close() se cerrará el formulario, mientras que con :oParent:Close(), si el control no está directamente en el formulario, dará un error.
--
Un saludo,
José F. Giménez
--
En alguna ocasión, me ha hecho falta acceder directamente al Form, y lo que hacía era ::oParent:oParent:oParent, y así hasta llegar al Form, que en realidad es donde quería llegar, por lo que voy a retocar mi código.
Gracias por la aclaración.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:432fdaff$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
He tenido que substituir ::Close por ::oParent:Close(), pues no hay que cerrar el Preview, sino la ventana del Preview ¿es así???
Tienes razón, y has hecho lo correcto.
Por cierto, además de oParent, que es el control o formulario padre de cualquier control, es decir, quien lo contiene, también existe la propiedad oForm, que es el formulario donde está el control, independientemente de si el control está directamente sobre el formulario o sobre otro contenedor. P.ej., supongamos los siguientes controles:
Form
Panel1
Boton1
Panel2
Boton2
En este caso:
Control oParent oForm
---------- --------- ------
Panel1 Form Form
Boton1 Panel1 Form
Panel2 Form Form
Boton2 Panel2 Form
Lo que quiero decir con todo esto es que dado cualquier control, si pones :oForm:Close() se cerrará el formulario, mientras que con :oParent:Close(), si el control no está directamente en el formulario, dará un error.
--
Un saludo,
José F. Giménez
--