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

printers, windows: typo & indentation

Browse Source 
git-svn-id: trunk@45480 -
This commit is contained in:
jesus 2014-06-12 02:03:36 +00:00
parent 369715dd29
commit 66134be838
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/printers/win32/winprinters.inc
View File

@ -740,26 +740,26 @@ begin
if Paper<>-1 then
begin
i := Lst.IndexOfObject(TObject(Paper));
if i>=0 then
if i>=0 then
result := lst[i]
else
begin
// Weird, selected paper code (size) do not agree with previouly
// retrieved paper sizes.
//
// NOTE.
// This problem was observed while trying to print on a just installed CutePDF
// printer in Win 7. Once Printer properties dialog were 'navigated' (no
// changes were needed) in ctrl panel/devices and printers/CutePDF printer
// it started to work normally.
if UseUnicode then
result := UTF8Encode(Widestring(dmW^.dmFormName))
else
result := StrPas(dmA^.dmFormName);
i := Lst.IndexOf(result);
if i<0 then
result := lst[0];
end;
// Weird, selected paper code (size) do not agree with previously
// retrieved paper sizes.
//
// NOTE.
// This problem was observed while trying to print on a just installed CutePDF
// printer in Win 7. Once Printer properties dialog were 'navigated' (no
// changes were needed) in ctrl panel/devices and printers/CutePDF printer
// it started to work normally.
if UseUnicode then
result := UTF8Encode(Widestring(dmW^.dmFormName))
else
result := StrPas(dmA^.dmFormName);
i := Lst.IndexOf(result);
if i<0 then
result := lst[0];
end;
end;
end;