Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Grid -> Guardar la configuración en un fichero XML en vez del registro de Windows (II)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@495 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-08-04 11:41:36 +00:00
parent 63125630f1
commit c9d176f674
3 changed files with 2 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/GUIBase/uEditorGridBase.dfm
View File

@ -1516,8 +1516,6 @@ inherited fEditorGridBase: TfEditorGridBase
Bitmap = {} Bitmap = {}
end end
inherited JvFormStorage: TJvFormStorage inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 400 Left = 400
Top = 160 Top = 160
end end

16
Source/GUIBase/uEditorGridBase.pas
View File

@ -61,8 +61,6 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject);
procedure actDuplicarUpdate(Sender: TObject); procedure actDuplicarUpdate(Sender: TObject);
procedure JvFormStorageSavePlacement(Sender: TObject);
procedure JvFormStorageRestorePlacement(Sender: TObject);
procedure actModificarUpdate(Sender: TObject); procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject); procedure actNuevoUpdate(Sender: TObject);
@ -279,13 +277,6 @@ begin
(Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1); (Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1);
end; end;
procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
end;
procedure TfEditorGridBase.PrevisualizarInterno; procedure TfEditorGridBase.PrevisualizarInterno;
begin begin
inherited; inherited;
@ -312,13 +303,6 @@ begin
end; end;
end; end;
procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
end;
initialization initialization
RegisterClass(TfEditorGridBase); RegisterClass(TfEditorGridBase);

3
Source/GUIBase/uViewGridBase.pas
View File

@ -180,7 +180,8 @@ procedure Register;
implementation implementation
uses uses
CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils; CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils,
uSistemaFunc, SHFolder, uAppInfoUtils;
{$R *.dfm} {$R *.dfm}