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.

Copy / Paste Image

Foro público de Xailer en español
Responder
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

Copy / Paste Image

Mensaje por notengo »

Israel,
> Por mas que leo la documentación no logro captar el como lograr programar unos botones para que el usuario pueda Copy/Paste Hacia/Desde el portapapeles de una Imagen:
No lo he probado, pero prueba esto.
Para enviarla:
WITH OBJECT TClipboard():Create( oParent )
IF :Open()
:SetData( CF_BITMAP, oBitmap:Handle )
:Close()
ENDIF
END
Para recuperarla:
WITH OBJECT TClipboard():Create( oParent )
IF :Open()
IF :HasData( CF_BITMAP )
hBitmap := :GetData( CF_BITMAP )
//oPicture:CreateIndirect( ... )
ENDIF
:Close()
ENDIF
END
Ten en cuenta que, para las imágenes, el clipboard sólo entiende de manera
nativa los bitmap, DIBs, Metafiles y poco más.
> Otra pregunta: ¿Es posible de alguna manera lograr que la imagen se vea "proporcional"? es decir, no se "deforme" para tener que ocupar el espacio del Bevel?
Mira la propiedad nBkGndMode.
Saludos,
José Lalí­n
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Copy / Paste Image

Mensaje por jfgimenez »

Israel,
prueba a cambiar esto:
::oBvlImg:oBkgnd:CreateIndirect( 1, hBitmap )
por:
::oBvlImg:oBkgnd := TPicture():CreateIndirect( 1, hBitmap )
Con respecto a mostrar la imagen "proporcional" he mirado la propiedad nBkGndMode de la Bevel, pero no cuenta con la opción que me gustarí­a. La idea es que muestre TODA la imagen dentro del Bevel pero sin deformarla, en FW utilizaba la clase tZoomImage de Jaime Irurzun para lograr este efecto. Alguna otra idea?
Echa un vistazo a la propiedad lAutoFit de TImage; seguramente es eso lo que buscas.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:

Copy / Paste Image

Mensaje por Israel Solis »

This is a multi-part message in MIME format.
------=_NextPart_000_011D_01C7D842.B4F75E20
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_011E_01C7D842.B4F75E20"
------=_NextPart_001_011E_01C7D842.B4F75E20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jos=E9:
Mil gracias, el COPY me ha funcionado como me comentaste:
METHOD BtnBmpImgCopyClick( oSender ) CLASS tFrmEditFormato
WITH OBJECT TClipboard():Create( SELF )
IF :Open()
:SetData(CF_BITMAP, ::oBvlImg:oBkgnd:Handle)
:Close()
ENDIF
END WITH
RETURN Nil
//---------------------------------------------------------- -------------=
-------
Pero en el PASTE no lo logr=E9, que hice mal?:
METHOD BtnBmpImgPasteClick( oSender ) CLASS tFrmEditFormato
WITH OBJECT TClipboard():Create( SELF )
IF :Open()
IF :HasData( CF_BITMAP )
hBitmap :=3D :GetData( CF_BITMAP )
::oBvlImg:oBkgnd:CreateIndirect( 1, hBitmap )
ENDIF
:Close()
ENDIF
END WITH
RETURN Nil
//---------------------------------------------------------- -------------=
-------
Con respecto a mostrar la imagen "proporcional" he mirado la propiedad =
nBkGndMode de la Bevel, pero no cuenta con la opci=F3n que me =
gustar=EDa. La idea es que muestre TODA la imagen dentro del Bevel pero =
sin deformarla, en FW utilizaba la clase tZoomImage de Jaime Irurzun =
para lograr este efecto. Alguna otra idea?
MIL GRACIAS!!
saludos!!
Israel
"Jos=E9 Lal=EDn" <notengo@correo.com> escribi=F3 en el mensaje =
news:46b7823f$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>=20
> Israel,
>=20
>> Por mas que leo la documentaci=F3n no logro captar el como lograr =
programar unos botones para que el usuario pueda Copy/Paste Hacia/Desde =
el portapapeles de una Imagen:
>=20
> No lo he probado, pero prueba esto.
>=20
> Para enviarla:
>=20
> WITH OBJECT TClipboard():Create( oParent )
> IF :Open()
> :SetData( CF_BITMAP, oBitmap:Handle )
> :Close()
> ENDIF
> END
>=20
> Para recuperarla:
>=20
> WITH OBJECT TClipboard():Create( oParent )
> IF :Open()
> IF :HasData( CF_BITMAP )
> hBitmap :=3D :GetData( CF_BITMAP )
> //oPicture:CreateIndirect( ... )
> ENDIF
> :Close()
> ENDIF
> END
>=20
> Ten en cuenta que, para las im=E1genes, el clipboard s=F3lo entiende =
de manera=20
> nativa los bitmap, DIBs, Metafiles y poco m=E1s.
>=20
>> Otra pregunta: =BFEs posible de alguna manera lograr que la imagen se =
vea "proporcional"? es decir, no se "deforme" para tener que ocupar el =
espacio del Bevel?
>=20
> Mira la propiedad nBkGndMode.
>=20
> Saludos,
> Jos=E9 Lal=EDn
------=_NextPart_001_011E_01C7D842.B4F75E20
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.6000.16481" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Jos=E9:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Mil gracias, el COPY me ha funcionado =
como me=20
comentaste:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><EM>METHOD =
BtnBmpImgCopyClick(=20
oSender ) CLASS tFrmEditFormato</EM></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080 =
size=3D2><EM></EM></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><EM>Â WITH OBJECT=20
TClipboard():Create( SELF )<BR>ÂÂÂ IF=20
:Open()<BR> ÂÂÂÂÂÂ :SetData(CF_BITMAP,=20
::oBvlImg:oBkgnd:Handle)<BR> ÂÂÂÂÂÂ =20
:Close()<BR>ÂÂÂ ENDIF<BR>Â END =
WITH</EM></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080 =
size=3D2><EM></EM></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><EM>RETURN =
Nil</EM></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2> //---------------------------------------------------------- ----=
----------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>PeroÂen el PASTE =
no lo logr=E9,=20
que hice mal?:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><EM>METHOD =
BtnBmpImgPasteClick(=20
oSender ) CLASS tFrmEditFormato</EM></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080 =
size=3D2><EM></EM></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><EM>ÂWITH OBJECT=20
TClipboard():Create( SELF )<BR>ÂÂÂ IF=20
:Open()<BR> ÂÂÂÂÂÂ IF :HasData( CF_BITMAP=20
)<BR> ÂÂÂÂÂÂ ÂÂÂ hBitmap :=3D =
:GetData(=20
CF_BITMAP )<BR> ÂÂÂÂÂÂ ÂÂÂ=20
::oBvlImg:oBkgnd:CreateIndirect( 1, hBitmap=20
)<BR> ÂÂÂÂÂÂ =20
ENDIF<BR> ÂÂÂÂÂÂ =
:Close()<BR>ÂÂÂ=20
ENDIF<BR>Â END WITH</EM></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080 =
size=3D2><EM></EM></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><EM>RETURN =
Nil</EM></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080 =
size=3D2><EM></EM></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2> //---------------------------------------------------------- ----=
----------------<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Con respecto a mostrar la imagen =
"proporcional" he=20
mirado la propiedad nBkGndMode de la Bevel, pero no cuenta con la =
opci=F3n que me=20
gustar=EDa. La idea es que muestre TODA la imagen dentro del Bevel pero =
sin=20
deformarla, en FW utilizaba la clase tZoomImage de Jaime Irurzun para =
lograr=20
este efecto. Alguna otra idea?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><IMG alt=3D"" hspace=3D0=20
src=3D"cid:011801c7d874$ff91ce20$[email=4201a8c0@isolis]4201a8c0@isolis[/email]" align=3Dbaseline=20
border=3D0></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>MIL GRACIAS!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></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>Israel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Lal=EDn" <</FONT><A=20
href=3D"mailto:notengo@correo.com"><FONT face=3DArial=20
size=3D2>notengo@correo.com</FONT></A><FONT face=3DArial size=3D2>> =
escribi=F3 en el=20
mensaje </FONT><A href=3D"news:46b7823f$1@ozsrv2.ozlan.local"><FONT =
face=3DArial=20
size=3D2>news:46b7823f$1@ozsrv2.ozlan.local</FONT></A><FONT face=3DArial =
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> <BR>> =
Israel,<BR>>=20
<BR>>> Por mas que leo la documentaci=F3n no logro captar el como =
lograr=20
programar unos botones para que el usuario pueda Copy/Paste Hacia/Desde =
el=20
portapapeles de una Imagen:<BR>> <BR>> No lo he probado, pero =
prueba=20
esto.<BR>> <BR>> Para enviarla:<BR>> <BR>> WITH OBJECT=20
TClipboard():Create( oParent )<BR>>ÂÂ IF=20
:Open()<BR>>ÂÂÂÂ :SetData( CF_BITMAP, =
oBitmap:Handle=20
)<BR>>ÂÂÂÂ :Close()<BR>>ÂÂ =
ENDIF<BR>>=20
END<BR>> <BR>> Para recuperarla:<BR>> <BR>> WITH OBJECT=20
TClipboard():Create( oParent )<BR>>ÂÂ IF=20
:Open()<BR>>ÂÂÂÂ IF :HasData( CF_BITMAP=20
)<BR> >ÂÂÂÂÂ&a mp;nbsp;Â hBitmap :=3D =
:GetData(=20
CF_BITMAP )<BR> >ÂÂÂÂÂ&a mp;nbsp;Â=20
//oPicture:CreateIndirect( ... )<BR>>ÂÂÂÂ=20
ENDIF<BR>>ÂÂÂÂ :Close()<BR>>ÂÂ =
ENDIF<BR>>=20
END<BR>> <BR>> Ten en cuenta que, para las im=E1genes, el =
clipboard s=F3lo=20
entiende de manera <BR>> nativa los bitmap, DIBs, Metafiles y poco=20
m=E1s.<BR>> <BR>>> Otra pregunta: =BFEs posible de alguna =
manera lograr que=20
la imagen se vea "proporcional"? es decir, no se "deforme" para tener =
que ocupar=20
el espacio del Bevel?<BR>> <BR>> Mira la propiedad =
nBkGndMode.<BR>>=20
<BR>> Saludos,<BR>> Jos=E9 Lal=EDn</FONT></BODY></HTML>
------=_NextPart_001_011E_01C7D842.B4F75E20--
------=_NextPart_000_011D_01C7D842.B4F75E20
Content-Type: image/png;
name="Image.png"
Content-Transfer-Encoding: base64
Content-ID: <011801c7d874$ff91ce20$[email=4201a8c0@isolis]4201a8c0@isolis[/email]>
iVBORw0KGgoAAAANSUhEUgAAAhMAAAIYCAMAAADgup7VAAADAFBMVEUAAAAA A00AAGQAAHIAAH0A
FaQAGbAALb0AKc0APM0AS98CWd8AZuUAKKYDObgQECcYGE0MSsIOTdQRWNAN Xt0Oa+QZGT0bRZkb
eeUkIyMiIlUtOIghPZwfSoccTLsjTrMkWMMeXtQfZ9osLDwpKUklPWEnRaAm SG8qT4soXMUoYNgp
bN4zTGwvT6oxWosyYJU8T2A7YL09acg5adw9dNU9e95FQkw9VaZEW21BWalE ZH8/aJZDbZtIX3NL
c51MbLpOcbJLdMhHdtpRgtxPT1NPU3BYWFtUYqZQantSbINUaa9YdY5SeJtd O0RZTV9aWXNdaqdc
fMZiU1NiYmFif5ldfLpggsljidJlk99pappqcahmdIhodrJvgo1mg59sgKhi hcRyi7BwisRnic5q
ld51XFxzcnCBWHR/cZN7dap2dXR9fXt7e3t+fZ51lcx5mN58m8+CblGCclmC ca6Bfq2Eiq+HkLqE
kp2Fm66FmsGGotGIpN+NdnSHh4WMj5OOVlaXW1uQflqSiLWQj4ySk5OVlaqT lLqQncKTo8GQoc2R
q9meSkmZelOZjbiZm5agnbadp8Ggr7qltMKgsc+gtN2nFACnIgOnRCqlWFed YW2jeDmpcXCojZij
nIuhoZ+lnJylqKGpdImwgzmpkJ+mqKerrb2prsmtsbOvub6sutCsv+C3PDq2 TTOvSUe3sa6/HADC
KADBMQm4Vj2+UVG5dIO9fGu/ik28gXK9jDnBoG67oX26pojDro+/vbDAwcLB y97DNRDHfx/DlUvG
mlrLJSXMKwDMNgXRNTXKQRrLRyfMUjXNWT7RYULPZEvJdnbMc3jUg2/JhY3O kDbEmJ/OnFrPoVPP
oWnPsYLRzr/TFRXTXl7Sa07SbVvTclXTd2DXkoHLtp7WtYTLxbDa2dXdQkLg UlLdhofZjxvhjyfY
kR7enR7ZnY7ZpJfjp0DgrHLbuLLauZPfu7DfwZ7fxqfew7fh4eHeZ2fjlzTj n03loTrlrSLlrEXl
qVjls2bjx4P5+PfcismbAAAACXBIWXMAAA7EAAAOxAGVKw4bAAAAB3RJTUUH 1wgGFTgqAD2GnAAA
AAd0RVh0QXV0aG9yAKmuzEgAAAAMdEVYdERlc2NyaXB0aW9uABMJISMAAAAK dEVYdENvcHlyaWdo
dACsD8w6AAAADnRFWHRDcmVhdGlvbiB0aW1lADX3DwkAAAAJdEVYdFNvZnR3 YXJlAF1w/zoAAAAL
dEVYdERpc2NsYWltZXIAt8C0jwAAAAh0RVh0V2FybmluZwDAG+aHAAAAB3RF WHRTb3VyY2UA9f+D
6wAAAAh0RVh0Q29tbWVudAD2zJa/AAAABnRFWHRUaXRsZQCo7tInAAABAElE QVR4nO2dC5gcR4Hf
neD1eldIwbKN2fCwJHzmJGH7wI/zg6fW5hBychaz1qyFZe+xiu7QflgkJz9k ReRirx7owugxA8kB
198GZne0m0SHc+H4uLvpcbjASRhfFPMFOqAz+VxwOAfcHYfqDOHIpp79qOme 6Zmeme7Z/f++1UxP
dVd3a+o31VXVVdUX0fLY5PqhoWHOCsbLPVaA5cGwYmjgH9xHcxddVB4bGBoW Klx55avAcuRKCcsE
hofWl5gTYyKT4La8HCwjWHqH5RaD63/hoosmBoc46soRnqeApYVO2KF6Bi95 de6i9YOrtBRgSbLi
5vGdQW5ewRP8pvz4eN7Pm1cNWELjzQAAAQBJREFUDl4ycO39F10yGC5FiEOg Hxke3X/06H7NHs6H
Nl02dNnW8g9+8P1v+/nM1lWXDAwMXHzRwEC9Eyn/L0Anuenonvzopk03CjZs 2LB29eo3P3TT0E2n
v/38+We/+swzX2GcPXv2zNNP/+dPvYkrIZxwSxQwYgmSL+X3MCuYFpuEGUyK Ve/PD+V/cO7b586d
P/8sg5tx9uzTH//8Vu7EPzSdSPk/ADoOd2JnfjS/52iptH/npo2uE89/+9zz 57/17LPPiLxCOLHt
EunEJcqJITixJMkfHWVKjO6vUUJpbefGtcqJ73/r3PPnvn+OC3H27Plzz5wR TlwinJBKbBznbGxH
isdRElsAAAEASURBVA2i0LqWLV0+Onq5+rxWr9iwgYex5Q0hESRrfcshu77p 8uYbNl63rMnv38TK
EztrpLRzzwJd2LR6tXLi2efPf59eeJ4XJp79a3Ku3olxOrd9+/ZrVzVx4vLR +m8+z6Ieqh1lK0Zr
5J3i88PzpbVyxfZrJ8iey/iyaggJRNCf3XXG/sWuaju1FHmydXAogkbrljX5 /TeywsR+UtrEfp4L
JK+d+PYz57917gK9cJ4rQX/01ac9Jy7RTmy/mBUwVjXJKPxJ64Vtv/jqo3Tb IFuiW/nr9oGJWmmN
WDEwMEFr+ctEYH0E/fn+gfD981hba2ST+rh263WR6d5o3bKGOcEKl/lPClf7 AAABAElEQVT9+Q1r
195Y8jvBCpdCim/9SCgR5sQAL0+sy+/Mr+OXknx+3cbR0Xye7S6/aTXLmlkm vnrdAp1bL5bXerk1
j3p5id4/ePl+Sg9fJj/vp1vFAl/NMiyxXBdB7Uiu44ve/m9arbdcvZ95so6v XpefvHp93TkNuesG
vYjAZZw7weobrHB5455abXRYO/GVr7L6xvMX6I+UEn4nLhUx6dzEzo3D6/bX ajxX30lrc++cpLWF
Wq1UqtU2Da2b2Fer3bSRpdm1r+Pb7F/LcuttQzpqiZJfGbipRoj9ZqnCOL13 kK/YyJaOHz66lgea
Ea5WO2LrXiOPK/Y/KI8lt2Sm7mf2jPPzk+ch0gAAAQBJREFUWb9AJyYC5/QI 385dN6gCgJ/x/RtE
08TGjZv218j+dcPDyomzz/AaB5OCKfFlxlPMiUHmxMuYEzzisChPXLdqnB6+ 7SM0z5w4dNtlE/Tw
dY/TfVfzH+rarY/U6IS4xGwV22wbWrftOrcocpjU3j44SubnyVbtBE/Iue3X stftv7xwtMQCzQh6
R2yLe7zFi/WxxJbbV47W5n+Z7YSdD9/V9rBzUusGvIjAZXyPcmJTibBqx4oV rhNfqXMir5zg2cTw
sChPrBTpuZN93Tt5uvIXfkVn6Xt1qfaROZHM/CMP5td9eQHnUV93VCToI4+w cL5+xX654cUD/OPK
8RoV15FghDOY1vUAAAEASURBVEm1I5HUc/cuqLjr1LHElnOPLNTuX+lehtiG oeck1l3rRQQu43vW
Sid2koXRdVfwO5ur3j8+NM6c+IpQ4sIFKcVnP/455sQlF1/sc4KXJ3gC7mRf K9dhWAsgf55XTXgf
eZIM6nbPcbntvav207k5VqDgn29aIO8ZlPvkr1fsoaq84o9wr9qRdIJXe5Rz 8lhiy7nt99y2amjY
3dX28HNS69yIwIU5ITKKjXvYheOKK/jtbunEGSYFV+LP/5wXKL78Je7EpYPa iWEpg3g79PYSuWdw
3HDiHvrIdSX6yCr58dCb+DbrxtfJg4rfNr3ntho5dIjU3rmTe0UOXzXkOTF8 Bc9cg5GMAAABAElE
QVQ3zAj3qB2pa8ev3HOVckIea1jlXoOuskEn/Ock1t3jRQQu43tWb9jIixOj e0aFEyyfmGBOnHv6
rFTi7Ble8fiKdOLSOidWvIoV3mr7XjNkOnFVqVassTrBKJlbL8qhfBuSF22f oshIDr/mXjp33XUL
ZOskndu38JFrB8WK8Y0yydaV2H6MCFerHY3WDr2dLZKFNw+L/atjDbu5V7gT +pzcdVd5EYELc2Lt
hg0bhRNXXvFy7sTgxPgwc+LM2XOEKXH2DJOCPP+lz35MODEgnOAxN068eiXv RvOq/L33vGaV+Che
9L91+Xvfnn/PqitHJ65jlT+2zeDwxvzVKirL9u+5Jj3fQwAAAQBJREFUdnBj /raVK9j69ezze65m
v26xgn18Nc+BNl49aEYYVju6cnTr69blJ+6/7bJhvX9+LHVWw8PuAnu9rv6c 3HUrvYjAZXznMJdi
w7o9dL+8dAxJJ546c+aZc0KJM1/+6vNnvvR7phPDQyuHZN+qVStXDa9YwT/y MPff8KpVQ6v4m1he
Kb54fd9s5cqVPIMfUi9D8qNcsXJIxFZbBiN4OxIRRdAq37GGh924cmFI7s04 J3edLyLQjO8cWr16
LWPTnlGhhHbis0+fUbAC5pe+FOJESNe7LJPu99xPMCeYFBL+mVUplBOffeop 3lT11FNPfZbxe8yJ
8UsvHbzY50R/SZHil/YGdAsAAAEASURBVNxn3LznTat8DDKufujm4Zs/8x8/ 7udjH/vYv/3MjdyJ
l+kypgBf+xJkxeiH3j8xwf8YE4KHRlnibv3M5z/3uc9//nPsVfGprcOeE0Po oruEWXHzuMFNItwI
zudvZEooJy4dHAw0/ck9pdDiBnrKpaF4TgAgEG1Wg0Nr7gVA8TruxNDQhAOA Yiu/LwongA84AUzg
BDCBE8AETgATOAFMEjvxwje+3hLfeKGDZw+6QVInXvj6c99rhf/z3NchRcYJ caJaiU/1j5/7y//b
En/53B+1sH99mNS+n+VIvROnWmH2d7/w/1rkC7/b0hHkYU6l9w0tP+qcqJ6q 0fiQg5UWthb3eaxH
AAABAElEQVRUWo7BDnPKTvE7Wm7UOVE51VJqlXUKW1bMGO04QU9VUvyOlhsd cyKXixmjLSdm4UTv
iHTCyuVyjX/6PGcg7TrRJFsRq71tyAk40TuinOBKNJGCWUACTrA4lsXjWDn1 yt7EsiXDfU40UcgS
8XUUAid6Sb0TszqJm/2YhRMzPidyI0okYQN/GckJtyyxxmrBCe0FnEiBhk6I lPH9zuWy/vHXO6H/
rJyQgAfyBf5nuXt0ndDZis5PLDd/4Qf0HxhO9JQwJwgjlyM8UYj/d66XZSj7 R8KdkDmE5wQPoD4n
1P51tqI2GVH7V/v2HxhO9JQQJ4hKswJLEKJ/5wXi/uaZCgW9bPFJKAAAAQBJ REFU4IQ5oWxwX60I
J9Qf3494lfsv5AqFghsqDkwcONFDGjjh/ZgLOoHUciHX0AmvJOGWJ2I7kSuw vRf8oXCi1zRyojCS
k+8FL4HEsvfRc8KyfH+6pDmS08UCr8jYwAmxf55LFOBEikQ5IVJlRGYJOp9w l0PyCauu4mpFVGYr
ZdMJf/aTE9eNgu9gcKLXRDnBE4j9YuU7EQsF33JOrW3iRFhdVjpRKLh/3Al3 t+K1EDxYAU70lAgn
xK9UXN0b4107YiOd8CiMjDQ9EJzoJRlwIsaB4EQvqXfiRBMNAmnlWImdiHUY ONFDDCeqM9PT5djM
zFgfbt2JFg7gHubR6RnQZaoRTv93j38AAAEASURBVMxMt9otzmnVCaf1rneg B0wXqhFOtNO5ASwF
KnACGMAJYAIngAmcACZwApjACWACJ4AJnAAmcAKYwAlgAieACZwAJnACmMAJ YAIngAmcACZwApi0
4USp1MsTBD2nDSfy+V6eIOg5cAKYtOdEKZ8vlfLsGsIXxCt7E8slGQ76mBac IDyYCCfy6/N57QG3
I88CSiJErCnJbUHfQNpzglSrjuuE/ivlhQQ8kC/wvxIPhxN9RbVK2nGCuPF8 TsgcwnOCB6DA0X+Q
gBSxnXDcWD4nlA3uawlO9Cek6hvFF98JN1JdPhEoT8CJvsRJ5kSp5PvTJc31 eV3vQKNWP5LQiTpk
DtGqSwE7AAABAElEQVSlkwU9oRtOQIn+ptNOgP4HTgCTBE4sLnF6mQyZon0n 0k6y7tPThMgQbTuR
doL1AErosgRORCMeRdDB7zqyThbViJNS4w6ciIQS23Y6KEUpH9V2E9XYm1Ij MJyIhNrlim13TgqR
wqE/fTjRL5BTBatsO511gvr6HvEbAeJmwJp8oBOSu4G+SUB72zcJTkRCKgem rYqd2Alf/yOObP1X
dwnXiIU1+qbhGrNzkrfcxb5J5v8QTkRCylMHCuXEFw9//yOO0adALayRfyWj c5JcZtlEqXtOBDvR
JHFi6UtBrKmpaavq/ozUNN+tK+H1P2rohO5cUFIfKZ2cLE1OTq6f7O61HmKT DAAAAQBJREFUg5hS
wIlIuBNPfnjH+7aMSe7ewrmbLT16Kr4Zgf5HXk8j04l8yCrmxOSkMKO7nZ0D nWgonGgAd2Lqrbdv
edvdJneM2bG/cF9fk7yvJOH2OgqUJ3z5BHtlOYTMJ0qT3b3Z7GTLCXdHvXSM xDomd+Ldb3yguFDH
vjsea+f7Vm1W/nqHOfiB+jsnsQyCcilK3a53ZMkJYts2271N2LLTgf3FwlYH 5Yuk0YbciVvfuK9Y
M1kove2Bdr/vTJIlJ1ji8P2wHTInepRROLZNxDFJHCd+6Y375uvKDrXSW+BE x50QybJIKm7mQBft
HjlR8Q4kXIymgRN3wIkOOUH1FZzJIBYc3wKthWMAAAEASURBVO/Uafib7SD+ 48AJQXpOiDgiWqVS
LwDtlRN+Ylw7HpFOOHa1qps04USnnJAxeAZRqYT9PjNXuRVOvOHhOW4CqZan p6YsW2hROwonOuOE
KEJQQvglPY08oWWUEycJqx5VKpUDudzUdKFCKIETyZ3wbcrjaSUa7iFgjdxS +MRwHCKW3FMQdwIi
46sKDWnZQ+nEr520Z2ePPXzMmsrt2sWyCnbseTiR2AlfarB4dkVXOxuV8Nza gbcRUS6JGiz1apKE
d3Iwk9yr2so9UbV1C2poJyoHDz983wfft2vqwIGp3U9WHObEDXAikRNUpQ+V t49YacL7fYdfRPi+
3TS1bTdYeWKt2OK+AAABAElEQVSrdRWd2nIvdNHNeqjORPiL3IpoydjmMU9d O1E++Mje+zbftdsq
l6dzd+6ynPnH4UQCJ4hIF9WWLCLZgQKm6N9WF8lZ9DIXx7XDdUKtUolr+1u7 5L64RqJhim+pt/KO
ySoRrmgNsg3XiUcf3nvfXXdNWZXy1Otff8vuSs+dqJ1sg1r8/ffWCbYlSxzi 27hi/ExZmV6nl6fB
opdROMT99QedkE3ii8G8RsYSQURdKEQsGmwmZSUQZUWDTMNz4hB3YtfU9JO3 XPOPr8nN9NyJk4+1
rsRjJ+Pvv8fXDt7hwN/2EFYP1e2JOn0c6v9A3DKmdkJdDFT6B1JV2qeCqLej +tOlQBp2GgAAAQBJ
REFUpK7ZzDx14cSDJ8sfFk686127dnEndqXgRAvp206cHjnh3u6k3vfPE8jM JvTmYiXxfdDtzo5b
WHACUb0rSGBHIpbc0JFRo3MCcWp21FrXicq0uHbsyr3rXXdec827pnp/7YiV vsR3l479EjPoxGLg
Hri7caW+9OARLHGqtHTciqt2QpUp1caO4YSXx+jyRsMzdZo6cdyuHvvgfZun rPKTTIvc1Iwz/6EE
Tlg5hhW2pWXpF5M46Utq8j5+iVPLohOOmzMENvTqoWHNE6r+oEqdujXCzTx8 TvhFCySqrF7YMltR
VVd/80jdMSvNnXCIU7GsKmFv0weeLLO6aBInciNRUqUn7q4AAAEASURBVORy 3JhmTpRzubJvwf1I
+U38Iw8eFlaw5Uw7EUwB72P9FV4XGqksf9hqT8H09qoQ+uLh31HFV4RwaP36 uoPGcoLp4Ii+mI4Y
BZTMiZx+MRFOhOYgvvQtc6PK7oL7kfJs4vDmN27eJ/IJ286eE7KhsS4BAve+ zNUVlZSOWmc6YdZF
HV3D9e/DV57Q+UijM7VjOhFg/qFOOGHx3MKyRM7ALyjsnz/Mb4cvfXlMdxdc CC1Yjamw78EHH5RO
zM97ceRO2Ut4JtRlJ9wbn2pMtv7eKxWbFwUbJYDbcEGMq0u0E1oKXwklrAjR 0IlGt16UE0fqnCgm
ckJdO2S5Qnyy+PKI1MIsJMdPAAABAElEQVQLa80JEuwKNu+VJ3w7jSjIdNMJ qYGqNehNHC6Ew7Nd
x25078u2dW3BSxTxuakTXoZDWnXCtht074p2YrIDTvB3/me5Keu+izB/nFhO zDOKkvn5mhdHXpLY
q/yLcY4dzSdk7ymRTEQVKJgRqmwhokUngG7P9Hkji4rRTtTdMLFDipWNnGio hOyP+YYH9x0vBjn5
eCInVILqjIHWO5EzCxwtO1EjQScoTdUJ6m+0bNhpxdfe4Hip49+x2zShMPMF /z0Onje5Owy5q6qW
vbqw6CDc4PSEE3f9wvXv2LrN5B3Xt9Vv20silTxW55yIbp9IOZ8Qtzf8TjT+ zh2mgs2TxnaVwYgq
GwAAAQBJREFU8KerSDJfIsrKJXG31dciOSUArxtQHdN3p9y4YIljOuqgpEEu ocd3vOG1V5lc+4tt
je/wkojK4qSbTxjlCRnWYhkzsn3C3WlaTtCIFVGIEbbESxtffLVI/esW/YVX b1s5bM/YsG6HXpio
WzY9UTE2cPqBsbEHTB6Lr0R9m5VumVJ1DPHB4k7Idx0W4YSqgpbr6qK8feII q3ccrmuf0Du1rIiq
bnfrHaTBN92SK1lAOJF4DLHxfVvyGhGsAES3bUrq2qzK5bo2q8y2T0QEq++4 W4nXJXrrRAMlYrVt
8/aJ0j7ZPBFsn2j5HHvYb7tR40RPs5G4fT+64URbxEjf6PaJGI5h4ywAAAEA SURBVKTnROMSXa/G
/MTHsXb3kxNR7RMxSNGJhrUQ3XGXuiXIRR0g20fZm7rz7vasU2VOFUQXveKp 9x5oFVU7cuuwbl2W
quP6/1995QQNtk9ksv9E6044rgNUp5G2g9cp+DFlpwrHdcJRe6WuT/Ld8WTw TlQMVHaCG1K1O9VV
VMyI6WqUISeWVj+rkFQPx9f/iuob5aKzrkoumZwBJxb13TIxBtnxOyEdEGGu EVR2wPECZfXV8dmq
+l7RjDmxtPpjRqR6CKrzhOxqR73bW/pYQSeUPFSmJ6FyO+2UY8RdlG0SRGzs D9TbEX9E3S04O050
m9ScsEMGidY5IQb2uDMPUF96SSfd1O8gAAABAElEQVR4h12iCxKyH67juVHn hHdEftbaCTdQ3mSj
3nbKCRtOaLrrRERPTJ1mwXtfPif01V0VBdzmc5E5qHvrcZzgf8QfqNxyqNd0 ogeawQlN553wbdSw
J2aw+7U7Vkskuy4QOO46sUhVmWHRPxjEf+jg4XwlkGBIyGQoyho4QbvhhNdv rlJpdFtad5pbVIV/
mRVQvxMyn+DZCRVdteVvnFAhCHt3vKInL42IwaX8Bx+o2qryhK56ig1FPkG8 Cq17Fw9O0K5cO/iQ
Kz4qu8lt6UWqCxuU6rYHd0GvcN90K0WgWYG6MRZpMNgX3a3muht4rRzGHTY4 IehKeUJ0bG3Yd4Xj
DSLNyUb3TwAAAQBJREFUDnCCdq2MSWNs3LgAmg5wgqY5Zypt3HaRDnCCpulE JmeugRM0RSdIk0pJ
OsAJmp4TNIulCTghSMuJin8skDmYIgV0+1ZmnFi698CiiJp/IG24Ex+2TtcN +ZHatPl9t8XSvVce
AclkAXNROnEg+fM7etSnJkmcrDlBwybVzQTcial3376lri//2JYH2h/fEeiQ G9G33mSpzEkSE9rk
3liKcCfefeujIcl/ckv748Asf7ftiDE4dcdbEnOSxIUrkcnCxKJ04ta3ngop PJCxhONFrfad6MM5
SVpLYDurZQkOd+KX3hpa7xgba/f7djUQo7PkEEA+4UROTTqhp6MIjNlKNtss xzgAAAEASURBVCdJ
uvNPcFqRotLgwuEfE6h3TAJrZCdeX7dt9/46dQNlHwwSuOFJdUTqfaT+Awad CHnoLEnuhB7FqacX
yPmmnpBFjnAnWp+TJN35JyTxf/iVSqNRvLLbJSVqNkRKdZ9c79h6jKgtpg0Q 3ff4Ox8+Ks6DX5e4
dSIz0tN1UyLPXm/Ee9qJDc0Tl05U650gHXCibii5+FNTT4jho744ieYkSXtc eQtW0EqTooQtE5D3
vyTsA+90R1QXByWEygCUE0QmP2/rEMlry27aIlD2/VUzbutJKtyNqPrX0Alf owQhd3fLCd8wc1+c
xHOSpDj/hCtF86qE3TiTWNSjN3R3e/kr5+mEX+jyAAABAElEQVSop08TnaRk uC2zBN7VSnjGveAT
X4qMQ6ynomvnoidDvTh1syIGnCCnymVPj6ROeBNP8FxhxHCibgKKxHOSpJ9P qC75jdbznlfNshP+
yxflDWLrWbVF+vkmFdATJKtUdXyDSEjAicXFutlVRQFFZyRNnCBO1Xpy166C /dcXRI6RwAlVF9Xl
CT31RH0+0WJ5IrJ9Iu35J/zfuBPVYi3mPGteAyVi6hAi9kTkTMp8Cn4xMwkV z96hYlYTsRVfL05L
zGPi6A9E/eMPc5BnLRJY/SdYEF8pYjW8dhC7fPprn3zvnbs++Z2/EHNdJHBC t1m5s0Lw0qSeHcKb
jqLlMmZ0+0S6sh/jOgAAAQBJREFU808EpeCd7sytqJwEL06bhEg+2WtfLC3q JV3ZkFd4df9BbqO2
E4FUDvlT7zLEFzG4ES+2RJUxHXv24Ac/9Rfnf+uf/fZ/+19/RpI5YYVMNdCU ZHOStHyOXe7LT1Qf
XYl83GvjYkR20E7Yxw7tve83/svfffP3//RPf/tfVpgSzpbUnOi/OUlCoGKm IFvr0Nn+WV1FO3Hq
IJ+D/dfPf/e73/zke2/ZVU7kRFssyTlJZLRuJV6XEE7cWnWq3Ilf/Z2/++43 PzX1+n/0+ik7i070
6Zwk/YbrxLGH937w3//38yybuPOVr7gmV8mmE305J0m/4eUTB4997X/8zr/6 /e/8pzpgu50AAAEA
SURBVFte8YprdlWz6ESfzknSb7hOWAdPf+3X/2nu333nP/yTV77ylgMpXDuW Wz+rzCKdqLACctn6
jbveN/O1P/ut995y5+5K78uYdutKnDzZ/hyecCIS1wniVA7yvrpOefrAdMK6 aCaBE3HxnOBz3Agc
+XhbOAEnTODEMnfCrnPCgRPL2Ylbb52p2o5JdTOeTb18nbjrjTtmTlcNTj96 e/v9trMInIiLHN9x
61vfvdnk9iTjOzIInIgLd+LJ5M/vqCYbb9oDSBVOxKQzY4hJNetS1J0hnIik M07wr7yukJop6qSF
E5F0yAneQzDbmP9BOBFJp5zoO+BEJHCCwgkDOEHhhIH1/eOeAAABAElEQVRy ImS86BIHTkQCJyic
MIATFE4YwAkKJwzgBIUTBnCCwgkDOEHhhAGcoHDCAE5QOGHQaSeKk5OTRf5e jN4kelUPgRORdNqJ
iTUTExNFONHPdNyJCZboE5lI9cbAiUi64QR/KRaLLL8QdvAF8bkodWH5RDBI r+gpcCKSTjkh+tQQ
zwl2BeFXEeEFf5XXlKJYnDCD1IqudsxBn5rYdMgJ2fcu6MSE5wb/K1LuQVFK QMWKortarOimE+h7
Fx/Rb9s6HTI2sJWHung9YMOd4DmDvKRMFKnrhDJDZBHdvnagj2583Ge63C3Z Irn77tae6eJ+4bqM
6XOChygnRBHCcEKsVmWLSi4/igAAAQBJREFULoK+/LHp9DNddF3Uc0IVHqQT gfKEG6TLE10FY37i
wp341Q4+00UnLv/l06K/kkHlckhQb+odcCIu3XmmSxaBE3EJPtMlULJM8KyG LAIn4hJ4pos9a9tz
c7O2nKQfTixrJ+QDGsjsMT4T8LG9syThM12yCJyIizsHe43ZMDt7ij8B4APb Z0my53dkETgRF3cO
9nkxW/jsY7PEPrR9+7GEz2rIIHAiLq4TshBh79s3O3ts7wf22nACTognwlD7 5L5fe/ijT3z0iVk4
ASfEnJjEnj3y8AefODZ7DE7ACfFoKXt+/uTx+WMPf/QYcwJzIcIJ7gSTYr52 cu9vfvQQnFjmTj+Z
G7sAAAEASURBVNwqnKhxI+bmasfTcQJzsGcFz4na/PHjx48cPjx//AO/+UQK TrT1rIYT8fcPJ+Li
d2KWOXHkiHDiiRScaOFZHG4cONEFPCdslU8Uj+994lBiJ+oe8hnx1E+PWE6Y z5yFE11Az8vPnJjj
ucS+fcUje/c+sTepE3UPA454OrBHHCfqnjkLJ7qA6wQvX8rnbB05ODs7m/DZ T1bd00VbcsJ9oKjx
fFH+zNmFIw8eXtDPnIUTXcB1Yva4LrjtO8WfiJ3MCflAacuy3CdU88eJ+55W XU/dc4jdBe85xHXP
nHWdkPsVz0iPuEjBibh4zwObPTWrsBM/08WSaSMeXK+fZO9bbuapqSHkAAAB AElEQVRE5PPKa+KR
sw/Kh87yZ86ecA/oHiPq+cdwIi7deaaLSsXciOXmGN5yxFUkhhP1z5w94YvB haPyL8Y5wolIpBOd
fqYL/8GO5HxJWv+TryOWE+YzZ/1OUAonOkJXnumin2HvJallNXXiRKtO1AhF PtENuvJMF/2rlYlp
+fxoUJ6I4UR0+4R7DDiRHPlMlx1Jn+li5BOWfOXvluXVNfzLdcRxIrp9Qu/X itg7nIiPcGIm6Rji
iGtHS/s4YdZFy+W6uihvnzjC6h2H0T7RRaQT1Ww5IRupyuW6Nqvo9omWzxFO RNIVJ9riRIy2bd4+
UdonmycC7RMxgBNx6SsnotsnYgAny353wgAAAQBJREFU4tJnTkS1T8QATsSl r5ygwfYJ9J/oDhly
Av2sMkJ2nLBPtAH6Y3aB7DjRbeBEXOAEhRMGcILCCQM4QeGEAZygcMIATlA4 YQAnKJwwgBMUThjA
CQonDOAEhRMGnZmXH04sJcS8/Ad2bN4cNi9/bClwv2Mp0XBe/p46gfuiWUGM 7+jgvPztE6f/hAn6
T3QD5sTubMzLH8sJzD/RA7gT3rz8ARLMt910ApIQ4jiB+Sd6QWBefj7zuvf9 J3Ci6WQTIdT15fcW
MP9ET/HPy888sN1yZaJ5+RM60cb8Ey2fI5yIxHOCXLjAp8gkxPnxBfGshgTz 6Con1EQhYkRgrtG4
QE6csaedGOAAAAEASURBVIGR809gTpIO4hSUE+Rvfv4N0XBl/+FzP/nbjjnB JwoRM5GMNBo/zIk1
rjxqfAfmJOkgzIndwokLP//ZnxTKjMK/+a8v/hVJ9qwGzwmeSs3nnuC0PNeA Of8E5hroEK4TP/75
z774r/8F459/4sUOOSGzh645Yc4/gTlJOoTfiR9+8dOf/vQnPvHp5577gtMJ J9wU7ZQT0e0TyCc6
iN+Jn/3sh//zD/+Y8Uczp51Ec5x5E5qJfKJT5Yno9gnMSdJBPCf+/oc//OFP /6Qqboiyal7Cee90
RUNKIAoW8esdbcw/gTlJOodw4lbhxE8ZwomandAJyyj+W3Fmo8D8E1kh6MQS 3bK2AAABAElEQVRL
zIlajT9mtONONG3txvwTWUE74fz471/66UvSibnZuYTXjnbA/BNZwXPiJy+9 xJ2ozc0dPzibVScw
/0QPkE5UHOdvf/LiSy+9+MVq7fjxYwcTz8HeBph/IiuYTpyeP3bs4IePuU6E ddOs76sZ7kRUN63w
HSbrZ0Ui9p/YicDOZKS006zbeE689L0XX/zeH5y2Z2ePHZsNdyIijVvNJ8Kd SNYfM8oJLxxOxMV1
4sJf8fLEH1izs7PlchpONNq/L26cZTiRCOWE7ZALf8P432q2bT4lO5xY1k5E z8sPJ5anE43m5YcT
y9KJhvPyw4nl6YSYl19hzssPJ5apEw3GEMOJk2YJ/gAAAQBJREFUZeqEldiJ aivj0lNxglThREw6
4wSptiJFGk7UnWE7ThA+/F4doq6etnQoP7lLOtEqRhpUq82PlSbVqnH+vtkV 4t7vcJ0gjl0pW1Zh
ifLk1O6OOJH53415/m07weNWZ6YP7N69K4zdHqHr+4Hduw9Mz3TAiX4jmRPl woEDU0uXAwcK5fpH
zjZlWTthn54pTD+5dJkuzJyGEy05waUoz1hLl5lyO0oscycc27wXsMRoR4nl 7UT2i9SJaec7XeZO
gBCWpxNmKwfw0+9OVGM6YcSCFEsXf+K24ETm22tB2wR+7604sfQLl8sX0q4T YFkAJ4AJnAAmcAKY
wAlgAieACZwAJgsHLxwAAAEASURBVHACmMAJYAIngAmcACZwApjACWACJ4AJ nAAmcAKYwAlgAieA
CZwAJnACmMAJYAIngAmcACZwApjACWACJ4AJnAAmcAKYwAlgAieACZwAJnAC mMAJYAIngElbThS3
bSu6y8WorXxb+7YPrGkaF6RAO04EEpktNUnZbWuipNi2LcGZg27RjhM8KYue E81SVqwP3QhOZJJ2
neCISwhTYk1RXU2KKjcQn4pF9dF1wh/M8xr2zwzz7QSkRStOyHCVnsRNV+aE vJr4w9mKNeqjvnb4
g0U0Fd0fpnfigB7TnhOOnDOVuFIUZbqyXzvPBXjaFotagjUi+5BZhHLCHywj uO8yTKxQ9uInAAAB
AElEQVSXO0nne1m+VP1PNmrhGXGBuVZlth90Qmf7OgfwFyX4Rr5gwwllhspO cO3oPdW25tv25mDn
mYErgj+fUCUIWQatd8IXHOqEWO8WQ0BPac8JN1LRKx/In354ecJ0wh9slCfc MG8noLfEfVZDVKSi
r4xZ5NWG8HqHqrG6L/5gURbREb0w1DvSIqkTyYlu2wTpkA0noESWSN8JkDXg BDCBE8AETgATOAFM
4AQwgRPABE4AEzgBTOAEMIETwAROABM4AUzgBDCBE8AETgATOAFMMuaEfQKk gJ1lJ048dhL0nMdO
ZNqJkxT0nJNwAhh0xYlCLpcr1CVwgaGX9AucyCDdcIIrd/8qYwAAAQBJREFU ESIFC/I5UQixBk5k
gm44kcuRsGxABHvixFACTqRC15wgIr8o8CtGTmQLuRGeT6gw/7oGdsCJNOii E+ISUmAq8ItGLicX
ZFgusA5OZIsuOsHfuAoF/iqXxbsQxLcu0gg4kQ7ddyLwKlcFQ+FExuhiGTPK CV8+ASeySBfrorrs
IGqh4eWJnL+GCicyQjfbrHQdQ9UzRGnSqHf4W7LgREboXtt2RMtVS8CJNIAT wAT3wIAJnAAmcAKY
ZNwJ9LNKgWz3s0J/zFTIdH9MkAHgBDCBE8AETgATOAFM4AQwgRPABE4AEzgB TOAEMIETwCRjTuB+
Rypk+n4H7oumQbbvi6L/RI5Ha9EAAAEASURBVBpkvP8EnEiBrozviJhewh9U 8HXfje7MDyfSoCvj
wEYKoeO7fEEFf5/u6GE/cCINuuLEReFj/nxBcoyg+yFqgCCcSIPu5BM5OV48 cIHggwPdkMAUFXKA
eUGNHfNPSAEn0qA7Y4hZkudygQuEHDDqhhT878KJgjvGtAAn0qU7ThTE+GD/ sHE94YTILYh/SOlI
TjskI/rLFnAiDbo01wCfgibCCV/Rkujh5p5AwanP4EQadGv+CV7ODHEi56up uiL484lCQAo4kQbd
cqIwossT8loQUp7IFdx8opBDeSI7dLXNyp1kgugChFsTKfjKmAVvRgrUOzJA F5yQkwwknWYATqRc
wT/ZAAABAElEQVQGnAAmuAcGTOAEMIETwCTjTqCfVQpku58V+mOmQqb7Y4IM ACeACZwAJnACmMAJ
YAIngAmcACZwApjACWACJ4AJnAAm7TlR7fVpgh5Sbc8JSLF0qbblBJfCAUsT vxKtOEHSOmHQA0h7
ToDlAZwAJnACmMAJYAIngAmcACZwApjACWACJ4AJnAAmcAKYwAlgAieACZwA JnACmMAJYAIngAmc
ACZwApjACWACJ4AJnAAmcAKYwAlgAieACZwAJnACmMAJYAIngAmcACZwApjA CWACJ4AJnAAmcAKY
wAlgAieACZwAJnACmMAJYAIngAmcACZwApjACWACJ4AJnAAmcAKYRRJCAQAA AQBJREFUwAlgAieA
CZwAJnACmMAJYAIngAmcACZwApjACWACJ4AJnAAmcAKYwAlgAieACZwAJnAC mMAJYAIngAmcACZw
ApjACWACJ4AJnAAmDZ0Ay5NoJ6YrYHliWRFOVAtgmWJVnHAnnCpYrjhRTgAA J4AJnAAmcAKYwAlg
AieACZwAJnACmPSREx1pmHmhn0+gR/SNE9WZHZvfnZjNO2b69gR6Rt84MbPl jrG7k3PH5krzY4Wf
wI4tYw8kZmzLjnZPoGf0jRM77ti30AH23fFouyew5QTpwC3pk1vaPYGe0S9O vLD5baWFWmIWSm/b
0e4JjHVCCUrG2jyB3tE/TrylVEueIqLbp54AAAEASURBVLXSW8baPYGx5Ifn jLV5Ar2jX5xwNt/R
GSfuaDdJOuQEgRMdI9QJy0rRCSuXy0UfP+LUCJzoHKFO5HKtpEdnneBKNJAi 4tQIuRtOdIrNdxyt
c8KKSJOI9OBOHO2YE+Ig0fbBie7DnJg3+5/zHyp742qoV5Gfk9yIpT9awRjz iZwwDi7f5YEsyz0H
+cpWh58CnOgYm2943HSikCuwP/bGKMjX3Ih8laFiIejE4ze074QppD4L97iB M8mFn4KzBU50ihAn
eKqwf/ytIFJlJCeDRIj+2AMn+KEL+rjemYSeApzoHGFOiC9fJY7KIbQT/Dfa Eye8A6krmXsm4acA
JzpHvRNGLpS1AAABAElEQVQij1YeFHyvIm38idRFJ3xH9PIJ9Rp+CnCic2y+ 4UPzIYlC5O8xWJ4o
yI9h+cSHOuaEVLLgzyeC5QnkE92m3olCQb3y75/IV54IBR3IkscoYnbSCXkE 4h0oeCZRpwAnOsfm
Gx6KuHbU5x3RzD/UOSfaA050DuZEsbkTdRmDQRFONKd/nLh+stj8G29GcTJl Jxw40TFe2HzD5OPF
pJx8fPKGB0ibJ7ClI/+R6uY2T6B39IsTzo7r37F1W3Lecf1jbSbJjtsfrSTv onv60dvbPYGe0TdO
VLa89rVXJecXx+w2k6Sy4/bNHeD2B9o9gZ7RN044px57YKwJTTvIjj3wmE3b boslAwAAAFpJREFU
TZLUT6BX9I8TnSjhqWJen55Ar+gfJ0CvgBPABE4AEzgBTOAEMIETwAROABM4 AUyEE4ND69+/FQDJ
67gTAwODgwMBLgHLloGBi5kTFwMQgDnxMgAC/H+plMoKMNQywwAAAABJRU5E rkJggg==
------=_NextPart_000_011D_01C7D842.B4F75E20--

Attached files
Saludos :D

Israel
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:

Copy / Paste Image

Mensaje por Israel Solis »

José:
Me ha funcionado de maravilla, mil gracias!!
Cambiando la oBevel:oBkgnd por TImage directamente me ha funcionado mejor y he logrado el efecto que querí­a con la propiedad lAutoFit que me comentaste
GRACIAS
SALUDOS!!
P.D. Serí­a bueno volver a leer buenos artí­culos en www.xailer.info
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:46b78cfb$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Israel,
prueba a cambiar esto:
::oBvlImg:oBkgnd:CreateIndirect( 1, hBitmap )
por:
::oBvlImg:oBkgnd := TPicture():CreateIndirect( 1, hBitmap )
Con respecto a mostrar la imagen "proporcional" he mirado la propiedad nBkGndMode de la Bevel, pero no cuenta con la opción que me gustarí­a. La idea es que muestre TODA la imagen dentro del Bevel pero sin deformarla, en FW utilizaba la clase tZoomImage de Jaime Irurzun para lograr este efecto. Alguna otra idea?
Echa un vistazo a la propiedad lAutoFit de TImage; seguramente es eso lo que buscas.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--
Saludos :D

Israel
Responder