unit UCEditorForm_U;

interface

{.$I 'UserControl.inc'}

uses
  ActnCtrls,
  ActnList,
  ActnMan,
  ActnMenus,
  Buttons,
  Classes,
  ComCtrls,
  Contnrs,
  Controls,
  Dialogs,
  ExtCtrls,
  ExtDlgs,
  Forms,
  Graphics,
  jpeg,
  Menus,
  Spin,
  StdCtrls,
  ToolWin,
  UCBase;

type
  TUCEditorForm = class(TForm)
    pnlBotoes:                                TPanel;
    Panel2:                                   TPanel;
    lbComponente:                             TLabel;
    pnlCentro:                                TPanel;
    PageControl:                              TPageControl;
    tabPrincipal:                             TTabSheet;
    tabLogin:                                 TTabSheet;
    Label14:                                  TLabel;
    Label15:                                  TLabel;
    Label16:                                  TLabel;
    Label17:                                  TLabel;
    Label18:                                  TLabel;
    SpeedButton1:                             TSpeedButton;
    GroupBox1:                                TGroupBox;
    Label8:                                   TLabel;
    Label9:                                   TLabel;
    Label12:                                  TLabel;
    lblInitialRights:                         TLabel;
    edtInitialLoginUser:                      TEdit;
    edtInitialLoginPassword:                  TEdit;
    edtInitialLoginEmail:                     TEdit;
    mmInitialRights:                          TMemo;
    GroupBox2:                                TGroupBox;
    Label10:                                  TLabel;
    Label11:                                  TLabel;
    edtLoginAutoLoginUser:                    TEdit;
    edtLoginAutoLoginPassword:                TEdit;
    ckLoginAutologinActive:                   TCheckBox;
    ckLoginAutoLoginMessageOnError:           TCheckBox;
    cbGetLoginName:                           TComboBox;
    tabLogControl:                            TTabSheet;
    Label25:                                  TLabel;
    Panel4:                                   TPanel;
    Image4:                                   TImage;
    Label19:                                  TLabel;
    Label20:                                  TLabel;
    Label21:                                  TLabel;
    Label22:                                  TLabel;
    Label23:                                  TLabel;
    Label24:                                  TLabel;
    edtLogControlTableLog:                    TEdit;
    ckLogControlActive:                       TCheckBox;
    cbLogControlAction:                       TComboBox;
    cbLogControlMenuItem:                     TComboBox;
    Panel6:                                   TPanel;
    imgTop:                                   TImage;
    Panel7:                                   TPanel;
    imgLeft:                                  TImage;
    Panel8:                                   TPanel;
    imgBottom:                                TImage;
    Panel5:                                   TPanel;
    Label5:                                   TLabel;
    Label6:                                   TLabel;
    Label7:                                   TLabel;
    edtApplicationID:                         TEdit;
    edtTableUsers:                            TEdit;
    edtTableRights:                           TEdit;
    edtTabelaPermissoesEX:                    TEdit;
    ckAutoStart:                              TCheckBox;
    btnTabelasPadrao:                         TButton;
    btnOK:                                    TBitBtn;
    btnClose:                                 TBitBtn;
    ckValidationKey:                          TCheckBox;
    cbCriptografia:                           TComboBox;
    Label29:                                  TLabel;
    Label30:                                  TLabel;
    Label32:                                  TLabel;
    cbLoginMode:                              TComboBox;
    GroupBox3:                                TGroupBox;
    ckActionVisible:                          TCheckBox;
    ckMenuVisible:                            TCheckBox;
    tabUser:                                  TTabSheet;
    tabUserProfile:                           TTabSheet;
    tabUserPasswordChange:                    TTabSheet;
    cbUserAction:                             TComboBox;
    cbUserMenuItem:                           TComboBox;
    Label3:                                   TLabel;
    cbUserProfileAction:                      TComboBox;
    cbUserProfileMenuItem:                    TComboBox;
    Label4:                                   TLabel;
    cbUserPasswordChangeAction:               TComboBox;
    cbUserPasswordChangeMenuItem:             TComboBox;
    Label1:                                   TLabel;
    Label26:                                  TLabel;
    tabControlRights:                         TTabSheet;
    Label33:                                  TLabel;
    Label34:                                  TLabel;
    Label35:                                  TLabel;
    Label36:                                  TLabel;
    cbActionList:                             TComboBox;
    cbActionMainMenuBar:                      TComboBox;
    cbActionManager:                          TComboBox;
    cbMainMenu:                               TComboBox;
    spedtEncryptKey:                          TSpinEdit;
    ckUserProtectAdministrator:               TCheckBox;
    ckUserUsePrivilegedField:                 TCheckBox;
    Label2:                                   TLabel;
    Label27:                                  TLabel;
    Label28:                                  TLabel;
    ckUserProfileActive:                      TCheckBox;
    Label31:                                  TLabel;
    Label37:                                  TLabel;
    ckUserPassowrdChangeForcePassword:        TCheckBox;
    spedtUserPasswordChangeMinPasswordLength: TSpinEdit;
    spedtMaxLoginAttempts:                    TSpinEdit;
    OpenPictureDialog:                        TOpenPictureDialog;
    ActionList:                               TActionList;
    acCarregarFigura:                         TAction;
    acVisualizarTelaLogin:                    TAction;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Image1: TImage;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);

    procedure ComboRightsChange(Sender: TObject);

    procedure ComboActionMenuItem(Sender: TObject);

    procedure btnTabelasPadraoClick(Sender: TObject);
    procedure edtTableRightsChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure ActionsExecute(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
    FUserControl: TUserControl;
  public
    constructor Create(AOwner: TComponent; UserControl: TUserControl); reintroduce;
  end;

implementation

uses
  LoginWindow_U,
  ShellAPI,
  SysUtils,
  UcConsts_Language,
  UCMessages,
  Windows;

{$R *.dfm}

procedure TUCEditorForm.edtTableRightsChange(Sender: TObject);
begin
  edtTabelaPermissoesEX.Text := edtTableRights.Text + 'EX';
end;

procedure TUCEditorForm.ActionsExecute(Sender: TObject);
begin
  if Sender = imgTop then
    if OpenPictureDialog.Execute then
      imgTop.Picture.LoadFromFile(OpenPictureDialog.FileName);

  if Sender = imgBottom then
    if OpenPictureDialog.Execute then
      imgBottom.Picture.LoadFromFile(OpenPictureDialog.FileName);

  if Sender = imgLeft then
    if OpenPictureDialog.Execute then
      imgLeft.Picture.LoadFromFile(OpenPictureDialog.FileName);
end;

procedure TUCEditorForm.btnTabelasPadraoClick(Sender: TObject);
begin
  edtTableUsers.Text  := RetornaLingua( FUserControl.Language,'Const_TableUsers_TableName');
  edtTableRights.Text := RetornaLingua( FUserControl.Language,'Const_TableRights_TableName');
end;

procedure TUCEditorForm.ComboActionMenuItem(Sender: TObject);
begin
  // Combo USER
  if (Sender = cbUserAction) and (cbUserAction.ItemIndex >= 0) then
    cbUserMenuItem.ItemIndex := -1;

  if (Sender = cbUserMenuItem) and (cbUserMenuItem.ItemIndex >= 0) then
    cbUserAction.ItemIndex := -1;

  // Combo USERPROFILE
  if (Sender = cbUserProfileAction) and (cbUserProfileAction.ItemIndex >= 0) then
    cbUserProfileMenuItem.ItemIndex := -1;

  if (Sender = cbUserProfileMenuItem) and (cbUserProfileMenuItem.ItemIndex >= 0) then
    cbUserProfileAction.ItemIndex := -1;

  // Combo USERPASSWORDCHANGE
  if (Sender = cbUserPasswordChangeAction) and (cbUserPasswordChangeAction.ItemIndex >= 0) then
    cbUserPasswordChangeMenuItem.ItemIndex := -1;

  if (Sender = cbUserPasswordChangeMenuItem) and (cbUserPasswordChangeMenuItem.ItemIndex >= 0) then
    cbUserPasswordChangeAction.ItemIndex := -1;

  // Combo LOGCONTROL
  if (Sender = cbLogControlAction) and (cbLogControlAction.ItemIndex >= 0) then
    cbLogControlMenuItem.ItemIndex := -1;

  if (Sender = cbLogControlMenuItem) and (cbLogControlMenuItem.ItemIndex >= 0) then
    cbLogControlAction.ItemIndex := -1;
end;

procedure TUCEditorForm.ComboRightsChange(Sender: TObject);
begin
{  if Sender = cbActionList then
    if cbActionList.ItemIndex >= 0 then
    begin
      cbActionMainMenuBar.ItemIndex := -1;
      cbActionManager.ItemIndex     := -1;
      cbMainMenu.ItemIndex          := -1;
    end;

  if Sender = cbActionMainMenuBar then
    if cbActionMainMenuBar.ItemIndex >= 0 then
    begin
      cbActionList.ItemIndex    := -1;
      cbActionManager.ItemIndex := -1;
      cbMainMenu.ItemIndex      := -1;
    end;

  if Sender = cbActionManager then
    if cbActionManager.ItemIndex >= 0 then
    begin
      cbActionList.ItemIndex        := -1;
      cbActionMainMenuBar.ItemIndex := -1;
      cbMainMenu.ItemIndex          := -1;
    end;

  if Sender = cbMainMenu then
    if cbMainMenu.ItemIndex >= 0 then
    begin
      cbActionList.ItemIndex        := -1;
      cbActionMainMenuBar.ItemIndex := -1;
      cbActionManager.ItemIndex     := -1;
    end; }

end;

constructor TUCEditorForm.Create(AOwner: TComponent; UserControl: TUserControl);
begin
  inherited Create(AOwner);
  FUserControl := UserControl;
end;

procedure TUCEditorForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TUCEditorForm.FormCreate(Sender: TObject);
var
  I:          Integer;
  Formulario: TForm;
begin
  lblInitialRights.Caption := 'Initial  ' + #13 + 'Rights :';
  PageControl.ActivePage   := tabPrincipal;

  with FUserControl do
  begin
    edtApplicationID.Text    := ApplicationID;
    ckAutoStart.Checked      := AutoStart;
    ckValidationKey.Checked  := CheckValidationKey;
    spedtEncryptKey.Value    := EncryptKey;
    edtTableRights.Text      := TableRights.TableName;
    edtTableUsers.Text       := TableUsers.TableName;
    ckActionVisible.Checked  := NotAllowedItems.ActionVisible;
    ckMenuVisible.Checked    := NotAllowedItems.MenuVisible;
    cbCriptografia.ItemIndex := integer(Criptografia);
    cbLoginMode.ItemIndex    := integer(LoginMode);
  end;

  Formulario := TForm(FUserControl.Owner);

  for I := 0 to Formulario.ComponentCount - 1 do
  begin
    if Formulario.Components[I] is TAction then
    begin
      cbUserAction.Items.Add(TAction(Formulario.Components[I]).Name);
      cbUserProfileAction.Items.Add(TAction(Formulario.Components[I]).Name);
      cbLogControlAction.Items.Add(TAction(Formulario.Components[I]).Name);
      cbUserPasswordChangeAction.Items.Add(TAction(Formulario.Components[I]).Name);
    end;

    if Formulario.Components[I] is TMenuItem then
    begin
      cbUserMenuItem.Items.Add(Formulario.Components[I].Name);
      cbUserProfileMenuItem.Items.Add(Formulario.Components[I].Name);
      cbLogControlMenuItem.Items.Add(Formulario.Components[I].Name);
      cbUserPasswordChangeMenuItem.Items.Add(Formulario.Components[I].Name);
    end;

    // Adicionar os valores dos "ControlRights"
    if Formulario.Components[I] is TActionList then
      cbActionList.Items.Add(Formulario.Components[I].Name);

    if Formulario.Components[I] is TActionMainMenuBar then
      cbActionMainMenuBar.Items.Add(Formulario.Components[I].Name);

    if Formulario.Components[I] is TActionManager then
      cbActionManager.Items.Add(Formulario.Components[I].Name);

    if Formulario.Components[I] is TMainMenu then
      cbMainMenu.Items.Add(Formulario.Components[I].Name);
  end;

  with FUserControl.ControlRight do
  begin
    if Assigned(ActionList) then
      cbActionList.ItemIndex := (cbActionList.Items.IndexOf(ActionList.Name));

    if Assigned(MainMenu) then
      cbMainMenu.ItemIndex := (cbMainMenu.Items.IndexOf(MainMenu.Name));

    if Assigned(ActionMainMenuBar) then
      cbActionMainMenuBar.ItemIndex := (cbActionMainMenuBar.Items.IndexOf(ActionMainMenuBar.Name));

    if Assigned(ActionManager) then
      cbActionManager.ItemIndex := (cbActionManager.Items.IndexOf(ActionManager.Name));
  end;

  // Action e MenuItem USER
  if Assigned(FUserControl.User.Action) then
    cbUserAction.ItemIndex := (cbUserAction.Items.IndexOf(FUserControl.User.Action.Name));

  if Assigned(FUserControl.User.MenuItem) then
    cbUserMenuItem.ItemIndex := (cbUserMenuItem.Items.IndexOf(FUserControl.User.MenuItem.Name));

  // Action e MenuItem USERPROFILE
{  if Assigned(FUserControl.UserProfile.Action) then
    cbUserProfileAction.ItemIndex := (cbUserProfileAction.Items.IndexOf(FUserControl.UserProfile.Action.Name));

  if Assigned(FUserControl.UserProfile.MenuItem) then
    cbUserProfileMenuItem.ItemIndex := (cbUserProfileMenuItem.Items.IndexOf(FUserControl.UserProfile.MenuItem.Name)); }

  // Action e MenuItem USERPASSWORDCHANGE
  if Assigned(FUserControl.UserPasswordChange.Action) then
    cbUserPasswordChangeAction.ItemIndex := (cbUserPasswordChangeAction.Items.IndexOf(FUserControl.UserPasswordChange.Action.Name));

  if Assigned(FUserControl.UserPasswordChange.MenuItem) then
    cbUserPasswordChangeMenuItem.ItemIndex := (cbUserPasswordChangeMenuItem.Items.IndexOf(FUserControl.UserPasswordChange.MenuItem.Name));

  // Action e MenuItem LOGCONTROL
{  if Assigned(FUserControl.LogControl.Action) then
    cbLogControlAction.ItemIndex := (cbLogControlAction.Items.IndexOf(FUserControl.LogControl.Action.Name));

  if Assigned(FUserControl.LogControl.MenuItem) then
    cbLogControlMenuItem.ItemIndex := (cbLogControlMenuItem.Items.IndexOf(FUserControl.LogControl.MenuItem.Name)); }

  ckUserProtectAdministrator.Checked := FUserControl.User.ProtectAdministrator;
  ckUserUsePrivilegedField.Checked   := FUserControl.User.UsePrivilegedField;

  ckUserProfileActive.Checked := FUserControl.UserProfile.Active;

  ckUserPassowrdChangeForcePassword.Checked      := FUserControl.UserPasswordChange.ForcePassword;
  spedtUserPasswordChangeMinPasswordLength.Value := FUserControl.UserPasswordChange.MinPasswordLength;

  edtLogControlTableLog.Text := FUserControl.LogControl.TableLog;
  ckLogControlActive.Checked := FUserControl.LogControl.Active;

  // Login
  spedtMaxLoginAttempts.Value            := FUserControl.Login.MaxLoginAttempts;
  cbGetLoginName.ItemIndex               := integer(FUserControl.Login.GetLoginName);
  // login inicial
  edtInitialLoginUser.Text               := FUserControl.Login.InitialLogin.User;
  edtInitialLoginPassword.Text           := FUserControl.Login.InitialLogin.Password;
  edtInitialLoginEmail.Text              := FUserControl.Login.InitialLogin.Email;
  mmInitialRights.Lines                  := FUserControl.Login.InitialLogin.InitialRights;
  // AutoLogin
  edtLoginAutoLoginUser.Text             := FUserControl.Login.AutoLogin.User;
  edtLoginAutoLoginPassword.Text         := FUserControl.Login.AutoLogin.Password;
  ckLoginAutologinActive.Checked         := FUserControl.Login.AutoLogin.Active;
  ckLoginAutoLoginMessageOnError.Checked := FUserControl.Login.AutoLogin.MessageOnError;
  // Figuras
  imgTop.Picture.Bitmap                  := FUserControl.UserSettings.Login.TopImage.Bitmap;
  imgLeft.Picture.Bitmap                 := FUserControl.UserSettings.Login.LeftImage.Bitmap;
  imgBottom.Picture.Bitmap               := FUserControl.UserSettings.Login.BottomImage.Bitmap;
end;

procedure TUCEditorForm.SpeedButton1Click(Sender: TObject);
var
  frmLogin: TfrmLoginWindow;
begin
  try
    frmLogin := TfrmLoginWindow.Create(nil);
    with frmLogin do
    begin
      FUserControl      := Self.FUserControl;
      btOK.onClick      := BotoesClickVisualizacao;
      BtCancela.OnClick := BotoesClickVisualizacao;
      Caption           := Self.FUserControl.UserSettings.Login.WindowCaption;
      LbUsuario.Caption := Self.FUserControl.UserSettings.Login.LabelUser;
      LbSenha.Caption   := Self.FUserControl.UserSettings.Login.LabelPassword;
      ImgTop.Picture    := Self.ImgTop.Picture;
      imgLeft.Picture   := Self.imgLeft.Picture;
      ImgBottom.Picture := Self.imgBottom.Picture;
      btOK.Caption      := Self.FUserControl.UserSettings.Login.BtOk;
      BtCancela.Caption := Self.FUserControl.UserSettings.Login.BtCancel;
      Position          := Self.FUserControl.UserSettings.WindowsPosition;
      ShowModal;
    end;
  finally
    SysUtils.FreeAndNil(frmLogin);
  end;
end;

procedure TUCEditorForm.SpeedButton2Click(Sender: TObject);
begin
  imgTop.Picture := nil;
end;

procedure TUCEditorForm.SpeedButton3Click(Sender: TObject);
begin
  imgLeft.Picture := nil;
end;

procedure TUCEditorForm.SpeedButton4Click(Sender: TObject);
begin
  imgBottom.Picture := nil;
end;

procedure TUCEditorForm.SpeedButton5Click(Sender: TObject);
begin
  Case TSpeedButton(Sender).Tag of
    0 : cbActionList.ItemIndex := -1;
    1 : cbActionMainMenuBar.ItemIndex := -1;
    2 : cbActionManager.ItemIndex := -1;
    3 : cbMainMenu.ItemIndex := -1;
  End;
end;

end.