unit fm_PrintPreview;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls, ExtCtrls;

type
  TfrmPrintPreview = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    lblThickness: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    lblInsideDiameter: TQRLabel;
    lblOutsideDiameter: TQRLabel;
    lblHeight: TQRLabel;
    lblPieces: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    lblOutsideRadius: TQRLabel;
    lblInsideRadius: TQRLabel;
    lblArclength: TQRLabel;
    lblCutout: TQRLabel;
    lblChord: TQRLabel;
    lblConeAngle: TQRLabel;
    QRLabel16: TQRLabel;
    lblDateDisplay: TQRLabel;
    QRLabel10: TQRLabel;
    procedure lblThicknessPrint(sender: TObject; var Value: String);
    procedure lblInsideDiameterPrint(sender: TObject; var Value: String);
    procedure lblOutsideDiameterPrint(sender: TObject; var Value: String);
    procedure lblHeightPrint(sender: TObject; var Value: String);
    procedure lblPiecesPrint(sender: TObject; var Value: String);
    procedure lblOutsideRadiusPrint(sender: TObject; var Value: String);
    procedure lblInsideRadiusPrint(sender: TObject; var Value: String);
    procedure lblArclengthPrint(sender: TObject; var Value: String);
    procedure lblCutoutPrint(sender: TObject; var Value: String);
    procedure lblChordPrint(sender: TObject; var Value: String);
    procedure lblConeAnglePrint(sender: TObject; var Value: String);
    procedure lblDateDisplayPrint(sender: TObject; var Value: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrintPreview: TfrmPrintPreview;

implementation

uses untCones;

{$R *.DFM}

procedure TfrmPrintPreview.lblThicknessPrint(sender: TObject;
  var Value: String);
begin

Value := frmCones.edtThickness.Text
end;

procedure TfrmPrintPreview.lblInsideDiameterPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtID.Text;
end;

procedure TfrmPrintPreview.lblOutsideDiameterPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtOD.Text;
end;

procedure TfrmPrintPreview.lblHeightPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtHeight.Text;
end;

procedure TfrmPrintPreview.lblPiecesPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtPieces.Text;
end;

procedure TfrmPrintPreview.lblOutsideRadiusPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtOR.Text;
end;

procedure TfrmPrintPreview.lblInsideRadiusPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtIR.Text;
end;

procedure TfrmPrintPreview.lblArclengthPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtArcl.Text;
end;

procedure TfrmPrintPreview.lblCutoutPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtCutout.Text;
end;

procedure TfrmPrintPreview.lblChordPrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtChord.Text;
end;

procedure TfrmPrintPreview.lblConeAnglePrint(sender: TObject;
  var Value: String);
begin
Value := frmCones.edtConeAngle.Text;
end;

procedure TfrmPrintPreview.lblDateDisplayPrint(sender: TObject;
  var Value: String);
begin
Value := FormatDateTime('mmm dd, yyyy',now);
end;

end.