Changeset 241 for PrintPreview/UPrintPreview.pas

Timestamp:

May 10, 2011, 6:51:04 AM (13 years ago)

Author:

george

Message:

• Modified: Page count estimation.

File:

• PrintPreview/UPrintPreview.pas (modified) (15 diffs)

PrintPreview/UPrintPreview.pas

@@ -28 +28 @@
   TPrintPreview = class(TComponent)
   private
+    FOnNewPage: TNotifyEvent;
     FOnPrint: TNotifyEvent;
     FOnPrintFooter: TNotifyEvent;
@@ -47 +48 @@
     PageTitle: string;
     Margins: TRect;
+    MarginsMM: TRect;
     property XDPI: Integer read GetXDPI;
     property YDPI: Integer read GetYDPI;
-    function MM(AValue: Double; VertRes: Boolean=True): Integer;
+    function MMToPixels(AValue: Double; VertRes: Boolean = True): Integer;
+    function PixelsToMM(AValue: Integer; VertRes: Boolean = True): Double;
     procedure CreateNewPage;
     constructor Create(AOwner: TComponent); override;
@@ -59 +62 @@
     property PageNumber: Integer read GetPageNumber;
     property Zoom: Double read GetZoom write SetZoom;
+    property OnNewPage: TNotifyEvent read FOnNewPage write FOnNewPage;
     property OnPrint: TNotifyEvent read FOnPrint write FOnPrint;
     property PageWidth: Integer read GetWidth;
@@ -83 +87 @@
     Button3: TButton;
     Button4: TButton;
-    Button5: TButton;
     EditPageNumber: TEdit;
     Image1: TImage;
@@ -112 +115 @@
     procedure AZoomInExecute(Sender: TObject);
     procedure AZoomOutExecute(Sender: TObject);
-    procedure Button5Click(Sender: TObject);
     procedure EditPageNumberChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -204 +206 @@
 procedure TPrintPreview.UpdateMargins;
 begin
-  Margins := Rect(MM(10), MM(10), MM(10), MM(10));
-end;
-
-function TPrintPreview.MM(AValue: Double; VertRes: Boolean = True): Integer;
+  Margins := Rect(MMToPixels(MarginsMM.Left), MMToPixels(MarginsMM.Top),
+    MMToPixels(MarginsMM.Right), MMToPixels(MarginsMM.Bottom));
+end;
+
+function TPrintPreview.MMToPixels(AValue: Double; VertRes: Boolean = True): Integer;
 begin
   if VertRes then
@@ -215 +218 @@
 end;
 
+function TPrintPreview.PixelsToMM(AValue: Integer; VertRes: Boolean): Double;
+begin
+  if VertRes then
+    Result := AValue / YDPI * 25.4
+  else
+    Result := AValue / XDPI * 25.4;
+end;
+
 procedure TPrintPreview.CreateNewPage;
 var
@@ -223 +234 @@
   end else begin
       NewPage := TPrintPage.Create;
+      Canvas := NewPage.Bitmap.Canvas;
+      if Pages.Count > 0 then
+        NewPage.Bitmap.Canvas.Font.Assign(TPrintPage(Pages.Last).Bitmap.Canvas.Font);
       Pages.Add(NewPage);
-      Canvas := NewPage.Bitmap.Canvas;
       NewPage.Bitmap.SetSize(PageWidth, PageHeight);
       with NewPage.Bitmap.Canvas do begin
@@ -241 +254 @@
       end;
     end;
+  if Assigned(FOnNewPage) then FOnNewPage(Self);
 end;
 
@@ -248 +262 @@
   Zoom := 1;
   Pages := TObjectList.Create;
+  MarginsMM := Rect(10, 10, 10, 10);
 end;
 
@@ -307 +322 @@
 procedure TPrintPreviewForm.APrintExecute(Sender: TObject);
 begin
+(*  with Printer.Canvas.Font do begin
+    Size := 10;
+    ShowMessage(IntToStr(Height) + ' ' +
+      IntToStr(PixelsPerInch));
+  end;
+  with TPrintPage(PrintPreview.Pages.Last).Bitmap.Canvas.Font do begin
+    Size := 10;
+    ShowMessage(IntToStr(Height) + ' ' + IntToStr(PixelsPerInch));
+  end; *)
+
   PrintDialog1.MinPage := 1;
   PrintDialog1.MaxPage := PrintPreview.PageCount;
@@ -317 +342 @@
 procedure TPrintPreviewForm.AZoomInExecute(Sender: TObject);
 begin
-  PrintPreview.Zoom := PrintPreview.Zoom * 2;
+  PrintPreview.Zoom := PrintPreview.Zoom * 1.25;
   Redraw;
 end;
@@ -323 +348 @@
 procedure TPrintPreviewForm.AZoomOutExecute(Sender: TObject);
 begin
-  PrintPreview.Zoom := PrintPreview.Zoom / 2;
-  Redraw;
-end;
-
-procedure TPrintPreviewForm.Button5Click(Sender: TObject);
-begin
-  ShowMessage('Printer page size: ' + IntToStr(Printer.PageWidth) + ', ' + IntToStr(Printer.PageHeight) +
-    ' DPI: ' + IntToStr(Printer.XDPI) + ', ' + IntToStr(Printer.YDPI) +
-  ' Page size: ' + IntToStr(TPrintPage(PrintPreview.Pages.Last).Bitmap.Width) +
-    ', ' + IntToStr(TPrintPage(PrintPreview.Pages.Last).Bitmap.Height) + ' ');
+  PrintPreview.Zoom := PrintPreview.Zoom / 1.25;
+  EditPageNumberChange(Self);
+  Redraw;
 end;
 
@@ -397 +415 @@
     Page.Bitmap.Canvas.Width,
     Page.Bitmap.Canvas.Height);
-  DestRect.Left := -Round(ScrollBarHoriz.Position / ScrollBarHoriz.Max * Width);
-  DestRect.Top := -Round(ScrollBarVert.Position / ScrollBarVert.Max * Height);
+  DestRect.Left := -Round(ScrollBarHoriz.Position / ScrollBarHoriz.Max * Width * PrintPreview.Zoom);
+  DestRect.Top := -Round(ScrollBarVert.Position / ScrollBarVert.Max * Height * PrintPreview.Zoom);
   DestRect.Right := DestRect.Left + Round(Page.Bitmap.Canvas.Width * PrintPreview.Zoom);
   DestRect.Bottom := DestRect.Top + Round(Page.Bitmap.Canvas.Height * PrintPreview.Zoom);
@@ -421 +439 @@
 procedure TPrintPreviewForm.APageSetupExecute(Sender: TObject);
 begin
-  PageSetupDialog1.Margins := PrintPreview.Margins;
-  PageSetupDialog1.Execute;
-  PrintPreview.Margins := PageSetupDialog1.Margins;
+  with PrintPreview do begin
+    PageSetupDialog1.Margins := Rect(MarginsMM.Left * 100,
+      MarginsMM.Top * 100,
+      MarginsMM.Right * 100,
+      MarginsMM.Bottom * 100);
+    if PageSetupDialog1.Execute then begin
+      MarginsMM := Rect(Round(PageSetupDialog1.Margins.Left / 100),
+        Round(PageSetupDialog1.Margins.Top / 100),
+        Round(PageSetupDialog1.Margins.Right / 100),
+        Round(PageSetupDialog1.Margins.Bottom / 100));
+      UpdateMargins;
+      Redraw;
+    end;
+  end;
 end;