From 36f341499a3328d1f75a802895b7b57dff80cb44 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 27 Oct 2015 09:55:49 +0000 Subject: [PATCH] Guardar el ancho de las columnas en el grid. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@635 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Utiles/uDisplayUtils.pas | 8 ++++++-- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes .../Views/uEditorAlbaranesProveedor.pas | 2 -- .../Articulos/Views/uEditorArticulos.pas | 2 -- .../Comisiones/Views/uEditorComisiones.pas | 2 -- .../Contactos/Views/uEditorContactos.pas | 2 -- .../Inventario/Views/uEditorInventario.pas | 2 -- .../Views/uEditorRemesasCliente.pas | 2 -- .../Views/uEditorRemesasProveedor.pas | 2 -- Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23348 -> 23348 bytes 12 files changed, 8 insertions(+), 18 deletions(-) diff --git a/Source/Base/Utiles/uDisplayUtils.pas b/Source/Base/Utiles/uDisplayUtils.pas index 3a447572..92abffa0 100644 --- a/Source/Base/Utiles/uDisplayUtils.pas +++ b/Source/Base/Utiles/uDisplayUtils.pas @@ -34,7 +34,7 @@ begin Font.Style := Styles; end; except - // ignorar las excepciones EPropertyError por no encontrar la propiedad + // ignorar las excepciones EPropertyError por no encontrar la propiedad end; @@ -48,7 +48,11 @@ begin ChildControl := TWinControl(Control).Controls[Index]; // Set font properties - SetFontProperties(ChildControl, Name, Size, Styles); + try + SetFontProperties(ChildControl, Name, Size, Styles); + except + // ignorar las excepciones EPropertyError por no encontrar la propiedad + end; end; end; end; diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 74120da1..8ec1deef 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2700FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.0.0FactuGESFactuGES2.7.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2710FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.1.0FactuGESFactuGES2.7.1.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index bec558bef2bf33f7ec36660f8d7ebf3fa1e4c8cb..71ec4bfdc792dc9a27c598d70bc04abac4d7315d 100644 GIT binary patch delta 488 zcmY+9KT88a6vThKCh>9xxiaNJ@P8A*PQ;)h0R@}%$)S=2jfQArl@tp30KzrNrOgMh z6)i0-t?m2{f%x|JVsKz@cbJ(s?>^t$$-CQoR4+O;?0TM?;}41)o(BqtM%vt#`7~0X z$>**1k%5JT`Si1p!uPE6k@fpphI*r=A=oFDNqqp@9y+hk9pCNvT++Wk2?qbq)KENw^p3g8B-B zNLM#DMOPftkS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d< z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGQ=}*FgQ3sBsH8E7&sX` zJRrP|5C#S=hJ*yD#wiR8+zbs3P?a1YhcYmHU}RuW0Mh^e3ji^Y0|W*P2oHT=oc?Go zlZiUWQYNshJ(vVJmj&oKR1h%Tb{>;5qt5iic}(%s-^^puU^JL6I-kjU`i1#S2|%{t H0w!+&2nH&1 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index 68366a0e..fda46bc2 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -188,8 +188,6 @@ begin Albaranes.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorAlbaranesProveedor.GetController: IAlbaranesProveedorController; diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.pas b/Source/Modulos/Articulos/Views/uEditorArticulos.pas index 85d07e27..1cacf3a5 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulos.pas +++ b/Source/Modulos/Articulos/Views/uEditorArticulos.pas @@ -71,8 +71,6 @@ begin Articulos.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorArticulos.GetArticulos: IBizArticulo; diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas index d9a019ed..2c3a9ae8 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas +++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas @@ -75,8 +75,6 @@ begin Comisiones.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorComisiones.GetComisiones: IBizComisiones; diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas index 5b50fe62..40cf5389 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.pas +++ b/Source/Modulos/Contactos/Views/uEditorContactos.pas @@ -66,8 +66,6 @@ begin Contactos.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorContactos.GetContactos: IBizContacto; diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas index 92e10132..7391844b 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.pas +++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas @@ -148,8 +148,6 @@ begin Inventario.DataTable.Active := True; actContraer.Execute; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; procedure TfEditorInventario.actModificarExecute(Sender: TObject); diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas index fae076aa..8008f0e3 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas @@ -82,8 +82,6 @@ begin RemesasCliente.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorRemesasCliente.GetRemesasCliente: IBizRemesaCliente; diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas index f1ad62e2..d8ea86c4 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas @@ -82,8 +82,6 @@ begin RemesasProveedor.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor; diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 39c30524..1b971989 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.6.9.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.6.9.0\0" - VALUE "CompileDate", "lunes, 26 de octubre de 2015 22:39\0" + VALUE "CompileDate", "martes, 27 de octubre de 2015 10:49\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 76a6c90d487bf213096926d06b21788ab416a8c0..819dd7d1f15e999d0babfd5a2cae658a09a4ee0a 100644 GIT binary patch delta 68 zcmdn8jd9C1#tjjXj58)jMk+IwY_5&uW@OG_P?_8vB`ciEkjPNPP{NSPP|Tpipuk|n YU_NvW@JudP@dc!B`cW2P|A?UkjhZZpu?cRV8mcH Xd3Tg1w-JzK#bC@}$-prAZIn9z&yEsP