Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-08-2016
xangiesaurx xangiesaurx is offline
Miembro
NULL
 
Registrado: feb 2016
Posts: 57
Poder: 9
xangiesaurx Va por buen camino
Problema para aplicar Vcl Styles

Hola a todos, después de mucho tiempo sin molestar, vuelvo por aquí ya que se me presento el siguiente problema:
Tengo dos proyectos, mi proyecto principal y un segundo proyecto que es llamado por el primero, el problema es que al proyecto principal se le aplican muy bien los temas y cada que se elige un tema nuevo cambia perfecto durante runtime, el problema es que cuando se llama al otro proyecto (que se genera como un .pbx) se le aplica el tema solo a cierta parte de la ventana, todo lo que es la orilla de ésta queda sin aplicarse ningún tema. Al entrar al proyecto del .pbx, intento aplicar el vcl style de la misma forma que con otros proyectos con el siguiente código:

Código Delphi [-]
procedure TIPSetupForm.Styles;
var
  R: TRegistry;
  S: string;
  Style: String;
  i: integer;
  SearchResults : TSearchRec;
  SearchDir: string;
  SLStyles: TStringList;
begin

  SearchDir := ThemesFolder + 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');

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

Y después llamarlos desde el FormCreate o FormShow, pero este proyecto no posee ninguno de los dos, así como tampoco tiene en las Opciones del proyecto la apariencia de la aplicación para seleccionar los temas a usar (esto lo solucione agregándolos manualmente en el .dproj.

Si alguien sabe de que manera se pueden aplicar por completo los temas y cambiar durante runtime, se los agradeceria mucho
Gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Uso de Styles para redondear esquinas de botones vicens22 Desarrollo en Delphi para Android 2 09-01-2016 17:09:37
Styles en delphi xe5 (Android) kurono Desarrollo en Delphi para Android 3 22-01-2015 00:45:43
Aplicar Skin DOS994 C++ Builder 7 07-11-2012 21:15:45
Problema al aplicar un filtro con ADO giorgio Conexión con bases de datos 3 22-02-2007 16:24:27


La franja horaria es GMT +2. Ahora son las 01:20:13.


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
Copyright 1996-2007 Club Delphi