Cambiando Temas de la forma

[xangiesaurx]

rocksoft, gracias.
Ahorita ando trabajando con eso, haciendo unas pruebas a ver que tal va.
Si justamente tuve que agregar en los uses IniFiles :P

Cualquier cosa o duda, paso a dejarla por aquí
Gracias

[xangiesaurx]

Hola a todos, vengo con malas noticias, trabajé con los archivos ini y me funciono perfectamente todo, pero en el trabajo al hacer la junta en la que vemos como avanzamos, me comentaron que no quieren que se creen archivos para manejar el cambio de temas, así que no se si se tienen alguna otra idea que me pueda ayudar?
Pensé que tal vez a través de los registros, pero acepto sugerencias que me ayuden a realizar este trabajo de manera más fácil.
Gracias

[rocksoft]

Hola xangiesaurx,

lo que te queda es enviar al ejecutar el exe un parametro.

haber si te ayuda este link

otra opcion seria, que cada vez que cambies de estilo, le cambies el nombre al ejecutable, myApp_rojo, myApp_azul, al cargar el app lees el nombre y aplicas el estilo, o usando numeros. Pero tampoco es una buena solucion.

tambien podrias crear un soquet, lo que no tiene gran sentido para una cosa tan pequeña

o usas el componente TTelepatia_o_BolaDeCristal (esto es broma ehh)

[xangiesaurx]

Hahahaha, muchas gracias rocksoft, intentaré con el parámetro, a ver que tal me va, igualmente cualquier cosa que pase, vendré a molestarlos de nuevo :P
Gracias una vez más por el apoyo

[xangiesaurx]

Ok, creo que estoy haciendo algo mal o de plano ya me complique de más y llegue a un bloqueo mental

Básicamente tengo en mi aplicación A la siguiente línea de código en la parte donde ejecuto la aplicacion B

Código Delphi [-]
 SendMsgToReceiver('TMainMenu','Capturas');

Y en la aplicacón B (que es quien recibe el mensaje)

Código Delphi [-]
procedure TMainMenu.WMGetData(var Msg: TWMCopyData);
var
  Message: string;
begin
  Message:= Pchar(Msg.CopyDataStruct.lpData);
  if Message = 'Capturas' then
  AddStylesMenu;

Donde AddStylesMenu es donde aplico los Temas. Ahora, el problema es que para generar la ventana utilizo:

Código Delphi [-]
procedure TMainMenu.FormCreate(Sender: TObject);

Por lo que todo lo que hago dentro de WMGetData no se aplica por que no esta dentro del FormCreate, como puedo solucionar esto?

[xangiesaurx]

Ok, parece que haciendo eso se me esta complicando mucho, así que que me comentaron que existe una forma de hacer eso a través de los registros, que el tema o skin se queda almacenado en el registro y simplemente tendría que leerlo para aplicárselo a mi aplicación, la cuestión es que nunca eh manejado registros desde mis aplicaciones, alguien podría darme una introducción acerca de esto?
Gracias

[xangiesaurx]

Hola, vengo a dejarles la solución que aplique para este problema, por si a alguien más en un futuro le sirve.

Básicamente, lo que hace este código es buscar en donde se encuentran los temas/skins el registro del último skin aplicado a la aplicación, lo jala y lo aplica.

Código Delphi [-]
  StyleServices.OnThemeChange:=OnThemeChange;

  SearchDir := 'Direccion del folder' + PathDelim;
  if DirectoryExists(SearchDir) then begin
    if FindFirst(SearchDir+'*.*',
                faAnyFile - faDirectory,
                searchResults) = 0 then
   repeat
     try
       if TStyleManager.IsValidStyle(
            SearchDir+searchResults.Name) then
          TStyleManager.LoadFromFile(
             SearchDir+searchResults.Name);
     except
       OutputDebugString('Not valid style file');
     end;
   until FindNext(searchResults) <> 0;
  end else
    OutputDebugString('Theme`s folder does not exist');
 // Sort the styles using a StringList
 SLStyles := TStringList.Create;
 try
   SLStyles.Duplicates := TDuplicates.dupIgnore;
   for Style in TStyleManager.StyleNames do
     SLStyles.Add(Style);
   SLStyles.Sort;

   R:=TRegistry.Create;
   try
     if R.OpenKey(PrgKey,false) then
     begin
       try
         S:=R.ReadString('ThemeStyle');
         TStyleManager.TrySetStyle(S,false);
       except
       end;
     end;
   finally
      FreeAndNil(R);
   end;

 finally
   SLStyles.Free;
 end;