Xailer & OZ Software

Desde Xailer/xHarbour, ¿se puede acceder a SHELL32.DLL para utilizar los
Iconos de Windows?
Gracias.
Un Saludo,
Xevi.

Xevi,
> Desde Xailer/xHarbour, ¿se puede acceder a SHELL32.DLL para utilizar los
> Iconos de Windows?
Aún mejor, Xailer tiene un componente TSysImageList que te permite
acceder a todas las imágenes estándar del sistema.
Un pequeño ejemplo:
GLOBAL oSysImageList
En un método de inicio:
WITH OBJECT oSysImageList := TSysImageList():New()
//Si quieres iconos pequeños
oSysImageList:lLargeIcons := .F.
:Create()
END
Después de crear el treeview:
::oTreeview1:SendMsg( TVM_SETIMAGELIST, TVSIL_NORMAL,
oSysImageList:Handle )
Y para probar cómo funciona:
METHOD AddDrives() CLASS TForm1
LOCAL aDrives := GetDrives()
LOCAL nLen := Len( aDrives )
LOCAL oItem
LOCAL i
For i := 1 To nLen
oItem := ::oTreeview1:AddItem( aDrives[ i ],
oSysImageList:GetImageIndex( aDrives[ i ] + "" ) )
Next
/* Aunque el archivo no exista, el sistema debe
devolver el icono correcto en base a la extensión
*/
::oTreeview1:AddItem( "c:testsTest.doc",
oSysImageList:GetImageIndex( "c:testsTest.doc" ) )
::oTreeview1:AddItem( "c:testsTest.xls",
oSysImageList:GetImageIndex( "c:testsTest.xls" ) )
RETURN Nil
Y verás que las imágenes de las unidades de disco y de los archivos son
las mismas que utiliza el sistema operativo.
También se me ocurre que puedes hacer algo así­:
FOR i := 1 To 200 //Cambia esto
::oTreeview1:AddItem( Str( i ), oSysImageList:GetImage( i ) )
NEXT
Está escrito al vuelo y quizás necesita algún pequeño ajuste pero debe
funcionar.
Saludos,
José Lalí­n

Xevi,
> Desde Xailer/xHarbour, ¿se puede acceder a SHELL32.DLL para utilizar los
> Iconos de Windows?
Además de lo que te ha comentado José Lalín, acabo de modificar la clase
TIcon para que el método LoadFromFile() permita como segundo parámetro el
número de icono que quieras. Así, puedes usar:
oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 ) // Carpeta
--
Un saludo,
José F. Giménez


Attached files Icon.zip (2.2 KB)Â

Jose,
Esto estarí­a de lujo!!!
Pero he probado a incluir en mi proyecto el obj adjunto, y siempre me muestra la image 1a de SHELL32.DLL.
METHOD FormInitialize( oSender ) CLASS TFrmASoft
::oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:[email=43497944@ozsrvnegro.ozlan.local...]43497944@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> Desde Xailer/xHarbour, ¿se puede acceder a SHELL32.DLL para utilizar los
>> Iconos de Windows?
>
> Además de lo que te ha comentado José Lalí­n, acabo de modificar la clase
> TIcon para que el método LoadFromFile() permita como segundo parámetro el
> número de icono que quieras. Así­, puedes usar:
>
> oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 ) // Carpeta
>
> --
> Un saludo,
>
> José F. Giménez
>
>
>
--

José,
Para probar lo que me comentas, me falta donde encontrar los valores de
TVM_SETIMAGELIST y TVSIL_NORMAL
Un Saludo,
Xevi.
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=4349767d@ozsrvnegro.ozlan.local...]4349767d@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> Desde Xailer/xHarbour, ¿se puede acceder a SHELL32.DLL para utilizar los
>> Iconos de Windows?
>
> Aún mejor, Xailer tiene un componente TSysImageList que te permite
> acceder a todas las imágenes estándar del sistema.
>
> Un pequeño ejemplo:
>
> GLOBAL oSysImageList
>
> En un método de inicio:
>
> WITH OBJECT oSysImageList := TSysImageList():New()
> //Si quieres iconos pequeños
> oSysImageList:lLargeIcons := .F.
> :Create()
> END
>
> Después de crear el treeview:
>
> ::oTreeview1:SendMsg( TVM_SETIMAGELIST, TVSIL_NORMAL,
> oSysImageList:Handle )
>
> Y para probar cómo funciona:
>
> METHOD AddDrives() CLASS TForm1
>
> LOCAL aDrives := GetDrives()
> LOCAL nLen := Len( aDrives )
> LOCAL oItem
> LOCAL i
>
> For i := 1 To nLen
> oItem := ::oTreeview1:AddItem( aDrives[ i ],
> oSysImageList:GetImageIndex( aDrives[ i ] + "" ) )
> Next
>
> /* Aunque el archivo no exista, el sistema debe
> devolver el icono correcto en base a la extensión
> */
> ::oTreeview1:AddItem( "c:testsTest.doc",
> oSysImageList:GetImageIndex( "c:testsTest.doc" ) )
>
> ::oTreeview1:AddItem( "c:testsTest.xls",
> oSysImageList:GetImageIndex( "c:testsTest.xls" ) )
>
> RETURN Nil
>
> Y verás que las imágenes de las unidades de disco y de los archivos son
> las mismas que utiliza el sistema operativo.
>
> También se me ocurre que puedes hacer algo así:
>
> FOR i := 1 To 200 //Cambia esto
> ::oTreeview1:AddItem( Str( i ), oSysImageList:GetImage( i ) )
> NEXT
>
> Está escrito al vuelo y quizás necesita algún pequeño ajuste pero debe
> funcionar.
>
> Saludos,
> José Lalín
>

Xevi,
añade #include "Commctrl.api" y listo.
Si no consigues echarlo a andar o necesitas algo más no dudes en preguntar.
Saludos,
José Lalí­n

Xevi,
Esto estarí­a de lujo!!!
Pero he probado a incluir en mi proyecto el obj adjunto, y siempre me muestra la image 1a de SHELL32.DLL.
METHOD FormInitialize( oSender ) CLASS TFrmASoft
::oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
¿Seguro? Por favor, reví­salo bien. Yo lo probé antes de enviartelo y me funcionaba perfecto. Prueba también a ponerlo en el método New() por si acaso:
METHOD New( oParent ) CLASS TForm1
::oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
RETURN Super:New( oParent )
y no le pongas ningún icono al formulario desde el IDE.
--
Un saludo,
José F. Giménez
--

This is a multi-part message in MIME format.
------=_NextPart_000_0021_01C5CD8D.122C40A0
Content-Type: multipart/related;
type="multipart/alternative";
boundary="----=_NextPart_001_0022_01C5CD8D.122C40A0"
------=_NextPart_001_0022_01C5CD8D.122C40A0
Content-Type: multipart/alternative;
boundary="----=_NextPart_002_0023_01C5CD8D.122C40A0"
------=_NextPart_002_0023_01C5CD8D.122C40A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jose,
Te adjunto un Sample, por si algo hago mal, creo que no, pero... a mi =
siempre me muestra la primera imagen.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribi=F3 en el =
mensaje news:[email=434a2e43@ozsrvnegro.ozlan.local...]434a2e43@ozsrvnegro.ozlan.local...[/email]
Xevi,
Esto estar=EDa de lujo!!!
Pero he probado a incluir en mi proyecto el obj adjunto, y siempre =
me muestra la image 1a de SHELL32.DLL.
METHOD FormInitialize( oSender ) CLASS TFrmASoft
::oIcon :=3D TIcon():LoadFromFile( "Shell32.dll", 3 )
=BFSeguro? Por favor, rev=EDsalo bien. Yo lo prob=E9 antes de =
enviartelo y me funcionaba perfecto. Prueba tambi=E9n a ponerlo en el =
m=E9todo New() por si acaso:
METHOD New( oParent ) CLASS TForm1
::oIcon :=3D TIcon():LoadFromFile( "Shell32.dll", 3 )
RETURN Super:New( oParent )
y no le pongas ning=FAn icono al formulario desde el IDE.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_002_0023_01C5CD8D.122C40A0
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.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Te adjunto un Sample, por si algo hago =
mal, creo=20
que no, pero... a mi siempre me muestra la primera imagen.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><SPAN=20
style=3D"FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; =
mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: ES; =
mso-fareast-language: ES; mso-bidi-language: AR-SA"><IMG=20
height=3D147 src=3D"cid:001b01c5cd7c$4ea126b0$[email=0ac8a8c0@Xevi]0ac8a8c0@Xevi[/email]" width=3D612 =
v:shapes=3D"_x0000_i1025"></SPAN></DIV>
<DIV><SPAN=20
style=3D"FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; =
mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: ES; =
mso-fareast-language: ES; mso-bidi-language: AR-SA"></SPAN>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></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>"Jose F. Gimenez" <jfgimenez@wanadoo.es> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:434a2e43@ozsrvnegro.ozlan.local">news:434a2e43@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<BLOCKQUOTE=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 estar=EDa de =
lujo!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Pero he probado a incluir en mi =
proyecto el obj=20
adjunto, y siempre me muestra la image 1a de =
SHELL32.DLL.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>METHOD =
FormInitialize( oSender )=20
CLASS TFrmASoft<BR>ÂÂÂ ::oIcon :=3D =
TIcon():LoadFromFile(=20
"Shell32.dll", 3 )</FONT></DIV></BLOCKQUOTE>
<DIV><FONT face=3DArial size=3D2>=BFSeguro? Por favor, rev=EDsalo =
bien. Yo lo prob=E9=20
antes de enviartelo y me funcionaba perfecto. Prueba tambi=E9n a =
ponerlo en el=20
m=E9todo New() porÂsi acaso:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD New( oParent ) CLASS =
TForm1</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂÂ ::oIcon :=3D=20
TIcon():LoadFromFile( "Shell32.dll", 3 )</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>RETURN Super:New( oParent =
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>y no le pongas ning=FAn icono al =
formulario desde=20
el IDE.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV>Jos=E9 F. Gim=E9nez</FONT></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_002_0023_01C5CD8D.122C40A0--
------=_NextPart_001_0022_01C5CD8D.122C40A0
Content-Type: image/jpeg;
name="clip_image002.jpg"
Content-Transfer-Encoding: base64
Content-ID: <001b01c5cd7c$4ea126b0$[email=0ac8a8c0@Xevi]0ac8a8c0@Xevi[/email]>
/9j/4AAQSkZJRgABAQEAYABgAAD//gAcU29mdHdhcmU6IE1pY3Jvc29mdCBP ZmZpY2X/2wBDAAoH
BwgHBgoICAgLCgoLDhgQDg0NDh0VFhEYIx8lJCIfIiEmKzcvJik0KSEiMEEx NDk7Pj4+JS5ESUM8
SDc9Pjv/2wBDAQoLCw4NDhwQEBw7KCIoOzs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7 Ozs7Ozs7Ozs7Ozs7
Ozs7Ozs7Ozs7Ozs7Ozs7Ozv/wAARCACTAmQDASIAAhEBAxEB/8QAHAABAAMB AQEBAQAAAAAAAAAA
AAQFBwYBAgMI/8QATBAAAQMBBAUHCAcFBgUFAAAAAAECAwQFBhESExVVkZMW FyExUmLRBxRBUXSB
obIiNTZhcZKxMjd1lMEzQkVGZXMjJzRWZEOChKLw/8QAGgEBAAIDAQAAAAAA AAAAAAAAAAQFAQID
Bv/EADkRAAIABAMECAQFAwUAAAAAAAABAgMSUQQRkRVSoeEFFiExQXGBwRMU YbEiMzRy8AYyUyNU
grLS/90ABAAo/9oADAMBAAIRAxEAPwDsubxdtTcFo5vF21NwWnZ9SYqVNXeq waGodT1NqQRytwxb
iq4Y/gTIZ+IjeUPb6HNqCHvKLm8XbU3BaObxdtTcFpbpfS7a9VrwfHwPrljd 3asPx8DpVjLPTka1
ybrUpubxdtTcFo5vF21NwWlzyxu7tWH4+B5yyu7taH4+AqxlnpyMVybrUp+b xdtTcFo5vF21NwWl
xyyu7taH4+A5ZXd2tD8fAVYyz05CuTdanL2lc91BCsjbTnmVGuXI2JMVw9RS w2JbE1kPrkdlf1sh
VOlzfWdnW3lsGqe1Y7XgarMf2kXBcfcR1tyx1/xmk/8At4EiB4ilVJ5+XI5x RwZ9jWpQ2Zd6Wvs/
zqStmgdo8+R0af8A7Ato7iK9UTXEqdGP9kh+yW7YkbJc1r07lkbkRGovR969 BPhvZd9rum1YU6MO
pfA4zYsWolQnpyNoI5eXa1qcxbF2pLGkY6Svnkp3Kn02RIqp6+gq1bRp1Vtc v/xkO8qb5XcjizLX
Rz9OGRjVVf0PinvddidquWpih+6SNUX9CLEsc4slFEv+K/8AJ3UySl4a8zgX s0rkiopayWV7mtaj
4MEw9KqXtRcW3UtGFlLXU76FyIskkmKSNX04InQdOl6bsNXFLRpkX1o1fA++ V93drQ7l8DpB87Cs
nU/TkaRTJL7ml6nOJcO0/NIHLaUfnKyIk7Eb9BrMelWr6VwwIr7jXjSuqGsr KRaRrXaB6qudy+jM
nUifgdbyvu7taHcvgOV93drQ7l8DerGWenIxXJutTkLRuPeaOZiWZV0U0SsR XrUOVqo70omCdQtG
415Y5mJZlXRzRqxFetQ5WqjvSiYeg6/lfd3a0O5fAcr7u7Wh3L4CrGWenIVy brU5WpuLb7a2nbS1
tM+lcjdO+TFHtX+9lROhfuLLm/8A9al4SFxyvu7taHcvgOV93drQ7l8BVjLP TkK5N1qU/N+u2peE
g5v121LwkLjlfd3a0O5fAcr7u7Wh3L4CrGWenIVybrUp+b9dtS8JBzfrtqXh IXHK+7u1ody+A5X3
d2tDuXwFWMs9OQrk3WpT8367al4SDm/XbUvCQuOV93drQ7l8Byvu7taHcvgK sZZ6chXJutSn5v12
1LwkHN+u2peEhccr7u7Wh3L4Dlfd3a0O5fAVYyz05CuTdalPzfrtqXhIOb9d tS8JC45X3d2tDuXw
HK+7u1ody+AqxlnpyFcm61Kfm/XbUvCQc367al4SFxyvu7taHcvgOV93drQ7 l8BVjLPTkK5N1qU/
N+u2peEg5v121LwkLjlfd3a0O5fAcr7u7Wh3L4CrGWenIVybrUp+b9dtS8JB zfrtqXhIXHK+7u1o
dy+A5X3d2tDuXwFWMs9OQrk3WpT8367al4SDm/XbUvCQuOV93drQ7l8Byvu7 taHcvgKsZZ6chXJu
tSn5v121LwkHN+u2peEhccr7u7Wh3L4Dlfd3a0O5fAVYyz05CuTdalPzfrtq XhIOb9dtS8JC45X3
d2tDuXwHK+7u1ody+AqxlnpyFcm61KhPJ8qrhrqbhIfXN4u2puC0tm3wu6i/ W0O5fA++WN3drQ/H
wM1Yyz05GK5N1qU3N4u2puC0c3i7am4LS55Y3d2tD8fAcsbu7Wh+PgKsZZ6c hXJutSm5vF21NwWj
m8XbU3BaXHLK7u1oPj4Dlld3a0Hx8BVjLPTkK5N1qU/N4u2puC0c3i7am4LS 45ZXd2tB8fAcsru7
Wg+PgKsZZ6chXJutSn5vF21NwWjm8XbU3BaXHLK7u1oPj4Dlld3a0Hx8BVjL PTkK5N1qU/N4u2pu
C0c3i7am4LS45ZXd2tB8fAcsru7Wg+PgKsZZ6chXJutSn5vF21NwWjm8XbU3 BaXHLK7u1oPj4Dll
d3a0Hx8BVjLPTkK5N1qU/N4u2puC0c3i7am4LS45ZXd2tB8fAcsru7Wg+PgK sZZ6chXJutSn5vF2
1NwWjm8XbU3BaXHLK7u1oPj4Dlld3a0Hx8BVjLPTkK5N1qcfFcS8y2ro5auj bZ+dU0rVVZcnoXDD
DHqPG3EvRrN0bqqiShzKiSortIrenBcMMMeo7Hlld3a0Hx8Byyu7taD4+Aqx lnpyFcm61OJtu6tr
2XQWdoKps9fW1DYHRq1dFGqoqquZOnDoJkNwrcdZEkk9fA20kxyRMRViX1Yu 6zquWN3NrQfHwHLK
7u1oPj4CrGWenIVybrU5WC4VuOsiSSevgbaSY6OJiKsS+rF3WfjWXEvMylpX UVXRyVDm41LZVVGs
d6mqidKdfWdhyyu7taD4+A5ZXd2tB8fAVYyz05CuTdalBS+T6rdRxuq7WWOp VmMjI40ViO9SKvTg
V1nXEvNJWK206ujhpsq4Pp1Vz8fR0KmGB2HLK7u1oPj4Dlld3a0Hx8BVjLPT kK5N1qcrZVwrcldN
revggamGiWlRXq71449XoPbXuFbkTYtTV8FQq46TzpFZh6sMuJ1PLK7u1ofj 4Dlldza0Hx8BVjLP
TkK5N1qc1Q3AtR6prC0o4k0TVXQNzfT6cU6fR1YKRX3DvGldUMZWUi0jWuWB 6qudzsOhHJhgifgd
fyzu5taD4+B4t9Ltp/i8Hx8BVjbPTkZqlXWpzlVcC1Gsj80tKN7ljcsiSNwR H4fRRMPRjjifovk/
rdNTIlq/8NyL5wuRMWLh0ZfX0+sv1vrdpOu14Pj4FzFNHPGkkUjZGL1OauKG kc7FQf3ZrzXI2h+H
F3dpnlo3Ct+OpRLMrqaaDKmLqjFrs3pTBPR1A0YHP5qdvfY2ohOD8p15ZrLp YLKpJXRTVaK6RyJ/
6fUqIvoXH4GZw1Cxpg1ET8TqvLD9pLM9ld8xX3Fo6WtvDFDWQslhyuVzXpin Qh6LBxQ4fBfFy+r1
KfFy3NnqDM//0KdloSNToy7j9NZyonRl/KaE+t8m8b1Y6Wzkc1cFTBfA5S+c F31pXWxYE6SQRuay
oZC1cjVXq/BT1kHScuKJKOBwp+L7igi6OmQptRZlOtqyp2fynzreXu7iAjXP ejGoqucuCInpUsn3
Vt6JFWSzJmI1MVzYJgm8tInLg/uaRChlxRd2bPjW8vd3DW8vd3FYDemGxiks 9by93cNby93cVgFM
NhSWet5e7uGt5e7uIlHQVdoTLFR08k70RXK1iY9CdZHw6TGUGeRmjszLPW8v d3DW8vd3FYDNMNjF
JZ63l7u4a3l7u4rAKYbCks9by93cNby93cVgFMNhSWet5e7uGt5e7uKwCmGw pLPW8vd3DW8vd3FY
BTDYUlnreXu7hreXu7isAphsKSz1vL3dw1vL3dxWAUw2FJZ63l7u4a3m7u4r BgKYbCks9bzd3cNb
zd3cVmAwFMNhSWet5u7uGt5u7uKzAYCmGwpLPW83d3DW83d3FZgMBTDYUlnr ebu7hrebu7iswGAp
hsKSz1vN3dw1vN3dxWYDAUw2FJZ63m7u4a3m7u4rMBgKYbCks9bzd3cNbzd3 cVmAwFMNhSWet5u7
uGt5u7uKzAYCmGwpLPW83d3DW83d3FZgMBTDYUlnrebu7hrebu7iswGAphsK Sy1vN3fyjW03d/KV
p57xSrCks9bTd38o1tN3fylZ7x7xSrCks9bTd38o1tN3fylZ7x7xSrCks9bT d38o1tN3fylZ7x7x
SrCks9bTd38o1tN3fylZ7x7xSrCks9bTd38o1tN3fylZ7x7xSrCks9bTd38o 1tN3fylZ7x7xSrCk
s9bTd38p9xWjVTytiiYj3uXBrWt6VKn3nR3LVrK2vmwRXxUbnMXsrinShzmt QQOLI3ly6oksz99U
3m2XJub4nuqbzbLfub4lnWPgXBUavV61KuWoibj9F35lIkE2bF4LTmSnh5av ryPmWzbxQxukks16
MamKrg1cE3kClq6+tnSCmh0sq9TWs6T7fUvjnimp5HxvbI3BUcvrQ6WjbDSV 14HRsa3CsjjRUTqa
qLihmOdFLzTSb8vql7mFh4Yn2NlTqi82y5NzfEapvLst+5vidJBd6ptaFamk bGkeZW/SeqLih8vu
Razk6Eg4qkb56FPKKKFPy5nX5JeCf89Dl6qkt6ip3T1Nnvjib1uwRcNxEopL TtOVY6CmdO9ExVGt
ToLSlgmob309BI7p0+hnajlVrkw6ULC7axQXfT6CIklbM16p1qidSe4YvHPD SYpmSfdl4Lt1N8N0
fDPnKBNrv4FOtj3p2VLub4nytj3pX/CZdzfE6eus+WCiZXrEqwSL0Oa5Vw/H 1EOhoKi15Xx0cSrk
bi5znKjU95RP+op6eXwlxL2H+nZDhq+I8l/LnK2nT23ZsKTV9nvhicuGZyIq Y+4/a6N9Kq79ovhh
hkqoalqoykZ0q+Zf2cPVivWpZ0+L5LQp3qrolopnOYq4pmanQvuOLu90Xssf 2yL9S2wmN2jg5kUc
OWRAxPR8OBxKghizNqlvXak1TLFZ1lwyJTOSKfTz5FbLgiuROjpREcnT+IP1 rLqViWhU1Fl2o2kZ
VSLNKySBJMZFREVUVV6EwROgHmiWcV5X0xvHZnsrvmIFxUwt1f8AYk+VSx8r vTeSzE/8V3zFVdO0
qSybajqq1HaBGq12VuZVxT1Hq4YW+islb3KiZEljFmaXRUlV5szJZ9DJC9jN E9yIjmJk6VXo6fpY
dBS+UKFYfJ7aDHsibJjDpNE1EarsUxwJbL83VYxGtiqEa1MERIF6PiUV+L1W Pa90qqzrNjqFnlcx
UasSoi4OQ81DJm5r8L0ZZxzZbedS7vof/9GgpEwtCm/3mfqh0PlHisrlVXyS VlW6t0MWFOyFVYn0
ej6WPpTpKOLCGojlwxyPR2HrwXEkW7aMlvW/V2m+n83SZrGNZnzdDUwxxPdT pEUeIgiXck/Y83In
wwSY149hfUV17AhSx7OrlqX11rRLJE+JcGRph0YoRrLu/Y8VBb1Va6zytsiZ I8YHZcydS9B9098E
p4KKSWxo6uuoGLHT1CyZcjV+70lWy2qiOwLZoH06T1FryI+SVHZUYuOKrh6S E5eM/Eu3w8fr4ehK
UzDfhfZ/F4+paU1k3bju7FbNZDWKyorVp4Y2SdOCr9HEsXXSu5r6ssFvnfnU FN5wkqv+iiL1Jh6T
m5rYe+71DYraXFtPWJUumV/qx6MPeT+V0vKuvt3Vv9vSpTsh0vq9KrgYmSsX VFS345dvll7iCbhn
Cs8vDmWXk6tpXMksmOnYjEhlldP/AHnepDP6dqrA1fx/UvLsWq+7krqnzbzi R1O6LRo/L0r95WU8
DmQMa/ocidKITZEhwYiOPLsaWviRps6GKSoc+5vQ/LKMpJ0Y0ZPyRDrI2UZS ToxoxkhWRsoyknRj
RjJCsjZRlJOjGjGSFZGyjKSdGNGMkKyNlGUk6MaMZIVkbKMpJ0Y0YyQrI2UZ VJGjGiQZIVkfKoyq
SNEg0SDJCsj5VGVSRokGiQZIVkfKoyqSNEg0SDJCsj5VGVSRokGiQZIVkfKo yqSNEg0SDJCsj5VG
VSRokGiQZIVkfKoyqSNEg0SDJCsj5VGVSRokGiQZIVkfKoyqSNEg0SDJCsj5 VGVSRokGiQZIVkbK
MpIWJBohkhWR8oykjRDRGaUKyPlGUkaIaIUoVkfKMpI0Q0QpQrI+UZSRohoh ShWR8oykjRDRClCs
j5RlJGiGiFKFZHyl/dVcmtneqgd8yFRoi3sFNHS2wvp8wdh+ZCPiIV8J+n3R 2kRf6iJrnrIxMEVe
j0JiQJ43datcn4opb3ZvfBYdPM2SmSo0qouOZEy4IfveG+lNbdmpSMo2wKki Pz50Xq9BAUU6GbSo
Pw3z9idHQ4M6u2xyrlyuj/3G/Mh1NS/RyXid/qEP6KcfNO180TWLiqyN6E/F DqrZdoobwO/1CFej
8FOk+HOYvT/sjnJidP8ALMnyWlW0d3qJaOqkgzzS5si4Y9RVPvDbqSNRLVqc Fcn977xTW9Zi2XDR
1tLJMsL3Oa+ObL+0fL7Uu7ii6uqlwXH/AKpPA4wS1C2opefa/BX8zpMjeSyi y1P3qnf8yY8elVrU
+U9s5+ju7B99fUf0K6ltJtq3+o6uNmRJqtHZMccqYesk6RILvUq44J5/UY/d 1FV0zC4MG0+9KD7s
tehXXjIfq4vsdTdiesmqZKNIknonp/xmvX6LPvPbyrLZdhx09jxoyz5VXSTx uxVy+pVKZb0ZbFZZ
1M1kCL/ayNXpkPysy8+q4paeRjamklaqLC9ejH1njXOhUNGfrbket+WmOZ8R Q9z7r/W2diBZq41F
Wn+nz/KchYDML1WP7ZF+p1dkSJLaNblwy+YVHQnUnR1HJ0qVjbXs9bOSNa3z hmg0n7OfHox+49b/
AE729HzX9fY8/wBPfhx8C+i+7P6VBxj7ct+vrKqKiqKWkSil82kbJCsmd6Na 5XIuPQn0sMPuBUnA
5fyu48pLNwTFfNXdH/uOaisi23sa9lkVTmOTFrkjXBU9Z0/lZ+1Fmexv+Y76 yXO1NQ9K/wDTs9P3
HpHj48Jg5LhWeeZWx4eGfPiUXgZAlk24n+D1nDU+tVW3ses4amz5ndpd4zO7 S7yJt+duLiNlyrmL
rZVt7GrOGp5qi3NjVfDU2nM7tLvGZ3aXeZ2/O3FxGy5V2f/SqdUW5ser4ajV FubHq+GptWZ3aXeM
zu0u8utvztxcSt2ZKuzFdUW5ser4ajVFubHq+GptWZ3aXeMzu0u8bfnbi4jZ kq7MV1Rbmx6vhqNU
W5ser4am1Zndpd4zO7S7xt+duLiNmSrsxXVFubHq+Go1Rbmx6vhqbVmd2l3j M7tLvG3524uI2ZKu
zFdUW5ser4ajVFubHq+GptWZ3aXeMzu0u8bfnbi4jZkq7MV1Rbmx6vhqNUW5 ser4am1Zndpd4zO7
S7xt+duLiNmSrsxXVFubHq+Go1Rbmx6vhqbVmd2l3jM7tLvG3524uI2ZKuzF dUW5ser4ajVFubHq
+GptWZ3aXeMzu0u8bfnbi4jZkq7MV1Rbmx6vhqNUW5ser4am1Zndpd4zO7S7 xt+duLiNmSrsxXVF
ubHq+Go1Rbmx6vhqbVmd2l3jM7tLvG3524uI2ZKuzFdUW5ser4ajVFubHrOG ptWZ3aXeMzu0u8dY
J24uI2ZKuYrqi3Nj1nDUaotzY9Zw1NqzO7S7xmd2l3mesE7cXEbMlXMV1Rbm x6zhqNUW5ses4am1
Zndpd4zO7S7x1gnbi4jZkq5iuqLc2PWcNRqi3Nj1nDU2rM7tLvGZ3aXeOsE7 cXEbMlXMV1Rbmx6z
hqNUW5ses4am1Zndpd4zO7S7x1gnbi4jZkq5iuqLc2PWcNRqi3Nj1nDU2rM7 tLvGZ3aXeOsE7cXE
bMlXMV1Rbmx6zhqNUW5ses4am1Zndpd4zO7S7x1gnbi4jZkq5iuqLc2PWcNR qi3Nj1nDU2rM7tLv
GZ3aXeOsE7cXEbMlXMV1Rbmx6zhqNUW5ses4am1Zndpd4zO7S7x1gnbi4jZk q5iuqLc2PWcNRqi3
Nj1nDU2rM7tLvGZ3aXeOsE7cXEbMlXMV1Rbmx6zhqNUW5ses4am1Zndpd4zO 7S7x1gnbi4jZkq5i
uqLc2NWcNRqi3djVnDU2rM7tLvGZ3aXeY6wTtxcTOzJVzFdUW7sas4ajVFu7 GrOGptWZ3aXeMzu0
u8dYJ24uI2ZKuYrqi3djVnDUaot3Y1Zw1NqzO7S7xmd2l3jrBO3FxGzJVzFd UW7sas4ajVFu7GrO
GptWZ3aXeMzu0u8dYJ24uI2ZKuYrqi3djVnDUaot3Y1Zw1NqzO7S7xmd2l3j rBO3FxGzJVzFdUW7
sas4ajVFu7GrOGptWZ3aXeMzu0u8dYJ24uI2ZKuYrqi3djVnDUaot3Y1Zw1N qzO7S7xmd2l3jrBO
3FxGzJVzFdUW7sas4an7UdJeKhqGzwWRVo5OhUWNVRyepfuNkzO7S7xmd2l3 mH09NiWTgQXRstPN
NmU5rTxVeQ1N0/8Aiu8TzG0/+xqb+Vd4mr5ndpd4zO7S7zhtZ/41qzt8ot5m UI+2I3I+nuZDBK39
mWOmdmavrTpI9JHeSlnklWxamdJuiWOaJXNk/FDX8zu0u8Zndpd5uumYkmlL Xb5mrwMLabifYZRj
aaf5Gpv5V3iMbTX/ACNS/wAq7xNXzO7S7xmd2l3mm1n/AI1qzb5RbzMnc63G Nd5ndNlFI5uVZYKd
Ufh6sVU/ChjvHQxviWwZaqGRcXQzwq5uPr/E1/M7tLvGZ3aXeZfS7cDgcqFp 9/eFg8olGo3mjKdN
bP8A2TTfyzvEaa2V/wAk0v8AKu8TVszu0u8Zndpd5G+ckf7eDQk5T/8ALFqz Iapbxz0z6enu15iy
Tok82gVqvT1KpSWbFNTXvsqCoidDMytjRzHpgqdJvSOdj+0u8xy3OnytwfxK P+hb4DGqbLmSoYFC
km+wiTpTUyGOKJt5+JqlddGkq62Wqhra2idM7PKymlRrXv8AS5UwXpwwT3IC /B54mmTeVn7UWZ7G
/wCY72yvqah9nZ+hwXlZ+1Fmexv+Y72yvqah9nZ+haY79FI9SNK/Pj8kSgAU hLAAAAAAP//T1MAH
A2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAPU6zFb2Q1NT5Slgo6nzaplrmNinwx0bujB2H3G 1J1mO25+9un/AIlH
/QuOie+b+1/dEbEd8Pn7Hb+cWratfXMdbNVSJQVHmqJT5UR+VrVzLinWquXc gOmtG61i2rVLU1lC
2SVUwVyPc3H8cFQFcdzPPKz9qLM9jf8AMd7ZX1NQ+zs/Q4Lys/aizPY3/Md7 ZX1NQ+zs/QtMd+ik
epGlfnx+SJQAKQlgAAAAAAAAH//U1MAHA2AAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPU6zHbc/e 3T/xKP8AobEnWY7b
n726f+JR/wBC46J75v7fdEbEd8Pn7G5gArjuZN5WftRZnsb/AJjvbK+pqH2d n6HBeVn7UWZ7G/5j
vbK+pqH2dn6Fpjv0Uj1I0r8+PyRKABSEsAAAAAAAAAAAA//V1MAHA2AAAAAA AAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAPU6zHbc/
e3T/AMSj/obEnWY7bn726f8AiUf9C46J75v7fdEbEd8Pn7G5givtOz48NJXU zMyYpmmamKevr+4F
cdzMPKz9qLM9jf8AMd7ZX1NQ+zs/Q4Lys/aizPY3/Md7ZX1NQ+zs/QtMd+ik epGlfnx+SJQAKQlg
AAAAAAAAAAAAAAH/1tTABwNgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD1Osx62/3twfxFn9DYU6zHbc/e 3T/xKP8AoXHRPfN/
b7ojYjvh8/Y7+5V2LKluxBNW2c2Wolklc/zhuKp9NyYJj1J0dX3g7QFcdzJv Kz9qLM9jf8x3tlfU
1D7Oz9DgvKz9qLM9jf8AMd7ZX1NQ+zs/QtMd+ikepGlfnx+SJQAKQlgAAAAA AAAAAAAAAAAAH//X
1MAHA2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAPU6zHLec1nlZgc9yNa20Y1VzlwRE6OtTY06zGbxwxVPlVi gnjbJFJaDGvY5MUc
nR0KXHRPfN/a/uiNiO+Hz9jcaOsp6+lZVUsiSQvxyvRFTHBcPT+AP1axsbEY xqNa1MEROpEBXHcy
fys/aizPY3/Md7ZX1NQ+zs/QAtMd+ikepGlfnx+SJQAKQlgAAAAAAAAAAAAA AAAAAAAH/9DUwAcD
YAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAA9TrMdtz97dP/Eo/wCgBcdE9839vuiNiO+Hz9jcwAVx3P/Z
------=_NextPart_001_0022_01C5CD8D.122C40A0--
------=_NextPart_000_0021_01C5CD8D.122C40A0
Content-Type: application/octet-stream;
name="Prueba.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Prueba.zip"
UEsDBBQAAgAIAHZaSjOGeH7BagEAAEoCAAAKAAAAUHJ1ZWJhLnhwak1Ry26D MBC8I/ErqLRnS21D
UKlCQIDaSmkPhmwSN8a21naU/H3XkFQ5eWZ3vI/ZTd1U78tF9xNH3cUAgzPE UQZ2QGGc0IrV6KHn
cVR5Z7y70mSSLfRohARk5zeOvfYYRyUXqtRbL4HlGsc0MbinqJdOGAmFso6r ASxLuiSOvuqSK7ED
62ZeDNQvjmqOfAQHaIlUy5IlOSU/iId50uQhjhqQwC0wgq9eyG0AYRquLuy5 1TsXqLk0Yn9wVKRD
voWS4zFUJN0IygW4qequqNYtLf/inR65E0MJ44ljBoOkMSYHpvYZ9H5fqJ2e aeuNQbB2JRSs/dgD
hhyOdz9ukvag0Q3eOaH2c+aTo1LEVnACyVLyRyNUk91hqpKbnGydtQuKaQnk 6TUQtNT1SPqwQVY0
dL2qKZZhi5aOMEAmkM2IPFWD9NspdIXBPfuvu2Fyuv8NAXqobF6spoLp7eDT HR/vj/oUpN/hZokO
f/4AUEsDBBQAAgAIAMdZSjPyuDIJyAAAACMBAAARAAAAU291cmNlL1BydWVi YS5wcmddjsGqwjAQ
RfeF/sPQt2ld2Cq4CbyFIO4U8blwG6eDHchLypggfrc/YBJFRBiG4XDn3ttO oCxgAjtxN0LvVLwC
nXSGa8aB5M2mo5wzX9EFhUfku1WwuffBOOgJyHrRvQYNJq7RMOokyS/L4J2o pyvhoBXMujbOvOsW
ibZlURY/bNGE6FQdNRuSKQ5V4rEcUh+EYKPZ1k1iALAcc4ZnZxUe2BsC9QvV s2yVJYe1k/9Z3agt
XevPB2jU3+CuyevLaR9eCXvyQWL7B1BLAwQUAAIACABZWkozlXLjhfQAAAC/ AQAAEAAAAFNvdXJj
ZS9Gb3JtMS5wcmetkMFqg0AQhu+C7zDYi4ZWTUIvCz2E6NJCYoJayHWzTquw ujJV2j53X6Du2oO5
d5jDzzcw//wTrVwHVnAm/Y1y0GxSI16FhbyRNdLEuKZ2Hfb0bnGCH5KaXjY/ HbNgNw6aZslR1oLB
Oo6m3sTxo6GR67jOXdNJNVYI3kU0CimUtWf4/rArCiitBfD8dJy1GQHAMS2f TwnsCcWAhvvBkmf4
aYDrpFliF906zXd/vbXWKYoe/rXMzsUdoM+CsBsggGWmvyDAmH6RugP2BKUR fsAOWlScdMunf/jg
FTUqtd2ElVLePWzBBsvT8jXPoBh7JHZrY8a/UEsDBBQAAgAIAFlaSjPYm39O sAAAAAcBAAAQAAAA
U291cmNlL0Zvcm0xLnhmbVWPQQuCQBCF74L/YdiTggfdTELoUKZ4yAJ3o7Pk mgu2G+sK/fzcxcAu
w8x7j+8xVU7L6wkyxRrNCqleng/Z+UAIUHNFruM6AECmN1PpOmXlNCVMH+Uk 2tEDjMMAIjPi7Tw2
YQi/1IOyj4Z0D8hC0SLLQgorU7N4/lLgAaoIkEaMQJjiHQpgF4DhrpAiGzgT +s5b3RtEHON/p2T8
2Vs6TpLFWvi++arO6a2+zA1D5zpfUEsDBBQAAgAIAH1c9DL3GYaKeQgAALAR AAAMAAAAT2JqL0lj
b24ub2JqrVhvbBtnGX/u/O+cOP/auE2apM3oqoVtqtxWRUUM2PV8aW5z7JN9 eZNIlW6pz6njXWzj
OKwBAZWqWGEDKQNEy6TSIiVh1SbBB8b2MVMqNISYBuJDpX2ZmM8tKkyAEJQh VJ737r3EvqZoSER6
737P83ve3/P43vde+8lFAYJKtlQ8moWVKAD0nC5VzJmiMSw98cTwyaMnjx6D lS6AO27U187+7Tis
+AD+AN8/BQFdk6c0v5SKy4jjoib66SUYP5NOTah+/XQm48MR1JWkoukCvVIe roTgxj4fx4ONnhL8
AQcBhAQbKUEItwG8EoTgfd99Hr71Idelj53WRyeS+pQoJcRMBva6Dl2XEhld FdPiOHS4Tk2RUkno
aYlRkhkNOl2XKqUmkhrscW28ibZIZkdFHle1aehtClEyyYlxOa1I0OZ6RW0n TyIlxpVx8Yy8U94Z
WaOJxaQk7yTTJpVk6vQzsqShev6c/uV5tVLK5hYWMkvz50rmApZge+ULuexi NQdhai5UZ7LPO8xc
NTevLlaTCQgnSjMGXRzRCSrPVGbmt2HRBIHB7I5zDiLyhWplJlt1JnafyVXH S8aimRvDtTdzIkSa
kiSgPZ5bqFZKSzQahHhl5gUbtblIvgCCVCo7fEd8sWzOZWeqOdtsR20KlOJs qaV2KdGSRQJYOQYX
/wU9uC1gH73sp5d+ejlALwP0MkgvQ/RykF5gtReA216vKbrqfdS9H93dLauC zC3KHEBme3Fw+6ZF
yd4sCc5LxuWMlk5NU/J1SvYjub2C8bQ4SRl5apj35nO5W5yXkVKqrfc9OmcQ mej2nAk1oUiiJlP6
Z7y3FrqLkFCSo6nfIbnSDnBtcXHOOGrOnfNY1w/4MG8hlD+OL1NhJE8f0x16 uXSze2u1ALYjf5Hf
9ka2Vle3/aJ/d3/tIf6/PMR/LbC7/58P8T8V3N3/ssefB0xY4JlLWN6stjFr +m47Q11vbk6r+fv3
MZBrCox6XLOXTsGi/8Rv77Yx3/RL76VtoOa7dx6asFXwObTqZvqk4uGCI3JX cDOou+q3kCgWeouj
s/gTm55IfC5+t5YHivpfZFYLYXeW4IKQC4IuCLjg/5P0vz4EWtO2KOwacenm H7UH8u0r9H47/qi/
JTZyd0/+c7j7W+Zfutm7BVfHubpP4+ttGr/WRTrqA4iHER8hnfUTiE8h/jzi ZxGriCcQZxHnEc8j
/irii4iXEX8X8RXEVxG/hviniN9AvIX4HcS/Jp1rH5A9ax+R3rV7JLoeJnvW B3HEyN71z5Ie64uk
az1OutdTyE2R3vVZ5JZwfJPsX/8OxvyA7LOuYcwaxvwE7Z+TfuuXaL9L+tbf R7uO8/6E4++I/00O
NLpJ10aU9G0cJtGNJ8nejZN4/wKOMzhUtKfxfg7H84grZKCxjPEvYvxltH9I BhtraN8g3Rtvor1J
hhq/QPtXaGOujd+Tg42/ov0Pcug2p/G3g6Trx+1kGK77/XiQXMaXFN9roEcv Xf2raL8NO38/Cjp+
9++Gx37DE/822vR4jzG9dz38LcaPMf5DZj/H7I+ZfYHZHSHHXmX2QKhV74jH fjLUWt9xD3+K6b3K
9OIe/lnP/AmPfdYTb3r4Fzz8Nzz8sod/0cNf9tiveOJf89hveexNj/0O07vF 7N949N/32Lc98z9i
fIIFfczs15kdFFrjOwSHH+Ydu09o1T8sOHtt043n71cfg6/zHJznwBCGLnEx DkzeiEAhOGX/DDF9
RqFdm5wrps4VctkqRLgyn+ZwCg/LvRDz04mFYDY5M58Dw9D5sGEGOg3DKLcp NY7RoeLknFHNw9lh
O8BgNM9ooTiWmzufr3p5P62rFogFHRGpksPfRoDyOn+xG8Jlv1ILMTJAf8zh bkDK9gvM30P9o5XS
fDq3UFqsZHG64MaEWUyHGzM6ZyIfdvl2xgvsRxyYbS4VibU7n1syS8UcTPfb DzkWAbMDH12sE3Su
DGUuyMI7mVJQnZkrVsHsYjo44SrH1QGPPUHj6t3OkVofIVw9Ro9Uwtefdo7T +hTyz+G9jOMCYjxK
6yt4X7WPUq5+He+v4h2P0vomjvdw3CK++gd4/zOOexpnYR4Lc1h9xG9hHmuE BCzMY2EOa4wELcxj
YQ4rT0IW5rEwh7VCBAtzWFdI2MIcFupbqG+hvoXa1h3URX3rHmlroH5DIO0N zNFA/caIxjVQv3EK
75ijgfoN/BwNzNHIk0gDczTwszhHob0VyqDEuh1wuZ83ewzXinAqZ+7BZ7vU NRiN7aVOnTN70VHm
i6F+XueKoQ6Om1X55ceRMeTBzlgUdPSXOaWfr/HmPoMuC0+l4oPRmi+2Hy3m cmJwtbZFPrO7SN+O
SPRQ1Ow3CvxRcF38kjBqKx9oVd6LW3igxVUTmlLFd00VG7SDlZqvpfKhKtT8 zWUMDqD6EBrmQWNp
uxIqMoYvh00cMsxhtiuR/ErEZ1dAZR9xRQbxZWCxSy1x/TwW09lU7dQneLqP 4zNwy/c7up9qqWGJ
addCjjLMqtwyvnpOSZyjMlLjzMOuo5fDRzJEc9PifbFHGaTLZqAEH5hVg8tf grAaqvFhJhR0hNoV
tHXO0fSZRxBj6T4Woft1/pge0H3HlpbO+iIoYG+FUDG0+Bi+1SG7M4KkPAlu /9zcNovxuJpOqXIa
u107UpfSMvYilBiXtbFUnLlpJ9UER9Op8bScSU2ksbltdY8qCdfF+igqpiQT SlIGpu406VJSHHdD
VVHBnnysqUK7aWe9Okag0oSkpdKSmEhAU8uujzoyTsdul9nSrWOT/kDBLaW6 RepjYjKecEi7vJ2W
vrmTZ1FN/SNTgOtP408Dwe7yQHeK2ukVoanxH7H/LYJ6OD3zabD/wVKunMcT +HobbXLAsL/brgag
zuPx8hL9LvwPUEsBAhQAFAACAAgAdlpKM4Z4fsFqAQAASgIAAAoAAAAAAAAA AAAgALSBAAAAAFBy
dWViYS54cGpQSwECFAAUAAIACADHWUoz8rgyCcgAAAAjAQAAEQAAAAAAAAAA ACAAtIGSAQAAU291
cmNlL1BydWViYS5wcmdQSwECFAAUAAIACABZWkozlXLjhfQAAAC/AQAAEAAA AAAAAAAAACAAtIGJ
AgAAU291cmNlL0Zvcm0xLnByZ1BLAQIUABQAAgAIAFlaSjPYm39OsAAAAAcB AAAQAAAAAAAAAAAA
IAC0gasDAABTb3VyY2UvRm9ybTEueGZtUEsBAhQAFAACAAgAfVz0MvcZhop5 CAAAsBEAAAwAAAAA
AAAAAAAgALSBiQQAAE9iai9JY29uLm9ialBLBQYAAAAABQAFAC0BAAAsDQAA AAA=
------=_NextPart_000_0021_01C5CD8D.122C40A0--

Attached files Prueba.zip (3.6 KB)Â

Xevi,
perdoname, veo que te envié un .obj equivocado. Aquí tienes el bueno.
--
Un saludo,
José F. Giménez


Attached files Icon.zip (2.3 KB)Â

Esto ya es otra cosa... Vaya Lujo!!!
Gracias,
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:434a3d38$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> perdoname, veo que te envié un .obj equivocado. Aquí tienes el bueno.
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>
>
>
>

Jose,
¿Como se puede cargar esa "imagen" en un TImage????
::oImage1 := TImage():LoadFromFile( "Shell32.dll", 3 )
¿Se podría implementar???
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:434a401c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Esto ya es otra cosa... Vaya Lujo!!!
>
>
> Gracias,
>
> Un Saludo,
> Xevi.
>
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:434a3d38$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Xevi,
>>
>> perdoname, veo que te envié un .obj equivocado. Aquí tienes el bueno.
>>
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>>
>>
>>
>>
>>
>
>

Xevi,
> ¿Como se puede cargar esa "imagen" en un TImage????
> ::oImage1 := TImage():LoadFromFile( "Shell32.dll", 3 )
>
> ¿Se podría implementar???
La imagen contenida en un control TImage está en la propiedad oPicture, y es
un objeto TPicture. Es decir, lo que propones debería ser así:
::oImage1:oPicture := TPicture():LoadFromFile( "Shell32.dll", 3 )
De todos modos, el método LoadFromFile de TPicture no soporta por ahora el
segundo parámetro.
No obstante, vas a tener suerte
Sí se puede hacer lo que quieres, aunque sea dando un pequeño rodeo:
- Crea el icono con TIcon():
oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
- Asígnalo a un objeto TPicture:
::oImage1:oPicture := TPicture():CreateIndirect( IMG_ICON,
oIcon:Handle )
--
Un saludo,
José F. Giménez

Jose,
Se carga perfectamente de la manera que comentas... dando un rodeo.
Un boton carga la imagen desde recursos, pero...
¿Cómo Se puede utilizar para cargar una imagen en un botón de una ToolBar???
oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
:AddButton( "", TPicture():CreateIndirect( IMG_ICON, oIcon:Handle ),,, "", { || Nil } )
Esto no me funciona¿?¿?
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:434a4bcf$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> ¿Como se puede cargar esa "imagen" en un TImage????
>> ::oImage1 := TImage():LoadFromFile( "Shell32.dll", 3 )
>>
>> ¿Se podrí­a implementar???
>
> La imagen contenida en un control TImage está en la propiedad oPicture, y es
> un objeto TPicture. Es decir, lo que propones deberí­a ser así­:
>
> ::oImage1:oPicture := TPicture():LoadFromFile( "Shell32.dll", 3 )
>
> De todos modos, el método LoadFromFile de TPicture no soporta por ahora el
> segundo parámetro.
>
> No obstante, vas a tener suerte
>
> Sí­ se puede hacer lo que quieres, aunque sea dando un pequeño rodeo:
>
> - Crea el icono con TIcon():
> oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
>
> - Así­gnalo a un objeto TPicture:
> ::oImage1:oPicture := TPicture():CreateIndirect( IMG_ICON,
> oIcon:Handle )
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>
>
--

Xevi,
Se carga perfectamente de la manera que comentas... dando un rodeo.
Un boton carga la imagen desde recursos, pero...
¿Cómo Se puede utilizar para cargar una imagen en un botón de una ToolBar???
oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
:AddButton( "", TPicture():CreateIndirect( IMG_ICON, oIcon:Handle ),,, "", { || Nil } )
Esto no me funciona¿?¿?
Las toolbar utilizan una imagelist (o mejor dicho, 3). Acabo de modificar el método AddIcon() de TImageList para que acepte como segundo parámetro el número de imagen; lo mismo que TIcon():LoadFromFile()
No obstante, por ahora no te va a funcionar. Tenemos que reescribir primero la clase TToolbar.
--
Un saludo,
José F. Giménez
--

Jose,
Esperare pues... No problem!!!
Gracias.
Un Saludo.
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:434b836b$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Se carga perfectamente de la manera que comentas... dando un rodeo.
Un boton carga la imagen desde recursos, pero...
¿Cómo Se puede utilizar para cargar una imagen en un botón de una ToolBar???
oIcon := TIcon():LoadFromFile( "Shell32.dll", 3 )
:AddButton( "", TPicture():CreateIndirect( IMG_ICON, oIcon:Handle ),,, "", { || Nil } )
Esto no me funciona¿?¿?
Las toolbar utilizan una imagelist (o mejor dicho, 3). Acabo de modificar el método AddIcon() de TImageList para que acepte como segundo parámetro el número de imagen; lo mismo que TIcon():LoadFromFile()
No obstante, por ahora no te va a funcionar. Tenemos que reescribir primero la clase TToolbar.
--
Un saludo,
José F. Giménez
--