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

Guardar el ancho de las columnas en el grid.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@635 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2015-10-27 09:55:49 +00:00
parent bb15a17ab2
commit 36f341499a
12 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Base/Utiles/uDisplayUtils.pas
View File

@ -34,7 +34,7 @@ begin
Font.Style := Styles; Font.Style := Styles;
end; end;
except except
// ignorar las excepciones EPropertyError por no encontrar la propiedad // ignorar las excepciones EPropertyError por no encontrar la propiedad
end; end;
@ -48,7 +48,11 @@ begin
ChildControl := TWinControl(Control).Controls[Index]; ChildControl := TWinControl(Control).Controls[Index];
// Set font properties // 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; end;
end; end;

2
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <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">7</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.0.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.7.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">7</VersionInfo><VersionInfo Name="Release">1</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.7.1.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.7.1.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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -188,8 +188,6 @@ begin
Albaranes.DataTable.Active := True; Albaranes.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
function TfEditorAlbaranesProveedor.GetController: IAlbaranesProveedorController; function TfEditorAlbaranesProveedor.GetController: IAlbaranesProveedorController;

2
Source/Modulos/Articulos/Views/uEditorArticulos.pas
View File

@ -71,8 +71,6 @@ begin
Articulos.DataTable.Active := True; Articulos.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
function TfEditorArticulos.GetArticulos: IBizArticulo; function TfEditorArticulos.GetArticulos: IBizArticulo;

2
Source/Modulos/Comisiones/Views/uEditorComisiones.pas
View File

@ -75,8 +75,6 @@ begin
Comisiones.DataTable.Active := True; Comisiones.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
function TfEditorComisiones.GetComisiones: IBizComisiones; function TfEditorComisiones.GetComisiones: IBizComisiones;

2
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -66,8 +66,6 @@ begin
Contactos.DataTable.Active := True; Contactos.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
function TfEditorContactos.GetContactos: IBizContacto; function TfEditorContactos.GetContactos: IBizContacto;

2
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -148,8 +148,6 @@ begin
Inventario.DataTable.Active := True; Inventario.DataTable.Active := True;
actContraer.Execute; actContraer.Execute;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
procedure TfEditorInventario.actModificarExecute(Sender: TObject); procedure TfEditorInventario.actModificarExecute(Sender: TObject);

2
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
View File

@ -82,8 +82,6 @@ begin
RemesasCliente.DataTable.Active := True; RemesasCliente.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
function TfEditorRemesasCliente.GetRemesasCliente: IBizRemesaCliente; function TfEditorRemesasCliente.GetRemesasCliente: IBizRemesaCliente;

2
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
View File

@ -82,8 +82,6 @@ begin
RemesasProveedor.DataTable.Active := True; RemesasProveedor.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end; end;
function TfEditorRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor; function TfEditorRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor;

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.6.9.0\0" VALUE "FileVersion", "2.6.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.6.9.0\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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.