paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 03:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, use current printer default paper in new reports

Browse Source 
git-svn-id: trunk@13265 -
This commit is contained in:
jesus 2007-12-10 20:22:17 +00:00
parent 5659d730e9
commit e74bc916d7
3 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/lazreport/source/languages/lr_const.po
View File

@ -3,11 +3,6 @@ msgstr ""
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: 2007-09-12 18:34-0600\n"
"Last-Translator: Jesus Reyes A. <jesusrmx@yahoo.com.mx>\n"
"Language-Team: \n"
#: lr_const:spaper20
msgid "#10 Envelope, 4 1/8 x 9 1/2\""
@ -561,6 +556,10 @@ msgstr ""
msgid "Auto size"
msgstr ""
#: lr_const:sdocautor
msgid "Autor"
msgstr ""
#: lr_const:sfilterparam
msgid "Average font height:"
msgstr ""
@ -669,6 +668,10 @@ msgstr ""
msgid "Bring to front"
msgstr ""
#: lr_const:sdocbuild
msgid "Build"
msgstr ""
#: lr_const:spaper24
msgid "C Sheet, 17 x 22\""
msgstr ""
@ -1461,6 +1464,10 @@ msgstr ""
msgid "LOWERCASE(<String>)/Converts <String> symbols to lower case."
msgstr ""
#: lr_const:sdocmajor
msgid "Major"
msgstr ""
#: lr_const:spgoptformmargins
msgid "Margins"
msgstr ""
@ -1501,6 +1508,10 @@ msgstr ""
msgid "MINNUM(<Value1>, <Value2>)/Returns min of given values."
msgstr ""
#: lr_const:sdocminor
msgid "Minor"
msgstr ""
#: lr_const:smm
msgid "MM"
msgstr ""
@ -1741,6 +1752,10 @@ msgstr ""
msgid "Redo cancelled action"
msgstr ""
#: lr_const:sdocrelease
msgid "Release"
msgstr ""
#: lr_const:sfrdesignerformremovepg
msgid "Remove page"
msgstr ""
@ -2069,6 +2084,10 @@ msgstr ""
msgid "Variables list"
msgstr ""
#: lr_const:sdocversion
msgid "Version"
msgstr ""
#: lr_const:sfrdesignerformvertcenter
msgid "Vertical center"
msgstr ""

2
components/lazreport/source/lr_class.pas
View File

@ -9070,7 +9070,7 @@ end;
constructor TfrPageReport.CreatePage;
begin
self.Create(9, 0, 0, poPortrait);
self.Create(prn.DefaultPageSize, 0, 0, poPortrait);
end;
{ TfrPageDialog }

13
components/lazreport/source/lr_prntr.pas
View File

@ -59,6 +59,7 @@ type
pgOr: TPrinterOrientation): Boolean;
function GetArrayPos(pgSize: Integer): Integer;
function DefaultPaperIndex: Integer;
function DefaultPageSize: Integer;
property PaperNames: TStringList read GetPaperNames;
property Printer: TPrinter read FPrinter write SetPrinter;
@ -1058,6 +1059,18 @@ begin
Result:=0;
end;
function TfrPrinter.DefaultPageSize: Integer;
var
Indx: Integer;
begin
if FPaperNames.Count>0 then
begin
Indx := DefaultPaperIndex;
result := PaperSizes[Indx];
end else
result := 9;
end;
procedure TfrPrinter.SetPrinterIndex(Value: Integer);
begin
FPrinterIndex := Value;