You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
95 lines
2.4 KiB
95 lines
2.4 KiB
unit ucadTextEmail;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
|
System.Classes, Vcl.Graphics, System.UITypes,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls,
|
|
Vcl.ExtCtrls, Vcl.CheckLst, Vcl.DBCtrls, Data.DB, System.ImageList,
|
|
Vcl.ImgList, Vcl.Mask, Vcl.Grids, Vcl.DBGrids;
|
|
|
|
type
|
|
TcadTextEmail = class(TmstMaster)
|
|
dtsTextoEmail: TDataSource;
|
|
navPrincipal: TDBNavigator;
|
|
ImageList1: TImageList;
|
|
gb_conf: TGroupBox;
|
|
lbl_tamfonte: TLabel;
|
|
gb_desc: TGroupBox;
|
|
db_desc: TDBEdit;
|
|
DBGrid1: TDBGrid;
|
|
lbl_atalho: TLabel;
|
|
lbl_dev: TLabel;
|
|
edt_coddev: TEdit;
|
|
dbre_email: TDBMemo;
|
|
edt_fontememo: TEdit;
|
|
up_fontememo: TUpDown;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure dtsTextoEmailStateChange(Sender: TObject);
|
|
procedure edt_fontememoExit(Sender: TObject);
|
|
procedure edt_fontememoKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure up_fontememoClick(Sender: TObject; Button: TUDBtnType);
|
|
private
|
|
// linha_cursor: Integer;
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
cadTextEmail: TcadTextEmail;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses udtmSystem;
|
|
|
|
// edt_coddev tem um texto que uso como palavra-chave pra substituir no texto do email o nome do devedor
|
|
|
|
procedure TcadTextEmail.dtsTextoEmailStateChange(Sender: TObject);
|
|
begin
|
|
dbre_email.ReadOnly := dtsTextoEmail.State in [dsBrowse];
|
|
gb_conf.Enabled := dtsTextoEmail.State in [dsInsert, dsEdit];
|
|
db_desc.ReadOnly := dtsTextoEmail.State in [dsBrowse];
|
|
end;
|
|
|
|
procedure TcadTextEmail.edt_fontememoExit(Sender: TObject);
|
|
begin
|
|
if strtoint(edt_fontememo.Text) < 8 then
|
|
begin
|
|
edt_fontememo.Text := '8';
|
|
dbre_email.font.size := 8;
|
|
end;
|
|
if strtoint(edt_fontememo.Text) > 72 then
|
|
begin
|
|
edt_fontememo.Text := '72';
|
|
dbre_email.font.size := 72;
|
|
end;
|
|
|
|
dbre_email.font.size := strtoint(edt_fontememo.Text);
|
|
end;
|
|
|
|
procedure TcadTextEmail.edt_fontememoKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if Key = vkReturn then
|
|
begin
|
|
dbre_email.SetFocus;
|
|
end;
|
|
end;
|
|
|
|
procedure TcadTextEmail.FormCreate(Sender: TObject);
|
|
begin
|
|
dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's');
|
|
dtsTextoEmail.DataSet.Open;
|
|
end;
|
|
|
|
procedure TcadTextEmail.up_fontememoClick(Sender: TObject; Button: TUDBtnType);
|
|
begin
|
|
dbre_email.font.size := strtoint(edt_fontememo.Text);
|
|
end;
|
|
|
|
end.
|