117 lines
2.6 KiB
ObjectPascal
117 lines
2.6 KiB
ObjectPascal
|
unit EnvMsgForm_U;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I 'UserControl.inc'}
|
||
|
|
|
||
|
|
uses
|
||
|
|
{$IFDEF DELPHI5_UP}
|
||
|
|
Variants,
|
||
|
|
{$ENDIF}
|
||
|
|
Buttons,
|
||
|
|
Classes,
|
||
|
|
Controls,
|
||
|
|
DB,
|
||
|
|
DBCtrls,
|
||
|
|
Dialogs,
|
||
|
|
ExtCtrls,
|
||
|
|
Forms,
|
||
|
|
Graphics,
|
||
|
|
Messages,
|
||
|
|
StdCtrls,
|
||
|
|
SysUtils,
|
||
|
|
UCBase,
|
||
|
|
Windows;
|
||
|
|
|
||
|
|
type
|
||
|
|
TEnvMsgForm = class(TForm)
|
||
|
|
Panel1: TPanel;
|
||
|
|
lbTitulo: TLabel;
|
||
|
|
Image1: TImage;
|
||
|
|
gbPara: TGroupBox;
|
||
|
|
rbUsuario: TRadioButton;
|
||
|
|
rbTodos: TRadioButton;
|
||
|
|
dbUsuario: TDBLookupComboBox;
|
||
|
|
gbMensagem: TGroupBox;
|
||
|
|
lbAssunto: TLabel;
|
||
|
|
lbMensagem: TLabel;
|
||
|
|
EditAssunto: TEdit;
|
||
|
|
MemoMsg: TMemo;
|
||
|
|
btEnvia: TBitBtn;
|
||
|
|
btCancela: TBitBtn;
|
||
|
|
DataSource1: TDataSource;
|
||
|
|
procedure btCancelaClick(Sender: TObject);
|
||
|
|
procedure dbUsuarioCloseUp(Sender: TObject);
|
||
|
|
procedure rbUsuarioClick(Sender: TObject);
|
||
|
|
procedure btEnviaClick(Sender: TObject);
|
||
|
|
procedure FormCreate(Sender: TObject); //added by fduenas
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
EnvMsgForm: TEnvMsgForm;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
MsgsForm_U,
|
||
|
|
UCMessages;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TEnvMsgForm.btCancelaClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEnvMsgForm.dbUsuarioCloseUp(Sender: TObject);
|
||
|
|
begin
|
||
|
|
if dbUsuario.KeyValue <> null then
|
||
|
|
rbUsuario.Checked := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEnvMsgForm.rbUsuarioClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
if not rbUsuario.Checked then
|
||
|
|
dbUsuario.KeyValue := null;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEnvMsgForm.btEnviaClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
if rbUsuario.Checked then
|
||
|
|
TUCApplicationMessage(MsgsForm.Owner).SendAppMessage(MsgsForm.DSUsuarios.FieldByName('IdUser').AsInteger, EditAssunto.Text, MemoMsg.Text)
|
||
|
|
else
|
||
|
|
with MsgsForm.DSUsuarios do
|
||
|
|
begin
|
||
|
|
First;
|
||
|
|
while not EOF do
|
||
|
|
begin
|
||
|
|
TUCApplicationMessage(MsgsForm.Owner).SendAppMessage(FieldByName('IdUser').AsInteger, EditAssunto.Text, MemoMsg.Text);
|
||
|
|
Next;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TEnvMsgForm.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
with TUCApplicationMessage(Owner).UserControl.UserSettings.AppMessages do
|
||
|
|
begin
|
||
|
|
Self.Caption := MsgSend_WindowCaption;
|
||
|
|
lbTitulo.Caption := MsgSend_Title;
|
||
|
|
gbpara.Caption := MsgSend_GroupTo;
|
||
|
|
rbUsuario.Caption := MsgSend_RadioUser;
|
||
|
|
rbTodos.Caption := MsgSend_RadioAll;
|
||
|
|
gbMensagem.Caption := MsgSend_GroupMessage;
|
||
|
|
lbAssunto.Caption := MsgSend_LabelSubject;
|
||
|
|
lbMensagem.Caption := MsgSend_LabelMessageText;
|
||
|
|
btCancela.Caption := MsgSend_BtCancel;
|
||
|
|
btEnvia.Caption := MsgSend_BtSend;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|