Aplicacion con estilo clasico

[Alliance]

Empezado por enecumene

Prueba con: click derecho en el ejecutable->Properties->tab Compatibility y ahi fijas como quieres que corra, estilo win95,2000,me,xp o por colores, no sé si eso es lo que buscas

si precisamente eso, si seleccionamos la opcion de deshabiliar el tema visual para el programa, cuando lo ejecutamos se vera en modo clasico que es lo que queria, ahora biien, si copiamos el ejecutable, a otro sitio, esa configuracioin se pierde, por lo tanto quisiera saber como hacerlo mediente codigo, para que el programa se ejecute en ese modo, sin imporar donde lo lleves, osea (portables, pero siempre con el tema visual clasico), a eso me referia cuando decia forsar la aplicacion a usar el tema clasico de windows, etc..

como se puede hacer eso mediente codigo, alguna sujerencia.

[Ñuño Martínez]

Que yo sepa, para que una aplicación Windows pueda utilizar los estilos XP hay que incrustarle un archivo XML. Simplemente con no incrustarle dicho archivo, el programa se mostrará con el estilo normal. Creo que se puede editar en las opciones de compilación.

Otra forma sería utilizar un compilador más antiguo que el propio Windows XP.

[[cHackAll]]

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

Empezado por Alliance

...no se si me entienden todavia ...

no, no entiendo!

[roman]

Empezado por Ñuño Martínez

Simplemente con no incrustarle dicho archivo, el programa se mostrará con el estilo normal.

Yo pensaba lo mismo, pero aunque es cierto que los controles se ven al estilo clásico, el marco de la ventana sigue viéndose según el tema escogido en el sistema.

Lo que pone el compañero cHackAll, usando SetWindowTheme, realmente pone incluso el borde al estilo clásico. Aunque, no sé porqué, a mi no me fucionó poniendo

Código Delphi [-]
SetWindowTheme(Handle, nil, nil);

sino

Código Delphi [-]
SetWindowTheme(Handle, '', '');

De todas formas, hasta donde probé ayer, si aplicamos SetWindowTheme a la ventana, el cambio no aplica a todos los controles, hay que aplicar recursivamente la función. Pero, ahí me atoré, no logro que el cambio se vea sino hasta que oculto la ventana y vuelvo a mostrarla. Probé con Update, Refresh, Invalidate y todos los análogos pero nada. Funciona con los TButton, pero otros controles como TEdit sólo hasta que se redibuja la ventana.

Ojalá cHackAll nos de alguna luz sobre esto.

// Saludos

[[cHackAll]]

Empezado por roman

...Aunque, no sé porqué, a mi no me fucionó poniendo

Código Delphi [-]
SetWindowTheme(Handle, nil, nil);

sino

Código Delphi [-]
SetWindowTheme(Handle, '', '');

...

Claro;

Empezado por cHackAll

...lo que significa que al presionar el Button1, el S.O. quedará como el Win2k...

Código Delphi [-]
//... 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowTheme(Button1.Handle, ' ', ' ');
end;

...

Empezado por roman

...De todas formas, hasta donde probé ayer, si aplicamos SetWindowTheme a la ventana, el cambio no aplica a todos los controles, hay que aplicar recursivamente la función...

Mi no entender!

Caso 1; quieren una aplicacion con barra de titulo XP y el resto clásico? pues no hagan nada

Caso 2; quieren una aplicacion con 100% estilo clásico? simplemente NO incluyan el manifest y como es de suponerse;

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

Caso 3; quieren una aplicacion con 100% estilo clásico (y aparte quemarse las pestañas)? usen SetWindowTheme recursivamente... para sufrir más podemos extender el hilo con un buen numero de formas para hacerlo

Caso 4; quieren intercambiar estilos? API EnableTheming, tambien les puede servir para Caso 2.

etc... etc.

Empezado por roman

...Ojalá cHackAll nos de alguna luz sobre esto...

Quien definitivamente necesita una luz sobre "ésto" soy yo!

[roman]

Bueno, yo en realidad no quiero nada. Sólo estaba tratando de responderle al compañero.

Tu caso 2 es más que suficiente si quiere el estilo clásico desde el principio, pero si quiere convertir -en ejecución- de XP a clásico, pues habrá que quemarse las pestañas

// Saludos

[[cHackAll]]

Empezado por roman

Bueno, yo en realidad no quiero nada. Sólo estaba tratando de responderle al compañero.

jejeje, reconozco perfectamente tu "posición" en este caso amigo roman, disculpa si no di el mensaje adecuado

Con respecto al Caso 3 (Cruft);

Código Delphi [-]
procedure EnumControls(Control: TControl);
var Index: Integer;
begin
 with TWinControl(Control) do
  begin
   for Index := 0 to ControlCount - 1 do
    EnumControls(Controls[Index]);
   SetWindowTheme(Handle, '', '');
   if Visible then
    begin
     ShowWindow(Handle, SW_HIDE);
     ShowWindow(Handle, SW_SHOW);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 EnumControls(Self);
end;

Saludos

[Kipow]

Yo tenia ese problema y exceptuando los (bitbtn) todo funciono a la perfeccion, solamente le desmarque el check que tiene en Opciones del proyecto / Application / Enable Runtime Themes y listo.