Changeset 455 for PrintPreview/PrintPreview.pas

Timestamp:

Nov 28, 2012, 7:44:19 AM (11 years ago)

Author:

chronos

Message:

• Modified: PrintPreview should use TVectorCanvas instead of raster TCanvas dependent on DPI of printer. But some font function as TextWidth and TextHeight cannot be easily implemented without use of OS API.

File:

• PrintPreview/PrintPreview.pas (modified) (1 diff)

PrintPreview/PrintPreview.pas

@@ -3 +3 @@
  }
 
-unit PrintPreview; 
+unit PrintPreview;
 
 interface
 
 uses
-  UPrintPreview, LazarusPackageIntf;
+  UPrintPreview, UVectorCanvas, LazarusPackageIntf;
 
 implementation
 
-procedure Register; 
+procedure Register;
 begin
-  RegisterUnit('UPrintPreview', @UPrintPreview.Register); 
-end; 
+  RegisterUnit('UPrintPreview', @UPrintPreview.Register);
+end;
 
 initialization
-  RegisterPackage('PrintPreview', @Register); 
+  RegisterPackage('PrintPreview', @Register);
 end.