Uso de la unidad Themes...

[fide]

Hola. Este pequeño código sirve para saber si el estilo visual que tenemos aplicado en la PC es al clásico, o si es otro distinto como el de Xp.

Ha, lo unico que lo he implementado sobre delphi 7, y presinde del uses XPMan que no lo traen las versiones anteriores a la 7. En realidad lo que tiene este delphi que no tienen los anteriores es el archivo WindowsXP.res que se encuentra en la carpeta lib. Bueno, solo necesitan copiarlo en cualquier lugar accesible para la App y despues agregarselo al proyecto para que este truco funcione..

Mas abajo se puede bajar el archivo a utilizar. Peguenlo en la carpeta lib...


Aqui como se debe de incluir en el delphi, lo cual provoca que la app se adapte al estilo visual en curso!

Código Delphi [-]
  {$R WindowsXP.res}

despues se puede ejecutar esto a gusto...

Código Delphi [-]
...
 //Si no es delphi 7, no incluir XPMan, sino  {$R WindowsXP.res}
 uses Themes, XPMan;

procedure TForm1.Button1Click(Sender: TObject);
begin

       if ThemeServices.ThemesEnabled then
          ShowMessage('Se esta utilizando Windows XP u otro que no es el clasico!')
       else
          ShowMessage('Se esta utilizando el estilo de Windows Clasico!');

end;