//--------------------------------------------------------------------------- #include #pragma hdrstop #include "DlgQueImprimir.h" #include "QR_Mailing.h" #include "QR_ListadoGeneral.h" #include "QR_FichaCompleta.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TDlgImprimir *DlgImprimir; //--------------------------------------------------------------------------- __fastcall TDlgImprimir::TDlgImprimir(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TDlgImprimir::Button2Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TDlgImprimir::Button1Click(TObject *Sender) { switch( RadioGroup1->ItemIndex ) { // Listado Completo case 0: TForm2 *QRComp; QRComp = new TForm2(this); if ( !CheckBox1->Checked ) QRComp->QRBand2->BandType = rbDetail; QRComp->QuickRep1->Print(); delete QRComp; break; // Listado Rápido case 1: TForm1 *QRForm; QRForm = new TForm1(this); QRForm->QuickRep1->Preview(); delete QRForm; break; // Pegatinas case 2: TQRLabelsForm *QRForm2; QRForm2 = new TQRLabelsForm(this); QRForm2->Preview(); delete QRForm2; break; } } //--------------------------------------------------------------------------- void __fastcall TDlgImprimir::RadioGroup1Click(TObject *Sender) { if ( RadioGroup1->ItemIndex == 0 ) CheckBox1->Visible = true; else CheckBox1->Visible = false; } //---------------------------------------------------------------------------