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

2
Source/Cliente/uPantallaPrincipal.pas
View File

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