Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   FireMonkey (https://www.clubdelphi.com/foros/forumdisplay.php?f=50)
-   -   Error en asignación de default style (https://www.clubdelphi.com/foros/showthread.php?t=90312)

turbopascual5.0 15-05-2016 16:45:20

Error en asignación de default style
 
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:
Código Delphi [-]
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:
Código Delphi [-]
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/Libra...nager.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


La franja horaria es GMT +2. Ahora son las 04:31:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi