Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #82 -> Cambiar colores de la interfaz cuando se cambia la empresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@526 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2010-06-22 19:31:10 +00:00
parent aab8f5c546
commit a452881982
2 changed files with 25 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Source/Base/uDMBase.pas
View File

@ -24,11 +24,11 @@ type
FEscribirLog : TCriticalSection; FEscribirLog : TCriticalSection;
procedure IniciarLog; procedure IniciarLog;
procedure DetenerLog; procedure DetenerLog;
procedure InitStyleManager;
procedure OnTBXThemeChange(Sender: TObject); procedure OnTBXThemeChange(Sender: TObject);
procedure LeerConfiguracion; procedure LeerConfiguracion;
public public
procedure EscribirLog(const AMensaje : String); procedure InitStyleManager (ThemeID : integer = 0);
procedure EscribirLog(const AMensaje : String);
procedure SalvarConfiguracion; procedure SalvarConfiguracion;
property OnThemeChange: TNotifyEvent read FOnThemeChange write property OnThemeChange: TNotifyEvent read FOnThemeChange write
FOnThemeChange; FOnThemeChange;
@ -69,28 +69,34 @@ begin
JvLogFile.Clear; JvLogFile.Clear;
end; end;
procedure TdmBase.InitStyleManager; procedure TdmBase.InitStyleManager(ThemeID : integer = 0);
begin begin
if not USE_THEMES then if ThemeID < 2 then
begin begin
TBXSwitcher.EnableXPStyles := False; if not USE_THEMES then
StyleManager.Theme := nptStandard;
end
else begin
TBXSwitcher.EnableXPStyles := True;
with StyleManager do
begin begin
if CurrentTheme is TTBXOffice2003Theme then TBXSwitcher.EnableXPStyles := False;
StyleManager.Theme := nptStandard;
end
else begin
TBXSwitcher.EnableXPStyles := True;
with StyleManager do
begin begin
case GetOffice2003Scheme of if CurrentTheme is TTBXOffice2003Theme then
osBlue : Theme := nptXPBlue; begin
osMetallic : Theme := nptXPSilver; case GetOffice2003Scheme of
osGreen : Theme := nptXPOlive; osBlue : Theme := nptXPBlue;
else osMetallic : Theme := nptXPSilver;
Theme := nptStandard; osGreen : Theme := nptXPOlive;
else
Theme := nptStandard;
end;
end; end;
end; end;
end; end;
end
else begin
StyleManager.Theme := nptStandard;
end; end;
end; end;

2
Source/Cliente/uPantallaPrincipal.pas
View File

@ -205,6 +205,8 @@ var
begin begin
ATitulo := AppFactuGES.GetAppFullName; ATitulo := AppFactuGES.GetAppFullName;
dmBase.InitStyleManager(JvNavigationPane.ActivePage.Tag);
if Assigned(AppFactuGES.EmpresaActiva) then if Assigned(AppFactuGES.EmpresaActiva) then
ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo; ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;