Cita:
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;
Cita:
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;
... |
Cita:
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.
Cita:
Empezado por roman
...Ojalá cHackAll nos de alguna luz sobre esto...
|
Quien definitivamente necesita una luz sobre "ésto" soy yo!
