393 lines
14 KiB
ObjectPascal
393 lines
14 KiB
ObjectPascal
|
unit UCReg;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
{$I 'UserControl.inc'}
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Classes,
|
|||
|
|
Controls,
|
|||
|
|
DesignEditors,
|
|||
|
|
DesignIntf,
|
|||
|
|
ToolsAPI,
|
|||
|
|
TypInfo,
|
|||
|
|
UCBase;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TUCComponentsVarProperty = class(TStringProperty)
|
|||
|
|
function GetAttributes: TPropertyAttributes; override;
|
|||
|
|
procedure Edit; override;
|
|||
|
|
function GetValue: String; override;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
TUCControlsEditor = class(TComponentEditor)
|
|||
|
|
procedure Edit; override;
|
|||
|
|
procedure ExecuteVerb(Index: Integer); override;
|
|||
|
|
function GetVerb(Index: Integer): String; override;
|
|||
|
|
function GetVerbCount: Integer; override;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
TUserControlEditor = class(TComponentEditor)
|
|||
|
|
procedure Edit; override;
|
|||
|
|
procedure ExecuteVerb(Index: Integer); override;
|
|||
|
|
function GetVerb(Index: Integer): String; override;
|
|||
|
|
function GetVerbCount: Integer; override;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
TUCAboutVarProperty = class(TStringProperty)
|
|||
|
|
function GetAttributes: TPropertyAttributes; override;
|
|||
|
|
procedure Edit; override;
|
|||
|
|
function GetValue: String; override;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
{$IFDEF DELPHI7}
|
|||
|
|
TUCAboutXpStyleVarProperty = class(TStringProperty)
|
|||
|
|
function GetAttributes: TPropertyAttributes; override;
|
|||
|
|
procedure Edit; override;
|
|||
|
|
function GetValue: String; override;
|
|||
|
|
end;
|
|||
|
|
{$ENDIF}
|
|||
|
|
|
|||
|
|
procedure Register;
|
|||
|
|
procedure ShowControlsEditor(Componente: TUCControls);
|
|||
|
|
procedure ShowUserControlsEditor(Componente: TUserControl);
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Dialogs,
|
|||
|
|
Forms,
|
|||
|
|
SysUtils,
|
|||
|
|
UCAbout,
|
|||
|
|
UCIdle,
|
|||
|
|
UCObjSel_U,
|
|||
|
|
{$IFDEF DELPHI7}
|
|||
|
|
UCAboutXPStyle_U,
|
|||
|
|
UCXPStyle,
|
|||
|
|
{$ENDIF}
|
|||
|
|
UCEditorForm_U,
|
|||
|
|
{$IFDEF Indy}
|
|||
|
|
UCMail,
|
|||
|
|
{$ENDIF}
|
|||
|
|
ActnList,
|
|||
|
|
ActnMan,
|
|||
|
|
ActnMenus,
|
|||
|
|
Menus,
|
|||
|
|
StdCtrls,
|
|||
|
|
UCSettings,
|
|||
|
|
Variants;
|
|||
|
|
|
|||
|
|
procedure Register;
|
|||
|
|
begin
|
|||
|
|
RegisterComponents('UC Main',
|
|||
|
|
[TUserControl,
|
|||
|
|
TUCSettings,
|
|||
|
|
TUCControls,
|
|||
|
|
TUCApplicationMessage,
|
|||
|
|
TUCIdle,
|
|||
|
|
TUCHistorico
|
|||
|
|
{$IFDEF Indy}
|
|||
|
|
, TMailUserControl
|
|||
|
|
{$ENDIF}
|
|||
|
|
{$IFDEF DELPHI7}
|
|||
|
|
, TUCXPStyle
|
|||
|
|
{$ENDIF}
|
|||
|
|
]);
|
|||
|
|
|
|||
|
|
{$IFDEF DELPHI7}
|
|||
|
|
RegisterPropertyEditor(TypeInfo(TUCAboutXpStyleVar), nil, '', TUCAboutXpStyleVarProperty);
|
|||
|
|
{$ENDIF}
|
|||
|
|
|
|||
|
|
RegisterPropertyEditor(TypeInfo(TUCAboutVar), TUserControl, 'About', TUCAboutVarProperty);
|
|||
|
|
RegisterPropertyEditor(TypeInfo(TUCComponentsVar), TUserControl, 'Components', TUCComponentsVarProperty);
|
|||
|
|
RegisterComponentEditor(TUCcontrols, TUCControlsEditor);
|
|||
|
|
RegisterComponentEditor(TUserControl, TUserControlEditor);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
{ TUCComponentsVarProperty }
|
|||
|
|
procedure TUCComponentsVarProperty.Edit;
|
|||
|
|
begin
|
|||
|
|
ShowControlsEditor(TUCControls(GetComponent(0)));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCComponentsVarProperty.GetAttributes: TPropertyAttributes;
|
|||
|
|
begin
|
|||
|
|
Result := [paDialog, paReadOnly];
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCComponentsVarProperty.GetValue: String;
|
|||
|
|
begin
|
|||
|
|
Result := 'Components...';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
{ TUCAboutVarProperty }
|
|||
|
|
|
|||
|
|
procedure TUCAboutVarProperty.Edit;
|
|||
|
|
begin
|
|||
|
|
with TAboutForm.Create(nil) do
|
|||
|
|
begin
|
|||
|
|
ShowModal;
|
|||
|
|
Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCAboutVarProperty.GetAttributes: TPropertyAttributes;
|
|||
|
|
begin
|
|||
|
|
Result := [paDialog, paReadOnly];
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCAboutVarProperty.GetValue: String;
|
|||
|
|
begin
|
|||
|
|
Result := 'Versao ' + UCVersion;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure ShowUserControlsEditor(Componente: TUserControl);
|
|||
|
|
var
|
|||
|
|
Editor: IOTAEditor;
|
|||
|
|
Modulo: IOTAModule;
|
|||
|
|
FormEditor: IOTAFormEditor;
|
|||
|
|
I: Integer;
|
|||
|
|
Formulario: TUCEditorForm;
|
|||
|
|
UserControl: TUserControl;
|
|||
|
|
Controle: String;
|
|||
|
|
UserActionMenuItem: String;
|
|||
|
|
UserProfileActionMenuItem: String;
|
|||
|
|
LogControlActionMeuItem: String;
|
|||
|
|
UserPasswordChangeActionMenuItem: String;
|
|||
|
|
FormularioDono: TForm;
|
|||
|
|
begin
|
|||
|
|
UserControl := Componente;
|
|||
|
|
FormularioDono := TForm(UserControl.Owner);
|
|||
|
|
try
|
|||
|
|
Formulario := TUCEditorForm.Create(nil, UserControl);
|
|||
|
|
|
|||
|
|
if Formulario.ShowModal = mrOk then
|
|||
|
|
begin
|
|||
|
|
with UserControl do
|
|||
|
|
begin
|
|||
|
|
ApplicationID := Formulario.edtApplicationID.Text;
|
|||
|
|
AutoStart := Formulario.ckAutoStart.Checked;
|
|||
|
|
CheckValidationKey := Formulario.ckValidationKey.Checked;
|
|||
|
|
EncryptKey := Formulario.spedtEncryptKey.Value;
|
|||
|
|
TableRights.TableName := Formulario.edtTableRights.Text;
|
|||
|
|
TableUsers.TableName := Formulario.edtTableUsers.Text;
|
|||
|
|
NotAllowedItems.ActionVisible := Formulario.ckActionVisible.Checked;
|
|||
|
|
NotAllowedItems.MenuVisible := Formulario.ckMenuVisible.Checked;
|
|||
|
|
Criptografia := TUCCriptografia(Formulario.cbCriptografia.ItemIndex);
|
|||
|
|
LoginMode := TUCLoginMode(Formulario.cbLoginMode.ItemIndex);
|
|||
|
|
|
|||
|
|
if Formulario.cbActionList.ItemIndex >= 0 then
|
|||
|
|
Controle := Formulario.cbActionList.Text;
|
|||
|
|
if Formulario.cbActionMainMenuBar.ItemIndex >= 0 then
|
|||
|
|
Controle := Formulario.cbActionMainMenuBar.Text;
|
|||
|
|
|
|||
|
|
if Formulario.cbActionManager.ItemIndex >= 0 then
|
|||
|
|
Controle := Formulario.cbActionManager.Text;
|
|||
|
|
if Formulario.cbMainMenu.ItemIndex >= 0 then
|
|||
|
|
Controle := Formulario.cbMainMenu.Text;
|
|||
|
|
|
|||
|
|
if Formulario.cbUserAction.ItemIndex >= 0 then
|
|||
|
|
UserActionMenuItem := Formulario.cbUserAction.Text;
|
|||
|
|
if Formulario.cbUserMenuItem.ItemIndex >= 0 then
|
|||
|
|
UserActionMenuItem := Formulario.cbUserMenuItem.Text;
|
|||
|
|
|
|||
|
|
if Formulario.cbUserProfileAction.ItemIndex >= 0 then
|
|||
|
|
UserProfileActionMenuItem := Formulario.cbUserProfileAction.Text;
|
|||
|
|
if Formulario.cbUserProfileMenuItem.ItemIndex >= 0 then
|
|||
|
|
UserProfileActionMenuItem := Formulario.cbUserProfileMenuItem.Text;
|
|||
|
|
|
|||
|
|
if Formulario.cbLogControlAction.ItemIndex >= 0 then
|
|||
|
|
LogControlActionMeuItem := Formulario.cbLogControlAction.Text;
|
|||
|
|
if Formulario.cbLogControlMenuItem.ItemIndex >= 0 then
|
|||
|
|
LogControlActionMeuItem := Formulario.cbLogControlMenuItem.Text;
|
|||
|
|
|
|||
|
|
if Formulario.cbUserPasswordChangeAction.ItemIndex >= 0 then
|
|||
|
|
UserPasswordChangeActionMenuItem := Formulario.cbUserPasswordChangeAction.Text;
|
|||
|
|
if Formulario.cbUserPasswordChangeMenuItem.ItemIndex >= 0 then
|
|||
|
|
UserPasswordChangeActionMenuItem := Formulario.cbUserPasswordChangeMenuItem.Text;
|
|||
|
|
|
|||
|
|
|
|||
|
|
for I := 0 to FormularioDono.ComponentCount - 1 do
|
|||
|
|
begin
|
|||
|
|
if (FormularioDono.Components[I].Name = Controle) and (Formulario.cbActionList.ItemIndex >= 0) then
|
|||
|
|
ControlRight.ActionList := TActionList(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = Controle) and (Formulario.cbActionMainMenuBar.ItemIndex >= 0) then
|
|||
|
|
ControlRight.ActionMainMenuBar := TActionMainMenuBar(UserControl.Owner.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = Controle) and (Formulario.cbActionManager.ItemIndex >= 0) then
|
|||
|
|
ControlRight.ActionManager := TActionManager(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = Controle) and (Formulario.cbMainMenu.ItemIndex >= 0) then
|
|||
|
|
ControlRight.MainMenu := TMainMenu(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = UserActionMenuItem) and (Formulario.cbUserAction.ItemIndex >= 0) then
|
|||
|
|
User.Action := TAction(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = UserActionMenuItem) and (Formulario.cbUserMenuItem.ItemIndex >= 0) then
|
|||
|
|
User.MenuItem := TMenuItem(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = UserProfileActionMenuItem) and (Formulario.cbUserProfileAction.ItemIndex >= 0) then
|
|||
|
|
UserProfile.Action := TAction(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = UserProfileActionMenuItem) and (Formulario.cbUserProfileMenuItem.ItemIndex >= 0) then
|
|||
|
|
UserProfile.MenuItem := TMenuItem(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = LogControlActionMeuItem) and (Formulario.cbLogControlAction.ItemIndex >= 0) then
|
|||
|
|
LogControl.Action := TAction(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = LogControlActionMeuItem) and (Formulario.cbLogControlMenuItem.ItemIndex >= 0) then
|
|||
|
|
LogControl.MenuItem := TMenuItem(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = UserPasswordChangeActionMenuItem) and (Formulario.cbUserPasswordChangeAction.ItemIndex >= 0) then
|
|||
|
|
UserPasswordChange.Action := TAction(FormularioDono.Components[I]);
|
|||
|
|
if (FormularioDono.Components[I].Name = UserPasswordChangeActionMenuItem) and (Formulario.cbUserPasswordChangeMenuItem.ItemIndex >= 0) then
|
|||
|
|
UserPasswordChange.MenuItem := TMenuItem(FormularioDono.Components[I]);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
User.UsePrivilegedField := Formulario.ckUserUsePrivilegedField.Checked;
|
|||
|
|
User.ProtectAdministrator := Formulario.ckUserProtectAdministrator.Checked;
|
|||
|
|
UserProfile.Active := Formulario.ckUserProfileActive.Checked;
|
|||
|
|
UserPasswordChange.ForcePassword := Formulario.ckUserPassowrdChangeForcePassword.Checked;
|
|||
|
|
UserPasswordChange.MinPasswordLength := Formulario.spedtUserPasswordChangeMinPasswordLength.Value;
|
|||
|
|
|
|||
|
|
LogControl.TableLog := Formulario.edtLogControlTableLog.Text;
|
|||
|
|
LogControl.Active := Formulario.ckLogControlActive.Checked;
|
|||
|
|
|
|||
|
|
Login.MaxLoginAttempts := Formulario.spedtMaxLoginAttempts.Value;
|
|||
|
|
Login.GetLoginName := TUCGetLoginName(Formulario.cbGetLoginName.ItemIndex);
|
|||
|
|
Login.InitialLogin.User := Formulario.edtInitialLoginUser.Text;
|
|||
|
|
Login.InitialLogin.Password := Formulario.edtInitialLoginPassword.Text;
|
|||
|
|
Login.InitialLogin.Email := Formulario.edtInitialLoginEmail.Text;
|
|||
|
|
Login.InitialLogin.InitialRights := Formulario.mmInitialRights.Lines;
|
|||
|
|
Login.AutoLogin.Active := Formulario.ckLoginAutologinActive.Checked;
|
|||
|
|
Login.AutoLogin.User := Formulario.edtLoginAutoLoginUser.Text;
|
|||
|
|
Login.AutoLogin.Password := Formulario.edtLoginAutoLoginPassword.Text;
|
|||
|
|
Login.AutoLogin.MessageOnError := Formulario.ckLoginAutoLoginMessageOnError.Checked;
|
|||
|
|
UserSettings.Login.TopImage := Formulario.imgTop.Picture;
|
|||
|
|
UserSettings.Login.LeftImage := Formulario.imgLeft.Picture;
|
|||
|
|
UserSettings.Login.BottomImage := Formulario.imgBottom.Picture;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
Modulo := (BorlandIDEServices as IOTAModuleServices).CurrentModule;
|
|||
|
|
for I := 0 to Modulo.GetModuleFileCount - 1 do
|
|||
|
|
begin
|
|||
|
|
Editor := Modulo.GetModuleFileEditor(I);
|
|||
|
|
Editor.QueryInterface(IOTAFormEditor, FormEditor);
|
|||
|
|
if FormEditor <> nil then
|
|||
|
|
begin
|
|||
|
|
FormEditor.MarkModified;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
SysUtils.FreeAndNil(Formulario);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure ShowControlsEditor(Componente: TUCControls);
|
|||
|
|
var
|
|||
|
|
FUCControl: TUCControls;
|
|||
|
|
FEditor: IOTAEditor;
|
|||
|
|
FModulo: IOTAModule;
|
|||
|
|
FFormEditor: IOTAFormEditor;
|
|||
|
|
I: Integer;
|
|||
|
|
begin
|
|||
|
|
FUCControl := Componente;
|
|||
|
|
if not Assigned(FUCControl.UserControl) then
|
|||
|
|
begin
|
|||
|
|
MessageDlg('A propriedade UserControl tem que ser informada e o componente ' + #13 + #10 + 'tem que estar vis<69>vel!', mtInformation, [mbOK], 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with TUCObjSel.Create(nil) do
|
|||
|
|
begin
|
|||
|
|
FForm := TCustomForm(FUCControl.Owner);
|
|||
|
|
FUserControl := FUCControl.UserControl;
|
|||
|
|
FInitialObjs := TStringList.Create;
|
|||
|
|
TUCControls(Componente).ListComponents(FForm.Name, FInitialObjs);
|
|||
|
|
lbGroup.Caption := TUCControls(Componente).GroupName;
|
|||
|
|
ShowModal;
|
|||
|
|
Free;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
FModulo := (BorlandIDEServices as IOTAModuleServices).FindFormModule(FUCControl.UserControl.Owner.Name);
|
|||
|
|
if FModulo = nil then
|
|||
|
|
begin
|
|||
|
|
ShowMessage('Modulo ' + FUCControl.UserControl.Owner.Name + ' nao encontrado!');
|
|||
|
|
Exit;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
for I := 0 to FModulo.GetModuleFileCount - 1 do
|
|||
|
|
begin
|
|||
|
|
FEditor := FModulo.GetModuleFileEditor(I);
|
|||
|
|
FEditor.QueryInterface(IOTAFormEditor, FFormEditor);
|
|||
|
|
if FFormEditor <> nil then
|
|||
|
|
begin
|
|||
|
|
FFormEditor.MarkModified;
|
|||
|
|
Break;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
{$IFDEF DELPHI7}
|
|||
|
|
{ TUCAboutXpStyleVarProperty }
|
|||
|
|
|
|||
|
|
procedure TUCAboutXpStyleVarProperty.Edit;
|
|||
|
|
begin
|
|||
|
|
with TUCAboutXpStyle.Create(nil) do
|
|||
|
|
begin
|
|||
|
|
ShowModal;
|
|||
|
|
Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCAboutXpStyleVarProperty.GetAttributes: TPropertyAttributes;
|
|||
|
|
begin
|
|||
|
|
Result := [paDialog, paReadOnly];
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCAboutXpStyleVarProperty.GetValue: String;
|
|||
|
|
begin
|
|||
|
|
Result := 'About...';
|
|||
|
|
end;
|
|||
|
|
{$ENDIF}
|
|||
|
|
|
|||
|
|
{TUCControlsEditor}
|
|||
|
|
procedure TUCControlsEditor.Edit;
|
|||
|
|
begin
|
|||
|
|
ShowControlsEditor(TUCControls(Component));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TUCControlsEditor.ExecuteVerb(Index: Integer);
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCControlsEditor.GetVerb(Index: Integer): String;
|
|||
|
|
begin
|
|||
|
|
Result := '&Select Components...';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUCControlsEditor.GetVerbCount: Integer;
|
|||
|
|
begin
|
|||
|
|
Result := 1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
{ TUserControlEditor }
|
|||
|
|
|
|||
|
|
procedure TUserControlEditor.Edit;
|
|||
|
|
begin
|
|||
|
|
ShowUserControlsEditor(TUserControl(Component));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TUserControlEditor.ExecuteVerb(Index: Integer);
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUserControlEditor.GetVerb(Index: Integer): String;
|
|||
|
|
begin
|
|||
|
|
Result := 'Configurar...';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TUserControlEditor.GetVerbCount: Integer;
|
|||
|
|
begin
|
|||
|
|
Result := 1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|