Ir al contenido


Foto

Ejecutar aplicacion con apariencia Windows Classic sin tomar en cuenta la actual


  • Por favor identifícate para responder
4 respuestas en este tema

#1 sysmar

sysmar

    Member

  • Miembros
  • PipPip
  • 11 mensajes
  • LocationMéxico

Escrito 20 mayo 2009 - 11:14

Hola

Necesito de su ayuda para ver donde configuro en el proyecto para que utilice la apariencia de Windows Classic, sin tomar en cuenta la Apariencia que tenga configurado cada usuario en su Windows.

He tenido problemas, ya que donde desorrollo mi aplicacion tengo configurado win xp con la apariencia clasica.  Pero al ejecutar la aplicacion hecha en Delphi 2009 toma la configuracion de la apariencia del windows donde se ejecuta y algunos bordes y botones no se aprecian bien.

Es posible definir la apariencia fija a un proyecto en Delphi 2009?

Saludos
  • 0

#2 Kipow

Kipow

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 228 mensajes
  • LocationGuatemala

Escrito 20 mayo 2009 - 11:20

En las opciones del proyecto en el apartado de Application hay un check que te deshabilita el uso de los temas. Enable Runtime Themes, desmarcalo y listo.
  • 0

#3 sysmar

sysmar

    Member

  • Miembros
  • PipPip
  • 11 mensajes
  • LocationMéxico

Escrito 20 mayo 2009 - 11:43

Muchas gracias kipow

Ya lo hice y funciono.  Habia estado navegando por esas opciones y no vi esta.

Saludos

  • 0

#4 JoAnCa

JoAnCa

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 775 mensajes
  • LocationPinar del Río, Cuba

Escrito 22 mayo 2009 - 10:51

Y en Delphi 7 y Delphi 2005 como se harí­a, no vi esa opcion en ningun lugar, es posible hacerlo de otra forma?

  • 0

#5 cHackAll

cHackAll

    Advanced Member

  • Administrador
  • 599 mensajes

Escrito 23 mayo 2009 - 10:36



delphi
  1. function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall external 'uxtheme';
  2.  
  3. procedure TForm1.Button1Click(Sender: TObject);
  4. begin
  5. SetWindowTheme(Handle, ' ', ' ');
  6. end;
  7.  
  8. procedure TForm1.Button2Click(Sender: TObject);
  9. begin
  10. SetWindowTheme(Handle, nil, nil);
  11. end;


  • 0




IP.Board spam blocked by CleanTalk.