4 replies to this topic

[sysmar]

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

[Kipow]

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.

[sysmar]

Muchas gracias kipow

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

Saludos

[JoAnCa]

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

[cHackAll]

delphi

function SetWindowTheme(hWnd: Cardinal; Optional, pszSubAppName: PChar): Cardinal; stdcall external 'uxtheme';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetWindowTheme(Handle, ' ', ' ');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 SetWindowTheme(Handle, nil, nil);
end;