Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #356 -> Calendario en ingles al introducir fechas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@91 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-09 17:48:00 +00:00
parent ed6e9fce40
commit df6b3fd7d6
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -742,4 +742,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
Top = 213 Top = 213
Bitmap = {} Bitmap = {}
end end
object cxLocalizer1: TcxLocalizer
Left = 288
Top = 168
end
end end

15
Source/Cliente/uPantallaPrincipal.pas
View File

@ -7,7 +7,8 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, Dialogs, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, Dialogs,
JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan, JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
JvXPCore, JvXPContainer, pngimage, ExtCtrls, TB2Item, SpTBXItem, StdCtrls, JvXPCore, JvXPContainer, pngimage, ExtCtrls, TB2Item, SpTBXItem, StdCtrls,
JvPageList, JvExControls, TB2Dock, SpTBXDkPanels, uGUIBase, uCustomEditor; JvPageList, JvExControls, TB2Dock, SpTBXDkPanels, uGUIBase, uCustomEditor,
cxLocalization;
type type
IMainForm = interface(IHostForm) IMainForm = interface(IHostForm)
@ -94,6 +95,7 @@ type
actPerfilesUsuario: TAction; actPerfilesUsuario: TAction;
actSeleccionEmpresas: TAction; actSeleccionEmpresas: TAction;
Splitter1: TSplitter; Splitter1: TSplitter;
cxLocalizer1: TcxLocalizer;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure actSalirExecute(Sender: TObject); procedure actSalirExecute(Sender: TObject);
procedure actCambiarPassExecute(Sender: TObject); procedure actCambiarPassExecute(Sender: TObject);
@ -127,6 +129,7 @@ type
procedure OnThemeChange(Sender: TObject); procedure OnThemeChange(Sender: TObject);
procedure ExecuteActionMenu(Sender : TObject); procedure ExecuteActionMenu(Sender : TObject);
procedure InitStyleManager; procedure InitStyleManager;
procedure CargarIdioma;
//procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
protected protected
function GetWorkPanel : TWinControl; function GetWorkPanel : TWinControl;
@ -333,8 +336,11 @@ var
AListaEmpresas : IBizEmpresa; AListaEmpresas : IBizEmpresa;
i : Integer; i : Integer;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CargarIdioma;
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]); MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
@ -630,4 +636,11 @@ begin
Splitter1.Color := Self.Color; Splitter1.Color := Self.Color;
end; end;
procedure TfPantallaPrincipal.CargarIdioma;
begin
cxLocalizer1.LoadFromFile(ExtractFilePath(Application.ExeName) + '\languages.ini');
cxLocalizer1.Locale := 1034; // Código para castellano
cxLocalizer1.Translate;
end;
end. end.