开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
BmpPreview.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

BmpPreview.pas：源码内容
  1. unit BmpPreview;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes,
  7.   Graphics, Controls, Forms, Dialogs, ExtCtrls,
  8.   Buttons, Printers, StdCtrls;
  10. type
  11.   TPreviewForm = class(TForm)
  12.     Panel1: TPanel;
  13.     ScalePlusButton: TSpeedButton;
  14.     ScaleMinusButton: TSpeedButton;
  15.     PrintButton: TSpeedButton;
  16.     ScrollBox1: TScrollBox;
  17.     Image1: TImage;
  18.     CancelButton: TSpeedButton;
  19.     Label1: TLabel;
  20.     procedure ScalePlusButtonClick(Sender: TObject);
  21.     procedure ScaleMinusButtonClick(Sender: TObject);
  22.     procedure CancelButtonClick(Sender: TObject);
  23.     procedure PrintButtonClick(Sender: TObject);
  24.   public
  25.     Scale: Integer;
  26.     procedure DrawPreview;
  27.     procedure SetPage;
  28.   end;
  30. var
  31.   PreviewForm: TPreviewForm;
  33. implementation
  35. {$R *.DFM}
  37. uses
  38.   BmpViewForm;
  40. procedure TPreviewForm.SetPage;
  41. begin
  42.   {set the image size to be proportional with the page size}
  43.   Image1.Width := Printer.PageWidth div 5;
  44.   Image1.Height := Printer.PageHeight div 5;
  45.   {output the scale to the toolbar}
  46.   Label1.Caption := IntToStr (Scale);
  47. end;
  49. procedure TPreviewForm.ScalePlusButtonClick(Sender: TObject);
  50. begin
  51.   {increse the size of the bitmap}
  52.   Scale := Scale * 2;
  53.   Label1.Caption := IntToStr (Scale);
  54.   DrawPreview;
  55. end;
  57. procedure TPreviewForm.DrawPreview;
  58. var
  59.   Rect: TRect;
  60. begin
  61.   {compute the rectangle for the bitmap preview}
  62.   Rect.Top := 10;
  63.   Rect.Left := 10;
  64.   Rect.Right := 10 +
  65.     (FormBmpViewer.Image1.Picture.Graphic.Width * Scale) div 5;
  66.   Rect.Bottom := 10 +
  67.     (FormBmpViewer.Image1.Picture.Graphic.Height * Scale) div 5;
  69.   {remove the current image}
  70.   Image1.Canvas.Pen.Mode := pmWhite;
  71.   Image1.Canvas.Rectangle (0, 0, Image1.Width, Image1.Height);
  73.   {stretch the bitmap into the rectangle}
  74.   Image1.Canvas.StretchDraw (Rect,
  75.     FormBmpViewer.Image1.Picture.Graphic);
  76. end;
  78. procedure TPreviewForm.ScaleMinusButtonClick(Sender: TObject);
  79. begin
  80.   {decrease the size of the image}
  81.   if Scale > 1 then
  82.   begin
  83.     Scale := Scale div 2;
  84.     Label1.Caption := IntToStr (Scale);
  85.     DrawPreview;
  86.   end;
  87. end;
  89. procedure TPreviewForm.CancelButtonClick(Sender: TObject);
  90. begin
  91.   {close (hide) the preview dialog}
  92.   Close;
  93. end;
  95. procedure TPreviewForm.PrintButtonClick(Sender: TObject);
  96. var
  97.   Rect: TRect;
  98. begin
  99.   {compute the rectangle for the printer}
  100.   Rect.Top := 10;
  101.   Rect.Left := 10;
  102.   Rect.Right := 10 +
  103.     (FormBmpViewer.Image1.Picture.Graphic.Width * Scale);
  104.   Rect.Bottom := 10 +
  105.     (FormBmpViewer.Image1.Picture.Graphic.Height * Scale);
  107.   {print the bitmap}
  108.   Printer.BeginDoc;
  109.   Printer.Canvas.StretchDraw (Rect,
  110.     FormBmpViewer.Image1.Picture.Graphic);
  111.   Printer.EndDoc;
  112. end;
  114. end.