PDA

Ver la Versión Completa : Error en asignación de default style


turbopascual5.0
15-05-2016, 16:45:20
Hola a todos.
He implementado que en el aplicativo se pueda cambiar el estilo.
Hay varios ejemplos por la web y en la doc de Embarcadero.
En concreto el error se produce en este procedimiento:
procedure TTabbedwithNavigationForm.ComboBox1Change(Sender: TObject);
var aTos: string;
aStyle: TfmxObject;
begin
aStyle:=nil;
if combobox1.itemindex > 0 then
begin
atos:=combobox1.selected.text;
aStyle:=TStyleStreaming.LoadFromResource(HInstance, aTos, RT_RCDATA);
if NOT assigned(astyle) then
begin
showmessage(atos+linefeed+'Not Found');
end;
end;
if astyle <> nil then
TStyleManager.SetStyle(astyle)
else
TStyleManager.SetStyle(nil); // set the "default" style
end;
La parte del if then else es redundante, pero quería determinar exactamente donde seproducía el error:
TStyleManager.SetStyle(nil); // set the "default" style
raised exception class EStyleException with message 'Argument must be nil'.
Aparte de los ejemplos por la web, en :
http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Styles.TStyleManager.SetStyle
lo indica tal como lo hago:
To set the active style to the native system style, for example Windows theme, pass nil as the Style parameter.
¿Alguien sabe como asignar el estilo por defecto?.
Gracias a todos.

turbopascual5.0
16-05-2016, 21:47:54
Le he encontrado una solución, por lo menos para salir del paso.

El estilo AndroidLlight es que usa por defecto, lo cargo y a todos los efectos es como restituir el default.

Un saludo