[levi.ribeiro]

Olá pessoal!
Alguém já teve esse problema:

Mesmo com o UCApplicationMessage1.Active:=True e UCApplicationMessage1.Interval:=3000, não aparece MsgRecForm quando é enviada uma mensagem para o usuário.
Só aparece se eu executar UCApplicationMessage1.CheckMessages.

Alguém tem ideia do que pode ser?

LR Freitas

[levi.ribeiro]

Olá pessoal!
Alguém já teve esse problema:

Mesmo com o UCApplicationMessage1.Active:=True e UCApplicationMessage1.Interval:=3000, não aparece MsgRecForm quando é enviada uma mensagem para o usuário.
Só aparece se eu executar UCApplicationMessage1.CheckMessages.

Alguém tem ideia do que pode ser?

LR Freitas

[levi.ribeiro]

Pessoal,

Novamente colaborando com o grupo.
Um pequeno inconveniente na “pUCFrame_Log.pas” faz com que o Campo NIVEL fique com o texto por trás da figura que o representa na “procedure TUCFrame_Log.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);”

Solução:
procedure TUCFrame_Log.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
TempImg: Graphics.TBitmap;
FData: System.TDateTime;
TempData: String;
begin
if DSLog.IsEmpty then
Exit;

if UpperCase(Column.FieldName) = ‘NIVEL’ then
begin
if Column.Field.AsInteger >= 0 then
begin
DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,
”); //Incluir esta linha soluciona o problema.
TempImg := Graphics.TBitmap.Create;
ImageList1.GetBitmap(Column.Field.AsInteger, TempImg);
DBGrid1.Canvas.Draw((((Rect.Left + Rect.Right) – TempImg.Width) div 2),
Rect.Top, TempImg);
FreeAndnil(TempImg);

[levi.ribeiro]

Pessoal,

Encontrei um erro na “IncUser_U.pas”, na “procedure TfrmIncluirUsuario.btGravarClick(Sender: TObject);” abaixo:

Exatamente na linha //FreeAndNil(FormSenha);.
O FormSenha está sendo destruído no OnClose dele com Action:= caFree;

Espero ter ajudado.

procedure TfrmIncluirUsuario.btGravarClick(Sender: TObject);
var
vNovaSenha: String;
vNome: String;
vLogin: String;
vEmail: String;
vUserExpired: Integer;
vPerfil: Integer;
vPrivilegiado: Boolean;
begin
if ComboPerfil.KeyValue = NULL then
begin
ShowMessage(‘Falta Informar o Perfil’);
Exit; // Cleilson Sousa
end;

btGravar.Enabled := False;

with FUserControl do
if not FAltera then
begin // inclui user
if Self.FUserControl.ExisteUsuario(EditLogin.Text) then
begin
MessageDlg
(Format(FUserControl.UserSettings.CommonMessages.UsuarioExiste,
[EditLogin.Text]), mtWarning, [mbOK], 0);
Exit;
end;

FormSenha := TSenhaForm.Create(Self);
TSenhaForm(FormSenha).Position := UserSettings.WindowsPosition;
TSenhaForm(FormSenha).FUserControl := FUserControl;
TSenhaForm(FormSenha).Caption :=
Format(FUserControl.UserSettings.ResetPassword.WindowCaption,
[EditLogin.Text]);
if TSenhaForm(FormSenha).ShowModal <> mrOk then
begin
btGravar.Enabled := True;
Exit;
end;
vNovaSenha := TSenhaForm(FormSenha).edtSenha.Text;
vNovoIDUsuario := GetNewIdUser;
vNome := EditNome.Text;
vLogin := EditLogin.Text;
vEmail := EditEmail.Text;
//FreeAndNil(FormSenha);

[levi.ribeiro]

Pessoal Bom dia!

Está dando erro no “pUCFrame_User.pas” na “procedure TUCFrame_User.BtPassClick(Sender: TObject);”, abaixo.

Exatamente nesta linha: //FreeAndNil(FormSenha);

O problema é que o FormSenha já é destruído no OnClose dele com Action:= caFree.

Espero ter ajudado.

procedure TUCFrame_User.BtPassClick(Sender: TObject);
begin
if FDataSetCadastroUsuario.IsEmpty then
Exit;

FormSenha := TSenhaForm.Create(Self);
TSenhaForm(FormSenha).Position := FUsercontrol.UserSettings.WindowsPosition;
TSenhaForm(FormSenha).FUsercontrol := FUsercontrol;
TSenhaForm(FormSenha).Caption :=
Format(FUsercontrol.UserSettings.ResetPassword.WindowCaption,
[FDataSetCadastroUsuario.FieldByName(‘Login’).AsString]);
if TSenhaForm(FormSenha).ShowModal = mrOk then
Begin

(*
if (Assigned(FUsercontrol.MailUserControl)) and (FUsercontrol.MailUserControl.SenhaForcada.Ativo ) then
try
FUsercontrol.MailUserControl.EnviaEmailSenhaForcada(
FDataSetCadastroUsuario.FieldByName(‘NOME’).AsString ,
FDataSetCadastroUsuario.FieldByName(‘LOGIN’).AsString,
TSenhaForm(FormSenha).edtSenha.Text ,
FDataSetCadastroUsuario.FieldByName(‘EMAIL’).AsString,
”);

except
on E : Exception do FUsercontrol.Log(e.Message, 0);
end;

*)
FUsercontrol.ChangePassword(FDataSetCadastroUsuario.FieldByName(‘IDUser’)
.AsInteger, TSenhaForm(FormSenha).edtSenha.Text);
End;
//FreeAndNil(FormSenha); Não pode, já esta destruindo no form –Levi
end;

[Autor]

Posts