paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix typos and postscriptcanvas Y margin

Browse Source 
git-svn-id: trunk@15815 -
This commit is contained in:
jesus 2008-07-18 21:16:39 +00:00
parent c7d1d9ba34
commit 34f9100000
2 changed files with 54 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/postscriptcanvas.pas
View File

@ -558,8 +558,8 @@ end;
//Modify X and Y for use Left and Top margin
procedure TPostScriptPrinterCanvas.TranslateCoord(var X,Y : Integer);
begin
Y:=PageHeight-TopMarging-Y;
X:=X+LeftMarging;
Y:=PageHeight+BottomMargin-Y;
X:=X+LeftMargin;
end;
//Save the last position

59
lcl/printers.pas
View File

@ -53,8 +53,10 @@ type
fPageHeight : Integer;
fPageWidth : Integer;
fPageNum : Integer;
fTopMarging : Integer;
fLeftMarging : Integer;
fTopMargin : Integer;
fLeftMargin : Integer;
fBottomMargin : Integer;
fRightMargin : Integer;
function GetPageHeight: Integer;
function GetPageWidth: Integer;
@ -66,7 +68,10 @@ type
procedure BeginDoc; virtual;
procedure NewPage; virtual;
procedure EndDoc; virtual;
function GetLeftMargin: Integer;
function GetTopMargin: Integer;
function GetBottomMargin: Integer;
function GetRightMargin: Integer;
public
constructor Create(APrinter: TPrinter); virtual;
procedure Changing; override;
@ -77,8 +82,10 @@ type
property PageHeight : Integer read GetPageHeight write SetPageHeight;
property PageWidth : Integer read GetPageWidth write SetPageWidth;
property PageNumber : Integer read fPageNum;
property TopMarging : Integer read fTopMarging write fTopMarging;
property LeftMarging: Integer read fLeftMarging write fLeftMarging;
property TopMargin : Integer read GetLeftMargin write FTopMargin;
property LeftMargin: Integer read GetTopMargin write FLeftMargin;
property BottomMargin: Integer read GetBottomMargin write FBottomMargin;
property RightMargin: Integer read GetRightMargin write FRightMargin;
end;
@ -903,8 +910,10 @@ begin
Inherited Create;
fPageWidth :=0;
fPageHeight :=0;
fTopMarging :=0;
fLeftMarging:=0;
fTopMargin :=0;
fLeftMargin :=0;
fRightMargin :=0;
fBottomMargin :=0;
fPrinter:=aPrinter;
end;
@ -930,6 +939,42 @@ begin
//No special action
end;
function TPrinterCanvas.GetLeftMargin: Integer;
begin
if (fLeftMargin=0) and (fPrinter<>nil) then
Result:=fPrinter.PaperSize.PaperRect.WorkRect.Left
else
Result:=FLeftMargin;
end;
function TPrinterCanvas.GetTopMargin: Integer;
begin
if (fTopMargin=0) and (fPrinter<>nil) then
Result:=fPrinter.PaperSize.PaperRect.WorkRect.Top
else
Result:=fTopMargin;
end;
function TPrinterCanvas.GetBottomMargin: Integer;
begin
if (fBottomMargin=0) and (fPrinter<>nil) then
begin
with fPrinter.Papersize.PaperRect do
Result := PhysicalRect.Bottom-WorkRect.Bottom;
end else
Result := fBottomMargin;
end;
function TPrinterCanvas.GetRightMargin: Integer;
begin
if (fRightMargin=0) and (fPrinter<>nil) then
begin
with fPrinter.Papersize.PaperRect do
Result := PhysicalRect.Right-WorkRect.Right;
end else
Result := fRightMargin;
end;
INITIALIZATION
//TPrinter it's an basic object. If you override this object,
//you must create an instance.