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

lazreport: fixed handling exception

Browse Source 
git-svn-id: trunk@16550 -
This commit is contained in:
mattias 2008-09-11 20:05:25 +00:00
parent 545bdbd2b5
commit 99ab8f2d83
10 changed files with 29 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -801,8 +801,13 @@ begin
Writeln('PaperSize is ',PaperSize);
{$Endif}
PaperWidth:=fPrinter.PageWidth;
PaperHeight:=fPrinter.PageHeight;
try
PaperWidth:=fPrinter.PageWidth;
PaperHeight:=fPrinter.PageHeight;
finally
PaperWidth:=1;
PaperHeight:=1;
end;
end;
{$ifdef DbgPrinter}
WriteLn('TfrPrinter.GetSettings FIN: PrinterChanged: ', PrinterChanged);
@ -1099,9 +1104,12 @@ begin
FPrinters.Assign(FPrinter.Printers);
FPrinterIndex := FPrinter.PrinterIndex;
end;
GetSettings;
FPrinters.Add(sDefaultPrinter);
FDefaultPrinter := FPrinters.Count - 1;
try
GetSettings;
finally
FPrinters.Add(sDefaultPrinter);
FDefaultPrinter := FPrinters.Count - 1;
end;
end;
{
@ -1123,8 +1131,13 @@ end;
initialization
Prn := TfrPrinter.Create;
Prn.Printer:=Printer;
//ExportLista;
try
Prn.Printer:=Printer;
except
on E: Exception do begin
debugln('lazreport: unit lr_prntr: ',E.Message);
end;
end;
finalization
Prn.Free;

2
components/printers/design/languages/ideprinting.de.po
View File

@ -9,7 +9,7 @@ msgstr ""
"Content-Type: text/plain; charset=iso-8859-1\n"
"Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Drucken ..."

2
components/printers/design/languages/ideprinting.fi.po
View File

@ -4,7 +4,7 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Tulosta..."

2
components/printers/design/languages/ideprinting.fr.po
View File

@ -11,7 +11,7 @@ msgstr ""
"X-Poedit-Language: French\n"
"X-Poedit-Country: FRANCE\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Imprimer..."

2
components/printers/design/languages/ideprinting.id.po
View File

@ -9,7 +9,7 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr ""

2
components/printers/design/languages/ideprinting.lt.po
View File

@ -10,7 +10,7 @@ msgstr ""
"X-Generator: KBabel 1.11.4\n"
"Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Spausdinti..."

2
components/printers/design/languages/ideprinting.pb.po
View File

@ -4,7 +4,7 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Imprimir"

2
components/printers/design/languages/ideprinting.pl.po
View File

@ -11,7 +11,7 @@ msgstr ""
"X-Poedit-Language: Polish\n"
"X-Poedit-Country: POLAND\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Drukuj..."

2
components/printers/design/languages/ideprinting.po
View File

@ -4,7 +4,7 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr ""

2
components/printers/design/languages/ideprinting.ru.po
View File

@ -9,7 +9,7 @@ msgstr ""
"Content-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection
#: ideprinting.sdescrpfselection
msgid "Print..."
msgstr "Печать..."