Class TPrintPreview (unit TbPrint)

Inherits from

TForm

Constructors


Constructor Create(AOwner: TComponent);

PRESENTACION PRELIMINAR


Functions

Destructor Destroy;

With TMetafileCanvas.

procedure SetHoja(Numero : integer; H : TMetaFile);


procedure SetZoom(Valor : integer);


procedure ActualPrinterChange(Sender: TObject);


procedure BtnAnchoClick(Sender: TObject);


procedure BtnCancelarClick(Sender: TObject);


procedure BtnCompletaClick(Sender: TObject);


procedure BtnExcelClick(Sender: TObject);

div 4; // 1056;

procedure BtnImpActualClick(Sender: TObject);


procedure BtnImpTodoClick(Sender: TObject);


procedure BtnPagAntClick(Sender: TObject);


procedure BtnPagPriClick(Sender: TObject);


procedure BtnPagSigClick(Sender: TObject);


procedure BtnPagUltClick(Sender: TObject);


procedure BtnPropiedadesClick(Sender: TObject);


procedure BtnRealClick(Sender: TObject);


procedure CopiesChange(Sender: TObject);


procedure EscribirPuerto;


procedure EscribirTamanioPapel;

HAY MOVIMIENTO VERTICAL

procedure FormShow(Sender: TObject);


procedure ModoImpresionClick(Sender: TObject);


procedure PuertoChange(Sender: TObject);


procedure ShowerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

a lo alto

procedure ShowerPaint(Sender: TObject);


procedure ZoomShowerChange(Sender: TObject);


Properties

Events

Variables

Hoja : TMetaFile;


ActualPrinter : TComboBox;


BtnAncho : TButton;


BtnCancelar : TButton;


BtnCompleta : TButton;


BtnExcel : TButton;


BtnImpActual : TButton;


BtnImpTodo : TButton;


BtnPagAnt : TButton;


BtnPagPri : TButton;


BtnPagSig : TButton;


BtnPagUlt : TButton;


BtnPropiedades : TButton;


BtnReal : TButton;


ButtonPanel : TPanel;


Copias : TSpinEdit;


FPagina : integer;


FZoom : Double;


LCopias : TLabel;


LPag : TLabel;


LPagN : TLabel;


LPrinter : TLabel;


LPuerto : TLabel;


LSize : TLabel;


LTamanio : TLabel;


LTotPag : TLabel;


LZoom : TLabel;


ModoImpresion : TRadioGroup;


Orient : TRadioGroup;


PrinterPanel : TPanel;


Puerto : TEdit;


Scroller : TScrollBox;


Shower : TPaintBox;


TbPrinter : TTbPrinter;


ZoomShower : TSpinEdit;



Constructors


Constructor Create(AOwner: TComponent);

PRESENTACION PRELIMINAR


Functions


Destructor Destroy;

With TMetafileCanvas.Create(Hoja,0) do try Font.Name := 'Monospaced'; Font.Size := 10; Font.Pitch := fpFixed; Brush.Color := clWhite; Alto := TextHeight('X'); Ancho := TextWidth('X'); FillRect(Rect(0,0,80*Ancho,66*Alto)); finally Free; end;


procedure SetHoja(Numero : integer; H : TMetaFile);


procedure SetZoom(Valor : integer);


procedure ActualPrinterChange(Sender: TObject);


procedure BtnAnchoClick(Sender: TObject);


procedure BtnCancelarClick(Sender: TObject);


procedure BtnCompletaClick(Sender: TObject);


procedure BtnExcelClick(Sender: TObject);

div 4; // 1056;


procedure BtnImpActualClick(Sender: TObject);


procedure BtnImpTodoClick(Sender: TObject);


procedure BtnPagAntClick(Sender: TObject);


procedure BtnPagPriClick(Sender: TObject);


procedure BtnPagSigClick(Sender: TObject);


procedure BtnPagUltClick(Sender: TObject);


procedure BtnPropiedadesClick(Sender: TObject);


procedure BtnRealClick(Sender: TObject);


procedure CopiesChange(Sender: TObject);


procedure EscribirPuerto;


procedure EscribirTamanioPapel;

HAY MOVIMIENTO VERTICAL


procedure FormShow(Sender: TObject);


procedure ModoImpresionClick(Sender: TObject);


procedure PuertoChange(Sender: TObject);


procedure ShowerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

a lo alto


procedure ShowerPaint(Sender: TObject);


procedure ZoomShowerChange(Sender: TObject);


Properties


Events


Variables


Hoja : TMetaFile;


ActualPrinter : TComboBox;


BtnAncho : TButton;


BtnCancelar : TButton;


BtnCompleta : TButton;


BtnExcel : TButton;


BtnImpActual : TButton;


BtnImpTodo : TButton;


BtnPagAnt : TButton;


BtnPagPri : TButton;


BtnPagSig : TButton;


BtnPagUlt : TButton;


BtnPropiedades : TButton;


BtnReal : TButton;


ButtonPanel : TPanel;


Copias : TSpinEdit;


FPagina : integer;


FZoom : Double;


LCopias : TLabel;


LPag : TLabel;


LPagN : TLabel;


LPrinter : TLabel;


LPuerto : TLabel;


LSize : TLabel;


LTamanio : TLabel;


LTotPag : TLabel;


LZoom : TLabel;


ModoImpresion : TRadioGroup;


Orient : TRadioGroup;


PrinterPanel : TPanel;


Puerto : TEdit;


Scroller : TScrollBox;


Shower : TPaintBox;


TbPrinter : TTbPrinter;


ZoomShower : TSpinEdit;