592 lines
20 KiB
ObjectPascal
592 lines
20 KiB
ObjectPascal
|
{******************************************}
|
||
|
|
{ }
|
||
|
|
{ FastReport FMX v2.0 }
|
||
|
|
{ Printer }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1998-2020 }
|
||
|
|
{ by Alexander Syrykh, }
|
||
|
|
{ Fast Reports Inc. }
|
||
|
|
{ }
|
||
|
|
{******************************************}
|
||
|
|
|
||
|
|
unit FMX.Linux.Old.frxPrinter;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I fmx.inc}
|
||
|
|
{$I frx.inc}
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.Classes, System.SysUtils,System.Types, System.UITypes, System.Variants,
|
||
|
|
FMX.Types, FMX.frxPrinter, FMX.Printer.Linux, FMX.Printer, FMX.frxClass
|
||
|
|
{$IFDEF DELPHI19}
|
||
|
|
, FMX.Graphics
|
||
|
|
{$ENDIF};
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
THackCanvas = class(TCanvas);
|
||
|
|
THackPrinter = class(TPrinter);
|
||
|
|
|
||
|
|
|
||
|
|
TfrxPrinter = class(TfrxCustomPrinter)
|
||
|
|
private
|
||
|
|
FIsFirst: Boolean;
|
||
|
|
public
|
||
|
|
constructor Create(const AName, APort: String); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure Init; override;
|
||
|
|
procedure Abort; override;
|
||
|
|
procedure BeginDoc; override;
|
||
|
|
procedure BeginPage; override;
|
||
|
|
procedure BeginRAWDoc; override;
|
||
|
|
procedure EndDoc; override;
|
||
|
|
procedure EndPage; override;
|
||
|
|
procedure EndRAWDoc; override;
|
||
|
|
procedure WriteRAWDoc(const buf: AnsiString); override;
|
||
|
|
procedure SetViewParams(APaperSize: Integer;
|
||
|
|
APaperWidth, APaperHeight: Extended;
|
||
|
|
AOrientation: TPrinterOrientation); override;
|
||
|
|
procedure SetPrintParams(APaperSize: Integer;
|
||
|
|
APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation;
|
||
|
|
ABin, ADuplex, ACopies: Integer); override;
|
||
|
|
procedure PropertiesDlg; override;
|
||
|
|
function ShowPrintDialog: Boolean; override;
|
||
|
|
function UpdateDeviceCaps: Boolean;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TfrxPrinters = class(TfrxCustomPrinters)
|
||
|
|
protected
|
||
|
|
function GetDefaultPrinter: String; override;
|
||
|
|
public
|
||
|
|
constructor Create;
|
||
|
|
destructor Destroy; override;
|
||
|
|
procedure FillPrinters; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function ActualfrxPrinterClass : TfrxCustomPrintersClass;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
FMX.frxUtils, FMX.frxRes, FMX.frxFMX, FMX.Forms, FMUX.Api;
|
||
|
|
|
||
|
|
type
|
||
|
|
TPaperInfo = {packed} record
|
||
|
|
Typ: Integer;
|
||
|
|
Name: String;
|
||
|
|
X, Y: Integer;
|
||
|
|
end;
|
||
|
|
|
||
|
|
const
|
||
|
|
PAPERCOUNT = 66;
|
||
|
|
PaperInfo: array[0..PAPERCOUNT - 1] of TPaperInfo = (
|
||
|
|
(Typ:1; Name: ''; X:2159; Y:2794),
|
||
|
|
(Typ:2; Name: ''; X:2159; Y:2794),
|
||
|
|
(Typ:3; Name: ''; X:2794; Y:4318),
|
||
|
|
(Typ:4; Name: ''; X:4318; Y:2794),
|
||
|
|
(Typ:5; Name: ''; X:2159; Y:3556),
|
||
|
|
(Typ:6; Name: ''; X:1397; Y:2159),
|
||
|
|
(Typ:7; Name: ''; X:1842; Y:2667),
|
||
|
|
(Typ:8; Name: ''; X:2970; Y:4200),
|
||
|
|
(Typ:9; Name: ''; X:2100; Y:2970),
|
||
|
|
(Typ:10; Name: ''; X:2100; Y:2970),
|
||
|
|
(Typ:11; Name: ''; X:1480; Y:2100),
|
||
|
|
(Typ:12; Name: ''; X:2500; Y:3540),
|
||
|
|
(Typ:13; Name: ''; X:1820; Y:2570),
|
||
|
|
(Typ:14; Name: ''; X:2159; Y:3302),
|
||
|
|
(Typ:15; Name: ''; X:2150; Y:2750),
|
||
|
|
(Typ:16; Name: ''; X:2540; Y:3556),
|
||
|
|
(Typ:17; Name: ''; X:2794; Y:4318),
|
||
|
|
(Typ:18; Name: ''; X:2159; Y:2794),
|
||
|
|
(Typ:19; Name: ''; X:984; Y:2254),
|
||
|
|
(Typ:20; Name: ''; X:1048; Y:2413),
|
||
|
|
(Typ:21; Name: ''; X:1143; Y:2635),
|
||
|
|
(Typ:22; Name: ''; X:1207; Y:2794),
|
||
|
|
(Typ:23; Name: ''; X:1270; Y:2921),
|
||
|
|
(Typ:24; Name: ''; X:4318; Y:5588),
|
||
|
|
(Typ:25; Name: ''; X:5588; Y:8636),
|
||
|
|
(Typ:26; Name: ''; X:8636; Y:11176),
|
||
|
|
(Typ:27; Name: ''; X:1100; Y:2200),
|
||
|
|
(Typ:28; Name: ''; X:1620; Y:2290),
|
||
|
|
(Typ:29; Name: ''; X:3240; Y:4580),
|
||
|
|
(Typ:30; Name: ''; X:2290; Y:3240),
|
||
|
|
(Typ:31; Name: ''; X:1140; Y:1620),
|
||
|
|
(Typ:32; Name: ''; X:1140; Y:2290),
|
||
|
|
(Typ:33; Name: ''; X:2500; Y:3530),
|
||
|
|
(Typ:34; Name: ''; X:1760; Y:2500),
|
||
|
|
(Typ:35; Name: ''; X:1760; Y:1250),
|
||
|
|
(Typ:36; Name: ''; X:1100; Y:2300),
|
||
|
|
(Typ:37; Name: ''; X:984; Y:1905),
|
||
|
|
(Typ:38; Name: ''; X:920; Y:1651),
|
||
|
|
(Typ:39; Name: ''; X:3778; Y:2794),
|
||
|
|
(Typ:40; Name: ''; X:2159; Y:3048),
|
||
|
|
(Typ:41; Name: ''; X:2159; Y:3302),
|
||
|
|
(Typ:42; Name: ''; X:2500; Y:3530),
|
||
|
|
(Typ:43; Name: ''; X:1000; Y:1480),
|
||
|
|
(Typ:44; Name: ''; X:2286; Y:2794),
|
||
|
|
(Typ:45; Name: ''; X:2540; Y:2794),
|
||
|
|
(Typ:46; Name: ''; X:3810; Y:2794),
|
||
|
|
(Typ:47; Name: ''; X:2200; Y:2200),
|
||
|
|
(Typ:50; Name: ''; X:2355; Y:3048),
|
||
|
|
(Typ:51; Name: ''; X:2355; Y:3810),
|
||
|
|
(Typ:52; Name: ''; X:2969; Y:4572),
|
||
|
|
(Typ:53; Name: ''; X:2354; Y:3223),
|
||
|
|
(Typ:54; Name: ''; X:2101; Y:2794),
|
||
|
|
(Typ:55; Name: ''; X:2100; Y:2970),
|
||
|
|
(Typ:56; Name: ''; X:2355; Y:3048),
|
||
|
|
(Typ:57; Name: ''; X:2270; Y:3560),
|
||
|
|
(Typ:58; Name: ''; X:3050; Y:4870),
|
||
|
|
(Typ:59; Name: ''; X:2159; Y:3223),
|
||
|
|
(Typ:60; Name: ''; X:2100; Y:3300),
|
||
|
|
(Typ:61; Name: ''; X:1480; Y:2100),
|
||
|
|
(Typ:62; Name: ''; X:1820; Y:2570),
|
||
|
|
(Typ:63; Name: ''; X:3220; Y:4450),
|
||
|
|
(Typ:64; Name: ''; X:1740; Y:2350),
|
||
|
|
(Typ:65; Name: ''; X:2010; Y:2760),
|
||
|
|
(Typ:66; Name: ''; X:4200; Y:5940),
|
||
|
|
(Typ:67; Name: ''; X:2970; Y:4200),
|
||
|
|
(Typ:68; Name: ''; X:3220; Y:4450));
|
||
|
|
|
||
|
|
type
|
||
|
|
TPaperInfoLCL = {packed} record
|
||
|
|
Name: String;
|
||
|
|
W, H: Extended;
|
||
|
|
end;
|
||
|
|
const
|
||
|
|
LCLPaperCount = 119;
|
||
|
|
PtPrIn = 72;
|
||
|
|
CmPrIn = 2.54;
|
||
|
|
PtPrCm = PtPrIn/CmPrIn;
|
||
|
|
PtPrmm = PtPrCm/10;
|
||
|
|
LCLPaperInfo : array[0..LCLPAPERCOUNT-1] of TPaperInfoLCL =
|
||
|
|
((Name: 'Letter 8 1/2 x 11 in'; W: 8.5 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Letter Small 8 1/2 x 11 in'; W: 8.5 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Tabloid 11 x 17 in'; W: 11 * PtPrIn; H: 17 * PtPrIn),
|
||
|
|
(Name: 'Ledger 17 x 11 in'; W: 17 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Legal 8 1/2 x 14 in'; W: 8.5 * PtPrIn; H: 14 * PtPrIn),
|
||
|
|
(Name: 'Statement 5 1/2 x 8 1/2 in'; W: 5.5 * PtPrIn; H: 8.5 * PtPrIn),
|
||
|
|
(Name: 'Executive 7 1/4 x 10 1/2 in'; W: 7.25 * PtPrIn; H: 10.5 * PtPrIn),
|
||
|
|
(Name: 'A3 297 x 420 mm'; W: 297 * PtPrmm; H: 420 * PtPrmm),
|
||
|
|
(Name: 'A4 210 x 297 mm'; W: 210 * PtPrmm; H: 297 * PtPrmm),
|
||
|
|
(Name: 'A4 Small 210 x 297 mm'; W: 210 * PtPrmm; H: 297 * PtPrmm),
|
||
|
|
(Name: 'A5 148 x 210 mm'; W: 148 * PtPrmm; H: 210 * PtPrmm),
|
||
|
|
(Name: 'B4 (JIS) 250 x 354 mm'; W: 250 * PtPrmm; H: 354 * PtPrmm),
|
||
|
|
(Name: 'B5 (JIS) 182 x 257 mm'; W: 182 * PtPrmm; H: 257 * PtPrmm),
|
||
|
|
(Name: 'Folio 8 1/2 x 13 in'; W: 8.5 * PtPrIn; H: 13 * PtPrIn),
|
||
|
|
(Name: 'Quarto 215 x 275 mm'; W: 215 * PtPrmm; H: 275 * PtPrmm),
|
||
|
|
(Name: '10x14 in'; W: 10 * PtPrIn; H: 14 * PtPrIn),
|
||
|
|
(Name: '11x17 in'; W: 11 * PtPrIn; H: 17 * PtPrIn),
|
||
|
|
(Name: 'Note 8 1/2 x 11 in'; W: 8.5 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Envelope #9 3 7/8 x 8 7/8'; W: 3 * 7 / 8 * PtPrIn; H: 8 * 7 / 8 * PtPrIn),
|
||
|
|
(Name: 'Envelope #10 4 1/8 x 9 1/2'; W: 3 * 1 / 8 * PtPrIn; H: 9.5 * PtPrIn),
|
||
|
|
(Name: 'Envelope #11 4 1/2 x 10 3/8'; W: 4.5 * PtPrIn; H: 10 * 3 / 8 * PtPrIn),
|
||
|
|
(Name: 'Envelope #12 4 3/4 x 11'; W: 4.75 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Envelope #14 5 x 11 1/2'; W: 5 * PtPrIn; H: 11.5 * PtPrIn),
|
||
|
|
(Name: 'C size sheet 17 x 22 in'; W: 17 * PtPrIn; H: 22 * PtPrIn),
|
||
|
|
(Name: 'D size sheet 22 x 34 in'; W: 22 * PtPrIn; H: 34 * PtPrIn),
|
||
|
|
(Name: 'E size sheet 34 x 44 in'; W: 34 * PtPrIn; H: 44 * PtPrIn),
|
||
|
|
(Name: 'Envelope DL 110 x 220mm'; W: 110 * PtPrmm; H: 220 * PtPrmm),
|
||
|
|
(Name: 'Envelope C5 162 x 229 mm'; W: 162 * PtPrmm; H: 229 * PtPrmm),
|
||
|
|
(Name: 'Envelope C3 324 x 458 mm'; W: 324 * PtPrmm; H: 458 * PtPrmm),
|
||
|
|
(Name: 'Envelope C4 229 x 324 mm'; W: 229 * PtPrmm; H: 324 * PtPrmm),
|
||
|
|
(Name: 'Envelope C6 114 x 162 mm'; W: 114 * PtPrmm; H: 162 * PtPrmm),
|
||
|
|
(Name: 'Envelope C65 114 x 229 mm'; W: 114 * PtPrmm; H: 229 * PtPrmm),
|
||
|
|
(Name: 'Envelope B4 250 x 353 mm'; W: 250 * PtPrmm; H: 353 * PtPrmm),
|
||
|
|
(Name: 'Envelope B5 176 x 250 mm'; W: 176 * PtPrmm; H: 250 * PtPrmm),
|
||
|
|
(Name: 'Envelope B6 176 x 125 mm'; W: 176 * PtPrmm; H: 125 * PtPrmm),
|
||
|
|
(Name: 'Envelope 110 x 230 mm'; W: 110 * PtPrmm; H: 230 * PtPrmm),
|
||
|
|
(Name: 'Envelope Monarch 3 7/8 x 7 1/2 in'; W: 3 * 7 / 8 * PtPrIn; H: 7.5 * PtPrIn),
|
||
|
|
(Name: '6 34 Envelope 3 5/8 x 6 1/2 in'; W: 3 * 5 / 8 * PtPrIn; H: 6.5 * PtPrIn),
|
||
|
|
(Name: 'US Std Fanfold 14 7/8 x 11 in'; W: 14 * 7 / 8 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'German Std Fanfold 8 1/2 x 12 in'; W: 8.5 * PtPrIn; H: 12 * PtPrIn),
|
||
|
|
(Name: 'German Legal Fanfold 8 1/2 x 13 in'; W: 8.5 * PtPrIn; H: 13 * PtPrIn),
|
||
|
|
(Name: 'B4 (ISO) 250 x 353 mm'; W: 250 * PtPrmm; H: 353 * PtPrmm),
|
||
|
|
(Name: 'Japanese Postcard 100 x 148 mm'; W: 100 * PtPrmm; H: 148 * PtPrmm),
|
||
|
|
(Name: '9 x 11 in'; W: 9 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: '10 x 11 in'; W: 10 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: '15 x 11 in'; W: 15 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Envelope Invite 220 x 220 mm'; W: 220 * PtPrmm; H: 220 * PtPrmm),
|
||
|
|
(Name: 'RESERVED--DO NOT USE'; W: 0; H: 0),
|
||
|
|
(Name: 'RESERVED--DO NOT USE'; W: 0; H: 0),
|
||
|
|
(Name: 'Letter Extra 9 \275 x 12 in'; W: 9.275 * PtPrIn; H: 12 * PtPrIn),
|
||
|
|
(Name: 'Legal Extra 9 \275 x 15 in'; W: 9.275 * PtPrIn; H: 15 * PtPrIn),
|
||
|
|
(Name: 'Tabloid Extra 11.69 x 18 in'; W: 11.69 * PtPrIn; H: 18 * PtPrIn),
|
||
|
|
(Name: 'A4 Extra 9.27 x 12.69 in'; W: 9.27 * PtPrIn; H: 12.69 * PtPrIn),
|
||
|
|
(Name: 'Letter Transverse 8 \275 x 11 in'; W: 8.275 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'A4 Transverse 210 x 297 mm'; W: 210 * PtPrmm; H: 297 * PtPrmm),
|
||
|
|
(Name: 'Letter Extra Transverse 9\275 x 12 in'; W: 9.275 * PtPrIn; H: 12 * PtPrIn),
|
||
|
|
(Name: 'SuperASuperAA4 227 x 356 mm'; W: 227 * PtPrmm; H: 356 * PtPrmm),
|
||
|
|
(Name: 'SuperBSuperBA3 305 x 487 mm'; W: 305 * PtPrmm; H: 487 * PtPrmm),
|
||
|
|
(Name: 'Letter Plus 8.5 x 12.69 in'; W: 8.5 * PtPrIn; H: 12.69 * PtPrIn),
|
||
|
|
(Name: 'A4 Plus 210 x 330 mm'; W: 210 * PtPrmm; H: 330 * PtPrmm),
|
||
|
|
(Name: 'A5 Transverse 148 x 210 mm'; W: 148 * PtPrmm; H: 210 * PtPrmm),
|
||
|
|
(Name: 'B5 (JIS) Transverse 182 x 257 mm'; W: 182 * PtPrmm; H: 257 * PtPrmm),
|
||
|
|
(Name: 'A3 Extra 322 x 445 mm'; W: 322 * PtPrmm; H: 445 * PtPrmm),
|
||
|
|
(Name: 'A5 Extra 174 x 235 mm'; W: 174 * PtPrmm; H: 235 * PtPrmm),
|
||
|
|
(Name: 'B5 (ISO) Extra 201 x 276 mm'; W: 201 * PtPrmm; H: 276 * PtPrmm),
|
||
|
|
(Name: 'A2 420 x 594 mm'; W: 420 * PtPrmm; H: 594 * PtPrmm),
|
||
|
|
(Name: 'A3 Transverse 297 x 420 mm'; W: 297 * PtPrmm; H: 420 * PtPrmm),
|
||
|
|
(Name: 'A3 Extra Transverse 322 x 445 mm'; W: 322 * PtPrmm; H: 445 * PtPrmm),
|
||
|
|
(Name: 'Japanese Double Postcard 200 x 148 mm'; W: 200 * PtPrmm; H: 148 * PtPrmm),
|
||
|
|
(Name: 'A6 105 x 148 mm'; W: 105 * PtPrmm; H: 148 * PtPrmm),
|
||
|
|
(Name: 'Japanese Envelope Kaku #2'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope Kaku #3'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope Chou #3'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope Chou #4'; W: 0; H: 0),
|
||
|
|
(Name: 'Letter Rotated 11 x 8 1/2 11 in'; W: 11 * PtPrIn; H: 8.5 * PtPrIn),
|
||
|
|
(Name: 'A3 Rotated 420 x 297 mm'; W: 420 * PtPrmm; H: 297 * PtPrmm),
|
||
|
|
(Name: 'A4 Rotated 297 x 210 mm'; W: 297 * PtPrmm; H: 210 * PtPrmm),
|
||
|
|
(Name: 'A5 Rotated 210 x 148 mm'; W: 210 * PtPrmm; H: 148 * PtPrmm),
|
||
|
|
(Name: 'B4 (JIS) Rotated 364 x 257 mm'; W: 364 * PtPrmm; H: 257 * PtPrmm),
|
||
|
|
(Name: 'B5 (JIS) Rotated 257 x 182 mm'; W: 257 * PtPrmm; H: 182 * PtPrmm),
|
||
|
|
(Name: 'Japanese Postcard Rotated 148 x 100 mm'; W: 148 * PtPrmm; H: 100 * PtPrmm),
|
||
|
|
(Name: 'Double Japanese Postcard Rotated 148 x 200 mm'; W: 148 * PtPrmm; H: 200 * PtPrmm),
|
||
|
|
(Name: 'A6 Rotated 148 x 105 mm'; W: 148 * PtPrmm; H: 105 * PtPrmm),
|
||
|
|
(Name: 'Japanese Envelope Kaku #2 Rotated'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope Kaku #3 Rotated'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope Chou #3 Rotated'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope Chou #4 Rotated'; W: 0; H: 0),
|
||
|
|
(Name: 'B6 (JIS) 128 x 182 mm'; W: 128 * PtPrmm; H: 182 * PtPrmm),
|
||
|
|
(Name: 'B6 (JIS) Rotated 182 x 128 mm'; W: 182 * PtPrmm; H: 128 * PtPrmm),
|
||
|
|
(Name: '12 x 11 in'; W: 12 * PtPrIn; H: 11 * PtPrIn),
|
||
|
|
(Name: 'Japanese Envelope You #4'; W: 0; H: 0),
|
||
|
|
(Name: 'Japanese Envelope You #4 Rotated'; W: 0; H: 0),
|
||
|
|
(Name: 'PRC 16K 146 x 215 mm'; W: 146 * PtPrmm; H: 215 * PtPrmm),
|
||
|
|
(Name: 'PRC 32K 97 x 151 mm'; W: 97 * PtPrmm; H: 151 * PtPrmm),
|
||
|
|
(Name: 'PRC 32K(Big) 97 x 151 mm'; W: 97 * PtPrmm; H: 151 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #1 102 x 165 mm'; W: 102 * PtPrmm; H: 165 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #2 102 x 176 mm'; W: 102 * PtPrmm; H: 176 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #3 125 x 176 mm'; W: 125 * PtPrmm; H: 176 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #4 110 x 208 mm'; W: 110 * PtPrmm; H: 208 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #5 110 x 220 mm'; W: 110 * PtPrmm; H: 220 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #6 120 x 230 mm'; W: 120 * PtPrmm; H: 230 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #7 160 x 230 mm'; W: 160 * PtPrmm; H: 230 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #8 120 x 309 mm'; W: 120 * PtPrmm; H: 309 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #9 229 x 324 mm'; W: 229 * PtPrmm; H: 324 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #10 324 x 458 mm'; W: 324 * PtPrmm; H: 458 * PtPrmm),
|
||
|
|
(Name: 'PRC 16K Rotated 215 x 146 mm'; W: 215 * PtPrmm; H: 146 * PtPrmm),
|
||
|
|
(Name: 'PRC 32K Rotated 151 x 97 mm'; W: 151 * PtPrmm; H: 97 * PtPrmm),
|
||
|
|
(Name: 'PRC 32K(Big) Rotated 151 x 97 mm'; W: 151 * PtPrmm; H: 97 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #1 Rotated 165 x 102 mm'; W: 165 * PtPrmm; H: 102 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #2 Rotated 176 x 102 mm'; W: 176 * PtPrmm; H: 102 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #3 Rotated 176 x 125 mm'; W: 176 * PtPrmm; H: 125 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #4 Rotated 208 x 110 mm'; W: 208 * PtPrmm; H: 110 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #5 Rotated 220 x 110 mm'; W: 220 * PtPrmm; H: 110 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #6 Rotated 230 x 120 mm'; W: 230 * PtPrmm; H: 120 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #7 Rotated 230 x 160 mm'; W: 230 * PtPrmm; H: 160 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #8 Rotated 309 x 120 mm'; W: 309 * PtPrmm; H: 120 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #9 Rotated 324 x 229 mm'; W: 324 * PtPrmm; H: 229 * PtPrmm),
|
||
|
|
(Name: 'PRC Envelope #10 Rotated 458 x 324 mm'; W: 458 * PtPrmm; H: 324 * PtPrmm),
|
||
|
|
(Name: 'Custom size'; W: 0; H: 0));
|
||
|
|
|
||
|
|
constructor TfrxPrinter.Create(const AName, APort: String);
|
||
|
|
begin
|
||
|
|
inherited Create(AName, APort);
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TfrxPrinter.Destroy;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.Init;
|
||
|
|
function FindLinuxPaper(w, h: Integer): Integer;
|
||
|
|
var
|
||
|
|
I: Integer;
|
||
|
|
p: TPaperInfo;
|
||
|
|
lw,lh: Integer;
|
||
|
|
begin
|
||
|
|
Result := 0;
|
||
|
|
for I := 0 to Length(PaperInfo) - 1 do
|
||
|
|
begin
|
||
|
|
p := PaperInfo[I];
|
||
|
|
lw :=p.X;
|
||
|
|
lh :=p.Y;
|
||
|
|
if ((w >= lw - 6) and (w <= lw + 6)) and ((h >= lh - 6) and (h <= lh + 6)) then
|
||
|
|
begin
|
||
|
|
Result := I;
|
||
|
|
Break;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure FillPapers;
|
||
|
|
var
|
||
|
|
i,k: Integer;
|
||
|
|
fw, fh: Integer;
|
||
|
|
begin
|
||
|
|
for I := 0 to PAPERCOUNT - 1 do
|
||
|
|
begin
|
||
|
|
fw := PaperInfo[I].X;
|
||
|
|
fh := PaperInfo[I].Y;
|
||
|
|
k := FindLinuxPaper(fw, fh);
|
||
|
|
if k > 0 then
|
||
|
|
FPapers.AddObject(LCLPaperInfo[i].Name, TObject(PaperInfo[k].Typ));
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure AssignActivePrinter;
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
begin
|
||
|
|
for i := 0 to FMX.Printer.Printer.Count - 1 do
|
||
|
|
if TPrinterLinux(FMX.Printer.Printer).Printers[i].Device = Name then
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).ActivePrinter:=
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Printers[i];
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
AssignActivePrinter;
|
||
|
|
|
||
|
|
if FInitialized then Exit;
|
||
|
|
UpdateDeviceCaps;
|
||
|
|
FDefOrientation := TPrinterLinux(FMX.Printer.Printer).Orientation;
|
||
|
|
FOrientation := FDefOrientation;
|
||
|
|
|
||
|
|
FDefPaper := 256;
|
||
|
|
FDefBin := 0;
|
||
|
|
FDefDuplex := 0;
|
||
|
|
FPaper := FDefPaper;
|
||
|
|
FDefPaperWidth := FPaperWidth;
|
||
|
|
FDefPaperHeight := FPaperHeight;
|
||
|
|
FOrientation := FDefOrientation;
|
||
|
|
FillPapers;
|
||
|
|
FBin := -1;
|
||
|
|
FDuplex := -1;
|
||
|
|
|
||
|
|
FInitialized := True;
|
||
|
|
|
||
|
|
FBin := -1;
|
||
|
|
FDuplex := -1;
|
||
|
|
|
||
|
|
FInitialized := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.Abort;
|
||
|
|
begin
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Abort;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.BeginDoc;
|
||
|
|
begin
|
||
|
|
FPrinting := True;
|
||
|
|
FCanvas := TPrinterLinux(FMX.Printer.Printer).Canvas;
|
||
|
|
|
||
|
|
FIsFirst := True;
|
||
|
|
if FTitle <> '' then
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Title := FTitle
|
||
|
|
else
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Title := 'Fast Report Document';
|
||
|
|
|
||
|
|
UpdateDeviceCaps;
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).BeginDoc;
|
||
|
|
FCanvas := TPrinterLinux(FMX.Printer.Printer).Canvas;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.BeginPage;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
|
||
|
|
if not (FIsFirst) then
|
||
|
|
begin
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).NewPage;
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Canvas.BeginScene;
|
||
|
|
end;
|
||
|
|
FIsFirst := False;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.EndDoc;
|
||
|
|
var
|
||
|
|
LSettings: TFmuxPageSettings;
|
||
|
|
begin
|
||
|
|
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).EndDoc;
|
||
|
|
FmuxGetPageSettings(LSettings);
|
||
|
|
FPaperWidth := LSettings.Width * 25.4 / 96;
|
||
|
|
FPaperHeight := LSettings.Height * 25.4 / 96;
|
||
|
|
|
||
|
|
{$IFDEF DELPHI25}
|
||
|
|
try
|
||
|
|
if TPrinterLinux(FMX.Printer.Printer).Canvas.BeginSceneCount > 0 then
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Canvas.EndScene;
|
||
|
|
except
|
||
|
|
end;
|
||
|
|
{$ELSE}
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Canvas.EndScene;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
FPrinting := False;
|
||
|
|
THackPrinter(FMX.Printer.Printer).FPrinting := False;
|
||
|
|
FBin := -1;
|
||
|
|
FDuplex := -1;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.EndPage;
|
||
|
|
begin
|
||
|
|
//todo
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.BeginRAWDoc;
|
||
|
|
begin
|
||
|
|
//todo
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.EndRAWDoc;
|
||
|
|
begin
|
||
|
|
//todo
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.WriteRAWDoc(const buf: AnsiString);
|
||
|
|
begin
|
||
|
|
//todo
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.SetViewParams(APaperSize: Integer;
|
||
|
|
APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation);
|
||
|
|
begin
|
||
|
|
FPaper := APaperSize;
|
||
|
|
FOrientation := AOrientation;
|
||
|
|
|
||
|
|
if APaperSize <> 256 then
|
||
|
|
begin
|
||
|
|
FPaperHeight := LCLPaperInfo[FPaper].H;
|
||
|
|
FPaperWidth := LCLPaperInfo[FPaper].W;
|
||
|
|
if not UpdateDeviceCaps then Exit;
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
// copy the margins from A4 paper
|
||
|
|
SetViewParams(DMPAPER_A4, 0, 0, AOrientation);
|
||
|
|
FPaperHeight := APaperHeight;
|
||
|
|
FPaperWidth := APaperWidth;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TfrxPrinter.ShowPrintDialog: Boolean;
|
||
|
|
begin
|
||
|
|
Result := False;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.SetPrintParams(APaperSize: Integer;
|
||
|
|
APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation;
|
||
|
|
ABin, ADuplex, ACopies: Integer);
|
||
|
|
var
|
||
|
|
LPaperHeight, LPaperWidth: Double;
|
||
|
|
begin
|
||
|
|
|
||
|
|
{ later fix these values }
|
||
|
|
FPaper := APaperSize;
|
||
|
|
|
||
|
|
if TPrinterLinux(FMX.Printer.Printer).Orientation <> AOrientation then
|
||
|
|
begin
|
||
|
|
if FPrinting then
|
||
|
|
begin
|
||
|
|
EndDoc;
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Orientation := AOrientation;
|
||
|
|
BeginDoc;
|
||
|
|
end
|
||
|
|
else
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Orientation := AOrientation;
|
||
|
|
end;
|
||
|
|
|
||
|
|
LPaperHeight := FPaperHeight * FDPI.Y / 96;
|
||
|
|
LPaperWidth := FPaperWidth * FDPI.X / 96;
|
||
|
|
{$IFDEF DELPHI18}
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Canvas.SetSize(Round(LPaperWidth), Round(LPaperHeight));
|
||
|
|
{$ELSE}
|
||
|
|
TPrinterLinux(FMX.Printer.Printer).Canvas.ResizeBuffer(Round(LPaperWidth), Round(LPaperHeight);
|
||
|
|
{$ENDIF}
|
||
|
|
FOrientation := AOrientation;
|
||
|
|
UpdateDeviceCaps;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TfrxPrinter.UpdateDeviceCaps: Boolean;
|
||
|
|
var
|
||
|
|
Idx: Integer;
|
||
|
|
LSettings: TFmuxPageSettings;
|
||
|
|
begin
|
||
|
|
FCanvas := TPrinterLinux(FMX.Printer.Printer).Canvas;
|
||
|
|
Idx := TPrinterLinux(FMX.Printer.Printer).ActivePrinter.ActiveDPIIndex;
|
||
|
|
|
||
|
|
if Idx <> -1 then
|
||
|
|
begin
|
||
|
|
FDPI.X := TPrinterLinux(FMX.Printer.Printer).ActivePrinter.DPI[Idx].X;
|
||
|
|
FDPI.y := TPrinterLinux(FMX.Printer.Printer).ActivePrinter.DPI[Idx].Y;
|
||
|
|
end
|
||
|
|
else if TPrinterLinux(FMX.Printer.Printer).ActivePrinter.DPICount > 0 then
|
||
|
|
begin
|
||
|
|
FDPI.X := TPrinterLinux(FMX.Printer.Printer).ActivePrinter.DPI[0].X;
|
||
|
|
FDPI.y := TPrinterLinux(FMX.Printer.Printer).ActivePrinter.DPI[0].Y;
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
FDPI := System.Classes.Point(72, 72);
|
||
|
|
end;
|
||
|
|
|
||
|
|
FmuxGetPageSettings(LSettings);
|
||
|
|
|
||
|
|
FPaperWidth := LSettings.Width * 25.4 / 96; // DPI / DPI
|
||
|
|
FPaperHeight := LSettings.Height * 25.4 / 96; // DPI / DPI
|
||
|
|
|
||
|
|
FLeftMargin := LSettings.Margins.Left * 25.4 / 96; // mm per Inch / DPI = mm
|
||
|
|
FTopMargin := LSettings.Margins.Top * 25.4 / 96; // DPI
|
||
|
|
FRightMargin := LSettings.Margins.Right * 25.4 / 96; // DPI
|
||
|
|
FBottomMargin := LSettings.Margins.Bottom * 25.4 / 96; // DPI
|
||
|
|
|
||
|
|
Result := True;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxPrinter.PropertiesDlg;
|
||
|
|
begin
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ TfrxPrinters }
|
||
|
|
|
||
|
|
constructor TfrxPrinters.Create;
|
||
|
|
begin
|
||
|
|
Inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TfrxPrinters.Destroy;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TfrxPrinters.GetDefaultPrinter: String;
|
||
|
|
begin
|
||
|
|
Result := TPrinterLinux(FMX.Printer.Printer).ActivePrinter.Device;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TfrxPrinters.FillPrinters;
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
|
||
|
|
procedure AddPrinter(ADevice, APort: String);
|
||
|
|
begin
|
||
|
|
FPrinterList.Add(TfrxPrinter.Create(ADevice, APort));
|
||
|
|
FPrinters.Add(ADevice);
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Clear;
|
||
|
|
for i := 0 to TPrinterLinux(FMX.Printer.Printer).Count - 1 do
|
||
|
|
AddPrinter(FMX.Printer.Printer.Printers[i].Device, TPrinterLinux(FMX.Printer.Printer).Printers[i].Port);
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
function ActualfrxPrinterClass : TfrxCustomPrintersClass;
|
||
|
|
begin
|
||
|
|
Result := TfrxPrinters;
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
|
||
|
|
finalization
|
||
|
|
|
||
|
|
end.
|