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

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@625 f4e31baf-9722-1c47-927c-6f952f962d4b

Browse Source
This commit is contained in:
David Arranz 2015-09-10 16:30:28 +00:00
parent 5de609bc6f
commit b50f55ef68
28 changed files with 259 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm
View File

@ -37,7 +37,6 @@ object fConfiguracionEditor: TfConfiguracionEditor
OptionsView.NavigationPane.ShowHeader = False
OptionsView.NavigationPane.ShowOverflowPanel = False
OnLinkClick = dxNavBarLinkClick
ExplicitHeight = 466
object GroupCategorias: TdxNavBarGroup
Caption = 'Categor'#237'as'
SelectedLinkIndex = -1
@ -53,8 +52,6 @@ object fConfiguracionEditor: TfConfiguracionEditor
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
ExplicitTop = 482
ExplicitWidth = 733
DesignSize = (
788
42)
@ -68,7 +65,6 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 0
ExplicitLeft = 650
end
object bAceptar: TButton
Left = 624
@ -79,7 +75,6 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 1
ExplicitLeft = 569
end
end
object PageControlMain: TPageControl
@ -94,7 +89,5 @@ object fConfiguracionEditor: TfConfiguracionEditor
Margins.Bottom = 8
Align = alClient
TabOrder = 2
ExplicitWidth = 559
ExplicitHeight = 468
end
end

4
Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.pas
View File

@ -38,6 +38,9 @@ implementation
{$R *.dfm}
uses
uDisplayUtils;
{ TfConfiguracionEditor }
procedure TfConfiguracionEditor.AnadirVista(AVista: TfrViewConfiguracionBase;
@ -94,6 +97,7 @@ end;
procedure TfConfiguracionEditor.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
PageControlMain.ActivePageIndex := 0;
dxNavBar.Groups[0].Links[0].Selected := True;
end;

1
Source/ApplicationBase/Usuarios/Views/uEditorCambiarPassword.dfm
View File

@ -15,6 +15,7 @@ object fEditorCambiarPassword: TfEditorCambiarPassword
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel4: TBevel

8
Source/ApplicationBase/Usuarios/Views/uEditorCambiarPassword.pas
View File

@ -25,6 +25,7 @@ type
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure actCancelarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
public
Usuario : IBizUsuario;
Controller : IUsuariosController;
@ -36,7 +37,7 @@ implementation
{$R *.dfm}
uses
uDialogUtils;
uDialogUtils, uDisplayUtils;
procedure TfEditorCambiarPassword.FormClose(Sender: TObject; var Action: TCloseAction);
begin
@ -98,4 +99,9 @@ begin
end;
end;
procedure TfEditorCambiarPassword.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
end;
end.

3
Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
View File

@ -46,7 +46,7 @@ type
implementation
uses
uFactuGES_App, uDataModuleConexion;
uFactuGES_App, uDataModuleConexion, uDisplayUtils;
{$R *.dfm}
@ -112,6 +112,7 @@ end;
procedure TfEditorLogin.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
Self.Caption := AppFactuGES.AppFullName;
JvFormStorage1.RestoreFormPlacement;

1
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -550,7 +550,6 @@ begin
JsDialog.ButtonBar.Buttons := [cbCancel];
JsDialog.Width := 600;
//Añadimos las diferentes empresas que existan
AEmpresasController := TEmpresasController.Create;
AEmpresas := AEmpresasController.BuscarTodos;

3
Source/Base/Base.dpk
View File

@ -105,7 +105,8 @@ contains
uStringsUtils in 'Utiles\uStringsUtils.pas',
uAppInfoUtils in 'Utiles\uAppInfoUtils.pas',
uViewConfiguracionRegistryUtils in 'Utiles\ClassRegistry\uViewConfiguracionRegistryUtils.pas',
uEMailUtils in 'Utiles\uEMailUtils.pas';
uEMailUtils in 'Utiles\uEMailUtils.pas',
uDisplayUtils in 'Utiles\uDisplayUtils.pas';
end.

153
Source/Base/Base.dproj
View File

@ -44,6 +44,62 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -59,54 +115,6 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>
@ -130,17 +138,59 @@
<Form>dmBase</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Utiles\adortl.dcp" />
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewConfiguracionRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
<DCCReference Include="Utiles\cxDataD11.dcp" />
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
<DCCReference Include="Utiles\cxGridD11.dcp" />
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Utiles\dbrtl.dcp" />
<DCCReference Include="Utiles\dclIndyCore.dcp" />
<DCCReference Include="Utiles\designide.dcp" />
<DCCReference Include="Utiles\dsnap.dcp" />
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
<DCCReference Include="Utiles\dxThemeD11.dcp" />
<DCCReference Include="Utiles\GUISDK_D11R.dcp" />
<DCCReference Include="Utiles\IndyCore.dcp" />
<DCCReference Include="Utiles\IndyProtocols.dcp" />
<DCCReference Include="Utiles\IndySystem.dcp" />
<DCCReference Include="Utiles\Jcl.dcp" />
<DCCReference Include="Utiles\JclVcl.dcp" />
<DCCReference Include="Utiles\JSDialog100.dcp" />
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
<DCCReference Include="Utiles\JvMMD11R.dcp" />
<DCCReference Include="Utiles\JvNetD11R.dcp" />
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
<DCCReference Include="Utiles\pckMD5.dcp" />
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
<DCCReference Include="Utiles\PluginSDK_D11R.dcp" />
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
<DCCReference Include="Utiles\PNG_D10.dcp" />
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
<DCCReference Include="Utiles\rtl.dcp" />
<DCCReference Include="Utiles\TB2k_D10.dcp" />
<DCCReference Include="Utiles\tbx_d10.dcp" />
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
<DCCReference Include="Utiles\uCalculosUtils.pas" />
<DCCReference Include="Utiles\uDataTableUtils.pas" />
<DCCReference Include="Utiles\uDateUtils.pas" />
<DCCReference Include="Utiles\uDBSelectionListUtils.pas" />
<DCCReference Include="Utiles\uDialogUtils.pas" />
<DCCReference Include="Utiles\uDisplayUtils.pas" />
<DCCReference Include="Utiles\uEMailUtils.pas" />
<DCCReference Include="Utiles\uGridUtils.pas" />
<DCCReference Include="Utiles\uInfoProjectUtils.pas" />
@ -150,6 +200,13 @@
<DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="Utiles\vcl.dcp" />
<DCCReference Include="Utiles\vclactnband.dcp" />
<DCCReference Include="Utiles\vcldb.dcp" />
<DCCReference Include="Utiles\vcljpg.dcp" />
<DCCReference Include="Utiles\VclSmp.dcp" />
<DCCReference Include="Utiles\vclx.dcp" />
<DCCReference Include="Utiles\xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

12
Source/Base/Conexion/uConfigurarConexion.dfm
View File

@ -6,15 +6,12 @@ object fConfigurarConexion: TfConfigurarConexion
ClientHeight = 149
ClientWidth = 392
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = True
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object bProbar: TButton
@ -39,9 +36,8 @@ object fConfigurarConexion: TfConfigurarConexion
object Label1: TLabel
Left = 18
Top = 28
Width = 97
Width = 100
Height = 13
Margins.Bottom = 0
Caption = 'Nombre del servidor:'
end
object Label2: TLabel
@ -49,7 +45,6 @@ object fConfigurarConexion: TfConfigurarConexion
Top = 60
Width = 93
Height = 13
Margins.Bottom = 0
Caption = 'Puerto de escucha:'
end
object edtServer: TEdit
@ -99,6 +94,7 @@ object fConfigurarConexion: TfConfigurarConexion
Top = 112
end
object ROBinMessage: TROBinMessage
Envelopes = <>
Left = 152
Top = 112
end

8
Source/Base/Conexion/uConfigurarConexion.pas
View File

@ -22,6 +22,7 @@ type
CoService: TRORemoteService;
procedure bProbarClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
function GetTargetURL: String;
procedure SetTargetURL(const Value: String);
@ -36,7 +37,7 @@ var
implementation
uses
StrUtils, JclStrings, uDataModuleConexion, uDialogUtils;
StrUtils, JclStrings, uDataModuleConexion, uDialogUtils, uDisplayUtils;
{$R *.dfm}
@ -73,4 +74,9 @@ begin
HTTPChannel.OnFailure := dmConexion.ROChannelFailure;
end;
procedure TfConfigurarConexion.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
end;
end.

62
Source/Base/Utiles/uDisplayUtils.pas Normal file
View File

@ -0,0 +1,62 @@
unit uDisplayUtils;
interface
uses
Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uGUIBase, uCustomEditor;
procedure ScaleFormFont(AForm : TForm);
implementation
uses
TypInfo;
procedure SetFontProperties(Control: TControl; Name: TFontName; Size: Integer; Styles: TFontStyles);
// Set font properties
var
Index: Integer;
Font: TFont;
AnObject: TObject;
ChildControl: TControl;
begin
// Set font properties
try
AnObject := GetObjectProp(Control, 'Font', nil);
if AnObject is TFont then
begin
// Set properties
Font := TFont(AnObject);
Font.Name := Name;
Font.Size := Size;
Font.Style := Styles;
end;
except
// ignorar las excepciones EPropertyError por no encontrar la propiedad
end;
// Set child font properties
if Control is TWinControl then
begin
// Set
for Index := 0 to TWinControl(Control).ControlCount - 1 do
begin
// Child control
ChildControl := TWinControl(Control).Controls[Index];
// Set font properties
SetFontProperties(ChildControl, Name, Size, Styles);
end;
end;
end;
procedure ScaleFormFont(AForm : TForm);
begin
AForm.ScaleBy(Screen.PixelsPerInch, 96);
SetFontProperties(AForm, Screen.IconFont.Name, Screen.IconFont.Size, Screen.IconFont.Style);
end;
end.

19
Source/Cliente/FactuGES.dproj
View File

@ -54,6 +54,25 @@
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>

1
Source/Cliente/uBootStrap.pas
View File

@ -96,6 +96,7 @@ begin
NavPaneController := TNavPaneController.Create;
MainMenuController := TMainMenuController.Create;
end;
procedure Run;

9
Source/Cliente/uPantallaPrincipal.pas
View File

@ -156,7 +156,7 @@ uses
uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas,
uFactuGES_App, uDMBase, uDataModuleConexion,
uModuleController, uMainMenuController, uNavPaneController,
uDialogUtils, cxControls;
uDialogUtils, cxControls, uDisplayUtils;
{$R *.dfm}
@ -282,8 +282,11 @@ begin
end;
procedure TfPantallaPrincipal.OnThemeChange(Sender: TObject);
var
I: Integer;
begin
LockWindowUpdate(Handle);
try
Color := dmBase.StyleManager.Colors.DividerColorTo;
pnlBorde.BoundColor := dmBase.StyleManager.Colors.FrameColor;
@ -327,6 +330,8 @@ var
begin
ShowHourglassCursor;
try
ScaleFormFont(Self);
CargarIdioma;
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
@ -459,6 +464,8 @@ begin
BorderIcons := [];
BorderStyle := bsNone;
Parent := WorkPanel;
ScaleFormFont(FContenido);
FContenido.Show;
Align := alClient;
FContenido.SetFocus;

3
Source/GUIBase/uDialogBase.pas
View File

@ -37,10 +37,11 @@ implementation
{$R *.dfm}
uses
uDMBase;
uDMBase, uDisplayUtils;
procedure TfDialogBase.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
lblTitle.Font.Color := dmBase.StyleManager.Colors.HeaderColorTo;
end;

12
Source/GUIBase/uEditorBase.dfm
View File

@ -5,11 +5,7 @@ object fEditorBase: TfEditorBase
ClientHeight = 509
ClientWidth = 946
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = True
KeyPreview = True
OldCreateOrder = False
Position = poDefault
@ -23,7 +19,7 @@ object fEditorBase: TfEditorBase
TextHeight = 13
object JvNavPanelHeader: TJvNavPanelHeader
Left = 0
Top = 49
Top = 58
Width = 946
Align = alTop
Caption = 'Editor'
@ -72,10 +68,10 @@ object fEditorBase: TfEditorBase
Left = 0
Top = 0
Width = 946
Height = 49
Height = 58
object tbxMain: TTBXToolbar
Left = 0
Top = 23
Top = 29
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks

3
Source/GUIBase/uEditorBase.pas
View File

@ -168,7 +168,7 @@ implementation
{$R *.dfm}
uses
Menus, uDMBase, cxControls, cxEdit, uDialogUtils, uStringsUtils;
Menus, uDMBase, cxControls, cxEdit, uDialogUtils, uStringsUtils, uDisplayUtils;
{Método que coge el componente editor que tenga el foco y le fuerza a hacer post para que la tabla se entere
}
@ -397,6 +397,7 @@ end;
procedure TfEditorBase.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
ActualizarEstadoEditor;
if Assigned(Parent) then
begin

7
Source/GUIBase/uEditorBasico.dfm
View File

@ -5,12 +5,9 @@ object fEditorBasico: TfEditorBasico
ClientHeight = 236
ClientWidth = 383
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = True
OldCreateOrder = False
OnShow = CustomEditorShow
InstanceID = 0
ReadOnly = False
PixelsPerInch = 96

9
Source/GUIBase/uEditorBasico.pas
View File

@ -13,11 +13,20 @@ type
end;
TfEditorBasico = class(TCustomEditor, IEditorBasico)
procedure CustomEditorShow(Sender: TObject);
end;
implementation
{$R *.dfm}
uses
uDisplayUtils;
procedure TfEditorBasico.CustomEditorShow(Sender: TObject);
begin
ScaleFormFont(Self);
end;
initialization
RegisterClass(TfEditorBasico);

8
Source/GUIBase/uEditorDBItem.dfm
View File

@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 650
ExplicitWidth = 650
inherited tbxMain: TTBXToolbar
ExplicitWidth = 605
ExplicitWidth = 650
inherited TBXItem26: TTBXItem
Visible = False
end
@ -77,9 +77,9 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3]
AlignWithMargins = True
Left = 3
Top = 109
Top = 118
Width = 644
Height = 328
Height = 319
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
@ -93,7 +93,7 @@ inherited fEditorDBItem: TfEditorDBItem
end
object PnlComentario: TPanel [4]
Left = 0
Top = 76
Top = 85
Width = 650
Height = 30
Align = alTop

6
Source/GUIBase/uEditorItem.dfm
View File

@ -20,9 +20,9 @@ inherited fEditorItem: TfEditorItem
object pgPaginas: TPageControl [1]
AlignWithMargins = True
Left = 3
Top = 79
Top = 88
Width = 672
Height = 400
Height = 391
ActivePage = pagGeneral
Align = alClient
TabOrder = 1
@ -34,7 +34,7 @@ inherited fEditorItem: TfEditorItem
Width = 678
ExplicitWidth = 678
inherited tbxMain: TTBXToolbar
ExplicitWidth = 581
ExplicitWidth = 678
inherited TBXItem5: TTBXItem
Visible = False
end

6
Source/GUIBase/uViewBase.dfm
View File

@ -3,12 +3,6 @@ object frViewBase: TfrViewBase
Top = 0
Width = 445
Height = 291
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
end

22
Source/GUIBase/uViewGrid.dfm
View File

@ -1,6 +1,7 @@
inherited frViewGrid: TfrViewGrid
Width = 554
Height = 594
ParentFont = True
ExplicitWidth = 554
ExplicitHeight = 594
object cxGrid: TcxGrid [0]
@ -9,12 +10,6 @@ inherited frViewGrid: TfrViewGrid
Width = 554
Height = 466
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True
@ -87,27 +82,15 @@ inherited frViewGrid: TfrViewGrid
Width = 554
ExplicitWidth = 554
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457
Width = 457
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240
Width = 240
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 344
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 344
ExplicitWidth = 200
Width = 200
@ -135,7 +118,6 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2
Visible = False
ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 0
@ -183,7 +165,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 40113.806179872680000000
ReportDocument.CreationDate = 42257.757428541660000000
StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True

7
Source/GUIBase/uViewGrid2Niveles.dfm
View File

@ -1,6 +1,7 @@
inherited frViewGrid2Niveles: TfrViewGrid2Niveles
Width = 519
Height = 367
ParentFont = True
ExplicitWidth = 519
ExplicitHeight = 367
object cxGrid: TcxGrid [0]
@ -9,12 +10,6 @@ inherited frViewGrid2Niveles: TfrViewGrid2Niveles
Width = 519
Height = 367
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True

1
Source/GUIBase/uViewGridBase.dfm
View File

@ -1,6 +1,7 @@
inherited frViewGridBase: TfrViewGridBase
Width = 441
Height = 268
ParentFont = True
ExplicitWidth = 441
ExplicitHeight = 268
object dsDataSource: TDADataSource

26
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -1,5 +1,6 @@
inherited frViewArticulos: TfrViewArticulos
inherited cxGrid: TcxGrid
ParentFont = True
inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID'
@ -156,32 +157,9 @@ inherited frViewArticulos: TfrViewArticulos
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Visible = True
ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
object TBXSeparatorItem1: TTBXSeparatorItem

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,6,6,0
PRODUCTVERSION 2,6,6,0
FILEVERSION 2,6,4,0
PRODUCTVERSION 2,6,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.6.6.0\0"
VALUE "FileVersion", "2.6.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.6.6.0\0"
VALUE "CompileDate", "miércoles, 09 de septiembre de 2015 11:32\0"
VALUE "ProductVersion", "2.6.4.0\0"
VALUE "CompileDate", "jueves, 10 de septiembre de 2015 17:53\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.