Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 10-04-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 20
cHackAll Va por buen camino
Aunque creo que la duda ha sido satisfecha me parece que la pregunta estaba orientada a otra cosa. Si no fue así dejo mi post como una aclaración adicional con las siguientes APIs;

Código Delphi [-]
function EnableTheming(fEnable: LongBool): Cardinal; stdcall; external 'uxtheme';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 EnableTheming(False);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 EnableTheming(True);
end;

La API EnableTheming va a habilitar o deshabilitar los temas de XP, lo que significa que al presionar el Button1, el S.O. quedará como el Win2k

Código Delphi [-]
function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall; external 'uxtheme';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetWindowTheme(Button1.Handle, ' ', ' ');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 SetWindowTheme(Button1.Handle, nil, nil);
end;

SetWindowTheme va a tener el mismo efecto que la anterior API, con la diferencia que va a actuar sobre un solo objeto, el cual puede ser una ventana en particular o una lista o un boton

Obviamente ésto, aplicable a los SOs a los que M$ todavia da soporte a la fecha

Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Creación de iconos opcional en InstallShield MDSato Varios 1 25-04-2007 11:11:54
Es posible hacer esto? MaMu Gráficos 4 18-01-2007 08:00:42
Es posible hacer...? merlin SQL 1 20-01-2004 19:46:46
es posible hacer mosaico con una imagen jpcancino Gráficos 7 08-01-2004 09:32:08


La franja horaria es GMT +2. Ahora son las 00:28:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi