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
Bitmap = {}
end
object cxLocalizer1: TcxLocalizer
Left = 288
Top = 168
end
end

15
Source/Cliente/uPantallaPrincipal.pas
View File

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