paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 19:18:35 +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); Writeln('PaperSize is ',PaperSize);
{$Endif} {$Endif}
PaperWidth:=fPrinter.PageWidth; try
PaperHeight:=fPrinter.PageHeight; PaperWidth:=fPrinter.PageWidth;
PaperHeight:=fPrinter.PageHeight;
finally
PaperWidth:=1;
PaperHeight:=1;
end;
end; end;
{$ifdef DbgPrinter} {$ifdef DbgPrinter}
WriteLn('TfrPrinter.GetSettings FIN: PrinterChanged: ', PrinterChanged); WriteLn('TfrPrinter.GetSettings FIN: PrinterChanged: ', PrinterChanged);
@ -1099,9 +1104,12 @@ begin
FPrinters.Assign(FPrinter.Printers); FPrinters.Assign(FPrinter.Printers);
FPrinterIndex := FPrinter.PrinterIndex; FPrinterIndex := FPrinter.PrinterIndex;
end; end;
GetSettings; try
FPrinters.Add(sDefaultPrinter); GetSettings;
FDefaultPrinter := FPrinters.Count - 1; finally
FPrinters.Add(sDefaultPrinter);
FDefaultPrinter := FPrinters.Count - 1;
end;
end; end;
{ {
@ -1123,8 +1131,13 @@ end;
initialization initialization
Prn := TfrPrinter.Create; Prn := TfrPrinter.Create;
Prn.Printer:=Printer; try
//ExportLista; Prn.Printer:=Printer;
except
on E: Exception do begin
debugln('lazreport: unit lr_prntr: ',E.Message);
end;
end;
finalization finalization
Prn.Free; 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-Type: text/plain; charset=iso-8859-1\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "Drucken ..." 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-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "Tulosta..." msgstr "Tulosta..."

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

@ -11,7 +11,7 @@ msgstr ""
"X-Poedit-Language: French\n" "X-Poedit-Language: French\n"
"X-Poedit-Country: FRANCE\n" "X-Poedit-Country: FRANCE\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "Imprimer..." 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-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "" msgstr ""

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

@ -10,7 +10,7 @@ msgstr ""
"X-Generator: KBabel 1.11.4\n" "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" "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..." msgid "Print..."
msgstr "Spausdinti..." 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-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "Imprimir" msgstr "Imprimir"

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

@ -11,7 +11,7 @@ msgstr ""
"X-Poedit-Language: Polish\n" "X-Poedit-Language: Polish\n"
"X-Poedit-Country: POLAND\n" "X-Poedit-Country: POLAND\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "Drukuj..." 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-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "" 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-Type: text/plain; charset=utf-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
#: ideprinting:sdescrpfselection #: ideprinting.sdescrpfselection
msgid "Print..." msgid "Print..."
msgstr "Печать..." msgstr "Печать..."