| Class TPrintPreview (unit TbPrint) |
TForm
| Constructors |
Constructor Create(AOwner: TComponent);| Functions |
Destructor Destroy;
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);
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;
procedure FormShow(Sender: TObject);
procedure ModoImpresionClick(Sender: TObject);
procedure PuertoChange(Sender: TObject);
procedure ShowerMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
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;