u_recursos.pas

print component for dot matrix

unit U_RECURSOS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, DBTables, RDprint, printers, Winspool, ComCtrls;

type
  TDFM_RECURSOS = class(TForm)
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Button5: TButton;
    Label2: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label4: TLabel;
    Button8: TButton;
    BitBtn4: TBitBtn;
    RDprint1: TRDprint;
    Label1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label5: TLabel;
    Bevel3: TBevel;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Label7: TLabel;
    Bevel4: TBevel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    RDprint2: TRDprint;
    Bevel5: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure RDprint1Erro(Sender: TObject; Mensagem: String);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure RDprint1BeforePrint(Sender: TObject; var Continuar: Boolean);
    procedure RDprint1AfterPrint(Sender: TObject);
    procedure RDprint1Preview(Sender: TObject);
    procedure RDprint1Load(Sender: TObject; var ArquivoLocal: String);
    procedure RDprint1Save(Sender: TObject; var ArquivoLocal: String);
    procedure RDprint1Cancel(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DFM_RECURSOS  : TDFM_RECURSOS;

implementation

uses BRADESCO, U_clientessimples, Etiquetas, U_clientesquebra, NOTAFISCAL;
{$R *.DFM}


procedure TDFM_RECURSOS.BitBtn1Click(Sender: TObject);
begin
     // Inicio...
     with rdprint1 do
        begin
        abrir;  // inicializa o arquivo de impressao...
        if setup then  // abre tela para escolha da impressora e modelo...
           begin
           rdprint1.box (5,50,10,58,false); // False = Linha simples
           rdprint1.box (5,70,10,78,true);  // True  = Linha dupla

           impf(02,01,'RDPRINT 3.0',[EXPANDIDO, NEGRITO]);
           impf(02,25,'- COMPONENTE DE IMPRESS肙',[NORMAL, NEGRITO]);
           impf(03,01,'NOTAS FISCAIS, DUPLICATAS, BOLETOS E RELAT覴IOS EM GERAL',[NORMAL]);

           impf(05,01,'CARACTER鞸TICAS:',[NORMAL, NEGRITO]);
           impf(06,01,'* Preview real com zoom',[NORMAL]);
           impf(07,01,'* Setup para usu醨io final',[NORMAL]);
           impf(08,01,'* Impress鉶 r醦ida e precisa',[normal]);
           impf(09,01,'* Montagem din鈓ica de p醙inas,',[NORMAL]);
           impf(10,01,'* Fontes em 5,10,12,17 e 20 cpp',[NORMAL]);
           impf(11,01,'* Imprime 6 e 8 linhas / polegada',[NORMAL]);
           impf(12,01,'* Negrito,it醠ico,sublinhado',[NORMAL]);

           impf(15,01,'Exemplos:',[EXPANDIDO, negrito]);
           impf(16,01,'Normal em 10 cpp e italico',[NORMAL, italico]);
           impf(17,01,'Comprimido em 12 cpp negrito e italico',[comp12,negrito,italico]);


           impf(27,01,'Acento 1 : 衢眢