printfo.pas

条形码控件 支持 qrreport

unit PrintFo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, ExtCtrls;

type
  TFormPrint = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BOK: TButton;
    BCancel: TButton;
    Label5: TLabel;
    Label6: TLabel;
    ELeft: TEdit;
    ETop: TEdit;
    EWidth: TEdit;
    Bevel1: TBevel;
    procedure BOKClick(Sender: TObject);
    procedure BCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
		Function	GetReal (StText: String; Var rValue: Real): Boolean;
  public
		rLeft, rTop, rBarWidth:	Real;
  end;

var
  FormPrint: TFormPrint;

implementation

{$R *.DFM}
Procedure TFormPrint.FormCreate(Sender: TObject);
Begin
	rLeft			:= 50;
  rTop			:= 10;
  rBarWidth	:= 0.20;
End;
Procedure TFormPrint.FormShow(Sender: TObject);
Begin
  ELeft.Text	:= FormatFloat ('0.00', rLeft);
  ETop.Text	:= FormatFloat ('0.00', rTop);
	EWidth.Text	:= FormatFloat ('0.00', rBarWidth);
End;
Function TFormPrint.GetReal (StText: String; Var rValue: Real): Boolean;
Var
	i:			Integer;
  iLength:	Integer;
Begin
	Result	:= FALSE;
  iLength	:= Length (StText);
  For i := 1 To iLength Do
  Begin
  	if not (StText[i] in [DecimalSeparator,'0'..'9']) Then
     	Exit;
  End;
  rValue	:= StrToFloat (StText);
  Result	:= TRUE;
End;
Procedure TFormPrint.BOKClick(Sender: TObject);
Begin
	if not GetReal (ELeft.Text, rLeft) Then
  Begin
  	MessageDlg ('Left Error', mtError, [mbOK], 0);
     ELeft.SetFocus;
     Exit;
  End;
  if not GetReal (ETop.Text, rTop) Then
  Begin
  	MessageDlg ('Top Error', mtError, [mbOK], 0);
     ETop.SetFocus;
     Exit;
  End;
  if not GetReal (EWidth.Text, rBarWidth) Then
  Begin
  	MessageDlg ('Bar Width Error', mtError, [mbOK], 0);
     EWidth.SetFocus;
     Exit;
  End;
	Close;
  ModalResult	:= mrOK;
End;
Procedure TFormPrint.BCancelClick(Sender: TObject);
Begin
	Close;
  ModalResult	:= mrCancel;
End;

End.