david
89e1f653ac
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@113 1c943782-d109-9647-9548-93b3ac332352
36 lines
1010 B
ObjectPascal
36 lines
1010 B
ObjectPascal
unit uUsuariosViewRegister;
|
|
|
|
interface
|
|
|
|
procedure RegisterViews;
|
|
procedure UnregisterViews;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uEditorRegistryUtils, uEditorLogin, Dialogs, uEditorUsuario, uEditorUsuarios,
|
|
uEditorPerfilesUsuario, uEditorPerfilUsuario, uEditorPermisosUsuario;
|
|
|
|
procedure RegisterViews;
|
|
begin
|
|
EditorRegistry.RegisterClass(TfEditorLogin, 'EditorLogin');
|
|
EditorRegistry.RegisterClass(TfEditorUsuarios, 'EditorUsuarios');
|
|
EditorRegistry.RegisterClass(TfEditorUsuario, 'EditorUsuario');
|
|
EditorRegistry.RegisterClass(TfEditorPerfilesUsuario, 'EditorPerfilesUsuario');
|
|
EditorRegistry.RegisterClass(TfEditorPerfilUsuario, 'EditorPerfilUsuario');
|
|
|
|
|
|
end;
|
|
|
|
procedure UnregisterViews;
|
|
begin
|
|
EditorRegistry.UnRegisterClass(TfEditorLogin);
|
|
EditorRegistry.UnRegisterClass(TfEditorUsuarios);
|
|
EditorRegistry.UnRegisterClass(TfEditorUsuario);
|
|
EditorRegistry.UnRegisterClass(TfEditorPerfilesUsuario);
|
|
EditorRegistry.UnRegisterClass(TfEditorPerfilUsuario);
|
|
|
|
end;
|
|
|
|
end.
|