david
7742905e27
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@212 0c75b7a4-871f-7646-8a2f-f78d34cc349f
34 lines
982 B
ObjectPascal
34 lines
982 B
ObjectPascal
unit uUsuariosViewRegister;
|
|
|
|
interface
|
|
|
|
procedure RegisterViews;
|
|
procedure UnregisterViews;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uEditorRegistryUtils, uEditorLogin, Dialogs, uEditorUsuario, uEditorUsuarios,
|
|
uEditorPerfilesUsuario, uEditorPerfilUsuario;
|
|
|
|
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.
|