| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
rockman
Ens
Registrado: 13 Mar 2004Mensajes: 44
|
 Publicado: Jue 07 Jun, 2007 12:11 pm Asunto: TAnimate y Windows Vista |
 |
|
Hola a tod@s,
Resulta que cual es mi sorpresa que los videos comunes contenidos en un TAnimate no funcionan para Windows Vista.
He estado mirando en foros de Delphi, y me hablan de que hay que incluir un componente TShellResources de la pestaña Win32, y entonces se añadirian los ficheros TCopyFile.res, etc,etc que supuestamente contienen estos videos.
El problema es que ese componente no existe, o no lo encuentro en Builder y me he quedado sin manera de encontrar una solución a mi problema.
¿Sabeis como se puede solucionar este problema?
Muchisimas gracias |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Mar 19 Jun, 2007 8:29 am Asunto: |
|
|
Ese componente solo viene en el CB2007/D2007. Aunque lo único que hace es añadir un archivo de recursos con los videos.
Este archivo de recursos contiene los videos que vienen con Windows XP:
http://www.telefonica.net/web/ljfg/temp/shell32_avi.zip
Añádelos a tu proyecto, aunque no lo he probado debería funcionar. |
|
| Volver arriba |
|
|
rockman
Ens
Registrado: 13 Mar 2004Mensajes: 44
|
| Publicado: Mie 27 Jun, 2007 9:45 am Asunto: |
|
|
Muchas gracias por contestar.
Pero siento comentarte que no funciona... habrá entonces que esperar a que migre yo a 2007...
Un saludo a todos los foreros. |
|
| Volver arriba |
|
|
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Mie 27 Jun, 2007 5:25 pm Asunto: |
|
|
Bien, lo he probado y efectivamente no basta con añadir el archivo de recursos, además de esto y suponiendo que tu control se llama "Animate1" añade lo siguiente al constructor del Form donde este el control:
| Código: | // Solo si es Windows Vista
if (Win32MajorVersion >= 6)
{
int resId[] = {0, 150, 151, 152, 160, 161, 162, 163, 164};
bool activo = Animate1->Active;
Animate1->ResId = resId[Animate1->CommonAVI];
Animate1->Active = activo;
} |
(Lo he probado en BCB4 y 6) |
|
| Volver arriba |
|
|
rockman
Ens
Registrado: 13 Mar 2004Mensajes: 44
|
| Publicado: Mie 27 Jun, 2007 5:56 pm Asunto: |
|
|
P E R F E C T O !!!!!!
Muchas gracias _Leo |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
