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.